FiveTech Software tech support forums

... https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43661&p=263266 &hilit=cargos&sid=c205af2b5c421b3f5c4b7fc27c3d4598#p263266 * New: samples\xbrwpages.prg shows how to combine a xbrowse with a TPages control that holds ...

Mr. Rao, funciono comentando la linea.

Con el Alias siempre lo trabaje así y funciono.

Muchas gracias

Anyway, for now, please comment out:

Code: Select all  Expand view

::Cargos := nil

at line 5823 of xbrowse.prg

REDEFINE XBROWSE oRApertur ID 10 OF ofld1:aDialogs[ 2 ] FIELDS ;RApertur->nombre, ;RApertur->apellido, ;RApertur->CargoArea ;headers "Nombre", "Apellido", ;"CargoArea" ;Sizes 250, 250, 250 ;ALIAS AliasRA autosort FASTEDIT LINES CELL font ofontBR // BAC...

... x, k ) } // EditaCelda( oaufactu, 1, x, k, lFirstEdit ) } // PostEdit(o,x,k) } :nEditType := EDIT_GET END If !Empty( oRApertur:aCols ); oRApertur:Cargos := nil; endif oRApertur:bLClicked := { || ( dbselectarea( "RApertur" ), ofld1:aDialogs[ 2 ]:update(), oRApertur:gotop(), oRApertur:update(), ...

For now please make this change in your xbrowse.prg
Replace the line

Code: Select all  Expand view

::Cargos := nil

with

Code: Select all  Expand view

If !Empty( ::aCols ); ::Cargos := nil; endif

I see. Looks like you are creating xbrowse without any columns.
Can I see the way you are creating the xbrowse? In this case.
Please share your code. Only the part how you are creating
We will see how to handle that situation and advise.

Hi Nages, however, this error is generated because ::Cargos is not defined Application =========== Path and name: d:\Zephir\NwCoge\Sigah.exe (32 bits) Size: ********* bytes Compiler version: Harbour 3.2.0dev (r2008190002) FiveWin version: FWH 23.07 ...

Code: Select all  Expand view

::Cargos := nil

is a shortcut for

Code: Select all  Expand view

AEval( ::aCols, { |o| o:Cargo := nil } )

Good evening Mr Nages, I would like to point out a small oversight in the XBROWSE program Cargos instead of Cargo, as noted in the code snippet below. The version of FWH is 23.07 Thank you   for nFor := 1 to Len( ::aCols )      if ( n ...

... `LLAVE` varchar(20) NOT NULL default '', `PERIODO` varchar(6) default ' ', `POLIZA` varchar(13) default ' ', `CONCEPTO` varchar(100) default ' ', `CARGOS` decimal(14,2) default '0.00', `ABONOS` decimal(14,2) default '0.00', `FECHA` date NOT NULL, `FECHACAP` date NOT NULL, `HORA` varchar(8) NOT ...

... tabla Field Type Null Key Default Extra LLAVE varchar(20) NO PRI PERIODO varchar(6) YES MUL POLIZA varchar(13) YES MUL CONCEPTO varchar(100) YES CARGOS decimal(14,2) YES 0 ABONOS decimal(14,2) YES 0 FECHA date NO MUL FECHACAP date NO HORA varchar(8) NO CONCEPTO2 varchar(100) YES FECHA2 date YES ...

... texto copiar y pegar a excel. Para que el usuario se le facilite manipular directamente a excel y pueda hacer uso de datos de extracion de fechas, cargos y abonos del estado de cuenta bancaria. Y sobre todo adaptarlo a mi aplicacion a mi codigo fuente .prg. Saludos y nuevamente gracias. Atte: Adriano ...

... un ejemplo de como se puede convertir de pdf a excel, desde aplicacion ya que necesito extraer informacion por ejemplo estados de cuentas de cargos abonos y manipularlos en la hoja de excel. Les agradecere mucho si me dan alguna pista de un ejemplo de codigo fuente y adaptarlo a mi propia ...

... the function to change the umbrella ( because the user can change the date or show th payments) I make the search on reservation archive , set all cargos values and , on old source, I made oApp:aBmps[nY,nX]:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )} so I call twice the popup ...