Joas Vilas Boas Fernandes

ok. SAT vou deixar pra os demais colegas. Não manjo muito de SAT.

Agora sim ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrSpedFiscal.pas

segue Arquivos alterados. ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrSpedFiscal.pas

if (Bloco_0.Registro0000.IND_ATIV = atIndustrial) then with New do begin REG_BLC := '0002'; QTD_REG_BLC := 1; end;

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...

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

tens razão, testei o arquivo com IND_ATIV do registro 0000 for igual a “1” sem o registro 0002 e validou.

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

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.

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

vou fazer o 0002 Classificação do Estabelecimento Industrial ou Equiparado a Industrial

Teria como disponibilizar pra que possa ir fazendo implementação no meu sistema?

c591 c195 e c597 tambem ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas

Estou revisando e verifiquei que a sequencia e hierarquia esta equivocada. Terminando posto novamente.

C430 E C480 vou fazendo

C380 tambem ACBrEFDBloco_C_Class.pas ACBrEFDBlocos.pas

Estou fazendo C330 tambem

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

c185 tambem

Vou pegar o c180 então

Boa tarde EMBarbosa, Poderia me dizer qual registros está trabalhando?. Eu posso ajudar a implementar alguns registros.

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.

Estranho essa orientação. Neste caso a contabilidade deveria te passar o embasamento Legal.

Eu utilizo assim: no procedimento ACBrTEFDCliSiTefObtemCampo verifico o campo passado por parâmetro: if (TipoCampo = 505) then AForm.Edit1.Text := IntToStr(iNParcelas);

Poderia me passar mais detalhes?