EdmarFrazao

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?

Bem em homologação se enviar o S2200 individualmente, consigo retifica-lo e Exclui-lo. Se enviar em Lote não consigo retifica-los nem exclui-lo.

Em cada evento tem o Registro/campo tpAmb que esta declarado na pcesConversaoeSocial TpTpAmb = (taProducao, taProducaoRestritaDadosReais, taProducaoRestritaDadosFicticios); Hoje na versão 2.4.1 aceita somente TpTpAmb = (taProducao, taProducaoRestritaDadosReais,); A ACBreSocial.Configuracoes.WebServices.Ambiente é outra configuração que esta declarada pncconversao e aceita. AACBreSocial.Configuracoes.WebServices.Ambiente := pcnconversao.taProducao AACBreSocial.Configuracoes.WebServices.Ambiente := pcnconversao.taHomologacao;

Sim na versão 2.4.1 tem somente dois tipos. Estou usando por enquanto a 2. Acho para compatibilidade deveria ficar De: TpTpAmb = (taProducao, taProducaoRestritaDadosReais, taProducaoRestritaDadosFicticios); Para: TpTpAmb = (taProducao, taProducaoRestritaDadosReais); assim não atrapalharia quem esta usando somente os dois primeiros tipos.

Estou fazendo testes de envio do Evento 2200 Se enviar em Lote por exemplo mais de um funcionário, não consigo retificar mesmo passando o no do Recibo. Se enviar funcionário a funcionário individualmente, consigo retificar alterar e excluir passando o no do Recibo. Sera que não poderemos enviar Lote de Funcionários e sim Um a Um?

Tive este problema no 2300 estava passando campos a mais para Contribuinte individual, por exemplo passando CTPS que não dever ser informada, informações complentares.

Unit pcesGerador Quando DEBUG esta com a pasta 'Docs' fixa nos fontes não seguindo a configuração:Configuracoes.Arquivos.PathSalvar Linha 251 Mudar de: // SaveToFile(IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + 'Docs\' + NomeEvento); Para: SaveToFile(IncludeTrailingPathDelimiter(Configuracoes.Arquivos.PathSalvar) + NomeEvento);