{
---------------------------------------------------------------------------
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