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