jsotoandClaude Opus 5.5
d8764b3bda
Merge de main (ipprrp013/014/046/053) con conflictos resueltos: - mbsERP.4pw: ipprrp014 conserva ambos 4rp y su 4fd. - bin/ipprrp014.4rp: columnas MARGEN/CLASIF. + titulo IPPRRP014. Programas agregados a mbsERP.4pw (53 compilan y enlazan con fgl602): - CONTABILIDAD GENERAL, ACTIVOS FIJOS, REPUESTOS; grupos nuevos TESORERIA, CHEQUES e INFORMATICA (segprmt001 = seguridad2.0/segprmt0001.4gl). - irdir copiado de 3.20 PROYECTOS/irdir a PROYECTO/irdir; helpers de PROYECTOS/otrodir en FUNCIONES_IR (departamento -> irdepartamento.4gl). - Fuentes mas nuevos de 3.20: edprrp118, edprrp080, acprrp010, cgprmt022. - FUNCIONES: GeneraEntradaDiario.4gl a la version 3.20 + costoLiquidacion.4gl. - Ajustes G6: existe duplicado en irprgb000, fakeData de 22 campos y answer2 en irprmt036/020 (ApiMaintainC), selectOutputSimple en irprcs008, schemas de forms a smarmotech, referencia declarada en cgprmt005. - cgprmt005 sigue sin enlazar: requiere funciones de EXTERIOR. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
74 lines
3.2 KiB
Plaintext
74 lines
3.2 KiB
Plaintext
{----------------------------------------------------------------------------
|
|
AUTOR: JUAN FCO SOTO
|
|
FECHA:
|
|
DECRIPCION: FORMATO DE PANTALLA PARA EL REPORTE DE ENTRADA
|
|
MODIFICA: ING. JOSE ALFREDO PAULINO
|
|
FECHA: 15 DE OCTUBRE DEL 1992
|
|
DESCRIPCION: ADAPTACION PARA SISTEMA DE INVENTARIO DE HERRAMIENTAS
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
|
|
screen size 24 by 80
|
|
{
|
|
Tipo Movimiento:[t ][t1 ]Doc. No. [f00 ]
|
|
\gp-------------------------------------------------------------------------q\g
|
|
\g|\gSuplidor:[p1]-[f01 ][a ] Orden de Compra:[f02 ] \g|\g
|
|
\gp-------------------------------------------------------------------------q\g
|
|
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ] \g|\g
|
|
\gb-------------------------------------------------------------------------d\g
|
|
C A N T I D A D Exceso o
|
|
Codigo Ordenada Recibida Diferencia Maquina
|
|
\gp---------------------------------------------------------------------------q\g
|
|
[b ] [f06 ][f07 ][c ] [ma ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
[b ] [f06 ][f07 ][c ] [ma ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
[b ] [f06 ][f07 ][c ] [ma ]
|
|
Descripcion: [g ] Unidad: [f08]
|
|
\gb---------------------------------------------------------------------------d\g
|
|
}
|
|
end
|
|
tables
|
|
|
|
irtb00006,
|
|
cotb00001,
|
|
irtb00002,
|
|
irtb00005
|
|
attributes
|
|
ma = irtb00006.maquina,noentry;
|
|
f00 = irtb00006.num_doc,
|
|
comments =
|
|
"Digite el Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
|
|
p1 = irtb00006.cod_sp,picture = "##",autonext,
|
|
comments = "Digite el Codigo del Suplidor";
|
|
f01 = irtb00006.cod_sp_sec,picture = "####",
|
|
comments = "Digite el Codigo del Suplidor";
|
|
f02 = irtb00006.orden_compra,
|
|
comments = "Digite el Numero de la Orden de Compras";
|
|
f03 = irtb00006.conduce_no,
|
|
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
|
f04 = irtb00006.fact_no,
|
|
comments = "Digite el Numero de la Factura del Suplidor";
|
|
f05 = formonly.fecha type date,format = "dd/mm/yy",
|
|
comments = "Digite la Fecha Correspondiente al Documento";
|
|
f06 = irtb00006.cantidad_1,
|
|
comments = "Digite la Cantidad Pedida ";
|
|
f07 = irtb00006.cantidad_2,
|
|
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
|
f08 = irtb00002.unidad_med,noentry;
|
|
a = cotb00001.nom_sp,noentry;
|
|
b = formonly.codigo,noentry;
|
|
c = formonly.diferencia, noentry;
|
|
g = irtb00002.descrip_esp,noentry;
|
|
t = irtb00006.cod_mov,autonext,
|
|
comments =
|
|
"Digite Codigo Movimiento de Entrada (01 - Local 02 - Exterior)",
|
|
include = (1 to 2);
|
|
t1 = irtb00005.descrip_mov,noentry;
|
|
INSTRUCTIONS
|
|
screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
|
|
descrip_esp,unidad_med,maquina)
|
|
delimiters " "
|
|
end
|