74 lines
2.3 KiB
Plaintext
74 lines
2.3 KiB
Plaintext
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
|