É possível gerar apenas o bloco H ?

[Antonio Carlos L]

Pessoal, é a primeira vez que uso  o TACBrSPEDFiscal , pode ser algo muito básico.

Procurei no fórum antes, mas não achei 

Preciso enviar para a contabilidade apenas o Bloco H, essa foi a solicitação da contabilidade.

No exemplo do componente existe uma sucessão de blocos, sem gerar os outros blocos, é possível gerar apenas o bloco H ?

Estou tendo um erro assinalado no código abaixo ( FFiscal.WriteBloco_H;      <<<<< aqui ocorre a exceção  ). 

var
 FFiscal: TACBrSPEDFiscal;
begin
  FFiscal := TACBrSPEDFiscal.Create(nil)
  try
    FFiscal.Path    := APath;
    FFiscal.Arquivo := AFile;
    FFiscal.LinhasBuffer := 5000;
    try
    with FFiscal.Bloco_H do
    begin
      with RegistroH001New do
      begin
        IND_MOV := imComDados;
        with RegistroH005New do
        begin
          DT_INV  := GL_PERIODO;
          VL_INV  := AVEstoque;
          MOT_INV := miFinalPeriodo;
          while not DM.sqlQry.Eof do
          begin
            with RegistroH010New do
            begin
              COD_ITEM  := DM.sqlQry.FieldByName('CODIGO').AsString;

              case IsVazio(DM.sqlQry.FieldByName('UNIDADE').AsString) of
                False : UNID := DM.sqlQry.FieldByName('UNIDADE').AsString;
                True  : UNID := 'PC';
              end;

              QTD        := DM.sqlQry.FieldByName('POSICAO').AsInteger;
              VL_UNIT    := DM.sqlQry.FieldByName('PRECO_COMPRA').AsCurrency;
              VL_ITEM    := DM.sqlQry.FieldByName('VALORITEM').AsCurrency;
              IND_PROP   := piInformante;
              COD_PART   := '';
              TXT_COMPL  := '';
              COD_CTA    := ACta;
              VL_ITEM_IR := DM.sqlQry.FieldByName('PRECO_COMPRA').AsCurrency;
            end;
            DM.sqlQry.Next;
          end;
          DM.sqlQry.Close;
        end;
      end;
    end;

    FFiscal.WriteBloco_H;      <<<<< aqui ocorre a exceção .
    FFiscal.SaveFileTXT;

  finally
    FreeAndNil(FFiscal);
  end;

Editado 27 Janeiro, 2022 por Antonio Carlos L
faltou dados

[Juliomar Marchetti]

Não.

mas e porque tu iria querer ter só o bloco H ele não vai funcionar no PVA

[Antonio Carlos L]

Oi Juliomar, a contabilidade do cliente quer apenas o BLOCO H.

Inclusive mandaram instruções de como tem, que ser.

Eles devem ter algum importador, sei lá.

Eu vi que haviam dependências entre as units, graças que o ACBr é free e pude ver na units do blocoH como era feito e gerei o boco H.

Pensei que o erro era devido a minha inexperiência.

Obrigado

 

[Juliomar Marchetti]

Não não.

mas é estranho viu

mas tu pode gerar ele completo e sacar só o bloco H