ARR_VPAR;Planos de Pagamento;sys_tbbrow; 8; 0;23;79;arrpadrao;;
:SKEL
VARIAVEL zbNomeFp = {|zfp|if(zfp='CH','Cheque',if(zfp='CT','Cartao',if(zfp='CV','Convenio',if(zfp='CA','Carne',if(zfp='FP','F Popular',if(zfp='ES','Especie','Outras'))))))}
:TBMT
:TBFI
Num;vParcPlano[nrow,6];N;999;3;;
FormaPag;vParcPlano[nrow,1]+' '+eval(zbNomeFp,vParcPlano[nrow,1]);C;@S20;15;;
Parcela;vParcPlano[nrow,2];N;9999.99; 7;;
BomPara;vParcPlano[nrow,3];D;99.99.9999;10;;
Complemento;vParcPlano[nrow,4];C;@S20;10;;