166 lines
4.5 KiB
Plaintext
166 lines
4.5 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
PROGRAMA : TEPRMT022
|
|
OBJETIVO : ASIGNAR COMISION DE UN VENDEDOR A OTRO
|
|
PROGRAMADOR : JUAN F. SOTO
|
|
FECHA : JUNIO 6, 1997.
|
|
------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"ccprgb000.4gl"
|
|
DEFINE regi INTEGER,
|
|
p_param CHAR(1)
|
|
|
|
MAIN
|
|
# WHENEVER ERROR CONTINUE
|
|
DEFER INTERRUPT
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL pantalla()
|
|
CALL ccprmt011()
|
|
END MAIN
|
|
|
|
|
|
FUNCTION ccprmt011()
|
|
DEFINE vende_de,vende_a SMALLINT,
|
|
nombre,apellido CHAR(20),
|
|
nombre1,nombre2 CHAR(40)
|
|
|
|
OPTIONS
|
|
ERROR LINE 24,
|
|
FORM LINE 8
|
|
|
|
CALL pantalla()
|
|
DISPLAY "Asignar Comision De Un Vendedor A Otro" AT 6,20 ATTRIBUTE(BLACK)
|
|
|
|
OPEN FORM ccfmmt011 FROM "ccfmmt011"
|
|
DISPLAY FORM ccfmmt011
|
|
|
|
INPUT BY NAME vende_de,vende_a
|
|
|
|
AFTER FIELD vende_de
|
|
IF vende_de IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD vende_de
|
|
END IF
|
|
SELECT nom1_emp,apell1_emp INTO nombre,apellido
|
|
FROM adtb00003
|
|
WHERE num_emp = vende_de
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD vende_de
|
|
END IF
|
|
LET nombre1 = nombre CLIPPED," ",apellido
|
|
DISPLAY BY NAME nombre1
|
|
|
|
AFTER FIELD vende_a
|
|
IF vende_a IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD vende_a
|
|
END IF
|
|
LET nombre = NULL
|
|
LET apellido = NULL
|
|
|
|
SELECT nom1_emp,apell1_emp INTO nombre,apellido
|
|
FROM adtb00003
|
|
WHERE num_emp = vende_a
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD vende_a
|
|
END IF
|
|
|
|
LET nombre2 = nombre CLIPPED," ",apellido
|
|
DISPLAY BY NAME nombre2
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
DISPLAY "En Proceso... Por Favor Espere" AT 16,10
|
|
|
|
CREATE TEMP TABLE tetmp1
|
|
(
|
|
sec_vend smallint,
|
|
cod_n smallint,
|
|
cod_grupo smallint,
|
|
cod_tipo smallint,
|
|
cod_sec smallint,
|
|
porc_ventas decimal(8,4),
|
|
porc_cobros decimal(8,4),
|
|
status_t char(1),
|
|
us_crea char(9),
|
|
fech_crea datetime year to minute,
|
|
us_mod char(9),
|
|
fech_mod datetime year to minute
|
|
);
|
|
|
|
SELECT COUNT(*) INTO regi FROM cctb00008
|
|
WHERE sec_vend = vende_de
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.* FROM cctb00008 a
|
|
WHERE
|
|
a.sec_vend = vende_de
|
|
|
|
LET p_param = "S"
|
|
FOREACH busca INTO comisiones.*
|
|
CALL termometro(regi,p_param)
|
|
LET p_param = "N"
|
|
|
|
SELECT UNIQUE sec_vend FROM cctb00008
|
|
WHERE sec_vend = vende_a AND
|
|
cod_n = comisiones.cod_n AND
|
|
cod_grupo = comisiones.cod_grupo AND
|
|
cod_tipo = comisiones.cod_tipo AND
|
|
cod_sec = comisiones.cod_sec
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
|
|
INSERT INTO tetmp1 SELECT *FROM cctb00008
|
|
WHERE sec_vend = vende_de AND
|
|
cod_n = comisiones.cod_n AND
|
|
cod_grupo = comisiones.cod_grupo AND
|
|
cod_tipo = comisiones.cod_tipo AND
|
|
cod_sec = comisiones.cod_sec
|
|
UPDATE tetmp1 SET sec_vend = vende_a
|
|
INSERT INTO cctb00008 SELECT *FROM tetmp1
|
|
WHERE sec_vend = vende_a AND
|
|
cod_n = comisiones.cod_n AND
|
|
cod_grupo = comisiones.cod_grupo AND
|
|
cod_tipo = comisiones.cod_tipo AND
|
|
cod_sec = comisiones.cod_sec
|
|
END IF
|
|
|
|
END FOREACH
|
|
LET numero_msg = 1
|
|
CALL msg(numero_msg)
|
|
|
|
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
|
|
|
|
|