FiveTech Software tech support forums

... == 0 nAvance := 1 nIndex := 1 + nAvance endif oBmp:hBitmap = aBmp[ nIndex ] oBmp:Refresh() lWork := .f. endif return nil Static Function Fuentes( uVal ) //Bold, lItalic, lUnderline, lStrikeOut, nAncho ) local oFont, nFont, oFont2, nMargend //, cTextForm, nCrLf, lFocus, cChars local nLenFonts := ...

Antonio,
could you please post the values for:
HB_OO_MSG_CLSACCESS, uVal, HB_OO_CLSTP_EXPORTED
Thanks in advance
Otto

... RETURN Self METHOD Stabilize() CLASS TSalPrinterXLS RETURN Nil METHOD Say( nCol, xText, nFont, nPad, nRow, cPicture ) CLASS TSalPrinterXLS LOCAL uVal, ; nAlignamen := 0, ; nFormat := 0 DEFAULT xText := '', ; nFont := 1, ; nPad := RPT_LEFT // nFont:= ::cFont( nFont ) DO CASE CASE nPad == RPT_LEFT ...

... nil //----------------------------------------------------------------------------// METHOD CtlColor( hWndChild, hDCChild ) CLASS TDialog local uVal #ifndef __CLIPPER__ if ::oWnd != nil .and. Upper( ::oWnd:ClassName() ) $ "TFOLDER,TPAGES" ; .and. GetClassName( hWndChild ) $ "Button,Static" ...

... 230, 230, 230), RGB( 190, 215, 190 ) ) } oLbx:nClrForeHead:=CLR_BLUE *oLbx::bKeyDown :={|nKey| Val_nKey(nKey,oDlg)} oDlgClient:bSettingChange := {|uVal|PocketEvent( uVal,oDlgClient,olbx ) } ACTIVATE DIALOG oDlgClient; ON INIT ( SetOKButton( oDlgClient:hWnd ),; DlgFullScreen( oDlgClient:hWnd ), ...

... de configuración de UEStudio FWPPC\UEStudio\Application con la versión actual de Harbour. Gracias a Richard! * Mejora: Se ha mejorado la función uValBlank() respecto a la longitud de los valores numéricos cuanto tienden a cero. El comportamiento de la versión anterior estaba afectando al método ...

... * Enhancement: FWPPC\UEStudio\Application config file has been updated for recent Harbour version. Thanks to Richard! * Enhancement: function uValBlank() has been enhanced to respect the length of numeric values when turning them into zero. The previous behavior was affecting Class TDataBase ...

local uVal

.....

REDEFINE GET oGet VAR nNumber ID 100 PICT "99999" ;
OF oDlg UPDATE COLORS CLR_BLUE, nRGB(255,255,245) ;
VALID ( if ( Check_Number(oGet, nNumber), .t., ( nNumber:=uVal, oGet:refresh(), .f. ) ) )

oGet:bGotFocus:={|| uVal := nNumber }

i hope this help you...

... oBrw1 ARRAY ELEMENT 1 ; HEADER "Code" ; COLOR CLR_BLACK,CLR_WHITE ; 3DLOOK FALSE ; ALIGN DT_LEFT, DT_CENTER ; PICTURE "@!" ; SIZE 72 ; POSTEDIT {|uVal| if(uVal != nil, CheckBox44(oBrw1,oBrw2,padr(uVal,5),1),) } ; EDITABLE MOVE DT_MOVE_RIGHT ADD COLUMN TO oBrw1 ARRAY ELEMENT 2 ; HEADER "Value" ...

... := 1 // SETGET Sets or Gets de Edit Mode: 0=none, 1=Get, 2=Listbox, 3=block, 4=Get+Listbox, 5 = Get+block oCol:bOnPostEdit := {|oCol, uVal, nKey| if(nKey != VK_ESCAPE, FEditar(oCol,uVal,nKey,oBrw),) } ** oCol:bEditValid := {| o,u,n | FValidar( o,u,n ) } //Este ** oCol:cEditPicture ...

... ; // 5 HEADER "Nombre de la Cuenta" ; SIZE 180 PIXELS ; DATA (ContCat->Nombre) ; 3DLOOK TRUE ALIGN DT_LEFT, DT_CENTER, DT_CENTER ..... if uVal # 0 ContMov->( RLock() ) Replace ContMov->M_Abono with 0 ContMov->( DbCommit() ) ContMov->( DbUnLock() ) ::oLbx2:aColumns[ 3 ]:nEditMove ...

... LDblClick(), detecta si un control está en modo diseño (clausula DESIGN) y evita dejar el ratón capturado. * Nuevo: Nueva función cValToStr( uVal, cPicture ), similar a la función cValToChar() de FWH, pero que permite el uso de una máscara PICTURE, incluyendo máscaras extendidas para valores ...

... Method LDblClick(), it detects if a control is in design mode (clause DESIGN) and avoids to leave the mouse captured. * New: function cValToStr( uVal, cPicture ), similar to FWH cValToChar() but allows the use of a PICTURE mask, including extended pictures masks for dates values. * New: function ...

... } } * oBrw:Acolumns[ 5 ]:cFooting := { || LTrim( Transform( aSaldo, "#,###,###.##" ) ),oBrw:DrawFooters() } * FOOTER { | uVal | aSaldo += ( uVal - aSaldo ),Sumasaldo( aTestData,oBrw,oDlg) } * FOOTER { || Ltrim( Str( aSaldo,9,2 )) }

... de xBrowse] LastRec() -->> oRs:RecordCount() Recno() -->> oRs:BookMark FieldGet( n ) -->> oRs:Fields( n ):value FieldPut(n ,uval ) -->> oRs:Fields( n ):value := uVal Saludos y perdonad mi ignorancia. Carlos G.