Abel LópezandClaude Sonnet 5
a37d0336b5
- Registrar coprrp001/cofmrp001 en mbsERP.4pw - Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl - Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl - Corregir mascaras PICTURE de codigo en coprcs009.4gl - Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo - Corregir typo de base de datos en cofmwd016.per Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
51 lines
2.0 KiB
Plaintext
51 lines
2.0 KiB
Plaintext
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Orden [f000 ] Tipo [a0] Fecha [f001 ] Via [a2 ]
|
|
Codigo Suplidor [f2][f003] [a1 ]
|
|
Puerto [p4 ] [p2 ] Cierre [n]
|
|
Pago [m] Fecha [f009 ] Enviada [l] Fecha [f008 ]
|
|
\g-----------------------------------------------------------------------------\g
|
|
Requi. Codigo Cantidad Precio Valor
|
|
\g-----------------------------------------------------------------------------\g
|
|
[r1 ][c1 ][c2 ] [p1 ][v1 ]
|
|
[r1 ][c1 ][c2 ] [p1 ][v1 ]
|
|
[r1 ][c1 ][c2 ] [p1 ][v1 ]
|
|
[r1 ][c1 ][c2 ] [p1 ][v1 ]
|
|
Descripcion [d1 ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00014, cotb00015,cotb00024,
|
|
cotb00001
|
|
attributes
|
|
f000 = cotb00014.num_oc,autonext,noentry;
|
|
a0 = cotb00014.tipo,upshift,autonext,noentry;
|
|
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",noentry;
|
|
f2 = cotb00014.cod_sp,autonext,noentry;
|
|
f003 = cotb00014.cod_sp_sec,autonext,noentry;
|
|
a1 = cotb00001.nom_sp,noentry;
|
|
a2 = cotb00014.via,noentry;
|
|
l = cotb00014.enviada, noentry;
|
|
f008 = cotb00014.fech_enviada, format = "dd/mm/yy",noentry;
|
|
m = cotb00014.pago, noentry;
|
|
f009 = cotb00014.fech_pago, format = "dd/mm/yy",noentry;
|
|
n = cotb00014.cierre, noentry;
|
|
p4 = formonly.cod_pt,noentry;
|
|
p2 = formonly.descrip3,noentry;
|
|
|
|
r1 = cotb00015.num_req,noentry,
|
|
comments =
|
|
"Precione Ctrl-B Busca Descripcion";
|
|
c1 = formonly.codigo,noentry;
|
|
c2 = cotb00015.cantidad,right,noentry;
|
|
p1 = cotb00015.precio,right,noentry;
|
|
v1 = formonly.valor,right,noentry;
|
|
d1 = formonly.descrip5,noentry;
|
|
instructions
|
|
delimiters " "
|
|
screen record cs_orden[4] (num_req,codigo,cantidad,
|
|
precio,valor)
|
|
end
|