Jump to content

Joas Vilas Boas Fernandes

Membros
  • Content Count

    47
  • Joined

  • Last visited

Everything posted by Joas Vilas Boas Fernandes

  1. ok. SAT vou deixar pra os demais colegas. Não manjo muito de SAT.
  2. Agora sim ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrSpedFiscal.pas
  3. segue Arquivos alterados. ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrSpedFiscal.pas
  4. if (Bloco_0.Registro0000.IND_ATIV = atIndustrial) then with New do begin REG_BLC := '0002'; QTD_REG_BLC := 1; end;
  5. Check(not((FRegistro0000.IND_ATIV = atIndustrial) and (FRegistro0002.CLAS_ESTAB_IND = EmptyStr)), '(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!'); if Assigned(FRegistro0002) and( FRegistro0000.IND_ATIV = atIndustrial) then begin with FRegistro0002 do begin Add( LFill( '0002' ) + LFill( CLAS_ESTAB_IND ) ) ; end; end; uma idéia...
  6. Segue os arquivos corrigidos. Bloco 0 seguindo a hierarquia do registro 01 ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrEFDBloco_1.pas ACBrEFDBloco_1_Class.pas ACBrEFDBloco_B_Class.pas ACBrEFDBloco_B_Events.pas ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas ACBrEFDBloco_G.pas ACBrEFDBloco_G_Class.pas ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas ACBrEFDBlocos.pas ACBrSpedFiscal.pas
  7. tens razão, testei o arquivo com IND_ATIV do registro 0000 for igual a “1” sem o registro 0002 e validou.
  8. ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrEFDBloco_1.pas ACBrEFDBloco_1_Class.pas ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas ACBrEFDBloco_G_Class.pas ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas ACBrSpedFiscal.pas
  9. EMBarbosa, no bloco 0 tínhamos o registro 0001 e seus respectivos filhos Registro0005 / Registro0015 /Registro0150/ Registro0190/ Registro0200/ Registro0300/ Registro0400/ Registro0450/ Registro0460/ Registro0500/ Registro0600. No meu entendimento com a inclusão do registro 0002 estes passaram a ser filhos do registros 2. No Manual diz que dentro da hierarquia, a ordem de apresentação dos registros é sequencial e ascendente. Portanto alguns validações em outros blocos como bloco C por exemplo temos a linha: Check(FBloco_0.Registro0001.Registro0200.LocalizaRegistro(COD_ITEM), '(C-C425) ITENS: O código do item "%s" não existe no registro 0200!', [COD_ITEM]); ficará assim: Check(FBloco_0.Registro0002.Registro0200.LocalizaRegistro(COD_ITEM), '(C-C425) ITENS: O código do item "%s" não existe no registro 0200!', [COD_ITEM]); Peço que verifiquem se esta correto o meu entendimento.
  10. H030 Informações complementares do inventário das mercadorias sujeitas ao regime de substituiçãotributária ok 1250 Informações consolidadas de saldos de restituição, ressarcimento e complementação do ICMS ok 1255 Informações consolidadas de saldos de restituição, ressarcimento e complementação do ICMS pormotivo ok
  11. vou fazer o 0002 Classificação do Estabelecimento Industrial ou Equiparado a Industrial
  12. Teria como disponibilizar pra que possa ir fazendo implementação no meu sistema?
  13. c591 c195 e c597 tambem ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas
  14. Estou revisando e verifiquei que a sequencia e hierarquia esta equivocada. Terminando posto novamente.
  15. C380 tambem ACBrEFDBloco_C_Class.pas ACBrEFDBlocos.pas
  16. Foi colocado uma anotação {Nota Técnica 2019.001 EFD ICMS IPI} em cada alteração pra facilitar a conferencia. Mas acho que poderá ser retirada. ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas
  17. Boa tarde EMBarbosa, Poderia me dizer qual registros está trabalhando?. Eu posso ajudar a implementar alguns registros.
  18. Ai sim. A chamada venda presencial, mesmo o cliente sendo de outro estado a CFOP sera como se fosse de dentro do estado. Mas o contrario nunca vi. Caso consiga algum documento compartilhe.
  19. Estranho essa orientação. Neste caso a contabilidade deveria te passar o embasamento Legal.
  20. Eu utilizo assim: no procedimento ACBrTEFDCliSiTefObtemCampo verifico o campo passado por parâmetro: if (TipoCampo = 505) then AForm.Edit1.Text := IntToStr(iNParcelas);
×
×
  • Create New...