IMPORT util

FUNCTION rnc(xrnc)
  DEFINE prnc  RECORD
    nombre_cliente  STRING,
    direccion       STRING,
    cod_msg         SMALLINT,
    mensaje_out     STRING
  END RECORD,
   selec STRING,
   xrnc STRING

   DEFINE data RECORD
     usuario    VARCHAR(50),
     clave      VARCHAR(50),
     rnc        VARCHAR(11),
     tipo_documento SMALLINT
   END RECORD
  
   CALL util.JSON.parse(xrnc,data)

WHENEVER ERROR CONTINUE
   CONNECT TO "smarmotech" USER data.usuario USING data.clave
        IF STATUS < 0 THEN
         LET prnc.cod_msg=STATUS
         LET prnc.mensaje_out=  'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
         RETURN util.JSON.stringify(prnc)
      END IF
      DISPLAY "TIPO DOC ",data.tipo_documento," RNC ",data.rnc
   #  IF data.tipo_documento IS NULL OR data.tipo_documento = 0 THEN
   #       LET prnc.cod_msg = -1
   #       LET prnc.mensaje_out='TIPO DOCUMENTO EN BLANCO'
   #       DISCONNECT CURRENT
   #       RETURN util.JSON.stringify(prnc)          
   #  END IF 
   #  IF data.tipo_documento = 1 THEN
   #    IF LENGTH(data.rnc) <> 9 THEN
   #       LET prnc.cod_msg = 77
   #       LET prnc.mensaje_out='LONGITUD DEL RNC DEBE SER 9'
   #       DISCONNECT CURRENT
   #       RETURN util.JSON.stringify(prnc)          
   #    END IF
   #  ELSE
   #     IF data.tipo_documento = 2 THEN
   #        IF LENGTH(data.rnc) <> 11 THEN
   #           LET prnc.cod_msg = 77
   #           LET prnc.mensaje_out='LONGITUD DEL RNC DEBE SER 9'
   #           DISCONNECT CURRENT
   #           RETURN util.JSON.stringify(prnc)          
   #        END IF
   #     END IF
   #   END IF
             
   #IF data.tipo_documento = 1 THEN     
   LET selec=
      "SELECT RTRIM(a.razon_social),RTRIM(a.calle)+' '+RTRIM(a.no_local)+' '+RTRIM(a.sector) FROM DGII.dbo.empresas a ",
      "WHERE a.rnc ='",data.rnc CLIPPED,"'"

  
   PREPARE comando FROM selec
   EXECUTE comando INTO prnc.nombre_cliente,prnc.direccion USING xrnc
   IF STATUS = NOTFOUND THEN
      LET prnc.cod_msg=400
      LET prnc.mensaje_out = 'REGISTRO NO EXISTE'
   ELSE
      LET prnc.cod_msg=200
      LET prnc.mensaje_out='EXISTE EN DEV'
   END IF
  #END IF   
 DISCONNECT CURRENT
   
 RETURN util.JSON.stringify(prnc)
END FUNCTION