Erro no ACBrPAF Registro P1

[Andre Rosa]

Olá amigos!

Vejam só, o registro P1, do Tab. Prod., do PAF-ECF:

É o seguinte, como vocês podem ver, o roteiro pode o CNPJ, a Inscrição Estadual, Inscrição Municipal e a Razão Social. Pois bem, no ACBr, no registro P1, há os campos: UF, CNPJ, IE, RAZAOSOCIAL. Bem, esse UF está errado, não? Ali deveria ser a Inscrição Municipal. Isso procede?

Obrigado,

André.

[EMBarbosa]

Não está errado. O componente possui ambas as propriedades. Mas só usa a IM na hora de criar o arquivo.

Veja o programa de demonstração (DEMO), na pasta Exemplos.

[Andre Rosa]

Show! Resolvi com a PreencheReader.

Obrigado!

[gobbo]

André

A função "PreencheHeader()" é uma função que você precisa implementar no seu aplicativo, ela não vem "pronta" no componente ACBrPAF.

Veja no "DemoPAF" como esta função está implementada:

procedure TForm6.PreencherHeader(Header: TRegistroX1);

begin

     // o header dos relatórios PAF a maioria são todos iguais

     Header.UF         :=edtUF.Text;

     Header.CNPJ       :=edtCNPJ.Text;

     Header.IE         :=edtIE.Text;

     Header.IM         :=edtIM.Text;

     Header.RAZAOSOCIAL:=edtRAZAO.Text;

end;

Leandro Gobbo

[Andre Rosa]

André

A função "PreencheHeader()" é uma função que você precisa implementar no seu aplicativo, ela não vem "pronta" no componente ACBrPAF.

Veja no "DemoPAF" como esta função está implementada:

procedure TForm6.PreencherHeader(Header: TRegistroX1);

begin

     // o header dos relatórios PAF a maioria são todos iguais

     Header.UF         :=edtUF.Text;

     Header.CNPJ       :=edtCNPJ.Text;

     Header.IE         :=edtIE.Text;

     Header.IM         :=edtIM.Text;

     Header.RAZAOSOCIAL:=edtRAZAO.Text;

end;

Leandro Gobbo

Valeu Leandro! Consegui fazer usando essa função.

Obrigado!

[gobbo]

Complementando...

Essa função pode ser utilizada em todo o Menu Fiscal, somente fique atento nos menus "ESTOQUE TOTAL" e "ESTOQUE PARCIAL", pois o header destes arquivos (E1) são diferentes dos demais headers (P1, D1 etc).

Veja um exemplo:

procedure TForm6.PreencherHeader_RegistroE1(Header: TRegistroX1);

begin

    //preenche o arquivo com o cabeçalho-padrão

     Self.PreencherHeader( Header );


    //complementa o header com os dados específicos do registro E1 (paramentro "Header" deve ser um "ACBrPAF.PAF_E.RegistroE1")

    Header.NUM_FAB        := edtNumFab.Text;

    Header.MF_ADICIONAL := edtMFAdicional.Text;

    Header.TIPO_ECF        := edtTipo.Text;

    Header.MARCA_ECF     := edtMarca.Text;

    Header.MODELO_ECF   := edtModelo.Text;

    Header.DT_EST          := edtDataEstoque.Text;

end;

Leandro Gobbo

[Andre Rosa]

Complementando...

Essa função pode ser utilizada em todo o Menu Fiscal, somente fique atento nos menus "ESTOQUE TOTAL" e "ESTOQUE PARCIAL", pois o header destes arquivos (E1) são diferentes dos demais headers (P1, D1 etc).

Veja um exemplo:

procedure TForm6.PreencherHeader_RegistroE1(Header: TRegistroX1);

begin

    //preenche o arquivo com o cabeçalho-padrão

     Self.PreencherHeader( Header );


    //complementa o header com os dados específicos do registro E1 (paramentro "Header" deve ser um "ACBrPAF.PAF_E.RegistroE1")

    Header.NUM_FAB        := edtNumFab.Text;

    Header.MF_ADICIONAL := edtMFAdicional.Text;

    Header.TIPO_ECF        := edtTipo.Text;

    Header.MARCA_ECF     := edtMarca.Text;

    Header.MODELO_ECF   := edtModelo.Text;

    Header.DT_EST          := edtDataEstoque.Text;

end;

Leandro Gobbo

Obrigado pelo adendo! Eu tinha notado isso, e o fiz separado.

Muito obrigado!