Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

error _ntag

https://forum.xailer.com/viewtopic.php?t=6148

Página 1 de 1

error _ntag

Publicado: Jue Nov 02, 2006 1:38 pm
por PILO
Me da este error
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFEXPLOTA:_NTAG
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFEXPLOTA:FORMINITIALIZE (54)
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)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 13
Filtro:
Relación:
Orden del í­ndice: 0
Clave activa: 0
En el codigo siguiente:
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:Open()
::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_PASTE",,, "Ordeando", {|| ::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
--

error _ntag

Publicado: Jue Nov 02, 2006 6:07 pm
por zeasoftware
cheka mas arriba de donde copiaste esto, tiene definido nTag
Data nTag Inline Write ::::::::::::::::
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=4549e6bd@news.xailer.com...]4549e6bd@news.xailer.com...[/email]
Me da este error
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFEXPLOTA:_NTAG
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFEXPLOTA:FORMINITIALIZE (54)
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)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 13
Filtro:
Relación:
Orden del í­ndice: 0
Clave activa: 0
En el codigo siguiente:
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:Open()
::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_PASTE",,, "Ordeando", {|| ::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
--

error _ntag

Publicado: Sab Nov 04, 2006 11:43 pm
por PILO
Tenia que crear el metodo ntag
Gracias de todas formas
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=454a25db@news.xailer.com...]454a25db@news.xailer.com...[/email]
cheka mas arriba de donde copiaste esto, tiene definido nTag
Data nTag Inline Write ::::::::::::::::
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=4549e6bd@news.xailer.com...]4549e6bd@news.xailer.com...[/email]
Me da este error
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFEXPLOTA:_NTAG
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFEXPLOTA:FORMINITIALIZE (54)
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)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 13
Filtro:
Relación:
Orden del í­ndice: 0
Clave activa: 0
En el codigo siguiente:
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:Open()
::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_PASTE",,, "Ordeando", {|| ::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
--

error _ntag

Publicado: Dom Nov 05, 2006 12:17 am
por zeasoftware
Si no lo encontrabas solo es cuestion de decirlo, estamos para ayudarnos,
Saludos.

PROPERTY nTag INIT 1 WRITE InLine ::SetTag( Value )
::::
end class
//---------------------------------------------------------- --------------------
METHOD SetTag( nTag ) CLASS ZCatMaintenance
if nTag > len( ::aTags )
nTag := 1
endif
::FnTag := nTag
if ::oDataSet != nil
::oDataSet:OrdSetFocus( nTag )
::oDataSet:GoTop()
::cTagName := ::aTags[ nTag ]
Eval(::bOnchangeTag, ::cTagName, nTag)
endif
if ::oDBBrowse1 != nil
::oDBBrowse1:Refresh( .t. )
endif
if ::oOptionList1 != nil
WITH OBJECT ::oOptionList1
:aItems[1]:cText := "Orden: " + ::aTags[ nTag ]
End With
End
RETURN nil
//---------------------------------------------------------- --------------------
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=454d1770@news.xailer.com...]454d1770@news.xailer.com...[/email]
Tenia que crear el metodo ntag
Gracias de todas formas
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=454a25db@news.xailer.com...]454a25db@news.xailer.com...[/email]
cheka mas arriba de donde copiaste esto, tiene definido nTag
Data nTag Inline Write ::::::::::::::::
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=4549e6bd@news.xailer.com...]4549e6bd@news.xailer.com...[/email]
Me da este error
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFEXPLOTA:_NTAG
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFEXPLOTA:FORMINITIALIZE (54)
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)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 13
Filtro:
Relación:
Orden del í­ndice: 0
Clave activa: 0
En el codigo siguiente:
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::odbfDataSet1:Open()
::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_PASTE",,, "Ordeando", {|| ::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
--
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España