topic-40576

Posts: 563

Joined: Sun Oct 09, 2005 07:23 PM

xbrowse - formato de columna numérica
Posted: Sat Jun 26, 2021 07:03 AM

Necesito poner en una columna un campo de una dbf que tiene valores numéricos con tres decimales, pero los quiero representar con "." para los miles y "," para los decimales.
Hasta ahora lo hacía con un transform, pero quiero hacerlo sin usar transform.

Ahora lo hago así:

Code (fw): Select all Collapse

    REDEFINE XBROWSE oTbr;
             FIELDS iif(TB_MAQ->AUTOMATICA,'Automática','Manual'),;
                        transform(TB_MAQ->NUMCIERRE,'@E 999,999.999'),;
               ...

Quisiera saber si hay alguna manera de forma e hacer esto para que el valor no pierda su característica de ser un número, ya que al pasar previamnete por un transform lo convierte en caracter y esto implica gestión de cadenas en el EDIT correspondiente en el browse.

Pero me gustaría hacerlo así (con la representación del número como sale usando el transform):

Code (fw): Select all Collapse

   REDEFINE XBROWSE oTbr;
             FIELDS iif(TB_MAQ->AUTOMATICA,'Automática','Manual'),;
                       TB_MAQ->NUMCIERRE,;
            ...

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xbrowse - formato de columna numérica
Posted: Sun Jun 27, 2021 04:31 AM

Please NEVER use FIELDS clause.
Use COLUMNS clause.

Code (fw): Select all Collapse

REDEFINE XBROWSE oTbr ID <nID> OF oDlg ;
   DATASOURCE "TB_MAQ" ;
   COLUMNS "AUTOMATICA", "NUMCIERRE" ;
   PICTURES nil, "@E 999,999.999" 
   
WITH OBJECT oTbr
   :aCols[ 1 ]:SetCheck( nil, .t., { "Automatica", "Manual" } )
   :nEditTypes := EDIT_GET
END

Regards

G. N. Rao.

Hyderabad, India

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 11:41 AM

estimado, esto esta bien?

Code (fw): Select all Collapse

  DEFINE DIALOG ::oDlg resource "DLGMENU"
   
   ::oBrw := TXBROWSE():new( ::oDlg )
      WITH ::oBrw
           :datasource := oQry
      ENDWITH
   
   ::oBrw:CreateFromResource( 100 )

   ACTIVATE DIALOG ::oDlg CENTERED

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 11:56 AM

goosfancito wrote:estimado, esto esta bien?

Code (fw): Select all Collapse

  DEFINE DIALOG ::oDlg resource "DLGMENU"
   
   ::oBrw := TXBROWSE():new( ::oDlg )
      WITH ::oBrw
           :datasource := oQry
      ENDWITH
   
   ::oBrw:CreateFromResource( 100 )

   ACTIVATE DIALOG ::oDlg CENTERED

No please.

Please use only the command syntax I posted above.

Regards

G. N. Rao.

Hyderabad, India

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 12:16 PM

Por favor podrias decirme como seria? esto no me estaría funcionando:

Code (fw): Select all Collapse

METHOD prueba() CLASS TApp
   LOCAL cSql, oQry
   
   TEXT into cSql
   Select ;
   a.idfactura AS c2, ;
   a.fecha AS c3, ;
   a.idcontacto AS c4,
   FROM tbfacturados AS a
   ENDTEXT
   
   oQry := ::oCnx:QUERY( cSql )
   
   DEFINE DIALOG ::oDlg resource "DLGMENU"

   REDEFINE xbrowse ::oBrw ID 100 OF ::oDlg;
      datasource "oQry";
      COLUMNS "c2", "c3"

   ACTIVATE DIALOG ::oDlg CENTERED

   RETURN ( NIL )

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 12:31 PM

Ponle antes del activate dialog el oBrw:CreateFromResource() y prueba

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 12:36 PM

cnavarro wrote:Ponle antes del activate dialog el oBrw:CreateFromResource() y prueba

Lo intente antes de postear porque me tira este error

Error description: Error FiveWin/2 Duplicated Id: No: 101

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => TDIALOG:DEFCONTROL( 366 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMRESOURCE( 1208 )
Called from: Source\stock.prg => TAPP:PRUEBA( 74 )
Called from: Source\stock.prg => MAIN( 251 )

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 03:31 PM

y el createfromresource sin el id ?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xbrowse - formato de columna numérica
Posted: Wed Sep 29, 2021 05:03 PM

cnavarro wrote:Ponle antes del activate dialog el oBrw:CreateFromResource() y prueba

No.
Please do not use this. This is built-in the command itself.

NOT CORRECT

Code (fw): Select all Collapse

     datasource "oQry";

How do you think xbrowse know what is the datasource?

CORRECT:

Code (fw): Select all Collapse

     datasource oQry ;

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion