Página 1 de 3
Dll nao carrega
Enviado: 16 Abr 2020 11:39
por rubens
Ola...
Como saber o que está impedindo a DLL de ser carregada ?
Em um prg simples a DLL carrega normalmente.. Quando jogo no meu sistema e mando carregar sempre retorna NIL. Daí tem alguma configuração/componente etc que deve estar impedindo de carregar a DLL no meu sistema..
no prg simples tanto faz se DllLoad ou hb_libLoad carrega a dll
Código: Selecionar todos
#define DC_CALL_STD 0x0020 // __stdcall
#define DLL_OSAPI DC_CALL_STD
#define STR_LEN 256
#define ACBrLIB "ACBrNFe32.dll"
Function Main()
hLib := DllLoad(ACBrLIB)
hLib := hb_libLoad(ACBrLIB)
Agora no meu sistema sempre retorna NIL
Código: Selecionar todos
// ACbrNfe.dll
#define DC_CALL_STD 0x0020 // __stdcall
#define DLL_OSAPI DC_CALL_STD
#define STR_LEN 256
#define ACBrLIB "ACBrNFe32.dll"
FUNCTION LerIni(cSecao, cChave, cFile)
LOCAL GetList := {}
Local cTexto := ''
Local cBufferlen
Local hLib
Local iRetorno
If ! File( cFile )
Return ''
EndIf
hLib := DllLoad(ACBrLIB)
hLib := hb_libLoad(ACBrLIB)
Alguma de onde procurar o que está conflitando ou o que está errado?
Obg..
Rubens
Dll nao carrega
Enviado: 16 Abr 2020 12:49
por asimoes
Tem dll que só abre em modo exclusivo, ela não está sendo usada em outro lugar ?
a dll está na pasta do executável?
Dll nao carrega
Enviado: 16 Abr 2020 16:49
por rubens
Boa tarde ASimoes,
Tem dll que só abre em modo exclusivo, ela não está sendo usada em outro lugar
Então.. só tentei nestes dois programas.. acho que não está sendo usada porque saio do meu sistema e vou no teste e abro normal.. e quando volto no meu sistema não carrega...
e estou usando no final
hb_libFree( hLib )
hLib=NIL
a dll está na pasta do executável?
Si está na mesma pasta... inclusive testei assim:
hLib := DllLoad(hb_dirbase()+"ACBrNFe32.dll")
hLib := hb_libLoad(hb_dirbase()+"ACBrNFe32.dll")
Não mudou nada na carga da dll..
Só o ambiente mesmo... no meu sistema carrega um monte lib, ch e hbc...
o DllLOad ou hb_libload não retorna um código de erro ou algo assim.. ?
Att..
Rubens
Dll nao carrega
Enviado: 21 Jun 2020 20:18
por NiltonGM
Pessoal, comecei a testar ACBrLib e estou com o seguinte problema ao compilar:
- undefined reference to `HB_FUN_DLLLOAD'
- undefined reference to `HB_FUN_DLLCALL'
Código: Selecionar todos
#require "hbxpp"
#include "simpleio.ch"
#include "hmg.ch"
#include 'error.ch'
#ifndef _ACBRLIB_CH_
#define _ACBRLIB_CH_
#define STR_LEN 256
#define DC_CALL_STD 0x20 // __stdcall
#endif
#define ACBrLIB 'ACBrCTe32.dll'
declare window Main
Procedure main_checkBtn_1_onChange()
local hDll, hResult, buffer, lenBuffer, oError
main.checkBtn_2.value := False
main.checkBtn_3.value := False
main.checkBtn_4.value := False
main.checkBtn_5.value := False
if main.checkBtn_1.value
hDll := DllLoad(ACBrLIB)
if empty(hDll)
oError := ErrorNew()
oError:Severity := ES_ERROR
oError:Description := 'Erro ao carregar dll [' + ACBrLIB + ']'
ThRow(oError)
endif
lenBuffer := 256
buffer := Space(lenBuffer)
hResult := DllCall(hDll, DC_CALL_STD, "CTE_StatusServico", @buffer, @lenBuffer)
main.Text_1.value := checkResult(hDll, hResult)
main.Edit_1.value := processResult(buffer, lenBuffer)
endif
Return Nil
Como faço para usar a DLL?
Dll nao carrega
Enviado: 21 Jun 2020 21:38
por JoséQuintas
De onde tirou o fonte?
DllLoad() e DllCall() não existem.
Dê preferência pra hb_DynCall() que faz parte do núcleo do Harbour - se for Harbour
Dll nao carrega
Enviado: 21 Jun 2020 21:42
por NiltonGM
JoséQuintas escreveu:De onde tirou o fonte?
DllLoad() e DllCall() não existem.
Dê preferência pra hb_DynCall() que faz parte do núcleo do Harbour - se for Harbour
Olá Zeh, tirei de vários exemplos no forum, então, eu tentei com a hb_DynCall(), o programa é abortado sem nenhuma mensagem ao executar esta função. veja o código:
Código: Selecionar todos
#include "simpleio.ch"
#include "hmg.ch"
#include 'error.ch'
#include "hbdyn.ch"
#ifndef _ACBRLIB_CH_
#define _ACBRLIB_CH_
#define STR_LEN 256
#define DC_CALL_STD 0x20 // __stdcall
#endif
#define ACBrLIB 'ACBrCTe32.dll'
declare window Main
Procedure main_checkBtn_1_onChange()
local hDll, hResult, buffer, lenBuffer, oError
main.checkBtn_2.value := False
main.checkBtn_3.value := False
main.checkBtn_4.value := False
main.checkBtn_5.value := False
main.Edit_1.value := 'Botão ' + iif(main.checkBtn_1.value, 'pressionado', 'solto') + hb_eol()
if main.checkBtn_1.value
main.Edit_1.value := main.Edit_1.value + 'Carregando DLL ' + ACBrLIB + hb_eol()
hDll := hb_libLoad(ACBrLIB)
main.Edit_1.value := main.Edit_1.value + 'hDll: ' + hb_ntos(hDll) + hb_eol()
MsgBox({'hDll: ', hDll, hb_eol(), 'Type: ', ValType(hDll)}, 'pressione')
if empty(hDll)
main.Edit_1.value := main.Edit_1.value + 'Erro ao carregar DLL: ' + ACBrLIB + hb_eol()
MsgStop('Erro ao carregar DLL!', ACBrLIB)
oError := ErrorNew()
oError:Severity := ES_ERROR
oError:Description := 'Erro ao carregar DL [' + ACBrLIB + ']'
ThRow(oError)
endif
lenBuffer := 256
buffer := Space(lenBuffer)
//hResult := DllCall(hDll, DC_CALL_STD, "CTE_StatusServico", @buffer, @lenBuffer)
main.Edit_1.value := main.Edit_1.value + 'Verificando status na Sefaz... ' + hb_eol()
MsgInfo('Pressione(40)') // Chega até aqui, na proxima linha o programa é abortado!
buffer := hb_DynCall({"CTE_StatusServico", hDll, HB_DYN_CALLCONV_STDCALL})
MsgDebug(buffer)
//main.Text_1.value := checkResult(hDll, hResult)
//main.Edit_1.value := processResult(buffer, lenBuffer)
main.Edit_1.value := main.Edit_1.value + 'Liberando dll ' + ACBrLIB + hb_eol()
hb_libFree(hDll)
endif
Return Nil
Dll nao carrega
Enviado: 21 Jun 2020 23:01
por JoséQuintas
À primeira vista, está tentando qualquer coisa de qualquer jeito.
Com base no possível fonte anterior, a string é passada por referência, como pointer.
Lembrando que qualquer parâmetro errado, não funciona.
Código: Selecionar todos
FUNCTION CteStatusServico()
LOCAL cString := Space(256), nLen := 256
CallDllStd( "ACBrCTe32.dll", "CTE_StatusServico", @cString, @nlen )
RETURN cString
FUNCTION CallDllStd( cDll, cName, ... )
LOCAL nRetorno := 0
hDll := hb_LibLoad( cDll )
nRetorno := hb_DynCall( cName, hDll, HB_DYN_CALLCONV_STDCALL }, ... )
hb_LibFree( hDll )
RETURN nRetorno
Dll nao carrega
Enviado: 22 Jun 2020 08:36
por rubens
Bom dia...
Nilton.. é meio chatinho mesmo, até pegar o jeito...
Para ler um ini
Código: Selecionar todos
// ACbrNfe.dll
#define DC_CALL_STD 0x0020 // __stdcall
#define DLL_OSAPI DC_CALL_STD
#define STR_LEN 256
#define ACBrLIB "ACBrNFe32.dll"
FUNCTION LerIni_acbr(cSecao, cChave, cFile)
LOCAL GetList := {}
Local cTexto := ''
Local cBufferlen
Local hLib
Local iRetorno
If ! File( cFile )
Return ''
EndIf
hLib := DllLoad( ACBrLIB )
iRet := DllCall( hLib, DLL_OSAPI, "NFE_Inicializar", "", "")
bufferLen:= STR_LEN
cTexto := Space(bufferLen)
iRet := DllCall( hLib, DLL_OSAPI,"NFE_ConfigLer", cFile )
iRet := DllCall( hLib, DLL_OSAPI,"NFE_ConfigLerValor", hb_StrToUTF8(cSecao), hb_StrToUTF8(cChave), @cTexto, @bufferLen )
iRet := DllCall( hLib, DLL_OSAPI,"NFE_Finalizar")
hLib := NIL
If iRet = 0
// Gambiarra até saber como usa stran para retirar o ultimo caracter
cTexto := Left( cTexto, Len(Alltrim(cTexto)) -1 )
Else
cTexto := ''
EndIF
RETURN cTexto
Para imprimir Danfe ou gerar o pdf
Código: Selecionar todos
FUNCTION ImprimirPDFNfe(cArq, lPdf)
LOCAL cTela := SaveScreen()
LOCAL GetList := {}
Local cTexto := ''
Local cBufferlen
Local hLib
hLib := DllLoad(ACBrLIB)
iRet := DllCall(hLib, DLL_OSAPI, "NFE_Inicializar", "", "")
bufferLen:= STR_LEN
cTexto := Space(bufferLen)
iRet := DllCall(hLib, DLL_OSAPI, "NFE_CarregarXML", hb_StrToUTF8(cArq))
If lPdf
iRet := DllCall(hLib, DLL_OSAPI, "NFE_ImprimirPDF")
Else
iRet := DllCall(hLib, DLL_OSAPI,"NFE_Imprimir", hb_StrToUTF8(""), 1, hb_StrToUTF8(""), hb_StrToUTF8("True"), hb_StrToUTF8(""), hb_StrToUTF8(''), hb_StrToUTF8(""))
EndIf
iRet := DllCall( hLib, DLL_OSAPI,"NFE_Finalizar")
hLib := NIL
RETURN nil
Detalhes.. você tem que carregar o xml, depois é só mandar gerar o PDF ou imprimir. Depois que carregar o xml não precisa mais fazer referência a ele. É muito rápido e dinâmico.. porque não precisa alterar o layout.. é só baixar a última versão que todas as mudanças necessárias já estão prontas.
o PDF será gerado na path configurado no acbrlib.ini
tem que ter todas estas libs na pasta do executável.
Agora que você que manja bem de classe... pode dar uma olhada no acbrnfedemo do projeto... tem classe para a nfe pronta e até para boleto.
A maioria dos comandos do acbrmonitor estão no acbrnfedemo..
Isso compilo com Hb32
Att..
Rubens
Dll nao carrega
Enviado: 22 Jun 2020 10:47
por Itamar M. Lins Jr.
Ola!
Em que local estão baixando a DLL do ACBr ?
Pq até o instalador do ACBr está alterado! No tutorial tem um instalador e no TRUNK2 tem outro.
Já baixei compilei para 64Bits, mas como gerar a DLL para 32Bits e 64Bits é mistério!
Saudações,
Itamar M. Lins Jr.
Dll nao carrega
Enviado: 22 Jun 2020 10:55
por Itamar M. Lins Jr.
Ola!
Quero saber como gerar a DLL 32Bits e 64Bits primeiro usando o Lazarus, se é possível.
Os tutoriais estão defasados com relação as mudanças do SVN, agora quando o tiver tempo vou ler os Logs do SVN dele.
Não sei pq, o pessoal está removendo a possibilidade de gerar o arquivo acbrmonitor64.exe e a DLL. Removem/escodem, ou nem tem como gerar usando o tutorial, o .bat mesmo precisa ser editado e colocar parâmetros para 32/64Bits.
Saudações,
Itamar M. Lins Jr.
Dll nao carrega
Enviado: 22 Jun 2020 11:18
por Itamar M. Lins Jr.
Ola!
Como deveria ser! ACBrInstall_Trunk2.exe
Mas como está no SVN TRUNK2
Removeram os componentes do dialog!
Como gerar novamente o instalador, ACBrInstall_Trunk2.exe ? Outro mistério.
Saudações,
Itamar M. Lins Jr.
Dll nao carrega
Enviado: 22 Jun 2020 11:33
por Itamar M. Lins Jr.
Ola!
O bat para compilar o ACBr.
Código: Selecionar todos
@echo off
setlocal EnableDelayedExpansion
cls
echo.
echo.
echo. Utilitario para baixar e compilar o ACBrMonitorPlus.exe
echo.
echo. Para Prosseguir Voce Precisara:
echo.
echo. - GIT INSTALADO
echo. - SVN COM COMMAND LINE TOOLS
echo. - LAZARUS INSTALADO NA PASTA PADRAO C:\LAZARUS
echo.
:init0 (
echo.
choice /c SN /n /m "Podemos Continuar? [S/N]"
if %errorlevel% EQU 1 goto :init1
if %errorlevel% EQU 2 goto :end
)
:init1 (
set lazarus_home=c:\lazarus
set path=%path%;%lazarus_home%
echo.
echo.
choice /c SN /n /m "ATENCAO... Deseja fazer o checkout dos fontes (apaga e baixa)? [S/N]"
if %errorlevel% EQU 1 goto :checkout
if %errorlevel% EQU 2 goto :make
)
:checkout (
if exist C:\FontesACBr (
rd /s /q C:\FontesACBr
) else (
echo Pasta C:\FontesACBr sera criada...
)
md C:\FontesACBr
git clone https://github.com/fortesinformatica/fortesreport-ce.git C:\FontesACBr\fortesreport-ce
if %errorlevel% NEQ 0 goto :error
svn co svn://svn.code.sf.net/p/acbr/code/trunk2 C:\FontesACBr
if %errorlevel% NEQ 0 goto :error
svn co svn://svn.code.sf.net/p/lazarus-ccr/svn/components/powerpdf C:\FontesACBr\powerpdf
if %errorlevel% NEQ 0 goto :error
)
:make (
rem Compila‡Æo Incremental (compila a fonte principal (Main Source) e as fontes com datas mais recentes)
lazbuild.exe C:\FontesACBr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi --verbose --bm=Release
rem Compila‡Æo nÆo Incremental (Build All - compila todos os fontes)
rem lazbuild.exe C:\FontesACBr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi -B --verbose --bm=Release
if %errorlevel% NEQ 0 goto :error
)
echo.
echo. OK... Sucesso...
goto :end
:error (
echo.
echo. FALHOU... Houve Erro na Compilacao...
goto :end
)
:end
O erro acontece nessa linha!
Código: Selecionar todos
C:\devl\acbr>lazbuild.exe C:\devl\acbr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi --verbose --bm=Release
Parameter: bm=Release
Hint: (lazarus) primary config path: C:\Users\Ricardo Mello\AppData\Local\lazarus
Hint: (lazarus) [TBuildManager.SetBuildTarget] Old=x86_64-win64-win32 New=x86_64-win64-win32 Changed: OS/CPU=True LCL=False
Erro: (lazarus) modo de construção inválido "Release"
Modos de construção de projeto disponíveis:
* Debug
Release-Win32-i386
Release-Win64-x86_64
Release-Linux-x86_64
Release-Linux-i386
Pelo erro, basta editar a linha do bat e acrescentar, mas quem removeu isso ?
>lazbuild.exe C:\devl\acbr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi --verbose --bm=Release
Para:
>lazbuild.exe C:\devl\acbr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi --verbose --bm=Release-win64-x86_64
Mas isso tudo só vai funcionar "SE" você compilar e incorporar na IDE do Lazarus, os chamados pacotes do ACBr.
Código: Selecionar todos
C:\devl\acbr>lazbuild.exe C:\devl\acbr\Projetos\ACBrMonitorPLUS\Lazarus\ACBrMonitor.lpi --verbose --bm=Release-win64-x86_64
Parameter: bm=Release-win64-x86_64
Hint: (lazarus) primary config path: C:\Users\Ricardo Mello\AppData\Local\lazarus
Hint: (lazarus) [TBuildManager.SetBuildTarget] Old=x86_64-win64-win32 New=x86_64-win64-win32 Changed: OS/CPU=True LCL=False
Hint: (lazarus) [TBuildManager.SetBuildTarget] Old=x86_64-win64-win32 New=x86_64-win64-win32 Changed: OS/CPU=True LCL=False
Hint: (lazarus) package FCL 1.0.1 was compiled via "make" with parameters " -Fu. -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq fcllaz.pas"
Hint: (lazarus) package LazUtils 1.0 was compiled via "make" with parameters " -Fu..\..\packager\units\x86_64-win64;. -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq lazutils.pas"
Hint: (lazarus) package LCLBase 2.0.8 was compiled via "make" with parameters " -MObjFPC -Scghi -O1 -g -gl -vew -l -Fuforms;widgetset;;..\packager\units\x86_64-win64;..\components\lazutils\lib\x86_64-win64;. -Fiinclude alllclunits.pp"
Hint: (lazarus) package LCL 2.0.8 was compiled via "make" with parameters " -MObjFPC -Scghi -O1 -g -gl -vewnhi -l -Fuwin32;..\..\packager\units\x86_64-win64;..\..\components\lazutils\lib\x86_64-win64;..\units\x86_64-win64;. -Fiwin32 lcl.pas"
Hint: (lazarus) package cairocanvas_pkg 0.0 was compiled via "make" with parameters " -Fu..\..\packager\units\x86_64-win64;..\lazutils\lib\x86_64-win64;..\..\lcl\units\x86_64-win64;..\..\lcl\units\x86_64-win64\win32;. -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq -dLCL -dLCLwin32 cairocanvas_pkg.pas"
Hint: (lazarus) package LazControls 1.0.1 was compiled via "make" with parameters " -Fu..\..\packager\units\x86_64-win64;..\lazutils\lib\x86_64-win64;..\..\lcl\units\x86_64-win64;..\..\lcl\units\x86_64-win64\win32;. -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq -dLCL -dLCLwin32 lazcontrols.pas"
Saudações,
Itamar M. Lins Jr.
Dll nao carrega
Enviado: 22 Jun 2020 13:27
por rubens
Itamar...
Faz tempo que não compilo... infelizmente não posso te ajudar nisso aí..
Por causa dessas 'mudanças' eu resolvi aderir ao SAC...
Toda semana tem uma versão nova compilada...
Menos um problema para eu ficar correndo atrás..
Att..
Rubens
Dll nao carrega
Enviado: 22 Jun 2020 21:59
por lucimauro
Eu também aconselho a assinar o SAC , custa 115,00 no boleto por 30 dias, voce baixa todas as dll, acbrmoniturplus,tutoriais e documentação com os exemplos em harbour e não precisa assinar todo os meses, pode renovar de 3 em 3 meses que resolve problema.
Dll nao carrega
Enviado: 23 Jun 2020 00:24
por Itamar M. Lins Jr.
Ola!
Eu também aconselho a assinar o SAC , custa 115,00 no boleto por 30 dias, você baixa todas as dll,
Não tem problema nenhum assinar, SAC, pagar...
Mas pq colocam isso como open source ? Se não podemos usar e é só pagando, melhor nem divulgar o que não funciona, evita frustrações. Fala logo que é pago e pronto.
Quem pagou, em 1o. maio vai ter que pagar de novo, tem atualizações no SVN!
Código: Selecionar todos
Revision: 20150
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:15:49
Message:
-- ACBrBoletoFCFortesFr --
[*] Ajuste na margem do código de Barras do Boleto
----
Modified : /trunk2/Fontes/ACBrBoleto/FC/Fortes/ACBrBoletoFCFortesFr.pas
Modified : /trunk2/Fontes/ACBrBoleto/FC/Fortes/ACBrBoletoRL-change-log.txt
Revision: 20149
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:15:00
Message:
ACBrBancoCaixa
[*] Ajuste para validar layout 101 e 007 com código Cedente de 7 dígitos
----
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBancoCaixa.pas
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBoleto-change-log.txt
Revision: 20148
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:14:27
Message:
-- ACBrBancoSantander --
[*] Ajuste no contador de registros na Geração de Remessa CNAB240
----
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBancoSantander.pas
Revision: 20147
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:13:48
Message:
-- ACBrBancoUnicredES --
[*] Adicionado layout de Retorno especifico do Banco 136 baseado no manual
----
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBancoUnicredES.pas
Revision: 20146
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:12:09
Message:
-- ACBrBancoSafra --
[*] Ajuste na geração remessa CNAB240 campo Instrucao2
----
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBancoSafra.pas
Revision: 20145
Author: juniorsantos
Date: 22/06/2020 hh:mm:ss 09:11:30
Message:
-- ACBrBancoBanrisul --
[*] Ajuste na Leitura Retorno CNAB400 ref. campo SeuNumero
----
Modified : /trunk2/Fontes/ACBrBoleto/ACBrBancoBanrisul.pas
Revision: 20144
Author: dopi
Date: 20/06/2020 hh:mm:ss 14:35:54
Message:
ACBrTEFPayGoWebComum.pas - Atualizando tabela PWINFO_*
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFPayGoWebComum.pas
Revision: 20143
Author: dopi
Date: 20/06/2020 hh:mm:ss 12:15:52
Message:
ACBrTEFDPayGoWeb.pas
- Correção em "AvaliarTransacaoPendenteAPI", para exibir Rede e NSU, enviado pela API
- Correção em "VerificarTransacoesPendentesClass", para Exibir como "Confirmada", as transações que não puderam ser Canceladas com CNC
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDPayGoWeb.pas
Revision: 20142
Author: dopi
Date: 20/06/2020 hh:mm:ss 12:01:19
Message:
ACBrTEFCliSiTefComum.pas
- Remoção de Warnings e Hints
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFPayGoWebComum.pas
Revision: 20141
Author: dopi
Date: 20/06/2020 hh:mm:ss 11:49:18
Message:
ACBrTEFCliSiTefComum.pas
- correção de .A.V. em UnLoadDLLFunctions
- Remoção de Warnings e Hints
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFPayGoWebComum.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBr_TEFD-change-log.txt
Revision: 20140
Author: dopi
Date: 20/06/2020 hh:mm:ss 11:44:38
Message:
Ajustes em "TEFDDemoNF", para demonstrar o uso de TEF PayGo Web
----
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/TEFDDemoNF.dpr
Added : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frExibeMensagem.dfm
Added : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frExibeMensagem.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frIncluirPagamento.dfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frIncluirPagamento.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frMenuTEF.dfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frMenuTEF.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frObtemCampo.dfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frObtemCampo.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frPrincipal.dfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/frPrincipal.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Delphi/uVendaClass.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frExibeMensagem.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frIncluirPagamento.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frMenuTEF.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frObtemCampo.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frPrincipal.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/uVendaClass.pas
Revision: 20139
Author: dopi
Date: 20/06/2020 hh:mm:ss 11:10:03
Message:
Ajustes em "TEFDDemoNF", para demonstrar o uso de TEF PayGo Web
----
Added : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frExibeMensagem.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frMenuTEF.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frObtemCampo.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frPrincipal.pas
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/TEFDDemoNF.lpi
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/TEFDDemoNF.lpr
Added : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frExibeMensagem.lfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frIncluirPagamento.lfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frMenuTEF.lfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frObtemCampo.lfm
Modified : /trunk2/Exemplos/ACBrTEFD/NaoFiscal/Lazarus/frPrincipal.lfm
Revision: 20138
Author: dopi
Date: 20/06/2020 hh:mm:ss 10:55:23
Message:
Ajuste nos Packages de ACBrTEFD, para novo TEF PayGoWeb
----
Modified : /trunk2/Pacotes/Delphi/ACBrTEFD/ACBr_TEFD.dpk
Modified : /trunk2/Pacotes/Lazarus/ACBrTEFD/ACBr_TEFD.lpk
Modified : /trunk2/Pacotes/Lazarus/ACBrTEFD/ACBr_TEFD.pas
Revision: 20137
Author: dopi
Date: 20/06/2020 hh:mm:ss 10:53:48
Message:
-- ACBrTEFD, ACBrTEFDClass --
[+] Adicionado novo modelo de TEF Dedicado, para suportar "TEF PayGo Web Libc"
Modelo: gpPayGoWeb, Classe: TEFPayGoWeb: TACBrTEFDPayGoWeb;
-- ACBrTEFDClass --
[-] Correção para preencher a Segunda Via, quando apenas a Via Completa é informada
-- TACBrTEFDPayGoWeb --
[+] Nova classe, para suportar TEF Dedicado, "TEF PayGo Web Libc"
- Necessita da Biblioteca 'PGWebLib.dll' (Windows) ou 'PGWebLib.so' (Linux)
- Download da Biblioteca e Manuais em: https://www.paygo.com.br/links-e-manuais/
[*] Projeto "TEFDDemoNF", modificado para suportar e demonstrar o novo Modelo de TEF
-- ACBrTEFPayGo --
[+] Mapeamento do campo "729" para "Resp.Confirmar"
[-] Correção para que Resp.NFCeSAT.UltimosQuatroDigitos contenha apenas os 4 últimos digitos do BIN
-- ACBrTEFComum --
[+] Classe "TACBrTEFResp". Adição de comentários nos fontes, para melhor descrição
de algumas propriedades
[+] Classe "TACBrTEFResp". Adição das propriedades:
Confirmar: Boolean -> Se True, a Resposta requer uma Confirmação (CNF)
QRCode: String -> Com Conteúdo do QRCode a ser exibido, quando usando carteiras Digitais
(por: DSA)
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFComum.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFD.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDClass.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDPayGo.pas
Revision: 20136
Author: dopi
Date: 20/06/2020 hh:mm:ss 10:26:21
Message:
ACBrTEFCliSiTefComum.pas, ACBrTEFDCliSiTef.pas - Indentação
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFCliSiTefComum.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDCliSiTef.pas
Revision: 20135
Author: dopi
Date: 19/06/2020 hh:mm:ss 23:14:50
Message:
Continuação do desenvolvimento de PayGoWeb
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFPayGoWebComum.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDPayGoWeb.pas
Revision: 20133
Author: rfteno
Date: 19/06/2020 hh:mm:ss 17:18:09
Message:
[-] Correção do manual adicionado funções que estavam faltando no manual.
----
Modified : /trunk2/Projetos/ACBrLib/Doctos/ACBrLib.hnd
Revision: 20129
Author: dopi
Date: 18/06/2020 hh:mm:ss 01:03:58
Message:
Continuação do desenvolvimento de PayGoWeb
----
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFPayGoWebComum.pas
Modified : /trunk2/Fontes/ACBrTEFD/ACBrTEFDPayGoWeb.pas
Revision: 20128
Author: dopi
Date: 17/06/2020 hh:mm:ss 17:01:07
Message:
Atualizando ACBrLibPosPrinter Build Number
----
Modified : /trunk2/Projetos/ACBrLib/Fontes/PosPrinter/ACBrLibPosPrinter.lpi
Revision: 20127
Author: dopi
Date: 17/06/2020 hh:mm:ss 17:00:40
Message:
Atualizando ACBrLibETQ Build Number
----
Modified : /trunk2/Projetos/ACBrLib/Fontes/ETQ/ACBrLibETQ.lpi
Revision: 20126
Author: dopi
Date: 17/06/2020 hh:mm:ss 17:00:13
Message:
Atualizando ACBrLibCHQ Build Number
----
Modified : /trunk2/Projetos/ACBrLib/Fontes/CHQ/ACBrLibCHQ.lpi
Revision: 20125
Author: dopi
Date: 17/06/2020 hh:mm:ss 16:59:43
Message:
Atualizando ACBrLibBAL Build Number
----
Modified : /trunk2/Projetos/ACBrLib/Fontes/BAL/ACBrLibBAL.lpi
Revision: 20124
Author: dopi
Date: 17/06/2020 hh:mm:ss 16:33:24
Message:
Ajuste para que Elgin L42Pro suporte o comando de página de código, em ZPL2
----
Modified : /trunk2/Fontes/ACBrSerial/ACBrETQClass.pas
Revision: 20123
Author: dopi
Date: 17/06/2020 hh:mm:ss 16:18:55
Message:
Atualizando ACBrLibNFe Build Number
----
Modified : /trunk2/Projetos/ACBrLib/Fontes/NFe/ACBrLibNFe.lpi
Revision: 20122
Author: rfteno
Date: 17/06/2020 hh:mm:ss 16:17:20
Message:
[-] Correção para preencher o nome do documento correto quando é PDF.
----
Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFCe/Fortes/ACBrDANFCeFortesFr.pas
Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFCe/Fortes/ACBrDANFCeFortesFrA4.pas
Em muito mais...
Saudações,
Itamar M. Lins Jr.