[firebase-br] DESISTO

Ter Set 8 18:01:41 -03 2009

Faltou a inicialicação da variável xx, o que poderia ocasionar um erro 
abaixo a função correta.

int cnpj_valido(char *str)
{
 int d1=0, d4=0, xx=1, nCount=0, fator=0, resto=0, digito1=0, digito2=0, 
nro_1=0, nro_2=0;
 int DV_Calculado_int=-1, DV_Informado_int=-1;
 char CNPJ[14], DV_Calculado[3], DV_Informado[3], nrochar_1[2], 
nrochar_2[2];

 d1=0; d4=0; xx=1;

 if(strlen(str)!=14)
  return -1;

 for(nCount = 0; nCount < strlen(str)-1; nCount++)
  if(str[nCount] < '0' || str[nCount] > '9')
   return -1;

 strcpy(CNPJ, str);

 d1=0; d4=0; xx=1;

 for(nCount = 0; nCount < strlen(CNPJ)-3; nCount++)
 {
  if( xx < 5)
   fator = 6 - xx;
  else
   fator = 14 - xx;

  nrochar_1[0] = CNPJ[nCount];
  nrochar_1[1] = '\0';
  nro_1 = atoi(nrochar_1);

  d1 = d1 + nro_1 * fator;

  if(xx < 6)
   fator = 7 - xx;
  else
   fator = 15 - xx;

  nrochar_2[0] = CNPJ[nCount];
  nrochar_2[1] = '\0';
  nro_2 = atoi(nrochar_2);

  d4 = d4 + nro_2 * fator;
  xx = xx+1;
 }

 resto = (d1 % 11);

 if (resto < 2)
  digito1 = 0;
 else
  digito1 = 11 - resto;

 d4 = d4 + 2 * digito1;
 resto = (d4 % 11);

 if(resto < 2)
  digito2 = 0;
 else
  digito2 = 11 - resto;

 sprintf(DV_Calculado,"%d%d\0",digito1 ,digito2);

 DV_Informado[0] = CNPJ[12];
 DV_Informado[1] = CNPJ[13];
 DV_Informado[2] = '\0';

 DV_Calculado_int = atoi(DV_Calculado);
 DV_Informado_int = atoi(DV_Informado);

 if(DV_Calculado_int==DV_Informado_int)
  return 1;
 else
  return 0;
}
"//---- Kelsie.Z.Marshall ----//" 
<kelsie.z.marshall em gmail.com> wrote in message 
news:h86f03$apg$1 em ger.gmane.org...
Ae Pessoal

DESISTO do DELPHI resolvi fazer em CodeGear C++ Builder 2009, muito melhor.

Aprendi como fazer UDF com o C++Builder e posto o resultado aqui, se
gostaram ou se ela for util para vocês me mande um e-mail que mando o código
e mais detalhes.

Meu e-mail:
kelsie.z.marshall em gmail.com

1º) Abra um novo projeto no CodeGear C++ Builder 2009 e escolha Dynamic Link
Library.

Dê o nome do projeto f_myfunctions.cbproj depois a DDL gerada será
f_myfunctions.dll

Abaixo o código que melhorei que faz a validação de CNPJ.

Se o CNPJ não for composto somente por números e o tamanho for diferente de
14 bytes a função retorna -1, caso contrário o DV (digito verificador) é
calculado com os 12 primeiro números e comparado com o DV informado ou seja
os dois últimos números da string.

//---------------------------------------------------------------------------
#include <windows.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
//---------------------------------------------------------------------------
//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use
MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or
delete
//   operations on any non-TObject-derived classes which are exported from
the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its
calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------

#pragma argsused

//---- Protótipo da função muito importante
extern int __declspec(dllexport) cnpj_valido(char *str);

//---------------------------------------------------------------------------
//---- Função
int cnpj_valido(char *str)
{
 int d1,d4,xx,nCount,fator,resto,digito1,digito2,nro_1,nro_2;
 int DV_Calculado_int=-1;
 int DV_Informado_int=-1;
 char CNPJ[14], DV_Calculado[3], DV_Informado[3], nrochar_1[2],
nrochar_2[2];

 if(strlen(str)!=14)
  return -1;

 for(nCount = 0; nCount < strlen(str)-1; nCount++)
  if(str[nCount] < '0' || str[nCount] > '9')
   return -1;

 strcpy(CNPJ, str);
 d1=0; d4=0; xx=1;

 for(nCount = 0; nCount < strlen(CNPJ)-3; nCount++)
 {
  if( xx < 5)
   fator = 6 - xx;
  else
   fator = 14 - xx;

  nrochar_1[0] = CNPJ[nCount];
  nrochar_1[1] = '\0';
  nro_1 = atoi(nrochar_1);

  d1 = d1 + nro_1 * fator;

  if(xx < 6)
   fator = 7 - xx;
  else
   fator = 15 - xx;

  nrochar_2[0] = CNPJ[nCount];
  nrochar_2[1] = '\0';
  nro_2 = atoi(nrochar_2);

  d4 = d4 + nro_2 * fator;
  xx = xx+1;
 }
 resto = (d1 % 11);

 if (resto < 2)
  digito1 = 0;
 else
  digito1 = 11 - resto;

 d4 = d4 + 2 * digito1;
 resto = (d4 % 11);

 if(resto < 2)
  digito2 = 0;
 else
  digito2 = 11 - resto;

 sprintf(DV_Calculado,"%d%d\0",digito1,digito2);

 DV_Informado[0] = CNPJ[12];
 DV_Informado[1] = CNPJ[13];
 DV_Informado[2] = '\0';

 DV_Calculado_int = atoi(DV_Calculado);
 DV_Informado_int = atoi(DV_Informado);

 if(DV_Calculado_int==DV_Informado_int)
  return 1;
 else
  return 0;
}
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*
lpReserved)
{
 return 1;
}
//------

2º)  Depois basta compílar em mode RELEASE.

3º) Copie a DLL( f_myfunctions.dll ) gerada para o sub-diretório \UDF de seu
firebird o meu é 'C:\Program Files (x86)\Firebird\Firebird_2_1\UDF'
Atenção tentei fazer com o firebird 64 bits e não funcionou quebrei a cabeça
até descobrir isto, se não fosse a ajuda da galera aqui da lista estaria até
agora remando.

4º) Preferencialmente usando o IBExpert você deve fazer a [declaração da
função], não esqueça de apertar F5 em cima da funções para dar o refresh no
banco após cria-la.

declare external function VALIDA_CNPJ
cstring(14)
returns int by value
entry_point 'cnpj_valido'
module_name 'f_myfunctions';

Aqui para facilitar a vida, adoro quando postam isto.

CREATE TABLE A_TAB
(
  CNPJ                         VARCHAR(    14)
);

INSERT INTO A_TAB (CNPJ) VALUES ('06947284000104'); /* CNPJ VÁLIDO google
brasil*/
INSERT INTO A_TAB (CNPJ) VALUES ('83583745923244'); /*CNPJ INVÁLIDO*/

select CNPJ from A_TAB  where VALIDA_CNPJ(CNPJ)=1
ou
select VALIDA_CNPJ(CNPJ) from A_TAB
ou

select ('06947284000104') from A_TAB
a consulta acima dever retornar 1 dizendo que é válido

select ('83583745923244') from A_TAB
a consulta acima dever retornar 0 dizendo que é inválido

[]s,
Kelsie
kelsie.z.marshall em gmail.com

"//---- Kelsie.Z.Marshall ----//"
<kelsie.z.marshall em gmail.com> wrote in message
news:h7t3ec$30j$1 em ger.gmane.org...
Não consigo de jeito nenhum fazer uma UDF.

Já vasculhei a internet de cabo a rabo, este erro é recorrente, mas não
encontrei a solução.

-----------------------------------------------------------
1) ABRI UM PROJETO (lib_Project1) DE DLL NO DELPHI COMO as dezenas de
tutoriais falam pra fazer
-BOF---------------------------------------------------------------

library lib_Project1;
uses
  SysUtils,
  Classes;

function Modular(var Width,Height:Integer):Integer; cdecl;
begin
  result:=Width+Height;
end;

exports
  Modular;
begin

end.

--EOF----------------------------------------------------------------------------------------------

2) Compilei e gerei a DLL

3) Copiei a DLL para o diretório C:\Program Files\Firebird\Firebird_2_1\UDF

4) Registrei ela no banco

declare external function f_Modular
Integer, Integer
returns Integer by value
entry_point 'Modular'
module_name 'lib_Project1.dll';

5) chamei a UDF select f_modular(1,2) from a_tab

E O ERRO OCORRE AQUI.

Invalid token.
invalid request BLR at offset 60.
function F_MODULAR is not defined.
module name or entrypoint could not be found.

Estou usando VISTA 64, Delphi 2009 com Firebird 2.1 64 Bits, mas já testei
num XP e em outra base de dados, com FireBird 2.1 32 Bits, digo isto pois
acho que o problema é por ai não sei.

Tá dificil fazer UDF funcionar no firebird...

Abraço
Kelsie

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa