Jump to content

dev botao

Alterações svn eSocial


EdmarFrazao
Go to solution Solved by EdmarFrazao,
  • Este tópico foi criado há 2310 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Para zerar a base em homologação tem que enviar o TpClassTrib   = 00

 

mudar na unit pcesConversaoeSocial

 

linha 423 acrecentar ct00 ( para limpar a base de teste tem que enviar o o ct00

  TpClassTrib = (ct00,ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09, ct10, ct11,
                 ct13, ct14, ct21, ct22, ct60, ct70, ct80, ct85, ct99);


linha 2197

result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '06', '07', '08', '09',
                               '10', '11', '13', '14', '21', '22', '60', '70',
                               '80', '85', '99'],
                              [ct00, ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09,
                               ct10, ct11, ct13, ct14, ct21, ct22, ct60, ct70,
                               ct80, ct85, ct99]);

pcesConversaoeSocial.pas

Link to comment
Share on other sites

pcesGerador


 linha 1715
Grupo opcional
// italo
  if pTransfDom.cpfSubstituido <> EmptyStr then
  Begin
    Gerador.wGrupo('transfDom');

    Gerador.wCampo(tcStr, '', 'cpfSubstituido', 11, 11, 1, pTransfDom.cpfSubstituido);
    Gerador.wCampo(tcStr, '', 'matricAnt',       0, 30, 0, pTransfDom.matricAnt);
    Gerador.wCampo(tcDat, '', 'dtTransf',       10, 10, 1, pTransfDom.dtTransf);

    Gerador.wGrupo('/transfDom');
  End;

pcesGerador.pas

com Estas alterações ja esta sendo enviado

Tabelas

e Registro 2200 Dados Iniciais do funcionário.

 

Link to comment
Share on other sites

1 hora atrás, EdmarFrazao disse:

Para zerar a base em homologação tem que enviar o TpClassTrib   = 00

 

mudar na unit pcesConversaoeSocial

 

linha 423 acrecentar ct00 ( para limpar a base de teste tem que enviar o o ct00

  TpClassTrib = (ct00,ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09, ct10, ct11,
                 ct13, ct14, ct21, ct22, ct60, ct70, ct80, ct85, ct99);


linha 2197

result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '06', '07', '08', '09',
                               '10', '11', '13', '14', '21', '22', '60', '70',
                               '80', '85', '99'],
                              [ct00, ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09,
                               ct10, ct11, ct13, ct14, ct21, ct22, ct60, ct70,
                               ct80, ct85, ct99]);

pcesConversaoeSocial.pas

Onde posso encontrar esta informação no manual ?

 

Link to comment
Share on other sites

@jair barreto

  1. Bem vindo ao forum por favor leia as Regras, você esta aproveitando de um post aberto e fazendo um gancho isto é contras as regras.
  2. Os componentes ACBr são feitos em pascal e compatível com Lazarus e Delphi.
  3. Temos o ACBrFramework que faz uma camada de interop para alguns componentes mais o eSocial não esta inclusivo.
  • Thanks 1

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2310 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.