Code: Select all
BUTTON IMP_CODE ;
TOOLTIP "Imprime código de barras" ;
PICTURE "barcode" ;
ACTION (Play_Barcode(.T.), MSGBOX("ARRIBA"),Win_MaMP.BrowseDbf.Enabled:=.T., Win_MaMP.BrowseDbf.SETFOCUS ) ;
SEPARATOR
Y esta seria la función en si misma. Esta sacada de un función de Claudio
Code: Select all
STATIC PROCEDURE Play_Barcode(lPr)
LOCAL hBitmap
LOCAL cCode := WIN_MaMP.GET01.value
LOCAL cType := "CODE128"
LOCAL lShowdigits := .F.
Local lSuccess
DEFAULT lPr:=.F.
hBitmap := HMG_CreateBarCode ( cCode, cType , NIL, NIL, lShowdigits )
BT_HMGSetImage ("WIN_MaMP", "Image_1", hBitmap)
IF lPr
BT_BitmapSaveFile( hBitmap, "BarCode128.BMP", BT_FILEFORMAT_BMP )
SELECT PRINTER DIALOG TO lSuccess PREVIEW
START PRINTDOC
START PRINTPAGE
@ 20,40 PRINT IMAGE "BarCode128.BMP" WIDTH 50 HEIGHT 50
END PRINTPAGE
END PRINTDOC
MSGBOX("tERMINADO")
ENDIF
RETURN
Si que me imprime ambos mensajes, pero es como si no tuviera ningún campo activo.
¿Que estoy haciendo mal...?
Muchas gracias y una cervecita fresquita....