Ir para conteúdo
  • Cadastre-se

Adilson

Membros
  • Total de ítens

    5
  • Registro em

  • Última visita

Posts postados por Adilson

  1. Anexa o arquivo que fica mais fácil para a galera fazer o merge.

    Para verificar os ajustes realizados localize: "Adilson Rodrigues" em cada arquivo...

    Fiz o merge das informações e subi para o SVN, obrigado pela colaboração.

    Nota: o CFOP deve ser do tipo interger mesmo não tipo string, essa mudança não foi acatada.

    como resolver a questão do CFOP que ao passar pelo componente é convertido em data??!!

    obrigado...

  2. Pessoal, segue os arquivos com os ajustes realizados, só conseguir gerar e validar os arquivos apos tais ajustes.

    Adicionei meu nome em cada ajuste realizado, baixe os arquivo e localize: Adilson Rodrigues

    - ao gravar os dados dos registros F500, F525 e F550 no arquivo txt as casas decimais não estavam de acordo o manual de integração;

    - os registros F525 e F550 não estavam sendo totalizados no registro 1900;

    - ao gravar os dados dos registro F500 e F550 no arquivo txt o valor do campo CFOP estava sendo convertido em data, forma que conseguir foi converter de integer para string, caso tenha outra sugestão favor postar aí.

    Grato,

    ACBrEPCBloco_F.pas

    ACBrEPCBloco_F_Class.pas

    ACBrSpedPisCofins.pas

  3. Ajuste realizado no arquivo ACBrSpedPisCofins na procedure TACBrSPEDPisCofins.WriteRegistroF001;

    este ajuste se faz necessário para contagem dos registro do bloco f525 para totalizar no bloco 9

    (*Adilson Rodrigues*)

    if Bloco_F.RegistroF525Count > 0 then

    begin

    with New do

    begin

    REG_BLC := 'F525';

    QTD_REG_BLC := Bloco_F.RegistroF525Count;

    end;

    end;

  4. Ajuste realizado no arquivo ACBrEPCBloco_F_Class na procedure TBloco_F.WriteRegistroF500(RegF010: TRegistroF010);

    este ajuste se faz necessário para gerar os registro do bloco f500 com as casas decimais conforme manual de integração da EFD Contribuições

    (*Adilson Rodrigues*)

    Add( LFill('F500') +

    LFill( VL_REC_CAIXA,0,2 ) +

    LFill( strCST_PIS ) +

    LFill( VL_DESC_PIS ,0,2 ) +

    DFill( VL_BC_PIS, 4 ) +

    DFill( ALIQ_PIS, 4 ) +

    LFill( VL_PIS,0,2 ) +

    LFill( strCST_COFINS ) +

    LFill( VL_DESC_COFINS ,0,2 ) +

    DFill( VL_BC_COFINS, 4 ) +

    DFill( ALIQ_COFINS, 4 ) +

    LFill( VL_COFINS,0,2 ) +

    LFill( COD_MOD ) +

    LFill( CFOP ) +

    LFill( COD_CTA ) +

    LFill( INFO_COMPL ) ) ;

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.