62 lines
2.4 KiB
Plaintext
62 lines
2.4 KiB
Plaintext
{
|
|
=============================================================================
|
|
FORMULARIO : CPFMCS002
|
|
OBJETIVO : Creado para consultar maestra de suplidores
|
|
usado por CPPRCS002
|
|
AUTOR : Tadeo A. Ferreras
|
|
FECHA : Octubre 21, 1993
|
|
=============================================================================
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Codigo del Suplidor [k1]-[f000]
|
|
Nombre [f001 ]
|
|
Direccion [f002 ]
|
|
Ciudad [f003 ]
|
|
Pais [a0 ][k10 ]
|
|
Telefono [f004 ] Codigo de Area [a1 ] No. de Fax [f005 ]
|
|
Persona de Contacto [f006 ]
|
|
Terminos de Pago [f7] [l ]
|
|
[j]
|
|
Usuario Creador [f008 ] Usuario Modificador [f010 ]
|
|
Fecha Creacion [f009 ] Fecha Modificacion [f011 ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00001,cotb00024
|
|
attributes
|
|
k1 = cotb00001.cod_sp,picture = "##",autonext,
|
|
comments = "Codigo del Suplidor";
|
|
f000 = cotb00001.cod_sp_sec, picture="####",autonext,
|
|
comments="Codigo del Suplidor";
|
|
f001 = cotb00001.nom_sp, upshift,
|
|
comments="Nombre del Suplidor";
|
|
f002 = cotb00001.dir_sp, upshift,
|
|
comments="Direccion del Suplidor";
|
|
f003 = cotb00001.ciu_sp, upshift,
|
|
comments="Ciudad donde reside el suplidor";
|
|
a0 = cotb00001.cod_pais, picture="###",
|
|
comments="Codigo correspondiente al pais donde reside el suplidor";
|
|
k10 = formonly.nom_pais,noentry;
|
|
a1 = cotb00001.area_sp,
|
|
comments="Codigo de Area";
|
|
f004 = cotb00001.tel_sp, picture="XXX-XXXX",
|
|
comments="Numero telefonico del Suplidor";
|
|
f005 = cotb00001.fax_sp, picture="XXX-XXXX",
|
|
comments="Numero del Fax del Suplidor";
|
|
f006 = cotb00001.cont_sp, upshift,
|
|
comments="Nombre de la Persona de Contacto para fines de negocios";
|
|
f7 = cotb00001.term_sp,
|
|
comments="Condiciones de pagos que exige el suplidor";
|
|
l = cotb00024.descrip_term,noentry;
|
|
f008 = cotb00001.us_crea, noentry;
|
|
f009 = cotb00001.fech_crea, noentry;
|
|
f010 = cotb00001.us_mod, noentry;
|
|
f011 = cotb00001.fech_mod, noentry;
|
|
j = cotb00001.status_t, noentry;
|
|
instructions
|
|
delimiters " "
|
|
end
|
|
|