<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{362,93,885,357}</property>
    <property name="Name">[SCCPPEDG.tel]</property>
    <property name="Caption">[Pagamento Avulso]</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,osoSayCP_COD_FOR,osoSayCP_DIVISAO,osoSayCP_LOCAL}    </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="Icon">[]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</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 z_blkprefsubd={||x_div:=StrZero(m_CP_DIVISAO,3),m_CP_SUBDIV:=if(empty(m_CP_SUBDIV).or.left(m_CP_SUBDIV,3)<>x_div,x_div+'__',m_CP_SUBDIV),cp_subd->(DbSeek(x_div))}
//skel VARIAVEL z_blkdesc={||m_cp_desc:=if(empty(m_cp_desc),pad('Pgto '+alltrim(cp_divis->desc),len(m_cp_desc)),m_cp_desc),RefreshGetlist()}
//skel VARIAVEL z_divcompras = "T"
//skel VARIAVEL z_nil = DbSelectArea("SCCPPED")

//skel VARIAVEL #TEXTO_FONTE
//skel    se select("CP_SUBD") entao abra_arq("CP_SUBD")
//skel    se select("CP_DIVIS")=0 entao abra_arq("CP_DIVIS")
//skel    se .not. vb_caixa('CaixaAberto?') entao (Alert("Abra o Caixa antes de efetuar Retiradas!"), MyKeyb(Chr(27)) )
//skel #FIM_TEXTO_FONTE

//skel COMANDO ANTES m_si_numfech = if(type('s_cx_numfech')<>'U',s_cx_numfech,0)
//skel COMANDO ANTES M_CP_NUM_PED = "CX"+right(dtos(s_datual),6)
//skel COMANDO ANTES M_CP_DUPLIC = TIME()
//skel COMANDO ANTES M_CP_DT_EMIS= S_DATUAL
//skel COMANDO ANTES M_CP_DT_VENC= S_DATUAL
//skel COMANDO ANTES M_CP_DT_LQD = S_DATUAL
//skel COMANDO ANTES M_CP_LOCAL  = 6
//skel COMANDO ANTES M_CP_DATA = S_DATUAL
//skel COMANDO ANTES M_CP_HORA = TIME()
//skel COMANDO ANTES M_SI_CAIXA = S_VB_NCAIX
//skel COMANDO DEPOIS ZNIL = sccpped->(RegLock(), _FIELD->CP_VAL_LQD:=m_cp_valor, DBCOMMIT(), DBUNLOCK() )
//skel COMANDO DEPOIS znil = if(s_sys_paf, oECF:Sangria( StrTran(Str(m_CP_VALOR,10,2),'.',',') )  , '')

//skel COMANDO SAIDA zRecnBrw := sccpped->(Recno())

//skel COMANDO SAIDA z_nil = if(select("CP_SUBD")>0,cp_subd->(DbCloseArea()),"")
//skel COMANDO SAIDA z_nil = if(select("CP_DIVIS")>0,cp_divis->(DbCloseArea()),"")
//skel COMANDO SAIDA z_nil = if(select("SCCPPED")>0,SCCPPED->(DbCloseArea()),"")

//x COMANDO DEPOIS znil = if(!s_sys_paf, PrtBordero("RTF",,, "recibo_fornecedor.rtf", cr_cod_cli ), '')
//x VARIAVEL zbPrintRtf:={||m_fcli:=fCli,m_fNumPed:=fNumPed,m_PDIASLOCA:=30,m_fdataemi:=fDataEmi,m_fval:=fVal,m_fValLoca:=fValLoca, PrtFormRtf("locacao","doc",.f.)} 
//x VARIAVEL zBlPrtContrato={||Zrecn:=recno(),if(fValLoca>0,eVal(zbPrintRtf),Alert("O contrato so pode ser impresso em pedidos de Locacao")),eVal(zbOpenAll)}

SET(5,1960) ]]>
  </method>
  <part class="group">
    <style>
      <property name="Geometry">{6,3,875,309}</property>
      <property name="Name">[oGroup1]</property>
      <property name="TabIndex">1</property>
    </style>
    <part class="editbox">
      <style>
        <property name="Geometry">{126,102,117,30}</property>
        <property name="Name">[oCp_SubDiv]</property>
        <property name="varName">[m_Cp_SubDiv]</property>
        <property name="Transparent">.T.</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="cPicture">[99999]</property>
        <property name="nMaxLength">6</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">5</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[IF CHK_LASTKEY(5)
   RETURN .t.
ENDIF
IF .NOT. CP_SUBD->(DBSEEK(STRZERO(M_CP_DIVISAO,3)))
   osoSayCp_SubDiv:SetText("*Sem SubDivisao*")
   osoSayCp_SubDiv:Refresh()
   RETURN .t.
ENDIF
IF PSQ_BROW('CP_SUBD','PCPSUBDF','M_CP_SUBDIV','N','S',8,30,'DESC','@S18','',,oCP_SUBDIV,osoSayCP_SUBDIV)
   osoSayCp_SubDiv:SetText(Cp_SubD->DESC)
   RETURN .t.
ELSE
   RETURN .f.
ENDIF]]>
      </method>
      <method name="onGetFocus">
        <![CDATA[IF .NOT. eval(zbSubD)
   osoSayCp_SubDiv:SetText("*Sem SubDivisao*")
   osoSayCp_SubDiv:Refresh()
   RETURN .f.
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{126,24,80,30}</property>
        <property name="Name">[oCP_COD_FOR]</property>
        <property name="varName">[m_CP_COD_FOR]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="nMaxLength">5</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">6</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[PSQ_BROW('SCCPFOR','PSCCPFOR','M_CP_COD_FOR','N','N',8,26,'CP_NOME','@S30','',,oCP_COD_FOR,osoSayCP_COD_FOR)]]>
      </method>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{246,106,20,20}</property>
        <property name="Name">[oboCp_SubDiv]</property>
        <property name="BackColor">12632256</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">6</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('CP_SUBD','PCPSUBDF','M_CP_SUBDIV','N','S',8,30,'SDDESC','@S18','','EXIBA',oCP_SUBDIV,osoSayCP_SUBDIV)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{28,28,94,22}</property>
        <property name="Name">[oSayCP_COD_FOR]</property>
        <property name="Caption">[Fornecedor:]</property>
        <property name="Justify">[Right]</property>
        <property name="font">
          <font name="Lucida Sans" width="0" height="-16" weight="400"/>
        </property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{126,63,80,30}</property>
        <property name="Name">[oCP_DIVISAO]</property>
        <property name="varName">[m_CP_DIVISAO]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="nMaxLength">2</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">7</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[(Chk_LastKey(5).OR.PSQ_BROW('CP_DIVIS','PCPDIVIS','M_CP_DIVISAO','N','N',9,26,'DESC','@S25','',,oCP_DIVISAO,osoSayCP_DIVISAO)).AND.EVAL(z_blkdesc)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{14,67,108,22}</property>
        <property name="Name">[oSayCP_DIVISAO]</property>
        <property name="Caption">[Centro Custo:]</property>
        <property name="Justify">[Right]</property>
        <property name="font">
          <font name="Lucida Sans" width="0" height="-16" weight="400"/>
        </property>
        <property name="TabIndex">8</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{14,108,108,22}</property>
        <property name="Name">[oLabel1]</property>
        <property name="Caption">[SubDiv Custo:]</property>
        <property name="Justify">[Right]</property>
        <property name="font">
          <font name="Lucida Sans" width="0" height="-16" weight="400"/>
        </property>
        <property name="TabIndex">8</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{230,218,200,30}</property>
        <property name="Name">[oCP_VALOR]</property>
        <property name="varName">[m_CP_VALOR]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-19" weight="700"/>
        </property>
        <property name="Justify">[Right]</property>
        <property name="cPicture">[@e 999,999.99]</property>
        <property name="nMaxLength">10</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">9</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[RETURN Chk_LastKey(5).OR.m_cp_valor>0.or.(ALERT("Por favor, informe o valor do Pagamento avulso"),.f.)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{14,218,202,30}</property>
        <property name="Name">[oSayCP_VALOR]</property>
        <property name="Caption">[Valor do Pagamento:]</property>
        <property name="Justify">[Right]</property>
        <property name="font">
          <font name="Lucida Sans" width="0" height="-19" weight="400"/>
        </property>
        <property name="TabIndex">10</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{230,270,480,30}</property>
        <property name="Name">[oCP_DESC]</property>
        <property name="varName">[m_CP_DESC]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-19" weight="700"/>
        </property>
        <property name="FormatText">[UPPERCASE]</property>
        <property name="nMaxLength">30</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">11</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[eVal(z_blkdesc)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{91,270,125,30}</property>
        <property name="Name">[oSayCP_DESC]</property>
        <property name="Caption">[Comentario:]</property>
        <property name="Justify">[Right]</property>
        <property name="font">
          <font name="Lucida Sans" width="0" height="-19" weight="400"/>
        </property>
        <property name="TabIndex">12</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{231,24,398,30}</property>
        <property name="Name">[osoSayCP_COD_FOR]</property>
        <property name="Caption">[...]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="Border">.T.</property>
        <property name="TabIndex">15</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{231,63,398,30}</property>
        <property name="Name">[osoSayCP_DIVISAO]</property>
        <property name="Caption">[...]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="Border">.T.</property>
        <property name="TabIndex">16</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{270,102,363,30}</property>
        <property name="Name">[osoSayCp_SubDiv]</property>
        <property name="Caption">[...]</property>
        <property name="font">
          <font name="Lucida Sans Unicode" width="0" height="-16" weight="700"/>
        </property>
        <property name="Border">.T.</property>
        <property name="TabIndex">16</property>
      </style>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{209,34,20,20}</property>
        <property name="Name">[oboCP_COD_FOR]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">18</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('SCCPFOR','PSCCPFOR','M_CP_COD_FOR','N','N',8,26,'CP_NOME','@S30','','EXIBA',oCP_COD_FOR,osoSayCP_COD_FOR)]]>
      </method>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{208,73,20,20}</property>
        <property name="Name">[oboCP_DIVISAO]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">19</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('CP_DIVIS','PCPDIVIS','M_CP_DIVISAO','N','N',9,26,'DESC','@S25','','EXIBA',oCP_DIVISAO,osoSayCP_DIVISAO)]]>
      </method>
    </part>
    <part class="group">
      <style>
        <property name="Geometry">{639,10,236,190}</property>
        <property name="Name">[oGroup2]</property>
        <property name="TabIndex">1002</property>
      </style>
      <part class="editbox">
        <style>
          <property name="Geometry">{767,26,100,20}</property>
          <property name="Name">[oCP_NUM_PED]</property>
          <property name="varName">[m_CP_NUM_PED]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="nMaxLength">10</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">1</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.f.]]>
        </method>
      </part>
      <part class="editbox">
        <style>
          <property name="Geometry">{767,50,100,20}</property>
          <property name="Name">[oCP_DUPLIC]</property>
          <property name="varName">[m_CP_DUPLIC]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="nMaxLength">10</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">2</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.f.]]>
        </method>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{683,28,80,16}</property>
          <property name="Name">[oSayCP_NUM_PED]</property>
          <property name="Caption">[Lancamento]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">2</property>
        </style>
      </part>
      <part class="datepicker">
        <style>
          <property name="Geometry">{767,75,100,20}</property>
          <property name="Name">[oCP_DT_EMIS]</property>
          <property name="varName">[m_CP_DT_EMIS]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">3</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.F.]]>
        </method>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{729,52,34,16}</property>
          <property name="Name">[oSayCP_DUPLIC]</property>
          <property name="Caption">[Hora]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">3</property>
        </style>
      </part>
      <part class="datepicker">
        <style>
          <property name="Geometry">{767,99,100,20}</property>
          <property name="Name">[oCP_DT_VENC]</property>
          <property name="varName">[m_CP_DT_VENC]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">4</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.F.]]>
        </method>
        <method name="onLostFocus">
          <![CDATA[M_cp_dt_venc>=M_cp_dt_emis]]>
        </method>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{709,76,58,16}</property>
          <property name="Name">[oSayCP_DT_EMIS]</property>
          <property name="Caption">[Emissao]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">4</property>
        </style>
      </part>
      <part class="datepicker">
        <style>
          <property name="Geometry">{767,125,100,20}</property>
          <property name="Name">[oCP_DT_LQD]</property>
          <property name="varName">[m_CP_DT_LQD]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">5</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.F.]]>
        </method>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{685,100,79,16}</property>
          <property name="Name">[oSayCP_DT_VENC]</property>
          <property name="Caption">[Vencimento]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">5</property>
        </style>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{690,126,71,16}</property>
          <property name="Name">[oSayCP_DT_LQD]</property>
          <property name="Caption">[Liquidacao]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">6</property>
        </style>
      </part>
      <part class="editbox">
        <style>
          <property name="Geometry">{767,150,21,18}</property>
          <property name="Name">[osi_caixa]</property>
          <property name="varName">[m_si_caixa]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="nMaxLength">2</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">12</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.f.]]>
        </method>
      </part>
      <part class="editbox">
        <style>
          <property name="Geometry">{767,172,100,18}</property>
          <property name="Name">[osi_numfech]</property>
          <property name="varName">[m_si_numfech]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="600"/>
          </property>
          <property name="nMaxLength">6</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">13</property>
        </style>
        <method name="onGetFocus">
          <![CDATA[.f.]]>
        </method>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{724,149,38,16}</property>
          <property name="Name">[oSaysi_caixa]</property>
          <property name="Caption">[Caixa]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">13</property>
        </style>
      </part>
      <part class="label">
        <style>
          <property name="Geometry">{678,174,84,16}</property>
          <property name="Name">[oSaysi_numfech]</property>
          <property name="Caption">[Fechamento]</property>
          <property name="Justify">[Right]</property>
          <property name="font">
            <font name="Lucida Sans" width="0" height="-13" weight="400"/>
          </property>
          <property name="TabIndex">14</property>
        </style>
      </part>
    </part>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{657,314,100,40}</property>
      <property name="Name">[oOwnerbutton1]</property>
      <property name="Id">[IDOK]</property>
      <property name="Caption">[Confirma]</property>
      <property name="font">
        <font name="" width="0" height="-16" weight="700"/>
      </property>
      <property name="TabIndex">1000</property>
    </style>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{773,314,100,40}</property>
      <property name="Name">[oOwnerbutton2]</property>
      <property name="Id">[IDCANCEL]</property>
      <property name="Caption">[Cancela]</property>
      <property name="font">
        <font name="" width="0" height="-16" weight="400"/>
      </property>
      <property name="TabIndex">1001</property>
    </style>
  </part>
</part>
