<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{31,180,798,420}</property>
    <property name="Name">[vb_pac.tel]</property>
    <property name="Caption">[Paciente F.Popular]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="Font">
      <font name="Arial" width="0" height="-21" 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,osoSayCR_COD_CLI}</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 ),)
//skel VARIAVEL zCliClosed = (select("sccrcli")=0)
//skel VARIAVEL znil = if(zCliClosed , abra_arq("sccrcli"), "")
//skel VARIAVEL znil = if(zCliClosed , dbSelectArea("vb_pac"), "")
//skel VARIAVEL zblkCli="sccrcli->(m_paciente:=if(empty(m_paciente),cr_nome,m_paciente), m_cr_rua:=if(empty(m_cr_rua),cr_rua,m_cr_rua), m_cr_bairro:=if(empty(m_cr_bairro),cr_bairro,m_cr_bairro)"
//skel VARIAVEL zblkCli=zblkCli+", m_cr_cidade:=if(empty(m_cr_cidade),cr_cidade,m_cr_cidade), m_cr_cep:=if(empty(m_cr_cep),sccrcli->cr_cep,m_cr_cep) ), RefreshGetList()"
//skel VARIAVEL zblkCli=_CreateBlock( zblkCli )
//skel COMANDO ANTES m_CR_RG = if( empty(m_CR_RG) .and. type("M_CPF")<>"U".and.!empty(m_cpf), m_cpf, if(type('wCPFPAC')<>'U',wCpfPac,m_CR_RG) )
//skel COMANDO DEPOIS zFgCompOpen=( Select("vb_pcomp")>0 )
//skel COMANDO DEPOIS zNil = if(.not. zFgCompOpen, abra_arq("vb_pcomp"), "")
//skel COMANDO DEPOIS zFoundComp = Vb_Pcomp->(DbSeek(m_PACIENTE))
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(AppendBlank()), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_COD_CLI",m_CR_COD_CLI)), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("COMPRADOR",m_PACIENTE)), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_RUA",m_CR_RUA)), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_BAIRRO",m_CR_BAIRRO)), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_CIDADE",m_CR_CIDADE)), "")
//skel COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_RG",m_CR_RG)), "")
//skel COMANDO DEPOIS zNil = if(.not. zFgCompOpen, vb_pcomp->(dbCloseArea()), vb_pcomp->(dbCommit()))
//skel COMANDO DEPOIS zNil = if(.not. zFgCompOpen, "", vb_pcomp->(dbUnLock()) )
//skel COMANDO DEPOIS dbSelectArea("vb_pac")
//skel COMANDO SAIDA znil = if(zCliClosed , sccrcli->(dbCloseArea()), "")
SET(5,1960) ]]>
  </method>
  <part class="group">
    <style>
      <property name="Geometry">{7,3,777,345}</property>
      <property name="Name">[oGroup1]</property>
      <property name="TabIndex">1</property>
    </style>
    <part class="line">
      <style>
        <property name="Geometry">{7,360,777,2}</property>
        <property name="Name">[oLine1]</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,63,268,28}</property>
        <property name="Name">[oCR_RG]</property>
        <property name="varName">[m_CR_RG]</property>
        <property name="cPicture">[!!!!!!!!!!!!!!!!!!]</property>
        <property name="nMaxLength">18</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">1</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,63,207,26}</property>
        <property name="Name">[oSayCR_RG]</property>
        <property name="Caption">[CPF do Paciente...:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">2</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,93,94,28}</property>
        <property name="Name">[oCR_COD_CLI]</property>
        <property name="varName">[m_CR_COD_CLI]</property>
        <property name="cPicture">[99999]</property>
        <property name="nMaxLength">5</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">2</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[//
return M_CR_COD_CLI=0.OR.(PSQ_BROW('SCCRCLI','PSCCRCLI','M_CR_COD_CLI','N','N',8,34,'CR_NOME','@S25','',,oCR_COD_CLI,osoSayCR_COD_CLI).AND.EVAL(ZBLKCLI))]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,93,207,26}</property>
        <property name="Name">[oSayCR_COD_CLI]</property>
        <property name="Caption">[CodCli do Paciente:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">3</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,123,521,28}</property>
        <property name="Name">[oPACIENTE]</property>
        <property name="varName">[m_PACIENTE]</property>
        <property name="cPicture">[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX]</property>
        <property name="nMaxLength">30</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">3</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,123,207,26}</property>
        <property name="Name">[oSayPACIENTE]</property>
        <property name="Caption">[Nome do Paciente..:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">4</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,183,521,28}</property>
        <property name="Name">[oCR_RUA]</property>
        <property name="varName">[m_CR_RUA]</property>
        <property name="cPicture">[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX]</property>
        <property name="nMaxLength">30</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">4</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,183,207,26}</property>
        <property name="Name">[oSayCR_RUA]</property>
        <property name="Caption">[Rua...............:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">5</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,213,218,28}</property>
        <property name="Name">[oCR_BAIRRO]</property>
        <property name="varName">[m_CR_BAIRRO]</property>
        <property name="cPicture">[XXXXXXXXXXXXXXXXXXXX]</property>
        <property name="nMaxLength">20</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">5</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,213,207,26}</property>
        <property name="Name">[oSayCR_BAIRRO]</property>
        <property name="Caption">[Bairro............:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">6</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,243,218,28}</property>
        <property name="Name">[oCR_CIDADE]</property>
        <property name="varName">[m_CR_CIDADE]</property>
        <property name="cPicture">[XXXXXXXXXXXXXXXXXXXX]</property>
        <property name="nMaxLength">20</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">6</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,243,207,26}</property>
        <property name="Name">[oSayCR_CIDADE]</property>
        <property name="Caption">[Cidade............:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{565,243,191,28}</property>
        <property name="Name">[oCR_cep]</property>
        <property name="varName">[m_CR_cep]</property>
        <property name="cPicture">[XXXXXXXXXXXXXXXXXXXX]</property>
        <property name="nMaxLength">20</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{506,243,48,26}</property>
        <property name="Name">[oSayCR_cep]</property>
        <property name="Caption">[Cep:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">8</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{235,273,521,28}</property>
        <property name="Name">[oCR_fone]</property>
        <property name="varName">[m_CR_fone]</property>
        <property name="cPicture">
[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX]        </property>
        <property name="nMaxLength">45</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">8</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,273,207,26}</property>
        <property name="Name">[oSayCR_fone]</property>
        <property name="Caption">[Fones.............:]</property>
        <property name="BackColor">16777215</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">9</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{359,93,394,26}</property>
        <property name="Name">[osoSayCR_COD_CLI]</property>
        <property name="Caption">[...]</property>
        <property name="Border">.T.</property>
        <property name="TabIndex">10</property>
      </style>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{335,93,16,16}</property>
        <property name="Name">[oboCR_COD_CLI]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">11</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('SCCRCLI','PSCCRCLI','M_CR_COD_CLI','N','N',8,34,'CR_NOME','@S25','','EXIBA',oCR_COD_CLI,osoSayCR_COD_CLI)]]>
      </method>
    </part>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{609,374,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">{694,374,90,28}</property>
      <property name="Name">[oOwnerbutton2]</property>
      <property name="Id">[IDCANCEL]</property>
      <property name="Caption">[&amp;Cancela]</property>
      <property name="TabIndex">1001</property>
      <property name="TabStop">.F.</property>
    </style>
  </part>
</part>
