Merge branch 'main' of https://git.fulldetord.com/jsoto/MBS
# Conflicts: # PROYECTO/cgdir/edprrp118b.4gl.bak-20261008 # PROYECTO/irdir/desglose_conteo.4gl # PROYECTO/irdir/imprequisicion.4gl # PROYECTO/irdir/irautorizareq.4gl # PROYECTO/irdir/irbuscaprod.4gl # PROYECTO/irdir/irfmmt004.per # PROYECTO/irdir/irprcs006.4gl # PROYECTO/irdir/irprgb000.4gl # PROYECTO/irdir/irprmt002.4gl # PROYECTO/irdir/irprmt004.4gl # PROYECTO/irdir/irprmt006.4gl # PROYECTO/irdir/irprmt009.4gl # PROYECTO/irdir/irprmt020.4gl # PROYECTO/irdir/irprmt021.4gl # PROYECTO/irdir/irprmt036.4gl # PROYECTO/irdir/irprmt066.4gl # PROYECTO/irdir/irprrp002.4gl # PROYECTO/irdir/irprrp003.4gl # PROYECTO/irdir/irprrp005.4gl # PROYECTO/irdir/irprrp006.4gl # PROYECTO/irdir/irprrp009.4gl # PROYECTO/irdir/irprrp043.4gl # PROYECTO/irdir/irprrp045.4gl # PROYECTO/lqdir/lqprrp009.4gl.bak_20261012 # PROYECTO/lqdir/lqprrp009.rdd.bak_20261012 # PROYECTO/otrodir/apiclient.4gl.bak_20261014 # PROYECTO/otrodir/cuentas.4gl # PROYECTO/otrodir/irdepartamento.4gl # PROYECTO/otrodir/maquinas.4gl # PROYECTO/otrodir/productos_incluye.4gl # PROYECTO/otrodir/secciones.4gl # PROYECTO/otrodir/tramos.4gl # WEBSERVICES/productosconteo.4gl.bak_20261012
This commit is contained in:
Luis
@@ -1,172 +0,0 @@
|
||||
OPTIONS SHORT CIRCUIT
|
||||
|
||||
IMPORT util
|
||||
IMPORT com
|
||||
|
||||
|
||||
FUNCTION apiclient(pemail)
|
||||
DEFINE data_apilayer RECORD
|
||||
email,did_you_mean,USER,domain,syntax_valid STRING,
|
||||
is_disposable,is_role_account,is_catch_all,is_deliverable,can_connect_smtp,
|
||||
is_inbox_full,is_disabled,mx_records,FREE,score BOOLEAN
|
||||
END RECORD
|
||||
|
||||
DEFINE data_ipq RECORD
|
||||
MESSAGE STRING,
|
||||
success,
|
||||
valid,
|
||||
disposable BOOLEAN,
|
||||
smtp_score ,
|
||||
overall_score DEC(10,2),
|
||||
first_name string,
|
||||
generic,
|
||||
common,
|
||||
dns_valid,
|
||||
honeypot BOOLEAN,
|
||||
deliverability STRING,
|
||||
frequent_complainer BOOLEAN,
|
||||
spam_trap_score STRING,
|
||||
catch_all,
|
||||
timed_out,
|
||||
suspect,
|
||||
recent_abuse BOOLEAN,
|
||||
fraud_score DEC(10,2),
|
||||
suggested_domain string,
|
||||
leaked BOOLEAN
|
||||
END RECORD
|
||||
|
||||
DEFINE estado,purl,cmd,res, msg,s,pemail,tiposervice STRING,
|
||||
ret INT
|
||||
|
||||
# ELECCION DE SERVICIOS, POR EL MOMENTO ES IPQUALITY
|
||||
LET tiposervice = 'ipq1'
|
||||
|
||||
|
||||
IF tiposervice = 'ipq' THEN
|
||||
LET purl = 'https://ipqualityscore.com/api/json/email/cHZNnfXkbJDtx43YcrQqHSjXzBrndwT3/',pemail CLIPPED
|
||||
CALL ipquality_send_command(purl) RETURNING ret,res
|
||||
DISPLAY "estoy a qui"
|
||||
IF ret ==0 THEN
|
||||
LET s = util.JSON.stringify(res)
|
||||
CALL util.JSON.parse(res,data_ipq)
|
||||
|
||||
IF data_ipq.valid THEN
|
||||
LET estado = 'VALIDO'
|
||||
LET ret = 200
|
||||
|
||||
ELSE
|
||||
LET ret = 400
|
||||
LET estado = 'NO SE PUEDE ENTREGAR MENSAJE A ESTA DIRECCION EMAIL'
|
||||
|
||||
END IF
|
||||
|
||||
ELSE
|
||||
|
||||
CALL apilayer_send_command(purl, cmd) RETURNING ret, res
|
||||
# DISPLAY "res ",res," ",ret
|
||||
IF ret ==0 THEN
|
||||
LET s = util.JSON.stringify(res)
|
||||
CALL util.JSON.parse(res,data_apilayer)
|
||||
|
||||
IF data_apilayer.can_connect_smtp THEN
|
||||
LET estado = 'VALIDO'
|
||||
LET ret = 200
|
||||
|
||||
ELSE
|
||||
LET ret = 400
|
||||
LET estado = 'NO SE PUEDE ENTREGAR MENSAJE A ESTA DIRECCION EMAIL'
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
# DISPLAY "sintax ",data.syntax_valid," deliv ",data.is_deliverable
|
||||
ELSE
|
||||
IF ret = 429 THEN
|
||||
LET ret = 200
|
||||
LET estado ='VALIDO POR EXESO DE REQUEST'
|
||||
ELSE
|
||||
LET ret = 400
|
||||
LET estado = 'NO FUE POSIBLE LA CONEXION, '
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
DISPLAY "en return ",estado," ",ret
|
||||
RETURN estado,ret
|
||||
END FUNCTION
|
||||
|
||||
#
|
||||
## Communications library using com (http or https)
|
||||
#
|
||||
|
||||
FUNCTION apilayer_send_command(url, cmd)
|
||||
|
||||
DEFINE url, cmd STRING
|
||||
DEFINE result, tmp STRING
|
||||
DEFINE http_req com.HTTPRequest
|
||||
DEFINE http_resp com.HTTPResponse
|
||||
|
||||
|
||||
|
||||
TRY
|
||||
LET http_req = com.HTTPRequest.Create(url)
|
||||
CALL http_req.setHeader("apikey","gPWg6pDyOt3k2RL2ElbghaMqs6dNMAwm")
|
||||
|
||||
CALL http_req.doRequest()
|
||||
|
||||
LET http_resp=http_req.getResponse()
|
||||
|
||||
IF http_resp.getStatusCode() != 200 THEN
|
||||
RETURN http_resp.getStatusCode(), http_resp.getStatusDescription()
|
||||
END IF
|
||||
LET tmp = http_resp.getStatusDescription()
|
||||
IF (tmp == "OK" || tmp == "no error" ) THEN
|
||||
RETURN -1, SFMT("HTTP request status description: %1 ",tmp)
|
||||
END IF
|
||||
LET result = http_resp.getTextResponse()
|
||||
CATCH
|
||||
RETURN -2, SFMT("HTTP request error: STATUS=%1 (%2)",STATUS,SQLCA.sqlerrd[2])
|
||||
END TRY
|
||||
|
||||
|
||||
RETURN 0, result
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION ipquality_send_command(url)
|
||||
|
||||
DEFINE url, cmd STRING
|
||||
DEFINE result, tmp STRING
|
||||
DEFINE http_req com.HTTPRequest
|
||||
DEFINE http_resp com.HTTPResponse
|
||||
|
||||
|
||||
|
||||
TRY
|
||||
LET http_req = com.HTTPRequest.Create(url)
|
||||
CALL http_req.setHeader("apikey","cHZNnfXkbJDtx43YcrQqHSjXzBrndwT3")
|
||||
|
||||
CALL http_req.doRequest()
|
||||
|
||||
LET http_resp=http_req.getResponse()
|
||||
|
||||
IF http_resp.getStatusCode() != 200 THEN
|
||||
RETURN http_resp.getStatusCode(), http_resp.getStatusDescription()
|
||||
END IF
|
||||
LET tmp = http_resp.getStatusDescription()
|
||||
IF (tmp == "OK" || tmp == "no error" ) THEN
|
||||
RETURN -1, SFMT("HTTP request status description: %1 ",tmp)
|
||||
END IF
|
||||
LET result = http_resp.getTextResponse()
|
||||
CATCH
|
||||
RETURN -2, SFMT("HTTP request error: STATUS=%1 (%2)",STATUS,SQLCA.sqlerrd[2])
|
||||
END TRY
|
||||
|
||||
|
||||
RETURN 0, result
|
||||
|
||||
END FUNCTION
|
||||
FUNCTION show_sync_err(msg)
|
||||
DEFINE msg STRING
|
||||
CALL fgl_winmessage(%"ERROR", msg, "exclamation")
|
||||
END FUNCTION
|
||||
@@ -97,16 +97,25 @@ FUNCTION productosconteo(pdata)
|
||||
IF STATUS < 0 THEN
|
||||
LET p.mensajes.cod_msg=STATUS
|
||||
LET p.mensajes.descripcion = 'ERROR EN CONEXION ',SQLCA.sqlerrm
|
||||
DISCONNECT CURRENT
|
||||
# sin DISCONNECT: no hay conexion abierta y el error tumbaba el server
|
||||
RETURN util.JSON.stringify(p)
|
||||
|
||||
END IF
|
||||
LET fecha = TODAY
|
||||
|
||||
END IF
|
||||
LET fecha = TODAY
|
||||
LET fecha_ini = fecha - 90
|
||||
|
||||
|
||||
IF p.credenciales.tipo_inventario IS NULL OR p.credenciales.tipo_inventario <> "productos" THEN
|
||||
# solo productos tiene consulta; antes PREPARE de NULL tumbaba el server
|
||||
LET p.mensajes.cod_msg = -1
|
||||
LET p.mensajes.descripcion = 'TIPO DE INVENTARIO NO DISPONIBLE PARA CONTEO: ',
|
||||
p.credenciales.tipo_inventario
|
||||
DISCONNECT CURRENT
|
||||
RETURN util.JSON.stringify(p)
|
||||
END IF
|
||||
|
||||
IF p.credenciales.tipo_inventario = "productos" THEN
|
||||
SELECT a.fecha_conteo INTO xfecha_conteo FROM intb00044 a
|
||||
WHERE a.tipo_inventario = tipo_inventario AND a.disponible = "SI"
|
||||
SELECT a.fecha_conteo INTO xfecha_conteo FROM intb00044 a
|
||||
WHERE a.tipo_inventario = 'PRODUCTOS TERMINADOS' AND a.disponible = "SI"
|
||||
DISPLAY "ESTOY PRODUCTOS",p.credenciales.codn
|
||||
|
||||
LET selec =
|
||||
@@ -127,7 +136,9 @@ FUNCTION productosconteo(pdata)
|
||||
"SELECT a.codid,b.bodega,c.descripcion,0"{ISNULL(SUM(b.cantidad_2),0)},",d.cod_seccion,d.cod_tramo,d.cod_fila,d.cod_pos
|
||||
FROM iptb00006 b,iptb00002 a INNER JOIN intb00015 e ON e.cod_n = a.cod_n and
|
||||
e.cod_grupo = a.cod_grupo and e.cod_tipo = a.cod_tipo and e.cod_sec = a.cod_sec and
|
||||
e.estado='Pendiente' ,intb00009 c,iptb00062 d
|
||||
e.estado='Pendiente' AND
|
||||
e.semana_del = (SELECT MIN (x.semana_del) FROM intb00015 x WHERE x.semana_del >= GETDATE())
|
||||
,intb00009 c,iptb00062 d
|
||||
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 b.status_t is null ",
|
||||
@@ -189,6 +200,14 @@ FUNCTION productosconteo(pdata)
|
||||
|
||||
END FOREACH
|
||||
DISPLAY "NUMERO DE PRODUCTOS ",i
|
||||
IF p.productos.getLength() = 0 THEN
|
||||
# sin semana programada en intb00015 no hay nada que contar; evita la
|
||||
# consulta de existencias (iptb00006) que tardaba >5 min y bloqueaba el WS
|
||||
LET p.mensajes.cod_msg = 100
|
||||
LET p.mensajes.descripcion = 'NO HAY PRODUCTOS PROGRAMADOS PARA CONTEO (intb00015)'
|
||||
DISCONNECT CURRENT
|
||||
RETURN util.JSON.stringify(p)
|
||||
END IF
|
||||
LET i = 1
|
||||
|
||||
PREPARE comando2 FROM s1
|
||||
|
||||
Reference in New Issue
Block a user