Aplicación
===========
Ruta y Nombre: C:\Sistemas\LoteNet\LoteNet.Exe Tamaño: 1,074,688 bytes
Error ocurrido el: 26/07/2008, 08:01:06
Sistema Activo durante: 0 hours 0 mins 5 secs
Nombre del Equipo: PABLOVIDAL
Error BASE/1004 Message not found: TXBROWSE:DEFCONTROL
-> MYERROR( 63 )
-> (b)ERRORSYS( 0 ) ::-> errorsys.prg
-> TXBROWSE:ERROR( 179 )
-> (b)HBOBJECT:HBOBJECT( 105 ) ::-> tobject.prg
-> TXBROWSE:MSGNOTFOUND( 0 )
-> TXBROWSE:DEFCONTROL( 167 ) ::-> XBROWSE.PRG
-> TGET:NEW( 318 ) ::-> TGET.PRG
-> TPREMIOS:NEWOP( 172 ) ::-> premios.prg
-> PREMIOS( 19 ) ::-> premios.prg
-> (b)BUILDBAR( 514 ) ::-> lotenet.prg
-> TTOOLBAR:COMMAND( 0 ) ::-> TOOLBAR.PRG
-> TWINDOW:COMMAND( 0 ) ::-> WINDOW.PRG
-> TMDIFRAME:COMMAND( 0 ) ::-> MDIFRAME.PRG
-> TMDIFRAME:HANDLEEVENT( 0 ) ::-> WINDOW.PRG
-> _FWH( 0 ) ::-> WINDOW.PRG
-> WINRUN( 0 )
-> TMDIFRAME:ACTIVATE( 0 ) ::-> WINDOW.PRG
-> MAIN( 136 ) ::-> lotenet.prg
y este es el codigo del programa
- Code: Select all Expand view RUN
//+--------------------------------------
//|
//+--------------------------------------
Method NewOp()
Local oBrw
Local oFecha
Local dFecha := date()
Local oDlg
Local oFnt
Local cc := 0
Local aHeader := { "Primero", "Segundo", "Tercero", "SuperPale", "Pega 3" }
Local nAt := 0
Local uValue := " "
DEFINE FONT oFnt NAME "ARIAL" SIZE 0, -16 BOLD
DEFINE DIALOG oDLG RESOURCE "DLG_PREMIOS_NEW"
REDEFINE DTPICKER oFecha VAR dFecha ID 101 OF oDlg Font oFnt
oBrw := TXBrowse():New( oDlg )
oBrw:SetArray( {{"Nacional Diaria","01","03","03","0102", "123" }, {"Leidsa","01","03","03","0102", "123" }}, .F. )
oBrw:nMarqueeStyle := 3 //MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := 1 //0
oBrw:nRowDividerStyle := 1 //0
oBrw:nHeaderLines := 1
oBrw:nDataLines := 1
oBrw:lColDividerComplete := .T.
oBrw:lRecordSelector := .F.
oBrw:lFastEdit := .T.
oBrw:nFreeze := 7
cc++
oBrw:aCols[cc]:cHeader := "Loteria"
oBrw:aCols[cc]:nWidth := 138
oBrw:aCols[cc]:nDataStrAlign := AL_LEFT
oBrw:aCols[cc]:nHeadStrAlign := AL_LEFT
oBrw:aCols[cc]:oDataFont := oFnt
oBrw:aCols[1]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][1] }
oBrw:aCols[2]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][2] }
oBrw:aCols[3]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][3] }
oBrw:aCols[4]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][4] }
oBrw:aCols[5]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][5] }
oBrw:aCols[6]:bStrData := { || oBrw:aArrayData[ oBrw:nArrayAt ][6] }
For nAt := 1 to 5
cc++
oBrw:aCols[cc]:cHeader := aHeader[nAt]
oBrw:aCols[cc]:nWidth := 60
oBrw:aCols[cc]:nDataStrAlign := AL_CENTER
oBrw:aCols[cc]:nHeadStrAlign := AL_CENTER
oBrw:aCols[cc]:oDataFont := oFnt
oBrw:aCols[cc]:nEditType := 1
oBrw:aCols[cc]:bOnPostEdit := { |o, v, n| iif( n != VK_ESCAPE, _FieldPut(o,v,n, oBrw, ofnt ), ) }
Next nAt
// El Problema esta cuando quiero modificar el Get de Edicion, por quiero
// poner las letras mas grande, y otro color de fondo.
// Inicio
uValue := Eval( oBrw:aCols[2]:bEditValue, " " )
oBrw:aCols[2]:oEditGet := TGet():New(0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },oBrw,0,0,"99" ,, CLR_HBLUE, CLR_YELLOW,oFnt,.F.,,.F.,,.F.,,.F.,.T.,,.F.,.f.,.T.,,.F.,,,,)
// Final
oBrw:lHScroll := .F.
oBrw:lVScroll := .T.
oBrw:SetRDD()
oBrw:CreateFromResource( 301 )
Activate Dialog oDlg Center
oFnt:End()
Return Nil
Static Function _FieldPut( oCol, xValue, nLastKey, oBrw, oFnt )
oBrw:aArrayData[ oBrw:nArrayAt ][ oCol:nPos ] := xValue
Return(.t.)
FWH 7.01 / xHarbour 0.99.71 / BCC5.5
