FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Post a reply

EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Postby ACC69 » Sat May 31, 2014 2:44 am

Hola buenas noches, como estan, estoy intentando, visualizar el efecto del codigo de barra con un codigo sencillo, peor no veo el efecto, solo visualiza numero 1, ya instale interleaved de 1 a 5, y aun asi no veo el efecto, que estare haciendo mal, ya que estoy adelantando en crear codigos de barra visualizando en dialogo, mientras se compran el lector, pero no veo nada de barras, solo 1.

Pongo el codigo aqui y la funcion que me paso el Ing. cmsoft

Code: Select all  Expand view
#include "FiveWin.ch"

STATIC S01, S02, S05, S04, S06
STATIC nReg,cCodigo

//------------------------------------------------------------------------------
FUNCTION CODBAR(oDlg, oLbx)
 LOCAL oFont1,oFont2,oDlgR, oGetR, oSay, oBtnR

 oGetR := ARRAY(4)
 oBtnR := ARRAY(1)

 cCodigo := "012"

 DEFINE FONT oFont1 NAME "TAHOMA" SIZE 10, 12*2
 DEFINE FONT oFont2 NAME "Interleaved 2of5 Text" SIZE 12,-48 aqui el font

 DEFINE DIALOG oDlgR RESOURCE "CODBAR" TITLE "Reporte de entradas y salidas"
  REDEFINE GET oGetR[01] VAR cCodigo ID 101 OF oDlgR PICT "@!"

  REDEFINE SAY oSay PROMPT CodigoBarra( cCodigo ) ID 151 OF oDlgR Font oFont2 // aqui la funcion

  REDEFINE BUTTON oBtnR[01] ID 201 OF oDlgR ACTION R_CODBAR(oDlg, oLbx)

 ACTIVATE DIALOG oDlgR

 Release oDlgR, oGetR, oBtnR
RETURN NIL


Espero me puedan orientar mas, ya que nunca he hecho codigos de barras..! :?

Saludos
Atte: Adrian C. C.
Last edited by ACC69 on Sun Jun 01, 2014 2:34 am, edited 1 time in total.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby FiveWiDi » Sat May 31, 2014 8:45 am

Hola,

Estas pruebas (funcionó perfectamente tanto en windows como en dialogs) las hice hace unos años, no recuerdo que funciones requerían (todo en FW basado en el trabajo de Cayetano si no recuerdo mal).
Es posible que me haya dejado alguna función, en ese caso lo comentas y te la busco y la publico.
Code: Select all  Expand view
FUNCTION Wcodebar( )
WcodebarA( )
WcodebarB( )
Return Nil

FUNCTION WcodebarA( )

Local oWnd, oAceptar

DEFINE WINDOW oWnd FROM 2.19,37.88 TO 35.50,137.00 //FIVEWIDI


@ 432,581 BUTTON oAceptar PROMPT "&OK" SIZE 152,32 ACTION oWnd:End() OF ownd ;
    FONT TFont():New('Arial',0,-11,.F.,.F.,0,0,400,.F.,.F.,.F.,0,3,2,1,nil) PIXEL ;
    MESSAGE "Cerrará venana" UPDATE CANCEL //FIVEWIDI

@ 10,10 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 VERTICAL

@ 10,60 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1

@ 10,210 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 MODE "A"

@ 10,385 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 MODE "B"

@ 10,560 CODE128W "1111167890" ;
       OF oWnd ;
       SIZE 1 MODE "C"

// =====================================
@ 130,10 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 VERTICAL

@ 50,60 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 CHECK

@ 50,290 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 CHECK

// =====================================
@ 330,10 EAN13W "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 470,10 EAN13W "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@ 90,60 EAN13W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@ 90,270 EAN13W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 600,10 UPCAW "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 600,100 UPCAW "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@ 140,60 UPCAW "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@ 140,270 UPCAW "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 450,100 EAN8W "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 450,200 EAN8W "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@ 190,60 EAN8W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@ 190,270 EAN8W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 300,200 CODABARW "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL

@ 240,60 CODABARW "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1.5

@ 240,270 CODABARW "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1.5

ACTIVATE WINDOW oWnd MAXIMIZED

Return Nil


FUNCTION WcodebarB( )
Local oWnd, oAceptar

DEFINE DIALOG oWnd FROM 5,5 TO 50,125 //FIVEWIDI

@ 216,290 BUTTON oAceptar PROMPT "&OK" SIZE 75,16 ACTION oWnd:End() OF ownd ;
    FONT TFont():New('Arial',0,-11,.F.,.F.,0,0,400,.F.,.F.,.F.,0,3,2,1,nil) PIXEL ;
    MESSAGE "Cerrará venana" UPDATE CANCEL //FIVEWIDI

@ 5,5 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 VERTICAL

@ 5,30 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1

@ 5,105 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 MODE "A"

@ 5,192 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 MODE "B"

@ 5,280 CODE128W "1111167890" ;
       OF oWnd ;
       SIZE 1 MODE "C"

// =====================================
@ 65,5 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 VERTICAL

@ 25,30 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 CHECK

@ 25,145 CODE3_9W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 CHECK

// =====================================
@ 165,5  EAN13W "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 235,5  EAN13W "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@ 45,30 EAN13W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@ 45,135 EAN13W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 300,5  UPCAW "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 300,50  UPCAW "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@  70,30 UPCAW "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@  70,135 UPCAW "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 225,50  EAN8W "1111167890" ;
       OF oWnd COLOR CLR_GREEN ;
       SIZE 1 VERTICAL

@ 225,100 EAN8W "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL BANNER

@  95,30 EAN8W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1 BANNER FONT "Courier New"

@  95,135 EAN8W "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1 BANNER

// =====================================
@ 150,100 CODABARW "1111167890" ;
       OF oWnd ;
       SIZE 1 VERTICAL

@ 120,30 CODABARW "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       SIZE 1.5

@ 120,135 CODABARW "1111167890" ;
       OF oWnd COLOR CLR_HBLUE ;
       SIZE 1.5

//Code128W( 90, 10, "167891", oWnd, NIL, CLR_HRED, .T., Nil, Nil)

//traza( 1, "code128w=", _code128( "1111167890", Nil ) )

//ACTIVATE WINDOW oWnd MAXIMIZED
ACTIVATE DIALOG oWnd

/*
@ 10,30 CODE128W "1234567890" ;
       OF oWnd COLOR CLR_HRED
       //WIDTH 0.10 ;
       //SIZE 50
       //MODE "A" ;
       //COLOR RED ;
*/

//Code128W( 90, 10, "167891", oWnd, NIL, CLR_HRED, .T., Nil, Nil)
//Code128W(nRow,nCol,cCode,oWnd,cMode,Color,lHorz,nWidth,nHeigth)

/*
@ 10,30 CODE128W "1111167890" ;
       OF oWnd COLOR CLR_HRED ;
       //WIDTH 0.10 ;
       //SIZE 0.80
       //MODE "A"

@ 300,300 CODE128W "1234567890" ;
       OF oWnd ;
       WIDTH 0.10 ;
       SIZE 50
       //MODE "A" ;
       //COLOR RED ;
*/

Return Nil

// TBarCodeW Class. Mainly used for show Code Bar at screen.

#include "FiveWin.ch"

#include "Constant.ch"

#define COLOR_BTNFACE     15

#ifdef __XPP__
   #define Super ::TControl
   #define New _New
#endif

//----------------------------------------------------------------------------//

CLASS TBarCodeW FROM TControl

   CLASSDATA lRegistered AS LOGICAL

   DATA   cTipoBar    // Tipo de código de barras.
   DATA   lBanner     // Indicador de si visualitza codi en alfanumèric.
   DATA   cFont       // Nom del tipu sde lletra.
   DATA   lHorizontal   // Indicador de horientació.
   DATA   cMode       // SubTipo del código de barras.
   DATA   lCheck      // Indicador de chequeo para convertir a ceros y unos.
   DATA   cCode       // Codigo recibido.
   DATA   cCodeBar1   // Codigo 1 convertido a ceros y unos.
   DATA   cCodeBar2   // Codigo 2 convertido a ceros y unos.
   DATA   nWidthLine  // Anchura de la línea del código de barras.
   DATA   nHeightLine // Altura de la línea del código de barras.

   METHOD New( nTop, nLeft, cCode, oWnd, lcheck, cMode, nColor, lHorizontal, ;
               nWidthLine, nHeightLine, lBanner, cFont, cTipoBar, lDesign, lPixel ) CONSTRUCTOR

   METHOD EraseBkGnd( hDC )
   METHOD Paint()
   METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0

   //METHOD Notify( nIdCtrl, nPtrNMHDR ) INLINE ::oWnd:Notify( nIdCtrl, nPtrNMHDR )

   METHOD SetCodeBar( cTipoBar, cMode, lCheck, cCode )

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, cCode, oWnd, lcheck, cMode, nColor, lHorizontal, ;
            nWidthLine, nHeightLine, lBanner, cFont, cTipoBar, lDesign, lPixel ) CLASS TBarCodeW

   DEFAULT nTop        := 0, nLeft := 0
   DEFAULT cCode       := ""
   DEFAULT cTipoBar    := "", cMode := "", lCheck := .F.
   DEFAULT oWnd        := GetWndDefault(), ncolor := oWnd:nClrText, cFont := "Arial"
   DEFAULT lHorizontal   := .T., lPixel := .T., lDesign := .F., lBanner := .T.
   DEFAULT nWidthLine  := 0.025 // 1/3 M/mm
   DEFAULT nHeightLine := 1.5 // Cmm.

   #ifdef __XPP__
      DEFAULT ::lRegistered := .f.
   #endif

   ::SetCodeBar( cTipoBar, cMode, lcheck, cCode )
   ::nWidthLine  := nWidthLine
   ::nHeightLine := nHeightLine
   ::lHorizontal := lHorizontal
   ::lBanner     := lBanner
   ::cFont       := cFont

   /*
   Traza( 1, "cTipoBar   =", ::cTipoBar )
   Traza( 1, "cMode      =", ::cMode )
   Traza( 1, "lcheck     =", ::lCheck )
   Traza( 1, "cCode      =", ::cCode )
   Traza( 1, "cCodeBar1  =", ::cCodeBar1 )
   Traza( 1, "cCodeBar2  =", ::cCodeBar2 )
   Traza( 1, "nWidthLine =", ::nWidthLine )
   Traza( 1, "nHeightLine=", ::nHeightLine )
   Traza( 1, "lHorizontal=", ::lHorizontal )
   Traza( 1, "lBanner    =", ::lBanner )
   Traza( 1, "cFont      =", ::cFont )
   */

   ::oWnd        := oWnd
   ::nTop        := If( lPixel, nTop, nTop * MTR_CHARPIX_H )  //14
   ::nLeft       := If( lPixel, nLeft, nLeft *  MTR_CHARPIX_W ) //8

   ::nBottom     := ::nTop  + nCm2Pixels( ::hDC, ::nHeightLine, .T. )
   ::nRight      := ::nLeft + ( nCm2Pixels( ::hDC, ::nWidthLine, .F. ) * Len( ::cCodeBar1 ) )

   ::lDrag       := lDesign
   ::nStyle      := nOR( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, ;
                  If( ::lDrag, nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ) )

   ::nId         := ::GetNewId()
   ::lCaptured   := .f.
   ::lUpdate     := .f.

   ::nClrText    := nColor
   ::nClrPane    := iif( Upper( ::oWnd:Classname() ) != "TWINDOW", ;
                                GetSysColor( COLOR_BTNFACE ), ;
                                ::oWnd:nClrPane )
   /*
   Traza( 1, "nTop       =", ::nTop )
   Traza( 1, "nLeft      =", ::nLeft )
   Traza( 1, "nBottom    =", ::nBottom )
   Traza( 1, "nRight     =", ::nRight )
   Traza( 1, "nDrag      =", ::lDrag )
   Traza( 1, "nID        =", ::nId )
   Traza( 1, "lCaptured  =", ::lCaptured )
   Traza( 1, "nClrText   =", ::nClrText )
   Traza( 1, "nClrPane   =", ::nClrPane )
   */

   If ::lDrag
      ::CheckDots()
   endif

   ::Register()

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush )
      endif
   else
      ::oWnd:DefControl( Self )
   endif

return Self

//----------------------------------------------------------------------------//
METHOD SetCodeBar( cTipoBar, cMode, lcheck, cCode ) CLASS TBarCodeW

::cTipoBar  := cTipoBar
::cMode     := cMode
::lCheck    := lCheck
::cCode     := cCode

::cCodeBar1 := ""
::cCodeBar2 := ""

IF ::cTipoBar = "CODE128"
    ::cCodeBar1 := _code128( ::cCode, ::cMode )
ElseIf ::cTipoBar = "CODE3_9"
    ::cCodeBar1 := _code3_9( ::cCode, ::lCheck )
ElseIf ::cTipoBar = "EAN13"
    ::cCodeBar1 := _ean13( ::cCode )
    ::cCodeBar2 := _ean13Bl()
ElseIf ::cTipoBar = "UPCA"
    ::cCodeBar1 := _upc( ::cCode )
    ::cCodeBar2 := _UPCABl( ::cCode )
ElseIf ::cTipoBar = "EAN8"
    ::cCodeBar1 := _upc( ::cCode, 7 )
    ::cCodeBar2 := _ean13Bl(8)
ElseIf ::cTipoBar = "SUP5"
    ::cCodeBar1 := _sup5( ::cCode )
ElseIf ::cTipoBar = "CODABAR"
    ::cCodeBar1 := _codabar( ::cCode )
ElseIf ::cTipoBar = "INT25"
    ::cCodeBar1 := _int25( ::cCode, ::lCheck )
ElseIf ::cTipoBar = "IND25"
    ::cCodeBar1 := _ind25( ::cCode, ::lCheck )
ElseIf ::cTipoBar = "MAT25"
    ::cCodeBar1 := _mat25( ::cCode, ::lCheck )
EndIf

Return Nil

//----------------------------------------------------------------------------//

METHOD EraseBkGnd( hDC ) CLASS TBarCodeW

   if ::oWnd != nil .and. IsAppThemed() .and. ;
      Upper( ::oWnd:ClassName() ) $ "TFOLDER,TREBAR,TGROUP,TPANEL"
      DrawPBack( ::hWnd, hDC )
      return 1
   endif

return 1 // Super:EraseBkGnd( hDC )

//----------------------------------------------------------------------------//

METHOD Paint() CLASS TBarCodeW
Local nLen := 0

IF ::cTipoBar $ "/CODE128/CODE3_9/SUP5/CODABAR/INT25/IND25/MAT25/"
    go_codeW( ::cCodeBar1, ::nTop, ::nLeft, ::oWnd, ::lHorizontal, ::nClrText, ::nWidthLine, ::nHeightLine )
EndIf

If ::cTipoBar $ "/EAN13/UPCA/EAN8/"

    If ::lHorizontal
        go_codeW( ::cCodeBar1, ::nTop, ::nLeft, ::oWnd, ::lHorizontal, ::nClrText, ::nWidthLine, ::nHeightLine * 0.90 )
    Else
        // **********************************************
        // OJO con nLen, no se está usando correctamente.
        // **********************************************
        //nLen :=round  ( nHeigth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) * 0.1
        //nLen := round  ( nCm2Pixels( ::oWndhDC, nLen, .F. ), 0 ) * 0.1
        nLen := round  ( nCm2Pixels( ::hDC, ::nHeightLine, .F. ), 0 ) * 0.1
       // 10% espacios
        go_codeW( ::cCodeBar1, ::nTop, ::nLeft + nLen, ::oWnd, ::lHorizontal, ::nClrText, ::nWidthLine, ::nHeightLine * 0.90 )
    End
    go_codeW( ::cCodeBar1, ::nTop, ::nLeft, ::oWnd, ::lHorizontal, ::nClrText, ::nWidthLine, ::nHeightLine )

EndIf

If ::cTipoBar = "EAN13"
    If ::lBanner
        barlen13W( ::cCode, ::oWnd, ::nTop, ::nLeft, ::nClrText, ::lHorizontal, ::nWidthLine, ::nHeightLine, ::cFont )
    End
ElseIf ::cTipoBar = "UPCA"
    If ::lBanner
        UPCA_barlenW( ::cCode, ::oWnd, ::nTop, ::nLeft, ::nClrText, ::lHorizontal, ::nWidthLine, ::nHeightLine, ::cFont )
    End
ElseIf ::cTipoBar = "EAN8"
    If ::lBanner
        barlenW( ::cCode, 7, ::oWnd, ::nTop, ::nLeft, ::nClrText, ::lHorizontal, ::nWidthLine, ::nHeightLine, ::cFont )
    End
ElseIf ::cTipoBar = "SUP5"
    If ::lBanner
        ban5W( ::cCode, ::oWnd, ::nTop, ::nLeft, ::nClrText, ::lHorizontal, ::nWidthLine, ::nHeightLine, ::cFont )
    End
EndIf

return nil

//----------------------------------------------------------------------------//

/*  Para visualizar los códigos de barra por pantalla.
    Basado en el desarrollo de Cayetano (Barlib).
    C.Gelabert 28/4/09
    ============================================== */

// funciones de llamadas de barlib
// chequean las posibles concordancias de datos
// y dan los errores

#include 'fivewin.ch'

// CODE 128

/*

    Code 128:

    Admite los 128 caracteres 0 - 127

    si s¢lo son n£meros se usa un modelo comprimido, llamado
    modo C
    Si hay caracteres < 32 se usa el m¢do A
    Si hay caracteres en minusculas se usa el modo B ( modo por defecto)

    Los modos se mezclan

    Sintaxis :

    code128W(nRow,nCol,cCode,oWnd,[cMode],[Color],
           [lOrientacion],[nAncho],[nAlto])

    nRow, nCol en Pixels
    nAncho,nAlto en Cm
*/

Function Code128W( nRow, nCol, cCode, oWnd, cMode, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _code128(cCode,cMode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_Code128W( nRow, nCol, cCode, oWnd, cMode, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return Code128W( nRow, nCol, cCode, oWnd, cMode, Color, lHorz, nWidth, nHeigth )


Function Code3_9W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _code3_9(cCode,lCheck), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_Code3_9W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth)
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return Code3_9W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )

Function ean13W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )
    local nLen
    // test de parametros
    // por implementar
    default nHeigth := 1.5
    default lBanner:=.f.
    // desplazamiento...
    if lHorz
        go_codeW( _ean13(cCode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    else
        //nLen :=round  ( nHeigth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) * 0.1
        nLen := round  ( nCm2Pixels( oWnd:GetDC(), nLen, .F. ), 0 ) * 0.1
        oWnd:ReleaseDC()
       // 10% espacios
            go_codeW( _ean13(cCode), nRow, nCol + nLen, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    end
    go_codeW( _ean13Bl(), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
    if lBanner
        barlen13W( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nHeigth, cFont )
    end
return nil


Function c_ean13W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return ean13W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )

Function UPCAW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )
    local nLen
    // test de parametros
    // por implementar
    default nHeigth := 1.5
    default lBanner:=.f.
    if lHorz
        go_codeW( _UPC(cCode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    else
        //nLen := round  ( nHeigth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) * 0.1
        nLen := ROUND( nCm2Pixels( oWnd:GetDC(), nLen, .F. ), 0 ) * 0.1
        oWnd:ReleaseDC()
       // 10% espacios
            go_codeW( _UPC(cCode), nRow, nCol + nLen, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    end
    go_codeW( _UPCABl(cCode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
    if lBanner
        UPCA_barlenW( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nHeigth, cFont )
    end
return nil


Function c_UPCAW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return UPCAW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )

Function ean8W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )
    local nLen
    // test de parametros
    // por implementar
    default nHeigth := 1.5
    default lBanner:=.f.
    if lHorz
        go_codeW( _UPC(cCode,7), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    else
        //nLen :=round  ( nHeigth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) * 0.1
        nLen := ROUND( nCm2Pixels( oWnd:GetDC(), nLen, .F. ), 0 ) * 0.1
        oWnd:ReleaseDC()
       // 10% espacios
            go_codeW( _UPC(cCode,7), nRow, nCol + nLen, oWnd, lHorz, Color, nWidth, nHeigth * 0.90 )
    end
    go_codeW( _ean13Bl(8), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
    if lBanner
        barlenW( cCode, 7, oWnd, nRow, nCol, Color, lHorz, nWidth, nHeigth, cFont )
    end
return nil


Function c_ean8W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return ean8W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )


Function sup5W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )
    // test de parametros
    // por implementar
    go_codeW( _sup5(cCode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
    if lBANNER
        ban5W( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nhEIGTH, cFont )
    end
return nil

Function c_Sup5W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return sup5W( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth, lBanner, cFont )


Function CodabarW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _Codabar(cCode), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_CodabarW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return CodabarW( nRow, nCol, cCode, oWnd, Color, lHorz, nWidth, nHeigth )

Function int25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _int25(cCode,lCheck), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_int25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return int25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )

Function ind25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _ind25(cCode,lCheck), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_ind25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return ind25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )

Function mat25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    // test de parametros
    // por implementar
    go_codeW( _mat25(cCode,lCheck), nRow, nCol, oWnd, lHorz, Color, nWidth, nHeigth )
return nil

Function c_mat25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )
    uCm2Pixels( oWnd:GetDC(), @nRow, @nCol )
    oWnd:ReleaseDC()
return mat25W( nRow, nCol, cCode, oWnd, lCheck, Color, lHorz, nWidth, nHeigth )

// imprime un codigo

#include 'FiveWin.ch'

FUNCTION Go_CodeW( cBarra, nx, ny, oWnd, lHoRz, nColor, nWidth, nLen )

Local n      := 0
Local oBr    := Nil
Local WndhDC := 0

//traza(1, "Inici" )

WndhDc := oWnd:GetDc()

    If Empty( nColor )
        nColor := CLR_BLACK
    EndIf

    DEFAULT lHorz  := .t.
    DEFAULT nWidth := 0.025 // 1/3 M/mm
    DEFAULT nLen   := 1.5 // Cmm.

    DEFINE BRUSH oBr COLOR nColor

    /*
    Traza( 1, "cbarra=", cbarra )
    traza( 1, "nx      =", nx )
    Traza( 1, "ny      =", ny )
    Traza( 1, "lHorz   =", lHoRz )
    Traza( 1, "ncolor  =", ncolor, CLR_BLACK )
    Traza( 1, "a-nWidth=", nWidth )
    Traza( 1, "a-nLen  =", nLen )
    */

    //    Width of Bar
    If !lHorz
        //nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nWidth := ROUND( nCm2Pixels( WndhDc, nWidth, .T. ), 0 )
    Else
       //nWidth := round  ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
       nWidth := ROUND( nCm2Pixels( WndhDc, nWidth, .F. ), 0 )
    EndiF

    // Len of bar
    If lHorz
        //nLen := round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nLen := ROUND( nCm2Pixels( WndhDc, nLen, .T. ), 0 )
    Else
       //nLen := round  ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
       nLen := ROUND( nCm2Pixels( WndhDc, nLen, .F. ), 0 )
    EndIf

    //Traza( 1, "b-nWidth=", nWidth )
    //Traza( 1, "b-nLen=", nLen )

    FOR n := 1 to Len( cBarra )

        If substr(cBarra,n,1) ='1'
            If lHorz
                //oPrint:fillRect({nx,ny,nx+nLen,(ny+=nWidth)},oBr)
                FillRect( WndhDc, {nx, ny, nx + nLen, (ny += nWidth)}, oBr:hBrush )
            Else
                //oPrint:fillRect({nx,ny,(nx+=nWidth),ny+nLen},oBr)
                FillRect( WndhDc, {nx, ny, (nx += nWidth), ny + nLen}, oBr:hBrush )
            EndIf
        Else
            If lHorz
                ny += nWidth
            Else
                nx += nWidth
            EndIf
        EndIf

    NEXT

    oBr:end()

oWnd:ReleaseDc()

//traza(1, "Fin" )

RETURN Nil

// labels on barcodes

#include "fivewin.ch"

FUNCTION barlen13W( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nLen, cFont)

    Local oFont, nLenChar, l , Control, k, n, nWidthChar
Local WndhDC := 0

    default lHorz := .t.

    default nWidth := 0.025 // 1/3 M/mm

    default nLen := 1.5 // Cmm.

    default cFont := 'arial'

    default Color := CLR_BLACK

WndhDC := oWnd:GetDC()

    k:=left(alltrim(cCode)+'000000000000',12) // padding with '0'

    // calculo del digito de control
     k := k + EAN13_CHECK( k )                           // Chaeck Digit en EAN13

    If !lHorz
        //nWidth := round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .T. ), 0 )
    else
        //nWidth := round  ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .F. ), 0 )
    EndIf

    // Len of bar
    If lHorz
        //nLen := round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .T. ), 0 )
    Else
        //nLen := round  ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .F. ), 0 )
    EndIf


/*
        nLenChar := nWidth*10
        nWidthChar:= nLen*0.3
        while .t.
            define font oFont name cFont of oPrInt size nLenChar , nLenChar/2 ;
                nescapement if(lHorz,0,13500)
            if oPrint:GetTextWidth( '888888', oFont )<=42*nWidth
                // alert(if(lHorz,'H:','V:')+str(nWidth*7)+str(nLenChar/(nWidth*7)))
                while .t.
                    define font oFont name cFont of oPrInt size nLenChar , nWidthChar ;
                        nescapement if(lHorz,0,13500)
                    if oPrint:GetTextHeigth( '8', oFont )<=0.2*nLen
                        alert(if(lHorz,'H:','V:')+str(nLen*0.2)+str(nWidthChar/(nLen*0.2)))
                        exit
                    else
                        nWidthChar-=0.2
                    end
                    oFont:end()
                enddo
                exit
            else
                nLenChar-=1
            end
            oFont:end()
        end
 *   nWidt -> 0.8
*/

    //DEFINE FONT oFont NAME cFont OF oPrInt SIZE nWidth * 5.6, nLen * 0.04 ;
    //            NESCAPEMENT If( lHorz, 0, 13500)

    DEFINE FONT oFont NAME cFont SIZE nWidth * 5.6, nLen * 0.24 ;
                NESCAPEMENT If( lHorz, 0, 13500)

    If lHorz
        //oPrint:say( nRow + nLen * 0.9, nCol - nWidth * 8, Left(k, 1), oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol - nWidth * 8, Left(k, 1), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 3, Substr(k, 2, 6), oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 3, SubStr(k, 2, 6), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 50, Substr(k, 8, 6), oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 50, SubStr(k, 8, 6), Color, Nil, oFont, .T., Nil, Nil )
    Else
        //oPrint:say( nRow - nWidth * 8, nCol + nLen * 0.1, Left(k, 1), oFont, , Color)
            oWnd:Say( nRow - nWidth * 8, nCol + nLen * 0.1, Left(k, 1), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * 3, nCol + nLen * 0.1, substr(k, 2, 6), oFont, , Color)
            oWnd:Say( nRow + nWidth * 3, nCol + nLen * 0.1, SubStr(k, 2, 6), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * 50, nCol + nLen * 0.1, Substr(k, 8, 6), oFont, , Color)
            oWnd:Say( nRow + nWidth * 50, nCol + nLen * 0.1, SubStr(k, 8, 6), Color, Nil, oFont, .T., Nil, Nil )
    EndIf

    RELEASE oFont

oWnd:ReleaseDC()

RETURN Nil


FUNCTION barlenW( cCode, nDigs, oWnd, nRow, nCol, Color, lHorz, nWidth, nLen, cFont)

    Local oFont, nLenChar, l ,Control,k,s1,s2,n, Izda, dCha
Local WndhDC := 0

    DEFAULT lHorz := .t.
    DEFAULT nWidth := 0.025 // 1/3 M/mm
    DEFAULT nLen := 1.5 // Cmm.
    DEFAULT cFont := 'arial'
    DEFAULT Color := CLR_BLACK
    DEFAULT nDigs := 11

WndhDC := oWnd:GetDC()

    // calculo del digito de control
    k := Left(Alltrim(cCode) + '000000000000', nDigs) // padding with '0'

    // calculo del digito de control
    k = k + Upc_CHECK(cCode, nDigs)                     // cCode,nLen

    nDigs++
    dcha := Right(K, nDigs / 2)
    izda := Left(k, nDigs / 2)

    If !lHorz
        //nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .T. ), 0 )
    Else
        //nWidth :=round  ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .F. ), 0 )
    EndIf

    // Len of bar
    If lHorz
        //nLen :=round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .T. ), 0 )
    Else
        //nLen :=round  ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .F. ), 0 )
    EndIf

    //define font oFont name cFont of oPrInt size nWidth*5.6 , nLen*0.04 ;
    //            nescapement if(lHorz,0,13500)

    DEFINE FONT oFont NAME cFont SIZE nWidth * 5.6 , nLen * 0.24 ;
                NESCAPEMENT If(lHorz, 0, 13500)

    // fisrt letter
    If lHorz
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 3, Izda, oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 3, Izda, Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * ( int(nDigs) / 2 * 7 + 8), dcha, oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * ( int(nDigs) / 2 * 7 + 8), dcha, Color, Nil, oFont, .T., Nil, Nil )
    Else
        //oPrint:say( nRow + nWidth * 3, nCol + nLen * 0.1, izda, oFont, , Color)
            oWnd:Say( nRow + nWidth * 3, nCol + nLen * 0.1, izda, Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * (nDigs / 2 + 8), nCol + nLen * 0.1, dcha, oFont, , Color )
            oWnd:Say( nRow + nWidth * (nDigs / 2 + 8), nCol + nLen * 0.1, dcha, Color, Nil, oFont, .T., Nil, Nil )
    EndIf

    RELEASE oFont

oWnd:ReleaseDC()

return nil


FUNCTION ban5W( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nLen, cFont)

    Local oFont, nLenChar, k,n, oPen
Local WndhDC := 0

    DEFAULT lHorz := .t.
    DEFAULT nWidth := 0.025 // 1/3 M/mm
    DEFAULT nLen := 1.5 // Cmm.
    DEFAULT cFont := 'arial'
    DEFAULT Color := CLR_BLACK

WndhDC := oWnd:GetDC()

    ccode := Left(Alltrim(cCode) + '000000000000', 5) // padding with '0'

    If !lHorz
        //nWidth := round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .T. ), 0 )
    Else
       //nWidth := round  ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
       nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .F. ), 0 )
    EndIf

    // Len of bar
    If lHorz
        //nLen :=round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .T. ), 0 )
    Else
        //nLen :=round  ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .F. ), 0 )
    EndIf

    //define font oFont name cFont of oPrInt size nWidth*5.6 , nLen*0.04 ;
    //            nescapement if(lHorz,0,13500)
    DEFINE FONT oFont NAME cFont SIZE nWidth * 5.6 , nLen * 0.24 ;
                NESCAPEMENT If( lHorz, 0, 13500)

    //define pen oPen color CLR_WHITE of oPrint
    DEFINE PEN oPen COLOR CLR_WHITE

    k := ''
    FOR n := 1 to 4
        k += substr( cCode, n, 1) + ' '
    ENDFOR
    cCode := k + right( cCOde, 1)

    //Box( nTop, nLeft, nBottom, nRight )

    If lHorz
        //oPrint:box(nrow,ncol,nrow+nLen*.3,nCol+48*nWidth,oPen)
        Rectangle( WndhDC, nrow, ncol, nrow + nLen * .3, nCol + 48 * nWidth, oPen:hPen )
    Else
        //oPrint:box(nrow,ncol,nrow+41*nWidth,nCol+nLen*.3+48*nWidth,oPen)
        Rectangle( WndhDC, nrow, ncol, nrow + 41 * nWidth, nCol + nLen * .3 + 48 * nWidth, oPen:hPen )
    EndIf

    //oPrint:say(nRow,nCol,cCode,oFont,,Color)
    oWnd:Say( nRow, nCol, cCode, Color, Nil, oFont, .T., Nil, Nil )

    RELEASE oFont
    RELEASE oPen

oWnd:ReleaseDC()

RETURN Nil


FUNCTION UPCA_barlenW( cCode, oWnd, nRow, nCol, Color, lHorz, nWidth, nLen, cFont)

    Local oFont, nLenChar, l ,Control,k,n, Izda, dCha, nDigs:=11,oFont2
Local WndhDC := 0

    DEFAULT lHorz := .t.
    DEFAULT nWidth := 0.025 // 1/3 M/mm
    DEFAULT nLen := 1.5 // Cmm.
    DEFAULT cFont := 'arial'
    DEFAULT Color := CLR_BLACK

WndhDC := oWnd:GetDC()

    // calculo del digito de control
    k := Left(Alltrim(cCode) + '000000000000', nDigs) // padding with '0'
    // calculo del digito de control
    k = k + Upc_CHECK( cCode, nDigs)                     // cCode,nLen
    nDigs++
    dcha := Right(K, nDigs / 2)
    izda := Left(k, nDigs / 2)

    If !lHorz
        //nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .T. ), 0 )
    Else
        //nWidth :=round  ( nWidth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nWidth := ROUND( nCm2Pixels( WndhDC, nWidth, .F. ), 0 )
    EndIf

    // Len of bar
    IF lHorz
        //nLen :=round ( nLen * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .T. ), 0 )
    Else
        //nLen :=round  ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )
        nLen := ROUND( nCm2Pixels( WndhDC, nLen, .F. ), 0 )
    EndIf

    //define font oFont name cFont of oPrInt size nWidth*5.6 , nLen*0.04 ;
    //            nescapement if(lHorz,0,13500)
    //define font oFont2 name cFont of oPrInt size nWidth*5.6 , nLen*0.025 ;
    //            nescapement if(lHorz,0,13500)

    DEFINE FONT oFont NAME cFont SIZE nWidth * 5.6 , nLen * 0.24 ;
                NESCAPEMENT If(lHorz, 0, 13500)
    DEFINE FONT oFont2 NAME cFont SIZE nWidth * 5.6 , nLen * 0.15 ;
                NESCAPEMENT If(lHorz, 0, 13500)

    // fisrt letter

    If lHorz
        //oPrint:say( nRow + nLen * 0.9, nCol - nWidth * 8, left(k, 1), oFont2, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol - nWidth * 8, Left(k, 1), Color, Nil, oFont2, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 10, right(Izda, 5), oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 10, Right(Izda, 5), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 50, left( dcha, 5), oFont, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 50, Left( Dcha, 5), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nLen * 0.9, nCol + nWidth * 95, right( k, 1), oFont2, , Color)
            oWnd:Say( nRow + nLen * 0.9, nCol + nWidth * 95, Right( k, 1), Color, Nil, oFont2, .T., Nil, Nil )
    Else
        //oPrint:say( nRow - nWidth * 8, nCol + nLen * 0.1, left(k, 1),oFont2,,Color)
            oWnd:Say( nRow - nWidth * 8, nCol + nLen * 0.1, Left(k, 1), Color, Nil, oFont2, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * 10, nCol + nLen * 0.1, right( izda, 5), oFont, , Color)
            oWnd:Say( nRow + nWidth * 10, nCol + nLen * 0.1, Right( Izda, 5), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * 50, nCol + nLen * 0.1, left( dcha, 5), oFont, , Color)
            oWnd:Say( nRow + nWidth * 50, nCol + nLen * 0.1, Left( Dcha, 5), Color, Nil, oFont, .T., Nil, Nil )
        //oPrint:say( nRow + nWidth * 95, nCol + nLen * 0.1, right( k, 1), oFont2, , Color)
            oWnd:Say( nRow + nWidth * 95, nCol + nLen * 0.1, Right( k, 1), Color, Nil, oFont2, .T., Nil, Nil )
    EndIf

    RELEASE oFont
    RELEASE oFont2

oWnd:ReleaseDC()

RETURN Nil
//

#include "FiveWin.ch"

#define HORZSIZE          4
#define VERTSIZE          6
#define HORZRES           8
#define VERTRES          10
#define LOGPIXELSX       88
#define LOGPIXELSY       90


/* ****************************************************************************
Funciones para convertir PIXEL a Twip/Pulgadas/Centímetros y viceversa.

hDC -> oWnd:hDC or oPrn:hDC

   ************************************************************************* */

/* ******************************************************* */
FUNCTION nPixels2Twips( hDC, nPixels, lVertical )
Return (nPixels / GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) ) * 1440
/* ******************************************************* */
FUNCTION nTwips2Pixels( hDC, nTwips, lVertical )
Return (nTwips / 1440) * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) )
/* ******************************************************* */
FUNCTION nPixels2Inches( hDC, nPixels, lVertical )
Return (nPixels / GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
/* ******************************************************* */
FUNCTION nInches2Pixels( hDC, nInches, lVertical )
Traza( 1, "hDc                                                                     =", hDc )
Traza( 1, "nInches                                                                 =", nInches )
Traza( 1, "lVertical                                                               =", lVertical )
Traza( 1, "GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) )             =", GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
Traza( 1, "(nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )=", (nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) ) )
Return (nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
/* ******************************************************* */
FUNCTION nPixels2Cm( hDC, nPixels, lVertical )
Return nPixels2Inches( hDC, nPixels, lVertical ) * 2.54
/* ******************************************************* */
FUNCTION nCm2Pixels( hDC, nCm, lVertical )
Return nInches2Pixels( hDC, (nCm / 2.54), lVertical )
/* ******************************************************* */
FUNCTION uCm2Pixels( HdC, nCmy, nCmx )
nCmy := nCm2Pixels( hDC, nCmy, .T. )
nCmx := nCm2Pixels( hDC, nCmx, .F. )
Return Nil

FUNCTION  Traza()
Return " "

 


Son ficheros independientes, donde veas #include "FiveWin.ch" es que empieza otro fichero.
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1167
Joined: Mon Oct 10, 2005 2:38 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby FiveWiDi » Sat May 31, 2014 8:55 am

Me dejaba el BARCODEW.CH

Code: Select all  Expand view

#ifndef _BARCODE_
#define _BARCODE_

#translate @ <nRow>, <nCol> CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, <cMode>, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE128", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, <cMode>, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE128", <.design.>, .F. )

#translate @ <nRow>, <nCol> CODE3_9W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE3_9", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODE3_9W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE3_9", <.design.>, .F. )

#translate @ <nRow>, <nCol> EAN13W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN13", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_EAN13W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN13", <.design.>, .F. )

#translate @ <nRow>, <nCol> UPCAW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "UPCA", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_UPCAW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "UPCA", <.design.>, .F. )

#translate @ <nRow>, <nCol> EAN8W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN8", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_EAN8W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN8", <.design.>, .F. )

#translate @ <nRow>, <nCol> SUP5W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "SUP5", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_SUP5W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "SUP5", <.design.>, .F. )

#translate @ <nRow>, <nCol> CODABARW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODABAR", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODABARW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODABAR", <.design.>, .F. )

#translate @ <nRow>, <nCol> INT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "INT25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_INT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "INT25", <.design.>, .F. )

#translate @ <nRow>, <nCol> IND25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "IND25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_IND25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "IND25", <.design.>, .F. )

#translate @ <nRow>, <nCol> MAT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "MAT25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_MAT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "MAT25", <.design.>, .F. )

#ENDIF



/* ***************************************************************************************** */

/*
#translate @ <nRow>, <nCol> CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                => ;
        Code128W( <nRow>, <nCol> , <cCode>, <oWnd>, <cMode> ;
                ,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
*/


#translate @ <nRow>, <nCol> BARCODEW [ <oBarCodeW> PROMPT ] <cCode> ;
                [ <predef: CODE128, CODE3_9, EAN13, UPCA, EAN8, SUP5, ;
                           CODABAR, INT25, IND25, MAT25> ] ;
                [ OF <oWnd>] ;
                [ <lCheck:CHECK> ] ;
                [ MODE <cMode>] ;
                [ COLOR <nColor> ] ;
                [ <lVert:VERTICAL> ];
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design: DESIGN >  ] ;
                [ <lPixel: PIXEL, PIXELS > ] ;
                => ;
        <oBarCodeW> := TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                                        <.lCheck.>, <cMode>,<nColor>, .not. <.lVert.>, ;
                                        <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                                        Upper(<(predef)>), <.design.>, <.lPixel.> )

 
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1167
Joined: Mon Oct 10, 2005 2:38 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby ACC69 » Sat May 31, 2014 1:52 pm

FiveWiDi wrote:Me dejaba el BARCODEW.CH

Code: Select all  Expand view

#ifndef _BARCODE_
#define _BARCODE_

#translate @ <nRow>, <nCol> CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, <cMode>, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE128", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, <cMode>, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE128", <.design.>, .F. )

#translate @ <nRow>, <nCol> CODE3_9W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE3_9", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODE3_9W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODE3_9", <.design.>, .F. )

#translate @ <nRow>, <nCol> EAN13W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN13", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_EAN13W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN13", <.design.>, .F. )

#translate @ <nRow>, <nCol> UPCAW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "UPCA", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_UPCAW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "UPCA", <.design.>, .F. )

#translate @ <nRow>, <nCol> EAN8W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN8", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_EAN8W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "EAN8", <.design.>, .F. )

#translate @ <nRow>, <nCol> SUP5W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "SUP5", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_SUP5W  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                         "SUP5", <.design.>, .F. )

#translate @ <nRow>, <nCol> CODABARW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODABAR", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_CODABARW  <cCode> ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         Nil, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "CODABAR", <.design.>, .F. )

#translate @ <nRow>, <nCol> INT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "INT25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_INT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "INT25", <.design.>, .F. )

#translate @ <nRow>, <nCol> IND25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "IND25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_IND25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "IND25", <.design.>, .F. )

#translate @ <nRow>, <nCol> MAT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "MAT25", <.design.>, .T. )

#translate @ <nRow>, <nCol> CM_MAT25W  <cCode> ;
                [ <lCheck:CHECK> ] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                [ <design:DESIGN>] ;
                => ;
        TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                         <.lCheck.>, Nil, <nColor>, .not. <.lVert.>, ;
                         <nWidth>, <nSize>, Nil, Nil, ;
                         "MAT25", <.design.>, .F. )

#ENDIF



/* ***************************************************************************************** */

/*
#translate @ <nRow>, <nCol> CODE128W  <cCode> ;
                [ MODE <cMode>] ;
                [ <lVert:VERTICAL> ];
                [ COLOR <nColor> ] ;
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ OF <oWnd>] ;
                => ;
        Code128W( <nRow>, <nCol> , <cCode>, <oWnd>, <cMode> ;
                ,<nColor>, .not. <.lVert.>, <nWidth>, <nSize> )
*/


#translate @ <nRow>, <nCol> BARCODEW [ <oBarCodeW> PROMPT ] <cCode> ;
                [ <predef: CODE128, CODE3_9, EAN13, UPCA, EAN8, SUP5, ;
                           CODABAR, INT25, IND25, MAT25> ] ;
                [ OF <oWnd>] ;
                [ <lCheck:CHECK> ] ;
                [ MODE <cMode>] ;
                [ COLOR <nColor> ] ;
                [ <lVert:VERTICAL> ];
                [ WIDTH <nWidth> ] ;
                [ SIZE <nSize> ] ;
                [ <lBanner:BANNER> ] ;
                [ FONT <cFont> ] ;
                [ <design: DESIGN >  ] ;
                [ <lPixel: PIXEL, PIXELS > ] ;
                => ;
        <oBarCodeW> := TBarCodeW():New( <nRow>, <nCol>, <cCode>, <oWnd>, ;
                                        <.lCheck.>, <cMode>,<nColor>, .not. <.lVert.>, ;
                                        <nWidth>, <nSize>, <.lBanner.>, <cFont>, ;
                                        Upper(<(predef)>), <.design.>, <.lPixel.> )

 



Hola buenos dias Fivewidi, gracias por tu interes, entonces es algo complicado visualizar en dialogo los codigos de barras!...crei que con esta sencilla rutina,podria visualizar en la pantalla de dialogo.

Entonces como ya hice prueba de visualizar en reporte de pantalla, al igual me manda numero 1, pero sin codigo de barra, con el ejemplo y funcion expuesta por el Ing. cmsoft.

Por otro lado la clase de cayetano, funciona solo para imprimir en los reportes y leer con el lector o escaner, es verdad eso?, ya que anduve en el foro investigando, y me doy a entender que la clase, es para impresion de codigos de barras .
Necesitare investigar mas y compilar junto con las clases de Cayetan, ya que sinceramente nunca he hecho codigos o etiquetas de barras, y yo creia que con ea sencilla instruccion podria visualizar en dialogo.

Saludo y gracias por el codigo fuente Fivewidi, le echare un vistaso a ver como sale te lo agradezco Ing. Fivewidi.

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby sysctrl2 » Sat May 31, 2014 5:02 pm

yo uso BARLIB,
sin problemas,
saludos.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1014
Joined: Mon Feb 05, 2007 7:15 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby ACC69 » Sat May 31, 2014 5:27 pm

sysctrl2 wrote:yo uso BARLIB,
sin problemas,
saludos.



Hola gracias por tu interes Cesart, pero el detalle, no veo algun ejemplo de como funciona la clase de cayetano,ya logre bajarlo que anduve investigando en el foro,pero no contiene algun ejemplo de como funciona, pero no se si tampoco hubo algun cambio reciente en la clase o que se yo!, pero solo veo las clases ,excepto algun ejemplo, alguien me puede orientar con algun ejemplo, contiene las funciones, de EAN13, CODE39,CODE128 etc etc, y sobre todo que me recomienden, cual es lo recomendable a usar en dos parametros, uno para codigo de barras de productos en ventas, y otro, para imprimir y escanear Carnet de entrada y salida de empleados. con cual funcion seria recomendable, ya que veo muchas funciones, dentro de la clase de cayetano, como los que me mencione, y que imprima impresoras laser, ya que no tengo impresora matriz, ya creo que ni existe.
Algun ejemplo del funcionamiento, uno para codigo de barras de productos y otro, como tarjeta de entrada y salida empleados.

Saludos y buen dia.!

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby Kleyber » Sat May 31, 2014 6:07 pm

Adrian,

He conseguido poner el codigo de barras en un dialogo, usando la clase VRDBCode de Timm Soldtalbers y que funciona de la siguiente forma:

Code: Select all  Expand view

// para enterar con el codigo de barras y actualizar el dialogo con el codigo
REDEFINE GET oCodBar         VAR cCodBar ID 65  PICTURE "9999999999999" OF oFld:aDialogs[ 1 ] UPDATE VALID (oFld:aDialogs[ 1 ]:Refresh(), .t.)

oFld:aDialogs[ 1 ]:bPainted = { | hDC | DrawTestBarcode( hDC, cCodBar ) }

....
....

//----------------------------------------------------------------------------//
Static FUNCTION DrawTestBarcode( hDC,  cCodBar )
// Mostrar o código de barras na dialog
//----------------------------------------------------------------------------//

   LOCAL oBC3

   @ 266, 413 BARCODE oBC3 DEVICE hDC PROMPT cCodbar TYPE EAN13 SIZE 300, 45

   SHOWBARCODE oBC3

RETURN (.T.)

 


Solo tienes que definir las coordenadas del codigo para que te aparezca en tu formulario.

Espero te ayude.

Saludos,
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
Kleyber
 
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...

Postby ACC69 » Sat May 31, 2014 8:26 pm

Kleyber wrote:Adrian,

He conseguido poner el codigo de barras en un dialogo, usando la clase VRDBCode de Timm Soldtalbers y que funciona de la siguiente forma:

Code: Select all  Expand view

// para enterar con el codigo de barras y actualizar el dialogo con el codigo
REDEFINE GET oCodBar         VAR cCodBar ID 65  PICTURE "9999999999999" OF oFld:aDialogs[ 1 ] UPDATE VALID (oFld:aDialogs[ 1 ]:Refresh(), .t.)

oFld:aDialogs[ 1 ]:bPainted = { | hDC | DrawTestBarcode( hDC, cCodBar ) }

....
....

//----------------------------------------------------------------------------//
Static FUNCTION DrawTestBarcode( hDC,  cCodBar )
// Mostrar o código de barras na dialog
//----------------------------------------------------------------------------//

   LOCAL oBC3

   @ 266, 413 BARCODE oBC3 DEVICE hDC PROMPT cCodbar TYPE EAN13 SIZE 300, 45

   SHOWBARCODE oBC3

RETURN (.T.)

 


Solo tienes que definir las coordenadas del codigo para que te aparezca en tu formulario.

Espero te ayude.

Saludos,



Hola gracias por tu interes Kleyber, y donde puedo conseguir la clase que mencionas VRDBCode, esa si no me la sabia, y aun sigo con el dilema de como imprimir mi codigo de barras,ya que no tengo ejemplos y que alguien me proporcione el ejemplo, sigo batallando con eso ya le busque por todos lados, y me bota error tras error, que no logro imprimir tan siquiera mi credencial, o codigo de productos de barras.

Gracias Kleyber y saludos.

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Postby Kleyber » Sun Jun 01, 2014 3:20 pm

How can I send you the class?
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
Kleyber
 
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Postby ACC69 » Sun Jun 01, 2014 4:12 pm

Kleyber wrote:How can I send you the class?


Hola Kleyber buen dia Ing. y gracias por el interes al tema, si seria tan amable de enviarme a mi correo ..!

acc69@hotmail.com

Saludos y buen dia.!

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Postby Kleyber » Sun Jun 01, 2014 9:07 pm

Enviado.
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
Kleyber
 
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil
Top

Re: EFECTO CODIGO BARRA EN DIALOGO...(Cerrado)

Postby ACC69 » Mon Jun 02, 2014 2:16 pm

Kleyber wrote:Enviado.



Hola bueno dias Ing. Kleyber, gracias muy amable, recibi la clase que me envio y lo adaptare al dialogo, muchas gracias te lo agradezco.

Saludos y buen dia.!

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 43 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group