LeandroLJM

Bom Dia! Fiz a implementação na function LerFromIni no arquivo pcnEnvEventoNFe.pas para ler os Eventos do "itemPedido", fiz o teste pelo Delphi e carregou com sucesso. Favor analisar e subir para o SVN. Obrigado!

Olhei aqui nos fontes e vi que não está implementado essa parte de ler o INI, vou implementar e mando aqui para o pessoal atualizar o SVN. Obrigado!

Bom dia pessoal! Pesquisei no manual do acbrMonitorPlus, na internet e no fórum, mas não encontrei nenhum exemplo que pudesse me ajudar. Estou tentando gerar um evento de "Prorrogação de Industrialização" pelo AcbrMonitorPlus. Mas não estou conseguindo gerar o grupo "itemPedido", segue o exemplo abaixo. Tentei de várias maneiras mas não obtive sucesso. Vou anexar o xml e o ini de envio. Se puderem me ajudar agradeço... Muito obrigado e até mais! [itemPedido001001] numItem=001 qtdeItem=2730.560 PRORR.INI 1-ped-eve-soap.xml

Bom dia pessoal! Pesquisei no manual do acbrMonitorPlus, na internet e no fórum, mas não encontrei nenhum exemplo que pudesse me ajudar. Estou tentando gerar um evento de "Prorrogação de Industrialização" pelo AcbrMonitorPlus. Mas não estou conseguindo gerar o grupo "itemPedido", segue o exemplo abaixo. Tentei de várias maneiras mas não obtive sucesso. Vou anexar o xml e o ini de envio. Se puderem me ajudar agradeço... Muito obrigado e até mais! [itemPedido001001] numItem=001 qtdeItem=2730.560 1-ped-eve-soap.xml PRO_TESTE.txt

Boa tarde pessoal. Um novo caso aconteceu e tive que fazer uma atualização pcesS2230.pas para carregar o infoAfastamento.iniAfastamento.infoAtestado.Add Pode ocorrer do número de dias de afastamento ser indefinido (0), no caso do funcionário estar afastado pelo INSS e o motivo {codMotAfast} não ser [01]. Então o laço não terá o codCid e nem qtdDiasAfast, mas terá sempre nome do emitente. Mudei o laço para sFim := INIRec.ReadString('emitente' + IntToStrZero(I, 1), 'nmEmit', 'FIM'), assim sempre irá preencher. E também no afastamento por acidente de transito (TpAcidTransito) A conversão está SStrTotpTpAcidTransito(TGenericosString1_3) mudei para o TGenericosString1_4, para não gerar o tpacidTansito. tpTpAcidTransito = (tpatAtropelamento, tpatColisao, tpatOutros, tpatNao); Segue em anexo, Obrigado. pcesConversaoeSocial.pas

Bom dia! Estou gerando um pagamento de rendimento S-1210 de rescisão tpPgto=2 Conforme layout, o Preenchimento da perRef só deve ser feito quando tpPgto {1,5} O laço está no campo perRef, e o campo não pode ser preenchido nesse caso, então não está preenchendo as informações no XML, tirei da condição "if (sFim = 'FIM') or (Length(sFim) <= 0)" o OR e deixei Apenas if (sFim = 'FIM') Assim só gerar o campo perRef no .INI vazio que estará obedecendo todos os casos. Segue em anexo. Obrigado. pcesS1210.pas

Bom dia! Pessoal me deparei com uma situação e fiz uma mudança no pcesS1200.pas, vejam se é esse o processo que deve ser feito. Estou gerando um rendimento S-1200 para um autônomo vinculado ao TSV S-2300. Conforme layout, o Preenchimento da matrícula só deve ser feito para trabalhadores que estejam cadastrados no S-2200. O laço está no campo matricula, e o campo não pode ser preenchido nesse caso, então não está preenchendo as informações no XML, tirei da condição "if (sFim = 'FIM') or (Length(sFim) <= 0)" o OR e deixei Apenas if (sFim = 'FIM') Assim só gerar o campo matricula no .INI vazio que estará obedecendo todas os casos. Segue em anexo. Obrigado. pcesS1200.pas

Bom dia! Pessoal me deparei com uma situação e fiz uma mudança no pcesS2230.pas, vejam se é esse o processo que deve ser feito. Conforme layout, o Preenchimento do codCID é obrigatório se {codMotAfast} = [01], e estou lançando {codMotAfast} = [03]. O laço está no codCID, então não está preenchendo o XML, mudei para a condição para qtdDiasAfast. sSecao := 'infoAtestado' + IntToStrZero(I, 1); sFim := INIRec.ReadString(sSecao, 'qtdDiasAfast', 'FIM'); if (sFim = 'FIM') or (Length(sFim) <= 0) then break; with infoAfastamento.iniAfastamento.infoAtestado.Add do begin codCID := INIRec.ReadString(sSecao, 'codCID', ''); qtDiasAfast := strToInt(sFim); Segue em anexo. Obrigado. pcesS2230.pas

Boa tarde Pessoal! Saiu uma nota "numeroReciboFechamento" será alterado para "numeroProtocoloFechamento" no dia 02/07/2018. Fonte: http://sped.rfb.gov.br/pagina/show/2701

Bom dia! Se possível Analisar e enviar ao SVN. Coloquei um If para gerar a Tag "infoSimples", apenas se estiver configurado algum tipo de Regime Simples Nacional. procedure TeSocialEvento.GerarInfoSimples(obj: TinfoSimples); begin if obj.indSimples <> idsNenhum then begin Gerador.wGrupo('infoSimples'); Gerador.wCampo(tcStr, '', 'indSimples', 1, 1, 1, obj.indSimples); Gerador.wGrupo('/infoSimples'); end; end; Segue em Anexo. pcesGerador.pas

Boa Tarde Italo! Obrigado...

Bom dia Italo! Estava dando erro quando estava baixando o fontes, criei uma pasta nova, configurei o SVN e baixou perfeitamente. Obrigado!

Bom dia! Eu gero o ID por outro sistema e para fazer a leitura do retorno uso ele como parâmetro, estava usando funções externas para carregar o INI, mas agora existe a LerArqIni. Adicionei a linha abaixo nas classes em anexo do e-social e Reinf, se puder atualizar o svn. Id := INIRec.ReadString(sSecao, 'Id', ''); Obs: Na função GerarChave já está tratado se estiver carregado o ID a não gerar outro novamente. Obrigado! PCNeSocial.rar PCNReinf.rar

Bom dia Pessoal! O evento de S-2300 Início TSV, para Estagiários não é obrigatório informar o NIS/PIS, conforme o layout, fiz uma alteração se puderem commitar. Obrigado. if pTrabalhador.NisTrab <> EmptyStr then Gerador.wCampo(tcStr, '', 'nisTrab', 1, 11, 1, pTrabalhador.NisTrab); pcesGerador.pas

Bom dia pessoal, só para dar um esclarecimento, consegui autorizar usando o openSSL, então não coloquei o Wincript conforme orientação do Post acima, pelo visto deve funcionar com o Wincript, mas não consegui, meu Delphi deveria estar buscando DLL's de outro local. Coloquei as DDL's no caminho DLLs\OpenSSL\0.9.8.14.e configurei SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLLib := libOpenSSL; SSLXmlSignLib := xsXmlSec; e funcionou perfeitamente. Obrigado!