Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado


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

  • Este tópico foi criado há 2483 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...
The popup will be closed in 10 segundos...