Código: Selecionar todos
STATIC XDLL
FUNCTION VENDAS()
IF .NOT. FILE( "BEMATECH.DLL" )
? [MENSAGEM DE ERRO]
ELSE
XDLL := LoadLibrary( "BEMATECH.DLL" ) // 32 Bits
ENDIF
ACTIVATE...
ENDDO ...
//... TERMINOU...
FreeLibrary( xDll )
xDll := Nil
RETURN NIL
// NO FINAL FINAL DO MODULO DE VENDAS: NAO PONHA EM FUNCTION.
*******************************************************************************
DLL32 Function BReseta() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function LeStatus() AS _INT PASCAL FROM "Le_Status" LIB XDLL
DLL32 Function BInicia_Porta(Porta AS STRING) AS _INT PASCAL FROM "IniciaPorta" ;
LIB XDLL
DLL32 Function BReset() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function Taxa_Serial(Taxa AS LPSTR) AS _INT PASCAL FROM "ConfiguraTaxaSerial" ;
LIB XDLL
DLL32 Function BFecha_Porta() AS _INT PASCAL FROM "FechaPorta" ;
LIB XDLL
DLL32 Function BImp_Texto(Texto AS STRING) AS _INT PASCAL FROM "BematechTX" ;
LIB XDLL
DLL32 Function BFormataTX(cTexto AS LPSTR,nTipo AS _INT,nItalico AS _INT,;
nSublinhado AS _INT,nEXpandido AS _INT,nEnfatizado AS _INT) AS _INT PASCAL;
FROM "FormataTX" LIB XDLL
DLL32 Function BComandoTX(Comando AS STRING,nTam AS _INT) AS _INT PASCAL;
FROM "ComandoTX" LIB XDLL
DLL32 Function Bema_Bitmap(vCam AS STRING,Modo AS LPSTR) AS _INT PASCAL ;
FROM "ImprimeBitmap" LIB XDLL
DLL32 Function BEstatus() AS _INT PASCAL FROM "BematechTX" LIB XDLL
DLL32 Function BCorta_Papel(Corte AS LPSTR) AS _INT PASCAL FROM "AcionaGuilhotina";
LIB XDLL
DLL32 Function BModelo_Imp(nImp AS LPSTR) AS _INT PASCAL ;
FROM "ConfiguraModeloImpressora" LIB XDLL
DLL32 Function BQRCode(nNivel AS _INT,nTam AS _INT,nTipo AS _INT,nVersao AS _INT,;
nFormato AS _INT,cQRCode AS STRING) AS LONG PASCAL;
FROM "ImprimeCodigoQRCODE" LIB XDLL
DLL32 Function BImp_Bitmap(cArq AS STRING, nModo AS _INT) AS LONG PASCAL;
FROM "ImprimeBitmap" LIB XDLL