EdmarFrazao

Evite postar em topicos que não são sobre o assunto, deveria ser um tópico sobre S-1070 e Nos fontes atuais já estão contemplados os códigos veja unit pcesConversaoeSocial tpIndMatProc = (impTributaria, impAutorizacaoTrabalhadorMenor, impDispensaPCD, impDispensaAprendiz, impSegurancaoeSaudeTrabalhador, impConversaoLicencaSaudeAcidenteTrabalho, impFGTS,impContribuicaoSindical, impOutros);

Testes que fiz. 1)Enviei um lote INCLUSÃO com Remuneração(S-1200) de 10 funcionários com um Único Recibo para todos. 1a)Enviei um lote ALTERAÇÃO com Evento S-1200 individual do Funcionário 01, informando o Recibo. Resposta não é aceito a retificação etc etc ( dizem que para excluir terá que enviar o S-3000, não Testei) 2)Enviei um lote INDIVIDUAL com Remuneração(S-1200) de 10 funcionários, sendo o envio individual foi gerado 10 Recibos um de cada. 2a)Enviei um Lote ALTERAÇÃO com Evento S-1200 individual do Funcionário 01, informando o Recibo. Resposta. Aceito com sucesso. 2b)Envie um Lote EXCURSÃO do mesmo funcionário, Resposta. Aceito com sucesso. 3) Fiz o Mesmo com o S-2200 a)se enviar em lote não consigo retificar. b)Se enviar individualmente consigo alterar, excluir com retificação. No meu caso vou adotar envio individual, não por lote de até 50. Porque demora mais no envio, mas tenho opção de alteração, exclusão individualmente. Alguém que esta enviando tem algo a compartilhar.

ja esta com as mudanças dos dependentes, segue com a alteração da tpCumprParcialAviso pcesConversaoeSocial.pas

Linha 430 da unit pcesConversaoeSocial Tem dois novos tipos De: tpCumprParcialAviso = (cpaCumprimentoTotal, cpaCumprimentoParcialNovoEmprego, cpaCumprimentoParcialEmpregador) para: tpCumprParcialAviso = (cpaCumprimentoTotal, cpaCumprimentoParcialNovoEmprego, cpaCumprimentoParcialEmpregador, cpaOutrasCumprimentoParcial, cpaAvisoprevioIndenizadoNaoExigivel ); manual esocial pagina 111.

correção pcesS2299.pas

Segue correção. Declaração , Create, Destroy ftransfTit e checagem do campo opcional ftransfTit pcesS2299.pas

e também não esta aceitando preencher os campos da tag transfTit atribuindo no exemplo: EvtDeslig.InfoDeslig.transfTit.cpfSubstituto:= '74913476653'; EvtDeslig.InfoDeslig.transfTit.dtNascto:=now; Se tentar alimentar as variáveis da erro também Estes campos são opcionais. Acho que na linha 392 do procedimento (pcesS2299) dever ser: if obj.transfTit <> nil then GerarTransfTit(obj.transfTit); assim gera sem erro. mas precisa corrigir o erro quando é atribuido valores aos campos, não consegui achar parece que não foi iniciada a variável transfTit e seus atributos

Usando o exemplo esocial , quando gera o evento S-2299 da um erro interno no componente, e não gera o evento, nem envia o erro esta no procedimento pcesS2299 linha 392 GerarTransfTit este tag se não tiver conteudo é opcional

testando

ok envio e retorno ok protocolo recibo ocorrencias. mensagems Testes com os Eventos S1000 S1005 S1010 S1020 S1030 S1050 Inclusive com o SEQUENCIAL implementado Obrigado a todos pelo excelente trabalho.

ok resolveu o retorno. Acho que o Recibo deveria ter uma hierarquia acima. veja os dois xml que postei o 2o o recibo esta na mesma hierarquia de "<processamento>"

mas o problema não e so esta. todos os objetos abaixo desta não aceita ter informações é como se não tivessem sido definidos. RetEventos.Items.Recepcao ( todos) RetEventos.Items.Processamento(todos) RetEventos.Items.Recibo.nrRecibo(todos)

se mudar na unit de: if Leitor.rExtrai(5, 'eSocial') <> '' then para if Leitor.rExtrai(4, 'eSocial') <> '' then passar a ler a tab mas ainda da erro , RetEventos.Items.Recepcao ( todos) RetEventos.Items.Processamento(todos) RetEventos.Items.Recibo.nrRecibo(todos) todos estão com nil, acho que a classe não foi declarada(não tenho certeza)

esta unit da erro na leitura do retorno também erro apartir da linha RetEventos.Items.evtDupl := StrToBool(FLeitor.rAtributo('evtDupl=', 'evento')); if Leitor.rExtrai(4, 'retornoEvento') <> '' then e não pega os protocolos ( veja exemplo acima de xml de retorno)

Este outro não tem ocorrências mas o recibo tem que ser lido, creio que o recibo tem que esta em um propriedade separada 20180206131240-sit.xml

Segue em anexo. Obrigado. 20180206113150-sit.xml

Acho que as propriedade não foram atribuídas todas estão com nil recepção esta nil processamento esta nil recibo esta nil

na unit pcesRetConsultaLote quando a retorno com ocorrencias da um erro. RetEventos.Add; RetEventos.Items.IDEvento := FLeitor.rAtributo('Id=', 'evento'); ate aqui funciona. quando vai adicionar qualquer evento da erro, creio que o item "TRetEventosCollectionItem" se tentar acessar qualquer propriedade de "TRetEventosCollectionItem" da erro. if leitor.rExtrai(4, 'recepcao') <> '' then begin { RetEventos.Items.Recepcao.tpAmb := eSStrTotpAmb(Ok, Leitor.rCampo(tcStr, 'tpAmb')); RetEventos.Items.Recepcao.dhRecepcao := Leitor.rCampo(tcDatHor, 'dhRecepcao', ''); RetEventos.Items.Recepcao.versaoAplicRecepcao := Leitor.rCampo(tcStr, 'versaoAppRecepcao'); RetEventos.Items.Recepcao.Protocolo := Leitor.rCampo(tcStr, 'protocoloEnvioLote'); } end;

o Retorno das ocorrências do Envio e da resposta da Consulta foram removidos. Foi feita uma nova implementação , mas não terminaram a resposta das: Ocorrências do envio do Evento, Ocorrências do Retorno da Consulta do Protocolo

Fui mudado a maneira de retorno das msg e ocorrência no componente. Não esta retornado os valores nas propriedades correspondente de Envio e Retorno. No exemplo Acbr, foi simplesmente comentado os retorno. Agora o componente não funciona, pois não temos os retornos. o Exemplo acbr esta assim todos os retornos comentados, so retorno o xml, as propriedades do componente não são preenchidas. ps. vou ter que passar a fazer backup do esocial antes de atualizar os fontes, porque agora não tenho como gerar mais o esocial. MemoResp.Lines.Text := ACBreSocial1.WebServices.ConsultaLote.RetWS; (* with MemoDados.Lines do begin Add(''); Add('Código Retorno: ' + IntToStr(ACBreSocial1.WebServices.ConsultaLote.RetProcLote.Status)); Add('Mensagem: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote. Descricao); if ACBreSocial1.WebServices.ConsultaLote.RetProcLote.Status in ([201, 202]) then begin Add('ideEmpregador'); Add(' - TpInsc: ' + IntToStr(ord(ACBreSocial1.WebServices.ConsultaLote.RetProcLote. IdeEmpregador.TpInsc))); Add(' - NrInsc: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote. IdeEmpregador.NrInsc); Add('ideTransmissor'); Add(' - TpInsc: ' + eSTpInscricaoToStr( ACBreSocial1.WebServices.ConsultaLote.RetProcLote.IdeTransmissor.TpInsc)); Add(' - NrInsc: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote. IdeTransmissor.NrInsc); Add('dadosRecepcaoLote'); Add(' - dhRecepcao: ' + DateTimeToStr (ACBreSocial1.WebServices.ConsultaLote.RetProcLote.dadosRecLote. dhRecepcao)); Add(' - versaoAplicativoRecepcao: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote.dadosRecLote. versaoAplicRecepcao); Add(' - protocoloEnvio: ' + ACBreSocial1.WebServices.ConsultaLote. RetProcLote.dadosRecLote.Protocolo); for Index := 0 to ACBreSocial1.WebServices.ConsultaLote.RetProcLote. retEventos.Count - 1 do begin retEvento := ACBreSocial1.WebServices.ConsultaLote.RetProcLote. retEventos.Items[Index]; if retEvento.Processamento.cdResposta <> EmptyStr then begin Add('Processamento'); Add(' - cdResposta: ' + retEvento.Processamento.cdResposta); Add(' - descResposta: ' + retEvento.Processamento.descResposta); Add(' - versaoAplicProcLote: ' + retEvento.Processamento.versaoAplicProcLote); Add(' - dhProcessamento: ' + DateTimeToStr(retEvento.Processamento.dhProcessamento)); Add('Recibo'); Add(' - nrRecibo: ' + retEvento.Recibo.FnrRecibo); Add(' - hash: ' + retEvento.Recibo.Fhash); end; if retEvento.Processamento.Ocorrencias.Count > 0 then begin Add('Ocorrencias'); for J := 0 to retEvento.Processamento.Ocorrencias.Count - 1 do begin Add(' Ocorrencia ' + IntToStr(J)); Add(' Código:' + IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Codigo)); Add(' Descrição: ' + retEvento.Processamento.Ocorrencias.Items [J].Descricao); Add(' Tipo: ' + IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Tipo)); Add(' Localização:' + retEvento.Processamento.Ocorrencias.Items [J].Localizacao); end; end; end; end else begin for Index := 0 to ACBreSocial1.WebServices.ConsultaLote.RetProcLote. retEventos.Count - 1 do begin retEvento := ACBreSocial1.WebServices.ConsultaLote.RetProcLote. retEventos.Items[Index]; Add('Ocorrencias'); for J := 0 to retEvento.Processamento.Ocorrencias.Count - 1 do begin Add(' Ocorrencia ' + IntToStr(J)); Add(' Código:' + IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Codigo)); Add(' Descrição: ' + retEvento.Processamento.Ocorrencias.Items[J] .Descricao); Add(' Tipo: ' + IntToStr(retEvento.Processamento.Ocorrencias.Items [J].Tipo)); Add(' Localização:' + retEvento.Processamento.Ocorrencias.Items[J] .Localizacao); end; end; end; end; *)

É isto que estou propondo que seja alterado, A função GerarChaveEsocial , esta recebendo em todos os métodos "zero" e não o .id de cada evento. Seria uma alteração em todas as units que chamam a função GerarChaveEsocial onde esta passando "zero" no sequencial passar a propriedade "self.id" , alias a alteração teria que ser feita em todos as units do evento pces1000 pces1005 ... ate a última.

Todos os Eventos tem a property .id que não esta sendo utilizada. se na geração do XML o ID grupol fosse usando a propriedade id exemplo: evtAdmissao.id quando na unit pces2200 GerarCabecalho('evtAdmissao'); Mudar de: ( esta sendo passado "o") deveria se passado o id Gerador.wGrupo('evtAdmissao Id="' + GerarChaveEsocial(now, self.ideEmpregador.NrInsc, 0) + '"'); Para Gerador.wGrupo('evtAdmissao Id="' + GerarChaveEsocial(now, self.ideEmpregador.NrInsc, strtoint(self.Id)) + '"'); Acho que em todos os geraxml deveria usar .id para compor o id do Evento, assim quem desejasse teria um ID do Evento personalizado

Esta pagina e sobre o Registro S1000. o S2200 estou conseguindo retificar sim. e não achei ainda no manual que não pode retificar. Passei a Enviar o S2200 individualmente por funcionários , com isto consigo retificar-los

Gentileza fazer perguntas em tópicos corretos. este tópico e "Assinatura s-1000 esocial" ps. Eu estou enviando o S1030 e um único Arquivo. "

Onde tem este manual?