822 lines
30 KiB
Plaintext
822 lines
30 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : IPPRMT017
|
|
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
|
Tabla de Precio por Cliente
|
|
PROGRAMADOR : JUAN SOTO
|
|
FECHA REALIZACION : Febrero 1997
|
|
MODIFICADO POR : JUAN SOTO
|
|
DESCRIPCION MOD : ADICION LISTA DE PRECIOS EN TAB SEPARADOS
|
|
ADMINISTRACION PRECIOS POR ITEMS
|
|
------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ipprgb000.4gl"
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*,
|
|
costo_std,costo_lq,existencia DEC (12,5)
|
|
DEFINE selec_pt CHAR(1000)
|
|
|
|
DEFINE nom_cliente CHAR(30),
|
|
pventas ui.combobox
|
|
|
|
DEFINE descuento RECORD LIKE vetb00013.*
|
|
|
|
DEFINE arr_clientes DYNAMIC ARRAY OF RECORD
|
|
tipo_cliente LIKE vetb00004.tipo_cliente,
|
|
sec_cliente LIKE vetb00004.sec_cliente,
|
|
nombre CHAR(30)
|
|
END RECORD
|
|
DEFINE listproduct DYNAMIC ARRAY OF RECORD
|
|
codlista SMALLINT,
|
|
codn SMALLINT,
|
|
codgrupo SMALLINT,
|
|
codtipo SMALLINT,
|
|
codsec SMALLINT,
|
|
descripcion_p CHAR(30),
|
|
unidad_med CHAR(4),
|
|
tipoCliente SMALLINT,
|
|
secCliente INT,
|
|
nombreCliente CHAR(30),
|
|
moneda CHAR(4),
|
|
pprecio DEC(12,2),
|
|
costo_std1 DEC(12,4),
|
|
costo_r DEC(12,4),
|
|
ventas SMALLINT
|
|
END RECORD,
|
|
respuesta CHAR(3)
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
# LET usuarios = 'jsoto'
|
|
# LET clave = 'lmmjvsd2009'
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL ipprmt017()
|
|
END MAIN
|
|
|
|
FUNCTION ipprmt017()
|
|
# WHENEVER ERROR CONTINUE
|
|
|
|
OPTIONS
|
|
FORM LINE 9,
|
|
ERROR LINE 23,
|
|
HELP FILE "ippray000.exe",
|
|
HELP KEY CONTROL-W,
|
|
COMMENT LINE 21
|
|
|
|
OPEN WINDOW w1 AT 5,10 WITH FORM "ipfmmt017"
|
|
|
|
MENU
|
|
ON ACTION nuevo
|
|
CLEAR FORM
|
|
CALL listproduct.clear()
|
|
LET int_flag = FALSE
|
|
CALL ippcad017()
|
|
ON ACTION salir
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
|
|
|
|
FUNCTION ippcad017()
|
|
## Captura los datos que va a contener el registro
|
|
|
|
# WHENEVER ERROR CONTINUE
|
|
DEFINE kdescripcion CHAR(30)
|
|
DIALOG ATTRIBUTES (UNBUFFERED, FIELD ORDER FORM)
|
|
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
|
|
FROM codn,codgrupo,codtipo,codsec,descripcion_p
|
|
BEFORE CONSTRUCT
|
|
INITIALIZE p_vetb25.* TO NULL
|
|
END CONSTRUCT
|
|
|
|
INPUT BY NAME p_vetb25.* ATTRIBUTE(WITHOUT DEFAULTS)
|
|
BEFORE INPUT
|
|
CALL cventas()
|
|
IF p_vetb25.cod_n IS NOT NULL THEN
|
|
# EXISTENCIA
|
|
LET existencia = 0
|
|
SELECT SUM(a.cantidad_2) INTO existencia
|
|
FROM iptb00006 a
|
|
WHERE a.cod_n = p_vetb25.cod_n AND
|
|
a.cod_grupo = p_vetb25.cod_grupo AND
|
|
a.cod_tipo = p_vetb25.cod_tipo AND
|
|
a.cod_sec = p_vetb25.cod_sec AND
|
|
a.status_t IS NULL
|
|
|
|
DISPLAY BY NAME existencia
|
|
|
|
END IF
|
|
ON KEY (CONTROL-W)
|
|
CASE
|
|
WHEN INFIELD(tipo_cliente)
|
|
CALL consulta_clientes()
|
|
LET p_vetb25.tipo_cliente = cliente_dir.tipo_cliente
|
|
LET p_vetb25.sec_cliente = cliente_dir.sec_cliente
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
DISPLAY BY NAME p_vetb25.tipo_cliente,p_vetb25.sec_cliente,nom_cliente
|
|
NEXT FIELD precio
|
|
|
|
WHEN INFIELD(sec_cliente)
|
|
CALL consulta_clientes()
|
|
|
|
LET p_vetb25.tipo_cliente = cliente_dir.tipo_cliente
|
|
LET p_vetb25.sec_cliente = cliente_dir.sec_cliente
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
DISPLAY BY NAME p_vetb25.tipo_cliente,p_vetb25.sec_cliente,nom_cliente
|
|
NEXT FIELD precio
|
|
|
|
END CASE
|
|
|
|
AFTER FIELD cod_n
|
|
IF p_vetb25.cod_n IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
AFTER FIELD cod_grupo
|
|
IF p_vetb25.cod_grupo IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_grupo
|
|
END IF
|
|
|
|
AFTER FIELD cod_tipo
|
|
IF p_vetb25.cod_tipo IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_tipo
|
|
END IF
|
|
|
|
AFTER FIELD cod_sec
|
|
IF (p_vetb25.cod_n is NULL OR p_vetb25.cod_grupo is NULL OR
|
|
p_vetb25.cod_tipo is NULL OR p_vetb25.cod_sec IS NULL) THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
SELECT a.descrip_esp,a.descrip_ing,a.unidad_med
|
|
INTO p_VETB25.descripcion,descrip2,medida
|
|
FROM iptb00002 a
|
|
WHERE a.cod_n=p_vetb25.cod_n and a.cod_grupo=p_vetb25.cod_grupo and
|
|
a.cod_tipo=p_vetb25.cod_tipo and a.cod_sec=p_vetb25.cod_sec and
|
|
a.status_t is NULL
|
|
|
|
IF status = notfound THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
DISPLAY BY NAME p_vetb25.descripcion
|
|
DISPLAY BY NAME medida
|
|
# BUSCA COSTO
|
|
LET costo_std = 0
|
|
LET costo_lq = 0
|
|
SELECT a.material+a.labor+a.gastos INTO costo_std
|
|
FROM iptb00004 a
|
|
WHERE a.ano = YEAR(TODAY) and
|
|
a.mes_ini = "01" AND a.mes_fin = "12" AND
|
|
a.cod_n = p_vetb25.cod_n AND
|
|
a.cod_grupo = p_vetb25.cod_grupo AND
|
|
a.cod_tipo = p_vetb25.cod_tipo AND
|
|
a.cod_sec = p_vetb25.cod_sec AND
|
|
a.status_t IS NULL
|
|
LET selec =
|
|
"SELECT CONVERT(CHAR(10),max(a.fecha_lq),103)
|
|
FROM cttb00013 a
|
|
WHERE a.cod_n = ? AND
|
|
a.cod_grupo = ? AND
|
|
a.cod_tipo = ? AND
|
|
a.cod_sec = ? AND
|
|
a.status_t IS NULL
|
|
"
|
|
PREPARE cfecha FROM selec
|
|
EXECUTE cfecha INTO fecha1 USING p_vetb25.cod_n,p_vetb25.cod_grupo,
|
|
p_vetb25.cod_tipo,p_vetb25.cod_sec
|
|
|
|
SELECT avg(a.costo_lq) INTO costo_lq
|
|
FROM cttb00013 a
|
|
WHERE a.fecha_lq = fecha1 AND a.cod_n = p_vetb25.cod_n AND
|
|
a.cod_grupo = p_vetb25.cod_grupo AND
|
|
a.cod_tipo = p_vetb25.cod_tipo AND
|
|
a.cod_sec = p_vetb25.cod_sec AND
|
|
a.status_t IS NULL
|
|
|
|
|
|
DISPLAY BY NAME costo_std,costo_lq
|
|
DISPLAY fecha1 TO fecha_liq
|
|
|
|
AFTER FIELD sec_cliente
|
|
IF p_vetb25.sec_cliente is not null THEN
|
|
LET nom_cliente = NULL
|
|
SELECT a.nombre INTO nom_cliente FROM vetb00004 a
|
|
WHERE a.tipo_cliente = p_vetb25.tipo_cliente and
|
|
a.sec_cliente = p_vetb25.sec_cliente and
|
|
a.status_t is NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
NEXT FIELD tipo_cliente
|
|
END IF
|
|
DISPLAY BY NAME nom_cliente
|
|
# CONTROL INTEGRIDAD VENTAS / CLIENTES
|
|
SELECT a.tipo_cliente FROM vetb00060 a
|
|
WHERE a.ventas = p_vetb25.ventas AND
|
|
a.tipo_cliente = p_vetb25.tipo_cliente
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(386)
|
|
NEXT FIELD tipo_cliente
|
|
END IF
|
|
ELSE
|
|
SELECT a.precio INTO p_vetb25.precio
|
|
FROM vetb00025 a
|
|
WHERE a.cod_n = p_vetb25.cod_n AND
|
|
a.cod_grupo = p_vetb25.cod_grupo AND
|
|
a.cod_tipo = p_vetb25.cod_tipo AND
|
|
a.cod_sec = p_vetb25.cod_sec AND
|
|
a.ventas = p_vetb25.ventas AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
DISPLAY BY NAME p_vetb25.precio ATTRIBUTE(RED)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
END IF
|
|
|
|
AFTER FIELD precio
|
|
IF p_vetb25.precio IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD precio
|
|
END IF
|
|
|
|
END INPUT
|
|
|
|
ON ACTION limpia
|
|
CALL listproduct.clear()
|
|
CLEAR FORM
|
|
ON ACTION desactiva
|
|
LET opt = fgl_winquestion("ADVERTENCIA","ESTA SEGURO DE DESACTIVAR ESTE PRECIO?","no","yes|no","question",0)
|
|
LET opt = UPSHIFT(opt)
|
|
IF opt = "YES" THEN
|
|
UPDATE vetb00025 set status_t = 'E',
|
|
us_mod = usuarios,
|
|
fech_mod = getdate()
|
|
WHERE cod_n = p_vetb25.cod_n AND
|
|
cod_grupo = p_vetb25.cod_n AND
|
|
cod_grupo = p_vetb25.cod_grupo AND
|
|
cod_tipo = p_vetb25.cod_tipo
|
|
END IF
|
|
|
|
|
|
ON ACTION buscaLista
|
|
LET selec2 = " SELECT CONVERT(CHAR(10),MAX(a.fecha_lq),103) ",
|
|
" FROM cttb00013 a ",
|
|
" WHERE a.cod_n = ? AND ",
|
|
" a.cod_grupo = ? AND ",
|
|
" a.cod_tipo = ? AND ",
|
|
" a.cod_sec = ? AND ",
|
|
" a.status_t IS NULL "
|
|
PREPARE bfecha FROM selec2
|
|
|
|
LET selec = "SELECT b.cod_lista,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp,a.unidad_med, ",
|
|
" b.tipo_cliente,b.sec_cliente,c.nombre,e.simbolo,b.precio,d.material+d.labor+d.gastos, ",
|
|
" '0',b.ventas ",
|
|
" FROM iptb00002 a LEFT OUTER JOIN vetb00025 b ON a.cod_n = b.cod_n and a.cod_grupo = b.cod_grupo and ",
|
|
" a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_sec ",
|
|
" INNER JOIN vetb00061 e ON b.ventas = e.ventas ",
|
|
" LEFT OUTER JOIN vetb00004 c on b.tipo_cliente = c.tipo_cliente and b.sec_cliente = c.sec_cliente ",
|
|
" LEfT OUTER JOIN iptb00004 d ON a.cod_n = d.cod_n and a.cod_grupo = d.cod_grupo and ",
|
|
" a.cod_tipo = d.cod_tipo and a.cod_sec = d.cod_sec and d.ano = '2010' and d.mes_fin = '12' ",
|
|
"WHERE ",criterio CLIPPED," and a.status_t IS NULL AND b.status_t IS NULL ",
|
|
" ORDER BY b.cod_lista,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE lista CURSOR FOR comando
|
|
LET idx = 1
|
|
FOREACH lista INTO listproduct[idx].codlista,listproduct[idx].codn,listproduct[idx].codgrupo,
|
|
listproduct[idx].codtipo,listproduct[idx].codsec,
|
|
listproduct[idx].descripcion_p,listproduct[idx].unidad_med,
|
|
listproduct[idx].tipocliente,listproduct[idx].secCliente,
|
|
listproduct[idx].nombreCliente,listproduct[idx].moneda,
|
|
listproduct[idx].pprecio,
|
|
listproduct[idx].costo_std1,listproduct[idx].costo_r,
|
|
listproduct[idx].ventas
|
|
# BUSCA FECHA DE LA ULTIMA LIQUIDACION
|
|
|
|
EXECUTE bfecha INTO fecha1 USING listproduct[idx].codn,
|
|
listproduct[idx].codgrupo,
|
|
listproduct[idx].codtipo,
|
|
listproduct[idx].codsec
|
|
LET listproduct[idx].costo_r = 0
|
|
SELECT AVG(a.costo_lq) INTO listproduct[idx].costo_r
|
|
FROM cttb00013 a
|
|
WHERE a.cod_n = listproduct[idx].codn AND
|
|
a.cod_grupo = listproduct[idx].codgrupo AND
|
|
a.cod_tipo = listproduct[idx].codtipo AND
|
|
a.cod_sec = listproduct[idx].codsec AND
|
|
a.fecha_lq= fecha1 AND
|
|
a.status_t IS NULL
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
IF idx = 1 THEN
|
|
CALL fgl_winmessage("INFO","NO EXISTEN REGISTROS CON ESA CONDICION","INFO")
|
|
CONTINUE DIALOG
|
|
END IF
|
|
CALL listaproducto()
|
|
|
|
ON ACTION guardar
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
IF p_vetb25.ventas is not NULL and p_vetb25.cod_n is not NULL and
|
|
p_vetb25.cod_grupo is not NULL and p_vetb25.cod_tipo is not NULL and
|
|
p_vetb25.cod_sec is not NULL and p_vetb25.precio is not NULL THEN
|
|
IF p_vetb25.tipo_cliente is NULL and p_vetb25.sec_cliente is NULL THEN
|
|
SELECT unique cod_n INTO p_vetb25.cod_n FROM vetb00025
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo=p_vetb25.cod_grupo and cod_tipo=p_vetb25.cod_tipo and
|
|
cod_sec = p_vetb25.cod_sec and tipo_cliente is NULL and
|
|
sec_cliente is NULL
|
|
ELSE
|
|
SELECT unique cod_n INTO p_vetb25.cod_n FROM vetb00025
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo=p_vetb25.cod_grupo and cod_tipo=p_vetb25.cod_tipo and
|
|
cod_sec=p_vetb25.cod_sec and tipo_cliente=p_vetb25.tipo_cliente
|
|
AND sec_cliente = p_vetb25.sec_cliente
|
|
END IF
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
IF p_vetb25.tipo_cliente is NULL AND p_vetb25.sec_cliente is NULL THEN
|
|
UPDATE vetb00025 SET precio = p_vetb25.precio,
|
|
us_mod = sUSER_sname(),
|
|
fech_mod = GETDATE()
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo = p_vetb25.cod_grupo and cod_tipo = p_vetb25.cod_tipo and
|
|
cod_sec = p_vetb25.cod_sec and tipo_cliente is NULL and
|
|
sec_cliente is NULL
|
|
ELSE
|
|
UPDATE vetb00025 SET precio = p_vetb25.precio,
|
|
us_mod = SUSER_SNAME(),
|
|
fech_mod = GETDATE()
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo = p_vetb25.cod_grupo and cod_tipo = p_vetb25.cod_tipo and
|
|
cod_sec=p_vetb25.cod_sec and tipo_cliente=p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
END IF
|
|
ELSE
|
|
|
|
INSERT INTO vetb00025 (ventas,cod_n,cod_grupo,cod_tipo,cod_Sec,tipo_cliente,sec_cliente,
|
|
precio,status_t,us_crea,fech_crea,cod_lista)
|
|
VALUES (p_vetb25.ventas,p_vetb25.cod_n,p_vetb25.cod_grupo,
|
|
p_vetb25.cod_tipo,p_vetb25.cod_sec,p_vetb25.tipo_cliente,
|
|
p_vetb25.sec_cliente,p_vetb25.precio,NULL,SUSER_SNAME(),GETDATE(),
|
|
p_vetb25.cod_lista)
|
|
|
|
END IF
|
|
CALL fgl_winmessage("Mensajes","Actualizacion Exitosa","info")
|
|
CALL listaproducto()
|
|
END IF
|
|
ON ACTION cancel
|
|
LET respuesta = fgl_winquestion("Pregunta","Esta seguro de salir del programa?","no","yes|no","question",0)
|
|
IF respuesta = "yes" THEN
|
|
EXIT DIALOG
|
|
ELSE
|
|
CALL listproduct.clear()
|
|
|
|
CONTINUE DIALOG
|
|
END IF
|
|
END DIALOG
|
|
END FUNCTION
|
|
|
|
FUNCTION ippcmf017()
|
|
# WHENEVER ERROR CONTINUE
|
|
MESSAGE ""
|
|
LET int_flag = false
|
|
## Aqui se prepara para la captura del criterio de seleccion
|
|
|
|
CONSTRUCT criterio ON a.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec
|
|
FROM ventas,cod_n,cod_grupo,cod_tipo,cod_sec
|
|
BEFORE CONSTRUCT
|
|
CALL cventas()
|
|
AFTER CONSTRUCT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
CLEAR FORM
|
|
RETURN
|
|
END IF
|
|
|
|
END CONSTRUCT
|
|
|
|
LET SELEC = "SELECT a.* FROM vetb00025 a ",
|
|
"WHERE a.status_t IS NULL AND ",criterio clipped,
|
|
" ORDER BY a.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec"
|
|
|
|
PREPARE busca FROM selec
|
|
|
|
CALL integridad()
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
RETURN
|
|
END IF
|
|
|
|
DECLARE datos SCROLL CURSOR FOR busca
|
|
OPEN datos
|
|
FETCH FIRST datos INTO p_vetb25.*
|
|
IF status >= 0 THEN
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
ELSE
|
|
CALL integridad()
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
RETURN
|
|
END IF
|
|
END IF
|
|
|
|
SELECT descrip_esp,descrip_ing,unidad_med
|
|
INTO descrip1,descrip2,medida
|
|
FROM iptb00002
|
|
WHERE cod_n = p_vetb25.cod_n and cod_grupo = p_vetb25.cod_grupo and
|
|
cod_tipo = p_vetb25.cod_tipo and cod_sec= p_vetb25.cod_sec
|
|
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET descripcion = descrip1 CLIPPED
|
|
DISPLAY BY NAME p_vetb25.*,descripcion,medida,nom_cliente
|
|
|
|
MENU "OPCIONES "
|
|
COMMAND "Siguiente"
|
|
"Presenta en pantalla el proximo registro encontrado"
|
|
FETCH NEXT datos INTO p_vetb25.*
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 4
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
SELECT descrip_esp,unidad_med INTO descrip1,medida
|
|
FROM iptb00002
|
|
WHERE cod_n = p_vetb25.cod_n and cod_grupo = p_vetb25.cod_grupo and
|
|
cod_tipo = p_vetb25.cod_tipo and cod_sec = p_vetb25.cod_sec
|
|
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET descripcion = descrip1 CLIPPED
|
|
|
|
DISPLAY BY NAME p_vetb25.*,descripcion,medida,nom_cliente
|
|
|
|
COMMAND "Anterior"
|
|
"Presenta en pantalla el registro anterior encontrado"
|
|
FETCH PREVIOUS datos INTO p_vetb25.*
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
SELECT descrip_esp,unidad_med INTO descrip1,medida
|
|
FROM iptb00002
|
|
WHERE cod_n = p_vetb25.cod_n and cod_grupo = p_vetb25.cod_grupo and
|
|
cod_tipo = p_vetb25.cod_tipo and cod_sec= p_vetb25.cod_sec
|
|
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET descripcion = descrip1 CLIPPED
|
|
DISPLAY BY NAME p_vetb25.*,descripcion,medida,nom_cliente
|
|
|
|
COMMAND "Primero"
|
|
"Presenta en pantalla el primer registro encontrado"
|
|
FETCH FIRST datos INTO p_vetb25.*
|
|
|
|
SELECT descrip_esp,unidad_med INTO descrip1,medida
|
|
FROM iptb00002
|
|
WHERE cod_n = p_vetb25.cod_n and cod_grupo = p_vetb25.cod_grupo and
|
|
cod_tipo = p_vetb25.cod_tipo and cod_sec = p_vetb25.cod_sec
|
|
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET descripcion = descrip1 CLIPPED
|
|
DISPLAY BY NAME p_vetb25.*,descripcion,medida,nom_cliente
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
|
|
COMMAND "Ultimo"
|
|
"Presenta en pantalla el ultimo registro encontrado"
|
|
FETCH LAST datos INTO p_vetb25.*
|
|
|
|
SELECT descrip_esp,unidad_med INTO descrip1,medida
|
|
FROM iptb00002
|
|
WHERE cod_n = p_vetb25.cod_n and cod_grupo = p_vetb25.cod_grupo and
|
|
cod_tipo = p_vetb25.cod_tipo and cod_sec = p_vetb25.cod_sec
|
|
|
|
LET nom_cliente = NULL
|
|
SELECT nombre INTO nom_cliente FROM vetb00004
|
|
WHERE tipo_cliente = p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET descripcion = descrip1 CLIPPED
|
|
DISPLAY BY NAME p_vetb25.*,descripcion,medida,nom_cliente
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 4
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
|
|
COMMAND "Escoger"
|
|
"<Esc> Actualiza Registro <Delete> Cancela Operacion"
|
|
IF p_vetb25.status_t= "E" THEN
|
|
LET numero_msg= 36
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
|
|
INPUT BY NAME p_vetb25.precio WITHOUT DEFAULTS
|
|
|
|
AFTER FIELD precio
|
|
IF p_vetb25.precio IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD precio
|
|
END IF
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
CLEAR FORM
|
|
RETURN
|
|
END IF
|
|
|
|
IF p_vetb25.precio IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD precio
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
#### Verifica si el usuario presiono la tecla <Delete>
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
CLEAR FORM
|
|
RETURN
|
|
END IF
|
|
|
|
IF p_vetb25.tipo_cliente is NULL AND p_vetb25.sec_cliente is NULL THEN
|
|
UPDATE vetb00025 SET precio = p_vetb25.precio,
|
|
us_mod = USER,
|
|
fech_mod = CURRENT
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo = p_vetb25.cod_grupo and cod_tipo = p_vetb25.cod_tipo and
|
|
cod_sec = p_vetb25.cod_sec and tipo_cliente is NULL and
|
|
sec_cliente is NULL
|
|
ELSE
|
|
UPDATE vetb00025 SET precio = p_vetb25.precio,
|
|
us_mod = USER,
|
|
fech_mod = CURRENT
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo = p_vetb25.cod_grupo and cod_tipo = p_vetb25.cod_tipo and
|
|
cod_sec=p_vetb25.cod_sec and tipo_cliente=p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
END IF
|
|
|
|
LET numero_msg = 13
|
|
CALL msg(numero_msg)
|
|
|
|
COMMAND KEY ("L") "eLiminar" "Elimina registro que esta en la pantalla"
|
|
UPDATE vetb00025 SET status_t ="E"
|
|
WHERE ventas = p_vetb25.ventas and cod_n = p_vetb25.cod_n and
|
|
cod_grupo = p_vetb25.cod_grupo and cod_tipo = p_vetb25.cod_tipo and
|
|
cod_sec=p_vetb25.cod_sec and tipo_cliente =p_vetb25.tipo_cliente and
|
|
sec_cliente = p_vetb25.sec_cliente
|
|
|
|
LET numero_msg = 39
|
|
CALL msg(numero_msg)
|
|
|
|
COMMAND "Retornar" "Retorna al menu anterior"
|
|
CLEAR FORM
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_pt1()
|
|
OPEN WINDOW busqueda AT 7,12 WITH FORM "ipfmwd008"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
|
LET int_flag = false
|
|
CONSTRUCT BY NAME criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
|
|
a.descrip_esp
|
|
LET selec2 =
|
|
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp ",
|
|
"FROM iptb00002 a ",
|
|
"WHERE a.status_t is NULL AND ", criterio clipped,
|
|
" ORDER BY 5 "
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO sale9
|
|
END IF
|
|
|
|
PREPARE busca_pila FROM selec2
|
|
IF status >= 0 THEN
|
|
IF status = notfound THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
ELSE
|
|
CALL integridad()
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
END IF
|
|
END IF
|
|
|
|
DECLARE buscar_pila CURSOR FOR busca_pila
|
|
LET idx = 1
|
|
|
|
FOREACH buscar_pila INTO pilas[idx].*
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT FOREACH
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
MESSAGE " <Esc> Selecciona Producto Terminado donde esta el cursor"
|
|
DISPLAY ARRAY pilas TO s_pilas.*
|
|
LET curr1 = arr_curr()
|
|
LET m_articulos.cod_n = pilas[curr1].cod_n
|
|
LET m_articulos.cod_grupo = pilas[curr1].cod_grupo
|
|
LET m_articulos.cod_tipo = pilas[curr1].cod_tipo
|
|
LET m_articulos.cod_sec = pilas[curr1].cod_sec
|
|
LET descuento.cod_n = pilas[curr1].cod_n
|
|
LET descuento.cod_grupo = pilas[curr1].cod_grupo
|
|
LET descuento.cod_tipo = pilas[curr1].cod_tipo
|
|
LET descuento.cod_sec = pilas[curr1].cod_sec
|
|
LET descrip1 = pilas[curr1].descrip_esp
|
|
|
|
LABEL sale9:
|
|
CLOSE WINDOW busqueda
|
|
END FUNCTION
|
|
|
|
FUNCTION consulta_clientes()
|
|
OPEN WINDOW busqueda AT 7,12 WITH FORM "vefmwd002"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
|
|
|
|
LET int_flag = false
|
|
CONSTRUCT criterio ON a.nombre FROM nombre
|
|
|
|
LET selec2 = "SELECT a.tipo_cliente, a.sec_cliente, a.nombre ",
|
|
" FROM vetb00004 a",
|
|
" WHERE ",
|
|
"a.status_t is NULL AND ",
|
|
criterio clipped,
|
|
"ORDER BY 1,2 "
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO salir_consulta_c
|
|
END IF
|
|
|
|
PREPARE busca_clientes FROM selec2
|
|
IF status >= 0 THEN
|
|
IF status = notfound THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
ELSE
|
|
CALL integridad()
|
|
IF bandera = 1 THEN
|
|
LET bandera = 0
|
|
END IF
|
|
END IF
|
|
|
|
DECLARE buscar_clientes CURSOR FOR busca_clientes
|
|
LET idx = 1
|
|
|
|
FOREACH buscar_clientes INTO arr_clientes[idx].*
|
|
IF status = NOTFOUND THEN
|
|
EXIT FOREACH
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT FOREACH
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
MESSAGE " <Esc> Selecciona Cliente donde esta el cursor"
|
|
DISPLAY ARRAY arr_clientes TO s_clientes.*
|
|
LET curr1 = arr_curr()
|
|
|
|
LET cliente_dir.tipo_cliente = arr_clientes[curr1].tipo_cliente
|
|
LET cliente_dir.sec_cliente = arr_clientes[curr1].sec_cliente
|
|
LET descrip1 = arr_clientes[curr1].nombre
|
|
|
|
LABEL salir_consulta_c:
|
|
CLOSE WINDOW busqueda
|
|
END FUNCTION
|
|
|
|
FUNCTION cventas()
|
|
|
|
DEFINE kventas SMALLINT, dventas CHAR(30)
|
|
|
|
LET pventas = ui.combobox.forname("formonly.ventas")
|
|
|
|
DECLARE bventas CURSOR FOR
|
|
SELECT a.ventas,a.descripcion FROM vetb00061 a
|
|
CALL pventas.clear()
|
|
|
|
FOREACH bventas INTO kventas,dventas
|
|
CALL pventas.additem(kventas,dventas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
FUNCTION listaproducto()
|
|
DISPLAY ARRAY listproduct TO lproducto.*
|
|
BEFORE ROW
|
|
LET curr1 = arr_curr()
|
|
LET p_vetb25.cod_lista = listproduct[curr1].codlista
|
|
LET p_vetb25.ventas = listproduct[curr1].ventas
|
|
|
|
LET p_vetb25.cod_n = listproduct[curr1].codn
|
|
LET p_vetb25.cod_grupo = listproduct[curr1].codgrupo
|
|
LET p_vetb25.cod_tipo = listproduct[curr1].codtipo
|
|
LET p_vetb25.cod_sec = listproduct[curr1].codsec
|
|
LET p_vetb25.descripcion = listproduct[curr1].descripcion_p
|
|
LET p_vetb25.tipo_cliente = listproduct[curr1].tipocliente
|
|
LET p_vetb25.sec_cliente = listproduct[curr1].seccliente
|
|
LET nom_cliente = listproduct[curr1].nombrecliente
|
|
LET medida = listproduct[curr1].unidad_med
|
|
LET p_vetb25.precio = listproduct[curr1].pprecio
|
|
LET costo_std = listproduct[idx].costo_std1
|
|
LET costo_lq = listproduct[idx].costo_r
|
|
DISPLAY BY NAME p_vetb25.*,nom_cliente,costo_std,costo_lq
|
|
|
|
AFTER ROW
|
|
LET p_vetb25.cod_lista = listproduct[curr1].codlista
|
|
LET p_vetb25.cod_n = listproduct[curr1].codn
|
|
LET p_vetb25.cod_grupo = listproduct[curr1].codgrupo
|
|
LET p_vetb25.cod_tipo = listproduct[curr1].codtipo
|
|
LET p_vetb25.cod_sec = listproduct[curr1].codsec
|
|
LET p_vetb25.descripcion = listproduct[curr1].descripcion_p
|
|
LET p_vetb25.tipo_cliente = listproduct[curr1].tipocliente
|
|
LET p_vetb25.sec_cliente = listproduct[curr1].seccliente
|
|
LET nom_cliente = listproduct[curr1].nombrecliente
|
|
LET medida = listproduct[curr1].unidad_med
|
|
LET p_vetb25.precio = listproduct[curr1].pprecio
|
|
LET costo_std = listproduct[curr1].costo_std1
|
|
LET costo_lq = listproduct[curr1].costo_r
|
|
|
|
LET p_vetb25.ventas = listproduct[curr1].ventas
|
|
|
|
DISPLAY BY NAME p_vetb25.*,nom_cliente,costo_std,costo_lq
|
|
END DISPLAY
|
|
|
|
END FUNCTION |