CT_BRD;Lancamentos de Borderos;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL zFgCliClosed := (Select("SCCRCLI")=0)
VARIAVEL zbCli={|nCodCli|sccrcli->(DbGoto(nCodCli),cr_nome)}
variavel #TEXTO_FONTE
   se zFgCliClosed entao CT_BRD->(Abra_arq("sccrcli"))
   dbSetFilter({||cr_num_ped<>"   "},'cr_num_ped<>"   "')
   DbGoTop()
   //ONINIT
      hwg_TbFi(D_oB, 'Bord;BORDERO;N;999999;6;;')
      hwg_TbFi(D_oB, 'Data;DATA;D;;8;;')
      hwg_TbFi(D_oB, 'Prt;PORTADOR;N;99;3;;')
      hwg_TbFi(D_oB, 'CodCli;CR_COD_CLI;N;999999;6;;')
      hwg_TbFi(D_oB, 'NomeCli;eVal(zbCli,CR_COD_CLI);P;@S25;25;N;;')
      hwg_TbFi(D_oB, 'Titulo;CR_NUM_PED;C;@S10; 10;;')
      hwg_TbFi(D_oB, 'Valor;CR_VALOR;N;999999999.99; 14;;')
      hwg_TbFi(D_oB, 'Dt_Venc;CR_DT_VENC;D;;  8;;')
      hwg_TbFi(D_oB, 't;TRANS;C;x;  1;;')
      hwg_TbFi(D_oB, 'NossoNumBco;BNOSSONUM;N;99999999999;11;;')
      hwg_TbFi(D_oB, 'Controle;FNUMPED;N;9999999999; 10;;')
      hwg_TbFi(D_oB, '%TxMult;BMULTAAUTO;N;99.99;  7;;')
      hwg_TbFi(D_oB, '%TxJur;BJUROSMES;N;99.99;  7;;')
      hwg_TbFi(D_oB, 'Instrucoes;BINSTRUCOE;M;9Memo]; 10;;')
      hwg_TbFi(D_oB, 'db;BDIASBAIXA;N;99;  2;;')
      hwg_TbFi(D_oB, 'dp;BDIASPROT;N;99;  2;;')
   //ENDONINIT
   //ONDLGINIT
      oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
comando saida znil=if(zFgCliClosed.and.Select("sccrcli")>0, sccrcli->(DbCloseArea()), "")
// Id;NRECNO;N;99999999;  8;;
// TARIFA;TARIFA;N;99.99;  7;;
// Nome_Pagador;RET_SACADO;C;@S40; 40;;
// DtCredRet;RET_DTCRED;D;; 10;;
// ValorLiq;RET_VLCRED;N;999999999.99;12;;
// Bco;RET_BCOREC;N;999;3;;
// DtVencRet;RET_DTVENC;D;; 10;;
// Valor;RET_VALOR;N;999999999.99;12;;
// NossoNum_Banco;RET_NOSSON;C;@S20; 20;;
// Tarifa;RET_TARIFA;N;999.99; 6;;
// Encargos;RET_ENCARG;N;9999999.99;10;;
// IOF;RET_IOF;N;999999.99; 9;;
// CnpjCpf_Pag;RET_CNPJ;C;@S15; 15;;
// CmdEnv;ENV_CMD;C;xx;6;;
// CmdRet;RET_CMD;C;xx;6;;
// CodObs;RET_OBS;C;xx;6;;
// Ok?;RET_IsOk;C;xx;6;;
// AgRec;RET_AGREC;N;99999;5;;
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB,"CT_BRD_ALTER");A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 13;doget(D_ob);Enter-Edita ;
 32;EmailBoleto();Barra-Email ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;