CADCLI;Relacao Geral de Clientes;sys_tbbrow;10;0;22;79;padrao;;eval(z_blkPpo);
//;clitv;eval(z_blkPpo);
:SKEL
VARIAVEL w_colsep = " "+chr(176)
VARIAVEL Z_XTELA = SAVESCREEN(3,0,9,79)
VARIAVEL z_blkPpo =            "Z_COR := SetColor('R/W'),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(3,0,9,79,0),DispBox(3,0,9,79),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut("Nome:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,8), DevOut(CR_NOME),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,61), DevOut("Dt Aniv:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,70), DevOut(CR_DT_ANI),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,2), DevOut("End.:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,8), DevOut(CR_RUA),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,50), DevOut(CR_CEP),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,8), DevOut(CR_BAIRRO),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,25), DevOut(CR_CIDADE),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(7,2), DevOut("P.Ref:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(7,9), DevOut(cr_pontore),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(7,55), DevOut("Fone:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(7,61), DevOut(CR_FONE),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(8,2), DevOut("CPF..:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(8,9), DevOut(CR_CGC),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(8,30), DevOut("RG.:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(8,35), DevOut(CR_RG),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
// 32;vb_venda("V","N",.F.,recno(),d_ob);Barra-Venda_Direta ;
// 22;tb_insert(D_OB);Ins-Cadastra ;
:TBMT
 13;(wFgVaiGerarNFC:=.t.,vb_venda("V","N",.F.,recno(),d_ob,"/PN/"),wFgVaiGerarNFC:=.f.);Enter-Prenota_NFC ;
 13;vb_venda("V","N",.F.,recno(),d_ob,"/PREVENDA/");Enter-Consulta_Precos ;
 72;vb_venda("V","N",.F.,recno(),d_ob,"/PREVENDA/","EPHARMA");H-ePharma ;
 71;vb_venda("V","N",.F.,recno(),d_ob,"/PREVENDA/","GARA");G-GaranteMed ;
 78;vb_venda("V","N",.F.,recno(),d_ob,"/PREVENDA/","NOVARTIS");N-ValeMais ;
 86;vb_venda("V","N",.F.,recno(),d_ob,"/PREVENDA/","VIDALINK");V-Prevenda_VidaLink ;
 90;eVal({||Vb_Venda("V","N",.F.,recno(),d_ob,"/FECHAMENTO/","VIDALINK"), DbCloseAll(), Abra_Arq("SCCRCLI")});Z-Fecha_VidaLink ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 76;tb_locate(D_OB);L-Localiza ;
 79;vb_venda("OTV","N",.F.,recno(),d_ob);O-Orcamento ;
 86;vb_venda("V","N",.t.,recno(),d_ob);V-Venda_pausada ;
 22;tb_insert(D_OB);Ins-Cadastra ;
 65;tb_update(D_OB);A-Altera;
 -7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
 69;vb_dup_cli();E-Extrato ;
 82;Eval(z_BlkR);R-Reclamacao ;
:TBFI
Fone;Cr_fone;C;@s10;10;;
Nome;Cr_nome;C;@s35; 30;N;
Ult Compra;tv_desd(recno());C;@s9;9;;
Bairro;Cr_bairro;C;@s14;14;;
Rua;Cr_rua;C;@s35;35;;
Bairro;Cr_bairro;C;@s14;14;;
T;cr_tip_cli;C;9;1;;
*;cr_situaca;C;!;1;S;
O;cr_tip_DES;N;9;1;;
Tb;cr_tabela;N;99;2;;
Cod;rec_del();C;X99999;6;;
Ponto Ref;Cr_PONTORE;C;@s30;30;;
Contato;Cr_contato;C;@s15;15;;
CGC/CPF;Cr_cgc;C;@s18;18;;
Cidade;Cr_cidade;C;@s20;25;;
CEP;Cr_CEP;C;@s9;9;;
UF;Cr_UF;C;xx;2;;
