52 lines
1.6 KiB
Plaintext
52 lines
1.6 KiB
Plaintext
IMPORT util
|
|
IMPORT security
|
|
|
|
FUNCTION produccion_eliminar(pdata)
|
|
DEFINE i SMALLINT,
|
|
pdata STRING
|
|
|
|
DEFINE data RECORD
|
|
credenciales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50)
|
|
END RECORD,
|
|
documento RECORD
|
|
num_doc INT,
|
|
departamento INT,
|
|
dispositivo STRING
|
|
END RECORD,
|
|
|
|
mensajes RECORD
|
|
cod_msg INT,
|
|
descrip_msg STRING
|
|
|
|
END RECORD
|
|
END RECORD
|
|
# LOCATE data.archivos.imagen IN MEMORY
|
|
CALL util.JSON.parse(pdata,data)
|
|
# WHENEVER ERROR CONTINUE
|
|
|
|
CONNECT TO "smarmotech" USER data.credenciales.usuario USING data.credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
LET data.mensajes.cod_msg = STATUS
|
|
LET data.mensajes.descrip_msg = 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(data.mensajes)
|
|
END IF
|
|
|
|
|
|
UPDATE actb00010 SET us_mod = data.credenciales.usuario,
|
|
fech_mod = getdate(),
|
|
estado = 'ELIMINADA'
|
|
WHERE idnumero_movil = data.documento.num_doc AND
|
|
departamento = data.documento.departamento AND
|
|
dispositivo = data.documento.dispositivo
|
|
|
|
|
|
|
|
LET data.mensajes.cod_msg=13
|
|
LET data.mensajes.descrip_msg='ELIMINACION EXITOSA'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(data.mensajes)
|
|
END FUNCTION
|