Segue abaixo exemplo de código de minha autoria para utilização da DLL do SINTEGRA para validação de inscrições estaduais.
Atentar-se ao seguinte :
1) o caminho da DLL deve ser absoluto. Não funciona puxando do PROPATH.
2) o número da IE deve ser passado sem separadores nem pontuação.
PROCEDURE ConsisteInscricaoEstadual EXTERNAL '<CAMINHO>\DllInscE32.dll':
DEF INPUT PARAM p-ie AS CHAR.
DEF INPUT PARAM p-uf AS CHAR.
DEF RETURN PARAM p-result AS LONG.
END PROCEDURE. /* ConsisteInscricaoEstadual */
FUNCTION validaIE RETURNS LOGICAL
( INPUT p-ie AS CHAR,
INPUT p-uf AS CHAR ):
DEF VAR i-return AS INT NO-UNDO.
RUN ConsisteInscricaoEstadual (p-ie, p-uf, OUTPUT i-return).
RETURN (i-return = 0).
END FUNCTION. /* validaIE */
-
Anuncie Aqui ! Entre em contato fdantas@4each.com.br -
-