{
-----------------------------------------------------------------------------
FORMULARIO      : CCFMMT001
OBJETIVO        : Captura la documentacion de los Recibos de Pago (CCPRMT001)
REALIZADO POR   : Ing. Betania Guerrero Perez
FECHA           : Enero 26, 1993
-----------------------------------------------------------------------------
}
SCHEMA smarmotech  
LAYOUT (TEXT="Movimientos Cuentas Por Cobrar",STYLE="basic")
GRID


{
<G Generales                                                                   >
   Cuenta    [n1      ][fg                        ]    Deposito     [dp      ]
   Tipo      [a0]  [t1                   ]  Numero de Documento       [f001  ]
   Cliente   [f2]- [f003] [b                             ]
   Vendedor  [f004][c                             ] Remanente   [re          ]
   Fecha     [f005      ]                           Valor Recibo[vr          ] 
   Comentario[co                                                             ]
   
<G Detalle                                                                     >
  <t t1                                                                       >
    [nnc   ]   [f006        ] [f009         ]  [pk1       ]   [f002         ]
    [nnc   ]   [f006        ] [f009         ]  [pk1       ]   [f002         ]
    [nnc   ]   [f006        ] [f009         ]  [pk1       ]   [f002         ]
    
<G Totales                                                                   >
         Balance Documento [f012         ]    Valor Recibo    [f011         ]
}
end
tables
cctb00001
attributes
co = formonly.comentario;
n1 = formonly.cuenta_no,comments="Digite cuenta asignada al banco";
dp = formonly.deposito,comments=
     "En caso de ser un pago, digite numero de deposito";
vr = formonly.valor_ctrl,required,comments = "Digite el Monto del Recibo o Dcto.";
fg = formonly.nombre_cta,noentry;
a0 = cctb00001.tipo_doc,autonext,upshift,include = ("PG","ND","DV","OC"),
 comments = "PG-Pago   ND-Nota Dr.  DV-DEVOLUCION DINERO OC-OTROS CREDITOS  ";
f011 = formonly.p_total,noentry;
f012 = formonly.nc_pend,noentry;
t1   = formonly.nombre_tipo,noentry;
f001 = cctb00001.num_doc,comments = "Digite Numero de Docuemnto";
f2 = cctb00001.tipo_cliente,autonext,default = 12,
   comments = "Presione Ctrl-W o Digite el codigo del cliente";
f003 = cctb00001.sec_cliente,autonext,
   comments = "Presione Ctrl-W o Digite el codigo del cliente";    
b = formonly.nom_cli,noentry;
f004 = cctb00001.cod_emp_sec,autonext,
   comments = "Presione Ctrl-W o Digite el codigo del vendedor";
c = formonly.nombre_emp,noentry;
f005 = cctb00001.fecha_orig,format = "dd/mm/yyyy";
pk1  = formonly.desc_p;
f006 = cctb00001.aplica_a, TITLE="Aplicaciones",comments = 
"Presione Ctrl-W Para Buscar Documentos Pendientes";
f009 = formonly.valor_pen,noentry,TITLE="Valor Pendiente";
f002 = formonly.valor_pag,TITLE="Valor a Pagar";
nnc  = formonly.num_nc type integer, TITLE="Avances";
re   = formonly.remanente;
instructions
 screen record s_recibo[3] (num_nc,aplica_a,valor_pen,desc_p,valor_pag)
 
 delimiters " "
end