Hola a todos
Necesito ayuda, me sale este error al usar la teclas con BTNGET32
Called from: TGET.PRG => TBTNGET:KEYDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: TGET.PRG => TBTNGET:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Gracias por su ayuda
Saludos
Adhemar
Error al usar la teclas con BTNGET32
Pon un pedazo del codigo de donde lo llamas....
Que #includes usas y que version dela BTNGET tienes
Desde Chile
Adolfo
Que #includes usas y que version dela BTNGET tienes
Desde Chile
Adolfo
![Wink ;-)](./images/smilies/icon_wink.gif)
http://www.xdata.cl - Desarrollo Inteligente
----------
Lenovo Legion Y520, 16GB Ram, 1 TB NVME M.2, 1 TB SSD, GTX 1050
Estos son los includes
#include "FiveWin.ch"
#include "TSBrowse.ch"
#include "TSButton.ch"
#include "DtPicker.ch"
#include "BtnGet.ch" del 10/10/2004
La lib BTNGET32 esta compilada con xHarbour
REDEFINE BTNGET oDBf:CodUbic ID 103 OF oDlg1 PICTURE "@Z 999" WHEN lBdr;
VALID {|| Ubica->( dBSeek( StrZero(oDBF:CodUbic,3) ) ),;
iif( Ubica->( Eof() ), ( MsgStop( "La ubicacion NO EXISTE","Error..." ), .f. ), ;
( oSUbi:Refresh(),.T. ) ) } ;
RESOURCE "Buscar" ACTION (BuscaItem("Ubica",1,2,"Ubica","Ubica2"), oDlg1:aControls[5]:SetFocus())
REDEFINE SAY oSUbi VAR OemToAnsi(Ubica->UBICACION) ID 104 OF oDlg1 UPDATE
Costos->( dBSeek( oDBF:CCOSTOS ) )
REDEFINE BTNGET oDBF:CCOSTOS ID 105 OF oDlg1 WHEN lBdr;
VALID {|| Costos->( dBSeek( oDBF:CCOSTOS ) ), ;
iif( Costos->( Eof() ), ( MsgStop( "El Costo NO EXISTE","Error..." ), .f. ), ;
( oSCos:Refresh(),.T. ) ) } ;
PICTURE "@!" ;
RESOURCE "Buscar" ACTION (BuscaItem("Costos",1,2,"Centros","Centros2"), oFld:aDialogs[1]:aControls[1]:SetFocus())
REDEFINE SAY oSCos VAR OemToAnsi(Costos->CENTRO) ID 106 OF oDlg1 UPDATE
Esto con 16bit me funciona y con 32 no.
Gracias.
Saludos desde Bolivia
Adhemar
#include "FiveWin.ch"
#include "TSBrowse.ch"
#include "TSButton.ch"
#include "DtPicker.ch"
#include "BtnGet.ch" del 10/10/2004
La lib BTNGET32 esta compilada con xHarbour
REDEFINE BTNGET oDBf:CodUbic ID 103 OF oDlg1 PICTURE "@Z 999" WHEN lBdr;
VALID {|| Ubica->( dBSeek( StrZero(oDBF:CodUbic,3) ) ),;
iif( Ubica->( Eof() ), ( MsgStop( "La ubicacion NO EXISTE","Error..." ), .f. ), ;
( oSUbi:Refresh(),.T. ) ) } ;
RESOURCE "Buscar" ACTION (BuscaItem("Ubica",1,2,"Ubica","Ubica2"), oDlg1:aControls[5]:SetFocus())
REDEFINE SAY oSUbi VAR OemToAnsi(Ubica->UBICACION) ID 104 OF oDlg1 UPDATE
Costos->( dBSeek( oDBF:CCOSTOS ) )
REDEFINE BTNGET oDBF:CCOSTOS ID 105 OF oDlg1 WHEN lBdr;
VALID {|| Costos->( dBSeek( oDBF:CCOSTOS ) ), ;
iif( Costos->( Eof() ), ( MsgStop( "El Costo NO EXISTE","Error..." ), .f. ), ;
( oSCos:Refresh(),.T. ) ) } ;
PICTURE "@!" ;
RESOURCE "Buscar" ACTION (BuscaItem("Costos",1,2,"Centros","Centros2"), oFld:aDialogs[1]:aControls[1]:SetFocus())
REDEFINE SAY oSCos VAR OemToAnsi(Costos->CENTRO) ID 106 OF oDlg1 UPDATE
Esto con 16bit me funciona y con 32 no.
Gracias.
Saludos desde Bolivia
Adhemar
TE envio los fuentes de la BTNGET probada para xHarbour.
Revisa tu mail.
Desde Chile
Adolfo
Revisa tu mail.
Desde Chile
Adolfo
![Wink ;-)](./images/smilies/icon_wink.gif)
http://www.xdata.cl - Desarrollo Inteligente
----------
Lenovo Legion Y520, 16GB Ram, 1 TB NVME M.2, 1 TB SSD, GTX 1050
Problemas con BTNGET32
Gracias Adolfo
Ahora funcionan las teclas, y no sale el boton para llamar a la base,
Hay otra manera de llamar a una base desde un GET, para no usar el BTNGET
Saludos
Adhemar
Ahora funcionan las teclas, y no sale el boton para llamar a la base,
Hay otra manera de llamar a una base desde un GET, para no usar el BTNGET
Saludos
Adhemar