Gerando os Registros da CAT-52

Gerando Registros do SPED

Criamos a função Bematech_FI_GeraRegistrosSpedMFD destinada a geração dos registros do SPED Fiscal e Contábil pertinentes ao ECF. Os registros gerados por esta função, são:

• C400: Equipamento ECF (Código 02 e D2)

• C405: Redução Z (Código 02 e D2)

• C410: PIS e COFINS totalizados no Dia (Código 02 e D2)

• C420: Registro dos Totalizadores Parciais da Redução Z (Código 02 e D2)

• C425: Resumo de itens do movimento diário.

• C460: Documento Fiscal Emitido por ECF (Código 02 e D2)

• C470: Itens do Documento Fiscal Emitido por ECF (Código 02 e D2)

• C490: Registro Analítico do Movimento Diário (Código 02 e D2)

• C495: Resumo Mensal de Itens do ECF por Estabelecimento (Código 02 e D2)

Parâmetros:

cOrigem: variável STRING com path+nome do arquivo contendo o download da MFD (.mfd).

cDestino: variável STRING com path+nome do arquivo texto de destino.

cDataInicial: variável STRING com a data inicial no formato "DD/MM/AAAA".

cDataFinal: variável STRING com a data final no no formato "DD/MM/AAAA".

cPerfil: variável STRING com o perfil do relatório a ser gerado, sendo "A", "B" ou "T", onde T = Todos os registros (A e B).

cCFOP: variável STRING com o código CFOP do estabelecimento, com o tamanho de 4 dígitos.

cCodObsLancFiscal: variável STRING com o código da observação do lançamento fiscal. Caracter branco caso opcional.

cAliquotaPis: variável STRING com o valor percentual da alíquota para o cálculo do PIS, com o tamanho de 4 dígitos sem a vírgula (0000) ou 5 dígitos com a vírgula (00,00).

cAliquotaCofins: variável STRING com o valor percentual da alíquota para o cálculo do COFINS, com o tamanho de 4 dígitos sem a vírgula (0000) ou 5 dígitos com a vírgula (00,00).

Observações:

• Função implementada apenas para os modelos MP-2100 TH FI, MP-3000 TH FI, MP-4000 TH FI e MP-7000 TH FI.

• Para que a função Bematech_FI_GeraRegistrosSpedMFD possa gerar os registros, é necessário que as dlls BemaMFD.dll e BemaMFD2.dll estejam presentes em seu computador, juntamente com a BemaFI32.dll e o BemaFI32.ini. Copie estes arquivos para o diretório de sistema do Windows (exemplo: C:\Windows\System32).

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

0: Erro de comunicação.

1: OK.

3: Não foi possível criar arquivo TXT.

4: Data informada inválida.

-1 - Erro de execução da funçã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).

Exemplo:

' Exemplo em Visual Basic

iRetorno = Bematech_FI_GeraRegistrosSpedMFD("C:\download.mfd", "C:\Resultado.txt", "01/09/2010", "30/09/2010", "T", "5929", " ", "00,00", "00,00")

// Exemplo em Delphi

cArquivoMFD   := 'C:\download.mfd';

cArquivoTXT   := 'C:\Resultado.txt';

cDataInicial  := '01/09/2010';

cDataFinal    := '30/09/2010';

cPerfil       := 'T';

cCFOP         := '5929';

cCODOBSFiscal := ' ';

cAliqPIS      := '00,00';

cAliqCOFINS   := '00,00';

iRetorno = Bematech_FI_GeraRegistrosSpedMFD( pchar( cArquivoMFD ), pchar( cArquivoTXT ), pchar( cDataInicial ), pchar( cDataFinal ), pchar( cPerfil ), pchar( cCFOP ), pchar( cCODOBSFiscal ), pchar( cAliqPIS ), pchar( cAliqCOFINS ) );