Membros Pro ALTAMOGIANA Postado 10 Abril Membros Pro Compartilhar Postado 10 Abril Boa tarde, Estou com uma duvida na hora de validar essa tag "baseCalculo", utilizando o xml de exemplo do site do esocial, é informado a tag vrBcCpMensal com valor zerado, so que se eu alimento a tag assim no serviço aqui do esocial ele não cria a tag, ele da um exit: Como exemplo abaixo de um xml que foi retirado do site o esocial ele cria essa tag com o valor zerado Poderiam me ajudar em alguma sugestão sobre esse caso? os exemplos que eu teria, eu tenho valor na tag vrBcCp13, então deveria criar a tag de baseCalculo. Att. Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 10 Abril Consultores Compartilhar Postado 10 Abril O XML de exemplo que você baixou deve ter sido gerado na versão 1.1. Veja que a condição para sair somente acontece na 1.2. De acordo com o manual, está tag é obrigatória quando este grupo for gerado. Tópico movido para a área do SAC, para que o SLA de respostas seja considerado Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro ALTAMOGIANA Postado 11 Abril Autor Membros Pro Compartilhar Postado 11 Abril Então o xml foi retirado direto do site do esocial, nele ta v_S_01_02_00. Mas sempre que informar aqui valor zero ele vai cair nesse exit, nem vai criar a tag. Essa procedure aqui, é do pcesS2500, ele é comum a todos não é? A questão ta sendo sempre que informar ele como zero, acredito que se deixar nulo e informar o vrBcCp13 não deve criar a tag também? como essa validação é feito na pcesS2500 como que faria pra gerar essa tag igual foi comentado? Bom dia Renato!! A versão utilizada é a S01_02_00. A condição é vrBcCpMensal = 0 e vrBcCp13 > 0, ou seja, é obrigatório informar a tag baseCalculo. Partindo dessa analise o AcbrEsocial está com erro no pcesS2500.pas "TEvtProcTrab.GerarBaseCalculo(obj: TbaseCalculo);", pois o mesmo impede a geração da tag através da condição: if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) ) then exit; 13 horas atrás, Renato Rubinho disse: O XML de exemplo que você baixou deve ter sido gerado na versão 1.1. Veja que a condição para sair somente acontece na 1.2. De acordo com o manual, está tag é obrigatória quando este grupo for gerado. Tópico movido para a área do SAC, para que o SLA de respostas seja considerado Bom dia Renato!! A versão utilizada é a S01_02_00. A condição é vrBcCpMensal = 0 e vrBcCp13 > 0, ou seja, é obrigatório informar a tag baseCalculo. Partindo dessa analise o AcbrEsocial está com erro no pcesS2500.pas "TEvtProcTrab.GerarBaseCalculo(obj: TbaseCalculo);", pois o mesmo impede a geração da tag através da condição: if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) ) then exit; Link para o comentário Compartilhar em outros sites More sharing options...
Consultores EMBarbosa Postado 11 Abril Consultores Compartilhar Postado 11 Abril 3 horas atrás, ALTAMOGIANA disse: Partindo dessa analise o AcbrEsocial está com erro no pcesS2500.pas "TEvtProcTrab.GerarBaseCalculo(obj: TbaseCalculo);", pois o mesmo impede a geração da tag através da condição: if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) ) then exit; A questão é que o grupo "baseCalculo" não é obrigatório. Então precisamos de uma validação para não gerá-lo. E se mudarmos para o seguinte código? if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) and (obj.vrBcCp13 = 0)) then exit; O que acha dessa alternativa? 1 []'s Elton Profissionalize o ACBr na sua empresa, conheça o ACBr Pro. (15) 2105-0750 (15)99790-2976. Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas. Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh. Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro ALTAMOGIANA Postado 11 Abril Autor Membros Pro Compartilhar Postado 11 Abril 7 minutos atrás, EMBarbosa disse: A questão é que o grupo "baseCalculo" não é obrigatório. Então precisamos de uma validação para não gerá-lo. E se mudarmos para o seguinte código? if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) and (obj.vrBcCp13 = 0)) then exit; O que acha dessa alternativa? Bom dia Elton Excelente alternativa. Acredito que irá solucionar o problema o problema na geração do xml. Muito obrigado!!! Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 12 Abril Consultores Compartilhar Postado 12 Abril Em 11/04/2024 at 11:32, EMBarbosa disse: se mudarmos para o seguinte código? if ( (VersaoDF >= veS01_02_00) and (obj.vrBcCpMensal = 0) and (obj.vrBcCp13 = 0)) then exit; Criada TK-5332 para implementar a solução passada pelo Elton. Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Solution Renato Rubinho Postado 12 Abril Consultores Solution Compartilhar Postado 12 Abril Boa noite, Obrigado pela contribuição. Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-33248 Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado. 1 Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 17 Abril Consultores Compartilhar Postado 17 Abril Fechando. Para novas dúvidas, criar um novo tópico. Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts