//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 2; 0;14;56;Formas de Pagamento;;;;;
 2;07;15;23;70;Condicoes Para Concessao da Modalidade;;;;;
:SKEL
VARIAVEL zNil = IF(X_OPERACAO=1,DbGoBottom(),"")
VARIAVEL M_FPLANOPAG = IF(X_OPERACAO=1,fplanopag+1,fplanopag)
VARIAVEL V_PARCELAS = {}
VARIAVEL z_nil = IF(X_OPERACAO=2,critica_vd("PCLOAD",M_FPLANOPAG),"")
COMANDO ANTES M_PDATACAD = IF(DAY(M_PDATACAD)=0, S_DATUAL, M_PDATACAD)
COMANDO ANTES M_FPARCELAS= IF(M_FPARCELAS=0, 1, M_FPARCELAS)
COMANDO DEPOIS critica_vd("PCSAVE",M_FPLANOPAG)
COMANDO DEPOIS V_PARCELAS = {}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1; 2;Cod. do Plano:;N; 3;fplanopag;999;;psq_brow;vb_fpag;pvbfpag;S;S;;;;;
 1; 2; 2;Descricao....:;C;35;PDESC;@!35;;;;;N;; 0; 0;;;
 1; 4; 2;Cadastrada Em:;D; 8;PDATACAD;;.F.;;;;N;; 0; 0;;;
 1; 4;32;Valida Ate:;D; 8;PDATAPROG;;;;;;N;; 0; 0;;;

 1; 6; 2;Tipo de Venda:;N; 1;FTIPOVEN;9;;lastkey()=5.or.psq_brow;vb_fpag0;pvbfpag0;N;N; 6;21;pdesc;@s15;
 1; 6;40;Parcelas:;N; 2;FPARCELAS;99;M_FTIPOVEN=5;m_FPARCELAS=0.or.critica_vd("PCPLANO",m_fparcelas);;;N;; 0; 0;;;

 1; 8; 2;Desconto Minimo Automatico....:;N;6;PDESCONTO;999.99;;;;;N;; 0; 0;;;
 1; 9; 2;Desconto Maximo Permitido.....:;N;6;FDESCONTO;999.99;;;;;N;; 0; 0;;;
 1;10; 2;Prazo Maximo Permitido........:;D; 8;FBOMPARA;;;;;;N;; 0; 0;;;

 2; 2; 2;Valido Apenas para Vendas a Partir de :;N;12;FVAL;9999999.99;;;;;N;; 0; 0;;;
 2; 3; 2;Valido Apenas para Cheques do Banco   :;N; 3;FBANCO;999;;;;;N;; 0; 0;;;
 2; 4; 2;Valido Apenas para Cartao de Credito  :;N; 3;FCARTAO;999;;;;;N;; 0; 0;;;
 2; 5; 2;Quantidade Minima de Produtos Vendidos:;N; 4;FTOTPROD;9999;;;;;N;; 0; 0;;;
 2; 6; 2;Quantidade Minima de Unidades         :;N; 6;FTOTUNID;999999;;;;;N;; 0; 0;;;
 2; 7; 2;Valido Apenas para Vendas TeleVendas  :;C; 2;FTV;xx;;;;;N;; 0; 0;;;
 2; 8; 2;Valido Apenas para os Clientes Tipo   :;C; 1;CR_TIP_CLI;x;;;;;N;; 0; 0;;;
 2; 9; 2;Valido Apenas para o Seguinte Cliente :;N; 6;FCLI;999999;;;;;N;; 0; 0;;;

 2;11; 2;Concede Descontos do Sacrificio de ate.....:;C; 1;FDSCprod;x;;;;;N;; 0; 0;;;
 2;12; 2;Repassa Descontos Recebidos nas compras ate:;C; 1;FDSCcomp;x;;;;;N;; 0; 0;;;
 2;13; 2;Desconto Minimo Geral a Conceder...........:;C; 1;FDSCminim;x;;;;;N;; 0; 0;;;
 2;15; 2;Observacoes Gerais.:;M;10;CR_OBS;9Memo];;Editor(@m_cr_obs,"",5,40,20,75);;;N;;0;0;;;
