jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
35 lines
918 B
Plaintext
35 lines
918 B
Plaintext
{
|
|
PROGRAMA : IPPRRP020
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
OBJETIVO : IMPRIMIR LAS REQUISICIONES APROBADAS PARA LA ORGANIZACION DE LOS CAMIONES
|
|
FECHA : 4/12/2010
|
|
}
|
|
|
|
GLOBALS
|
|
"ipprgb000.4gl"
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(4) RETURNING impresor
|
|
CONNECT TO "smarmotech" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias
|
|
CALL ipprrp020()
|
|
END MAIN
|
|
FUNCTION ipprrp020()
|
|
DEFINE requisicion RECORD
|
|
num_req INT,
|
|
fecha CHAR(10),
|
|
vendedor CHAR(60),
|
|
num_oc INT,
|
|
cotizacion_no INT,
|
|
cliente CHAR(80),
|
|
producto CHAR(50),
|
|
cantidad DEC(12,4),
|
|
mensaje TEXT
|
|
END RECORD
|
|
|
|
OPEN WINDOW w1 AT 5,7 WITH FORM "ipfmwd012"
|
|
INPUT BY NAME
|
|
END FUNCTION
|
|
|