Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

eduardoengcosta

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

4 Neutral

About eduardoengcosta

  • Rank
    Novato

Recent Profile Visitors

406 profile views
  1. Desculpe Juliomar, postando novamente o arquivo. ACBrEFDBloco_C_Class.pas
  2. Boa tarde Quando não é passado nada para a o campo VL_UNIT_ICMS_ST_CONV_COMPL o mesmo retorna o valor "0,00". Segundo o guia prático da EFD e não pode ser "0" e sim vazio. Fiz a modificação a seguir. procedure TBloco_C.WriteRegistroC181(RegC100: TRegistroC100; RegC170: TRegistroC170); var intFor: integer; begin if Assigned( RegC170.RegistroC181 ) then begin if RegC170.RegistroC181.Count > 0 then begin if (RegC100.IND_OPER = tpSaidaPrestacao) or (FBloco_0.Registro0000.IND_PERFIL in [pfPerfilC]) then Check(False, 'O Regi
  3. Bom dia a todos. Foi publicado ontem 11/02/2021. Alteração no prazo de implantação Homologação: 01/11/2021 - Publicação: 30/11/2021 NT2020.007_v1.10 - Evento_Ator_NFe_Transportador.pdf
  4. Bom dia O Registro C185 está faltando a totalização no registro 9900. Está faltando o código na unit ACBrSpedFiscal: if Bloco_C.RegistroC185Count > 0 then begin with New do begin REG_BLC := 'C185'; QTD_REG_BLC := Bloco_C.RegistroC185Count; end; end; ACBrSpedFiscal.pas
  5. Boa Tarde Juliana. Estou anexando os arquivos que foram alterados para análise. Att. ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas ACBrEFDBlocos.pas
  6. Boa Tarde, Alguma solução para o problema citado?
  7. Me desculpe, não foi a minha intenção. Mas alguém poderia me ajudar nesta situação?
  8. BOM DIA. É POSSIVEL COOLOCAR NO DANFE A QTD TRIB E A UNIDADE, MESMO SENDO IGUAIS?
  9. Encontrei um erro em: procedure Tcomb.Assign(Source: TPersistent); begin if Source is Tcomb then begin cProdANP := Tcomb(Source).cProdANP; descANP := Tcomb(Source).descANP; pMixGN := Tcomb(Source).pMixGN; CODIF := Tcomb(Source).CODIF; qTemp := Tcomb(Source).qTemp; UFcons := Tcomb(Source).UFcons; CIDE.Assign(Tcomb(Source).CIDE); ICMS.Assign(Tcomb(Source).ICMS); ICMSInter.Assign(Tcomb(Source).ICMSInter); ICMSCons.Assign(Tcomb(Source).ICMSCons); encerrante.Assign(Tcomb(Source).encerrante); end else inhe
  10. Na Unit pcnNfe encontrei um erro na seguinte procedure. procedure TProd.Assign(Source: TPersistent); begin if Source is TProd then begin cProd := TProd(Source).cProd; nItem := TProd(Source).nItem; cEAN := TProd(Source).cEAN; xProd := TProd(Source).xProd; NCM := TProd(Source).NCM; NVE.Assign(TProd(Source).NVE); EXTIPI := TProd(Source).EXTIPI; //genero := TProd(Source).genero; CFOP := TProd(Source).CFOP; uCom := TProd(Source).uCom; qCom := TProd(Source).qCom; vUnCom := TProd(Source).vUnCom; vProd := TPro
×
×
  • Create New...