Gerar arquivo Dav Emitidos - PAF-ECF

[Andre Rosa]

Olá,

Eu estou com um pouco de dificuldades para gerar o arquivo DAV EMITIDOS. Estou fazendo isso:

  with ACBrPAF.PAF_D do

  begin

    RegistroD1.UF:= Estado;

    RegistroD1.CNPJ:= CGC;

    RegistroD1.IE:= Inscestadual;

    RegistroD1.IM:= InscMuni;

    RegistroD1.RAZAOSOCIAL:= RazaoSocial;


    with RegistroD2.New do

    begin

      NUM_FAB:= ACBrECF.NumSerie;

     // TIPO_ECF:= ACBrEC

      MODELO_ECF:= ACBrECF.ModeloStr;

      COO:= ACBrECF.NumCOO;

      //NUM_DAV:= ACBrECF.num

      NUMERO_ECF:= ACBrECF.NumECF;

    end;

  end;


  ACBrPAF.SaveFileTXT_D('DAV123.txt');

Ele está gerando um arquivo pequeno, de 4 linhas. É isso mesmo? Alguém poderia me ajudar, por favor?

[EMBarbosa]

Olá,

Eu estou com um pouco de dificuldades para gerar o arquivo DAV EMITIDOS. Estou fazendo isso:

Você precisa buscar os DAVs do seu Banco de dados, não do ACBrECF.

[Andre Rosa]

Olá,

Eu estou com um pouco de dificuldades para gerar o arquivo DAV EMITIDOS. Estou fazendo isso:

Você precisa buscar os DAVs do seu Banco de dados, não do ACBrECF.

Mas no caso, o que seria esses DAVs?

Obrigado.

[Juliomar Marchetti]

Amigo sugiro uma breve leitura do manual do PAF ECF

que se encontra já na versão 1.6 E.R. 0108

acho que no tópico sobre legislação fiscal e tributária/PAF-ECF

tem o link do manual

[Andre Rosa]

Acabei de ler. Temos um campo relacionado aos DAVs aqui no nosso banco de dados. Bem, a que tipo de campo do ACBrECF eu devo atribuir estes DAVs? Eu vejo que há os seguintes campos no exemplo do ACBr:

Numero - Que número é esse?

COO_Dav - Creio ter entendido.

COO_Cupom - Creio ter entendido.

Titulo - Que título é esse?

DtEmissao - Creio ter entendido.

Valor - Creio ter entendido.

Obrigado!

[Juliomar Marchetti]

Esqueci de mencionar os ato cotepes e especificações de requisitos

nele tem o layout certinho do que é necessário para gerar os DAV´s

Numero do DAV

Coo da emissão do dav na ecf ( pois é um relatório gerencial)

coo do cupom emitido a partir do dav (então do dav emitido e gerado o cupom dos itens)

titulo é para informar se é um pedido, ordem de produção, orçamento etc

dtemissão o dia da emissão do DAV

valor que seria o total do DAV

espero ter lhe ajudado... mas você lendo os ato cotepes já vai lhe ajudar

[Andre Rosa]

Juliomar ,

Primeiramente obrigado pela força, sou muito grato. Acabei de conversar com nosso analista, e ele me disse para dar um select buscando todos os DAVs de acordo com o período que for selecionado no Menu Fiscal. Bem, caso não haja DAV algum, devo imprimir algo? Pois trará os valores em branco. Não achei nada relacionado a isso no roteiro. Pra falar a verdade, achei o conteúdo sobre DAVs Emitidos extremamente vago. Será que eu estou no índice errado?

Obrigado!

[Juliomar Marchetti]

Senão possuir DAV´s não imprime nada, somente avisa que não encontrou DAV´s nesse periodo..

[EMBarbosa]

Embora o Manual (Roteiro de Análise ER-PAF-ECF) tenha detalhado o teste como será, eu sugiro a leitura das leis que o fazem vigorar também:

Veja o tópico:

viewtopic.php?f=20&t=2543

A lei base para esse é a abaixo, mas como falado no tópico acima, ainda não foi atualizada pra refletir as alterações do ER 1.08;

http://www.fazenda.gov.br/confaz/confaz ... 006_08.htm

[Andre Rosa]

Olá, Elton.

Bom, eu estava lendo esse ATO COTEPE que você sugeriu, e aparentemente encontrei o que queria neste trecho:

disponibilizar a emissão, selecionada por período de data inicial e final, de Relatório Gerencial no ECF, denominado “DAV EMITIDOS”, contendo o número, a data de emissão, o título do DAV atribuído de acordo com a sua função e o valor total de cada DAV emitido.

Mas tenho uma dúvida. Na parte sublinhada (valor total de cada DAV emitido), esse valor total seria o que?

Obrigado.

[EMBarbosa]

A soma dos produtos e/ou serviços alistados em cada DAV que vai sair no relatório.

[Andre Rosa]

Obrigado mais uma vez. Outra dúvida: há algum leiaute a seguir para gerar o arquivo do DAV Emitidos?

Abs.

[EMBarbosa]

Até onde me lembro não. Só essas informações aí mesmo.

Mas o ATO COTEPE 06/08 é que deve ser sua fonte de orientações para o PAF. Procura lá, vai que eles colocam e a gente não fica sabendo...

[Andre Rosa]

Então, eu estou - ainda - trabalhando no arq. do DAV EMITIDOS, e estou com uma certa dúvida. O que seria o campo TIPO_ECF ?

       NUM_FAB        := FieldByName('ECF_NUMSERIE').AsString;

        TIPO_ECF       := '...'; //O que seria este campo?

        MODELO_ECF     := FieldByName('ECF_MODELO').AsString;

        COO            := FieldByName('ECF_COO').AsInteger;

        NUM_DAV        := FieldByName('DAV').AsInteger;

        NUMERO_ECF     := FieldByName('NUM_DOCUMENTO').AsInteger;

        NOME_CLIENTE   := FieldByName('NM_CLIENTE').AsString;

        CPF_CNPJ       := FieldByName('CPF').AsString;

Obg,

André Rosa.

[Andre Rosa]

Olá,

Eu ainda não possuo nenhum DAV no banco de dados, mas, no entanto, quero deixar a rotina pronta, para poder homolagar. Estou recebendo dois erros ao validar. São eles:

Validando Arquivo...

ERRO 001: LIN 2 [Comprimento de Linha inválido] | Esperado 212 | Encontrado: 204

ERRO 002: LIN 4 [Comprimento de Linha inválido] | Esperado 196 | Encontrado: 195

Bem, estou utilizando o ACBr, e a minha rotina é esta:

  with Query do

  begin

    Active:= False;

    SQL.Clear;


    SQL.Add('Select a.*, b.* from PEDIDO a');

    SQL.Add('join ECF_EMITIDO b on a.id_local = b.id_pedido');

    SQL.Add('where b.DATAHORA between :de and :ate');

    SQL.Add('and PED_ORC_VENDA = ''O''');

    ParamByName('de').AsDate  :=  edtDe.Date;

    ParamByName('ate').AsDate :=  edtAte.Date;

    if not Prepared then Prepare;

    Active:= True;

    First;


    if RecordCount < 1 then

    begin

      Informa('Sem operação no período.');

     // Exit;

    end;


    if not Prepared then Prepare;

    Active:= True;


    with ACBrPAF.PAF_D do

    begin

      RegistroD1.UF          := RegEmpresa.Estado;

      RegistroD1.CNPJ        := CompletaEspacos(RegEmpresa.CGC, 14);

      RegistroD1.IE          := CompletaEspacos(RegEmpresa.InscEstadual, 14);

      RegistroD1.IM          := CompletaEspacos(InscMuni, 14);

      RegistroD1.RAZAOSOCIAL := CompletaEspacos(RegEmpresa.Nm_Empresa, 50);


      while not Query.Eof do

      begin

        with RegistroD2.New do

        begin

          CPF_CNPJ    := '17337047000148';

          NUM_FAB     :=  CompletaEspacos('12345', 20); 

          MF_ADICIONAL:= 'a'; 

          TIPO_ECF    :=  CompletaEspacos('xxxx', 7);

          MARCA_ECF   := CompletaEspacos('xxxx', 20);

          MODELO_ECF  := CompletaEspacos('xxxx', 20);

          COO         := CompletaEspacos('000365', 6);

          NUM_DAV     := CompletaEspacos('xxxx', 13);

          DT_DAV      := StrToDateTime('10/10/10');

          TIT_DAV     := CompletaEspacos('xxxx', 20);

          VLT_DAV     :=  StrToCurr('12345678');

          COO_DFV     := CompletaEspacos('000365', 6);

          NUMERO_ECF  := '321';

          NOME_CLIENTE:= CompletaEspacos('ANDRE', 40);

          CPF_CNPJ    := '17337047000148';

          Next;

        end;

      end;

      with RegistroD2.New.RegistroD3.New do

      begin

        DT_INCLUSAO:= StrToDateTime('10/10/10');

        NUM_ITEM:=  321;

        COD_ITEM:= CompletaEspacos('xx', 14);

        DESC_ITEM:= CompletaEspacos ('xx', 100);

        QTDE_ITEM:= 1234567;

        UNI_ITEM:= '123';

        VL_UNIT:= 12345678;

        VL_ACRES:= 12345678;

        VL_TOTAL:= 11111111111111;

      end;


      with RegistroD9 do

      begin

        TOT_REG_D2:= 0;

        TOT_REG_D3:= 0;

      end;

    end;

  end;

O arquivo gerado é este:

D10078052400014284494542 1545245 EMPRESA TESTE

D200780524000142 000000 00000000000000000 00000000000000

D20078052400014212345 axxxx xxxx xxxx 000365xxxx 20101010xxxx 12345678000365321ANDRE 17337047000148

D3000000000000020101010321xx xx 1234567123123456780000000012345678000-1223331396

D90078052400014284494542 000002000001

Alguém, por favor, pode me dizer onde estou errando? Ah, já removi também as funções CompletaEspacos(), mas o erro é o mesmo. Obrigado.