FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TxBrowse 8.12 nuevo error
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
TxBrowse 8.12 nuevo error
Posted: Mon Jan 05, 2009 02:45 PM
Hola a todos

Bueno ya me actualic茅 y los errores que ten铆a se fueron, peroooooooooooo, :-) no pod铆a faltar el pero, obtengo un nuevo error.
En el di谩logo de albaranes tengo tres botones, aceptar, cancelar y salir. El primero acepta los datos, graba la cabecera y las lineas del albar谩n y prosigue el di谩logo, para un nuevo albar谩n. El segundo cancela todos los datos y vuelve para introducir de nuevo un albar谩n. El tercero es para salir del di谩logo.
Pues bien, si pulso el boton cancelar y despues de poner la pantalla con tan s贸lo el n煤mero de albar谩n y la fecha,(datos iniciales predefinidos) y a continuaci贸n pulso el boton salir, obtengo este error.
Code: Select all Collapse
 Error description: Error BASE/1066  Argument error: conditional
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:END(0)
   Called from: C:\PROYEC~1\Gfactu\Source\gesh0200.prg => (b)ALBARANES(219)
   Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK(0)
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
   Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => SENDMESSAGE(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: C:\PROYEC~1\Gfactu\Source\gesh0200.prg => ALBARANES(224)
   Called from: C:\PROYEC~1\Gfactu\Source\geshinic.prg => (b)MAIN(86)
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(0)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SHOWPOPUP(0)
   Called from: C:\PROYEC~1\Gfactu\Source\geshinic.prg => (b)MAIN(96)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(0)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
   Called from: C:\PROYEC~1\Gfactu\Source\geshinic.prg => MAIN(179)


La l铆nea 219 que indica el error es esta :
REDEFINE BUTTONBMP ID 223 OF oDlgAlb BITMAP "SALIR1" TEXTRIGHT CANCEL ACTION oDlgAlb:End()
驴Alguna ayudita para esto?

Un saludo a todos
Pedro
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TxBrowse 8.12 nuevo error
Posted: Mon Jan 05, 2009 03:13 PM

Pedro.
creo que necesitamos ver mas lineas de codigo...
por lo que veo a simple vista el problema no esta en el browse

pon el codigo del boton cancelar...

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: TxBrowse 8.12 nuevo error
Posted: Mon Jan 05, 2009 05:02 PM
Hola Daniel

Este es el c贸digo de los tres botones, el error que comento no me hab铆a dado en la versi贸n anterior, ha salido en esta.

Code: Select all Collapse
REDEFINE BUTTONBMP ID 221 OF oDlgAlb BITMAP "ACEPTAR" TEXTRIGHT ;
             ACTION NUEVOALB(oBrw,oDlgAlb,lImprimir),;
                             oBrw:GoleftMost(),;
                             oDlgAlb:aControls[2]:SetFocus(),oDlgAlb:UPDATE() 
            
    REDEFINE BUTTONBMP ID 222 OF oDlgAlb BITMAP "CANCELAR" TEXTRIGHT ;
             ACTION CancelALB(oBrw,oDlgAlb),;
                    oBrw:GoLeftMost(),;
                    oDlgAlb:aControls[2]:SetFocus(),oDlgAlb:Update()
                         
    REDEFINE BUTTONBMP ID 223 OF oDlgAlb BITMAP "SALIR1" TEXTRIGHT CANCEL ACTION oDlgAlb:End()

El c贸digo de la funci贸n CancelAlb
Code: Select all Collapse
*-----------------------------------------------------------------------------
Function CANCELALB(oBrw,oDlgAlb )
*-----------------------------------------------------------------------------
Local nNumero 
Local dFecha  := aCabAlb[2]
 
      CPED->(IniCampo(@aCabAlb))
      CPED->(dbGoBottom())
      nNumero := CPED->numero +1
      aCabAlb[1]:= nNumero
      aCabAlb[2]:= dFecha
      TEMP->(__dbZap()) 
      TEMP->(dbAppend())
      oDlgAlb:Update()
      oBrw:Refresh()
Return nil


la funci贸n Inicampo, es similar al Gatter/Scatter de clipper, o a las funciones Load/Save de Database, simplemente inicializa una matriz con el tipo y longitud de campos de la tabla que se la pasa.
Como veras nada del otro mundo, si necesitas m谩s c贸digo te lo mando a tu correo

Un abrazo
Pedro
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TxBrowse 8.12 nuevo error
Posted: Mon Jan 05, 2009 05:13 PM

tienes alguna forma de hablar en linea, mi messenger es:danielgarciagil@cantv.net si tienes correo de gmail tambien podemos chartear por alli, danielgarciagil@gmail.com

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: TxBrowse 8.12 nuevo error
Posted: Mon Jan 05, 2009 06:10 PM
Bueno Gracias a Daniel ya est谩 solucionado el problema.

la soluci贸n est谩 en controlar la tecla escape en el valid
Code: Select all Collapse
ACTIVATE DIALOG oDlgAlb CENTER ;
        ON PAINT (oDlgAlb:aControls[2]:SetFocus(),oDlgAlb:Update());
        VALID (if ( GETKEYSTATE( VK_ESCAPE ), .f., Salir(oBarMain,oMenu,cBandera, oBrw,cTempLin)) )

Y en la funci贸n Salir activo el menu y la barra de botones, borro el temporal cTemplin, la bandera y finalizo el Browse oBrw

Gracias Daniel

Un saludo a todos
Pedro
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions