Files
2026-09-22 20:38:51 -04:00

75 lines
2.9 KiB
Plaintext

{
---------------------------------------------------------------------------
FORMULARIO : LQFMMT001
OBJETIVO : Capturar las informaciones necesarias para
la liquidacion de importacion
PROGRAMA UTILI : lqprmt001
REALIZADO POR : Ing. Juan F. Soto
FECHA : Marzo 22, 1994.
---------------------------------------------------------------------------
}
SCHEMA decomarmol
TOOLBAR
ITEM nuevo (TEXT="Liquidacion", IMAGE="new", COMMENT="Nueva Liquidacion")
ITEM buscar (TEXT="Buscar Liquidacion", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="LIQUIDACION MERCANCIA", STYLE="basic")
GRID
{
<G "Generales" >
Orden No. [t1]-[f1 ] Suplidor [f2][f3 ][a ]
Fecha [f4 ] Reporte de Entrada [f10 ]
Status Orden: [b ] Factura Comercial [k1 ]
[c ] Prima [pr ]
[d ]
<G "Detalles" >
Cantidad Otros
Materiales... Recibida F O B Flete Impuesto Gastos
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
[f5 ][f6 ][f7 ][f8 ][imp ][ot ]
Descripcion: [e ][un ]
}
END
tables
cgtb00017,
cgtb00018
attributes
imp = cgtb00018.impuesto;
ot = cgtb00018.otros_g;
t1 = cgtb00017.tipo,comments =
"01- Materias Primas, 02- Productos Termiandos 03-Repuestos",
include = ("01","02","03"),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,
comments = "Para Busca Reportes Entradas Presione Ctrl-F";
f4 = cgtb00017.fecha,format = "dd/mm/yy";
c = formonly.s_liqui,noentry;
d = formonly.s_cerrada,noentry;
b = formonly.s_pagada,noentry;
k1 = cgtb00017.factura,autonext;
pr = cgtb00017.prima_us,required;
f5 = formonly.codigo type char,noentry;
e = formonly.descripcion type char,noentry;
f6 = cgtb00018.cantidad_oc,noentry;
un = formonly.unidad,noentry;
f7 = cgtb00018.fob;
f8 = cgtb00018.costo_flete;
instructions
screen record s_lq[7](codigo,cantidad_oc,fob,costo_flete,impuesto,otros_g)
delimiters " "
end