Painel de líderes

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 11 2019. Dica 2445. Vamos chamar os metodos inicializar e finalizar Boleto da dll acbr lib. DICAS 2445 - WINDEV WEBDEV MOBILE - ACBR 145 - ACBR LIB - Boleto_Inicializar - Boleto_Finalizar Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2445-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ AcbrLib - Integrando com Windev ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ======================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" RESULT texto END ======================== // BTN_INI // https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html // https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA="Dll Inicializado com sucesso" END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ========================

Obrigado Felipe, eu estava com o mesmo problema Instalando no Delphi 10.3.2 comunity, vou baixar novamente e recompilar. Obrigado pela dica.

A flag PKCS12_ALLOW_OVERWRITE_KEY, segundo a documentação do wincrypt.h, diz: Ou seja, o arquivo com a chave privada armazenada em cache é sempre sobrescrito para o mesmo PFX. Em meus testes, criando o componente múltiplas vezes em runtime, com a alteração sugerida abaixo, o arquivo com a chave privada é criado no diretório de cache dos certificados, mas apenas uma vez. Essa alteração resolve o problema de quem precisa criar o componente em runtime e importar o PFX a cada ciclo de execução.

Bom dia. Isso me parece uma venda com entrada e saldo a prazo, correto? Entendo que vc deve fazer a venda e lançar a saida do estoque e as baixas posteriores não devem gerar novos documentos de venda e somente comprovantes de pagamento que devem ser impressos e entregues ao cliente. Att.