85 lines
2.5 KiB
Plaintext
85 lines
2.5 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------
|
|
PROGRAMA : CCPRMT012
|
|
OBJETIVO : AUTORIZACION ORDENES
|
|
PROGRAMADOR : JUAN SOTO
|
|
FECHA REALIZACION : SEPTIEMBRE 25, 2008
|
|
-----------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ccprgb000.4gl"
|
|
|
|
MAIN
|
|
# WHENEVER ERROR CONTINUE
|
|
DEFER INTERRUPT
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL pantalla()
|
|
CALL ccprmt012()
|
|
END MAIN
|
|
|
|
FUNCTION ccprmt012()
|
|
|
|
DEFINE p_user CHAR(9)
|
|
DEFINE luz CHAR(5)
|
|
DEFINE arrautoriza [500] OF RECORD
|
|
num_oc1 INTEGER,
|
|
cliente CHAR(60),
|
|
fecha_oc DATE,
|
|
valor DEC(12,2)
|
|
us_autoriza CHAR(40),
|
|
estado CHAR(2),
|
|
fecha_autorizacion DATE
|
|
END RECORD
|
|
|
|
OPTIONS
|
|
FORM LINE 10,
|
|
ERROR LINE 24
|
|
|
|
OPEN FORM ccfmmt012 FROM "ccfmmt012"
|
|
DISPLAY FORM ccfmmt012
|
|
|
|
CONSTRUCT BY NAME criterio ON a.num_oc
|
|
|
|
IF int_flat THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
|
|
LET selec = "SELECT a.num_oc,a.tipo_cliente||'-'||a.sec_cliente||' '||b.nombre,a.fecha_oc,a.valor,a.us_autoriza,",
|
|
"a.estado,a.fecha_autorizacion ",
|
|
" FROM prtb00025 a,vetb00004 b ",
|
|
"WHERE ",criterio clipped,
|
|
" AND a.tipo_cliente = b.tipo_cliente and a.sec_cliente = b.sec_cliente ",
|
|
" ORDER BY a.fecha_oc DESC"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE busca_orden CURSOR FOR comando
|
|
LET idx = 1
|
|
FOREACH busca_orden INTO arrautoriza[idx].*
|
|
LET idx = idx +1
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
INPUT ARRAY arrautoriza WITHOUT DEFAULTS FROM sorden.*
|
|
LET pdescripcion = "LA ",arrautoriza[idx].num_oc," SE AUTORIZO EL DESPACHO EN FECHA ",arrautoriza[idx].
|
|
INSERT INTO prtb00026 (num_oc,fecha,dscripcion)
|
|
END FUNCTION
|
|
|
|
|
|
FUNCTION pantalla()
|
|
DEFINE fecha CHAR(8),
|
|
hora char(5)
|
|
LET fecha = today USING "dd/mm/yy"
|
|
LET hora = time
|
|
|
|
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
|
|
DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
|
|
DISPLAY "Sistema de Cuentas por Cobrar" AT 5,25
|
|
DISPLAY hora AT 6,73 ATTRIBUTE(blue)
|
|
|
|
CALL fgl_drawbox(5,79,3,1)
|
|
#CALL fgl_drawbox(1,79,22,1)
|
|
END FUNCTION
|
|
|