{
============================================================================
 FORMULARIO          : CCFMRP016
 OBJETIVO            : Pantalla para la captura de valores para fines de im- 
                       presion de los registros de las partidas pendientes de  
                       cobros por vendedor a una fecha determinada (CCPRRP016)
 PROGRAMADOR         : Tadeo A. Ferreras          
 FECHA REALIZACION   : Julio 24, 1993       
============================================================================
}
database smarmotech    
LAYOUT (TEXT="ccprrp016 Partidas Pendientes de Cobros",STYLE="basic")
GRID

{

                                Corriente      [t          ]
   Tipo de Venta  [b]           Total 1-30     [t1         ]
   Fecha de Corte [c         ]  Total 31-45    [t2         ]
   Mayor o Igual A[d ]          Total 46-60    [t3         ]
   Vendedor       [v  ]         Total Mayor 60 [t4         ]   
   Cliente        [c1]-[c2    ] Total Saldo    [t5         ]
   [K]
                                
   0          50            100                               
  [p000                        ]                              
   
}
end
tables
cctb00001
vetb00002
ATTRIBUTES

K  = formonly.pflag;
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
b  = formonly.tipo_venta type char, autonext, 
     comments = "1 = Ventas Locales,  2 = Ventas de Exportacion"; 
c  = formonly.fecha_corte type date, autonext, format = "dd/mm/yyyy", 
     comments = "Digite la fecha de Corte del Reporte"; 
d  = formonly.dia1 TYPE INTEGER,comments = "Digite a que Cantidad de Dias";  
c1 = vetb00002.tipo_cliente,comments = "Digite el codigo del cliente";
c2 = vetb00002.sec_cliente,comments = "Digite el codigo del cliente";
v  = formonly.sec_vend;
t  = formonly.total0  type decimal(10,2),noentry;
t1 = formonly.total1 type decimal(10,2),noentry;
t2 = formonly.total2 type decimal(10,2),noentry;
t3 = formonly.total3 type decimal(10,2),noentry;
t4 = formonly.total4 type decimal(10,2),noentry;
t5 = formonly.total5 type decimal(10,2),noentry;
end