52 lines
1.4 KiB
Plaintext
52 lines
1.4 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION valida_avance(xvalida)
|
|
DEFINE xmsg RECORD
|
|
nombre_cliente STRING,
|
|
direccion STRING,
|
|
mensaje_out STRING,
|
|
cod_msg SMALLINT
|
|
END RECORD,
|
|
selec STRING,
|
|
xvalida STRING,
|
|
data RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
cotizacion_no INT
|
|
END RECORD
|
|
CALL util.JSON.parse(xvalida,data)
|
|
|
|
WHENEVER ERROR CONTINUE
|
|
|
|
CONNECT TO "smarmotech" USER data.usuario USING data.clave
|
|
IF STATUS < 0 THEN
|
|
LET xmsg.mensaje_out= 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
|
|
LET xmsg.cod_msg=-8
|
|
RETURN util.JSON.stringify(xmsg)
|
|
ELSE
|
|
LET xmsg.mensaje_out= "USUARIO VALIDO"
|
|
LET xmsg.cod_msg=0
|
|
|
|
END IF
|
|
|
|
LET selec=
|
|
"SELECT DISTINCT a.documento_Ref FROM cctb00001 a ",
|
|
"WHERE a.documento_ref =",data.cotizacion_no," AND a.tipo_Doc = 'AV' AND a.status_t IS NULL"
|
|
|
|
|
|
PREPARE comando FROM selec
|
|
EXECUTE comando USING data.cotizacion_no
|
|
IF STATUS <> NOTFOUND THEN
|
|
LET xmsg.mensaje_out = "COTIZACION TIENE RECIBO AVANCE, NO PUEDE ANULAR"
|
|
LET xmsg.cod_msg=-3
|
|
RETURN util.JSON.stringify(xmsg)
|
|
ELSE
|
|
LET xmsg.mensaje_out = "PROCEDE"
|
|
LET xmsg.cod_msg=0
|
|
|
|
END IF
|
|
DISCONNECT CURRENT
|
|
|
|
RETURN util.JSON.stringify(xmsg)
|
|
END FUNCTION
|