Genexus

Tenho um exemplo utilizando Visual Fox. Espero que ajude:

1. Declarando a DLL

dbase declare Integer ConsisteInscricaoEstadual In DllInscE32.DLL String, String

2. Procedure para validar a inscrição:

em Rules

parm(&CrdIePar ,&MunUf ,&ChErr ,&Msg);

em Source

&ChErr = 'N'

&Msg = ''

if null(&CrdIePar) // se recebeu em branco está inválida

   &Msg = 'Falta Inscrição Estadual.'

   return

endif

if upper(&CrdIePar) = 'ISENTO'

   return

endif

&CrdIe = trim(&CrdIePar) // para eliminar espaços

call(PNfeCarEspeciais ,&CrdIe) // para retirar todos os caracteres especiais (ponto, traço, etc.)

&CrdIe = strreplace(&CrdIe ,'me' ,'') // isso eu uso porque meus clientes tinham várias inscrições com isso

&CrdIe = strreplace(&CrdIe ,'ME' ,'') // idem

&CrdIe = strreplace(&CrdIe ,'p' ,'') // idem

&CrdIe = strreplace(&CrdIe ,'P' ,'') // idem

&CrdIe = strreplace(&CrdIe ,' ' ,'') // retirando espaços intermerdiários

dbase [!&ChRes!] = ConsisteInscricaoEstadual([!&CrdIe!], [!&MunUf!])

if &ChRes <> 0 // quando a chamada à função retorna diferente de zero a inscrição é inválida

   &Msg = 'Incrição Estadual Inválida.'  // retorna mensagem ao programa chamador

   &ChErr = 'S' // retorna erro ao programa chamador

endif

Nenhum vírus encontrado nessa mensagem.
Verificado por AVG - www.avgbrasil.com.br
Versão: 2012.0.2240 / Banco de dados de vírus: 2641/5677 - Data de Lançamento: 03/15/13