jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
0d174787895b885d73f623521aa8034600507755
MBS/PROYECTOS/ipdir/ipprmt044_2.4gl
T

5113 lines
197 KiB
Plaintext
Raw 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"
# <mbs name="Operacion Por Movimientos" type="V" program="ipprrp010" description="Sumatoria por codigo y tipo movimiento" />
# <mbs name="Operacion Movimientos Detallado" type="V" program="ipprrp004" description="Sumatoria por codigo y tipo movimiento Detallado" />
DEFINE num_cr_e,num_doc_e,factura_e,xconduce_no,num_doc_ret,ordenx,tmpnumero,tmpnueroExistencia,
xnum_doc_transferencia,xnum_doc_c,dias_factura,pnumero_doc INTEGER,
hacerdocumento BOOLEAN,
direccion_p VARCHAR(100),
pdescripmov VARCHAR(80),
xtipo_orden VARCHAR(50),
nombre_sucursal VARCHAR(80),
existminima DYNAMIC ARRAY OF FLOAT,
existenciaact DYNAMIC ARRAY OF FLOAT,
porcientoControl DYNAMIC ARRAY OF FLOAT,
enviaCorreo VARCHAR(2),
enviaEmailProd DYNAMIC ARRAY OF CHAR(2),
estadoordenes VARCHAR(200),
xusername,xsmtphost,xsmtpport, xpassword STRING,
almacen_orden VARCHAR(10),
arr_iptb58 DYNAMIC ARRAY OF RECORD
area INT,
cod_n,cod_grupo,cod_tipo,cod_sec INT,
descripcion VARCHAR(100),
unidad_med VARCHAR(4),
cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)
END RECORD
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,tienedespiece CHAR(1),
pnum_req,xcotizacion INTEGER,
pcontrol_cliente CHAR(3),
aplica_dev CHAR(2),
pcontrol_despacho,pcontrol_transferencia,chconduce,control_devolucion,pcontrol_departamento CHAR(2),
procedimiento ,
PCCEMAIL,TOemail,retorne VARCHAR(150),
cuerpo_correo VARCHAR(230),
CCEmail,subject VARCHAR(100),
psec_vend INT,
almacen_destino,almacen_origen VARCHAR(40),
xbodega VARCHAR(30)
DEFINE busca1,busca2,chitbis,_chitbis,prequisiciones CHAR(10),
pitbis,pdescuento,xporc_Desc DEC(12,2)
DEFINE nombre_emp,nom_cli CHAR(30)
DEFINE p_num_doc,trpendiente INTEGER
DEFINE p_itbi,valor_fac,p_total DECIMAL(12,2)
DEFINE salir,via CHAR(1),
ptotalb,xdescuento DEC(12,2)
DEFINE prtb09 RECORD LIKE prtb00009.*
DEFINE busca_v RECORD
sec_cliente INTEGER,
nombre CHAR(30)
END RECORD
DEFINE despiece DYNAMIC ARRAY OF RECORD
id_etiqueta SMALLINT,
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),
secuencia,id_despiece INT,
bodega SMALLINT
END RECORD,
cantidad_conduce DEC(12,5),
psucid SMALLINT
DEFINE despiece_act DYNAMIC ARRAY OF RECORD
id_etiqueta SMALLINT,
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),
secuencia INT
END RECORD
DEFINE arr_recibo RECORD
cod_mov LIKE iptb00006.cod_mov,
aplica_a LIKE cctb00001.aplica_a,
valor_pen DECIMAL(12,2),
desc_p LIKE cctb00001.monto_desc,
val_desc DECIMAL(12,2),
valor_pag DECIMAL(12,2)
END RECORD
DEFINE fact_gral RECORD
cod_cia LIKE vetb00002.cod_cia,
ventas LIKE vetb00002.ventas,
--zona CHAR(3),
factura LIKE vetb00002.factura,
bodega SMALLINT,
--conduce LIKE vetb00002.conduce,
--fecha_conduce DATE,
--fecha_factura DATE,
--tipo_cliente LIKE vetb00002.tipo_cliente,
--sec_cliente LIKE vetb00002.sec_cliente,
--nombre CHAR(30),
direccion CHAR(80),
--ciudad CHAR(20),
--prima_us LIKE vetb00002.prima_us,
--porc_desc LIKE vetb00002.porc_desc,
--cond_pago LIKE vetb00002.cond_pago,
--orden INT,
--fecha_orden DATE,
--porc_itbi LIKE vetb00002.porc_itbi,
--sec_vend LIKE vetb00002.sec_vend,
--nombre_vend CHAR(60),
--cod_transp LIKE iptb00006.cod_transp,
--sec_transp LIKE iptb00006.sec_transp,
--cod_tarifa LIKE iptb00006.cod_tarifa,
--nombre_tran CHAR(30),
--fecha_embarque DATE,
--placa_transp LIKE iptb00006.placa,
--sub_total DECIMAL(12,2),
--desc_valor DECIMAL(12,2),
--itbi DECIMAL(12,2),
--total_fact DECIMAL(12,2)
fecha_despacho DATE
END RECORD
DEFINE recibo RECORD
num_doc LIKE cctb00001.num_doc,
tipo_cliente LIKE cctb00001.tipo_cliente,
sec_cliente LIKE cctb00001.sec_cliente,
cod_emp_sec LIKE cctb00001.cod_emp_sec,
fecha_orig LIKE cctb00001.fecha_orig,
itbi DECIMAL(8,2),
concepto CHAR(60)
END RECORD,
ptipoorden STRING,
cantidadBultos INT
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
CALL ARG_VAL(4) RETURNING impresor1
CONNECT to "marmotech" AS "SQL_E" USER usuarios USING clave
CONNECT to "smarmotech" AS "SQL_C" USER usuarios USING clave
--CONNECT to "smarmotech" USER usuarios USING clave
SELECT * INTO p_companias.* FROM companias
SELECT controlOrdenesE FROM seg0003
WHERE usuario = usuarios AND controlOrdenesE = "SI"
IF STATUS <> NOTFOUND 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)
DEFINE datos RECORD
cod_cia SMALLINT,
num_doc INT,
fecha DATE,
fact_no char(10),
conduce_no char(10),
cod_sp SMALLINT,
cod_sp_sec SMALLINT,
cod_transp SMALLINT,
sec_transp SMALLINT,
placa char(10),
cod_tarifa SMALLINT,
cod_mov SMALLINT,
detalle varchar(255),
area SMALLINT,
cod_n INT,
cod_grupo INT,
cod_tipo INT,
cod_sec INT,
cantidad_1 decimal(12, 5),
cantidad_2 decimal(12, 5),
bodega SMALLINT,
us_crea char(50),
fech_crea date,
num_req INT,
codigo_bloque char(25),
sec_vend SMALLINT,
direccion char(500),
num_oc INT,
bodega_d SMALLINT,
num_Doc_retrabajo INT,
departamento INT,
factura INT,
cotizacion_no INT
END RECORD
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,
siDespiece BOOLEAN
DEFINE data RECORD
rnumeroDoc,rcodMov,rtipo_cliente,num_oc,tipo_cliente,sec_cliente,bodega,bodega_destino INT,
nombre VARCHAR(100)
END RECORD
DIALOG ATTRIBUTE(UNBUFFERED)
INPUT BY NAME otros_mov.num_doc,otros_mov.cod_cia,pnumero_Doc, otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,
num_doc_ret,pnum_req, aplica_dev ATTRIBUTE( WITHOUT DEFAULTS)
AFTER FIELD pnumero_doc
IF pnumero_doc IS NOT NULL THEN
SELECT a.cod_mov,a.num_oc,a.nombre,a.tipo_cliente,a.sec_cliente,a.bodega,
a.bodega_destino
INTO otros_mov.cod_mov,otros_mov.conduce_no,otros_mov.descrip4,
otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.bodega,
otros_mov.bodega_destino
FROM iptb00057 a WHERE a.numero_doc = pnumero_doc AND a.status_t IS NULL AND
a.estado = "AUTORIZADA"
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD pnumero_doc
END IF
DISPLAY BY NAME otros_mov.cod_mov, pnumero_doc,otros_mov.conduce_no,otros_mov.descrip4,
otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.bodega,otros_mov.bodega_destino
END IF
ON ACTION reqautorizadas
CALL ipautorizadas(usuarios) RETURNING data.*
LET otros_mov.cod_mov = data.rcodMov
LET pnumero_doc = data.rnumeroDoc
LET otros_mov.conduce_no = data.num_oc
LET otros_mov.descrip4 = data.nombre
LET otros_mov.cod_sp = data.rtipo_cliente
LET otros_mov.cod_sp_sec = data.sec_cliente
IF data.bodega IS NOT NULL THEN
LET otros_mov.bodega = data.bodega
END IF
LET otros_mov.bodega_destino = data.bodega_destino
DISPLAY BY NAME otros_mov.cod_mov, pnumero_doc,otros_mov.conduce_no,otros_mov.descrip4,
otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.bodega,otros_mov.bodega_destino
BEFORE INPUT
INITIALIZE otros_mov.* TO NULL
CALL ipautorizadas(usuarios) RETURNING data.*
DISPLAY "numero ",data.rnumeroDoc
CALL piking(usuarios,clave,impresor,otros_mov.bodega,psucid)
LET otros_mov.cod_mov = data.rcodMov
LET pnumero_doc = data.rnumeroDoc
LET otros_mov.conduce_no = data.num_oc
LET otros_mov.descrip4 = data.nombre
LET otros_mov.cod_sp = data.rtipo_cliente
LET otros_mov.cod_sp_sec = data.sec_cliente
IF data.bodega IS NOT NULL THEN
LET otros_mov.bodega = data.bodega
END IF
LET otros_mov.bodega_destino = data.bodega_destino
LET otros_mov.fecha = today
LET pnum_req = NULL
LET num_doc_ret = NULL
CALL despiece.clear()
LET otros_mov.cod_cia = 1
# IF pnumero_doc IS NULL THEN
SELECT a.bodega,a.sucid,b.ordenes INTO otros_mov.bodega,psucid,almacen_orden
FROM seg0001 a LEFT OUTER JOIN intb00009 b ON b.cod_bodega = a.bodega
WHERE a.usuario = usuarios
# END IF
LET k1 = '1'
CALL bodegas(k1)
LET k1='2'
CALL bodegas(k1)
DISPLAY BY NAME otros_mov.bodega
IF ptipoorden <> 'ECOMMERCE' THEN
IF otros_mov.cod_mov IS NULL OR otros_mov.cod_mov = 0 THEN
LET otros_mov.cod_mov=30
END IF
ELSE
SELECT a.cod_mov INTO otros_mov.cod_mov FROM vetb00060 a WHERE a.tipo_cliente = 25
END IF
CALL cmovimientos()
DISPLAY BY NAME otros_mov.cod_mov, pnumero_doc,otros_mov.conduce_no,otros_mov.descrip4,
otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.bodega,otros_mov.bodega_destino
NEXT FIELD cod_mov
{ COMENTARIO PARA EL CONTROL DEL DOCUMENTO DE RE-TRABAJO, SE VA A REALIZAR LUEGO DEL DOC DEVOLUCION}
{ 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
IF otros_mov.fact_no IS NULL THEN
SELECT a.factura, a.fecha_factura INTO otros_mov.fact_no, fact_gral.fecha_despacho
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
ELSE
SELECT a.fecha_factura INTO fact_gral.fecha_despacho
FROM vetb00002 a WHERE (a.factura = otros_mov.fact_no AND
a.tipo_cliente = otros_mov.cod_sp AND
a.sec_cliente = otros_mov.cod_sp_sec) AND
a.status_t IS NULL
END IF
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 ACTION bconduces
CALL conduces(otros_mov.conduce_no) RETURNING otros_mov.conduce_no,pnum_req,otros_mov.factura
DISPLAY BY NAME otros_mov.factura,otros_mov.conduce_no,pnum_req
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 factura
# LET otros_mov.cod_sp = null
# LET otros_mov.cod_sp_sec = null
IF control_devolucion="SI" THEN
IF otros_mov.factura is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD factura
END IF
SELECT UNIQUE a.tipo_cliente,a.sec_cliente,a.orden,b.num_req
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.conduce_no,pnum_req
FROM vetb00002 a,iptb00006 b WHERE a.factura=otros_mov.factura AND
a.tipo_cliente = b.cod_sp AND
a.sec_cliente = b.cod_sp_Sec AND
a.factura = b.factura AND
b.cod_mov IN (30,31,55,56) AND
a.status_t is null AND b.num_req IS NOT 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 factura
END IF
DISPLAY BY NAME otros_mov.conduce_no,pnum_req,otros_mov.cod_sp,otros_mov.cod_sp_sec
# CONTROL `
LET cantidad_factura = 0
LET cantidad_devuelta = 0
SELECT SUM(a.cantidad) INTO cantidad_factura
FROM vetb00003 a
WHERE a.factura = otros_mov.factura 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.factura 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 factura
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" OR pcontrol_transferencia="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
LET tmpnumero = tmpnumero + 1
UPDATE iptb00043 SET num_doc = tmpnumero
WHERE usuario = usuarios
END IF
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
CALL despiece.clear()
LET pcontrol_cliente = NULL
LET Pcontrol_transferencia = NULL
SELECT a.status_mov,a.control_clientes,a.control_despacho,a.control_devolucion,
a.control_transferencia,a.control_departamento,a.descrip_mov,a.requisiciones
INTO status_m,pcontrol_cliente,pcontrol_despacho,control_devolucion,
Pcontrol_transferencia,pcontrol_departamento,otros_mov.descrip_mov,prequisiciones
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 prequisiciones = "SI" AND (pnumero_doc IS NULL OR pnumero_doc=0) THEN
CALL msg(203)
NEXT FIELD pnumero_Doc
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
# CONTROL CODIGO ENTRADA TRANSFERENCIA
SELECT a.codigo_mov_transferencia FROM iptb00005 a
WHERE a.codigo_mov_transferencia = otros_mov.cod_mov
IF STATUS <> NOTFOUND THEN
CALL fgl_winmessage("INFO","NO PUEDES USAR EL CODIGO QUE VA A RECIBIR LA TRANSFERENCIA","INFO")
NEXT FIELD cod_mov
END IF
LET otros_mov.num_Doc = otros_mov.num_doc + 1
DISPLAY BY NAME otros_mov.num_doc
DISPLAY BY NAME 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
IF otros_mov.cod_sp IS NULL THEN
NEXT FIELD cod_mov
END IF
IF otros_mov.cod_sp_sec IS NULL THEN
NEXT FIELD cod_mov
END IF
END IF
{ CHEQUEO DE PERMISOS PARA EL USUARIO}
SELECT * FROM iptb00023
where cod_mov = otros_mov.cod_mov AND
usuario = usuarios
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 msg(503)
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
LET pcerrada = 'N'
SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no,a.tipo_orden
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion,xtipo_orden
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 pcontrol_despacho = "SI" 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
IF otros_mov.cod_mov = 44 THEN
IF xtipo_orden <> 'REPOSICION' THEN
CALL fgl_Winmessage("INFO","LA ORDEN DEBE SER DE REPOSICION","INFO")
NEXT FIELD conduce_no
END IF
END IF
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_despacho ="SI" THEN
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
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.factura is not null THEN
SELECT sec_cliente FROM vetb00002
WHERE factura = otros_mov.factura 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
ELSE
IF otros_mov.departamento IS NOT NULL THEN
CALL fgl_winmessage("INFO","ESTE CODIGO DE MOVIMIENTO NO SE LE PUEDE COLOCAR DEPARTAMENTO","INFO")
NEXT FIELD departamento
END IF
END IF
AFTER INPUT
IF INT_FLAG THEN
CALL msg(2)
LET INT_FLAG=FALSE
RETURN
END IF
IF prequisiciones = "SI" AND (pnumero_doc IS NULL OR pnumero_doc=0) THEN
CALL msg(203)
NEXT FIELD pnumero_Doc
END IF
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
ELSE
IF otros_mov.departamento IS NOT NULL THEN
CALL fgl_winmessage("INFO","ESTE CODIGO DE MOVIMIENTO NO SE LE PUEDE COLOCAR DEPARTAMENTO","INFO")
NEXT FIELD departamento
END IF
END IF
# CONTROL CODIGO ENTRADA TRANSFERENCIA
SELECT a.codigo_mov_transferencia FROM iptb00005 a
WHERE a.codigo_mov_transferencia = otros_mov.cod_mov AND
a.status_t IS null
IF STATUS <> NOTFOUND THEN
CALL fgl_winmessage("INFO","NO PUEDES USAR EL CODIGO QUE VA A RECIBIR LA TRANSFERENCIA","INFO")
NEXT FIELD cod_mov
END IF
IF pcontrol_despacho = "SI" THEN
IF pcontrol_cliente = "SI" THEN
IF otros_mov.cod_sp_sec is null THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_sp
END IF
IF ptipoorden ='ECOMMERCE' THEN
SELECT a.sec_transp FROM vetb00015 a
WHERE a.cod_transp = otros_mov.cod_transp AND
a.sec_transp = otros_mov.sec_transp
IF STATUS = NOTFOUND THEN
CALL msg(3)
NEXT FIELD cod_transp
END IF
SELECT a.cantidad_bultos INTO cantidadBultos FROM iptb00056 a WHERE a.num_oc =ordenx
IF otros_mov.detalle IS NULL OR LENGTH(otros_mov.detalle) < 8 THEN
LET otros_mov.detalle = 'CONDUCE RELACIONADO CON TIENDA ONLINE, LA ORDEN CONTIENE ',cantidadBultos USING "<<<",
' BULTOS '
ELSE
LET otros_mov.detalle = otros_mov.detalle CLIPPED," CONTIENE ",cantidadBultos USING "<<<",
' BULTOS '
END IF
DISPLAY BY NAME otros_mov.detalle
END IF
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
END IF
IF otros_mov.bodega IS NULL THEN
CALL msg(16)
NEXT FIELD bodega
END IF
IF control_devolucion ="SI" THEN
IF aplica_dev IS NULL THEN
NEXT FIELD aplica_dev
END IF
END IF
IF Pcontrol_transferencia = 'SI' THEN
IF otros_mov.bodega_destino IS NULL OR otros_mov.bodega_destino = 0 THEN
CALL msg(16)
NEXT FIELD bodega_destino
END IF
IF otros_mov.sec_transp IS NULL THEN
CALL msg(16)
NEXT FIELD sec_transp
END IF
IF otros_mov.placa IS NULL THEN
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
# BUSCA LOS ITEMS QUE TIENE LA REQUISICION
IF pnumero_doc >0 THEN
DECLARE buscar_requisicion CURSOR FOR
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad_1,a.cantidad_2,a.cantidad_2,a.unidad_med,a.descripcion,
a.cantidad_1,a.cantidad_2,a.cantidad_1,''
FROM iptb00058 a
WHERE a.numero_doc = pnumero_doc
LET idx = 1
FOREACH buscar_requisicion INTO movi2[idx].*
LET idx = idx + 1
END FOREACH
ELSE
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,a.tipo_orden
INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion,psec_vend,xtipo_orden
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 a.nombre,b.sec_vend INTO otros_mov.descrip4
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
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,otros_mov.descrip4,psec_Vend
IF otros_mov.cod_mov = 44 THEN
IF xtipo_orden <> 'REPOSICION' THEN
CALL fgl_Winmessage("INFO","LA ORDEN DEBE SER DE REPOSICION","INFO")
NEXT FIELD conduce_no
END IF
END IF
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 OR otros_mov.cod_mov = 79) 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 OR otros_mov.cod_mov = 56) 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 control_devolucion="SI" 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.factura IS NULL THEN
CALL fgl_winmessage("ERROR","FACTURA ESTA EN BLANCO, FAVOR DE COLOCAR NUMERO DE FACTURA","INFO")
NEXT FIELD factura
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.factura," 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.status_t IS NULL "
# 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 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 ATTRIBUTE(TEXT="Disponible")
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 ATTRIBUTE(TEXT="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()
# BUSCA LA EXISTENCIA
LET p_act=arr_curr()
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,movi2[p_act].existencia
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
#================================================================================
# DISPLAY movi2[p_act].cantidad_1 TO smovi1[scr_l].cantidad_1
NEXT FIELD cantidad_1
ON ACTION producto ATTRIBUTE(TEXT="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,a.exist_min
INTO p_iptb02.descrip_esp,p_iptb02.unidad_med,p_iptb02.control_existencia,
existminima[p_act]
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
CALL busca_Despiece( movi2[p_act].cod_n, movi2[p_act].cod_grupo, movi2[p_act].cod_tipo,
movi2[p_act].cod_sec) RETURNING siDespiece
IF NOT siDespiece THEN
CALL despiece()
END IF
END IF
LET movi2[p_act].cantidad_p = cantidad_conduce - cantidad_orden
#CONTROL DEVOLUCION
IF control_devolucion ="SI" THEN
SELECT DISTINCT a.area INTO movi2[p_act].area FROM vetb00003 a
WHERE a.factura = otros_mov.factura 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
CALL msg(502)
NEXT FIELD area
END IF
DISPLAY movi2[p_act].area TO s_movi1[scr_l].area ATTRIBUTE(RED)
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
IF movi2[p_act].cantidad_1 < 0 THEN
CALL msg(16)
NEXT FIELD cantidad_1
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 control_devolucion="SI" THEN
LET cantidad_factura = 0
SELECT SUM(a.cantidad) INTO cantidad_factura
FROM vetb00003 a
WHERE a.factura = otros_mov.factura 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.factura = otros_mov.factura 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,movi2[p_act].existencia
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
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
CALL busca_Despiece( movi2[p_act].cod_n, movi2[p_act].cod_grupo, movi2[p_act].cod_tipo,
movi2[p_act].cod_sec) RETURNING siDespiece
IF NOT siDespiece THEN
CALL despiece()
END IF
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
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 = ordenx 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.num_oc =ordenx 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,factor_conv[p_act]) 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 ATTRIBUTE(TEXT="Guardar", IMAGE="save")
IF control_devolucion = "SI" THEN
IF otros_mov.factura is null OR otros_mov.factura=0 THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD factura
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.factura 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.factura 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.factura = otros_mov.factura 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 factura
END IF
END IF
IF pcontrol_cliente = "SI" THEN
FOR idx = 1 TO movi2.getLength()
IF movi2[idx].cod_sec IS NOT NULL THEN
#CONTROL DEVOLUCION
IF control_devolucion ="SI" THEN
SELECT DISTINCT a.area INTO movi2[idx].area FROM vetb00003 a
WHERE a.factura = otros_mov.factura 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.area = movi2[idx].area
IF STATUS = NOTFOUND THEN
CALL msg(502)
DISPLAY movi2[idx].area TO s_movi1[idx].area ATTRIBUTE(RED)
NEXT FIELD area
END IF
DISPLAY movi2[idx].area TO s_movi1[idx].area ATTRIBUTE(RED)
IF movi2[idx].cantidad_2 > movi2[idx].cantidad_p THEN
CALL msg(28)
NEXT FIELD cantidad_1
END IF
DISPLAY movi2[idx].cantidad_2 TO s_movi1[idx].cantidad_2
END IF
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
ERROR "BUSCANDO SECUENCIA DOCS...."
# 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
BEGIN WORK
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
DISPLAY BY NAME otros_mov.num_doc ATTRIBUTE (BLUE)
# ACTUALIZA EL TRANSPORTISTA Y NUMERO DE CONDUCE EN LA TABLA DE LOS BULTOS
UPDATE iptb00056 SET cod_transp = otros_mov.cod_transp , sec_transp = otros_mov.sec_transp,
cod_mov = otros_mov.cod_mov,num_doc = otros_mov.num_doc,bodega = otros_mov.bodega
WHERE num_oc = ordenx
# 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
#ACTUALIZA CRMinDATA cantidad pendiente ordenes
LET selec = 'UPDATE CRMinDATA.dbo.ordenes_detalle set pendiente = ?,us_mod = suser_sname(),fech_mod = getdate()
WHERE num_oc = ? AND cod_n = ? and cod_grupo = ? and cod_tipo = ? and cod_sec = ?
'
PREPARE actorden FROM selec
LET cuerpo_correo = "<table>"
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 NULL THEN
ROLLBACK WORK
CALL msg(16)
NEXT FIELD cantidad_1
END IF
IF movi2[idx].cantidad_2 is not null THEN
IF movi2[idx].cantidad_1 = 0 THEN
ROLLBACK WORK
CALL msg(16)
NEXT FIELD cantidad_1
END IF
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,movi2[idx].existencia
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,factor_conv[idx])
RETURNING estado_req
IF NOT estado_req THEN
ROLLBACK WORK
CALL msg(1019)
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
IF status_m = 2 AND movi2[idx].cantidad_2 > 0 THEN
LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
END IF
IF pcontrol_despacho = "SI" THEN
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
ROLLBACK WORK
LET numero_msg = 386
CALL msg(numero_msg)
END IF
END IF
IF ordenx IS NULL OR ordenx = 0 THEN
LET ordenx = otros_mov.conduce_no
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,cond_recep,departamento,factura,
numero_doc)
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,aplica_dev,otros_mov.departamento,otros_mov.factura,
pnumero_doc)
IF ordenx IS NOT NULL THEN
CALL ordenpendiente(ordenx,movi2[idx].cod_n,
movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec)
RETURNING diferencia
EXECUTE actorden USING diferencia,ordenx,movi2[idx].cod_n,
movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec
END IF
# CUERPO TRANSFERENCIA
IF pcontrol_transferencia = "SI" THEN
LET cuerpo_correo = cuerpo_correo CLIPPED, "<tr><td>",movi2[idx].descrip_esp CLIPPED,"</td>",
"<td>",movi2[idx].cantidad_2 USING "##,###.##","</td>",
"</tr>"
END IF
#ACTUALIZACION DISPONIBLE TIENDA ONLINE
CALL disponibles(movi2[idx].cod_n,movi2[idx].cod_grupo,movi2[idx].cod_tipo,movi2[idx].cod_sec,TODAY)
RETURNING cantidad_orden1,pcantidadConduce,transito,existencia,reservado
LET cantidad_orden1 =existencia - cantidad_orden1+pcantidadConduce
UPDATE iptb00016 SET disponible = cantidad_orden1,fech_mod = getdate(),us_mod = usuarios
WHERE 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 diferencia = 0
IF pcontrol_transferencia="SI" AND status_m = 2 THEN #condicion status_m=3
INSERT INTO iptb00033(cod_cia,num_doc,fecha,fact_no,sec_vend,cod_sp,cod_Sp_sec,
cod_transp,sec_transp,placa,cod_tarifa,cod_mov,detalle,cod_n,cod_grupo,cod_tipo,
cod_Sec,cantidad_1,cantidad_2,cond_recep,bodega,bodega_d,us_crea,
fech_crea,num_oc)
VALUES
(otros_mov.cod_cia,otros_mov.num_doc,otros_mov.fecha,
otros_mov.fact_no,psec_vend,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',otros_mov.bodega,otros_mov.bodega_destino,usuarios,GETDATE(),
ordenx)
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_producto = '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 estadoordenes = NULL
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 "<<<,<<<.####",'; '
LET estadoordenes = 'CON EL DOCUMENTO ',otros_mov.num_doc USING "<<<<<<", " FUE ACTUALIZADA LA ORDEN ",
ordenx USING "<<<<<<"," LISTA PARA DESPACHO "
INSERT INTO prordenstatus(fecha_trx,num_oc,cerrada,observacion,fecha_compromiso,usuario,
cod_n,cod_grupo,cod_tipo,cod_sec)
VALUES (GETDATE(),ordenx,pcerrada,
estadoordenes,otros_mov.fecha,usuarios,
movi2[idx].cod_n,movi2[idx].cod_grupo,movi2[idx].cod_tipo,
movi2[idx].cod_sec)
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
#DESPIECE
IF despiece.getLength() > 0 THEN
LET selec = " INSERT INTO iptb00025 (id_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,bodega)
SELECT id_etiqueta,?,?,?,cod_n,cod_grupo,cod_tipo,cod_sec,lado_1,lado_2,lado_3,cantidad,medida,?,getdate(),bodega ",
" FROM tmpdespiece WHERE id_despiece = ?"
PREPARE insertadespiece FROM selec
EXECUTE insertadespiece USING otros_mov.cod_mov,otros_mov.num_doc,
movi2[p_act].area,usuarios,tmpnumero
END IF
# CALL autoFacturacion(datos.*,usuarios)
COMMIT WORK
#ACTUALIZA LA REQUISICION TRANSACCIONES
IF pnumero_Doc > 0 THEN
DISPLAY "numero ip ",pnumero_doc
IF actualizareqtrx(pnumero_doc) THEN
UPDATE iptb00057 SET estado = 'CERRADA',us_mod = usuarios,fech_mod=getdate() WHERE numero_doc = pnumero_doc
END IF
END IF
# ENVIO AVISO EXISTENCIA MINIMA
ERROR "ENVIA EMAIL EXISTENCIA MINIMA...."
CALL existenciaMinima()
# ACTUALIZA EL ESTADO DE LA REQUISICION DESPACHO
ERROR "BUSCA CANTIDAD 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
ERROR "BUSCA CANTIDAD REQUISICION DESPACHO EN IPTB06...."
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
ERROR "ACTUALIZA REQUISICION DESP DESPACHADA...."
UPDATE cctb00025 set estado_despacho = 'DESPACHADA',
us_mod = usuarios,
fech_mod = getdate()
WHERE num_req = pnum_req
ELSE
ERROR "ACTUALIZA REQUISICION DESP DESPACHADA PARCIAL...."
UPDATE cctb00025 set estado_despacho = 'DESPACHO PARCIAL',
us_mod = usuarios,
fech_mod = getdate()
WHERE (num_req = pnum_req)
END IF
# CIERRE ORDENES
ERROR "BUSCANDO CANTIDAD ORDENES...."
LET diferencia = 0
SELECT SUM(cantidad) INTO cantidad_orden
FROM prtb00013 a
WHERE (a.num_oc = ordenx)
IF cantidad_orden IS NULL THEN
LET cantidad_orden = 0
END IF
ERROR "BUSCANDO CANTIDAD EN CONDUCES...."
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
ERROR "ACTUALIZANDO IPTB12 CERRANDO Y ESTADO DESPACHADA..."
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
ERROR "ACTUALIZANDO CCTB25 ESTADO DESPACHO PARCIAL...."
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
ERROR "ACTUALIZANDO PRTB12 ESTADO DEVOLUCION COMPLETA...."
UPDATE prtb00012 SET estado_devolucion ='DEVOLUCION COMPLETA',us_mod = usuarios,fech_mod = getdate()
WHERE num_oc = otros_mov.conduce_no
ELSE
ERROR "ACTUALIZANDO PRTB12 ESTADO DEVOLUCION PARCIAL...."
UPDATE prtb00012 SET estado_devolucion ='DEVOLUCION PARCIAL',us_mod = usuarios,fech_mod = getdate()
WHERE num_oc = otros_mov.conduce_no
END IF
END IF
SELECT a.descrip_mov INTO pdescripmov FROM iptb00005 a WHERE a.cod_mov = otros_mov.cod_mov
#-> 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 =pdescripmov CLIPPED, " CON EL NUMERO DE DOCUMENTO: ",otros_mov.num_doc USING "<<<<<<<",
" DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"
ERROR "INSERTANDO EN LA TABLA PRTB09...."
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" OR pcontrol_transferencia="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 = 'DOCUMENTO ',otros_mov.num_doc USING "&&&&&&&&",
" CODIGO MOV ",otros_mov.cod_mov USING "&&&"," ",pdescripmov CLIPPED,
"ORDEN: ",ordenx USING "<<<<<<<"
IF TOEmail IS NULL THEN
LET TOEmail = "jsoto@marmotech.com.do"
ELSE
LET toemail=toemail CLIPPED
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 = "jsoto@marmotech.com.do"
END IF
IF pcontrol_transferencia = 'NO' THEN
LET cuerpo_correo = 'CLIENTE: ',otros_mov.descrip4 CLIPPED,", ",
otros_mov.detalle CLIPPED
END IF
LET cuerpo_correo = cuerpo_correo CLIPPED,"</table>"
DISPLAY "ccmail ",ccemail," to ",Toemail
LET TOemail = toemail CLIPPED,",",ccemail CLIPPED
LET xusername ='notificacion@marmotech.com.do'
LET xsmtphost ='smtp.office365.com'
LET xsmtpport = '587'
LET xpassword = 'Lmmjvsd2020'
IF ordenx >0 THEN
CALL enviaemail(Toemail,subject,cuerpo_correo,NULL,xusername,xsmtphost,xsmtpport,xpassword)
# RETURNING retorne
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
END IF
# 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 xnum_doc_c = otros_mov.num_doc
SELECT a.num_doc INTO tmpnumero
FROM iptb00007 a
WHERE a.cod_mov = otros_mov.cod_mov #AND
# a.bodega = otros_mov.bodega
IF tmpnumero IS NULL THEN
INSERT INTO iptb00007 (num_doc,cod_mov,bodega)
VALUES (1,otros_mov.cod_mov,otros_mov.bodega)
ELSE
LET num_doc_e = tmpnumero + 1
END IF
LET factura_e = NULL
FOR idx = 1 TO movi2.getLength()
IF movi2[idx].cod_n IS NOT NULL THEN
SELECT MAX(a.factura),MAX(a.sucid) INTO factura_e,psucid FROM vetb00002 a,vetb00003 b
WHERE a.factura_c = otros_mov.factura 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,
conduce_no,
detalle,num_req,sec_vend)
VALUES (otros_mov.cod_cia,num_doc_e,
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,xnum_doc_c,otros_mov.conduce_no,otros_mov.detalle,pnum_req,psec_vend)
END IF
END IF
END FOR
UPDATE iptb00007 SET num_doc = num_doc_e WHERE cod_mov = otros_mov.cod_mov
IF control_devolucion="SI" THEN
IF aplica_dev == 1 THEN
IF otros_mov.factura IS NOT NULL THEN
CALL insertaData()
END IF
END IF
LET aplica_dev = 0
END IF
END IF
END IF
SET CONNECTION "SQL_C"
LET numero_msg = 1
CALL msg(numero_msg)
CALL movi2.clear()
END INPUT
ON ACTION recibir ATTRIBUTE(TEXT="Recepcion Mercancia",IMAGE="fa-ship")
CALL piking(usuarios,clave,impresor,otros_mov.bodega,psucid)
ON ACTION CANCEL ATTRIBUTE(TEXT="Cancel",IMAGE="quit")
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(80),
bodega LIKE iptb00006.bodega,
bodega_destino SMALLINT,
detalle VARCHAR(100),
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),
factura INT
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 Venta: ",x.factura 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 : ","(",x.bodega USING "<<<",")",almacen_origen
PRINT COLUMN 1, "ALMACEN DESTINO : ","(",x.bodega_destino USING "<<<",")", 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
PRINT COLUMN 1, "Otros Documentos : ",otros_mov.fact_no
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
a.bodega = x.bodega AND
a.id_etiqueta = 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
SELECT a.nombre INTO descrip2 FROM vetb00015 a
WHERE a.cod_transp=x.cod_transp and
a.sec_transp=x.sec_transp
SKIP 1 LINE
PRINT COLUMN 1, "OBSERVACIONES: ", UPSHIFT(x.detalle)
SKIP 1 LINE
PRINT COLUMN 1, "TRANSPORTISTA: ",x.cod_transp USING "<<","-",x.sec_transp USING "<<<<"," ",descrip2 CLIPPED
PRINT COLUMN 1, "PLACA : ",x.placa
SKIP 4 LINES
PRINT COLUMN 1, "---------------------------",
6 SPACES, "---------------------------",
6 SPACES, "---------------------------"
PRINT COLUMN 1, "Entregado Por ",
6 SPACES, "Recibido Por ",
6 SPACES, "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),
total_cantidad FLOAT
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()
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
DECLARE busca_despiece CURSOR FOR
SELECT b.codid,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
FROM tmpdespiece a,vetb00026 b
WHERE a.id_despiece = tmpnumero AND
a.id_etiqueta = b.codid 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
LET total_cantidad = 0
LET idx = 1
FOREACH busca_despiece INTO despiece[idx].id_etiqueta,despiece[idx].lado_1,
despiece[idx].lado_2,despiece[idx].lado_3,despiece[idx].cantidad,
despiece[idx].medida
LET despiece[idx].cod_n = movi2[p_act].cod_n
LET despiece[idx].cod_grupo = movi2[p_act].cod_grupo
LET despiece[idx].cod_tipo = movi2[p_act].cod_tipo
LET despiece[idx].cod_sec = movi2[p_act].cod_sec
LET despiece[idx].secuencia = idx
LET total_cantidad = total_cantidad + despiece[idx].cantidad
LET idx = idx + 1
END FOREACH
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
LET idx = 1
FOREACH busca_ent INTO despiece[idx].*
LET idx = idx + 1
END FOREACH
ELSE
# CALL verificadespiece(movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,movi2[p_act].cod_sec)
# RETURNING tienedespiece
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
a.id_etiqueta = 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
LET total_cantidad = 0
FOREACH busca_despiece12 INTO despiece[idx].*
LET total_cantidad = total_cantidad + despiece[idx].cantidad
LET idx = idx + 1
END FOREACH
END IF
END IF
# END IF
DISPLAY BY NAME total_cantidad
CALL set_count(idx-1)
INPUT ARRAY despiece WITHOUT DEFAULTS FROM sdespiece.*
BEFORE ROW
LET curr1 = arr_curr()
LET fila = scr_line()
CALL cetiquetas()
IF curr1 > 1 THEN
IF despiece[curr1].id_etiqueta IS NULL THEN
LET despiece[curr1].id_etiqueta = despiece[curr1-1].id_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
LET total_cantidad =0
FOR idx = 1 TO despiece.getLength()
IF despiece[idx].medida IS NOT NULL THEN
LET total_cantidad = total_cantidad + despiece[idx].cantidad
LET total_medida = total_medida + despiece[idx].medida
END IF
END FOR
DISPLAY BY NAME total_medida,total_cantidad
AFTER INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
EXIT INPUT
END IF
LET total_medida = 0
LET total_cantidad=0
FOR idx = 1 TO despiece.getLength()
IF despiece[idx].medida IS NOT NULL THEN
LET total_medida = total_medida + despiece[idx].medida
LET total_cantidad = total_cantidad + despiece[idx].cantidad
END IF
END FOR
DISPLAY BY NAME total_medida,total_cantidad
END INPUT
IF int_flag THEN
LET int_flag = FALSE
CLOSE WINDOW wdespiece
RETURN
END IF
DELETE FROM tmpdespiece WHERE id_despiece = tmpnumero 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
LET total_medida = 0
FOR idx = 1 TO despiece.getLength()
IF despiece[idx].medida IS NOT NULL THEN
INSERT INTO tmpdespiece (id_etiqueta,id_despiece,cod_n,cod_grupo,cod_tipo,cod_sec,lado_1,lado_2,lado_3,
cantidad,medida,secuencia,bodega)
VALUES (despiece[idx].id_etiqueta, tmpnumero,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,despiece[idx].secuencia,otros_mov.bodega)
LET total_medida = total_medida + despiece[idx].medida
END IF
END FOR
LET movi2[p_act].cantidad_1 = total_medida
# CALL verificadespiece(movi2[p_act].cod_n,movi2[p_act].cod_grupo,movi2[p_act].cod_tipo,movi2[p_act].cod_sec)
# RETURNING tienedespiece
CLOSE WINDOW wdespiece
END FUNCTION
FUNCTION consulta()
CONSTRUCT CRITERIO ON a.num_Doc,a.cod_mov,a.fecha,a.conduce_no,
a.cod_sp,a.cod_sp_Sec,a.bodega,a.detalle
FROM num_doc,cod_mov,fecha,conduce_no,cod_sp,cod_sp_sec,bodega,detalle
BEFORE CONSTRUCT
CALL cmovimientos()
AFTER CONSTRUCT
IF INT_FLAG THEN
LET INT_FLAG = FALSE
RETURN
END IF
END CONSTRUCT
CALL movi2.clear()
LET selec =
"SELECT DISTINCT
a.num_doc, a.cod_cia, a.cod_mov, a.fact_no, a.cod_transp, a.sec_transp, a.cod_tarifa,
a.placa, a.fecha, a.conduce_no, a.bodega, a.bodega_d, a.detalle, a.cod_sp, a.cod_sp_sec,
a.departamento, d.nom_dpto, c.cod_mov1, c.entrada,
' ' , ' ' ,a.factura, a.num_req, a.sec_vend,a.num_oc,k.descrip_mov
FROM iptb00006 AS a LEFT OUTER JOIN
adtb00001 AS d ON a.departamento = d.departamento INNER JOIN
iptb00005 AS k ON a.cod_mov = k.cod_mov LEFT OUTER JOIN
iptb00028 AS c ON a.num_doc = c.num_doc AND a.cod_mov = c.cod_mov LEFT OUTER JOIN
iptb00048 AS b ON a.bodega = b.bodega
WHERE (b.usuario ='",usuarios CLIPPED,"' ",
") AND (a.status_t IS NULL) AND ",criterio CLIPPED
PREPARE comando FROM selec
DECLARE busca4 SCROLL CURSOR WITH HOLD FOR comando
OPEN busca4
FETCH FIRST busca4 INTO otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend,ordenx,
otros_mov.descrip_mov
IF STATUS = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
RETURN
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend
DISPLAY ordenx TO conduce_no
MENU "Busqueda "
ON ACTION exportar ATTRIBUTE(TEXT="Exp PDF")
CALL toPDF()
COMMAND "Siguiete " "Sieguiente Registro Cumpla Condicion"
FETCH NEXT busca4 INTO otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend,ordenx,
otros_mov.descrip_mov
IF STATUS = NOTFOUND THEN
LET numero_msg = 4
CALL msg(numero_msg)
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend
DISPLAY ordenx TO conduce_no
COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado"
FETCH PREVIOUS busca4 INTO otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend,ordenx,
otros_mov.descrip_mov
IF STATUS = NOTFOUND THEN
LET numero_msg = 5
CALL msg(numero_msg)
END IF
CALL busca_info()
DISPLAY BY NAME otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend
DISPLAY ordenx TO conduce_no
COMMAND "Primero" "Presenta en pantalla el primer registro encontrado"
FETCH FIRST busca4 INTO otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend,ordenx,
otros_mov.descrip_mov
LET numero_msg = 5
CALL msg(numero_msg)
CALL busca_info()
DISPLAY BY NAME otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,psec_vend
DISPLAY ordenx TO conduce_no
COMMAND "Ultimo" "Presenta en pantalla el ultimo registro encontrado"
FETCH LAST busca4 INTO otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend,ordenx,
otros_mov.descrip_mov
LET numero_msg = 4
CALL msg(numero_msg)
CALL busca_info()
DISPLAY BY NAME otros_mov.num_doc,otros_mov.cod_cia,otros_mov.cod_mov,otros_mov.fact_no,otros_mov.cod_transp,otros_mov.sec_transp,otros_mov.cod_tarifa,
otros_mov.placa,otros_mov.fecha,otros_mov.conduce_no,otros_mov.bodega,otros_mov.bodega_destino,
otros_mov.detalle,otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.departamento,otros_mov.nombre_depto,
otros_mov.cod_mov1,otros_mov.entrada,otros_mov.descrip_mov1,otros_mov.descrip4,otros_mov.factura,pnum_req,psec_vend
DISPLAY ordenx TO conduce_no
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
CALL movi2.clear()
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 = ordenx 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
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.status_mov,a.control_clientes,a.control_despacho,a.control_devolucion,
a.control_transferencia,a.control_departamento
INTO 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
SELECT a.descrip_mov INTO otros_mov.descrip_mov1 FROM iptb00005 a
WHERE a.cod_mov = otros_mov.cod_mov1
IF pcontrol_transferencia = 'SI' THEN
LET k1 = '2'
ELSE
LET k1 = '1'
END IF
CALL bodegas(k1)
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
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 ",pdescripmov 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
LET existenciaact[p_act] = pexistencia
IF pexistencia < 0 THEN
RETURN TRUE,pexistencia
END IF
IF cantidad > pexistencia THEN
RETURN TRUE,pexistencia
END IF
RETURN verdad,pexistencia
END FUNCTION
FUNCTION cetiquetas()
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,fconv)
DEFINE cantidad_Trx,fconv DEC(12,5),
totalcantidad 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 ",cantidad_trx
# IF fconv > 1 THEN
# LET cantidadRequisicion = cantidadRequisicion + .03
# END IF
LET totalcantidad =Rcantidad_requisicion+cantidad_Trx
IF totalcantidad > cantidadRequisicion THEN
# DISPLAY "SUMATORIA ",totalcantidad," cantidad req ",cantidadrequisicion
RETURN FALSE
ELSE
RETURN true
END IF
END FUNCTION
FUNCTION insertaData()
DEFINE emp,codi_cia SMALLINT
DEFINE nom_cli,nombre_emp CHAR(30)
LET arr_recibo.cod_mov = otros_mov.cod_mov
LET recibo.fecha_orig = fecha1
--DISPLAY "recibo.fecha_orig ", recibo.fecha_orig
# Control Secuencial de las notas de creditos
LET recibo.fecha_orig = otros_mov.fecha
LET recibo.tipo_cliente = otros_mov.cod_sp
LET recibo.sec_cliente = otros_mov.cod_sp_sec
LET recibo.itbi = 0
LET fact_gral.bodega = otros_mov.bodega
LET reimpresion="N"
LET fecha1 = recibo.fecha_orig
# Busca el codigo del cliente y chequea que el documento de almacen exista
LET recibo.tipo_cliente=otros_mov.cod_sp
LET recibo.sec_cliente = otros_mov.cod_sp_sec
LET codi_cia=otros_mov.cod_cia
LET fact_gral.factura = otros_mov.factura
SET CONNECTION "SQL_C"
SELECT b.nombre,a.calle||' '||a.casa_num||' '||a.urbanizacion||' '||a.barrio,c.ventas
INTO nom_cli,fact_gral.direccion,fact_gral.ventas
FROM vetb00004 b,vetb00060 c,OUTER vetb00005 a
WHERE (b.tipo_cliente = recibo.tipo_cliente) AND
(b.sec_cliente = recibo.sec_cliente) AND
b.tipo_cliente = a.tipo_cliente AND
b.sec_cliente = a.sec_cliente AND
b.tipo_cliente = c.tipo_cliente
IF STATUS = NOTFOUND THEN
LET nom_cli = "NO E X I S T E"
END IF
LET descrip2 = null
LET descrip3 = NULL
SELECT nom1_emp,apell1_emp INTO descrip2,descrip3 FROM adtb00003
WHERE num_emp = psec_vend
--DISPLAY "descrip2 ",descrip2,"descrip3 ",descrip3
IF status = NOTFOUND THEN
LET nombre_emp = "NO E X I S T E"
ELSE
LET nombre_emp = descrip2 clipped," ",descrip3 clipped
END IF
--DISPLAY nombre_emp
LET busca1 = "S"
SELECT sum(a.cantidad_2*b.precio) INTO valor_fac
FROM iptb00006 a,vetb00003 b
WHERE (a.num_doc = otros_mov.num_doc) 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_mov)
AND (b.factura = otros_mov.factura) AND
a.area = b.area AND
(a.bodega = otros_mov.bodega)
--DISPLAY "valor_fac 1",valor_fac
LET arr_recibo.valor_pen = valor_fac
IF valor_fac IS NULL THEN
--DISPLAY "ESTA NULO "
LET busca2 = "S"
LET busca1 = "N"
SELECT SUM(a.cantidad_2*b.precio) INTO valor_fac
FROM iptb00006 a,vetb00025 b
WHERE (a.num_doc = otros_mov.num_doc) 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_mov) AND
a.bodega = otros_mov.bodega
AND b.ventas = "1" AND b.tipo_cliente IS NULL
END IF
LET arr_recibo.valor_pen = valor_fac
LET pdescuento = 0
# BUSCA EL DESCUENTO
SELECT SUM(a.cantidad_2 * b.precio *(b.cantidad_2/100)),AVG(b.cantidad_2)
INTO pdescuento,xporc_desc
FROM iptb00006 a,vetb00003 b
WHERE (a.num_doc = otros_mov.num_doc) 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_mov)
AND (b.factura = fact_gral.factura) AND a.area = b.area AND
a.bodega = otros_mov.bodega
IF pdescuento IS NULL THEN
LET pdescuento = 0
END IF
LET arr_recibo.val_desc = pdescuento
LET arr_recibo.desc_p = xporc_Desc
# El campo VALOR_PEN gruarda el valor bruto de la nota de credito obtenida
# por la multiplicacion de las cantidades devueltas por el movimiento 12
# por el precio actual del producto
# LET arr_recibo[curr].val_desc = arr_recibo[curr].valor_pen * (arr_recibo[curr].desc_p / 100)
# Calcula el itbi despues de restar el descuento al monto bruto
# BUSCA PORCENTAJE ITBIS FACTURA
LET pitbis = 0
LET p_itbi = 0
DISPLAY fact_gral.factura
SELECT a.porc_itbi,a.fecha_factura INTO pitbis,fact_gral.fecha_despacho FROM vetb00002 a
WHERE a.factura = fact_gral.factura
LET dias_factura = TODAY - fact_gral.fecha_despacho
{DISPLAY "fact_gral.fecha_despacho ", fact_gral.fecha_despacho
DISPLAY "chitbis", chitbis}
IF dias_factura <= 30 THEN
LET chitbis = "S"
LET p_itbi = (arr_recibo.valor_pen - arr_recibo.val_desc) * (pitbis / 100)
LET recibo.itbi = recibo.itbi + p_itbi
DISPLAY "MENOS DE 30 ",recibo.itbi
ELSE
LET _chitbis = "N"
LET recibo.itbi = 0
DISPLAY "MAS DE 30 ",recibo.itbi
END IF
LET chitbis = UPSHIFT(chitbis)
LET arr_recibo.valor_pag = (arr_recibo.valor_pen - arr_recibo.val_desc) + p_itbi
{LET p_total = 0
FOR idx = 1 TO arr_count()
IF arr_recibo.valor_pag IS NOT NULL THEN
LET p_total = p_total + arr_recibo.valor_pag
ELSE
LET arr_recibo.valor_pag = 0
END IF
END FOR
}
LET p_total = arr_recibo.valor_pag
LET via = "S"
SELECT b.nombre,a.calle||' '||a.casa_num||' '||a.urbanizacion||' '||a.barrio
INTO nom_cli,fact_gral.direccion
FROM vetb00004 b,vetb00005 a
WHERE (b.tipo_cliente = otros_mov.cod_sp) AND
(b.sec_cliente = otros_mov.cod_sp_sec) AND
b.tipo_cliente = a.tipo_cliente AND
b.sec_cliente = a.sec_cliente
IF fact_gral.direccion IS NULL THEN
LET fact_gral.direccion = 'NO ESPECIFICADA'
END IF
LET descrip2 = NULL
LET descrip3 = NULL
SELECT nom1_emp,apell1_emp INTO descrip2,descrip3 FROM adtb00003
WHERE num_emp = psec_vend
IF STATUS = NOTFOUND THEN
LET nombre_emp = "NO E X I S T E"
ELSE
LET nombre_emp = descrip2 CLIPPED," ",descrip3 CLIPPED
END IF
#SECUENCIA RECIBO
SELECT ult_recibo INTO p_num_doc FROM cctb00003
WHERE tipo_doc = "NC"
LET p_num_doc = p_num_doc + 1
LET recibo.num_doc = p_num_doc
LET recibo.cod_emp_sec = psec_vend
IF otros_mov.num_doc IS NOT NULL THEN
LET arr_recibo.aplica_a = otros_mov.num_doc
LET impresor =47
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 cr_edito TO archivo
IF arr_recibo.aplica_a is not null THEN
INSERT INTO tmpnotascr
(num_doc
,fecha
,tipo_cliente
,sec_cliente
,cod_mov
,factura
,num_doc_nc
,itbis
,us_crea
,fech_crea)
VALUES
(arr_recibo.aplica_a
,otros_mov.fecha
,otros_mov.cod_sp
,otros_mov.cod_sp_sec
,otros_mov.cod_mov
,otros_mov.factura
,recibo.num_doc
,recibo.itbi
,usuarios
,getdate())
OUTPUT TO REPORT cr_edito (recibo.*,arr_recibo.*,nom_cli,
descrip2,descrip3,codi_cia)
END IF
FINISH REPORT cr_edito
RUN imprime
# IMPRESION EXTERIOR
SET CONNECTION "SQL_E"
LET impresor1 = 45
CALL defecto(usuarios,clave,impresor1) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
SELECT * INTO p_companias.* FROM companias
SELECT a.factura,b.sucnombre,a.sucid INTO fact_gral.factura,nombre_sucursal,psucid
FROM vetb00002 a,sucursales b
WHERE a.factura_c =otros_mov.factura AND
a.sucid = b.sucid AND a.status_t IS NULL
IF STATUS <> NOTFOUND THEN
IF num_doc_e >0 THEN
LET num_cr_e = recibo.num_doc
SELECT a.ult_recibo INTO p_num_doc FROM cctb00003 a WHERE a.tipo_Doc = 'NC'
IF p_num_doc IS NULL THEN
INSERT INTO cctb00003 (ult_recibo,tipo_doc) VALUES (1,'NC')
LET p_num_doc = 1
END IF
LET recibo.num_doc = p_num_doc + 1
START REPORT cr_edito1 TO archivo
LET arr_recibo.aplica_a=num_doc_e
IF arr_recibo.aplica_a is not null THEN
INSERT INTO tmpnotascr
(num_doc
,fecha
,tipo_cliente
,sec_cliente
,cod_mov
,factura
,num_doc_nc
,itbis
,us_crea
,fech_crea)
VALUES
(arr_recibo.aplica_a
,otros_mov.fecha
,otros_mov.cod_sp
,otros_mov.cod_sp_sec
,otros_mov.cod_mov
,otros_mov.factura
,recibo.num_doc
,recibo.itbi
,usuarios
,getdate())
OUTPUT TO REPORT cr_edito1 (recibo.*,arr_recibo.*,nom_cli,
descrip2,descrip3,codi_cia)
END IF
FINISH REPORT cr_edito1
RUN imprime
END IF
END IF
END IF
SET CONNECTION "SQL_C"
LET emp = psec_vend
END FUNCTION
REPORT cr_edito(x,z,nombre_cli,nombre,apellido,cia)
DEFINE x RECORD
num_doc LIKE cctb00001.num_doc,
tipo_cliente LIKE cctb00001.tipo_cliente,
sec_cliente LIKE cctb00001.sec_cliente,
cod_emp_sec LIKE cctb00001.cod_emp_sec,
fecha_orig LIKE cctb00001.fecha_orig ,
itbi DECIMAL(12,2),
concepto CHAR(60)
END RECORD
DEFINE z RECORD
cod_mov LIKE iptb00006.cod_mov,
aplica_a LIKE cctb00001.aplica_a,
valor_pen DECIMAL(12,2),
desc_p LIKE cctb00001.monto_desc,
valor_desc DECIMAL(12,2),
valor_pag DECIMAL(12,2)
END RECORD
DEFINE cia SMALLINT
DEFINE total_nc,total_bruto,sub_total,total_desc,itbis DECIMAL(12,2)
DEFINE nombre_cli,nombre,apellido CHAR(30)
DEFINE comp_on,comp_off,negrillas_on,negrillas_off,doble_on,doble_off,
doce,normal CHAR(2)
DEFINE reg_i RECORD
area SMALLINT,
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(100),
cantidad DEC(18,5),
precio DECIMAL(12,2),
descuento DEC(12,2)
END RECORD,
lj,j,i,h SMALLINT,
factura_ncf INT,
xtipo_doc CHAR(2)
OUTPUT
TOP MARGIN 0
LEFT MARGIN 4
# PAGE LENGTH 33
ORDER BY x.num_doc
FORMAT
BEFORE GROUP OF x.num_doc
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET doble_on = ASCII 14
LET doble_off = ASCII 20
LET comp_off = ASCII 18
LET comp_on = ASCII 15
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
LET j = (90 - LENGTH(p_companias.direccion CLIPPED))/2
LET i = (90 - LENGTH(p_companias.telefono CLIPPED))/2
LET h = (90 - LENGTH(p_companias.rnc CLIPPED))/2
PRINT comp_on
PRINT COLUMN lj, normal,doble_on,p_companias.nombre CLIPPED
PRINT COLUMN j+3, p_companias.direccion
PRINT COLUMN i-9, "Tels : ",p_companias.telefono ,
" Fax : ",p_companias.fax
PRINT COLUMN h-1, "RNC : ",p_companias.rnc CLIPPED,
COLUMN 100, "Pag. ", pageno using "###"
PRINT COLUMN h, "NOTAS DE CREDITOS"
IF reimpresion = "S" THEN
PRINT COLUMN i,"RE-IMPRESION"
ELSE
PRINT " "
END IF
PRINT negrillas_on
LET total_bruto = 0
LET total_Desc = 0
# DESCRIPCION BODEGA
SELECT a.descripcion INTO xbodega FROM intb00009 a WHERE a.cod_bodega = fact_gral.bodega
PRINT COLUMN 1, "Numero : ",doble_on,x.num_doc using "&&&&&&",doble_off,
negrillas_off
PRINT COLUMN 1, "CLiente : ",x.tipo_cliente using "&&","-",x.sec_cliente
using "&&&&&&&&"," ",nombre_cli
PRINT COLUMN 1, "Direccion: ",fact_gral.direccion
PRINT COLUMN 1, "Vendedor : ",x.cod_emp_sec using "&&&&"," ",nombre clipped,",",
apellido
PRINT COLUMN 1, "Fecha : ",x.fecha_orig using "dd/mm/yy",negrillas_on
PRINT COLUMN 1, "Doc. Dev : ",z.aplica_a USING "&&&&&&"," Factura : ",fact_gral.factura USING "&&&&&&"
PRINT COLUMN 1, "Bodega : ","(",fact_gral.bodega USING "<<<",")",xbodega
PRINT COLUMN 1, "Concepto : ",x.concepto CLIPPED
PRINT COLUMN 1,"-----------------------------------------------------------",
"------------------------------------------"
PRINT COLUMN 1, "Producto",
COLUMN 53, "Cantidad",
COLUMN 64, "Precio",
COLUMN 74, "%Desc",
COLUMN 86, "Valor Desc",
COLUMN 97, "Total"
PRINT COLUMN 1,"-----------------------------------------------------------",
"------------------------------------------"
PRINT COLUMN 1, negrillas_off
AFTER GROUP OF x.num_doc
IF busca1 = "S" THEN
# DISPLAY "bodega ",fact_gral.bodega," COD_MOV ",z.cod_mov," aplica ",z.aplica_a
DECLARE venta1 CURSOR FOR
SELECT DISTINCT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,
SUM(a.cantidad_2),c.precio,avg(c.cantidad_2)
FROM iptb00006 a, iptb00002 b, vetb00003 c
WHERE 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.factura = c.factura AND a.cod_mov = z.cod_mov AND
a.num_doc = z.aplica_a AND a.area = c.area AND a.bodega = fact_gral.bodega
GROUP BY a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,c.precio
ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
END IF
IF busca2 = "S" THEN
DECLARE venta2 CURSOR FOR
SELECT DISTINCT a.area, a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
c.descrip_esp,SUM(a.cantidad_2),b.precio,'0'
FROM iptb00006 a,vetb00025 b,iptb00002 c
WHERE (a.num_doc = z.aplica_a) 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.cod_mov = z.cod_mov) AND a.bodega = fact_gral.bodega
and b.ventas = "1" and b.tipo_cliente is null
GROUP BY a.area, a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.precio, c.descrip_esp
END IF
LET total_bruto = 0
LET salir = "N"
IF busca1 = "S" THEN
FOREACH venta1 INTO reg_i.area,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
PRINT COLUMN 1,reg_i.area," ", reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.#####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, reg_i.descuento USING "##,###.##",
2 spaces, pdescuento USING "###,###.##",
COLUMN 88, reg_i.cantidad * reg_i.precio USING "###,###,###.##"
IF reimpresion = "N" THEN
INSERT INTO cctb00004 (tipo_Doc,num_Doc,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,precio,descuento,cod_mov,num_doc_almacen,bodega,
porc_Desc)
VALUES ('NC',x.num_doc,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.cantidad,reg_i.precio,pdescuento,
z.cod_mov,z.aplica_a,fact_gral.bodega,reg_i.descuento)
END IF
END FOREACH
END IF
IF busca2 = "S" THEN
FOREACH venta2 INTO reg_i.area,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
#LET reg_i.descuento = pdescuento
IF reimpresion = "N" THEN
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
ELSE
LET total_bruto = ptotalb
END IF
PRINT COLUMN 1, reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, reg_i.descuento USING "##,###.##",
2 spaces, pdescuento USING "###,###.##",
COLUMN 88, (reg_i.cantidad * reg_i.precio) - pdescuento
USING "###,###,###.##"
IF reimpresion = "N" THEN
INSERT INTO cctb00004 (tipo_Doc,num_Doc,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,precio,descuento,cod_mov,num_doc_almacen,bodega,
porc_Desc)
VALUES ('NC',x.num_doc,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.cantidad,reg_i.precio,pdescuento,
z.cod_mov,z.aplica_a,fact_gral.bodega,reg_i.descuento)
END IF
END FOREACH
END IF
IF reimpresion ="S" THEN
DECLARE busca_codigos CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,a.cantidad,a.precio,a.porc_desc
FROM cctb00004 a,iptb00002 b
WHERE a.tipo_doc = 'NC' AND a.num_doc = x.num_doc 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 total_Desc = 0
LET total_bruto = 0
FOREACH busca_codigos INTO reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
PRINT COLUMN 1, reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, pdescuento USING "##,###.##",
COLUMN 88, (reg_i.cantidad * reg_i.precio) - pdescuento USING "###,###,###.##"
END FOREACH
END IF
IF z.valor_desc IS NULL THEN
LET z.valor_desc = 0
END IF
IF pitbis IS NULL THEN LET pitbis = 0 END IF
IF x.itbi IS NULL THEN LET x.itbi = 0 END IF
DISPLAY "1", x.itbi
IF reimpresion = "N" THEN
IF chitbis ="S" THEN
LET x.itbi = (total_bruto - total_desc) * (pitbis/100)
DISPLAY "2", x.itbi
ELSE
LET x.itbi = 0
DISPLAY "3", x.itbi
END IF
END IF
PRINT COLUMN 88, "--------------"
PRINT COLUMN 60, " BRUTO : ",
COLUMN 88, total_bruto USING "###,###,###.##"
PRINT COLUMN 60, " DESC : ",
COLUMN 88, total_Desc using "---,---,###.##"
PRINT COLUMN 60, "SUB-TOTAL : ",
COLUMN 88, (total_bruto - total_desc) USING "---,---,###.##"
PRINT COLUMN 60, " ITBIS : ",pitbis USING "<<<.##","% : ",
COLUMN 88, x.itbi using "---,---,###.##"
PRINT COLUMN 60, " NETO : ",
COLUMN 88, total_bruto - total_desc + x.itbi USING "---,---,###.##"
LET total_nc = (total_bruto + x.itbi)
IF z.valor_desc IS NULL THEN
LET z.valor_desc = 0
END IF
IF x.itbi IS NULL THEN
LET x.itbi = 0
DISPLAY "4", x.itbi
END IF
{
ACTUALIZACION DE LA TABLA DE CUENTAS POR COBRAR
===============================================
VALOR NETO (total_nc) SE GUARDA EN EL CAMPO: valor,
ITBI (x.itbi) SE GUARDA EN EL CAMPO: valor_efectivo,
EL VALOR BRUTO (total_bruto) SE GUARDA EN EN CAMPO: valor_cheque,
MONTO DE DESCUENTO(total_desc) EN EL CAMPO: monto_desc
EL CAMPO NUM_CHEQUE SE UTILIZA PARA EL NUMERO DE DOCUMENTOS
DE INVENTARIO DEL MOVIMIENTO 12 DE PRODUCTO TERMINADOS}
IF reimpresion= "N" THEN
IF _chitbis = 'YES' THEN
LET _chitbis = 'SI'
ELSE
LET _chitbis = 'NO'
END IF
SELECT a.ult_recibo INTO p_num_doc FROM cctb00003 a WHERE a.tipo_Doc = 'NC'
IF p_num_doc IS NULL THEN
INSERT INTO cctb00003 (ult_recibo,tipo_doc) VALUES (1,'NC')
LET p_num_doc = 1
END IF
LET x.num_doc = p_num_doc + 1
{ INSERT INTO cctb00011 (num_doc,tipo_doc,tipo_cliente,sec_cliente,comentario,chitbis,bodega,porc_itbis,valor_recibo,descuento,
monto_itbis,valor_bruto,sucid)
VALUES (x.num_doc,"NC",x.tipo_cliente,x.sec_cliente,otros_mov.detalle,chitbis,fact_gral.bodega,pitbis,total_nc,
total_desc,x.itbi,total_bruto,psucid)
}
INSERT INTO cctb00011 (num_doc,tipo_doc,tipo_cliente,sec_cliente,comentario,chitbis,bodega,porc_itbis)
VALUES (x.num_doc,"NC",x.tipo_cliente,x.sec_cliente,otros_mov.detalle,chitbis,fact_gral.bodega,pitbis)
LET total_nc = total_nc * -1
LET total_bruto = total_bruto * -1
IF fact_gral.ventas = '1' THEN
LET xtipo_doc ='FT'
ELSE
LET xtipo_Doc = 'FE'
END IF
IF total_nc > 0 THEN
LET total_nc = total_nc *-1
END IF
INSERT INTO cctb00001 (cod_cia,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,
aplica_a,banco,num_cheque,
valor,valor_efectivo,valor_cheque,monto_desc,
us_crea,fech_crea,bodega,tipo_doc_aplica,cod_emp,num_oc,documento_ref )
VALUES
(cia,"NC",x.num_doc,x.tipo_cliente,
x.sec_cliente,x.cod_emp_sec,x.fecha_orig,
fact_gral.factura,z.cod_mov,z.aplica_a,
total_nc, x.itbi, total_bruto, total_desc,
usuarios,GETDATE(),fact_gral.bodega,xtipo_doc,psucid,ordenx,xcotizacion)
UPDATE cctb00003 SET ult_recibo = x.num_doc WHERE tipo_Doc = 'NC'
END IF
PRINT normal
PAGE TRAILER
SKIP 1 LINE
PRINT COLUMN 6, " Preparado Por",
COLUMN 40, " Autorizado Por"
PRINT " "
PRINT COLUMN 6, "---------------------------",
COLUMN 36, "---------------------------"
ON LAST ROW
IF reimpresion = "N" THEN
UPDATE cctb00003 set ult_recibo = x.num_doc,
us_crea = SUSER_SNAME(),
fech_crea = GETDATE(),
us_mod = SUSER_SNAME(),
fech_mod = GETDATE()
WHERE tipo_doc in ("NC")
END IF
END REPORT
REPORT cr_edito1(x,z,nombre_cli,nombre,apellido,cia)
DEFINE x RECORD
num_doc LIKE cctb00001.num_doc,
tipo_cliente LIKE cctb00001.tipo_cliente,
sec_cliente LIKE cctb00001.sec_cliente,
cod_emp_sec LIKE cctb00001.cod_emp_sec,
fecha_orig LIKE cctb00001.fecha_orig ,
itbi DECIMAL(12,2),
concepto CHAR(60)
END RECORD
DEFINE z RECORD
cod_mov LIKE iptb00006.cod_mov,
aplica_a LIKE cctb00001.aplica_a,
valor_pen DECIMAL(12,2),
desc_p LIKE cctb00001.monto_desc,
valor_desc DECIMAL(12,2),
valor_pag DECIMAL(12,2)
END RECORD
DEFINE cia SMALLINT
DEFINE total_nc,total_bruto,sub_total,total_desc,itbis DECIMAL(12,2)
DEFINE nombre_cli,nombre,apellido CHAR(30)
DEFINE comp_on,comp_off,negrillas_on,negrillas_off,doble_on,doble_off,
doce,normal CHAR(2)
DEFINE reg_i RECORD
area SMALLINT,
cod_n INTEGER,
cod_grupo INTEGER,
cod_tipo INTEGER,
cod_sec INTEGER,
descrip_esp CHAR(100),
cantidad DEC(18,5),
precio DECIMAL(12,2),
descuento DEC(12,2)
END RECORD,
lj,j,i,h SMALLINT,
factura_ncf INT,
xtipo_doc CHAR(2),
codigodgii,codigodgii_m VARCHAR(10),
ult_ncf,num_ncf,num_ncf_m INT,
descripcion_ncf VARCHAR(100)
OUTPUT
TOP MARGIN 0
LEFT MARGIN 4
# PAGE LENGTH 33
ORDER BY x.num_doc
FORMAT
#marmotech tienda, santiago_
#baja y alta resolucion
BEFORE GROUP OF x.num_doc
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET doble_on = ASCII 14
LET doble_off = ASCII 20
LET comp_off = ASCII 18
LET comp_on = ASCII 15
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
LET j = (90 - LENGTH(p_companias.direccion CLIPPED))/2
LET i = (90 - LENGTH(p_companias.telefono CLIPPED))/2
LET h = (90 - LENGTH(p_companias.rnc CLIPPED))/2
PRINT comp_on
PRINT COLUMN lj, normal,doble_on,p_companias.nombre CLIPPED
PRINT COLUMN j+3, p_companias.direccion
PRINT COLUMN i-9, "Tels : ",p_companias.telefono ,
" Fax : ",p_companias.fax
PRINT COLUMN h-1, "RNC : ",p_companias.rnc CLIPPED,
COLUMN 100, "Pag. ", pageno using "###"
PRINT COLUMN h, "NOTAS DE CREDITOS"
IF reimpresion = "S" THEN
PRINT COLUMN i,"RE-IMPRESION"
ELSE
PRINT " "
END IF
PRINT negrillas_on
LET total_bruto = 0
LET total_Desc = 0
#BUSCA EL NCF DE LA FACTURA EN LA NC
SELECT a.codigo_dgii,a.ncf INTO codigodgii_m,num_ncf_m FROM vetb00072 a WHERE a.documento = fact_gral.factura AND
a.tipo_doc = 'FT' AND a.sucid = psucid
#BUSCA EL NCF DE LA NC
SELECT a.codigo_dgii,a.tipo_ncf INTO codigodgii,descripcion_ncf FROM vetb00071 a
WHERE a.tipo_doc ='NC' and a.disponible = "S" AND
a.sucid = 1
SELECT a.ncf INTO ult_ncf FROM vetb00073 a
WHERE a.tipo_doc = 'NC' AND a.codigo_dgii=codigodgii AND a.sucid=1
IF ult_ncf IS NOT NULL THEN
LET num_ncf = ult_ncf + 1
END IF
# DESCRIPCION BODEGA
SELECT a.descripcion INTO xbodega FROM intb00009 a WHERE a.cod_bodega = fact_gral.bodega
PRINT COLUMN 1, "Numero : ",doble_on,x.num_doc using "&&&&&&",doble_off,
negrillas_off
PRINT COLUMN 1, "CLiente : ",x.tipo_cliente using "&&","-",x.sec_cliente
using "&&&&&&&&"," ",nombre_cli
PRINT COLUMN 1, "Direccion: ",fact_gral.direccion
PRINT COLUMN 1, "Vendedor : ",x.cod_emp_sec using "&&&&"," ",nombre clipped,",",
apellido
PRINT COLUMN 1, "Fecha : ",x.fecha_orig using "dd/mm/yy",negrillas_on
PRINT COLUMN 1, "Doc. Dev : ",z.aplica_a USING "&&&&&&"," Factura : ",fact_gral.factura USING "&&&&&&"," NCF MODIFICADO:",codigodgii_m CLIPPED,num_ncf_m USING "&&&&&&&&"
PRINT COLUMN 1, "Bodega : ","(",fact_gral.bodega USING "<<<",")",xbodega
PRINT COLUMN 1, "NCF : ",codigodgii CLIPPED,num_ncf USING "&&&&&&&&"
PRINT COLUMN 1, "Concepto : ",x.concepto CLIPPED
PRINT COLUMN 1,"-----------------------------------------------------------",
"------------------------------------------"
PRINT COLUMN 1, "Producto",
COLUMN 53, "Cantidad",
COLUMN 64, "Precio",
COLUMN 74, "%Desc",
COLUMN 86, "Valor Desc",
COLUMN 97, "Total"
PRINT COLUMN 1,"-----------------------------------------------------------",
"------------------------------------------"
PRINT COLUMN 1, negrillas_off
AFTER GROUP OF x.num_doc
IF busca1 = "S" THEN
# DISPLAY "bodega ",fact_gral.bodega," COD_MOV ",z.cod_mov," aplica ",z.aplica_a
DECLARE venta11 CURSOR FOR
SELECT DISTINCT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,
SUM(a.cantidad_2),c.precio,avg(c.cantidad_2)
FROM iptb00006 a, iptb00002 b, vetb00003 c
WHERE 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
CAST(a.fact_no AS INT) = c.factura AND a.cod_mov = z.cod_mov AND
a.num_doc = z.aplica_a AND a.area = c.area
GROUP BY a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,c.precio
ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
END IF
IF busca2 = "S" THEN
DECLARE venta21 CURSOR FOR
SELECT DISTINCT a.area, a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
c.descrip_esp,SUM(a.cantidad_2),b.precio,'0'
FROM iptb00006 a,vetb00025 b,iptb00002 c
WHERE (a.num_doc = z.aplica_a) 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.cod_mov = z.cod_mov)
and b.ventas = "1" and b.tipo_cliente is null
GROUP BY a.area, a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.precio, c.descrip_esp
END IF
LET total_bruto = 0
LET salir = "N"
IF busca1 = "S" THEN
FOREACH venta11 INTO reg_i.area,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
PRINT COLUMN 1,reg_i.area," ", reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.#####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, reg_i.descuento USING "##,###.##",
2 spaces, pdescuento USING "###,###.##",
COLUMN 88, reg_i.cantidad * reg_i.precio USING "###,###,###.##"
IF reimpresion = "N" THEN
INSERT INTO cctb00010 (tipo_Doc,num_Doc,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,precio,descuento,cod_mov,num_doc_almacen,bodega,
porc_Desc)
VALUES ('NC',x.num_doc,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.cantidad,reg_i.precio,pdescuento,
z.cod_mov,z.aplica_a,fact_gral.bodega,reg_i.descuento)
END IF
END FOREACH
END IF
IF busca2 = "S" THEN
FOREACH venta21 INTO reg_i.area,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
#LET reg_i.descuento = pdescuento
IF reimpresion = "N" THEN
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
ELSE
LET total_bruto = ptotalb
END IF
PRINT COLUMN 1, reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, reg_i.descuento USING "##,###.##",
2 spaces, pdescuento USING "###,###.##",
COLUMN 88, (reg_i.cantidad * reg_i.precio) - pdescuento
USING "###,###,###.##"
IF reimpresion = "N" THEN
INSERT INTO cctb00004 (tipo_Doc,num_Doc,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,precio,descuento,cod_mov,num_doc_almacen,bodega,
porc_Desc)
VALUES ('NC',x.num_doc,reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.cantidad,reg_i.precio,pdescuento,
z.cod_mov,z.aplica_a,fact_gral.bodega,reg_i.descuento)
END IF
END FOREACH
END IF
IF reimpresion ="S" THEN
DECLARE busca_codigos1 CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,a.cantidad,a.precio,a.porc_desc
FROM cctb00004 a,iptb00002 b
WHERE a.tipo_doc = 'NC' AND a.num_doc = x.num_doc 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 total_Desc = 0
LET total_bruto = 0
FOREACH busca_codigos1 INTO reg_i.cod_n,reg_i.cod_grupo,reg_i.cod_tipo,reg_i.cod_sec,reg_i.descrip_esp,
reg_i.cantidad,reg_i.precio,reg_i.descuento
IF reg_i.cantidad IS NULL THEN
LET reg_i.cantidad = 0
END IF
IF reg_i.precio IS NULL THEN
LET reg_i.precio = 0
END IF
LET pdescuento = (reg_i.cantidad * reg_i.precio) * (reg_i.descuento/100)
LET total_desc = pdescuento + total_desc
LET total_bruto = total_bruto + (reg_i.cantidad * reg_i.precio)
PRINT COLUMN 1, reg_i.cod_n USING "&&&&",'-',reg_i.cod_grupo USING "&&&&","-",
reg_i.cod_tipo USING "&&&&","-",reg_i.cod_sec USING "&&&&",
" ",reg_i.descrip_esp WORDWRAP RIGHT MARGIN 45,
COLUMN 40, reg_i.cantidad USING "###,###.####",
2 spaces, reg_i.precio USING "##,###.##",
2 spaces, pdescuento USING "##,###.##",
COLUMN 88, (reg_i.cantidad * reg_i.precio) - pdescuento USING "###,###,###.##"
END FOREACH
END IF
IF z.valor_desc IS NULL THEN
LET z.valor_desc = 0
END IF
SELECT a.porc_itbi INTO pitbis FROM vetb00002 a WHERE a.factura =fact_gral.factura
IF pitbis IS NULL THEN LET pitbis = 0 END IF
IF x.itbi IS NULL THEN LET x.itbi = 0 END IF
--_chitbis
IF reimpresion = "N" THEN
IF chitbis ="S" THEN
LET x.itbi = (total_bruto - total_desc) * (pitbis/100)
ELSE
LET x.itbi = 0
END IF
END IF
PRINT COLUMN 88, "--------------"
PRINT COLUMN 60, " BRUTO : ",
COLUMN 88, total_bruto USING "###,###,###.##"
PRINT COLUMN 60, " DESC : ",
COLUMN 88, total_Desc using "---,---,###.##"
PRINT COLUMN 60, "SUB-TOTAL : ",
COLUMN 88, (total_bruto - total_desc) USING "---,---,###.##"
PRINT COLUMN 60, " ITBIS : ",pitbis USING "<<<.##","% : ",
COLUMN 88, x.itbi using "---,---,###.##"
PRINT COLUMN 60, " NETO : ",
COLUMN 88, total_bruto - total_desc + x.itbi USING "---,---,###.##"
LET total_nc = (total_bruto + x.itbi)
IF z.valor_desc IS NULL THEN
LET z.valor_desc = 0
END IF
IF x.itbi IS NULL THEN
LET x.itbi = 0
END IF
{
ACTUALIZACION DE LA TABLA DE CUENTAS POR COBRAR
===============================================
VALOR NETO (total_nc) SE GUARDA EN EL CAMPO: valor,
ITBI (x.itbi) SE GUARDA EN EL CAMPO: valor_efectivo,
EL VALOR BRUTO (total_bruto) SE GUARDA EN EN CAMPO: valor_cheque,
MONTO DE DESCUENTO(total_desc) EN EL CAMPO: monto_desc
EL CAMPO NUM_CHEQUE SE UTILIZA PARA EL NUMERO DE DOCUMENTOS
DE INVENTARIO DEL MOVIMIENTO 12 DE PRODUCTO TERMINADOS}
IF reimpresion= "N" THEN
IF _chitbis = 'YES' THEN
LET _chitbis = 'SI'
ELSE
LET _chitbis = 'NO'
END IF
BEGIN WORK
INSERT INTO cctb00011 (num_doc,tipo_doc,tipo_cliente,sec_cliente,comentario,chitbis,bodega,porc_itbis,valor_recibo,descuento,
monto_itbis,valor_bruto,sucid)
VALUES (x.num_doc,"NC",x.tipo_cliente,x.sec_cliente,otros_mov.detalle,chitbis,fact_gral.bodega,pitbis,total_nc,
total_desc,x.itbi,total_bruto,psucid)
LET total_nc = total_nc * -1
LET total_bruto = total_bruto * -1
IF fact_gral.ventas = '1' THEN
LET xtipo_doc ='FT'
ELSE
LET xtipo_Doc = 'FE'
END IF
IF num_ncf >0 THEN
UPDATE vetb00073 SET ncf = num_ncf WHERE tipo_doc = 'NC' AND codigo_dgii = codigodgii AND sucid=1
INSERT INTO vetb00072 (documento,tipo_doc,codigo_dgii,ncf,us_crea,fech_crea,sucid)
VALUES (x.num_doc,'NC',codigodgii,num_ncf,usuarios,getdate(),psucid)
END IF
IF total_nc > 0 THEN
LET total_nc = total_nc *-1
END IF
INSERT INTO cctb00001 (cod_cia,tipo_doc,num_doc,tipo_cliente,sec_cliente,cod_emp_sec,fecha_orig,
aplica_a,banco,num_cheque,
valor,valor_efectivo,valor_cheque,monto_desc,
us_crea,fech_crea,bodega,tipo_doc_aplica,cod_emp,sucid,localidad_aplica_a,
num_oc,documento_ref,num_doc_c )
VALUES (cia,"NC",x.num_doc,x.tipo_cliente,
x.sec_cliente,x.cod_emp_sec,x.fecha_orig,
fact_gral.factura,z.cod_mov,z.aplica_a,
total_nc,x.itbi,total_bruto,total_desc,
usuarios,GETDATE(),fact_gral.bodega,xtipo_doc,psucid,psucid,psucid,ordenx,
xcotizacion,num_cr_e)
UPDATE cctb00003 SET ult_recibo = x.num_doc WHERE tipo_Doc = 'NC'
IF ult_ncf IS NULL THEN
ROLLBACK WORK
ELSE
COMMIT WORK
END IF
END IF
PRINT NORMAL
PAGE TRAILER
SKIP 1 LINE
PRINT COLUMN 6, " Preparado Por",
COLUMN 40, " Autorizado Por"
PRINT " "
PRINT COLUMN 6, "---------------------------",
COLUMN 36, "---------------------------"
ON LAST ROW
IF reimpresion = "N" THEN
UPDATE cctb00003 set ult_recibo = x.num_doc,
us_crea = SUSER_SNAME(),
fech_crea = GETDATE(),
us_mod = SUSER_SNAME(),
fech_mod = GETDATE()
WHERE tipo_doc in ("NC")
END IF
END REPORT
{
FUNCTION integridad()
IF sqlca.sqlcode < 0 THEN
LET numero_msg = sqlca.sqlcode
CALL msg(numero_msg)
DISPLAY numero_msg AT 23,70
LET bandera = 1
LET status = 0
SLEEP 2
RETURN
END IF
RETURN
END FUNCTION
}
FUNCTION repetir1()
DEFINE ant_art RECORD
aplica_a INTEGER,
valor_pag INTEGER
END RECORD
LET ant_art.aplica_a = otros_mov.num_doc --CHEQUEAR SI ES FACTURA
LET ant_art.valor_pag = arr_recibo.valor_pag
--FOR idx = 1 to arr_count()
--IF idx != curr THEN
IF arr_recibo.aplica_a IS NOT NULL AND arr_recibo.valor_pag IS NOT NULL THEN
IF arr_recibo.aplica_a = ant_art.aplica_a AND arr_recibo.valor_pag = ant_art.valor_pag THEN
--LET numero_msg = 21
--CALL msg(numero_msg)
LET bandera = 1
ELSE
IF bandera != 1 THEN
LET bandera = 0
END IF
END IF
END IF
--END IF
--END FOR
DISPLAY "REPITIENDO bandera", bandera
END FUNCTION
FUNCTION prod()
LET a_ano = year(p_fechas)
LET mes_control = MONTH(today)
LET mes_calc = mes_control
IF mes_calc = 01 THEN
LET mes_calc = 13
LET a_ano = year(today - 32)
END IF
--Aqui la funcion se posicionaba en dos meses
--para el control del documento
LET mes_calc = mes_calc - 2
IF mes_calc <= 0 THEN
LET mes_calc = 12
LET a_ano = year(today) - 1
END IF
LET c_ano = year(today)
SELECT MIN(fecha_corte) INTO fecha_c FROM prdtable
WHERE fecha_corte >= p_fechas
IF status = notfound THEN
LET numero_msg = 58
CALL msg(numero_msg)
LET bandera = 1
END IF
SELECT MIN(dias_gracia) INTO dia FROM prdtable
WHERE fecha_corte = fecha_c
IF dia IS NULL THEN
LET dia = 0
END IF
SELECT UNIQUE a.usuario FROM seg0003 a
WHERE a.usuario = SUSER_SNAME()
IF STATUS != NOTFOUND THEN
LET fecha_c = fecha_c + dia
END IF
LET comp_fech = fecha_c
LET comp_fech1 = TODAY
IF comp_fech < comp_fech1 THEN
LET numero_msg = 57
CALL msg(numero_msg)
LET bandera = 1
END IF
END FUNCTION
FUNCTION informacion()
CALL bodegas(1)
SELECT a.descripcion INTO xbodega FROM intb00009 a
WHERE a.cod_bodega = fact_gral.bodega
SELECT b.nombre,a.calle||' '||a.casa_num||' '||a.urbanizacion||' '||a.barrio
INTO nom_cli,fact_gral.direccion
FROM vetb00004 b,vetb00005 a
WHERE (b.tipo_cliente = recibo.tipo_cliente) and
(b.sec_cliente = recibo.sec_cliente) AND
b.tipo_cliente = a.tipo_cliente AND
b.sec_cliente = a.sec_cliente
SELECT a.nom1_emp,a.apell1_emp INTO descrip2,descrip3 FROM adtb00003 a
WHERE a.num_emp = psec_vend
LET nombre_emp = descrip2 clipped," ",descrip3 clipped
DISPLAY BY NAME recibo.*,nom_cli,nombre_emp,fact_gral.bodega
DISPLAY arr_recibo.cod_mov TO s_recibo[1].cod_mov
DISPLAY arr_recibo.aplica_a TO s_recibo[1].aplica_a
DISPLAY arr_recibo.valor_pag TO s_recibo[1].valor_pag
DISPLAY arr_recibo.valor_pag TO s_recibo[1].valor_pag
DISPLAY xdescuento TO s_recibo[1].val_desc
DISPLAY ptotalb TO s_recibo[1].valor_pen
END FUNCTION
FUNCTION existenciaMinima()
DEFINE encabezado,cuerpo,aquienEmail,ccAquien STRING,
i INT
LET aquienEmail = "almacenplanta@marmotech.com.do"
LET ccAquien = "jsoto@marmotech.com.do"
LET encabezado = 'AVISO EXISTENCIA MINIMA ALMACENES PRODUCTOS TERMINADOS'
LET cuerpo ="<style>",
" table, td, th {
border: 1px solid black;
}
</style>",
"<table align='right'>",
"<thead><tr><th colspan='3'>CON EL DOCUMENTO&nbsp",otros_mov.num_doc USING "&&&&&&&&",
"PERTENECIENTE AL MOVIMIENTO&nbsp(", otros_mov.cod_mov USING "&&&",")",
pdescripmov CLIPPED,
"</th></tr></thead>",
"<tr>",
"<th>PRODUCTOS</th>",
"<th>CANTIDAD TRANSACC</th>",
"<th>CANTIDAD MINIMA</th>",
"<th>EXISTENCIA</th></tr>",
"<tbody>"
LET cuerpo = cuerpo CLIPPED,
"<tr>"
FOR i = 1 TO movi2.getLength()
# PROCEDIMIENTO ENVIO CORREO PARA LA EXISTENCIA MINIMA
LET existenciaact[i] = (existenciaact[i]-(movi2[i].cantidad_2*-1))
IF existminima[i] > 0 THEN
LET porcientocontrol[i] = ( existminima[i]/existenciaact[i])*100
DISPLAY "PORCIENTO ",existminima[i]," ",existenciaact[i]," ",
porcientocontrol[i]," ",status_m
END IF
LET enviaCorreo = "NO"
IF porcientocontrol[i] >= 75 AND status_m =2 AND existminIma[i] > 0 THEN
# INFORMACION PARA ENVIAR EL CORREO A LOS VENDEDORES
LET enviaCorreo="SI"
LET cuerpo = cuerpo CLIPPED, "<td>",movi2[i].descrip_esp CLIPPED,"</td>",
"<td>",movi2[i].cantidad_2 USING "##,###.##","</td>",
"<td>",existminima[i] USING "##,###.##","</td>",
"<td>",existenciaact[i] USING "##,###.##","</td>",
"</tr>"
LET enviaEmailProd[i]="SI"
END IF
IF porcientocontrol[i] <= 0 AND status_m =2 AND existminIma[i] > 0 THEN
# INFORMACION PARA ENVIAR EL CORREO A LOS VENDEDORES
LET enviaCorreo="SI"
LET cuerpo_correo = cuerpo_correo CLIPPED, "<td>",
movi2[i].descrip_esp CLIPPED,"</td>",
"<td>",movi2[i].cantidad_2 USING "##,###.##","</td>",
"<td>",existminima[i] USING "##,###.##","</td>",
"<td>",existenciaact[i] USING "##,###.##","</td>",
"</tr>"
LET enviaEmailProd[i]="SI"
END IF
END FOR
IF enviaCorreo = "SI" THEN
LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
CALL envia_correo(aquienEmail,ccAquien,cuerpo,
encabezado, procedimiento )
END IF
END FUNCTION
FUNCTION busca_despiece(pcodn,pcodgrupo,pcodtipo,pcodsec)
DEFINE i,pcodn,pcodgrupo,pcodtipo,pcodsec INT,
tieneDespiece BOOLEAN
LET tieneDespiece = FALSE
FOR i = 1 TO despiece.getLength()
IF despiece[i].cod_sec IS NOT NULL THEN
IF despiece[i].medida IS NOT NULL THEN
IF despiece[i].cod_n = pcodn AND despiece[i].cod_grupo = pcodgrupo AND
despiece[i].cod_tipo = pcodtipo AND despiece[i].cod_sec = pcodsec THEN
LET tieneDespiece = TRUE
END IF
END IF
END IF
END FOR
RETURN tieneDespiece
END FUNCTION
FUNCTION verificadespiece(pcodn,pcodgrupo,pcodtipo,pcodsec)
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,k1,k2,k3,K4 INT,
tiene STRING
LET tiene = 'N'
DISPLAY "CODIGO DIGITADO ",pcodn,pcodgrupo,pcodtipo,pcodsec
LET k2 = 1
FOR k1 = 1 TO despiece_act.getLength()
IF despiece_act[k1].cod_n = pcodn AND
despiece_act[k1].cod_grupo = pcodgrupo AND
despiece_act[k1].cod_tipo = pcodtipo AND
despiece_act[k1].cod_sec = pcodsec THEN
LET tiene = 'S'
LET despiece[k1].id_etiqueta = despiece_act[k2].id_etiqueta
LET despiece[k1].cantidad = despiece_act[k2].cantidad
LET despiece[k1].cod_grupo = despiece_act[k2].cod_grupo
LET despiece[k1].cod_tipo = despiece_act[k2].cod_tipo
LET despiece[k1].cod_sec = despiece_act[k2].cod_sec
LET despiece[k1].cod_n = despiece_act[k2].cod_n
LET despiece[k1].lado_1 = despiece_act[k2].lado_1
LET despiece[k1].lado_2 = despiece_act[k2].lado_2
LET despiece[k1].lado_3 = despiece_act[k2].lado_3
LET despiece[k1].medida = despiece_act[k2].medida
LET tiene='S'
LET k2 = k2 + 1
DISPLAY "verificacion modificacion ",pcodsec," ",pcodgrupo
END IF
END FOR
IF tiene = "N" THEN
LET k3 = despiece_act.getLength()
IF k3 IS NULL OR k3 = 0 THEN
LET K3 = 1
ELSE
LET k3 =k3 + 1
END IF
FOR k2 = k3 TO despiece.getLength()
CALL despiece_act.appendElement()
LET despiece_act[k2].id_etiqueta = despiece[k2].id_etiqueta
LET despiece_act[k2].cantidad = despiece[k2].cantidad
LET despiece_act[k2].cod_grupo = pcodgrupo
LET despiece_act[k2].cod_tipo = pcodtipo
LET despiece_act[k2].cod_sec = pcodsec
LET despiece_act[k2].cod_n = pcodn
LET despiece_act[k2].lado_1 = despiece[k2].lado_1
LET despiece_act[k2].lado_2 = despiece[k2].lado_2
LET despiece_act[k2].lado_3 = despiece[k2].lado_3
LET despiece_act[k2].medida = despiece[k2].medida
DISPLAY "verificacion adicion ",pcodn," ",pcodgrupo," ",pcodtipo," ",pcodsec
END FOR
CALL despiece.clear()
END IF
FOR k1 = 1 TO despiece_act.getLength()
DISPLAY "DATOS despiece ACT ",despiece_Act[k1].*," ",tiene
END FOR
RETURN tiene
END FUNCTION
FUNCTION toPDF()
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
CALL configureOutput("PDF") RETURNING HANDLER
START REPORT formu4 TO XML HANDLER handler
DECLARE buscapdf 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 buscapdf 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 = ordenx 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
OUTPUT TO REPORT formu4(otros_mov.*,movi2[idx].*)
LET idx = idx + 1
END FOREACH
FINISH REPORT formu4
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink