Ianice Lanziloti

Tenho a aplicação principal e algumas BPL'S que são chamaras em runtime contendo os módulos do sistema. Por estar carregando o modulo pckNfe.bpl em Runtime o aplicativo não executa a sessão "initialization", com isso ele não instancia o LibXML2CS Uma forma solucionar o problema, seria adicionar na aplicação principal a dependência do ACBR, oque não seria interessante. A outra forma que eu encontrei e fazer isso sobre demanda, conforme a unit que enviei em anexo

Olá Boa tarde, Após atualizar meu ACBr passei a ter A.V. ao assinar o arquivo xml Fiz o Debug e percebi que o erro ocorria na ACBrLibXml2.pas e chamada da função function InitLibXml2Interface: Boolean; begin Result := LibXml2Loaded; if LibXml2Loaded then Exit; LibXML2CS.Enter; try {$IfDef ANDROID} if (LibXml2Path = '') then // Try to load from "./assets/internal/" first LibXml2Path := TPath.GetDocumentsPath; Result := LoadLibraryLibXml2; if (not Result) then // Try System Default Lib begin LibXml2Path := ''; Result := LoadLibraryLibXml2; end; {$Else} Result := LoadLibraryLibXml2; {$EndIf} if Not Result then begin UnloadLibraryLibXml2; Exit; end; LoadLibXML2EntryPoints; // LibXML2 initialization if Assigned(_xmlInitCharEncodingHandlers) then _xmlInitCharEncodingHandlers; if Assigned(_xmlInitGlobals) then _xmlInitGlobals; if Assigned(_xmlInitThreads) then _xmlInitThreads; if Assigned(_xmlInitParser) then _xmlInitParser; LibXml2Loaded := True; finally LibXML2CS.Leave; end; end; Mais precisamente na linha LibXML2CS.Enter; Utilizo o acbr e modulos do sistema em runtime e assim a instrução intialization não é executada initialization LibXML2CS := TCriticalSection.Create; LibXml2LoadVerbose := False; LibXml2Loaded := False; LibXml2UnavailableFunctions := ''; LibXml2Path := ''; LibXml2Handle := 0; LibXml2File := ''; Portanto para corrigir esse problema fiz alguns ajustes na Unit, gostaria que analisassem e se possível subir uma atualização igual o semelhante a proposta Obrigado ACBrLibXml2.pas

1-rec-soap.xml Boa noite, Resolvi o problema alterando as configurações para : SSLLib := LibCustom; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpIndy; SSLXmlSignLib := xsMsXml; Obrigado

Boa tarde, Estou tendo um problema na emissão de notas fiscais com uma quantidade relativamente grande de itens. Um cliente reclamou que após a ultima atualização ele está tendo problema ao enviar uma nota com 30 itens ou mais, e está tendo que dividir a nota em 2 ou até mesmo em 3 pensei que poderia ser algo do sistema, então peguei o xml dele e coloquei no acbrnfedemo e verifiquei que o problema se repete gostaria de saber se poderiam me ajudar Segue o arquivo xml(sem as informações do emitente) e a foto com a mensagem de erro nfe.xml

Boa tarde, Fiz a mudança e funcionou. Obrigado!

Boa tarde, Fiz o Debug, o erro ocorre na função GetCNPJFromExtensions, linha 238 da Unit AcBrDFeCapicom 236 while (Result = '') and (i < Cert.Extensions.Count) do 237 begin 238 AExtension := IInterface(Cert.Extensions.Item[i]) as IExtension; 238 Propriedades := String(AExtension.EncodedData.Format(True)); Obrigado Lembrando que na versão anterior do trunk2 e a versão atual com certificando A1 funciona corretamente

Bom dia, Fazendo os testes percebi que ao selecionar o certificado, o AcBr consegue ler as informações de Data de validade, Numero de série, Razão Social, e certificadora. Mas não consegue ler o CNPJ

Bom dia, Basta clicar no sbtnGetCert, ele abre a tela para selecionar o certificado e após selecionar ele retorna o erro "parâmetro incorreto". Estamos utilizando o capicom

Bom dia Estou com um problema ao carregar o certificado A3 - G5 function TNota.SelecionarCertificado: String; begin Result := oNFe.SSL.SelecionarCertificado; end; Retorna a mensagem de erro "Parâmetro incorreto" o erro começou a ocorrer após a atualização do AcBr, pesquisei no forum e não encontrei nada semelhante.

Boa tarde, Estou tendo o mesmo problema, segui todas as instruções acima mas o problema persiste. No nosso caso nos usamos em RUNTIME. colocamos a linha indicada acima na BPL onde ficam as funções da nota package pckNFE; {$R 'ACBrNFeServicos.res' 'ACBrNFeServicos.rc'} colocamos na primeira linha do source do programa program Principal; {$R 'ACBrNFeServicos.res' 'ACBrNFeServicos.rc'} e também já colocamos nas Units no ACBR ( ACBrDFe.pas e ACBrDFeConfiguracoes.pas), mas ainda estamos com o problema, alguem sabe os passos para resolver este problema? Obrigado

Boa tarde, Consegui resolver o problema de Access violation, verifiquei que por estar carregando o modulo pckNfe.bpl em Runtime o aplicativo não estava executando as funções initialization TimeZoneConf := TTimeZoneConf.Create; finalization; FreeAndNil( TimeZoneConf ); presentes na unit pcnAuxiliar, para resolver o problema coloquei no uses do formulário principal do sistema a unit pcnAuxiliar, assim obriga o sistema a executar a função de inicialização da classe. Obrigado pela atenção

Boa tarde, fiz o debug novamente e verifiquei que o TACBrNFe(TNotasFiscais(Collection).ACBrNFe).Configuracoes.WebServices.TimeZoneConf esta com valor (tzSistema, '') já o pcnAuxiliar.TimeZoneConf está nulo eu crio os objetos TACBrNFe e TACBrNFeDANFERL em tempo de execução, nossa aplicação funciona com módulos BPL carregadas em tempo de execução (Runtime Packages) portanto tudo relacionado a NFE está dentro da pckNFe.bpl que é carregada ao abrir o sistema Estou anexando a mensagem de A.V. para que possa dar uma olhada. Obs: No exemplo do ACBrNFe não ocorreu o erro, mas existem algumas variáveis, o exemplo não está em "Runtime Packages", não sei se isso pode ser a causa do problema Obrigado.

Boa tarde, fiz a atualização do meu acbr trunk2 e estou tendo um problema de access violation ao gerar a NFe AcbNFe.NotasFiscais.GerarNFe; fiz o debug, e cheguei a unit "ACBrNFeNotasFiscais" o erro esta na função function NotaFiscal.GerarXML: String; var IdAnterior : String; begin with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin IdAnterior := NFe.infNFe.ID; FNFeW.Gerador.Opcoes.FormatoAlerta := Configuracoes.Geral.FormatoAlerta; FNFeW.Gerador.Opcoes.RetirarAcentos := Configuracoes.Geral.RetirarAcentos; pcnAuxiliar.TimeZoneConf.Assign( Configuracoes.WebServices.TimeZoneConf ); end; FNFeW.Opcoes.GerarTXTSimultaneamente := False; FNFeW.GerarXml; //DEBUG //WriteToTXT('c:\temp\Notafiscal.xml', FNFeW.Gerador.ArquivoFormatoXML, False, False); XMLOriginal := FNFeW.Gerador.ArquivoFormatoXML; if (NaoEstaVazio(FNomeArq) and (IdAnterior <> FNFe.infNFe.ID)) then // XML gerado pode ter nova Chave e ID, então devemos calcular novamente o nome do arquivo, mantendo o PATH do arquivo carregado FNomeArq := CalcularNomeArquivoCompleto('', ExtractFilePath(FNomeArq)); FAlertas := ACBrStr( FNFeW.Gerador.ListaDeAlertas.Text ); Result := FXMLOriginal; end; Mais especificamente na linha 6 pcnAuxiliar.TimeZoneConf.Assign( Configuracoes.WebServices.TimeZoneConf ); Gostaria de saber se a alteração do "TimeZoneConf" afetou mais alguma coisa ou se somente no nosso sistema esta tendo este problema Obs: Não estou setando o horário, estou usando o Default Obrigado.

Consegui fazer o credenciamento de um cliente (que não utilizar o SAT) em ambiente de produção antes da obrigatoriedade do SAT, foi em uma janela que o sefaz abriu no mes passado. Mas ai vem um outro problema que é a Rejeição 402 "XML da área de dados com codificação diferente de UTF-8"

Meus clientes também optaram para a NFC-e para evitar o SAT e agora chegamos no mesmo lugar