PLANOS;Planos de Pagamento;sys_tbbrow; 8; 0;23;79;padrao;;
:SKEL
VARIAVEL zbExpande = {||wFiltraParcelas:=.f.,DbClearFilter(),DbGoTop(),d_ob:Refresh(),d_ob:SetFocus()}
VARIAVEL zbFormaDiv = {||if(fParcFinal=fParcInic,"","ate "+Str(fParcFinal,3)+" x "+lTrim(Transform(if(fValLiq>0,fValLiq,FVAL)/fParcFinal,"@e 999,999.99")))}
:TBMT
13;ProcessaEscolhaDaListaDePlanos();Enter-Pede_Valor_Pago ;
32;ProcessaEscolhaDaListaDePlanos(.f.);Barra-Confirma_Venda ; 
85;ProcessaEscolhaDaListaDePlanos(,"DigitarProdutos");U-Produtos ;
68;PAF_DadosConsumidor();D-Dados_Consumidor ;
71;Senhad();G-Gerencial ;
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 ;
:TBFI
Pl;FPLANOPAG;N;999;  3;;
Descricao;PDESC;C;@S35; 30;;
Val_Liquido;fValLiq;N;999,999.99;10;;
Parcelamento;eVal(zbFormaDiv);C;@S25;16;;
ValProds;fValProd;N;9999.99; 7;;
Recalc;Changed;C;X; 6;;
ValVenda;fVal;N;9999.99; 7;;
DscProds;fValDscPrd;N;9999.99; 7;;
**;FDSCADIC;N;9999.99; 7;;
*;if(FDSCADIC>0,"*","");C;!; 1;;         