antonio_petrolina
Membros-
Total de ítens
7 -
Registro em
-
Última visita
antonio_petrolina's Achievements
-
-
Após fazer atualização do ACBr a validação do schemas passou a criticar a tag uTrib, alguem tem ideia do que se trata.
-
Erro nos registro C001 e C010 SpedPISCOFINS Continua?
um tópico no fórum postou antonio_petrolina ACBrSPEDPisCofins
Pessoal estou com problema no totalizador dos registros C001 e C010 estão gerando 1 para cada C100 e os totalizadores C0999 não fecha com os registro C, já foi ajustado o componente? Grato! -
Esse regra esta clara o problema é que usando o componente AcBrSPEDEFDPisCofins é gerado c001 e c010 pata cada c100
-
Pessoal para cada registro C100 há um C001 e C010 com isso surge critica de duplicidade CNPJ C010, já olhei a rotina e realmente como está implementada casa essa duplicidade. O prazo será prorrogado, alguem tem ideia? Grato,
-
ACBrSPEDPisCofins - Exemplo e testes no componente
antonio_petrolina replied to Fernando Amado's tópico in ACBrSPEDPisCofins
Pessoal estou com problema no totalizador dos registros C001 e C010 estão gerando 1 para cada C100 e os totalizadores C0999 não fecha com os registro C, já foi ajustado o componente? Grato! -
Pessoal a rotina abaixo está gravando C001 e C010 para cada C100, fiz este ajuste apenas para testar, porém, a contagem dos registro C0999 ficou errado. procedure TBloco_C.WriteRegistroC001 ; begin if Assigned(FRegistroC001) then begin if (RegistroC990.QTD_LIN_C = 0) then // Já gravou o C001 ? begin with FRegistroC001 do begin Add( LFill( 'C001' ) + LFill( Integer(IND_MOV), 0 ) ) ; end; end else if FRegistroC001.IND_MOV = imComDados then begin WriteRegistroC010(FRegistroC001) ; end; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; end; procedure TBloco_C.WriteRegistroC010(RegC001: TRegistroC001) ; var strIND_ESCRI: string; intFor: Integer; begin if Assigned(RegC001.RegistroC010) then begin for intFor := 0 to RegC001.RegistroC010.Count - 1 do begin with RegC001.RegistroC010.Items[intFor] do begin if (RegistroC990.QTD_LIN_C = 1) then // Já gravou o C010 ? begin Check(funChecaCNPJ(CNPJ), '(0-010) ESTABELECIMENTO: O CNPJ "%s" digitado é inválido!', [CNPJ]); Add( LFill('C010') + LFill(CNPJ, 14)+ LFill(Integer(IND_ESCRI), 1) ) ; end; end; // Registros FILHOS if (RegistroC990.QTD_LIN_C > 1) then // Já gravou o C010 ? begin WriteRegistroC100( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC180( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC190( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC380( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC395( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC490( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC500( RegC001.RegistroC010.Items[intFor] ); WriteRegistroC600( RegC001.RegistroC010.Items[intFor] ); end; // RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; // Variavél para armazenar a quantidade de registro do tipo. FRegistroC010Count := FRegistroC010Count + RegC001.RegistroC010.Count; end; end;