In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

error _ntag

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

error _ntag

Mensaje 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
--
Arriba
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

error _ntag

Mensaje 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
--
Arriba
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

error _ntag

Mensaje 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
--
Arriba
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

error _ntag

Mensaje 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
--
Arriba
Responder

Volver a “Xailer Pro Spanish”