Ir para conteúdo
  • Cadastre-se

dev botao

ESOCIAL S-1000 ELEMENT nrinsc


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

Recommended Posts


COLEGAS


Ao enviar evento S-1000 (evento incial) está ausando um erro.

Os esquemas estão atualizados, e procurei proceder como 
o programa exemplo.

Em anexo tela com a msg de erro e XML gerado.

o numero da inscrição (nrinsc) foi passado para o componente
com 14 posições.

Por certo, dada minha limitada capacidade ainda não consegui 
sair deste erro. Então se algum colega ja passou por esta fase
possa indicar-me o caminho que há dias não estou conseguindo
encontrar.

Grato marcos

[email protected]
---------

          evtInfoEmpregador.ModoLancamento := mlInclusao ;
          evtInfoEmpregador.Sequencial     := 0 ; //ContaEvento ;

          If  F_MD_Folha.CDS_Filial.FieldByName('FIL_AMBIENTE').AsString = '1' then
                 evtInfoEmpregador.ideEvento.TpAmb := taProducao ;
          If  F_MD_Folha.CDS_Filial.FieldByName('FIL_AMBIENTE').AsString = '2' then
              evtInfoEmpregador.ideEvento.TpAmb := taProducaoRestrita ;

          evtInfoEmpregador.ideEvento.ProcEmi := TpProcEmi(0) ;
          evtInfoEmpregador.ideEvento.VerProc := '1.0' ;

          evtInfoEmpregador.ModoLancamento       := TModoLancamento(0);  // 0=inclusão

          evtInfoEmpregador.ideEmpregador.TpInsc := tiCNPJ ;
          If  F_MD_Folha.CDS_Filial.FieldByName('FIL_TPINSCESTAB').AsString = '2' then
              evtInfoEmpregador.ideEmpregador.TpInsc := tiCPF ;
          If  F_MD_Folha.CDS_Filial.FieldByName('FIL_TPINSCESTAB').AsString = '3' then
              evtInfoEmpregador.ideEmpregador.TpInsc := tiCAEPF ;

==>       evtInfoEmpregador.ideEmpregador.NrInsc := Trim(F_MD_Folha.CDS_Filial.FieldByName('FIL_NRINSCESTAB').AsString) ;

------------------
Para enviar, como neste fragmento.

    F_MD_Folha.ACBreSocial1.AssinarEventos;

    F_MD_Folha.ACBreSocial1.Enviar(TESocialGrupo(1)) ; //   TeSocialGrupo = (egIniciais = 1, egNaoPeriodicos = 2, egPeriodicos = 3);
----------------------
tb tentei assim :
    F_MD_Folha.ACBreSocial1.Eventos.GerarXMLs;     <<=== erro aqui 
    F_MD_Folha.ACBreSocial1.Eventos.SaveToFiles;

----------------------------
 

1368344300000002018062817031761772-S-1000-0.xml

ERRO_S-1000.png

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2118 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...