error al entrar en formulario
Publicado: Lun Oct 30, 2006 5:08 pm
Me da el siguiente error cuando entro en el formulario
Subsistema: BASE
Código de error: 1002
Estado: .F.
Descripción: Alias does not exist
Operación:
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TDBFDATASET:GETTAGS (1101)
TFEXPLOTA:FORMINITIALIZE (41)
TFEXPLOTA:ONINITIALIZE (0)
TFEXPLOTA:NEW (183)
TMENUSRMPILO:MENU1ITEM1_1CLICK (36)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TMENUSRMPILO:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (20)
Cuando entro en el siguiente medoto de la class
en la linea marcada sale el anterior error
METHOD FormInitialize( oSender ) CLASS TFexplota
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:lOpen()
::aTags := ::odbfDataSet1:GetTags()
::odbfDataSet1:OrdSetFocus("")
FOR nFor := 1 to len( ::aTags )
WITH OBJECT TMenuItem():New( oSortMenu )
:cText := "Order by " + ::aTags[ nFor ]
:Cargo := nFor
:OnClick := {|o| ::nTag := o:Cargo }
:Create()
END
NEXT
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:Create()
//::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {|| ::nTag++ }, oSortMenu )
//::nTag := 1
// WITH OBJECT ::oFilterBtn := :AddButton( "", "BMP_Filtrar",,, "Filtrado", {|| ::Filter() } )
// :lChecked := .f.
// END
// :AddSeparator()
:AddButton( "","bmp_Primero" ,,,"Primero", {|| ::oDBBrowse1:GoTop() } )
:AddButton( "","bmp_Anterior" ,,,"Anterior", {|| ::oDBBrowse1:GoUp() } )
:AddButton( "","bmp_Siguiente" ,,,"Siguiente", {|| ::oDBBrowse1:GoDown() } )
:AddButton( "","bmp_Ultimo" ,,,"Ultimo", {|| ::oDBBrowse1:GoBottom() } )
:AddButton( "","bmp_Salir" ,,,"Salir", {|| ::Close() } )
END
/*:AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
:AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
:AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
:AddSeparator()
:AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
:AddSeparator()
*/
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "bmp_lupa"
:OnBtnClick := {|o| ::oDBBrowse1:Seek( o:Value ), nil }
:nMaxLength := 100
:Create()
::oDBBrowse1:oSeek := ::oEdiBusqueda
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:cText := "Búsqueda:"
:oControl := ::oEdiBusqueda
:Create()
END
RETURN Nil
El dataset esta trabajando en C:srmilbroexplota.dbf
y el tdcxdata lo pongo C:srmilbroexplota.cdx y lo
cambia por C:srmilbroexplota.dbf
como lo tengo que poner para que salga bien
--
Subsistema: BASE
Código de error: 1002
Estado: .F.
Descripción: Alias does not exist
Operación:
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TDBFDATASET:GETTAGS (1101)
TFEXPLOTA:FORMINITIALIZE (41)
TFEXPLOTA:ONINITIALIZE (0)
TFEXPLOTA:NEW (183)
TMENUSRMPILO:MENU1ITEM1_1CLICK (36)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TMENUSRMPILO:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (20)
Cuando entro en el siguiente medoto de la class
en la linea marcada sale el anterior error
METHOD FormInitialize( oSender ) CLASS TFexplota
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:lOpen()
::aTags := ::odbfDataSet1:GetTags()
::odbfDataSet1:OrdSetFocus("")
FOR nFor := 1 to len( ::aTags )
WITH OBJECT TMenuItem():New( oSortMenu )
:cText := "Order by " + ::aTags[ nFor ]
:Cargo := nFor
:OnClick := {|o| ::nTag := o:Cargo }
:Create()
END
NEXT
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:Create()
//::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {|| ::nTag++ }, oSortMenu )
//::nTag := 1
// WITH OBJECT ::oFilterBtn := :AddButton( "", "BMP_Filtrar",,, "Filtrado", {|| ::Filter() } )
// :lChecked := .f.
// END
// :AddSeparator()
:AddButton( "","bmp_Primero" ,,,"Primero", {|| ::oDBBrowse1:GoTop() } )
:AddButton( "","bmp_Anterior" ,,,"Anterior", {|| ::oDBBrowse1:GoUp() } )
:AddButton( "","bmp_Siguiente" ,,,"Siguiente", {|| ::oDBBrowse1:GoDown() } )
:AddButton( "","bmp_Ultimo" ,,,"Ultimo", {|| ::oDBBrowse1:GoBottom() } )
:AddButton( "","bmp_Salir" ,,,"Salir", {|| ::Close() } )
END
/*:AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
:AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
:AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
:AddSeparator()
:AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
:AddSeparator()
*/
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "bmp_lupa"
:OnBtnClick := {|o| ::oDBBrowse1:Seek( o:Value ), nil }
:nMaxLength := 100
:Create()
::oDBBrowse1:oSeek := ::oEdiBusqueda
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:cText := "Búsqueda:"
:oControl := ::oEdiBusqueda
:Create()
END
RETURN Nil
El dataset esta trabajando en C:srmilbroexplota.dbf
y el tdcxdata lo pongo C:srmilbroexplota.cdx y lo
cambia por C:srmilbroexplota.dbf
como lo tengo que poner para que salga bien
--