<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{305,52,1024,598}</property>
    <property name="Name">[sccrcred.scr]</property>
    <property name="Caption">
[Informacoes de Credito de Clientes/Empresas Conveniadas]    </property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="Font">
      <font name="Verdana" width="0" height="-13" weight="400"/>
    </property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.F.</property>
    <property name="ScopeVarObj">[Private]</property>
    <property name="lClipper">.T.</property>
    <property name="lExitOnEnter">.F.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="FromStyle">[Center]</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">14215660</property>
    <property name="Icon">[]</property>
    <property name="Bitmap">[icon\tela.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.F.</property>
    <property name="Maximizebox">.T.</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="onDlgInit">
    <![CDATA[parameters oDlg
//skel VARIAVEL w_colsep = " "+chr(176)
//skel VARIAVEL z_xBlk = "Z_Sele:=Select(),"
//skel VARIAVEL z_xBlk = z_xBlk + "Z_CodCli:=Recno(),"
//skel VARIAVEL z_xBlk = z_xBlk + "ABRA('0RO',r_siga,'SCCRDUP','SCCRDUP','SCCRDUP','STRZERO(CR_COD_CLI,5)+DTOS(CR_DT_EMIS)'),"
//skel VARIAVEL z_xBlk = z_xBlk + "DbSeek(StrZero(Z_CODCLI,5)),"
//skel VARIAVEL z_xBlk = z_xBlk + "z_totaberto:=0,"
//skel VARIAVEL z_xBlk = z_xBlk + "DBEval( _CreateBlock('z_totaberto:=z_totaberto+if(day(cr_dt_lqd)=0,cr_valor,0)'),, _CreateBlock('z_codcli=cr_cod_cli'),,,.F.), "
//skel VARIAVEL z_xBlk = z_xBlk + "z_nil:=if(z_totaberto>0,Mensagem('O Cliente NAO PODE SER CANCELADO pois possui debitos em aberto...',1),SccrCli->(Tb_Del(W_dOb)) ),"
//skel VARIAVEL z_xBlk = z_xBlk + "SccrDup->(DbCloseArea()),"
//skel VARIAVEL z_xBlk = z_xBlk + "DbSelectArea(z_sele)"
//skel VARIAVEL z_blockPpo = _CreateBlock( z_xBlk )
//skel VARIAVEL z_xBlk = "Z_Sele:=Select(),"
//skel VARIAVEL z_xBlk = z_xBlk + "Z_CodTab:=cr_tabela,Z_Tabela:='VB_PR'+StrZero(Z_CodTab,2)+if(cr_TabGp='S','G','P'),"
//skel VARIAVEL z_xBlk = z_xBlk + "Z_TbBrow:='SE_PROM'+if(cr_TabGp='S','G','P'),"
//skel VARIAVEL z_xBlk = z_xBlk + 'z_fgcria:=!file(r_siga-z_Tabela-".dbf"),'
//skel VARIAVEL z_xBlk = z_xBlk + 'Iif(z_fgcria,Mensagem("Tabela Inexistente...Crie-a pela Opcao Precos Promocionais do Estoque...",1),NIL),'
//skel VARIAVEL z_xBlk = z_xBlk + 'Iif(!z_fgcria,Ferase(r_siga-z_Tabela-".nc"),NIL),'
//skel VARIAVEL z_xBlk = z_xBlk + 'Iif(!z_fgcria,Abra("0",R_SIGA,z_Tabela,"SE_PROM",z_Tabela-".nc",if(cr_TabGp="S","GRUPO","PCOD")),NIL),'
//skel VARIAVEL z_xBlk = z_xBlk + "Iif(!z_fgcria,Brow_Db(Z_TbBrow,.t.),NIL),"
//skel VARIAVEL z_xBlk = z_xBlk + 'Iif(!z_fgcria,Se_prom->(DbCloseArea()),NIL),'
//skel VARIAVEL z_xBlk = z_xBlk + "DbSelectArea(z_sele)"
//skel VARIAVEL z_BlkF9 = _CreateBlock( z_xBlk )
//skel VARIAVEL z_xBlk = ""
//skel VARIAVEL w_colsep = " "+chr(179)
oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,54,54)
hwg_TbMt(oToolbar,' 65;tb_update(D_OB);A-Altera ;A-Altera;;')
hwg_TbMt(oToolbar,'  7;Eval(Z_BlockPpo);Del-Exclui ;Del-Deleta;;')
hwg_TbMt(oToolbar,' 80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa;;')
d_ob:lEditable = .t.
hwg_TbMt(oToolbar,' 13;doget(D_ob);Enter-Altera ;Enter - Altera;;')
hwg_TbMt(oToolbar,' 79;tb_index(D_oB);O-Ordena ;O-Ordena;;')
hwg_TbMt(oToolbar,' 73;Lst_alias(D_OB);I-Imprime ;I-Imprime;;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,' 70;CiBrow("sccrdup",,"SCCRDPC2");F-Fechamentos ;F - Fechamentos;;')
hwg_TbMt(oToolbar,' 32;vb_ass_cli();Barra-Associados ;Barra - Associados;;')
hwg_TbMt(oToolbar,' 69;vb_dup_cli();E-Extrato ;E - Extrato;;')
hwg_TbMt(oToolbar,' -8;Eval(z_blkf9);F9-Tab_Prom ;F9 - Tab_Prom;;')
hwg_TbMt(oToolbar,' -7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;F8 - Extrato de Produtos;;')
hwg_TbMt(oToolbar,' 68;CiBrow("vb_opcdc",,"vb_opcdc");D-Descontos ;D - Descontos;;')
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;xml\icon\sair.ico;;;;;')
SetDlgKey(oDlg,8,26,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"UP"))})
SetDlgKey(oDlg,8,28,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"DOWN"))})
Hwg_EndMenu() 
]]>
  </method>
  <method name="onPaint">
    <![CDATA[Parameters oCtrl,hDC
oCtrl:bpaint:=NIL
D_oB:setFocus()]]>
  </method>
  <part class="status">
    <style>
      <property name="Geometry">{0,568,1024,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,80,1005,477}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="GridLinesSepColor">0</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onInit">
      <![CDATA[hwg_TbFi(D_oB, 'Cod;rec_del();C;99999x;6;N;')
hwg_TbFi(D_oB, 'Nome;Cr_nome;C;@s30;30;N;')
hwg_TbFi(D_oB, 'T;cr_tip_cli;C;9;1;N;')
hwg_TbFi(D_oB, 'Ov;cr_tip_des;N;99;2;N;')
hwg_TbFi(D_oB, 'Vd;CR_ZONA;C;99;2;N;')
hwg_TbFi(D_oB, 'Tb;cr_tabela;N;99;2;S;')
hwg_TbFi(D_oB, 'gp;cr_TabGp;C;x;2;S;')
hwg_TbFi(D_oB, 'Fone;Cr_fone;C;@s14;14;N;')
hwg_TbFi(D_oB, 'Rua;Cr_rua;C;@s35;35;N;')
hwg_TbFi(D_oB, 'Bairro;Cr_bairro;C;@s20;25;N;')
hwg_TbFi(D_oB, 'Ponto Ref;Cr_PONTORE;C;@s30;30;N;')
hwg_TbFi(D_oB, 'Contato;Cr_contato;C;@s15;15;N;')
hwg_TbFi(D_oB, 'CGC/CPF;Cr_cgc;C;@s18;18;N;')
hwg_TbFi(D_oB, 'Cidade;Cr_cidade;C;@s20;25;N;')
hwg_TbFi(D_oB, 'CEP;Cr_CEP;C;@s9;9;N;')
hwg_TbFi(D_oB, 'UF;Cr_UF;C;xx;2;N;')
hwg_TbFi(D_oB, 'Credcard;CR_CART2;C;@s20;20;N;')
D_oB:bColorSel:= RGB(3,23,133)
D_oB:tColorSel:= RGB(255,255,255)
D_oB:Alias := alias()
D_oB:lDisableVScrollPos := .t.
D_oB:bKeyDown := {|self, wParam| (aBrowses[nBrwAtivo,2])->(hwg_oDlgKey(self, wparam,1)) , .T. }
D_oB:bOther:={|o,m,wp,lp| MessagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"SCCRCRED",.F.,.T.,{||.T.} }
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
</part>
