jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
MBS/PROYECTOS/ipdir - 21102021/ipprmt044_4.4gl
T

2991 lines
111 KiB
Plaintext
Raw Permalink Blame History

{
--------------------------------------------------------------------------
PROGRAMA : IPPRMT044
OBJETIVO : Programa Captura Documento Otros Movimientos de
Inventario de Producto Terminados.
PROGRAMADOR : Juan Soto.
FECHA REALIZACION : AGOSTO 1997.
--------------------------------------------------------------------------
}
GLOBALS
"ipprgb000.4gl"
DEFINE factura_e,xconduce_no,num_doc_ret,ordenx,tmpnumero,tmpnueroExistencia INTEGER,
hacerdocumento BOOLEAN,
direccion_p VARCHAR(100)
DEFINE factor_conv DYNAMIC ARRAY OF DECIMAL(12,5),
cantidad_factura,cantidad_devuelta,total_medida,cantidad_orden,
cantidad_recibida,diferencia,cantidadRequisicion,Rcantidad_requisicion,
cantidad_orden1,pcantidadConduce,transito,existencia,reservado
DEC(12,5)
DEFINE ac_cli,reimpresion,pcerrada CHAR(1),
pnum_req,xcotizacion INTEGER,
pcontrol_cliente CHAR(3),
pcontrol_despacho,pcontrol_transferencia,chconduce,control_devolucion,pcontrol_departamento CHAR(2),
procedimiento ,
PCCEMAIL,TOemail VARCHAR(150),
cuerpo_correo VARCHAR(230),
CCEmail,subject VARCHAR(100),
psec_vend INT,
almacen_destino,almacen_origen VARCHAR(40)
DEFINE prtb09 RECORD LIKE prtb00009.*
DEFINE busca_v RECORD
sec_cliente INTEGER,
nombre CHAR(30)
END RECORD
DEFINE despiece DYNAMIC ARRAY OF RECORD
etiqueta CHAR(20),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
lado_1 DEC(12,5),
lado_2 DEC(12,5),
lado_3 DEC(12,5),
cantidad DEC(12,5),
medida DEC(12,5)
END RECORD,
cantidad_conduce DEC(12,5),
psucid SMALLINT,
controlE VARCHAR(2),
ptipoorden VARCHAR(30)
MAIN
DEFER INTERRUPT
CALL STARTLOG("ipmt044.log")
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
CONNECT to "marmotech" AS "SQL_E" USER usuarios USING clave
CONNECT to "smarmotech" AS "SQL_C" USER usuarios USING clave
SELECT * INTO p_companias.* FROM companias
SELECT controlOrdenesE INTO controle FROM seg00003 WHERE usuario = usuarios
IF controle = 'SI' THEN
LET ptipoorden = 'ECOMMERCE'
ELSE
LET ptipoorden = 'GENERAL'
END IF
CALL ipprmt044()
END MAIN
FUNCTION busca_cliente()
LET int_flag = FALSE
OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009"
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre
LET selec = "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"
PREPARE comando3 FROM selec
DECLARE comp3 CURSOR FOR comando3
LET idx = 1
FOREACH comp3 INTO clientes[idx].*
LET idx = idx + 1
IF idx = 49 THEN
EXIT FOREACH
END IF
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY clientes TO s_cliente.*
LET idx = ARR_CURR()
CLOSE WINDOW cliente
END FUNCTION
FUNCTION ipprmt044()
DEFINE fecha CHAR(8)
DEFINE hora CHAR(5)
CLEAR SCREEN
OPTIONS
ERROR LINE 24,
FORM LINE 4,
COMMENT LINE 24,
PROMPT LINE 24
LET fecha = today USING "dd/mm/yyyy"
LET hora = time
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
DISPLAY p_companias.nombre CLIPPED AT 1,lj
ATTRIBUTE (REVERSE,BLUE)
DISPLAY fecha AT 1,70 ATTRIBUTE (BLUE)
DISPLAY hora AT 2,73 ATTRIBUTE (BLUE)
DISPLAY "ipprmt044" AT 1,3 ATTRIBUTE (BLUE)
DISPLAY "Otros Movimientos" AT 2,30
DISPLAY "<Esc> Adiciona Registro" AT 3,2 ATTRIBUTE (BLUE,REVERSE)
DISPLAY "<Delete> Cancela Operacion" AT 3,54 ATTRIBUTE (BLUE,REVERSE)
OPEN FORM ipfmmt044 FROM "ipfmmt044"
DISPLAY FORM ipfmmt044
CALL ipprad44()
END FUNCTION
FUNCTION ipprad44()
DEFINE vexistencia,estado_req BOOLEAN
DIALOG ATTRIBUTE(UNBUFFERED)
INPUT BY NAME otros_mov.*,num_doc_ret,pnum_req ATTRIBUTE( WITHOUT DEFAULTS)
BEFORE INPUT
LET pnum_req = NULL
LET num_doc_ret = NULL
INITIALIZE otros_mov.* TO NULL
LET otros_mov.cod_cia = 1
SELECT a.bodega,a.sucid INTO otros_mov.bodega,psucid
FROM seg0001 a
WHERE a.usuario = usuarios
LET k1 = '1'
CALL bodegas(k1)
DISPLAY BY NAME otros_mov.bodega
# CALL piking(usuarios,clave,impresor,otros_mov.bodega,psucid)
AFTER FIELD num_doc_ret
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
IF num_doc_ret IS NULL THEN
CALL fgl_winmessage("ERROR","NO PUEDE DEJAR EN BLANCO NUMERO DOCUMENTO RE-TRABAJO","INFO")
NEXT FIELD num_doc_ret
END IF
END IF
IF num_doc_ret IS NOT NULL THEN
SELECT a.num_oc,a.tipo_cliente,a.sec_cliente,b.nombre,a.conduce_no,a.factura,a.num_req
INTO otros_mov.conduce_no,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.descrip4,xconduce_no,
otros_mov.fact_no,pnum_req
FROM svtb00007 a,vetb00004 b
WHERE a.num_doc = num_doc_ret AND a.tipo_cliente = b.tipo_cliente AND
a.sec_cliente = b.sec_cliente AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL fgl_winmessage("ERROR","DOCUMENTO RE-TRABAJO NO EXISTE","INFO")
NEXT FIELD num_doc_ret
END IF
SELECT a.factura INTO otros_mov.fact_no FROM vetb00002 a WHERE a.conduce = xconduce_no AND
a.tipo_cliente = otros_mov.cod_sp AND
a.sec_cliente = otros_mov.cod_sp_sec AND
a.status_t IS NULL
DISPLAY BY NAME otros_mov.fact_no,pnum_req,otros_mov.conduce_no
IF otros_mov.fact_no IS NULL THEN
NEXT FIELD fact_no
END IF
# CONSULTA QUE ESTE FORMULARIO NO EXISTA EN LA TABLA TRANSACCIONES INVENTARIOS
SELECT DISTINCT a.num_doc_retrabajo FROM iptb00006 a WHERE a.num_doc_retrabajo = num_doc_ret AND
a.status_t IS NULL
IF STATUS <> NOTFOUND THEN
CALL fgl_winmessage("INFO","DOCUMENTO RETRABAJO YA TIENE DEVOLUCION","INFO")
NEXT FIELD num_doc_ret
END IF
END IF
ON KEY (F2)
LET reimpresion = "S"
CALL consulta()
ON KEY(CONTROL-W)
IF INFIELD(cod_sp_sec) OR INFIELD(cod_sp) THEN
CALL busca_cliente()
LET otros_mov.cod_sp = clientes[idx].tipo_cliente
LET otros_mov.cod_sp_sec = clientes[idx].sec_cliente
LET otros_mov.descrip4 = clientes[idx].nombre
DISPLAY BY NAME otros_mov.cod_sp,
otros_mov.cod_sp_sec,
otros_mov.descrip4
END IF
AFTER FIELD cod_cia
IF otros_mov.cod_cia IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_cia
END IF
IF otros_mov.cod_cia = 1 THEN
LET nombre_cia = p_companias.nombre
ELSE
LET nombre_cia = ""
END IF
DISPLAY BY NAME nombre_cia
AFTER FIELD pnum_req
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov=13 THEN
IF pnum_req IS NULL THEN
CALL msg(16)
NEXT FIELD pnum_req
END IF
SELECT DISTINCT a.num_req FROM iptb00006 a
WHERE a.num_req = pnum_req AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD pnum_req
END IF
END IF
AFTER FIELD fecha
IF otros_mov.fecha > TODAY THEN
LET numero_msg = 189
CALL msg(numero_msg)
NEXT FIELD fecha
END IF
LET p_fechas = otros_mov.fecha using "dd/mm/yyyy"
CALL prd(p_fechas,usuarios) RETURNING bandera
LET otros_mov.fecha = p_fechas
DISPLAY BY NAME otros_mov.fecha
IF bandera = 1 THEN
LET bandera = 0
NEXT FIELD fecha
END IF
AFTER FIELD fact_no
LET otros_mov.cod_sp = null
LET otros_mov.cod_sp_sec = null
IF otros_mov.cod_mov = 12 or otros_mov.cod_mov = 13 THEN
IF otros_mov.fact_no is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fact_no
END IF
SELECT UNIQUE tipo_cliente,sec_cliente,orden
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.conduce_no
FROM vetb00002 WHERE factura=otros_mov.fact_no and status_t is null AND
CONVERT(CHAR(10),fecha_factura,101) >= '01/01/2007'
IF status = NOTFOUND THEN
LET numero_msg = 102
CALL msg(numero_msg)
NEXT FIELD fact_no
END IF
DISPLAY BY NAME otros_mov.conduce_no
# CONTROL `
LET cantidad_factura = 0
LET cantidad_devuelta = 0
SELECT SUM(a.cantidad) INTO cantidad_factura
FROM vetb00003 a
WHERE a.factura = otros_mov.fact_no AND
a.status_t IS NULL AND
a.fech_crea > '2009-01-01 08:00'
SELECT SUM(a.cantidad_2) INTO cantidad_devuelta
FROM iptb00006 a
WHERE a.fact_no = otros_mov.fact_no AND
a.status_t IS NULL AND
a.fech_crea > '2009-01-01 08:00' and
a.cod_mov in (12,13)
IF cantidad_devuelta + .05 > cantidad_factura THEN
LET numero_msg =238
CALL msg(numero_msg)
NEXT FIELD fact_no
END IF
END IF
IF otros_mov.fact_no is not null THEN
IF otros_mov.cod_mov = 32 THEN
SELECT unique cod_n FROM iptb00006
WHERE fact_no = otros_mov.fact_no and cod_mov = otros_mov.cod_mov and
CONVERT(CHAR(10), fecha,101) >= "01011994" AND status_t is null
IF status != NOTFOUND THEN
LET numero_msg = 103
CALL msg(numero_msg)
NEXT FIELD fact_no
END IF
END IF
END IF
DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec
AFTER FIELD cod_transp
IF otros_mov.cod_mov = 30 OR otros_mov.conduce_no = 31 OR otros_mov.cod_mov = 55 or
otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13
THEN
IF otros_mov.cod_transp is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_transp
END IF
END IF
AFTER FIELD sec_transp
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
IF otros_mov.sec_transp IS NULL THEN
CALL msg(16)
NEXT FIELD sec_transp
END IF
END IF
IF pcontrol_despacho = "SI" THEN
IF otros_mov.sec_transp is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_transp
END IF
SELECT nombre INTO descrip2 FROM vetb00015
WHERE cod_transp=otros_mov.cod_transp and
sec_transp=otros_mov.sec_transp and
status_t is null
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_transp
END IF
DISPLAY BY NAME descrip2
END IF
AFTER FIELD cod_tarifa
IF otros_mov.cod_tarifa is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
# NEXT FIELD cod_tarifa
END IF
SELECT descrip INTO descrip1 FROM vetb00023
WHERE cod_tarifa = otros_mov.cod_tarifa and status_t is null
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
#NEXT FIELD cod_tarifa
END IF
DISPLAY BY NAME descrip1
# ON ACTION piking
# CALL piking(usuarios,clave,impresor,otros_mov.bodega,psucid)
BEFORE FIELD num_doc
LET tmpnumero = 0
SELECT a.num_doc INTO tmpnumero FROM iptb00043 a
WHERE usuario = usuarios
IF STATUS = NOTFOUND THEN
INSERT INTO iptb00043 VALUES (1,usuarios)
LET tmpnumero = 1
ELSE
UPDATE iptb00043 SET num_doc = tmpnumero + 1
WHERE usuario = usuarios
END IF
LET tmpnumero = tmpnumero + 1
LET otros_mov.num_doc = tmpnumero
DISPLAY BY NAME otros_mov.num_doc
LET otros_mov.fecha = TODAY
DISPLAY BY NAME otros_mov.fecha
AFTER FIELD cod_mov
LET pcontrol_cliente = NULL
LET Pcontrol_transferencia = NULL
SELECT a.descrip_mov,a.status_mov,a.control_clientes,a.control_despacho,a.control_devolucion,
a.control_transferencia,a.control_departamento
INTO otros_mov.descrip_mov,status_m,pcontrol_cliente,pcontrol_despacho,control_devolucion,
Pcontrol_transferencia,pcontrol_departamento
FROM iptb00005 a WHERE a.cod_mov = otros_mov.cod_mov AND a.status_t is null
IF status >= 0 THEN
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_mov
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
IF pcontrol_transferencia = 'SI' THEN
LET k1 = '2'
ELSE
LET k1 = '1'
END IF
CALL bodegas(k1)
SELECT num_doc INTO otros_mov.num_doc FROM iptb00007
WHERE cod_mov = otros_mov.cod_mov AND
bodega = otros_mov.bodega
IF otros_mov.num_Doc IS NULL THEN
LET otros_mov.num_doc = 1
END IF
LET otros_mov.num_Doc = otros_mov.num_doc + 1
DISPLAY BY NAME otros_mov.num_doc
DISPLAY BY NAME otros_mov.descrip_mov,otros_mov.bodega
{C0NTROL DESPACHO}
LET pnum_req = NULL
IF pcontrol_despacho = "SI" THEN
CALL visualizacion_despacho() RETURNING otros_mov.conduce_no,
otros_mov.cod_sp,
otros_mov.cod_sp_sec,
pnum_req
IF Int_flag THEN
LET int_flag = FALSE
CALL msg(2)
DELETE FROM iptbexistencia WHERE us_crea = usuarios
RETURN
END IF
LET ordenx = otros_mov.conduce_no
SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
FROM prtb00012 a
WHERE a.num_oc = otros_mov.conduce_no AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD conduce_no
END IF
SELECT a.mensaje INTO direccion_p FROM cctb00029 a
WHERE a.num_req = pnum_req
DISPLAY BY NAME otros_mov.conduce_no,otros_mov.cod_sp,otros_mov.cod_sp_Sec,
pnum_req,direccion_p,psec_vend,xcotizacion
END IF
{ CHEQUEO DE PERMISOS PARA EL USUARIO
SELECT * FROM iptb00005 where cod_mov = otros_mov.cod_mov and
us_crea = user
IF status = notfound THEN
LET numero_msg = 139
CALL msg(numero_msg)
NEXT FIELD cod_mov
END IF
} IF otros_mov.cod_mov = 35 OR otros_mov.cod_mov = 10 THEN
CALL fgl_winmessage("INFO","NO PUEDES EMITIR ESTE TIPO DE DOCUMENTO EN ESTE PROGRAMA","INFO")
NEXT FIELD cod_mov
END IF
IF otros_mov.cod_mov = 32 or
otros_mov.cod_mov = 12
THEN
NEXT FIELD num_doc_ret
ELSE
NEXT FIELD cod_transp
END IF
AFTER FIELD bodega
IF otros_mov.bodega IS NULL THEN
CALL msg(16)
NEXT FIELD bodega
END IF
SELECT UNIQUE a.usuario FROM iptb00048 a
WHERE a.bodega = otros_mov.bodega AND a.usuario = usuarios
IF STATUS = NOTFOUND THEN
CALL fgl_winmessage("ERROR","USTED NO TIENE PERMISOS PARA UTILIZAR BODEGA","INFO")
NEXT FIELD bodega
END IF
AFTER FIELD cod_mov1
IF otros_mov.entrada IS NOT NULL THEN
IF otros_mov.cod_mov IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD entrada
END IF
SELECT a.descrip_mov INTO otros_mov.descrip_mov1 FROM iptb00005 a
WHERE a.cod_mov = otros_mov.cod_mov1
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_mov1
END IF
DISPLAY BY NAME otros_mov.descrip_mov1
END IF
BEFORE FIELD conduce_no
IF pcontrol_despacho = "SI" THEN
IF otros_mov.bodega IS NULL THEN
LET otros_mov.bodega = 1
DISPLAY BY NAME otros_mov.bodega
END IF
SELECT UNIQUE a.cod_mov
FROM vetb00060 a
WHERE a.tipo_cliente = otros_mov.cod_sp and
a.cod_mov = otros_mov.cod_mov
IF STATUS = NOTFOUND THEN
LET numero_msg = 386
CALL msg(numero_msg)
NEXT FIELD cod_mov
END IF
SELECT nombre INTO otros_mov.descrip4
FROM vetb00004
WHERE tipo_cliente = otros_mov.cod_sp and
sec_cliente = otros_mov.cod_sp_sec
DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_Sec,
otros_mov.descrip4
NEXT FIELD detalle
END IF
AFTER FIELD conduce_no
LET ordenx = NULL
LET pnum_req=null
IF otros_mov.conduce_no IS NOT NULL THEN
LET ordenx = otros_mov.conduce_no
SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
FROM prtb00012 a
WHERE a.num_oc = ordenx AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD conduce_no
END IF
SELECT nombre INTO otros_mov.descrip4
FROM vetb00004
WHERE tipo_cliente = otros_mov.cod_sp and
sec_cliente = otros_mov.cod_sp_sec
DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_Sec,
otros_mov.descrip4
IF otros_mov.cod_mov <> 12 AND otros_mov.cod_mov <> 13 AND otros_mov.cod_mov <> 71 THEN
IF pcerrada = "S" THEN
LET numero_msg = 74
CALL msg(numero_msg)
NEXT FIELD conduce_no
END IF
END IF
DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec
END IF
IF otros_mov.cod_mov = 30 OR otros_mov.conduce_no = 31 OR otros_mov.cod_mov = 55
THEN
IF otros_mov.conduce_no IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD conduce_no
END IF
END IF
NEXT FIELD detalle
BEFORE FIELD cod_sp
IF otros_mov.cod_mov = 33 OR otros_mov.cod_mov = 34 THEN
CALL busca_vend()
LET otros_mov.cod_sp = 12
LET otros_mov.cod_sp_sec= busca_v.sec_cliente
LET otros_mov.descrip4 = busca_v.nombre
DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.descrip4
NEXT FIELD cod_sp_sec
END IF
AFTER FIELD cod_sp
IF ac_cli = "S" AND otros_mov.cod_sp IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
IF pcontrol_cliente = "SI" THEN
SELECT a.cod_mov FROM vetb00060 a
WHERE a.cod_mov = otros_mov.cod_mov and
a.tipo_cliente = otros_mov.cod_sp
IF STATUS = NOTFOUND THEN
CALL msg(240)
NEXT FIELD cod_sp
END IF
END IF
AFTER FIELD cod_sp_sec
IF ac_cli = "S" AND otros_mov.cod_sp_sec IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
IF otros_mov.cod_mov = 12 THEN
IF otros_mov.cod_sp_sec is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
END IF
IF otros_mov.cod_sp_sec is not null THEN
SELECT a.nombre,b.sec_vend INTO otros_mov.descrip4,psec_vend
FROM vetb00004 a,vetb00028 b
WHERE a.tipo_cliente = otros_mov.cod_sp and
a.sec_cliente = otros_mov.cod_sp_sec and
a.tipo_cliente = b.tipo_cliente and
a.sec_cliente = b.sec_cliente
IF status = notfound THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
DISPLAY BY NAME otros_mov.descrip4,psec_vend
IF otros_mov.fact_no is not null THEN
SELECT sec_cliente FROM vetb00002
WHERE factura = otros_mov.fact_no and
sec_cliente = otros_mov.cod_sp_sec
IF status = notfound THEN
LET numero_msg = 237
CALL msg(numero_msg)
NEXT FIELD cod_sp_sec
END IF
END IF
END IF
IF otros_mov.cod_mov = 33 OR otros_mov.cod_mov = 34 THEN
SELECT unique sec_cliente FROM vetb00033
WHERE sec_cliente = otros_mov.cod_sp_sec
IF STATUS = NOTFOUND THEN
LET numero_msg = -1301
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
END IF
BEFORE FIELD entrada
IF otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR otros_mov.cod_mov = 55 THEN
IF otros_mov.entrada IS NULL THEN
# IF otros_mov.entrada IS NOT NULL THEN
SELECT MAX(a.num_doc),MAX(a.cod_mov) INTO otros_mov.entrada,otros_mov.cod_mov1
FROM iptb00006 a
WHERE (a.conduce_no = otros_mov.conduce_no) AND
(a.cod_mov in (70,71,72)) AND a.status_t IS NULL
# END IF
DISPLAY BY NAME otros_mov.entrada,otros_mov.cod_mov1
END IF
END IF
AFTER FIELD entrada
IF otros_mov.entrada IS NOT NULL THEN
SELECT UNIQUE a.num_doc FROM iptb00006 a
WHERE a.cod_mov= otros_mov.cod_mov1 and a.num_doc = otros_mov.entrada
AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD entrada
END IF
{
LET cantidad_entrada = 0
SELECT SUM(a.cantidad_2) INTO cantidad_entrada
FROM iptb00006 a
WHERE a.num_doc = otros_mov.placa AND
a.cod_mov IN(70,71,72) AND
a.status_t IS NULL
IF cantidad_entrada IS NULL THEN
LET cantidad_entrada = 0
END IF
LET cantidad_conduce = 0
SELECT SUM(a.cantidad_2) INTO cantidad_conduce
FROM iptb00006 a,iptb00028 b
WHERE b.entrada = otros_mov.entrada AND
a.num_doc = b.num_doc and
a.cod_mov = b.cod_mov AND
a.status_t IS NULL
IF cantidad_conduce IS NULL THEN
LET cantidad_conduce = 0
END IF
LET pendiente = cantidad_entrada + cantidad_conduce
DISPLAY "CANTIDAD E ",cantidad_entrada," c salida ",cantidad_conduce
IF pendiente <= 0 THEN
LET numero_msg =46
CALL msg(numero_msg)
NEXT FIELD entrada
END IF
}
END IF
AFTER FIELD departamento
IF pcontrol_departamento = "SI" THEN
IF otros_mov.departamento IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD departamento
END IF
SELECT a.nom_dpto INTO otros_mov.nombre_depto
FROM adtb00001 a
WHERE a.departamento = otros_mov.departamento AND
a.status_t IS NULL
IF STATUS = NOTFOUND THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD departamento
END IF
DISPLAY BY NAME otros_mov.nombre_depto,otros_mov.cod_sp,otros_mov.cod_sp_sec
END IF
AFTER INPUT
IF pcontrol_cliente = "SI" THEN
SELECT a.cod_mov FROM vetb00060 a
WHERE a.cod_mov = otros_mov.cod_mov and
a.tipo_cliente = otros_mov.cod_sp
IF STATUS = NOTFOUND THEN
CALL msg(240)
NEXT FIELD cod_sp
END IF
END IF
IF otros_mov.bodega IS NULL THEN
CALL msg(16)
NEXT FIELD bodega
END IF
IF Pcontrol_transferencia = 'SI' THEN
IF otros_mov.bodega_destino IS NULL THEN
CALL msg(16)
NEXT FIELD bodega_destino
END IF
END IF
IF otros_mov.bodega IS NULL THEN
CALL msg(16)
NEXT FIELD bodega
END IF
SELECT UNIQUE a.usuario FROM iptb00048 a
WHERE a.bodega = otros_mov.bodega AND a.usuario = usuarios
IF STATUS = NOTFOUND THEN
CALL fgl_winmessage("ERROR","USTED NO TIENE PERMISOS PARA UTILIZAR BODEGA","INFO")
NEXT FIELD bodega
END IF
IF otros_mov.conduce_no IS NOT NULL THEN
LET ordenx = otros_mov.conduce_no
SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no,a.sec_vend
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion,psec_vend
FROM prtb00012 a
WHERE a.num_oc = otros_mov.conduce_no AND
a.status_t IS NULL
SELECT a.nombre,b.sec_vend INTO otros_mov.descrip4,psec_vend
FROM vetb00004 a,vetb00028 b
WHERE a.tipo_cliente = otros_mov.cod_sp and
a.sec_cliente = otros_mov.cod_sp_sec and
a.tipo_cliente = b.tipo_cliente and
a.sec_cliente = b.sec_cliente
IF status = notfound THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
DISPLAY BY NAME otros_mov.descrip4,psec_vend
END IF
IF opc = "YES" OR opc IS NULL THEN
CALL movi2.clear()
END IF
LET chconduce = 'N'
IF otros_mov.conduce_no IS NOT NULL AND (otros_mov.cod_mov = 70 OR otros_mov.cod_mov = 71 OR
otros_mov.cod_mov = 72) THEN
DECLARE busca_orden CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,'0','0',a.cantidad,b.unidad_med,b.descrip_esp
FROM prtb00013 a,iptb00002 b
WHERE a.num_oc =ordenx AND
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
LET idx = 1
FOREACH busca_orden INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
END IF
IF otros_mov.entrada IS NOT NULL THEN
DECLARE busca_20 CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,'0','0',a.cantidad_2,b.unidad_med,b.descrip_esp
FROM iptb00006 a,iptb00002 b
WHERE a.conduce_no =ordenx AND
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 AND
a.cod_mov = otros_mov.cod_mov1 and a.num_doc = otros_mov.entrada AND
a.status_t IS NULL
LET idx = 1
FOREACH busca_20 INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
END IF
LET chconduce = 'N'
IF otros_mov.conduce_no IS NOT NULL AND (otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR
otros_mov.cod_mov = 55) THEN
LET chconduce = 'S'
IF otros_mov.entrada IS NOT NULL THEN
DECLARE busca_entrada CURSOR FOR
SELECT c.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,c.cantidad_1,
c.cantidad,c.cantidad*-1,b.unidad_med,b.descrip_esp,a.codigo_bloque,c.id_kit
FROM iptb00006 a,iptb00002 b,cctb00026 c
WHERE a.conduce_no = ordenx and a.status_t IS NULL AND
a.num_Doc = otros_mov.entrada AND
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 AND
a.cod_n = C.cod_n AND
a.cod_grupo = c.cod_grupo AND
a.cod_tipo = c.cod_tipo AND
a.cod_sec = c.cod_sec AND
a.area = c.area AND
c.num_req = pnum_req
LET idx = 1
FOREACH busca_entrada INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
END IF
IF otros_mov.entrada IS NULL THEN
DECLARE busca_orden1 CURSOR FOR
SELECT UNIQUE a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
c.cantidad_1,c.cantidad,c.cantidad,b.unidad_med,b.descrip_esp,
' ',c.id_kit
FROM prtb00013 a,iptb00002 b,cctb00026 c
WHERE a.num_oc = ordenx and
a.status_t IS NULL and
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 AND
a.cod_n = C.cod_n AND
a.cod_grupo = c.cod_grupo AND
a.cod_tipo = c.cod_tipo AND
a.cod_sec = c.cod_sec AND
a.area = c.area AND
c.num_req = pnum_req
LET idx = 1
FOREACH busca_orden1 INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
END IF
END IF
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
IF otros_mov.conduce_no IS NULL THEN
CALL fgl_winmessage("ERROR","DEBES DIGITAR NUMERO DE ORDEN DE PEDIDOS","INFO")
NEXT FIELD conduce_no
END IF
IF num_doc_ret IS NULL THEN
IF otros_mov.fact_no IS NULL THEN
CALL fgl_winmessage("ERROR","FACTURA ESTA EN BLANCO, FAVOR DE COLOCAR NUMERO DE FACTURA","INFO")
NEXT FIELD fact_no
END IF
LET selec = "SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad,a.cantidad,b.unidad_med,b.descrip_esp
FROM vetb00003 a,iptb00002 b
WHERE a.factura = ", otros_mov.fact_no," and a.status_t IS NULL and
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 "
ELSE
LET selec = "SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad,a.cantidad,b.unidad_med,b.descrip_esp
FROM svtb00008 a,iptb00002 b
WHERE a.num_doc = ",num_doc_ret," and a.status_t IS NULL and
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"
END IF
PREPARE devoluciones FROM selec
DECLARE busca_dev CURSOR FOR devoluciones
LET idx = 1
FOREACH busca_dev INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
END IF
END INPUT
INPUT ARRAY movi2 FROM s_movi1.* ATTRIBUTE(WITHOUT DEFAULTS)
BEFORE INPUT
LET decide = NULL
LET selec_pt = NULL
LET hacerdocumento = TRUE
# Este BEFORE FIELD estaba en comentario por disposicion de alguien hace algun
# tiempo y ahora no se sabe porque se determino que cuando usted hace una
# devolucion le permita al usuario modificar el codigo del producto
# Hoy 13 de noviembre de 1993 el Ing. de informatica dispuso que
# cuando sea una devolucion a una factura no se permitiera la actualizacion
# del codigo del producto
ON ACTION ordenDisponible
IF movi2[p_act].cod_Sec IS NOT NULL THEN
CALL busca_ordenes_reservadas(movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,movi2[p_act].cod_Sec)
END IF
BEFORE ROW
LET p_act = arr_curr()
LET scr_l = scr_line()
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
NEXT FIELD cantidad_1
END IF
ON ACTION despiece
LET p_act = arr_curr()
LET scr_l = scr_line()
SELECT UNIQUE a.cod_n FROM iptb00027 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec
IF STATUS = NOTFOUND THEN
LET numero_msg =399
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF movi2[p_act].area IS NULL THEN
LET movi2[p_act].area = 1
# DISPLAY movi2[p_act].area TO smovi1[scr_l].area
END IF
CALL despiece()
# DISPLAY movi2[p_act].cantidad_1 TO smovi1[scr_l].cantidad_1
NEXT FIELD cantidad_1
ON ACTION producto
CASE
WHEN INFIELD (cod_n)
CALL busca_prod1()
LET movi2[p_act].cod_n = busca_p.cod_n
LET movi2[p_act].cod_grupo = busca_p.cod_grupo
LET movi2[p_act].cod_tipo = busca_p.cod_tipo
LET movi2[p_act].cod_sec = busca_p.cod_sec
LET movi2[p_act].descrip_esp= busca_p.descrip_esp
LET movi2[p_act].unidad_med = busca_p.unidad_med
DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
movi2[p_act].descrip_esp,movi2[p_act].unidad_med
TO s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
WHEN INFIELD (cod_grupo)
CALL busca_prod1()
LET movi2[p_act].cod_n = busca_p.cod_n
LET movi2[p_act].cod_grupo = busca_p.cod_grupo
LET movi2[p_act].cod_tipo = busca_p.cod_tipo
LET movi2[p_act].cod_sec = busca_p.cod_sec
LET movi2[p_act].descrip_esp= busca_p.descrip_esp
LET movi2[p_act].unidad_med = busca_p.unidad_med
DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
movi2[p_act].descrip_esp,movi2[p_act].unidad_med
TO s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
WHEN INFIELD (cod_tipo)
CALL busca_prod1()
LET movi2[p_act].cod_n = busca_p.cod_n
LET movi2[p_act].cod_grupo = busca_p.cod_grupo
LET movi2[p_act].cod_tipo = busca_p.cod_tipo
LET movi2[p_act].cod_sec = busca_p.cod_sec
LET movi2[p_act].descrip_esp= busca_p.descrip_esp
LET movi2[p_act].unidad_med = busca_p.unidad_med
DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
movi2[p_act].descrip_esp,movi2[p_act].unidad_med
TO s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
WHEN INFIELD (cod_sec)
CALL busca_prod1()
LET movi2[p_act].cod_n = busca_p.cod_n
LET movi2[p_act].cod_grupo = busca_p.cod_grupo
LET movi2[p_act].cod_tipo = busca_p.cod_tipo
LET movi2[p_act].cod_sec = busca_p.cod_sec
LET movi2[p_act].descrip_esp= busca_p.descrip_esp
LET movi2[p_act].unidad_med = busca_p.unidad_med
DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
movi2[p_act].descrip_esp,movi2[p_act].unidad_med
TO s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
END CASE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end IF
AFTER FIELD codigo_bloque
IF LENGTH(movi2[p_act].codigo_bloque) > 2 THEN
SELECT UNIQUE a.codigo_bloque FROM intb00018 a
WHERE a.codigo_bloque = movi2[p_act].codigo_bloque
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD codigo_bloque
END IF
END IF
AFTER FIELD cod_n
LET p_act = arr_curr()
IF movi2[p_act].cod_n is not null then
LET ant_art.area = movi2[p_act].area
LET ant_art.cod_n = movi2[p_act].cod_n
LET ant_art.cod_grupo = movi2[p_act].cod_grupo
LET ant_art.cod_tipo = movi2[p_act].cod_tipo
LET ant_art.cod_sec = movi2[p_act].cod_sec
FOR idx = 1 TO arr_count()
IF idx != p_act THEN
IF movi2[idx].area = ant_art.area AND
movi2[idx].cod_n = ant_art.cod_n AND
movi2[idx].cod_grupo = ant_art.cod_grupo AND
movi2[idx].cod_tipo = ant_art.cod_tipo AND
movi2[idx].cod_sec = ant_art.cod_sec THEN
LET numero_msg = 21
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
END FOR
END IF
AFTER FIELD cod_grupo
LET p_act = arr_curr()
IF movi2[p_act].cod_grupo is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
LET ant_art.area = movi2[p_act].area
LET ant_art.cod_n = movi2[p_act].cod_n
LET ant_art.cod_grupo = movi2[p_act].cod_grupo
LET ant_art.cod_tipo = movi2[p_act].cod_tipo
LET ant_art.cod_sec = movi2[p_act].cod_sec
FOR idx = 1 TO arr_count()
IF idx != p_act THEN
IF movi2[idx].area = ant_art.area AND
movi2[idx].cod_n = ant_art.cod_n AND
movi2[idx].cod_grupo = ant_art.cod_grupo AND
movi2[idx].cod_tipo = ant_art.cod_tipo AND
movi2[idx].cod_sec = ant_art.cod_sec THEN
LET numero_msg = 21
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
END FOR
AFTER FIELD cod_tipo
LET p_act = arr_curr()
IF movi2[p_act].cod_tipo is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
LET ant_art.area = movi2[p_act].area
LET ant_art.cod_n = movi2[p_act].cod_n
LET ant_art.cod_grupo = movi2[p_act].cod_grupo
LET ant_art.cod_tipo = movi2[p_act].cod_tipo
LET ant_art.cod_sec = movi2[p_act].cod_sec
FOR idx = 1 TO arr_count()
IF idx != p_act THEN
IF movi2[idx].area = ant_art.area AND
movi2[idx].cod_n = ant_art.cod_n AND
movi2[idx].cod_grupo = ant_art.cod_grupo AND
movi2[idx].cod_tipo = ant_art.cod_tipo AND
movi2[idx].cod_sec = ant_art.cod_sec THEN
LET numero_msg = 21
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
END FOR
AFTER FIELD cod_sec
LET p_act = arr_curr()
IF movi2[p_act].cod_sec is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF movi2[p_act].cod_n is null AND movi2[p_act].cod_sec is not null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF movi2[p_act].cod_n is not null and movi2[p_act].cod_grupo is not null and
movi2[p_act].cod_tipo is not null and movi2[p_act].cod_sec is not null then
SELECT a.descrip_esp,a.unidad_med,a.control_existencia
INTO p_iptb02.descrip_esp,p_iptb02.unidad_med,p_iptb02.control_existencia
FROM iptb00002 a
WHERE a.cod_n=movi2[p_act].cod_n and
a.cod_grupo = movi2[p_act].cod_grupo and
a.cod_tipo=movi2[p_act].cod_tipo and
a.cod_sec = movi2[p_act].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
SELECT UNIQUE a.factor_conv INTO factor_conv[p_act] FROM iptb00001 a
WHERE a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo
and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
and a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(94)
NEXT FIELD cod_n
END IF
LET movi2[p_act].descrip_esp = p_iptb02.descrip_esp CLIPPED
LET movi2[p_act].unidad_med = p_iptb02.unidad_med CLIPPED
DISPLAY movi2[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp
ATTRIBUTE(CYAN)
DISPLAY movi2[p_act].unidad_med TO s_movi1[scr_l].unidad_med
ATTRIBUTE(CYAN)
LET ant_art.area = movi2[p_act].area
LET ant_art.cod_n = movi2[p_act].cod_n
LET ant_art.cod_grupo = movi2[p_act].cod_grupo
LET ant_art.cod_tipo = movi2[p_act].cod_tipo
LET ant_art.cod_sec = movi2[p_act].cod_sec
FOR idx = 1 TO arr_count()
IF idx != p_act THEN
IF movi2[idx].area = ant_art.area AND
movi2[idx].cod_n = ant_art.cod_n AND
movi2[idx].cod_grupo = ant_art.cod_grupo AND
movi2[idx].cod_tipo = ant_art.cod_tipo AND
movi2[idx].cod_sec = ant_art.cod_sec THEN
LET numero_msg = 21
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
END FOR
# CONTROL ITEMS EN LA ORDEN
IF otros_mov.conduce_no IS NOT NULL THEN
SELECT UNIQUE a.cod_n FROM prtb00013 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.num_oc = ordenx
IF STATUS = NOTFOUND THEN
LET numero_msg =397
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
IF pnum_req IS NOT NULL THEN
# CONTROL ITEM EN LA REQUISICION
LET hacerdocumento=TRUE
SELECT UNIQUE a.cod_n FROM cctb00026 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.num_oc = otros_mov.conduce_no AND
a.num_req = pnum_req
IF STATUS = NOTFOUND THEN
LET numero_msg =397
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
# CONTROL DESPIECE
SELECT UNIQUE a.cod_n FROM iptb00027 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec
IF STATUS != NOTFOUND THEN
SELECT UNIQUE a.cod_n FROM iptb00025 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.cod_mov = otros_mov.cod_mov AND
a.num_doc = otros_mov.num_Doc
IF STATUS = NOTFOUND THEN
LET numero_msg =398
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
LET movi2[p_act].cantidad_p = cantidad_conduce - cantidad_orden
#CONTROL DEVOLUCION
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
IF movi2[p_Act].cantidad_2 > movi2[p_Act].cantidad_p then
LET numero_msg =28
CALL msg(numero_msg)
NEXT FIELD cantidad_1
end if
DISPLAY movi2[p_Act].cantidad_2 TO s_movi1[scr_l].cantidad_2
END IF
END IF # CONTROL CODIGO EN BLANCO
AFTER FIELD cantidad_1
LET p_act = arr_curr()
IF movi2[p_act].cod_n is not null and movi2[p_act].cod_grupo is not null and
movi2[p_act].cod_tipo is not null and movi2[p_act].cod_sec is not null
THEN
IF movi2[p_act].cantidad_1 IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cantidad_1
END IF
SELECT UNIQUE a.factor_conv INTO factor_conv[p_act] FROM iptb00001 a
WHERE a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo
and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
and a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL msg(94)
NEXT FIELD cod_n
END IF
LET movi2[p_act].cantidad_2=movi2[p_act].cantidad_1*factor_conv[p_act]
DISPLAY movi2[p_act].cantidad_2 TO s_movi1[scr_l].cantidad_2
LET p_iptb06.cantidad_2 = 0
#CONTROL DEVOLUCION
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
LET cantidad_factura = 0
SELECT SUM(a.cantidad) INTO cantidad_factura
FROM vetb00003 a
WHERE a.factura = otros_mov.fact_no AND
a.status_t IS NULL AND
a.fech_crea > '2009-01-01 08:00' and
a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo
and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
and a.status_t is null
SELECT SUM(a.cantidad_2) INTO cantidad_devuelta
FROM iptb00006 a
WHERE a.fact_no = otros_mov.fact_no AND
a.status_t IS NULL AND
a.fech_crea > '2009-01-01 08:00' and
a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo
and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec and
a.cod_mov in (12,13)
IF cantidad_devuelta+movi2[p_act].cantidad_2 > cantidad_factura THEN
LET hacerdocumento = FALSE
LET numero_msg =238
CALL msg(numero_msg)
NEXT FIELD cantidad_1
END IF
END IF
# BUSCA LA EXISTENCIA
IF status_m = "2" THEN
LET hacerdocumento=TRUE
IF p_iptb02.control_existencia = "SI" THEN
CALL existencia(movi2[p_act].cod_n,movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,movi2[p_act].cantidad_2,p_act,otros_mov.bodega)
RETURNING vexistencia
IF vexistencia THEN
CALL fgl_winmessage("ERROR","CANTIDAD EXCEDE EXISTENCIA","STOP")
NEXT FIELD cod_n
END IF
CALL disponibles(movi2[p_act].cod_n,movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,today)
RETURNING cantidad_orden1,pcantidadConduce,transito,existencia,reservado
LET cantidad_orden1 = cantidad_orden1+pcantidadConduce
LET movi2[p_act].existencia=existencia
LET existencia=existencia-cantidad_orden1
LET movi2[p_act].disponible=existencia
DISPLAY movi2[p_act].existencia TO s_movi1[scr_l].existencia
DISPLAY movi2[p_act].disponible TO s_movi1[scr_l].disponible
IF movi2[p_act].cantidad_2 > existencia THEN
CALL fgl_winmessage("info","CANTIDAD EXCEDE DISPONIBLE","INFO")
END IF
END IF
END IF
#================================================================================
# CONTROL CANTIDAD DESPIECE
LET total_medida = 0
IF otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR
otros_mov.cod_mov = 55 OR otros_mov.cod_mov = 70 OR otros_mov.cod_mov = 71 OR
otros_mov.cod_mov = 72 THEN
# CONTROL DESPIECE
SELECT UNIQUE a.cod_n FROM iptb00027 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec
IF STATUS != NOTFOUND THEN
SELECT UNIQUE a.cod_n FROM iptb00025 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.cod_mov = otros_mov.cod_mov AND
a.num_doc = otros_mov.num_Doc
IF STATUS = NOTFOUND THEN
LET numero_msg =398
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
END IF
SELECT UNIQUE a.num_doc
FROM iptb00025 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.cod_mov = otros_mov.cod_mov AND
a.num_doc = otros_mov.num_doc
IF STATUS != NOTFOUND THEN
SELECT SUM(a.medida) INTO total_medida
FROM iptb00025 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.cod_mov = otros_mov.cod_mov AND
a.area = movi2[p_act].area AND
a.num_doc = otros_mov.num_doc
IF total_medida <> movi2[p_act].cantidad_1 THEN
LET numero_msg = 152
CALL msg(numero_msg)
NEXT FIELD cantidad_1
END IF
END IF
LET selec_pt = selec_pt CLIPPED,movi2[p_act].descrip_esp," CANTIDAD ",
movi2[p_act].cantidad_2," ",movi2[p_act].unidad_med
END IF
IF otros_mov.conduce_no IS NOT NULL THEN
# CONTROL ORDEN
IF otros_mov.cod_mov = 71 OR otros_mov.cod_mov = 70 THEN
LET cantidad_conduce = 0
SELECT SUM(a.cantidad) INTO cantidad_conduce
FROM prtb00013 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.num_oc = otros_mov.conduce_no AND
a.status_t IS NULL
IF cantidad_conduce IS NULL THEN
LET cantidad_conduce = 0
END IF
LET cantidad_recibida = 0
SELECT SUM(a.cantidad_2) INTO cantidad_recibida
FROM iptb00006 a
WHERE a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.conduce_no = otros_mov.conduce_no AND
a.cod_mov in(20,70,72,71) AND
a.status_t IS NULL
IF cantidad_Recibida IS NULL THEN
LET cantidad_Recibida = 0
END IF
LET hacerdocumento=TRUE
IF (cantidad_Recibida + movi2[p_act].cantidad_2) > cantidad_conduce THEN
LET numero_msg = 46
LET hacerdocumento = FALSE
CALL msg(numero_msg)
NEXT FIELD cantidad_1
END IF
END IF
END IF # CONTROL DEVOLUCION
# CONTROL REQUISICION
IF control_devolucion <>"SI" THEN
IF pnum_req IS NOT NULL THEN
CALL control_requisicion(movi2[p_act].cantidad_2,movi2[p_act].cod_n,
movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,
movi2[p_act].cod_sec,movi2[p_act].id_kit) RETURNING hacerdocumento
IF NOT hacerdocumento THEN
CALL fgl_Winmessage("ERROR","CANTIDAD EXCEDE A CANTIDAD EN REQUISICION","INFO")
NEXT FIELD cantidad_1
END IF
END IF
END IF
#=================================================================================================
LET movi3[p_act].cantidad_2 = movi2[p_act].cantidad_2
END IF
ON ACTION guardar
IF pcontrol_cliente = "SI" THEN
FOR idx = 1 TO movi2.getLength()
IF movi2[idx].cod_sec IS NOT NULL THEN
IF movi2[idx].area IS NULL THEN
CALL msg(16)
NEXT FIELD area
END IF
END IF
END FOR
END IF
LET hacerdocumento=TRUE
LET opc = "NO"
LET opc= fgl_winquestion("INFORMACION", "Toda la Informacion Esta Correcta?","YES","YES|NO","QUESTION",0)
IF OPC = "YES" THEN
BEGIN WORK
# Actualiza tabla control ultimo documento
SELECT num_doc INTO otros_mov.num_doc FROM iptb00007
WHERE cod_mov = otros_mov.cod_mov AND
bodega = otros_mov.bodega
IF status = notfound THEN
LET otros_mov.num_doc = 0
INSERT INTO iptb00007 values(1,otros_mov.cod_mov,null,usuarios,getdate(),null,null,otros_mov.bodega)
END IF
LET otros_mov.num_doc = otros_mov.num_doc + 1
UPDATE iptb00007 set num_doc = otros_mov.num_doc,
us_crea = usuarios,
fech_crea = getdate()
WHERE cod_mov = otros_mov.cod_mov AND bodega = otros_mov.bodega
UPDATE iptb00025 SET num_doc = otros_mov.num_doc WHERE num_doc = tmpnueroExistencia AND
cod_mov = otros_mov.cod_mov
DISPLAY BY NAME otros_mov.num_doc ATTRIBUTE (BLUE)
UPDATE iptb00025 SET num_doc = otros_mov.num_doc
WHERE num_doc = tmpnumero AND cod_mov = otros_mov.cod_mov
# INSERTA REGISTROS DE ENTRADAS CON LOS CONDUCES
IF otros_mov.cod_mov1 IS NOT NULL THEN
INSERT INTO iptb00028 VALUES (otros_mov.cod_mov,otros_mov.num_doc,otros_mov.cod_mov1,
otros_mov.entrada,otros_mov.bodega)
END IF
# INFORMACIONES CUANDO EL MOVIMIENTO ES DE PRODUCCION
IF pcontrol_departamento = "SI" THEN
IF otros_mov.departamento IS NOT NULL THEN
INSERT INTO iptb00026 VALUES (otros_mov.cod_mov,otros_mov.num_doc,otros_mov.departamento,otros_mov.bodega)
END IF
END IF
FOR idx = 1 TO movi2.getLength()
IF movi2[idx].cod_n is not null and movi2[idx].cod_grupo is not null AND
movi2[idx].cod_tipo is not null and movi2[idx].cod_sec is not null THEN
IF movi2[idx].cantidad_2 is not null THEN
IF status_m = "2" THEN
SELECT a.descrip_esp,a.unidad_med,a.control_existencia
INTO p_iptb02.descrip_esp,p_iptb02.unidad_med,p_iptb02.control_existencia
FROM iptb00002 a
WHERE a.cod_n=movi2[idx].cod_n AND
a.cod_grupo = movi2[idx].cod_grupo AND
a.cod_tipo=movi2[idx].cod_tipo AND
a.cod_sec = movi2[idx].cod_sec AND
a.status_t is null
IF p_iptb02.control_existencia = "SI" THEN
LET vexistencia = FALSE
CALL existencia(movi2[idx].cod_n,movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,movi2[idx].cantidad_2,idx,otros_mov.bodega)
RETURNING vexistencia
IF vexistencia THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR","CANTIDAD EXCEDE EXISTENCIA","STOP")
NEXT FIELD cod_sec
END IF
IF control_devolucion <> "SI" THEN
IF pcontrol_despacho="SI" THEN
#=============================================================================
# CONTROL REQUISICION DESPACHO
#======================================================================
CALL control_requisicion(movi2[idx].cantidad_2,
movi2[idx].cod_n,movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].id_kit)
RETURNING estado_req
IF NOT estado_req THEN
ROLLBACK WORK
CALL fgl_winmessage("ERROR","CANTIDAD MAYOR A CANTIDAD REQUISICION","INFO")
DISPLAY movi2[idx].cantidad_1 TO s_movi1[idx].cantidad_1 ATTRIBUTE(RED)
NEXT FIELD cod_Sec
END IF
END IF
END IF
END IF # CONTROL ORDENS
IF movi2[idx].cantidad_2 > 0 THEN
LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
END IF
END IF
INSERT INTO iptb00006 (cod_cia,num_doc,fecha,
fact_no,conduce_no,cod_sp,
cod_sp_sec,cod_transp,sec_transp,
placa,cod_tarifa,
cod_mov,detalle,area,
cod_n,cod_grupo,cod_tipo,
cod_sec,cantidad_1,cantidad_2,
bodega,us_crea,fech_crea,
num_req,codigo_bloque,sec_vend,
direccion,num_oc,bodega_d,num_Doc_retrabajo)
VALUES
(otros_mov.cod_cia,otros_mov.num_doc,otros_mov.fecha,
otros_mov.fact_no,otros_mov.conduce_no,otros_mov.cod_sp,
otros_mov.cod_sp_sec,otros_mov.cod_transp,otros_mov.sec_transp,
otros_mov.placa,otros_mov.cod_tarifa,otros_mov.cod_mov,
otros_mov.detalle,movi2[idx].area,movi2[idx].cod_n,
movi2[idx].cod_grupo,movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_1,movi2[idx].cantidad_2,otros_mov.bodega,
usuarios,getdate(),pnum_req,
movi2[idx].codigo_bloque,psec_vend,direccion_p,
ordenx,otros_mov.bodega_destino,num_doc_ret)
IF pcontrol_transferencia="SI" AND status_m = 2 THEN #condicion status_m=3
INSERT INTO iptb00033 VALUES
(otros_mov.cod_cia,otros_mov.num_doc,otros_mov.fecha,
otros_mov.fact_no,psec_vend,null,null,otros_mov.cod_sp,
otros_mov.cod_sp_sec,otros_mov.cod_transp,
otros_mov.sec_transp,otros_mov.placa,otros_mov.cod_tarifa,
otros_mov.cod_mov,otros_mov.detalle,movi2[idx].cod_n,
movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_1,movi2[idx].cantidad_2,
'N',null,otros_mov.bodega,otros_mov.bodega_destino,null,'0',usuarios,GETDATE(),null,null)
END IF #fin condicion status_mo=3
# ACTUALIZA LISTA PARA DESPACHO EN STATUS_PRODUCCION
IF pcontrol_departamento = "SI" THEN
# BUSCA LA CANTIDAD DE LA ORDEN PARA ESTE ITEM
LET cantidad_orden =0
SELECT SUM(a.cantidad) INTO cantidad_orden FROM prtb00013 a
WHERE a.num_oc = ordenx AND
a.cod_n = movi2[idx].cod_n AND
a.cod_grupo = movi2[idx].cod_grupo AND
a.cod_tipo = movi2[idx].cod_tipo AND
a.cod_sec = movi2[idx].cod_sec
#CANTIDAD PRODUCIDA
LET cantidad_recibida=0
SELECT SUM(a.cantidad_2) INTO cantidad_recibida
FROM iptb00006 a,iptb00005 b
WHERE a.cod_mov = b.cod_mov AND
b.control_departamento ='SI' AND
a.num_oc = ordenx AND
a.cod_n = movi2[idx].cod_n AND
a.cod_grupo = movi2[idx].cod_grupo AND
a.cod_tipo = movi2[idx].cod_tipo AND
a.cod_sec = movi2[idx].cod_sec AND
a.status_t IS NULL
IF cantidad_recibida >= cantidad_orden THEN
UPDATE prtb00013 SET estado_produccion = 'LISTA PARA DESPACHO',
# fecha_compromiso = otros_mov.fecha,
observacion = otros_mov.detalle,
us_mod = usuarios,
fech_mod = getdate()
WHERE num_oc = ordenx AND
cod_n = movi2[idx].cod_n AND
cod_Grupo = movi2[idx].cod_grupo AND
cod_tipo = movi2[idx].cod_tipo AND
cod_Sec = movi2[idx].cod_sec
LET chconduce = 'S'
LET cuerpo_correo = 'ORDEN: ',ordenx USING "&&&&&&", 'LISTA PARA DESPACHO PARA EL MATERIAL ' ,movi2[idx].descrip_esp CLIPPED,
' ',movi2[idx].unidad_med,' ',movi2[idx].cantidad_2 USING "<<<,<<<.####",'; '
ELSE
UPDATE prtb00013 SET estado_produccion = 'PRODUCCION PARCIAL',
# fecha_compromiso = otros_mov.fecha,
observacion = otros_mov.detalle,
us_mod = usuarios,
fech_mod = getdate()
WHERE num_oc = ordenx AND
cod_n = movi2[idx].cod_n AND
cod_Grupo = movi2[idx].cod_grupo AND
cod_tipo = movi2[idx].cod_tipo AND
cod_Sec = movi2[idx].cod_sec
LET chconduce = 'S'
LET cuerpo_correo = 'ORDEN: ',ordenx USING "&&&&&&", 'PRODUCCION PARCIAL PARA EL MATERIAL ' ,movi2[idx].descrip_esp CLIPPED,
' ',movi2[idx].unidad_med,' ',movi2[idx].cantidad_2 USING "<<<,<<<.####",'; '
END IF
END IF
INSERT INTO prordenlog VALUES (otros_mov.conduce_no,otros_mov.num_doc,movi2[idx].cod_n,
movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_2,getdate(),otros_mov.cod_mov,movi2[idx].cantidad_1,diferencia)
IF chconduce = 'S' OR control_devolucion = 'SI' THEN
LET cuerpo_correo = cuerpo_correo CLIPPED,' ',movi2[idx].descrip_esp CLIPPED,
' ',movi2[idx].unidad_med,' ',movi2[idx].cantidad_2 USING "<<<,<<<.####",'; '
END IF
END IF { if de cantidad_2 no NULL }
END IF {if cod_n cod_tipo ........ is not null }
END FOR
COMMIT WORK
# ACTUALIZA EL ESTADO DE LA REQUISICION DESPACHO
SELECT SUM(a.cantidad) INTO cantidadRequisicion
FROM cctb00026 a
WHERE a.num_oc = ordenx AND a.status_t IS NULL
IF cantidadRequisicion IS NULL THEN
LET cantidadrequisicion = 0
END IF
SELECT SUM(a.cantidad_2*-1) INTO rcantidad_requisicion
FROM iptb00006 a
WHERE a.num_req = pnum_req AND a.status_t IS NULL
IF rcantidad_requisicion IS NULL THEN
LET rcantidad_requisicion = 0
END IF
LET diferencia = cantidadRequisicion - rcantidad_Requisicion
IF diferencia < .05 THEN
UPDATE cctb00025 set estado_despacho = 'DESPACHADA',
us_mod = usuarios,
fech_mod = getdate()
WHERE num_req = pnum_req
ELSE
UPDATE cctb00025 set estado_despacho = 'DESPACHO PARCIAL',
us_mod = usuarios,
fech_mod = getdate()
WHERE num_req = pnum_req
END IF
# CIERRE ORDENES
LET diferencia = 0
SELECT SUM(cantidad) INTO cantidad_orden
FROM prtb00013 a
WHERE a.num_oc = otros_mov.conduce_no #AND
#a.fech_Crea > datetime (2007-01-01 08:00) year to minute
IF cantidad_orden IS NULL THEN
LET cantidad_orden = 0
END IF
SELECT SUM(cantidad_2*-1) INTO cantidad_conduce
FROM iptb00006 a
WHERE a.num_oc = ordenx AND
a.cod_mov in (12,13,30,31,55) AND
CONVERT (CHAR(10),a.fecha,101) > "01/01/2007" AND
a.status_t is null
IF cantidad_conduce IS NULL THEN
LET cantidad_conduce = 0
END IF
LET diferencia = cantidad_orden - cantidad_conduce
IF diferencia < 0 THEN
LET diferencia = diferencia * -1
END IF
IF diferencia IS NULL THEN
LET diferencia = 0
END IF
IF diferencia < .05 THEN
IF status_m <> 1 THEN
UPDATE prtb00012 set cerrada = "S",estado_despacho = 'DESPACHADA',us_mod = usuarios,fech_mod = getdate()
WHERE num_oc = ordenx
# ACTUALIZA EL ESTADO DE LA REQUISICION DESPACHO
UPDATE cctb00025 set estado_despacho = 'DESPACHADA',
us_mod = usuarios,
fech_mod = getdate()
WHERE num_req = pnum_req
END IF
END IF
IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
UPDATE cctb00025 set estado_despacho = 'DESPACHO PARCIAL',
us_mod = usuarios,fech_mod = getdate()
WHERE num_req =pnum_req AND
status_t IS NULL
IF cantidad_devuelta > cantidad_orden THEN
UPDATE prtb00012 SET estado_devolucion ='DEVOLUCION COMPLETA',us_mod = usuarios,fech_mod = getdate()
WHERE num_oc = otros_mov.conduce_no
ELSE
UPDATE prtb00012 SET estado_devolucion ='DEVOLUCION PARCIAL',us_mod = usuarios,fech_mod = getdate()
WHERE num_oc = otros_mov.conduce_no
END IF
END IF
#-> Actualiza la tabla de monitoreo de las ordenes de corte vg. Saturday, 03 March, 2001 10:51:42 AM
IF otros_mov.conduce_no IS NOT NULL THEN
LET prtb09.detalle =otros_mov.descrip_mov CLIPPED, " CON EL NUMERO DE DOCUMENTO: ",otros_mov.num_doc USING "<<<<<<<",
" DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"
INSERT INTO prtb00009
VALUES (ordenx,otros_mov.fecha,NULL,"S",prtb09.detalle,NULL,USER,getdate(),NULL,NULL)
END IF
# PROCEDIMIENTO ENVIO CORREO
IF chconduce = 'S' OR pcontrol_departamento = "SI" THEN
LET TOEmail = NULL
IF psec_vend IS NOT NULL THEN
SELECT UNIQUE a.email INTO TOEmail
FROM seg0000 a
WHERE a.sec_vend = psec_vend
END IF
# INFORMACION PARA ENVIAR EL CORREO A LOS VENDEDORES
LET subject = otros_mov.conduce_no,otros_mov.descrip_mov CLIPPED
IF TOEmail IS NULL THEN
LET TOEmail = "jsoto@marmotech.com.do"
ELSE
LET toemail=toemail CLIPPED,";soporteclientes@marmotech.com.do"
END IF
DECLARE buscaCorreos CURSOR FOR
SELECT a.correo FROM seg0003 a
WHERE a.controldespacho = 'SI'
LET ccemail = NULL
FOREACH buscacorreos INTO PCCEMAIL
LET CCEmail = Pccemail CLIPPED,';',CCEmail
END FOREACH
# LET toemail = 'jsoto@marmotech.com.do'
# LET ccemail = 'jsoto@marmotech.com.do'
IF ccemail IS NULL THEN
LET ccemail = 'jsoto@marmotech.com.do'
END IF
IF subject IS NULL THEN
LET subject = 'DOCUMENTO ',otros_mov.num_doc USING "&&&&&&&&"," CODIGO MOV ",otros_mov.cod_mov USING "&&&"
END IF
IF TOemail IS NULL THEN
LET TOemail = "soporteclienteclientes@marmotech.com.do"
END IF
LET cuerpo_correo = 'CLIENTE: ',otros_mov.descrip4 CLIPPED,", ",
otros_mov.detalle CLIPPED
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
CALL envia_correo(TOemail,CCEmail,cuerpo_correo,
subject, procedimiento )
END IF
LET opt2 = fgl_winquestion("IMPRESION","Desea Imprimir Formulario Ahora?","YES","YES|NO","QUESTION",0)
IF opt2 = "YES" THEN
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu4 TO archivo
LET ya = NULL
FOR idx = 1 TO arr_count()
IF movi2[idx].cod_sec IS NOT NULL THEN
OUTPUT TO REPORT formu4(otros_mov.*,movi2[idx].*)
END IF
END FOR
FINISH REPORT formu4
RUN imprime
END IF
######### ADICION A SQL_E CUANDO ES DEVOLUCION MERCANCIA
IF control_devolucion = "SI" THEN
SET CONNECTION "SQL_E"
LET tmpnumero = otros_mov.num_doc
SELECT a.num_doc INTO otros_mov.num_doc
FROM iptb00007 a
WHERE a.cod_mov = otros_mov.cod_mov #AND
# a.bodega = otros_mov.bodega
IF otros_mov.num_doc IS NULL THEN
INSERT INTO iptb00007 (num_doc,cod_mov,bodega)
VALUES (1,otros_mov.cod_mov,otros_mov.bodega)
ELSE
LET otros_mov.num_doc = otros_mov.num_doc + 1
END IF
LET factura_e = NULL
FOR idx = 1 TO movi2.getLength()
SELECT MAX(a.factura),MAX(a.sucid) INTO factura_e,psucid FROM vetb00002 a,vetb00003 b
WHERE a.factura_c = otros_mov.fact_no AND
a.factura = b.factura AND
(b.cod_n = movi2[idx].cod_n AND b.cod_grupo = movi2[idx].cod_grupo AND
b.cod_tipo = movi2[idx].cod_tipo AND b.cod_sec = movi2[idx].cod_sec ) AND
a.status_t IS NULL
IF factura_e IS NOT NULL THEN
INSERT INTO iptb00006 (cod_cia,num_doc,fact_no,fecha,cod_transp,sec_transp,
cod_sp,cod_sp_sec,placa,cod_tarifa,cod_mov,area,cod_n,
cod_grupo,cod_tipo,cod_sec,cantidad_1,cantidad_2,
bodega,us_crea,fech_crea,num_oc,cotizacion_no,num_doc_c,
bodega_d,conduce_no,
detalle,num_req,sec_vend)
VALUES (otros_mov.cod_cia,otros_mov.num_doc,
factura_e,otros_mov.fecha,
otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_sp,
otros_mov.cod_sp_sec,otros_mov.placa,otros_mov.cod_tarifa,
otros_mov.cod_mov,movi2[idx].area, movi2[idx].cod_n,
movi2[idx].cod_grupo,movi2[idx].cod_tipo,
movi2[idx].cod_sec,movi2[idx].cantidad_1, movi2[idx].cantidad_2,'1',usuarios,getdate(),ordenx,
xcotizacion,tmpnumero,psucid,otros_mov.conduce_no,otros_mov.detalle,pnum_req,psec_vend)
END IF
END FOR
UPDATE iptb00007 SET num_doc = otros_mov.num_doc WHERE cod_mov = otros_mov.cod_mov
END IF
SET CONNECTION "SQL_C"
LET numero_msg = 1
CALL msg(numero_msg)
CALL movi2.clear()
END IF
END INPUT
ON ACTION CANCEL
LET INT_FLAG = FALSE
CALL msg(2)
EXIT PROGRAM
END DIALOG
END FUNCTION
REPORT formu4(x,z)
DEFINE x RECORD
num_doc LIKE iptb00006.num_doc,
cod_cia LIKE iptb00006.cod_cia,
cod_mov LIKE iptb00006.cod_mov,
fact_no LIKE iptb00006.fact_no,
cod_transp LIKE iptb00006.cod_transp,
sec_transp LIKE iptb00006.sec_transp,
cod_tarifa LIKE iptb00006.cod_tarifa,
placa LIKE iptb00006.placa,
fecha LIKE iptb00006.fecha,
conduce_no LIKE iptb00006.conduce_no,
descrip_mov CHAR(40), #LIKE intb00005.descrip_mov,
bodega LIKE iptb00006.bodega,
bodega_destino SMALLINT,
detalle LIKE iptb00006.detalle,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
departamento SMALLINT,
nombre_depto CHAR(30),
cod_mov1 SMALLINT,
entrada INT,
descrip_mov1 CHAR(40),
descrip4 CHAR(30)
END RECORD
DEFINE z RECORD
area SMALLINT,
cod_n LIKE intb00003.cod_n,
cod_grupo LIKE intb00003.cod_grupo,
cod_tipo LIKE intb00003.cod_tipo,
cod_sec LIKE intb00003.cod_sec,
cantidad_1 LIKE iptb00006.cantidad_1,
cantidad_2 LIKE iptb00006.cantidad_2,
cantidad_p DEC(12,5),
unidad_med LIKE iptb00002.unidad_med,
descrip_esp CHAR(80),
existencia DEC(12,5),
disponible DEC(12,5),
codigo_bloque CHAR(15),
id_kit INT
END RECORD,
etiqueta,ptelefono,ptelefono1,pcelular,nombre,apellido CHAR(30),
plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),
pprovincia SMALLINT,
nombre_provincia CHAR(30),
nombre_p CHAR(70),
total_unidades INT,
hora CHAR(5),
pubica CHAR(60),
porden_cliente varchar(25)
DEFINE usuario_c CHAR(9)
DEFINE signo CHAR(1)
DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
DEFINE l,cuenta SMALLINT,
darea varchar(40)
OUTPUT
LEFT MARGIN 0
ORDER BY x.num_doc,z.area,z.cod_sec
FORMAT
BEFORE GROUP OF x.num_doc
LET doble = ASCII 14
LET doble_of = ASCII 20
LET negras = ASCII 27, ASCII 69
LET negras_off = ASCII 27, ASCII 70
LET comp_on = ASCII 15
SELECT unique us_crea INTO usuario_c
FROM iptb00006 WHERE num_doc = x.num_doc AND
cod_mov = x.cod_mov AND
us_crea = user
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET hora = time
PRINT doce
#PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
IF x.cod_sp <> 19 AND x.cod_sp <> 18 THEN
PRINT COLUMN 1,doble, "M A R M O T E C H, S. A.",doble_of
END IF
PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
#LET l = (80 - LENGTH ("OTROS MOVIMIENTOS")) / 2
PRINT #COLUMN l, "OTROS MOVIMIENTOS",
COLUMN 71, x.fecha using "dd/mm/yyyy"
PRINT COLUMN 71, hora
LET l = (70 - LENGTH (x.descrip_mov)) / 2
PRINT COLUMN l-2, doble,negras,"(",x.cod_mov using "&&",") ",x.descrip_mov,doble_of
PRINT negras_off
IF x.cod_mov = 12 THEN
PRINT COLUMN 1, "Factura No: ",x.fact_no using "&&&&&&"
END IF
IF x.detalle is null THEN
LET x.detalle = "**************************************"
END IF
{ COMENTARIO DE ESTAS DIRECCIONES PORQUE SOLO SE VA A TOMAR LA DIRECCION DEL PROYECTO
QUE ASU VEZ VIENE EN EL MENSAJE DE LA REQUISICION
SELECT a.calle,a.casa_num,a.urbanizacion,b.telefono,b.telex,c.nom1_emp,c.apell1_emp,b.cod_provincia
INTO pcalle,pcasa_num,purbanizacion,ptelefono,pcelular,nombre,apellido,pprovincia
FROM vetb00005 a,vetb00004 b,vetb00028 d,adtb00003 c
WHERE a.tipo_cliente = x.cod_sp AND
a.sec_cliente = x.cod_sp_sec AND
a.tipo_cliente = d.tipo_cliente AND
a.sec_cliente = d.sec_cliente AND
a.tipo_cliente = b.tipo_cliente AND
a.sec_cliente = b.sec_cliente AND
d.sec_vend = c.num_emp
SELECT a.nombre_proyecto,a.direccion_proyecto INTO nombre_p,direccion_p
FROM vetb00050 a
WHERE a.tipo_cliente = x.cod_sp AND
a.sec_cliente = x.cod_sp_Sec AND
a.cotizacion_no = xcotizacion
}
LET pcelular = NULL
LET ptelefono = NULL
LET ptelefono1 = NULL
LET nombre_p = null
LET nombre = NULL
SELECT a.nom1_emp+' '+a.apell1_emp INTO nombre
FROM adtb00003 a
WHERE a.num_emp = psec_vend
SELECT a.nombre_proyecto,a.telefono_r,a.telefono_o,a.celular1
INTO nombre_p,ptelefono,ptelefono1,pcelular
FROM vetb00050 a
WHERE a.cotizacion_no = xcotizacion
LET nombre_provincia = NULL
IF x.cod_mov = 30 OR x.cod_mov = 31 THEN
SELECT a.nombre_provincia INTO nombre_provincia
FROM vetb00020 a
WHERE a.cod_provincia = pprovincia
END IF
IF x.cod_mov = 55 THEN
SELECT unique a.nom_pais INTO nombre_provincia FROM cotb00018 a
WHERE a.cod_pais = pprovincia
END IF
SELECT a.direccion,a.nombre_file INTO pubica,porden_cliente FROM prtb00012 a
WHERE a.num_oc = x.conduce_no AND CONVERT (CHAR(10),a.fech_crea,103) > "01/01/2007"
# SELECT a.observacion INTO pobserva FROM prtb00014 a
# WHERE a.num_oc = x.conduce_no AND a.fech_crea > datetime (2007-01-01 08:00) year to minute
# BUSCA BODEGAS
SELECT a.descripcion INTO almacen_origen FROM intb00009 a
WHERE a.cod_bodega = x.bodega
SELECT a.descripcion INTO almacen_destino FROM intb00009 a
WHERE a.cod_bodega = x.bodega_destino
PRINT COLUMN 1, "ALMACEN : ",almacen_origen
PRINT COLUMN 1, "ALMACEN DESTINO : ",almacen_destino
PRINT COLUMN 1, "CLIENTE : ",negras, x.descrip4," (",
x.cod_sp using "&&","-",
x.cod_sp_sec using "&&&&&&",")",negras_off
#PRINT COLUMN 1, "DIRECCION: ",pcalle CLIPPED," ",pcasa_num CLIPPED," ",purbanizacion CLIPPED,
# " TELEFONO: ",ptelefono CLIPPED," CELULAR: ",pcelular
PRINT COLUMN 1, "Proyecto : ",nombre_p CLIPPED, " DIRECCION: ",direccion_p CLIPPED
PRINT COLUMN 1, "TELEFONO1: ",ptelefono CLIPPED," TELEFONO2 :,",ptelefono1, " CELULAR: ",pcelular
PRINT COLUMN 1, "Vendedor : ",nombre clipped," ",apellido
PRINT COLUMN 1, "Entrada : ",x.entrada USING "<<<<<<"," (",x.cod_mov1 USING "<<<",") ",x.descrip_mov1 CLIPPED
PRINT COLUMN 1, "Orden : ",x.conduce_no,
COLUMN 20,"ORDEN CLIENTE: ",porden_cliente," COTIZACION NO: ",xcotizacion USING "&&&&&&"
#,"Observacion Orden: ",pobserva CLIPPED
PRINT COLUMN 1, "Requisicion: ",pnum_req USING "<<<<<<"
#PRINT COLUMN 1, "Ubicacion: ",pubica CLIPPED
IF x.departamento IS NOT NULL THEN
PRINT COLUMN 1, "DEPARTAMENTO: ",x.departamento USING "<<<<"," ",x.nombre_depto
END IF
PRINT comp_on
PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"
PRINT COLUMN 2,doble, "PRODUCTO(S)",doble_of CLIPPED
PRINT COLUMN 123, "CANTIDAD"
PRINT COLUMN 108, "CANTIDAD",
COLUMN 123, "PENDIENTE"
PRINT COLUMN 94, "UNIDADES",
COLUMN 108, "A DESPACHAR",
# COLUMN 123, "CON ESTA TRANSACCION",
2 SPACES, "BLOQUE"
PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"
SKIP 1 LINES
BEFORE GROUP OF z.area
SELECT a.nombre_Area INTO darea FROM prtb00016 a
WHERE a.area_num = z.area
PRINT COLUMN 2, darea CLIPPED
ON EVERY ROW
IF z.cod_n is not null and z.cod_grupo is not null and
z.cod_tipo is not null and z.cod_sec is not null THEN
PRINT COLUMN 2, z.cod_n using "&&&&","-",
z.cod_grupo using "&&&&","-",
z.cod_tipo using "&&&&&&","-",
z.cod_sec using "&&&&&&&"," ",
z.descrip_esp[1,64] ," ";
IF cuenta = 1 THEN
LET signo = "+"
ELSE
LET signo = "-"
LET z.cantidad_2 = z.cantidad_2 * -1
END IF
IF z.cantidad_2 < 0 THEN
LET z.cantidad_2 = z.cantidad_2 * -1
END IF
PRINT COLUMN 69, z.cantidad_1 USING "###,###.#####",
COLUMN 84, z.cantidad_2 using "###,###.#####"," ",z.unidad_med,
COLUMN 105, z.cantidad_p using "###,###.#####",
2 SPACES, z.codigo_bloque
IF z.descrip_esp[65,80] <> ' ' THEN
PRINT COLUMN 22,z.descrip_esp[65,80]
END IF
DECLARE busca_d1 CURSOR FOR
SELECT b.descripcion,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM iptb00025 a,vetb00026 b
WHERE a.area = z.area AND
a.cod_n = z.cod_n AND
a.cod_grupo = z.cod_grupo AND
a.cod_tipo = z.cod_tipo AND
a.cod_sec = z.cod_sec AND
a.cod_mov = X.cod_mov AND
a.num_Doc = x.num_doc AND
CAST(a.etiqueta AS SMALLINT)= b.codid
LET total_unidades = 0
FOREACH busca_d1 INTO etiqueta,plado1,plado2,plado3,pcantidad,pmedida
PRINT COLUMN 19,pcantidad USING "<,<<<"," ",etiqueta ," DE ",plado1 USING "<<.#####"," X ",
plado2 USING "<<.#####"," X ",plado3 USING "<<.#####"," = ",pmedida USING "<<<.#####"
LET total_unidades = total_unidades + pcantidad
END FOREACH
IF total_unidades > 0 THEN
PRINT COLUMN 19, "TOTAL UNIDADES ",total_unidades USING "<,<<<"
END IF
END IF
PAGE TRAILER
SKIP 1 LINE
PRINT COLUMN 1, "OBSERVACIONES: ", UPSHIFT(x.detalle)
SKIP 1 LINE
PRINT COLUMN 1, "TRANSPORTISTA: ",descrip2
PRINT COLUMN 1, "PLACA : ",x.placa
SKIP 4 LINES
PRINT COLUMN 1, "------------------",
COLUMN 32, "------------------",
COLUMN 55, "------------------"
PRINT COLUMN 5, "Entregado Por",
COLUMN 34, "Recibido Por",
COLUMN 58, "Aprobado Por"
SKIP 1 LINE
PRINT COLUMN 2,
"Original: Contabilidad Copia: Vendedor Copia: Ventas Copia: Almacen"
PRINT normal
END REPORT
FUNCTION busca_vend()
DEFINE arr_vend ARRAY[200] OF RECORD
sec_cliente INTEGER,
num_emp INTEGER,
nombre CHAR(30)
END RECORD
OPEN WINDOW busca_1 AT 8,4 WITH FORM "ipfmwd004" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)
DECLARE busca_1 CURSOR FOR
SELECT a.sec_cliente,a.num_emp,b.nombre FROM vetb00033 a,vetb00004 b
WHERE a.sec_cliente = b.sec_cliente AND a.status_t IS NULL
ORDER BY 1
LET idx = 1
FOREACH busca_1 INTO arr_vend[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY arr_vend TO sc_vend.*
LET idx = ARR_CURR()
LET busca_v.sec_cliente = arr_vend[idx].sec_cliente
LET busca_v.nombre = arr_vend[idx].nombre
CLOSE WINDOW busca_1
END FUNCTION
FUNCTION busca_prod1()
DEFINE arr_prod DYNAMIC ARRAY OF RECORD
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(30),
unidad_med CHAR(5)
END RECORD
OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp
LET selec_pt =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
" a.unidad_med FROM iptb00002 a ",
"WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY a.descrip_esp "
PREPARE comando_p FROM selec_pt
DECLARE busca_2 CURSOR FOR comando_p
LET idx = 1
FOREACH busca_2 INTO arr_prod[idx].*
LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)
DISPLAY ARRAY arr_prod TO s_prod.*
LET idx = ARR_CURR()
LET busca_p.cod_n = arr_prod[idx].cod_n
LET busca_p.cod_grupo = arr_prod[idx].cod_grupo
LET busca_p.cod_tipo = arr_prod[idx].cod_tipo
LET busca_p.cod_sec = arr_prod[idx].cod_sec
LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
LET busca_p.unidad_med = arr_prod[idx].unidad_med
# para el precio
LET p_vetb25.cod_n = arr_prod[idx].cod_n
LET p_vetb25.cod_grupo = arr_prod[idx].cod_grupo
LET p_vetb25.cod_tipo = arr_prod[idx].cod_tipo
LET p_vetb25.cod_sec = arr_prod[idx].cod_sec
LET descrip1 = arr_prod[idx].descrip_esp
LET medida = arr_prod[idx].unidad_med
CLOSE WINDOW busca_2
END FUNCTION
FUNCTION despiece()
DEFINE cetiqueta VARCHAR(20)
OPEN WINDOW wdespiece AT 5,3 WITH FORM "ipfmwd010" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)
DISPLAY BY NAME movi2[p_act].descrip_esp,movi2[p_act].unidad_med
CALL despiece.clear()
IF otros_mov.entrada IS NOT NULL THEN
DECLARE busca_ent CURSOR FOR
SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM iptb00025 a
WHERE a.cod_mov = otros_mov.cod_mov1 AND
a.num_doc = otros_mov.entrada AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.area = movi2[p_act].area
UNION
SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM iptb00025 a
WHERE a.cod_mov = otros_mov.cod_mov AND
a.num_doc = tmpnumero AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.area = movi2[p_act].area
LET idx = 1
FOREACH busca_ent INTO despiece[idx].*
LET idx = idx + 1
END FOREACH
ELSE
SELECT UNIQUE a.cod_n FROM iptb00025 a
WHERE a.cod_mov = otros_mov.cod_mov AND
a.num_doc = otros_mov.num_doc AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.area = movi2[p_act].area
IF STATUS = NOTFOUND THEN
DECLARE busca_despiece CURSOR FOR
SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM prtb00022 a
WHERE
a.num_oc =ordenx AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.area = movi2[p_act].area
LET idx = 1
FOREACH busca_despiece INTO despiece[idx].*
LET idx = idx + 1
END FOREACH
ELSE
IF pcontrol_despacho <> "SI" THEN
DECLARE busca_despiece1 CURSOR FOR
SELECT b.descripcion,a.cod_n,a.cod_grupo,a.cod_tipo,
a.cod_sec,a.lado_1,a.lado_2,a.lado_3, a.cantidad,a.medida
FROM prtb00022 a,vetb00026 b
WHERE a.num_oc = otros_mov.conduce_no AND
a.area = movi2[p_act].area AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
CAST(a.etiqueta AS SMALLINT) = b.codid
LET idx = 1
FOREACH busca_despiece1 INTO despiece[idx].*
LET idx = idx + 1
END FOREACH
ELSE
DECLARE busca_despiece12 CURSOR FOR
SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,
a.cod_sec,a.lado_1,a.lado_2,a.lado_3,
c.cantidad_r,c.medida_r
FROM prtb00022 a, cctb00027 c
WHERE a.num_oc = ordenx AND
a.area = c.area AND
a.area = movi2[p_act].area AND
a.cod_n = movi2[p_act].cod_n AND
a.cod_grupo = movi2[p_act].cod_grupo AND
a.cod_tipo = movi2[p_act].cod_tipo AND
a.cod_sec = movi2[p_act].cod_sec AND
a.cod_n = C.cod_n AND
a.cod_grupo = c.cod_grupo AND
a.cod_tipo = c.cod_tipo AND
a.cod_sec = c.cod_sec AND
c.num_req = pnum_req
LET idx = 1
FOREACH busca_despiece12 INTO despiece[idx].*
LET idx = idx + 1
END FOREACH
END IF
END IF
END IF
LET despiece[1].cod_n = movi2[p_act].cod_n
LET despiece[1].cod_grupo = movi2[p_act].cod_grupo
LET despiece[1].cod_tipo = movi2[p_act].cod_tipo
LET despiece[1].cod_sec = movi2[p_act].cod_sec
CALL set_count(idx-1)
INPUT ARRAY despiece WITHOUT DEFAULTS FROM sdespiece.*
BEFORE ROW
LET curr1 = arr_curr()
LET fila = scr_line()
CALL cetiquetas()
LET despiece[curr1].cod_n = movi2[p_act].cod_n
LET despiece[curr1].cod_grupo = movi2[p_act].cod_grupo
LET despiece[curr1].cod_tipo = movi2[p_act].cod_tipo
LET despiece[curr1].cod_sec = movi2[p_act].cod_sec
IF curr1 > 1 THEN
IF despiece[curr1].etiqueta IS NULL THEN
LET despiece[curr1].etiqueta = despiece[curr1-1].etiqueta
END IF
END IF
DISPLAY cetiqueta TO sdespiece[fila].etiqueta
DISPLAY movi2[p_act].cod_n TO sdespiece[fila].cod_n
DISPLAY movi2[p_act].cod_grupo TO sdespiece[fila].cod_grupo
DISPLAY movi2[p_act].cod_tipo TO sdespiece[fila].cod_tipo
DISPLAY movi2[p_act].cod_sec TO sdespiece[fila].cod_sec
AFTER FIELD cantidad
IF movi2[p_act].unidad_med = "M2" THEN
LET despiece[curr1].medida =
despiece[curr1].cantidad * (despiece[curr1].lado_1 * despiece[curr1].lado_2)
END IF
IF movi2[p_act].unidad_med = "M3" THEN
LET despiece[curr1].medida =
despiece[curr1].cantidad * (despiece[curr1].lado_1 * despiece[curr1].lado_2 * despiece[curr1].lado_3)
END IF
IF movi2[p_act].unidad_med = "ML" THEN
LET despiece[curr1].medida =
despiece[curr1].cantidad * despiece[curr1].lado_1
LET despiece[curr1].lado_2 = 0
END IF
IF movi2[p_act].unidad_med = "UD" OR movi2[p_act].unidad_med = "GL" THEN
LET despiece[curr1].medida = despiece[curr1].cantidad
END IF
DISPLAY despiece[curr1].medida TO sdespiece[fila].medida
AFTER ROW
IF despiece[curr1].medida IS NULL AND despiece[curr1].lado_1 IS NOT NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD lado_1
END IF
LET total_medida = 0
FOR idx = 1 TO arr_count()
IF despiece[idx].medida IS NOT NULL THEN
LET total_medida = total_medida + despiece[idx].medida
END IF
END FOR
DISPLAY BY NAME total_medida
AFTER INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
EXIT INPUT
END IF
LET total_medida = 0
FOR idx = 1 TO arr_count()
IF despiece[idx].medida IS NOT NULL THEN
LET total_medida = total_medida + despiece[idx].medida
END IF
END FOR
DISPLAY BY NAME total_medida
END INPUT
IF int_flag THEN
LET int_flag = FALSE
CLOSE WINDOW wdespiece
RETURN
END IF
DELETE FROM iptb00025 WHERE num_doc = otros_mov.num_doc AND
cod_mov = otros_mov.cod_mov AND
cod_n = movi2[p_act].cod_n AND
cod_grupo = movi2[p_act].cod_grupo AND
cod_tipo = movi2[p_act].cod_tipo AND
cod_sec = movi2[p_act].cod_sec AND
area = movi2[p_act].area
LET total_medida = 0
FOR idx = 1 TO arr_count()
IF despiece[idx].medida IS NOT NULL THEN
INSERT INTO iptb00025 (etiqueta
,cod_mov
,num_doc
,area
,cod_n
,cod_grupo
,cod_tipo
,cod_sec
,lado_1
,lado_2
,lado_3
,cantidad
,medida
,us_crea,fech_crea)
VALUES (despiece[idx].etiqueta,otros_mov.cod_mov,otros_mov.num_doc,
movi2[p_act].area,movi2[p_act].cod_n,movi2[p_act].cod_grupo,
movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
despiece[idx].lado_1,despiece[idx].lado_2,
despiece[idx].lado_3,despiece[idx].cantidad,
despiece[idx].medida,usuarios,getdate())
LET total_medida = total_medida + despiece[idx].medida
END IF
END FOR
LET movi2[p_act].cantidad_1 = total_medida
CLOSE WINDOW wdespiece
END FUNCTION
FUNCTION consulta()
CONSTRUCT CRITERIO ON iptb00006.num_Doc,iptb00006.cod_mov,iptb00006.fecha,iptb00006.conduce_no,
iptb00006.cod_sp,iptb00006.cod_sp_Sec,iptb00006.bodega
FROM num_doc,cod_mov,fecha,conduce_no,cod_sp,cod_sp_sec,bodega
AFTER CONSTRUCT
IF INT_FLAG THEN
LET INT_FLAG = FALSE
RETURN
END IF
END CONSTRUCT
CALL movi2.clear()
LET selec =
"SELECT DISTINCT iptb00006.num_doc, iptb00006.cod_cia , iptb00006.cod_mov , iptb00006.fact_no, iptb00006.cod_transp, ",
"iptb00006.sec_transp AS Expr6, iptb00006.cod_tarifa AS Expr7, iptb00006.placa AS Expr8, iptb00006.fecha AS Expr9, iptb00006.conduce_no,",
"iptb00005.descrip_mov AS Expr11, iptb00006.bodega , iptb00006.bodega_d, iptb00006.detalle AS Expr13, iptb00006.cod_sp AS Expr14, ",
"iptb00006.cod_sp_sec AS Expr15, iptb00026.departamento AS Expr16, adtb00001.nom_dpto AS Expr17, iptb00028.cod_mov1,iptb00028.entrada AS Expr18, ",
" ' ',' ',iptb00006.num_req,iptb00006.sec_vend ",
" FROM adtb00001 INNER JOIN ",
" iptb00026 ON adtb00001.departamento = iptb00026.departamento RIGHT OUTER JOIN ",
" iptb00006 INNER JOIN ",
" iptb00048 ON iptb00006.bodega = iptb00048.bodega AND iptb00048.usuario ='",usuarios,"'",
" INNER JOIN iptb00005 ON iptb00006.cod_mov = iptb00005.cod_mov ON ",
" iptb00026.num_doc = iptb00006.num_doc AND ",
" iptb00026.cod_mov = iptb00006.cod_mov LEFT OUTER JOIN ",
" iptb00028 ON iptb00006.num_doc = iptb00028.num_doc AND iptb00006.cod_mov = iptb00028.cod_mov ",
"WHERE ", criterio CLIPPED, " and IPTB00006.status_t IS NULL and iptb00006.fecha > '01/01/2009'"
PREPARE comando FROM selec
DECLARE busca4 SCROLL CURSOR WITH HOLD FOR comando
OPEN busca4
FETCH FIRST busca4 INTO otros_mov.*,pnum_req,psec_vend
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
RETURN
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.*,pnum_req,psec_vend
MENU "Busqueda "
COMMAND "Siguiete " "Sieguiente Registro Cumpla Condicion"
FETCH NEXT busca4 INTO otros_mov.*,pnum_req,psec_vend
IF STATUS = NOTFOUND THEN
LET numero_msg = 4
CALL msg(numero_msg)
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.*,pnum_req,psec_vend
COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado"
FETCH PREVIOUS busca4 INTO otros_mov.*,pnum_req,psec_vend
IF STATUS = NOTFOUND THEN
LET numero_msg = 5
CALL msg(numero_msg)
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.*,pnum_req,psec_vend
COMMAND "Primero" "Presenta en pantalla el primer registro encontrado"
FETCH FIRST busca4 INTO otros_mov.*,pnum_req,psec_vend
LET numero_msg = 5
CALL msg(numero_msg)
CALL busca_info()
DISPLAY BY NAME otros_mov.*,psec_vend
COMMAND "Ultimo" "Presenta en pantalla el ultimo registro encontrado"
FETCH LAST busca4 INTO otros_mov.*,pnum_req,psec_vend
LET numero_msg = 4
CALL msg(numero_msg)
CALL busca_info()
DISPLAY BY NAME otros_mov.*,pnum_req,psec_vend
COMMAND "Items" "Busca Items"
DECLARE busca1 CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
a.cantidad_1,a.cantidad_2,'0',b.unidad_med,b.descrip_esp
FROM iptb00006 a,iptb00002 b
WHERE a.num_doc = otros_mov.num_doc AND
a.cod_mov = otros_mov.cod_mov AND
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 AND
a.bodega = otros_mov.bodega AND
a.fech_crea > '01/01/2009 08:00'
ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
LET idx = 1
FOREACH busca1 INTO movi2[idx].*
IF movi2[idx].cantidad_2 < 0 THEN
LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
END IF
SELECT SUM(a.cantidad) INTO cantidad_conduce FROM prtb00013 a
WHERE a.cod_n = movi2[idx].cod_n AND
a.cod_grupo = movi2[idx].cod_grupo AND
a.cod_tipo = movi2[idx].cod_tipo AND
a.cod_sec = movi2[idx].cod_sec AND
a.num_oc = otros_mov.conduce_no AND
a.status_t IS NULL
LET cantidad_orden =0
IF otros_mov.cod_mov = 30 AND otros_mov.cod_mov = 31 OR otros_mov.cod_mov = 55 THEN
SELECT SUM(a.cantidad_2*-1) INTO cantidad_orden
FROM iptb00006 a
WHERE a.cod_n=movi2[idx].cod_n and a.cod_grupo=movi2[idx].cod_grupo
and a.cod_tipo=movi2[idx].cod_tipo and a.cod_sec=movi2[idx].cod_sec
and a.conduce_no = otros_mov.conduce_no and cod_mov in (30,31,55)
and a.status_t IS NULL
END IF
IF cantidad_orden IS NULL THEN
LET cantidad_orden = 0
END IF
IF cantidad_conduce IS NULL THEN
LET cantidad_conduce = 0
END IF
LET movi2[idx].cantidad_p = cantidad_conduce - cantidad_orden
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi2 TO s_movi1.*
PROMPT "Desea Imprimir Formulario Ahora? (S/N)" FOR CHAR opt2
IF opt2 = "S" OR opt2 = "s" THEN
#LET archivo = FGL_GETENV("FGLSPOOL"),"\\ipmt44"
#START REPORT formu4 TO archivo
{START REPORT formu4 TO "C:\\archivo"}
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu4 TO archivo
FOR idx = 1 TO arr_count()
IF movi2[idx].cod_sec IS NOT NULL THEN
IF movi2[idx].cantidad_2 IS NOT NULL AND
movi2[idx].cantidad_2 != 0 THEN
OUTPUT TO REPORT formu4(otros_mov.*,movi2[idx].*)
END IF
END IF
END FOR
FINISH REPORT formu4
IF opt2 = "S" OR opt2 = "s" THEN
# LET filename = "TYPE ",archivo CLIPPED," > %USPRINT%"
# RUN filename
RUN imprime
END IF
END IF
CALL movi2.clear()
COMMAND "Retornar" "Retorna al menu anterior"
CLEAR FORM
EXIT MENU
END MENU
END FUNCTION
FUNCTION busca_info()
SELECT nombre INTO descrip2 FROM vetb00015
WHERE cod_transp=otros_mov.cod_transp and
sec_transp=otros_mov.sec_transp and
status_t is null
SELECT nombre INTO otros_mov.descrip4 FROM vetb00004
WHERE tipo_cliente = otros_mov.cod_sp and
sec_cliente = otros_mov.cod_sp_sec
SELECT a.descrip_mov INTO otros_mov.descrip_mov1 FROM iptb00005 a
WHERE a.cod_mov = otros_mov.cod_mov1
SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
FROM prtb00012 a
WHERE a.num_oc = otros_mov.conduce_no AND
a.status_t IS NULL
SELECT a.mensaje INTO direccion_p FROM cctb00029 a
WHERE a.num_req = pnum_req
DISPLAY BY NAME descrip2,otros_mov.descrip4,otros_mov.descrip_mov1,direccion_p
END FUNCTION
FUNCTION actualiza_st(forden)
DEFINE forden INTEGER,
prod_total,vent_total DEC(12,5),
prtb09 RECORD LIKE prtb00009.*
SELECT SUM(a.cantidad) INTO prod_total FROM prtb00013 a
WHERE a.num_oc = forden
IF STATUS = NOTFOUND THEN
LET prod_total = 0
END IF
LET vent_total = 0
SELECT SUM(b.cantidad_2) INTO vent_total
FROM IPTB00006 a
WHERE a.conduce_no = forden AND CONVERT(CHAR(10),a.fecha,101) > "31122006"
AND a.cod_sp = otros_mov.cod_sp
AND a.sec_cliente = otros_mov.cod_sp_Sec
AND a.cod_mov in (30,31,55,12,13)
AND a.status_t IS NULL
IF vent_total IS NULL THEN
LET vent_total = 0
END IF
#-> Actualiza la fecha de cierre de la orden de corte vg Wednesday, 17 January, 200112:42:33 PM
IF vent_total = prod_total THEN
UPDATE prtb00012 SET fecha_cierre = otros_mov.fecha,
cerrada = "S"
WHERE @num_oc = forden
AND @tipo_cliente = otros_mov.cod_sp
AND @sec_cliente = otros_mov.cod_sp_Sec
LET prtb09.num_oc = forden
LET prtb09.fecha = otros_mov.fecha
LET prtb09.pendiente = "N"
LET prtb09.detalle = "CIERRE DE ORDEN DE PRODUCCION SEGUN CONDUCE # ",otros_mov.num_doc USING "<<<<<<<",
" DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"
INSERT INTO prtb00009 VALUES (prtb09.num_oc,prtb09.fecha,null,prtb09.pendiente,
prtb09.detalle,NULL,USER,getdate(),NULL,NULL)
ELSE
LET prtb09.num_oc = forden
LET prtb09.fecha = otros_mov.fecha
LET prtb09.pendiente = "N"
LET prtb09.detalle = "DESPACHO ",otros_mov.descrip_mov CLIPPED,
" SEGUN CONDUCE # ",otros_mov.num_doc USING "<<<<<<<",
" DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"," CONTIENE PRODUCTO(S): ",
selec_pt CLIPPED
INSERT INTO prtb00009 VALUES (prtb09.num_oc,prtb09.fecha,null,prtb09.pendiente,
prtb09.detalle,NULL,USER,getdate(),NULL,NULL)
END IF
END FUNCTION
FUNCTION visualizacion_despacho()
DEFINE arr_autoriza_desp DYNAMIC ARRAY OF RECORD
num_oc INT,
cliente CHAR(66),
fecha CHAR(10),
tipo_cliente SMALLINT,
sec_cliente INT,
num_req INT
END RECORD
OPEN WINDOW w1 AT 10,5 WITH FORM "ipfmwd011"
DECLARE busca_autoriza CURSOR FOR
SELECT DISTINCT a.num_oc,rtrim(CAST(b.tipo_cliente AS CHAR(2)) +
'-'+CAST(b.sec_cliente AS CHAR(6)) +' '+b.nombre),
CAST (d.fecha AS CHAR(10)) AS FECHA,
b.tipo_cliente,b.sec_cliente,a.num_req
FROM cctb00026 a,vetb00004 b,prtb00012 c,cctb00025 d
WHERE (c.tipo_cliente = b.tipo_cliente AND
c.sec_cliente = b.sec_cliente) AND
(a.num_oc = c.num_oc) AND
c.tipo_orden = ptipoorden AND
(a.cotizacion_no = c.cotizacion_no) AND
c.cerrada = 'N' AND
A.num_req = d.num_req AND
d.estado in ('AUTORIZADA') AND d.estado_despacho IN ('DESPACHO PARCIAL','NO DESPACHADA') and
c.status_t is null and a.status_t IS NULL
ORDER BY fecha
LET idx = 1
FOREACH busca_autoriza INTO arr_autoriza_desp[idx].*
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY arr_autoriza_desp TO s_despachos.*
AFTER DISPLAY
LET idx = arr_curr()
IF Int_flag THEN
EXIT DISPLAY
END IF
END DISPLAY
CLOSE WINDOW w1
IF int_flag THEN
RETURN 0,0,0,0
ELSE
RETURN arr_autoriza_desp[idx].num_oc,
arr_autoriza_desp[idx].tipo_cliente,
arr_autoriza_desp[idx].sec_cliente,
arr_autoriza_desp[idx].num_req
END IF
END FUNCTION
FUNCTION existencia(pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,pid,xbodega)
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pid,xbodega SMALLINT,
pexistencia,pexistencia1,cantidad DEC(12,5),
verdad BOOLEAN
LET verdad = FALSE
SELECT SUM(a.cantidad_2) INTO pexistencia
FROM iptb00006 a
WHERE a.cod_n=Pcodn and
a.cod_grupo=Pcodgrupo
and a.cod_tipo=Pcodtipo and
a.cod_sec=Pcodsec AND
a.bodega = xbodega
and a.status_t IS NULL
IF pexistencia IS NULL THEN
LET pexistencia = 0
END IF
IF pexistencia1 IS NULL THEN
LET pexistencia1 = 0
END IF
IF pexistencia < 0 THEN
RETURN TRUE
END IF
IF cantidad > pexistencia THEN
RETURN TRUE
END IF
RETURN verdad
END FUNCTION
()
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30)
LET petiquetas = ui.combobox.forname("formonly.etiqueta")
DECLARE betiquetas CURSOR FOR
SELECT a.codid,a.descripcion FROM vetb00026 a
ORDER BY a.descripcion
CALL petiquetas.clear()
FOREACH betiquetas INTO ketiquetas,detiquetas
CALL petiquetas.additem(ketiquetas,detiquetas)
END FOREACH
END FUNCTION
FUNCTION control_requisicion(cantidad_Trx,xcodn,xcodgrupo,xcodtipo,xcodsec,xkit)
DEFINE cantidad_Trx dec(12,5),
xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT,
xkit INT
SELECT SUM(a.cantidad) INTO cantidadRequisicion
FROM cctb00026 a
WHERE
a.cod_n = xcodn AND
a.cod_grupo = xcodgrupo AND
a.cod_tipo = xcodtipo AND
a.cod_sec = xcodsec AND
a.num_req = pnum_req AND
a.status_t IS NULL
IF cantidadrequisicion IS NULL THEN
LET cantidadrequisicion = 0
END IF
SELECT SUM(a.cantidad_2) INTO Rcantidad_requisicion
FROM iptb00006 a
WHERE
a.cod_n = xcodn AND
a.cod_grupo = xcodgrupo AND
a.cod_tipo = xcodtipo AND
a.cod_sec = xcodsec AND
a.cod_mov IN (30,31,55,12,13) and
(a.num_req = pnum_req) AND
a.status_t IS NULL
IF Rcantidad_requisicion IS NULL THEN
LET Rcantidad_requisicion=0
END IF
IF rcantidad_requisicion < 0 THEN
LET rcantidad_requisicion = rcantidad_requisicion * -1
END IF
DISPLAY "cantidad req ",cantidadRequisicion," cantidad trx ",Rcantidad_requisicion+cantidad_Trx
IF Rcantidad_requisicion+cantidad_Trx > cantidadRequisicion+.03 THEN
RETURN FALSE
ELSE
RETURN true
END IF
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink