RECIBOS;;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL zArea0 := lTrim(Str(Select(),4))
VARIAVEL zbOpenAll := {|| Abra_Arq("RECIBOS",,zArea0,r_siga) }
VARIAVEL znil := eVal( zbOpenAll )
VARIAVEL zbAction := {|bFunction| zRecnBrw:=Recno(), eVal(bFunction), eVal(zbOpenAll), DbGoTo(zRecnBrw), DobRefresh()}

variavel zbImprimeRecibo:={|| Relat('lst_exec("RECIBO_AVULSO_FR3")',"nb","NaoFecheNaSaida","X") , .t.}
variavel zbInsert:={||tb_insert(D_OB).and.(DbGoTo(zRecnBrw),.t.) .and. Alert("Imprime Recibo?",{"1.Sim","2.Nao"})=1 .and. eVal(zbAction, zbImprimeRecibo) }

// VARIAVEL zbClose:={|cAlias| Select(cAlias)>0 .and. ( (cAlias)->(DbCloseArea()), .t.) }
// COMANDO SAIDA znil = ( eVal(zbClose,'Cp_Divis'), eVal(zbClose,'Cp_SubD'), eVal(zbClose,'SccpFor') )
:TBMT
 22;eVal(zbAction, zbInsert);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 13;doget(D_ob);Enter-Edita ;
 73;eVal(zbAction, zbImprimeRecibo);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Data;DATA;D;;  8;;
Valor;VALOR;N;999999999.99; 14;;
Pagador;PAGADOR;C;@S35; 30;;
Referente;REFERENTE;M;@S30; 30;;
Obs;OBS;M;@S30; 20;;
Local;LOCAL;C;@S35; 35;;
Recebedor;RECEBEDOR;C;@S35; 35;;
Cpf/Cnpj Pagador;PAG_CNPJ;C;@S18; 18;;
Cpf/Cnpj Receb;REC_CNPJ;C;@S14; 14;;
Tipo;TIPO_P_R;C;x; 4;;
