Bematech_FI_IdentificacaoPAFECF

Bematech

Bematech_FI_IdentificacaoPAFECF

 

Imprime a identificação do PAF-ECF em um relatório gerencial.

 

Parâmetros:

 

IndiceGerencial: STRING com o índice do Relatório Gerencial, com até 2 caracteres.

 

NumeroLaudo: STRING com o número do laudo, com até 15 caracteres.

 

CNPJ: STRING com o CNPJ do desenvolvedor, com até 18 caracteres.

 

RazaoSocial: STRING com a razão social, com  até 80 caracteres.

 

Endereco: STRING com o endereço, com até 85 caracteres.

 

Telefone: STRING com o telefone, com até 38 caracteres.

 

Contato: STRING com o contato, com até 38 caracteres.

 

NomeComercial: STRING com o nome comercial, com até 80 caracteres.

 

Versao: STRING com a versão, com até 40 caracteres.

 

Path: STRING com o caminho do principal executável da aplicação, com até 65 caracteres.

 

MD5: STRING com o MD5 do principal executável da aplicação, com 32 caracteres.

 

DemaisArquivos: STRING com o caminho dos demais arquivos, com até 670 caracteres. Cada PATH é limitado a 65 caracteres e separado por vígula do PATH seguinte. Total de 10 Paths.

 

MD5DemaisArquivos: STRING com o MD5 dos demais arquivos, com até 338 caracteres. Cada MD5 deve possuir 32 caracteres e separado por vírgula do MD5 seguinte. Total de 10 MD5.

 

NumeroSerie: STRING com os números de fabricação dos ECFs autorizados a utilizar o PAF-ECF, com até 420 caracteres. Cada número de fabricação deve possui até 20 caracteres e separado por vírgula do número seguinte. Total de 20 números de fabricação.

 

Possíveis retornos da Função (INTEIRO):

 

0: Erro de comunicação.

1: OK.

-1 - Erro de execução.

-2: Parâmetro inválido na função.

-4: O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.

-5: Erro ao abrir a porta de comunicação.

-27: Status da impressora diferente de 6,0,0 (ACK, ST1 e ST2).

 

Observação:

Exemplo:

 

' Exemplo em Visual Basic

iRetorno := Bematech_FI_IdentificacaoPAFECF("01", "123456", "123456789/0001-55", "Razão Social de Teste", "Endereço, 123", "11 2222-3333", "Fulano", "Aplicativo Teste", "1.0", "C:\ABC.EXE", "AD51ERT85D69Q735V645E86DGG8696BC", "", "", "BE0108SC56000049103")

 

// Exemplo em Delphi

 

cIndiceGerencial   := '01';

cNumeroLaudo       := '123456';

cCNPJ              := '123456789/0001-55';

cRazaoSocial       := 'Razão Social de Teste';

cEndereco          := 'Endereço, 123';

cTelefone          := '11 2222-3333';

cContato           := 'Fulano';

cNomeComercial     := 'Aplicativo Teste';

cVersao            := '1.0';

cPath              := 'C:\ABC.EXE';

cMD5               := 'AD51ERT85D69Q735V645E86DGG8696BC';

cDemaisArquivos    := '';

cMD5DemaisArquivos := '';

cNumeroSerie       := 'BE0108SC56000049103';

 

iRetorno := Bematech_FI_IdentificacaoPAFECF( pchar( cIndiceGerencial ), pchar( cNumeroLaudo ), pchar( cCNPJ ), pchar( cRazaoSocial ), pchar( cEndereco ), pchar( cTelefone ), pchar( cContato ), pchar(  cNomeComercial), pchar( cVersao ), pchar( cPath ), pchar( cMD5 ), pchar( cDemaisArquivos ), pchar( cMD5DemaisArquivos ), pchar( cNumeroSerie ) );