36 lines
1.1 KiB
Plaintext
36 lines
1.1 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : VEFMWD101
|
|
OBJETIVO : Desplegar los vendedores (VEPRMT101)
|
|
REALIZADO POR : Lic. Abner Montalvo Z.
|
|
FECHA : Diciembre 7, 1992
|
|
--------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Captura Vendedor Para Este Cliente
|
|
\g-----------------------------------------------------
|
|
Cliente [c1][c2 ][n1 ]
|
|
\g-----------------------------------------------------
|
|
Vendedor Nombre
|
|
\g-----------------------------------------------------
|
|
[f1 ][f001 ]
|
|
[f1 ][f001 ]
|
|
[f1 ][f001 ]
|
|
[f1 ][f001 ]
|
|
}
|
|
end
|
|
tables
|
|
vetb00028
|
|
attributes
|
|
c1 = vetb00028.tipo_cliente,noentry;
|
|
c2 = vetb00028.sec_cliente,noentry;
|
|
n1 = formonly.nombre,noentry;
|
|
f1 = vetb00028.sec_vend,autonext;
|
|
f001 = formonly.nombre_v,noentry;
|
|
instructions
|
|
screen record s_vend[4] (sec_vend,nombre_v)
|
|
delimiters " "
|
|
end
|