Conversión funcion en DLL para impresora fiscal THEFACTORY

[jnavas]

Colegas ,
Saludos, actualizando funcionalidades para la impresora fiscal THEFACTORY, lectura de la ultima factura. En Xbase me devuelve valor numerico, necesito devuelva el valor en Cadena

BOOLEAN UploadStatusDin(Status Long, Error Long, String cmd, String cadena)

02 53 31 30 31 0a 30 30 30 30 30 30 30 30 30 30 .S101.0000000000
30 30 30 30 30 30 30 0a 30 30 30 30 32 38 39 33 0000000.00002893
0a 30 30 30 30 30 0a 30 30 30 30 30 37 33 31 0a .00000.00000731.
30 30 30 30 30 0a 30 30 30 30 30 38 34 37 0a 30 00000.00000847.0
30 30 30 30 0a 30 30 30 30 33 33 31 37 0a 30 30 0000.00003317.00
30 30 39 0a 30 30 30 37 0a 30 32 31 31 0a 4a 2d 009.0007.0211.J-
33 31 32 31 37 31 31 39 37 0a 5a 37 43 39 39 39 312171197.Z7C999
39 39 36 30 0a 31 32 33 35 30 33 0a 30 33 30 37 9960.123503.0307
32 35 0a 03 1f 25...


Esta funcion traducida a xbase

FUNCTION DpGetData(cFunction,cCmd)
LOCAL cFarProc:=NIL
LOCAL uResult :=NIL

DEFAULT cFunction:="UploadReportDin",;
cCmd :="S1"

cFarProc:= GetProcAddress(oDp:nTFHDLL,cFunction,.T.,7,10,8,7 )
uResult := CallDLL(cFarProc,@nStatus,@nError,@cCmd)

? uResult,"uResult",cCmd,"cCmd"

oTFH:oFile:AppStr(cFunction+",Resp->"+CTOO(uResult,"C")+CRLF)

RETURN uResult

https://github.com/AdaptaProERP/impreso ... Ver1.1.pdf

[albeiroval]

Saludos, actualizando funcionalidades para la impresora fiscal THEFACTORY

Saludos, puedes escribirme al privado albeiroval at gmail