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
Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Lenovo Legion Y520, 16GB Ram, 1 TB NVME M.2, 1 TB SSD, GTX 1050
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
Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Lenovo Legion Y520, 16GB Ram, 1 TB NVME M.2, 1 TB SSD, GTX 1050
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