-
Total de ítens
228 -
Registro em
-
Última visita
-
Days Won
3
Sandro Felipe Adad last won the day on 12 Setembro 2023
Sandro Felipe Adad had the most liked content!
Últimos Visitantes
1.952 visualizações
Sandro Felipe Adad's Achievements
-
Problemas na geração de BPE - ACBrBPeXmlWriter.pas
um tópico no fórum postou Sandro Felipe Adad ACBrBPe
1) responsavel tecnico - tag invalida function TBPeXmlWriter.Gerar_InfRespTec: TACBrXmlNode; begin Result := nil; if (BPe.infRespTec.CNPJ <> '') then begin Result := FDocument.CreateElement('infRespTec'); corrigido - estava errado aqui 2) não gerava passageiros: if BPe.infPassagem.infPassageiro.xNome <> '' then Result.AppendChild(Gerar_InfPassageiro);//Gerar_InfPassageiro;ACBrBPeXmlWriter.pas -
Erro ocorre na function ServicoToLayOut. "Valor string inválido para TLayOutMDFe: URL-QRCode". Utilizando qualquer tipo de CTe (versão 4) e com UFs diferentes. Apaguei toda minha pasta trunk e ja reinstalei o ACBR mas problema persiste ainda. Vi que no forum do ACBRDFE alguem reportou problema similar.
-
Correção de erros e tipos de dados. tpSimFacultativo - novo tipo. (pcesConversaoeSocial.pas) usado em TInfoVlr: (unit pcesS2500;) FindenSD: tpSimFacultativo; FindenAbono: tpSimFacultativo; correção em unit pcesS5503; function TevtFGTSProcTrab.LerXML: boolean; // Capturar a versão do evento s := Copy(FXML, Pos('/evt/evtFGTSProcTrab/', FXML)+21, 16); //ajustado e ... while leitor.rExtrai(2, 'infoTrabFGTS', '', i + 1) <> '' do begin with infoTrabFGTS do begin New; //incluído Items[i].Fmatricula := leitor.rCampo(tcStr, 'matricula'); Items[i].FcodCateg := leitor.rCampo(tcInt, 'codCateg'); Items[i].FcategOrig := leitor.rCampo(tcInt, 'categOrig'); procedure TEvtProcTrab.GerarInfoVlr(Obj: TInfoVlr); begin Gerador.wGrupo('infoVlr'); Gerador.wCampo(tcStr, '', 'compIni', 7, 7, 1, obj.compIni); Gerador.wCampo(tcStr, '', 'compFim', 7, 7, 1, obj.compFim); if VersaoDF > veS01_01_00 then begin ... Gerador.wCampo(tcStr, '', 'indenSD', 0, 1, 0, eSSimFacultativoToStr(obj.indenSD)); Gerador.wCampo(tcStr, '', 'indenAbono', 0, 1, 0, eSSimFacultativoToStr(obj.indenAbono));
-
Ajustes efetuados nos eventos S2500 e Retorno S5503.(contribuição)
um tópico no fórum postou Sandro Felipe Adad ACBreSocial
Em anexo para sua avaliação. pcesConversaoeSocial.pas pcesS5503.pas pcesS2500.pas -
experimente comentar a linha que acusa o erro, o código neste evento é so para diminuir a tela do navegador(zoom)
-
Mas no teu exemplo voce não utiliza a API oficial (https://www.receitaws.com.br/v1/cnpj) e como ficaria a questão do captcha que é o assunto deste tópico?
-
Utiliza a api free oficial do governo? caso positivo poderia compartilhar a sua solução?
-
Sim, podemos alterar no fonte para o windows criar a chave se necessário. Linha 85 do ACBrConsultaCNPJNavegar.pas, alterar para True: Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True);
-
Envio de nfse com ValorIssRetido Abrasf 2.03
Sandro Felipe Adad replied to Junior Salzano's tópico in ACBrNFSe
Ítalo é realmente necessária a criação da tag SituacaoEspecial para a retenção de órgão público. Foi necessário alterar o schema também, apesar do schema fornecido por eles nao ter a definição do campo, mas no manual consta. Tag criada no tomador: <IncentivoFiscal> Segue arquivo de schema onde inclui o tipo tsSituacaoEspecial. Anexei também o manual deles onde consta essa nova tag, caso deseje incorporar no ACBRNFSeX. Segue a contribuição das alterações que realizei nos fontes do ACBR para sua avaliação, porem feitas apenas no componente ACBRNFse, não utilizo ainda o ACBRNFseX neste município. *** Dúvida, como faço para parametrizar http ou https no soapAction no arquivo ISSJoinville.ini? tive que alternar a informação no .ini, ora pra homologação começando por (http) e produção com (https) Ex: Homologação [SoapAction] Recepcionar=http://nfemwshomologacao.pmjlle.joinville.sc.gov.br/EnviarLoteRpsEnvio ConsSit=http://nfemwshomologacao.pmjlle.joinville.sc.gov.br/ConsultarLoteRpsEnvio Ex: Produção [SoapAction] Recepcionar=https://%NomeURL_HP%.joinville.sc.gov.br/EnviarLoteRpsEnvio ConsSit=https://%NomeURL_HP%.joinville.sc.gov.br/ConsultarLoteRpsEnvio Coloquei também os arquivos enviados com sucesso. pnfsConversao.pas pnfsNFSeW_ABRASFv2.pas pnfsNFSe.pas PMJ - NF-em - Webservices - Manual - v14.pdf nfse_v2-04.xsd 521791-rec.xml 521791-rec-soap.xml 521791-env-lot.xml 521791-env-lot-soap.xml NF-em Impressão.pdf -
A solução é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.
-
Sim é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.
-
1) Pode excluir o uses da unit Vcl.Edge. 2) Tem de recompilar todo o ACBR ou o componente ACBRTCP que é onde esta incluso o ACBRConsultaCNPJ
-
ConsultaCNPJIE.dprojACBrConsultaCNPJNavegar.dfmConsultaCNPJIE.dprojConsultaCNPJIE.dprojACBrConsultaCNPJNavegar.pasuConsultaCNPJ.dfmACBrConsultaCNPJ.pasConsultaCNPJIE.dpruConsultaCNPJ.pasACBrConsultaCNPJNavegar.dfmConsultaCNPJIE.dproj Ahh, tem de recompilar o componente substituindo essa unit na pasta nos fontes do ACBR: ..trunk2\Fontes\ACBrTCP Antonio Gomes criou um evento no componente para tratar a solicitação do captcha. if Assigned(FOnSolicitarCaptcha) then begin FOnSolicitarCaptcha(Html); RespHTTP.Text:= Html; ModoAntigo := False; end; ACBrConsultaCNPJ.pas
-
Orlando, consegue testar o exemplo que postei logo acima. Utilizo a API oficial: https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp Eu testei a consulta pela NFe, porem dependendo da UF não é possivel a sua utilização, pois não são disponibilizados dados para consulta.