Renato Rubinho

Correto. Com isso você isola os dois cenários e evita conflitos.

Certo, então voltamos à sua pergunta original. Você deverá usar um ini para cada modelo. No método Inicializar você informa o ini. // $iniPath deverá receber o ini do respectivo modelo $ffi->CNPJ_Inicializar(FFI::addr($handle), $iniPath, "");

Você vai precisar configurar o ini para o modelo que está emitindo, conforme o exemplo que passei. Se estiver emitindo em sequência os NFCes, não precisa alterar a cada emissão, quando for emitir uma NFe, altere o ACBRNFE.INI, quando for voltar a emitir NFCes, altere o ACBRNFE.INI novamente.

Parece correto, o AV deve ser por causa do componente não criado ou destruído. Teste antes de carregar a imagem para validar. if Assigned(RLImage1) then RLImage1.Picture.LoadFromFile('C:\Imagem\A.jpg') Se não for isso, teste com outra imagem, confirme se não é outro tipo de arquivo que foi renomeado para jpg.

Uma alternativa é o Ghostscript.

Você pode salvar o ModeloDF no ini antes de enviar o documento. $eSessao = "NFe"; $eChave = "ModeloDF"; // 0-NFe 1-NFCe $value = "0"; $ffi->NFE_ConfigGravarValor($handle->cdata, $eSessao, $eChave, $value); Quando carregar as configurações e chamar o método de envio, ele irá considerar a última configuração que você fez.

Fechando. Para novas dúvidas, criar um novo tópico.

Olá pessoal, Estamos disponibilizando mais um curso exclusivo para os assinantes do ACBr Pro: PHP+FFI - Integrando com ACBrLib O curso é objetivo e focado em mostrar como consumir as bibliotecas do ACBr no PHP através da extensão FFI e para isso foi utilizada a biblioteca ACBrLibConsultaCNPJ, de acordo com o roteiro a seguir: Configurando o ambiente: Demonstrado como habilitar o FFI no php, baixar a biblioteca, copiar a versão correta da biblioteca e suas dependências para a devida pasta. Rodando o programa de exemplo: Testados métodos do programa de exemplo disponível nos fontes do ACBr. Desenvolvimento da página inicial: Mostrada trilha da criação de uma página enxuta, mas funcional para o consumos dos métodos. Implementando o método Salvar Configurações: Demonstrando como consumir o primeiro método e interagir com a biblioteca. Implementando o método Carregar Configurações: Seguindo a linha de raciocínio do método anterior, mostrado como carregar as configurações que foram gravadas anteriormente. Implementando o método Consultar: Consumo do método principal da biblioteca para consulta do cnpj no provedor selecionado. Se você ainda não é assinante ACBr Pro, fale com nossos consultores comerciais e venha aproveitar este e os demais cursos exclusivos. Até mais!!!

Ok. O programa acontece somente neste ambiente? Está funcional em algum outro local com o mesmo cenário? Confirme se pegou as Libs da pasta correta, referentes a STDCALL.

Essa dll da OpenSSL é para aplicações x86, se a sua aplicação for x64, pegue as dlls da pasta x64, distribuídas junto com a lib. Apague as dlls x86 da pasta da aplicação para não conflitar e copie somente da x64.

Obrigado pela contribuição. Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-35314 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.

Obrigado pela contribuição. Criada TK-5980 para correção, realmente faltou inicializar o número de ocorrências com zero.

Fechando. Para novas dúvidas, criar um novo tópico.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Olá, Sua implementação me parece ok, apenas voltei as costantes para o local original, Rev-31479 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. Fiz um teste com o código a seguir e os retornos foram corretos. var ok: boolean; i: integer; j: integer; tipoEvento: TTipoEvento; tsRetorno: TStringList; str: string; begin tsRetorno := TStringList.Create; for j := Integer(Low(TVersaoeSocial)) to Integer(High(TVersaoeSocial)) do begin tsRetorno.Add('----------------------------'); tsRetorno.Add(VersaoeSocialToStrEX(TVersaoeSocial(j))); tsRetorno.Add('----------------------------'); for i := Integer(Low(TTipoEvento)) to Integer(High(TTipoEvento)) do begin str := Trim(TipoEventoToStrEvento(TTipoEvento(i), TVersaoeSocial(j))); if str <> '' then begin tipoEvento := StringINIToTipoEvento(ok, '[' + str + ']', TVersaoeSocial(j)); if ok and (tipoEvento = TTipoEvento(i)) then tsRetorno.Add(GetEnumName(TypeInfo(TTipoEvento), i) + '===' + str); end; end; end; tsRetorno.SaveToFile('C:\TEMP\TESTE.TXT'); tsRetorno.Free; end;

Se o seu cliente utiliza a Distribuição DFe e a NFe foi emitida nos últimos 90 dias, caso ele não tenha armazenado, pode baixar todos dos últimos 90 dias e localizar a NFe que precisa. Para isso ele deve utilizar a DistribuicaoDFePorUltNSU passando o ultNSU=0 OBS: Se ele não utiliza o serviço, não adianta fazer agora, pois os documentos só começam a ser distribuídos após a primeira consulta, não gerando os retroativos.

A somatória dos seus itens totaliza 9333,8 e o total vProd está com 10780,00. Revise seu cálculo dos totais. <total> <ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>10780.00</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>10780.00</vNF> </ICMSTot> </total>

Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-35186 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.

Correção enviada ao SVN, conforme tópico a seguir.

Obrigado pela contribuição. Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-35185 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.

Criada TK-5946 para correção da condição de geração do campo.

O fonte que consta neste outro tópico também está indisponível. Você pode anexar novamente para análise?

../Fontes/ACBrDFe/ACBrReinf/PCNReinf/pcnReinfR4010.pas with Self.ideEstab do begin Gerador.wCampo(tcStr, '', 'cpfBenef', 11, 11, 0, ideBenef.cpfBenef); Altere o sexto parâmetro desta linha, na procedure GerarideBenef, preenchendo como 0 ao invés de 1. O campo está como obrigatório, alterando para zero só será gerado se houver valor. Reinstale os componentes após a alteração e veja se resolve.