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!

Boa tarde, pessoal baixei a nova versão do Trunk_2 e estou tento um problema na assinatura do meu Evento, quando consulto o protocolo de envio ele me retorna a seguinte resposta: Assinatura do evento inválida. Ações Sugeridas: Verificar se houve alteração do evento após a assinatura. Verificar a validade da assinatura. Fiz o teste no Exemplo do acbr e lá retornou também retornou o erro, alguém mais está com esse problema? Comparei minha assinatura com o manual e aparentemente está ok. Segue os XML's, Mudei os dados originais, mas a estrutura é a mesma. Estou usando certificado A1 e essa configuração SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLLib := libCustom; SSLXmlSignLib := xsLibXml2; Obrigado! sit.xml env-lot.xml

Bom dia pessoal, eu uso o Delphi apenas para enviar o E-social, e gero o ID num outro sistema, para comparar a resposta com o envio fiz uma alteração na função de GerarChaveEsocial, caso o ID tenho 36 casas preenchidas ele não gera novamente. Segue em anexo o pcesGerador.pas. Poderia dar um commit com essa atualização? Obrigado... if (Length(Self.Id)=36) then begin Result := Self.Id; Exit; end; pcesGerador.pas

Obrigado Juuninho. Agora sei o motivo por não estar funcionando...

Bom dia Pessoal! Gostaria de saber se vocês já enviaram um lote com mais de 500 eventos, no meu caso, da erro que o servidor da receita demora para retornar a resposta... Será que teremos que enviar lotes com quantidades de eventos menores? Obrigado.

Luiz no ACBR_trunk2\Exemplos\ACBrDFe\ACBreSocial tem o exemplo...

Obrigado juuninho! vou dar uma pesquisada sobre o eSocialBX.

Bom dia pessoal! Estou com um dúvida, atualmente as consultas só podem ser feitas pelo número de protocolo correto? Aconteceu um caso nos meus testes. O servidor demorou pra responder e não conseguir pegar a resposta, mas o evento autorizou na receita. Quando fui tentar enviar meu evento novamente com a TAG "inclusao" ele retornou que o "ID" já estava cadastrado no período. Nesse caso não tenho o protocolo de autorização para consultar se o evento está autorizado na fazenda. Eu devo enviar com a TAG " alteracao" e pegar o novo número de protocolo ou existe uma forma que eu consiga pegar o número de protocolo pelo "ID". Obrigado!

Boa Tarde Pessoal! Tenho que consumir um servidor REST, estou usando os componentes nativos do RAD Stúdio Berlin. (RESTClient, RESTRequest, RESTResponse). Só que agora o servidor quer que envie os arquivos JSON por HTTPS assinado por um certificado digital, faz uns 15 dias que estou tentando e não obtive sucesso. Hoje faço dessa forma: (sem Assinatura) RESTClient1.BaseURL := 'https://hom.api.ms.gov.br/apifrig/classificadores?ie_frigorifico=99999999&cpf_classificador=99999999999&ie_empresa=999999999'; RESTRequest1.Method := TRESTRequestMethod.rmPOST; RESTRequest1.Body.Add(jObj.ToString,ContentTypeFromString('application/json')); RESTRequest1.Execute; Segue o exemplo em anexo em C# como deveria funcionar. Obrigado. ExeCsharp.rar

Boa tarde! Demostenes. Provavelmente a estrutura do seu XML está incorreta... Dê uma lida nesse link. Ressaltando que o projeto está em desenvolvimento. Fizeram atualizações e postaram, você pode jogar dentro do seu projeto para ir testando até que tenha uma versão no trunk2. Uma das coisa que mudaram na assinatura foi no ABCreSocialGerador.pas, colocaram mais parâmetros no ssl.assinar na function TeSocialEvento.Assinar(XMLEvento, NomeEvento: String): AnsiString; XMLAss := SSL.Assinar(ArqXML, 'eSocial', NomeEvento,'','','','id');

Bom dia! Conseguiu resolver Vinicuis? Pois estou com o mesmo problema... Segue meus xml's em anexo... Obrigado! Docs.rar