jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
7f789181cf0fd6a698499cbe68ae9737d27b580b
MBS/PROYECTO/ccdir/ccprmt011.4gl
T

579 lines
22 KiB
Plaintext
Raw Blame History

{
========================================================================
PROGRAMA : ccprmt011
OBJETIVO : CONTROL DE ORDENES ECOMMERCE
========================================================================
}
GLOBALS "ccprgb000.4gl"
DEFINE arr_autoriza_t DYNAMIC ARRAY OF RECORD
inserta CHAR(2),
estado CHAR(20),
estado_despacho CHAR(20),
vendedor CHAR(60),
num_req INT,
fecha DATE,
cotizacion_no INT,
num_oc INT,
tipo_venta CHAR(60),
cliente CHAR(60),
valor_cotizacion DEC(12,2),
valor_autorizar DEC(12,2),
sec_vend SMALLINT,
tipo_cliente INT,
sec_cliente INT,
num_emp_inst INT,
nombre_supervisor VARCHAR(80),
balance DEC(12,2),
balance_restante DEC(12,2)
END RECORD
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(4) RETURNING impresor
CONNECT to "smarmotech" USER usuarios USING clave
CALL ccprmt010()
END MAIN
FUNCTION ccprmt010()
DEFINE
actualice BOOLEAN,
registros INT
OPTIONS INPUT WRAP
OPEN WINDOW w1 AT 5,5 WITH FORM "ccfmmt010"
DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)
CONSTRUCT BY NAME criterio ON a.estado,c.num_oc,c.cotizacion_no,x.cerrada,
a.estado_despacho
BEFORE CONSTRUCT
CLEAR FORM
END CONSTRUCT
ON ACTION procesar
LET selec =
" SELECT DISTINCT '1',a.estado,a.estado_despacho,RTRIM(CAST(a.sec_vend AS CHAR))+' '+RTRIM(b.nom1_emp)+' '+b.apell1_emp , ",
" a.num_req,CONVERT(CHAR(10),a.fecha_autorizacion,103),c.cotizacion_no,c.num_oc,g.descripcion as tipo_venta, ",
" CAST(e.tipo_cliente AS CHAR(2))+'-'+CAST(e.sec_cliente AS CHAR(6))+' '+RTRIM(e.nombre) ",
" AS cliente,d.total_neto as valor_cotizacion, ",
" SUM(c.valor),d.sec_vend,e.tipo_cliente,e.sec_cliente ",
" FROM cctb00025 a,adtb00003 b,cctb00026 c,vetb00050 d,vetb00004 e,vetb00061 g,vetb00060 h, ",
" prtb00012 x ",
"WHERE ",
# " a.sec_vend = d.sec_vend and ",
" a.sec_vend = b.num_emp and ",
" a.num_req = c.num_req and ",
" c.cotizacion_no = d.cotizacion_no AND ",
" d.tipo_cliente = e.tipo_cliente AND ",
" d.sec_cliente = e.sec_cliente AND ",
" d.tipo_cliente = h.tipo_cliente AND ",
" c.num_oc = x.num_oc AND ",
" h.ventas = g.ventas and ",criterio CLIPPED,
" and a.status_t is null and x.status_t is null ",
" AND a.estado = 'AUTORIZADA' AND a.estado_despacho <> 'DESPACHADA' ",
" GROUP BY a.estado,RTRIM(CAST(d.sec_vend AS CHAR))+' '+RTRIM(b.nom1_emp)+' '+b.apell1_emp, ",
" a.num_req,c.cotizacion_no,g.descripcion, ",
" CAST(e.tipo_cliente AS CHAR(2))+'-'+CAST(e.sec_cliente AS CHAR(6))+' '+RTRIM(e.nombre) ",
" ,d.total_neto,a.fecha_autorizacion,a.sec_vend,c.num_oc, ",
" a.fecha_transporte,a.estado_despacho,",
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_Sec,e.tipo_cliente,e.sec_cliente,b.nom1_emp,b.apell1_emp, ",
" d.sec_vend,e.tipo_cliente,e.sec_cliente ",
" ORDER BY a.estado DESC,CONVERT(CHAR(10),a.fecha_autorizacion,103) DESC"
DISPLAY "BUSCANDO INORMACION" TO proceso
PREPARE comando FROM selec
DECLARE busca_requisi CURSOR FOR comando
LET idx = 1
FOREACH busca_requisi INTO arr_autoriza_t[idx].*
SELECT a.nom1_emp||a.apell1_emp INTO arr_autoriza_t[idx].nombre_supervisor
FROM adtb00003 a WHERE a.num_emp = arr_autoriza_t[idx].num_emp_inst
LET idx = idx + 1
END FOREACH
IF idx = 1 THEN
CLEAR FORM
CALL fgl_winmessage("ERROR","NO EXISTEN REQUISICIONES CON ESA CONDICION ","STOP")
CONTINUE DIALOG
END IF
DISPLAY idx-1 TO registros
CALL SET_COUNT(idx-1)
DISPLAY " " TO proceso
INPUT ARRAY arr_autoriza_T WITHOUT DEFAULTS FROM s_autoriza.*
BEFORE INPUT
#CALL DIALOG.setactionactive("accept",FALSE)
CALL DIALOG.setactionactive("insert",FALSE)
CALL DIALOG.setactionactive("append",FALSE)
CALL DIALOG.setactionactive("delete",FALSE)
ON IDLE 60
DISPLAY " " TO proceso
CALL refrescar()
ON ACTION imprimir
LET curr=arr_curr()
IF arr_autoriza_t[curr].num_req IS NOT NULL THEN
CALL imprime_req(arr_autoriza_t[curr].num_req)
ELSE
CALL fgl_winmessage("INFO","DEBES DE COLOCAR EL CURSOR EN LA FILA DONDE EXISTA UN DOCUMENTO","INFO")
END IF
ON ACTION buscaMaterial
LET curr = arr_curr()
CALL fbuscaMaterial(arr_autoriza_t[curr].num_req,arr_autoriza_t[curr].num_oc)
ON ACTION buscamensaje
LET curr = arr_curr()
CALL entramensaje(arr_autoriza_t[curr].num_req,arr_autoriza_t[curr].cotizacion_no,"V",usuarios)
AFTER INPUT
#WHENEVER ERROR CONTINUE
IF int_flag THEN
CALL fgl_winmessage("WARNING","OPERACION CANCELADA","STOP")
CALL arr_autoriza.clear()
CLEAR FORM
LET int_flag = FALSE
EXIT INPUT
END IF
END INPUT
ON ACTION limpiar
CALL arr_autoriza.clear()
CLEAR FORM
ON ACTION cancel
EXIT PROGRAM
END DIALOG
CLOSE WINDOW w1
END FUNCTION
FUNCTION fbuscaMaterial(xreq,xnumoc)
DEFINE arr_material DYNAMIC ARRAY OF RECORD
fecha_compromiso CHAR(10),
fecha_transporte DATE,
fecha_llegada DATE,
material CHAR(50),
cantidad DEC(12,4),
pendiente DEC(12,4),
pendiente_ord DEC(12,4),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
num_oc INT
END RECORD,
xreq,xnumoc INT,
cantidad_req,cantidad_desp,cantidad_ord,cantidad_desp1 DEC(12,4)
OPEN WINDOW w2 AT 5,5 WITH FORM "ccfmmt014"
LET selec =
"SELECT CONVERT(CHAR(10),c.fecha_compromiso,103),CONVERT(CHAR(10),a.fecha_transporte,103),CONVERT(CHAR(10),a.fecha_llegada,103),",
"CAST(a.cod_n AS CHAR(2))||'-'||CAST(a.cod_grupo AS CHAR(4))||'-'|| ",
"CAST(a.cod_tipo AS CHAR(4))||'-'||CAST(a.cod_sec AS CHAR(4))||' '|| ",
"RTRIM(b.descrip_esp)||' '||b.unidad_med,a.cantidad,'0', '0',",
" b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_Sec,a.num_oc ",
"FROM cctb00026 a,iptb00002 b,prtb00013 c ",
"WHERE a.num_req = '", xreq,"' AND ",
" a.num_oc = c.num_oc 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_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 "
PREPARE comando10 FROM selec
DECLARE buscaM CURSOR FOR comando10
LET idx = 1
FOREACH buscam INTO arr_material[idx].*
LET cantidad_req = 0
SELECT SUM(a.cantidad) INTO cantidad_req FROM cctb00026 a
WHERE a.cod_n = arr_material[idx].cod_n AND
a.cod_grupo = arr_material[idx].cod_grupo AND
a.cod_tipo = arr_material[idx].cod_tipo AND
a.cod_sec = arr_material[idx].cod_sec AND
a.num_req = xreq AND
a.status_t IS NULL
IF cantidad_req IS NULL THEN
LET cantidad_req = 0
END IF
LET cantidad_Desp=0
SELECT SUM(a.cantidad_2) INTO cantidad_desp
FROM iptb00006 a
WHERE a.cod_n = arr_material[idx].cod_n AND
a.cod_grupo = arr_material[idx].cod_grupo AND
a.cod_tipo = arr_material[idx].cod_tipo AND
a.cod_sec = arr_material[idx].cod_sec AND
a.conduce_no = arr_material[idx].num_oc AND
a.num_req = xreq AND
a.status_t IS NULL
IF cantidad_Desp IS NULL THEN
LET cantidad_desp = 0
END IF
LET cantidad_ord = 0
SELECT SUM(a.cantidad) INTO cantidad_ord FROM prtb00013 a
WHERE a.cod_n = arr_material[idx].cod_n AND
a.cod_grupo = arr_material[idx].cod_grupo AND
a.cod_tipo = arr_material[idx].cod_tipo AND
a.cod_sec = arr_material[idx].cod_sec AND
a.num_oc =xnumoc AND
a.status_t IS NULL
IF cantidad_ord IS NULL THEN
LET cantidad_ord = 0
END IF
LET cantidad_desp1 = 0
SELECT SUM(a.cantidad_2) INTO cantidad_desp1 FROM iptb00006 a
WHERE a.cod_n = arr_material[idx].cod_n AND
a.cod_grupo = arr_material[idx].cod_grupo AND
a.cod_tipo = arr_material[idx].cod_tipo AND
a.cod_sec = arr_material[idx].cod_sec AND
a.num_oc =xnumoc AND
a.cod_mov IN (30,31,55,56,12,13) AND
a.status_t IS NULL
IF cantidad_desp1 IS NULL THEN
LET cantidad_desp1 = 0
END IF
LET arr_material[idx].pendiente_ord = cantidad_ord - cantidad_desp1
LET arr_material[idx].pendiente= cantidad_req - cantidad_desp
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
INPUT ARRAY arr_material FROM s_transporte.* ATTRIBUTE(WITHOUT DEFAULTS)
AFTER INPUT
IF int_flag THEN
CALL msg(2)
EXIT INPUT
END IF
LET curr = arr_curr()
IF arr_material[curr].fecha_transporte > arr_material[curr].fecha_llegada THEN
CALL fgl_Winmessage("ERROR","FECHA TRANSPORTE NO PUEDE SER MAYOR FECHA LLEGADA","STOP")
NEXT FIELD fecha_transporte
END IF
BEGIN WORK
FOR idx = 1 TO arr_count()
IF arr_material[idx].fecha_llegada IS NOT NULL THEN
UPDATE cctb00026 set fecha_llegada = arr_material[idx].fecha_llegada,
fecha_transporte = arr_material[idx].fecha_transporte,
us_mod = usuarios,
fech_mod = getdate()
WHERE num_req = xreq AND
cod_n = arr_material[idx].cod_n and
cod_grupo = arr_material[idx].cod_grupo and
cod_tipo = arr_material[idx].cod_tipo and
cod_Sec = arr_material[idx].cod_sec
IF STATUS < 0 THEN
ROLLBACK WORK
LET chmensaje = SQLERRMESSAGE CLIPPED,"NO ES POSIBLE GUARDAR LA TRANSACCION"
CALL fgl_winmessage("ERROR",chmensaje,"STOP")
CONTINUE INPUT
ELSE
COMMIT WORK
CALL msg(1)
END IF
END IF
END FOR
END INPUT
IF Int_flag THEN
LET Int_flag = FALSE
END IF
CLOSE WINDOW w2
END FUNCTION
FUNCTION imprime_req(xnumreq)
DEFINE xnumreq INT,
handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
r_filename STRING, -- filename of Report Design Document including .4rp extension
r_output STRING, -- output format option
preview INTEGER -- TRUE/FALSE, to set preview option
DEFINE mrequisicion RECORD
numreq INT,
numoc INT,
nombre VARCHAR(80),
vendedor VARCHAR(80),
fecha VARCHAR(10),
estatus_req VARCHAR(50),
direccion VARCHAR(100),
telefono_r VARCHAR(20),
telefono_o VARCHAR(20),
celular VARCHAR(20),
celular1 VARCHAR(20),
contacto VARCHAR(60),
usuario_autoriza VARCHAR(50),
fecha_autorizacion CHAR(16),
estado_despacho VARCHAR(50),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descripcion VARCHAR(80),
cantidad DEC(12,4),
codn SMALLINT,
codgrupo SMALLINT,
codtipo SMALLINT,
codsec SMALLINT,
descripcion1 VARCHAR(60),
kit INT,
observacion VARCHAR(180),
cantidad_1 FLOAT,
cantidad_despachada_req DEC(12,4),
cantidad_despachada_ord DEC(12,4),
cantidad_pendiente_ord DEC(12,4),
cantidad_pendiente_req DEC(12,4),
cantidad_ord DEC(12,4),
codigo CHAR(30)
END RECORD
DECLARE busca_req CURSOR FOR
SELECT b.num_req,c.num_oc, CAST (a.tipo_cliente AS varchar(2))+'-'+CAST(a.sec_cliente AS varchar(6))+' '+ISNULL(a.nombre,' ') AS cliente,
CAST(e.num_emp AS varchar(5))+' '+ISNULL(RTRIM(e.nom1_emp),' ')+' '+ISNULL(e.apell1_emp,' ') AS vendedor,
CONVERT(CHAR(10),b.fecha,103) AS fecha,b.estado,
RTRIM(d.direccion_proyecto)+ '-'+ISNULL(x2.mensaje,' ') AS direccion,d.telefono_r,d.telefono_o,d.celular,
d.celular1,d.contacto,
(SELECT isnull(adtb00003.nom1_emp,' ')+' '+isnull(adtb00003.apell1_Emp,' ') FROM adtb00003 WHERE adtb00003.num_emp = b.sec_vend_aprobado),
CONVERT(CHAR(10),b.fecha_autorizacion,103),
b.estado_despacho,
c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,f.descrip_esp,
sum(c.cantidad),
c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,(SELECT k1.descrip_esp FROM iptb00002 k1
WHERE k1.cod_n = c.cod_n AND k1.cod_grupo = c.cod_grupo AND k1.cod_tipo = c.cod_tipo AND
k1.cod_sec = c.cod_sec),c.id_kit,x3.observacion,SUM(c.cantidad_1)
FROM vetb00004 a,cctb00025 b LEFT OUTER JOIN cctb00029 x2 ON b.num_req = x2.num_req,
cctb00026 c,
vetb00050 d,adtb00003 e,iptb00002 f,prtb00014 x3
WHERE a.tipo_cliente = d.tipo_cliente AND b.num_req = c.num_req AND
a.sec_cliente = d.sec_cliente AND
c.cotizacion_no = d.cotizacion_no AND
c.cod_n = f.cod_n AND c.cod_grupo =f.cod_grupo AND c.cod_tipo=f.cod_tipo AND
c.cod_sec = f.cod_Sec AND c.status_t IS NULL AND
b.num_req = xnumreq AND d.sec_vend = e.num_emp AND
c.num_oc = x3.num_oc
GROUP BY b.num_req,a.tipo_cliente,a.sec_cliente,a.nombre, e.num_emp,e.nom1_emp,e.apell1_emp,c.num_oc,
b.fecha,b.estado,
c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,f.descrip_esp,b.sec_vend_aprobado,
b.fecha_autorizacion,b.estado_despacho,
d.direccion_proyecto,x2.mensaje,
d.telefono_r,d.telefono_o,d.celular,
c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,
c.id_kit,x3.observacion,d.celular1,d.contacto
ORDER BY b.num_req, c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
LET r_output="SVG"
LET r_filename = "ccprmt010.4rp"
LET preview = 1
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
LET handler = fgl_report_commitCurrentSettings() -- commit changes
START REPORT CCRP10 TO XML HANDLER HANDLER
LET idx = 1
FOREACH busca_req INTO mrequisicion.*
LET mrequisicion.codigo =mrequisicion.kit USING "<<<<","/", mrequisicion.cod_n USING "&&&&","-",
mrequisicion.cod_grupo USING "&&&&","-",
mrequisicion.cod_tipo USING "&&&&","-",
mrequisicion.cod_sec USING "&&&&&&"
OUTPUT TO REPORT ccrp10(mrequisicion.*)
LET idx = idx + 1
END FOREACH
DISPLAY "idx ",idx
FINISH REPORT ccrp10
END IF
END FUNCTION
REPORT ccrp10(x)
DEFINE X RECORD
numreq INT,
numoc INT,
nombre VARCHAR(80),
vendedor VARCHAR(80),
fecha VARCHAR(10),
estatus_req VARCHAR(50),
direccion VARCHAR(100),
telefono_r VARCHAR(20),
telefono_o VARCHAR(20),
celular VARCHAR(20),
celular1 VARCHAR(20),
contacto VARCHAR(60),
usuario_autoriza VARCHAR(50),
fecha_autorizacion CHAR(16),
estado_despacho VARCHAR(50),
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
descripcion VARCHAR(80),
cantidad DEC(12,4),
codn SMALLINT,
codgrupo SMALLINT,
codtipo SMALLINT,
codsec SMALLINT,
descripcion1 VARCHAR(60),
kit INT,
observacion VARCHAR(180),
cantidad_1 FLOAT,
cantidad_despachada_req DEC(12,4),
cantidad_despachada_ord DEC(12,4),
cantidad_pendiente_ord DEC(12,4),
cantidad_pendiente_req DEC(12,4),
cantidad_ord DEC(12,4),
codigo CHAR(30)
END RECORD,
fecha_imp CHAR(16),
semaforo BOOLEAN,
chkit CHAR(100),
y RECORD
etiqueta CHAR(30),
cod_n,cod_grupo,cod_tipo,cod_sec INT,
lado_1,lado_2,lado_3 FLOAT,
cantidad_r,medida_r FLOAT
END RECORD
ORDER BY x.numreq
FORMAT
FIRST PAGE HEADER
SELECT a.* INTO p_companias.* FROM companias a
LET fecha_imp = TODAY USING "DD/MM/YYYY",":",TIME
BEFORE GROUP OF x.numreq
PRINTX x.numreq,x.estado_despacho,x.estatus_req,x.fecha,x.fecha_autorizacion,p_companias.nombre,
x.nombre,x.usuario_autoriza,x.vendedor,fecha_imp,x.numoc,X.direccion,X.telefono_r,x.telefono_o,
x.celular,x.celular1,x.contacto, x.observacion
BEFORE GROUP OF x.codigo
# BUSCA LAS CANTIDADES PENDIENTES
LET x.cantidad_despachada_req=0
SELECT SUM(a.cantidad_2) INTO x.cantidad_despachada_req
FROM iptb00006 a
WHERE a.num_req = x.numreq AND a.cod_n = x.cod_n AND
a.cod_grupo = x.cod_grupo AND
a.cod_tipo = x.cod_tipo AND a.cod_Sec = x.cod_Sec AND a.status_t IS NULL
LET x.cantidad_despachada_ord=0
SELECT SUM(a.cantidad_2) INTO x.cantidad_despachada_ord
FROM iptb00006 a
WHERE a.num_oc = x.numoc AND a.cod_n = x.cod_n AND
a.cod_grupo = x.cod_grupo AND a.cod_mov IN (30,31,55,56,12,13) AND
a.cod_tipo = x.cod_tipo AND a.cod_Sec = x.cod_Sec
AND a.status_t IS NULL
SELECT SUM(a.cantidad) INTO x.cantidad_ord
FROM prtb00013 a
WHERE a.num_oc = x.numoc AND a.cod_n = x.cod_n AND
a.cod_grupo = x.cod_grupo AND
a.cod_tipo = x.cod_tipo AND a.cod_Sec = x.cod_Sec AND
a.status_t IS NULL
IF x.cantidad_despachada_req IS NULL THEN
LET x.cantidad_despachada_req = 0
END IF
IF x.cantidad_despachada_ord IS NULL THEN
LET x.cantidad_despachada_ord = 0
END IF
IF x.cantidad_ord IS NULL THEN
LET x.cantidad_ord = 0
END IF
# DISPLAY "datos ",x.cantidad_ord,x.cantidad_despachada_ord,x.cantidad,
# x.cantidad_despachada_req
LET x.cantidad_pendiente_ord=x.cantidad_ord+x.cantidad_despachada_ord
LET x.cantidad_pendiente_req=x.cantidad + x.cantidad_despachada_req
{ #BUSCA DESPIECE
DECLARE busca_desp 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 vetb00026 b,cctb00027 a
WHERE b.codid = a.etiqueta AND
a.cod_n = x.cod_n AND
a.cod_grupo = x.cod_grupo AND
a.cod_tipo = x.cod_tipo AND
a.cod_sec = x.cod_sec
FOREACH busca_desp INTO y.*
END FOREACH
}
PRINTX x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_Sec,x.descripcion,x.cantidad,
x.cantidad_pendiente_req,x.cantidad_pendiente_ord
ON EVERY ROW
# IF x.codn IS NOT NULL THEN
# LET semaforo = TRUE
# LET chkit = x.codn USING "&&&&","-",x.codgrupo USING "&&&&","-",x.codtipo USING "&&&&","-",
# x.codsec USING "&&&&"," ",x.descripcion1
# ELSE
LET semaforo = FALSE
# END IF
PRINTX y.etiqueta,y.lado_1,y.lado_2,y.lado_3,y.cantidad_r,y.medida_r,
chkit,semaforo,x.cantidad_1,x.cantidad
END REPORT
FUNCTION refrescar()
LET selec =
" SELECT '1',a.estado,a.estado_despacho,RTRIM(CAST(a.sec_vend AS CHAR))+' '+RTRIM(b.nom1_emp)+' '+b.apell1_emp , ",
" a.num_req,CONVERT(CHAR(10),a.fecha_autorizacion,103),c.cotizacion_no,c.num_oc,g.descripcion as tipo_venta, ",
" CAST(e.tipo_cliente AS CHAR(2))+'-'+CAST(e.sec_cliente AS CHAR(6))+' '+RTRIM(e.nombre) ",
" AS cliente,d.total_neto as valor_cotizacion, ",
" SUM(c.valor),a.sec_vend,c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_Sec,e.tipo_cliente,e.sec_cliente ",
" FROM cctb00025 a,adtb00003 b,cctb00026 c,vetb00050 d,vetb00004 e,vetb00061 g,vetb00060 h, ",
" prtb00012 x ",
"WHERE ",
" a.sec_vend = d.sec_vend and ",
" a.sec_vend = b.num_emp and ",
" a.num_req = c.num_req and ",
" c.cotizacion_no = d.cotizacion_no AND ",
" d.tipo_cliente = e.tipo_cliente AND ",
" d.sec_cliente = e.sec_cliente AND ",
" d.tipo_cliente = h.tipo_cliente AND ",
" c.num_oc = x.num_oc AND ",
" h.ventas = g.ventas and ",criterio CLIPPED,
" and a.status_t is null and x.status_t is null ",
" AND a.estado = 'AUTORIZADA' AND a.estado_despacho <> 'DESPACHADA' ",
" GROUP BY a.estado,RTRIM(CAST(a.sec_vend AS CHAR))+' '+RTRIM(b.nom1_emp)+' '+b.apell1_emp, ",
" a.num_req,c.cotizacion_no,g.descripcion, ",
" CAST(e.tipo_cliente AS CHAR(2))+'-'+CAST(e.sec_cliente AS CHAR(6))+' '+RTRIM(e.nombre) ",
" ,d.total_neto,a.fecha_autorizacion,a.sec_vend,c.num_oc, ",
" a.fecha_transporte,a.estado_despacho, ",
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_Sec,e.tipo_cliente,e.sec_cliente ",
" ORDER BY a.estado DESC,CONVERT(CHAR(10),a.fecha_autorizacion,103) DESC"
DISPLAY "REFRESCANDO INFORMACION" TO proceso
PREPARE comando1 FROM selec
DECLARE busca_requisi1 CURSOR FOR comando1
LET idx = 1
CALL arr_autoriza.clear()
FOREACH busca_requisi1 INTO arr_autoriza_t[idx].*
LET idx = idx + 1
END FOREACH
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink