Retorno Estendido MFD Bemafi32.Dll [PAF Teste 48]

[sambomb]

Código: Selecionar todos

   nLib32   := LoadLibrary("Bemafi32.dll")

   DLL32 FUNCTION Bematech_FI_RetornoImpressoraMFD(@ACK AS PTR, @ST1 AS PTR, @ST2 AS PTR, @ST3 AS PTR);
         AS _INT PASCAL FROM "Bematech_FI_RetornoImpressoraMFD";
         LIB nLib32
/*-------------------------------------*/
Function PegaRetorno()
Local Ack,St1, St2, St3
Local cRetorno := ""

   Bematech_FI_RetornoImpressoraMFD(@ACK, @ST1, @ST2, @ST3)

   cRetorno += TrataRetorno("ACK",ACK)
   cRetorno += TrataRetorno("ST1",ST1)
   cRetorno += TrataRetorno("ST2",ST2)
   cRetorno += TrataRetorno("ST3",ST3)

Return cRetorno