SCCRCLI;Clientes/Empresas Conveniadas;sys_tbbrow; 3; 0;23;79;clientes;;
//WINDOWS 1;1;278;75;Tecle Esc para Retornar;0;0;0;0;S;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
variavel ztEmi=0
variavel ztVc=0
variavel ztAv=0
variavel z_BlkF9 = #TEXTO_FONTE
   Private zSele:=Select(), zCodTb:=cr_tabela, zTabFile:='VB_PR'+StrZero(zCodTb,2)+if(cr_TabGp='S','G','P'), zTbBrow:='SE_PROM'+if(cr_TabGp='S','G','P')
   if xFile(R_siga+zTabFile-".dbf")
      Abra("0",R_SIGA,zTabFile,"SE_PROM",zTabFile,if(cr_TabGp="S","GRUPO","PCOD"))
      Brow_Db(zTbBrow,.t.)
      Se_prom->(DbCloseArea())
   else
      Alert("Tabela Inexistente...Crie-a pela Opcao Precos Promocionais do Estoque...")
   endif
   DbSelectArea(zSele)
#FIM_TEXTO_FONTE

variavel zBlkDelete = #TEXTO_FONTE
   if Alert( "Confirma cancelar ficha do cliente ("+Str(SccrCli->Cr_Cod_Cli,6)+") "+AllTrim(SccrCli->Cr_Nome)+" ?",{"1.Sim","2.Nao"},"B/W")=1
      DebCli(SccrCli->Cr_Cod_Cli,,,@ztEmi)
      // if ztEmi=0 .or. UserIsAdmin()
      if ztEmi=0
         SccrCli->(Tb_Del(W_dOb))
      else
         Alert("O Cliente "+AllTrim(SccrCli->Cr_Nome)+" NAO PODE SER CANCELADO pois possui Emissoes...")
      endif
   endif
#FIM_TEXTO_FONTE

variavel zBlkCompras = #TEXTO_FONTE
   Private m_fcli:=if(Cr_Cod_Cli=0.or.Cr_Cod_Cli<>Recno(),Recno(),Cr_Cod_Cli)
   if Cr_Cod_Cli<>Recno()
      alert('Cr_Cod_Cli<>Recno()')
   endif
   DebCli(m_fcli,.t.,,@ztEmi,@ztVc,@ztAv)
   if ztEmi=0
      Alert("O Cliente ("+Str(SccrCli->Cr_Cod_Cli,6)+") "+AllTrim(SccrCli->Cr_Nome)+" nao possui Emissoes no Cadastro de Duplicatas...",,"R/W")
   else
      ABRA("0NOIDX", r_siga, "sf_vend", "sf_vend")
      DbSelectArea("_duplcli")
      dbCreateIndex( "_duplcli", 'if(day(cr_dt_lqd)=0,"0","1")+Str(99999999-Val(Dtos(Cr_Dt_Lqd)))', {||if(day(cr_dt_lqd)=0,"0","1")+Str(99999999-Val(Dtos(Cr_Dt_Lqd)))} )
      __SetCentury("off")
      DbSetFilter({||!(left(cr_num_ped,2)$'/CX/CZ/').or.day(Cr_Dt_Lqd)=0},"!cr_num_ped")
      DbGoTop()

      brow_db("SCCRDUP_CLI1",.t.)
      _duplcli->(DbCloseArea())
      DbDrop("mem:_crdup")
      sf_vend->(DbCloseArea())
      DbSelectArea("SccrCli")
   endif
#FIM_TEXTO_FONTE

// 68;vb_opcdc();D-Descontos ;
// COMANDO ANTES DBSEEK("A")
:TBMT
 13;doget(D_ob);Enter-Altera ;
  7;Eval(zBlkDelete, Cr_Cod_Cli);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;eVal(zBlkCompras);E-Extrato ;
 68;vb_opcdc();D-Descontos;
 81;vb_quit_dupl(D_oB);Q-Quitacao ;
 79;tb_index(D_oB);O-Ordena ;
 73;Lst_alias(D_OB);I-Imprime ;
 -7;eVal(zbCloseDup),Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
 -8;Eval(z_blkf9);F9-Tab_Prom ;
 47;PrtBordero("RTF", , , "duplicata.rtf", cr_cod_cli );/-Duplicatas_rtf ; 
 92;PrtBordero("RTF", , , "carne.rtf",     cr_cod_cli );\-Carnes_rtf ; 
 74;PrtBordero("PDF", , , "duplicata.pdf", cr_cod_cli );J-BOLETOS_pdf ; 
 75;PrtBordero("HTM", , , "duplicata.htm", cr_cod_cli );K-BOLETOS_htm ; 
:TBFI
CodCli;if(Cr_Cod_Cli=0,rec_del(),Cr_Cod_Cli);N;999999;6;N;
Nome;Cr_nome;C;@s20;20;N;
Bairro;Cr_bairro;C;@s12;12;S;
Ult Comp;tv_desd(recno());C;@s9;9;;
Rua;Cr_rua;C;@s25;20;N;
T;cr_tip_cli;C;9;1;N;
Vd;CR_ZONA;C;99;2;N;
Cod;cr_cod_cli;N;999999;6;N;
Fone;Cr_fone;C;@s14;14;N;
Tb;cr_tabela;N;99;2;S;
gp;cr_TabGp;C;x;2;S;
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;
Fantasia;Cr_fantasi;C;@s30;30;N;