Anderson Mendonça

Pessoal, não consegui resolver esse problema. O cliente achou melhor fazer manual no site pra não correr risco de pagar multa. Obrigado pela atenção de todos.

Limpei tudo e continua dando o mesmo erro.

@Juliomar Marchetti, me perdoe, eu esqueci disso. Prometo prestar atenção das próximas vezes. Não estou conseguindo anexar o arquivo com o fonte. O que pode ser? Estou com 3% somente de arquivos anexados na configuração.

@Alisson Souza Pereira, estou enviando o método completo. Obrigado pelo retorno. Anexe o arquivo

Coloquei um break pra facilitar.

O que posso usar no lugar dos With?

Pessoal, desde já agradeço pelas respostas. Só para esclarecer, eu uso o meu gerador próprio, ou seja, criei um gerador onde copiei os eventos dos fontes ACBreSocial e adaptei à minha estrutura de base de dados. Daqui a pouco envio o algoritmo e uma tela com o print do break pra constatar que está pegando a data...

Estou fazendo isso: with duracao do begin if (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 50) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 60) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 65) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 70) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 75) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 90) or (DM.Qry_Funcionarioscan_cod_vinc_empreg.AsInteger = 95) then begin TpContr := tpTpContr(1); dtTerm := DM.Qry_Funcionarioscan_data_fim_contrato.AsDateTime; if DM.Qry_Funcionarioscan_em_experiencia.AsString = 'S' then begin TpContr := tpTpContr(1); if DM.Qry_Funcionarioscan_periodo_experiencia_prorrog.AsInteger > 0 then dtTerm := DM.Qry_Funcionarioscan_data_termino_experiencia.AsDateTime + DM.Qry_Funcionarioscan_periodo_experiencia_prorrog.AsInteger + 1 else dtTerm := DM.Qry_Funcionarioscan_data_termino_experiencia.AsDateTime; end; end else begin if DM.Qry_Funcionarioscan_adm_tipo_contrato.AsInteger = 2 then TpContr := PrazoDeterminado else if DM.Qry_Funcionarioscan_adm_tipo_contrato.AsInteger = 3 then TpContr := PrazoDeterminadoVincOcDeUmFato else TpContr := PrazoIndeterminado; if DM.Qry_Funcionarioscan_em_experiencia.AsString = 'S' then begin TpContr := PrazoDeterminado; if DM.Qry_Funcionarioscan_periodo_experiencia_prorrog.AsInteger > 0 then dtTerm := DM.Qry_Funcionarioscan_data_termino_experiencia.AsDateTime + DM.Qry_Funcionarioscan_periodo_experiencia_prorrog.AsInteger else EvtAltContratual.AltContratual.InfoContrato.Duracao.dtTerm := DM.Qry_Funcionarioscan_data_termino_experiencia.AsDateTime; end else begin dtTerm := DM.Qry_Funcionarioscan_data_termino_experiencia.AsDateTime; end; if DM.Qry_Funcionarioscan_adm_tipo_contrato.AsInteger = 3 then objDet := DM.Qry_Funcionarioscan_adm_obj_determ.AsString; end; end;

@Alisson Souza Pereira, obrigado por responder. Eu estou seguindo o caminho correto que você citou, mas ainda assim o XML está descartando a data que estou informando e está gerando apenas a tag <TpContr> no grupo <duracao>.

Alguém pode me ajudar com isso, por favor?

Caro @MSS, obrigado por responder. Como havia explicado, no programa estrou informando o grupo "duracao" e preencho as tags "tpContr" e "dtTerm", porém o arquivo é gerado apenas com a tag "tpContr". Segue XML gerado. 20240912113955-env-lot.xml

Olá, No ACBreSocial, evento S-2206, grupo <duracao>, estou informando TpContr := PrazoDeterminado e preenchendo a tag <dtTerm>, mas o arquivo está sendo gerado apenas com a tag <TpContr>. Consequentemente ocorre erro solicitando a tag <dtTerm>. Alguém pode me ajudar?

Pessoal, estou gerando o REINF e ocorre o erro abaixo:

Boa tarde, Estou com o mesmo problema. Até ontem conseguimos emitir as NFS-e. Hoje, logo cedo, o webservice da prefeitura de Contagem/MG nos retorna esse erro.