<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
<style>
<property name="Geometry">{   0,  13, 760, 493} </property>
<property name="Name">[SCCRCLI.scr]</property>
<property name="Caption">[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="ScopeVarObj">[Private]</property>
<property name="lClipper">.T.</property>
<property name="lExitOnEnter">.F.</property>
<property name="FromStyle">[Center]</property>
<property name="nBackColor">14215660</property>
<property name="Icon">[]</property>
<property name="NoIcon">.F.</property>
<property name="Modal">.F.</property>
<property name="SystemMenu">.T.</property>
<property name="Minimizebox">.T.</property>
<property name="Maximizebox">.T.</property>
<property name="AbsAlignment">.T.</property>
<property name="SizeBox">.T.</property>
<property name="Visible">.T.</property>
<property name="3DLook">.T.</property>
<property name="Clipsiblings">.F.</property>
<property name="Clipchildren">.F.</property>
</style>
<part class="panel">
<style>
<property name="Geometry">{   0,   0, 760,  63}</property>
<property name="Name">[oToolbar]</property>
<property name="Anchor">11</property>
</style>
</part>
<method name="onDlgInit"> <![CDATA[parameters oDlg
//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,'22;tb_insert(D_OB);Ins-Inclui ;INS - Inclui;smNew;')
hwg_TbMt(oToolbar,'65;tb_update(D_OB);A-Altera ;A - Altera;smOk;')
hwg_TbMt(oToolbar,'7;Eval(Z_BlockPpo);Del-Exclui ;DEL - Deleta;smTrash;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:top();Primeira;Primeira;smFirst;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:pageUp();Volta_Pag;Volta_Pag;smPrev;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:pageDown();Avanca_Pag;Avanca_Pag;smNext;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:bottom();Ultima;Ultima;smLast;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'80;tb_pesq(D_OB);P-Pesquisa ;P - Pesquisa;tb_pesq;')
hwg_TbMt(oToolbar,'79;tb_index(D_oB);O-Ordena ;O - Ordena;smAscend;')
hwg_TbMt(oToolbar,'73;Lst_alias(D_OB);I-Imprime ;I - Imprime;img_printer;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'69;vb_dup_cli();E-Extrato ;E - Extrato;_E;')
hwg_TbMt(oToolbar,'32;vb_ass_cli();Barra-Associados ;Barra - Associados;_Barra;')
hwg_TbMt(oToolbar,'-8;Eval(z_blkf9);F9-Tab_Prom ;F9 - Tab_Prom;_F9;')
hwg_TbMt(oToolbar,'70;CiBrow("sccrdup",,"SCCRDPC2");F-Fechamentos ;F - Fechamentos;_F;')
hwg_TbMt(oToolbar,'81;vb_quit_dupl(D_oB);Q-Quitacao ;Q - Quitacao;_Q;')
hwg_TbMt(oToolbar,'-7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;F8 - Extrato de Produtos;_F8;')
hwg_TbMt(oToolbar,'13;doget(D_ob);Enter-Altera ;Enter - Altera;_Enter;')
d_ob:lEditable = .t.
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;smExit3;')
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="browse">
<style>
<property name="Geometry">{   5,  63, 750, 400}</property>
<property name="Name">[D_oB]</property>
<property name="TabIndex">13</property>
</style>
<method name="onGetFocus"> <![CDATA[nBrwAtivo:=1]]> </method>
<method name="onInit"> <![CDATA[D_oB:bColorSel:= RGB(3,23,133)
D_oB:tColorSel:= RGB(255,255,255)
D_oB:bKeyDown := {|self, wParam| (aBrowses[nBrwAtivo,2])->(hwg_oDlgKey(self, wparam,1)) , .T. }
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, 'Bairro;Cr_bairro;C;@s12;12;S;')
hwg_TbFi(D_oB, 'Rua;Cr_rua;C;@s25;20;N;')
hwg_TbFi(D_oB, 'T;cr_tip_cli;C;9;1;N;')
hwg_TbFi(D_oB, 'Vd;CR_ZONA;C;99;2;N;')
hwg_TbFi(D_oB, 'Fone;Cr_fone;C;@s14;14;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, '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;')
hwg_TbFi(D_oB, 'Ult Comp;tv_desd(recno());C;@s9;9;;')
D_oB:Alias := alias()
D_oB:bOther:={|o,m,wp,lp| MessagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"SCCRCLI",.F.,.T.,{||.T.} }
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})]]> </method>
<method name="onSize"> <![CDATA[Parameters oCtrl,x,y 
oCtrl:move(,,x-10,y-95) ]]> </method>
</part>
<part class="status">
<style>
<property name="Geometry">{   0, 463, 760,  30}</property>
<property name="Name">[oStatus1]</property>
<property name="aParts">{ 608, 152,0}</property>
</style>
</part>
</part>
