{
---------------------------------------------------------------------------
FORMULARIO      : CGFMMT007
OBJETIVO        : Capturar las informaciones necesarias para
                  la liquidacion de importacion
PROGRAMA UTILI  : cgprmt007
REALIZADO POR   : Ing. Juan F. Soto
FECHA           : Marzo 22, 1994.
---------------------------------------------------------------------------
}
SCHEMA smarmotech
screen size 24 by 80
{
Orden No.[t1][f1    ] Suplidor [f2][f3  ][a                              ]
Fecha    [f4        ] Reporte de Entrada [f10    ]
Status Orden:[b          ][c          ][d          ]
Factura Comercial [k1          ]
\g---------------------------------------------------------------------------\g
                                            Cantidad                 Costo &
   Materiales...                            Ordenada     F O B       Flete
\g---------------------------------------------------------------------------\g
[f5        ][e                         ][f6          ][f7        ][f8        ]
[f5        ][e                         ][f6          ][f7        ][f8        ]
[f5        ][e                         ][f6          ][f7        ][f8        ]
[f5        ][e                         ][f6          ][f7        ][f8        ]
}
tables
cgtb00017,
cgtb00018
attributes
t1 = cgtb00017.tipo,comments = 
"01- Generales  02- Rov-Ltd  03- Locales  04- Miscelaneas",
include = ("01","02","03","04"),autonext;
f1 = cgtb00017.num_oc,autonext;
a  = formonly.nombre_sp,noentry;
f2 = cgtb00017.cod_sp,noentry; 
f3 = cgtb00017.cod_sp_sec,noentry;
f10 = cgtb00017.rep_entrada,autonext;
f4 = cgtb00017.fecha,noentry,format = "dd/mm/yyyy";
c  = formonly.s_liqui,noentry;
d  = formonly.s_cerrada,noentry;
b  = formonly.s_pagada,noentry;
k1 = cgtb00017.factura,autonext;
 
f5 = formonly.codigo type char,noentry;
e  = formonly.descripcion type char,noentry;
f6 = cgtb00018.cantidad_oc,noentry;
f7 = cgtb00018.fob,noentry;
f8 = cgtb00018.costo_flete;
instructions
 screen record s_lq[4](codigo,descripcion,cantidad_oc,fob,costo_flete)
 delimiters " "
end