Ir para conteúdo
  • Cadastre-se

antonio_petrolina

Membros
  • Total de ítens

    7
  • Registro em

  • Última visita

antonio_petrolina's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputação

  1. Após fazer atualização do ACBr o envio da NFC-e passou a reclamar do QR-CODE difere do calculado.
  2. antonio_petrolina

    Elemento uTrib

    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.
  3. 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!
  4. Esse regra esta clara o problema é que usando o componente AcBrSPEDEFDPisCofins é gerado c001 e c010 pata cada c100
  5. 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,
  6. 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!
  7. 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;
×
×
  • 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.