SCCRCLI;Clientes/Empresas Conveniadas;sys_tbbrow; 8; 2;20;77;clientes;;
//WINDOWS 1;1;278;75;Tecle Esc para Retornar;0;0;0;0;S;
:SKEL
VARIAVEL w_colsep = " "+chr(176)
VARIAVEL z_xBlk = "Z_Sele:=Select(),"
VARIAVEL z_xBlk = z_xBlk + "Z_CodCli:=Recno(),"
VARIAVEL z_xBlk = z_xBlk + "ABRA('0RO',r_siga,'SCCRDUP','SCCRDUP','SCCRDUP','STRZERO(CR_COD_CLI,5)+DTOS(CR_DT_EMIS)'),"
VARIAVEL z_xBlk = z_xBlk + "DbSeek(StrZero(Z_CODCLI,5)),"
VARIAVEL z_xBlk = z_xBlk + "z_totaberto:=0,"
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.), "
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)) ),"
VARIAVEL z_xBlk = z_xBlk + "SccrDup->(DbCloseArea()),"
VARIAVEL z_xBlk = z_xBlk + "DbSelectArea(z_sele)"
VARIAVEL z_blockPpo = _CreateBlock( z_xBlk )
**  7;tb_del(d_ob);Del-Exclui ;
VARIAVEL z_xBlk = "Z_Sele:=Select(),"
VARIAVEL z_xBlk = z_xBlk + "Z_CodTab:=cr_tabela,Z_Tabela:='VB_PR'+StrZero(Z_CodTab,2)+if(cr_TabGp='S','G','P'),"
VARIAVEL z_xBlk = z_xBlk + "Z_TbBrow:='SE_PROM'+if(cr_TabGp='S','G','P'),"
VARIAVEL z_xBlk = z_xBlk + 'z_fgcria:=!file(r_siga-z_Tabela-".dbf"),'
VARIAVEL z_xBlk = z_xBlk + 'Iif(z_fgcria,Mensagem("Tabela Inexistente...Crie-a pela Opcao Precos Promocionais do Estoque...",1),NIL),'
VARIAVEL z_xBlk = z_xBlk + 'Iif(!z_fgcria,Ferase(r_siga-z_Tabela-".nc"),NIL),'
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),'
VARIAVEL z_xBlk = z_xBlk + "Iif(!z_fgcria,Brow_Db(Z_TbBrow,.t.),NIL),"
VARIAVEL z_xBlk = z_xBlk + 'Iif(!z_fgcria,Se_prom->(DbCloseArea()),NIL),'
VARIAVEL z_xBlk = z_xBlk + "DbSelectArea(z_sele)"
VARIAVEL z_BlkF9 = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = ""
VARIAVEL w_colsep = " "+chr(179)
:TBMT
 13;doget(D_ob);Enter-Altera ;
  7;Eval(Z_BlockPpo);Del-Exclui ;
 32;vb_ass_cli();Barra-Associados ;
 65;tb_update(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 69;vb_dup_cli();E-Extrato ;
 70;CiBrow("sccrdup",,"SCCRDPC2");F-Fechamentos ;
 81;vb_quit_dupl(D_oB);Q-Quitacao ;
 79;tb_index(D_oB);O-Ordena ;
 73;Lst_alias(D_OB);I-Imprime ;
 -7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
 -8;Eval(z_blkf9);F9-Tab_Prom ;
:TBFI
Cod;rec_del();C;99999x;6;N;
Nome;Cr_nome;C;@s30;30;N;
T;cr_tip_cli;C;9;1;N;
Ov;cr_tip_des;N;99;2;N;
Vd;CR_ZONA;C;99;2;N;
Fone;Cr_fone;C;@s14;14;N;
Tb;cr_tabela;N;99;2;S;
gp;cr_TabGp;C;x;2;S;
Rua;Cr_rua;C;@s35;35;N;
Bairro;Cr_bairro;C;@s20;25;N;
Ponto Ref;Cr_PONTORE;C;@s30;30;N;
Contato;Cr_contato;C;@s15;15;N;
CGC/CPF;Cr_cgc;C;@s18;18;N;
Cidade;Cr_cidade;C;@s20;25;N;
CEP;Cr_CEP;C;@s9;9;N;
UF;Cr_UF;C;xx;2;N;
Credcard;CR_CART2;C;@s20;20;N;
