FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Comportamiento desigual entre xharbour y harbour
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Comportamiento desigual entre xharbour y harbour
Posted: Sat Jun 14, 2014 11:42 PM
Hola compa帽eros. A que puede deberse que en xharbour este c贸digo se comporta correctamente , me pinta de distinto color aquellos recibos en los cuales los cheques diferidos ya han sido acreditados, y en harbour me muestra el listbox completamente vac铆o? y se bloquea el programa


Code (fw): Select all Collapse
....
   REDEFINE LISTBOX oBrw1 fields StrZero( ( oAjuste:cAlias )->ncli, 5 ), ;
      StrZero( ( oAjuste:cAlias )->recibo, 8 ), ;
      ( oAjuste:cAlias )->detalle, ;
      Transform( ( oAjuste:cAlias )->dolar, "@e 999,999.999" ), ;
      Transform( ( oAjuste:cAlias )->importe, "@e 99,999,999.99" )   ID 103 UPDATE;
      ON DBLCLICK  hnotas(  oAjuste, oBrw1 )
        

   oBrw1:aheaders := { "N潞 Cliente", "Recibo", "Detalle", "D贸lar", "Importe" }
   oBrw1:aColSizes := { 90, 90, 150, 95, 120 }
   oBrw1:aHjustify := {2,2,2,2,2}
   oBrw1:ajustify := {0,0,0,1,1}
   oBrw1:bSkip = {| nRecs | oAjuste:Skipper( nRecs ) }
   oBrw1:nLineStyle := 3
   oBrw1:nClrPane := { || iif(fechache(oAjuste:recibo,oCheque,oBrw1), cColor("verde"), cColor("")) }

etc,etc


STATIC FUNCTION fechache(nRecibo,oCheque,obrw1)
local lverdad := .t.

oCheque:gotop()
if oCheque:seek(nRecibo)
   do
      if oCheque:feccha >= Date()
         lverdad := .f.
      endif
      oCheque:skip()
   until oCheque:recibo != nRecibo
endif
 
obrw1:refresh()
return lverdad
//----------------------------------------------------------------------------//


Luis
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Comportamiento desigual entre xharbour y harbour
Posted: Sun Jun 15, 2014 12:35 AM

hola

por casualidad utilizas la clase twbrowse() de Hernan?

si es correcto, entonces elimina la wbrowse.obj de la libreria fiveh.lib

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Comportamiento desigual entre xharbour y harbour
Posted: Sun Jun 15, 2014 09:27 AM
Patricio utiliz贸 la clase de Hernan pero en todos los dem谩s m贸dulos funciona bien, es en esta rutina en particular que falla y temo que mi c贸digo no debe ser bueno. Lo puedo resolver antes del wbrowse cargando un array con la funci贸n fechache(nrecibo,oCheque,oBrw1) resuelta en el mismo, es decir agregando lverdad como nuevo itmen del array , pero tendr铆an que comportarse tanto en harbor como xharbour de forma similar ya que no es nada que con clipper no se hiciera.

Se puede hacer algo en la funci贸n fechache para que con un m铆nimo cambio funcione

Saludos

Luis
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Comportamiento desigual entre xharbour y harbour SOLUCION
Posted: Sun Jun 15, 2014 12:32 PM
Probando lo solucion茅 les muestro una parte mas del c贸digo original

Code (fw): Select all Collapse
********
   IF !pasaje( "ajustes" );RETURN nil;ENDIF
   DATABASE oAjuste
   oAjuste:beof := {|| nil }
   oAjuste:setorder( 1 )
   AAdd( aObj, oAjuste )


  oAjuste:gotop()    
   
   DEFINE DIALOG oDlg resource "Brw_grup"
   oDlg:cCaption := "Notas de Cr茅dito-D茅bito"



   REDEFINE BTNBMP onbut[ 3 ] id 104 OF oDlg resource "BTNELIMINA", "BTNELIMINA1"  ACTION  BORRO( oBrw1, oAjuste )  NOBORDER
   REDEFINE BTNBMP onbut[ 2 ] id 105 OF oDlg resource "btnsalir", "btnsali1"   ACTION oDlg:End() NOBORDER
   REDEFINE BTNBMP onbut[ 1 ] id 108 OF oDlg resource "btnctacte", "btnctacte1"  ACTION ctacli( oAjuste:ncli,, .F. ) NOBORDER
   REDEFINE BTNBMP onbut[ 4 ] id 107 OF oDlg resource "bt_guardar", "bt_guardar1"  ACTION fguardo( oAjuste, oAjuste1, oBrw1 ) NOBORDER
   REDEFINE BTNBMP onbut[ 5 ] id 106 OF oDlg resource "bt_espera", "bt_espera1"  ACTION fespera( oAjuste1, oDlg ) NOBORDER

   REDEFINE LISTBOX oBrw1 fields StrZero( ( oAjuste:cAlias )->ncli, 5 ), ;
      StrZero( ( oAjuste:cAlias )->recibo, 8 ), ;
      ( oAjuste:cAlias )->detalle, ;
      Transform( ( oAjuste:cAlias )->dolar, "@e 999,999.999" ), ;
      Transform( ( oAjuste:cAlias )->importe, "@e 99,999,999.99" )   ID 103 UPDATE;
      ON DBLCLICK  hnotas( oAjuste:recibo, oAjuste:ncli, oAjuste:importe, oAjuste, oBrw1 )
        

   oBrw1:aheaders := { "N潞 Cliente", "Recibo", "Detalle", "D贸lar", "Importe" }
   oBrw1:aColSizes := { 90, 90, 150, 95, 120 }
   oBrw1:aHjustify := {2,2,2,2,2}
   oBrw1:ajustify := {0,0,0,1,1}
   oBrw1:bSkip = {| nRecs | oAjuste:Skipper( nRecs ) }
   oBrw1:nLineStyle := 3
   oBrw1:nClrPane := { || iif(fechache(oAjuste:recibo,oCheque,oBrw1), cColor("verde"), cColor("")) }
 



   ACTIVATE DIALOG oDlg on Init oBrw1:gobottom()

   cldata( aObj )

RETURN NIL


El c贸digo de arriba funcionaba en xharbour pero no en harbour.

Le quit茅 oAjuste:gotop()

Y ahora funciona con los dos compiladores

Ahora cual es la explicaci贸n??

Luis
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Comportamiento desigual entre xharbour y harbour
Posted: Sun Jun 15, 2014 01:58 PM

Luis,

Pero ahora te funciona bien ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Comportamiento desigual entre xharbour y harbour
Posted: Sun Jun 15, 2014 07:09 PM

Hola Antonio, s铆 funciona perfectamente, no hay cuelgues, las consultas que hago sobre la grilla responden bien. Funciona igual que en xHarbour.

Luis

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions