primer commit subida

This commit is contained in:
Luis
2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
+39
View File
@@ -0,0 +1,39 @@
{
=============================================================================
FORMULARIO : IPFMWD009
OBJETIVO : Desplegar los codigos y nombres de la maestra de
clientes
PROGRAMA Q. LO USA : IPPRMT044
AUTOR : JUAN F. SOTO
FECHA : FEBRERO 6, 1999
=============================================================================
}
DATABASE marmotech
SCREEN
{
\g-----------------------------------------------\g
Codigo Nombre
\g-----------------------------------------------\g
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
[sp]-[cod ] [nom ]
}
end
tables
vetb00004
attributes
sp = vetb00004.tipo_cliente,comments = "Digite tipo Cliente";
cod = vetb00004.sec_cliente;
nom = vetb00004.nombre;
instructions delimiters " "
screen record s_cliente[8](tipo_cliente,sec_cliente,nombre)
end