<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{453,164,415,280}</property>
    <property name="Name">[vdacplsngpc_pac]</property>
    <property name="Caption">
[SNGPC - Informacoes Complementares Antimicrobiano]    </property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="Font">
      <font name="Courier New" width="0" height="-12" weight="400"/>
    </property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.F.</property>
    <property name="ScopeVarObj">[Local]</property>
    <property name="lClipper">.T.</property>
    <property name="lExitOnEnter">.T.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="Variables">{modus}</property>
    <property name="FromStyle">[Popup]</property>
    <property name="Clipsiblings">.F.</property>
    <property name="Clipchildren">.F.</property>
    <property name="TitleBar">.T.</property>
    <property name="StyleBorder">[3 - Sizable (Default)]</property>
    <property name="nBackColor">16777215</property>
    <property name="Icon">[]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.F.</property>
    <property name="Minimizebox">.F.</property>
    <property name="Maximizebox">.F.</property>
    <property name="AbsAlignment">.T.</property>
    <property name="WindowState">[1 - Normal (Default)]</property>
    <property name="minHeight">-1</property>
    <property name="maxHeight">-1</property>
    <property name="minWidth">-1</property>
    <property name="maxWidth">-1</property>
    <property name="ScrollBars">[0 - None (Default)]</property>
    <property name="DSControl">.F.</property>
  </style>
  <method name="onFormInit">
    <![CDATA[parameters o, p1
modus:=p1]]>
  </method>
  <method name="onDlgInit">
    <![CDATA[if(modus<>NIL,SetWindowText( oDlg:handle, modus ),)
SET(5,1960) ]]>
  </method>
  <part class="line">
    <style>
      <property name="Geometry">{7,240,394,2}</property>
      <property name="Name">[oLine1]</property>
    </style>
  </part>
  <part class="group">
    <style>
      <property name="Geometry">{7,3,397,230}</property>
      <property name="Name">[oGroup1]</property>
      <property name="TabIndex">1</property>
    </style>
    <part class="editbox">
      <style>
        <property name="Geometry">{154,43,217,18}</property>
        <property name="Name">[opaciente]</property>
        <property name="varName">[m_paciente]</property>
        <property name="nMaxLength">30</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">1</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[IF EMPTY(M_PACIENTE)
   ALERT('O Paciente deve ser informado!')
else
   IF VB_PAC->(DBSEEK(RTRIM(M_PACIENTE),.T.)) .OR. PSQ_BROW('VB_PAC','PVBPAC2','M_PACIENTE','N','S',,,'','','',,opaciente,)
      M_PACIENTE:=vb_pac->PACIENTE
      REFRESHGETLIST()
      RETURN .t.
   ENDIF
ENDIF
RETURN .f.
   ]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,43,133,16}</property>
        <property name="Name">[oSaypaciente]</property>
        <property name="Caption">[Paciente.........:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">2</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{154,83,49,18}</property>
        <property name="Name">[ocrm]</property>
        <property name="varName">[m_crm]</property>
        <property name="nMaxLength">10</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">2</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[EMPTY(M_CRM).OR.VB_CRM->(ORDSETFOCUS('VB_CRMC'),PSQ_BROW('VB_CRM','PVBCRM','M_CRM','N','S',6,24,'','','',,ocrm,).AND.((M_MEDICO:=MEDICO,REFRESHGETLIST())))]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,83,133,16}</property>
        <property name="Name">[oSaycrm]</property>
        <property name="Caption">[CRM do Medico....:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">3</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{154,103,217,18}</property>
        <property name="Name">[omedico]</property>
        <property name="varName">[m_medico]</property>
        <property name="nMaxLength">30</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">3</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[IF EMPTY(M_MEDICO)
   ALERT('O Medico deve ser informado!')
else
   VB_CRM->(ORDSETFOCUS('VB_CRMN'))
   IF VB_CRM->(DBSEEK(RTRIM(M_MEDICO),.T.).OR.PSQ_BROW('VB_CRM','PVBCRM','M_MEDICO','N','S',6,24,'','','',,omedico,))
      M_MEDICO:=vb_crm->MEDICO
      M_CRM:=vb_crm->CRM
      REFRESHGETLIST()
      RETURN .t.
   endif
ENDIF
RETURN .f.
   ]]>
      </method>
      <method name="onGetFocus">
        <![CDATA[empty(m_crm)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,103,133,16}</property>
        <property name="Name">[oSaymedico]</property>
        <property name="Caption">[Nome do Medico...:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">4</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{154,143,14,18}</property>
        <property name="Name">[otipreceita]</property>
        <property name="varName">[m_tipreceita]</property>
        <property name="nMaxLength">1</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">4</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[eval(_bv06)]]>
      </method>
      <method name="onGetFocus">
        <![CDATA[eval(_bw06)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,143,133,16}</property>
        <property name="Name">[oSaytipreceita]</property>
        <property name="Caption">[Tipo de Receita..:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">5</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{154,163,77,18}</property>
        <property name="Name">[onumreceita]</property>
        <property name="varName">[m_numreceita]</property>
        <property name="nMaxLength">10</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">5</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,163,133,16}</property>
        <property name="Name">[oSaynumreceita]</property>
        <property name="Caption">[Numero da Receita:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">6</property>
      </style>
    </part>
    <part class="datepicker">
      <style>
        <property name="Geometry">{154,183,98,18}</property>
        <property name="Name">[omdatarecei]</property>
        <property name="varName">[m_mdatarecei]</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">6</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[eval(_bv08)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{21,183,133,16}</property>
        <property name="Name">[oSaymdatarecei]</property>
        <property name="Caption">[Data da Receita..:]</property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Courier New" width="0" height="-12" weight="700"/>
        </property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{205,83,16,16}</property>
        <property name="Name">[obocrm]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">9</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('VB_CRM','PVBCRM','M_CRM','N','S',6,24,'','','','EXIBA',ocrm,)]]>
      </method>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{373,103,16,16}</property>
        <property name="Name">[obomedico]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">10</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('VB_CRM','PVBCRM','M_MEDICO','N','S',6,24,'','','','EXIBA',omedico,)]]>
      </method>
    </part>
  </part>
  <part class="ownerbutton">
    <style>
      <property name="Geometry">{373,43,16,16}</property>
      <property name="Name">[obopaciente]</property>
      <property name="BtnBitmap">[smPreview]</property>
      <property name="lResource">.T.</property>
      <property name="TabIndex">8</property>
    </style>
    <method name="onClick">
      <![CDATA[PSQ_BROW('VB_PAC','PVBPAC2','M_PACIENTE','N','S',6,24,'','','','EXIBA',opaciente,)]]>
    </method>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{235,246,70,28}</property>
      <property name="Name">[oOwnerbutton1]</property>
      <property name="Id">[IDOK]</property>
      <property name="Caption">[&amp;OK]</property>
      <property name="TabIndex">1000</property>
    </style>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{315,246,70,28}</property>
      <property name="Name">[oOwnerbutton2]</property>
      <property name="Id">[IDCANCEL]</property>
      <property name="Caption">[&amp;Cancela]</property>
      <property name="TabIndex">1001</property>
    </style>
  </part>
</part>
