Bematech_FI_GeraRelatorioSintegraMFD

Bematech_FI_GeraRelatorioSintegraMFD

Gera os relatórios para o Sintegra, somente da impressora fiscal térmica (MFD), a partir de um arquivo .MFD.

Parâmetros:

iRelatorios: variável INTEIRA com o tamanho de um byte, onde:

1: gera o relatório tipo 60M (Mestre);

2: gera o relatório tipo 60A (Analítico);

4: gera o relatório tipo 60D (Diário);

8: gera o relatório tipo 60I (Item);

16: gera o relatório tipo 60R (Resumo Mensal) e;

32: gera o relatório tipo 75.

Observação: Para gerar mais de um relatório, deve-se enviar a soma dos valores citados acima, por exemplo: Se desejar gerar os relatório tipo 60M, tipo 60A e tipo 75, a variável deve ter o valor 34.

cArquivoOrigem: STRING com o path e nome do arquivo .MFD de origem. Exemplo: "C:\DOWNLOAD.MFD"

cArquivoDestino: STRING com o path e nome do arquivo onde o relatorio será gerado. Exemplo: "C:\SINTEGRA.TXT"

cMes: STRING com o mês, no formato MM.

cAno: STRING com o ano, no formato AAAA.

cRazaoSocial: STRING com a razão social, no tamanho de até 35 caracteres.

cEndereco: STRING com o endereço, no tamanho de até 34 caracteres.

cNumero: STRING com o número, no tamanho de até 5 caracteres.

cComplemento: STRING com o complemento, no tamanho de até 22 caracteres.

cBairro: STRING com o bairro, no tamanho de até 15 caracteres.

cCidade: STRING com a cidade, no tamanho de até 30 caracteres.

cCEP: STRING com o CEP, com o tamanho de 8 caracteres.

cTelefone: STRING com o telefone, no tamanho de até 12 caracteres.

cFax: STRING com o fax, no tamanho de até 10 caracteres.

cContato: STRING com o nome do contato, no tamanho de até 18 caracteres.

Retornos da Função (INTEIRO):

0 - Erro de comunicação.

1 - Ok.

-1 - Erro de execução da função.

-2 - Parâmetro inválido.

-4 - Arquivo ini não encontrado ou parâmetro inválido para o nome da porta.

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

-27 - Status da impressora diferente de 6,0,0,0 (Ack, St1, St2 e St3).

Observação:

Exemplo:

' Exemplo em Visual Basic que gera os registros do Sintegra pertinentes ao ECF

iRetorno = Bematech_FI_GeraRelatorioSintegraMFD(63, "DOWNLOAD.MFD", "SINTEGRA.TXT", "11", "2003", "BEMATECH S/A", "Estrada de Santa Candida", "263", "Industria", "Santa Candida", "Curitiba", "82630490", "41 351-2700", "41 351-2863", "Fulano de Tal" );

// Exemplo em Delphi que gera os registros do Sintegra pertinentes ao ECF

cArqOrigem := 'DOWNLOAD.MFD';

cArqDestino := 'SINTEGRA.TXT';

cMes := '11';

cAno := '2003';

cRazaoSocial := 'BEMATECH S/A';

cEndereco := 'Estrada de Santa Candida';

cNumero := '263';

cComplemento := 'Industria';

cBairro := 'Santa Candida';

cCidade := 'Curitiba';

cCEP := '82630490';

cTelefone := '41 351-2700';

cFax := '41 351-2863';

cContato := 'Fulano de Tal';

iRetorno := Bematech_FI_GeraRelatorioSintegraMFD( 63, pchar( cArqOrigem ), pchar( cArqDestino ), pchar( cMes ), pchar( cAno ), pchar( cRazaoSocial ), pchar( cEndereco ), pchar( cNumero ), pchar( cComplemento ), pchar( cBairro ), pchar( cCidade ), pchar( cCEP ), pchar( cTelefone ), pchar( cFax ), pchar( cContato ) );