Bloco C800 e C810 não está sendo gerado no arquivo

[Mega Online]

Bom dia, meus fontes estão atualizados, inclusive baixei a nova verção no \trunk2 e não encontrei nada programado para geração dos blocos C800 e C810 do SPED Pis/Cofins, no arquivo ACBrEPCBloco_C_Class.pas não existe a programação WriteRegistroC800 e nem WriteRegistroC810, alguma previsão para o desenvolvimento? pois no arquivo ACBrEPCBloco_C.pas até está programado para alimentar os dados, só não gera no TXT.

Conforme abaixo no arquivo ACBrEPCBloco_C.pas está desenvolvido.

  TRegistroC800 = class
  private
    FCOD_MOD              : string;
    FCOD_SIT              : TACBrCodSit;
    FNUM_CFE              : Integer;
    FDT_DOC               : TDateTime;
    FVL_PIS               : Variant;
    FVL_COFINS            : Variant;
    FVL_CFE               : Variant;
    FCNPJ_CPF             : String;
    FNR_SAT               : String;
    FCHV_CFE              : String;
    FVL_DESC              : Variant;
    FVL_MESC              : Variant;
    FVL_OUT_DA            : Variant;
    FVL_PIS_ST            : Variant;
    FVL_ICMS              : Variant;
    FVL_COFINS_ST         : Variant;

    FRegistroC820         : TRegistroC820List;
    FRegistroC830         : TRegistroC830List;
    FRegistroC810         : TRegistroC810List;
  public
    constructor Create; virtual;                         /// Create
    destructor Destroy; override;                        /// Destroy

    property COD_MOD      : String      read FCOD_MOD      write FCOD_MOD;
    property COD_SIT      : TACBrCodSit read FCOD_SIT      write FCOD_SIT;
    property NUM_CFE      : Integer     read FNUM_CFE      write FNUM_CFE;
    property DT_DOC       : TDateTime   read FDT_DOC       write FDT_DOC;
    property VL_CFE       : Variant     read FVL_CFE       write FVL_CFE;
    property VL_PIS       : Variant     read FVL_PIS       write FVL_PIS;
    property VL_COFINS    : Variant     read FVL_COFINS    write FVL_COFINS;
    property CNPJ_CPF     : String      read FCNPJ_CPF     write FCNPJ_CPF;
    property NR_SAT       : String      read FNR_SAT       write FNR_SAT;
    property CHV_CFE      : String      read FCHV_CFE      write FCHV_CFE;
    property VL_DESC      : Variant     read FVL_DESC      write FVL_DESC;
    property VL_MESC      : Variant     read FVL_MESC      write FVL_MESC;
    property VL_OUT_DA    : Variant     read FVL_OUT_DA    write FVL_OUT_DA;
    property VL_ICMS      : Variant     read FVL_ICMS      write FVL_ICMS;
    property VL_PIS_ST    : Variant     read FVL_PIS_ST    write FVL_PIS_ST;
    property VL_COFINS_ST : Variant     read FVL_COFINS_ST write FVL_COFINS_ST;

    property RegistroC810  : TRegistroC810List read FRegistroC810  write FRegistroC810;
    property RegistroC820  : TRegistroC820List read FRegistroC820  write FRegistroC820;
    property RegistroC830  : TRegistroC830List read FRegistroC830  write FRegistroC830;
  end;

  // Registro C800 - Lista
  TRegistroC800List = class(TObjectList)
  private
    function  GetItem(Index: Integer): TRegistroC800;
    procedure SetItem(Index: Integer; const Value: TRegistroC800);
  public
    function New: TRegistroC800;
    property Items[Index: Integer]: TRegistroC800 read GetItem write SetItem;
  end;

  //REGISTRO C810: DETALHAMENTO DO CUPOM FISCAL ELETRÔNICO (CÓDIGO 59) – PIS/PASEP E COFINS

  TRegistroC810 = class
  private
    fCFOP                 : string;
    fVL_ITEM              : Currency;
    fCOD_ITEM             : string;
    fCST_PIS              : TACBrSituacaoTribPIS;
    fVL_BC_PIS            : Variant;
    fALIQ_PIS             : Variant;
    fVL_PIS               : Variant;
    fCST_COFINS           : TACBrSituacaoTribCOFINS;
    fVL_BC_COFINS         : Variant;
    fALIQ_COFINS          : Variant;
    fVL_COFINS            : Variant;
    fCOD_CTA              : string;
  public
    property CFOP         : string                  read FCFOP         write FCFOP;
    property VL_ITEM      : Currency                read FVL_ITEM      write FVL_ITEM;
    property COD_ITEM     : string                  read FCOD_ITEM     write FCOD_ITEM;
    property CST_PIS      : TACBrSituacaoTribPIS    read FCST_PIS      write FCST_PIS;
    property VL_BC_PIS    : Variant                 read FVL_BC_PIS    write FVL_BC_PIS;
    property ALIQ_PIS     : Variant                 read FALIQ_PIS     write FALIQ_PIS;
    property VL_PIS       : Variant                 read FVL_PIS       write FVL_PIS;
    property CST_COFINS   : TACBrSituacaoTribCOFINS read FCST_COFINS   write FCST_COFINS;
    property VL_BC_COFINS : Variant                 read FVL_BC_COFINS write FVL_BC_COFINS;
    property ALIQ_COFINS  : Variant                 read FALIQ_COFINS  write FALIQ_COFINS;
    property VL_COFINS    : Variant                 read FVL_COFINS    write FVL_COFINS;
    property COD_CTA      : string                  read FCOD_CTA      write FCOD_CTA;
  end;

  // Registro C810 - Lista
  TRegistroC810List = class(TObjectList)
  private
    function  GetItem(Index: Integer): TRegistroC810;
    procedure SetItem(Index: Integer; const Value: TRegistroC810);
  public
    function New: TRegistroC810;
    property Items[Index: Integer]: TRegistroC810 read GetItem write SetItem;
  end;

 

[Isaque Pinheiro]

Gentileza postar o .PAS como anexo para analise.

Não está implementado no fonte para gerar esses registros, vou implementar assim que subir te aviso.

[Mega Online]

Segue anexo.

ACBrEPCBloco_C.pas

ACBrEPCBloco_C_Class.pas

[Juliomar Marchetti]

Bom dia Luciano!

comparei seus arquivos aos do SVN e estão iguais sem qualquer mudança!

 

Corrigindo a informação tem toda a razão só tem lá mas não possui as chamadas para gerar o mesmo!

será providenciada o mais breve possível

Editado 26 Agosto, 2015 por Juliomar Marchetti

[Mega Online]

Obrigado, vou aguardar, assim que vocês finalizarem a programação me avisem que tem um escritório de contabilidade me cobrando este bloco.

[Isaque Pinheiro]

Luciano, esses registros iremos implementa-los com calma, informe ao escritório que esses registros ainda não foram introduzidos no PVA (Validador) Contribuição, dessa forma não podem serem gerados nesse momento, senão dará erro.

Se mantenha atualizado com os fontes que assim que sair no PVA, subiremos no ACBr também.

Dúvidas sobre, lei no manual Guia Pratico

Editado 26 Agosto, 2015 por Isaque Pinheiro

[Mega Online]

Confirmei no PVA e realmente não tem a opção de lançar os registros C800 e C810. liguei para o Escritório e vamos entregar para eles os registros C860, C870... que já estão prontos no ACBr.

Muito obrigado.