31 lines
948 B
Plaintext
31 lines
948 B
Plaintext
FUNCTION buscaRnc(rnc)
|
|
DEFINE rnc VARCHAR(11),
|
|
ventas VARCHAR(1),
|
|
codigodgii VARCHAR(2),
|
|
str_query STRING,
|
|
xnombre,xcalle,xurbanizacion VARCHAR(100),xtelefono VARCHAR(25),
|
|
procesa BOOLEAN
|
|
|
|
|
|
LET str_query =
|
|
"SELECT a.razon_social,a.calle,a.sector,a.telefono FROM DGII.dbo.empresas a WHERE a.rnc = '",rnc CLIPPED,"'"
|
|
|
|
PREPARE busca_rnc FROM str_query
|
|
|
|
|
|
EXECUTE busca_rnc INTO xnombre,xcalle,xurbanizacion,xtelefono
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET xnombre = 'NO EXISTE'
|
|
LET xcalle = NULL
|
|
LET xurbanizacion = NULL
|
|
LET xtelefono = NULL
|
|
LET procesa = FALSE
|
|
|
|
ELSE
|
|
LET procesa = TRUE
|
|
|
|
END IF
|
|
|
|
RETURN procesa, xnombre,xcalle,xurbanizacion,xtelefono
|
|
END FUNCTION |