FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour (Solucionado) Unir dos campos en COLUMNS
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
(Solucionado) Unir dos campos en COLUMNS
Posted: Fri Jul 25, 2014 06:10 PM
Hola aqui de nuevo , con otra pregunta de lo mismo pero ahora , uniendo dos variables de campos en una sola columna se puede ?

Quiero anidar o como se le dice la palabra correcta, unir dos campos en una sola columna o sea el ejemplo seria asi : TIPO+LTRIM(STR(NUMPOL,5)), para no crear dos columnas, Tipo Y Num Poliza. que sea en un solo campo COLUMNS como del ejemplo: se puede ?

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
聽 聽 聽 聽 聽 聽HEADERS "Poliza","Cargo","Abono" ;
聽 聽 聽 聽 聽 聽COLUMNS "TIPO+LTRIM(STR(NUMPOL,5))", "SALCARG", "SALCRED" 聽;
聽 聽 聽 聽 聽 聽SIZES 112,240,75 ;
聽 聽 聽 聽 聽 聽ALIAS (S08)->( ALIAS() ) // FOOTERS CELL AUTOCOLS



Thanks Nages
Gracias Nages .

Saludos y buen dia.

Atte: Adrian C. C.

Solucionado de esta manera ! COLUMNS { || (S12)->A_TIPO+" "+LTRIM(STR((S12)->A_NUMPOL,5)) },"A_FHAMOV", asi es como queria sin crear otra columna :-) , es una maravilla TXBrowse, que voy descubiendo poco a poco :-) ..!

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
聽 聽 聽 聽 聽 聽HEADERS ""+CRLF+"P贸liza" ,""+CRLF+"Fecha" 聽 ,""+CRLF+"Concepto",""+CRLF+"Cargo" 聽 聽,""+CRLF+"Abono" 聽 聽,"Fec."+CRLF+"Captura","Hora"+CRLF+"Captura" ;
聽 聽 聽 聽 聽 聽COLUMNS { || (S12)->A_TIPO+" "+LTRIM(STR((S12)->A_NUMPOL,5)) },"A_FHAMOV","A_CONCEP","A_TOTCARG","A_TOTCRED","FECALTA" 聽 聽 聽 聽 聽 聽,"REGHORA" 聽;
聽 聽 聽 聽 聽 聽SIZES 50,52,239,75,75,52,50 ;
聽 聽 聽 聽 聽 聽PICTURES "","@D","@60","@Z 999,999,999.99","@Z 999,999,999.99","@D","@!" ;
聽 聽 聽 聽 聽 聽ALIAS (S12)->( ALIAS() ) // FOOTERS CELL AUTOCOLS
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: (Solucionado) Unir dos campos en COLUMNS
Posted: Fri Jul 25, 2014 10:13 PM

"TIPO+LTRIM(STR(NUMPOL,5))" should work if TIPO and NUMPOL are field names. Better use expression like this instead of a codeblock.

Instead of ALIAS (S08)->(ALIAS()) simply use ALIAS "S08"

Regards



G. N. Rao.

Hyderabad, India
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: (Solucionado) Unir dos campos en COLUMNS
Posted: Fri Jul 25, 2014 10:40 PM
nageswaragunupudi wrote:"TIPO+LTRIM(STR(NUMPOL,5))" should work if TIPO and NUMPOL are field names. Better use expression like this instead of a codeblock.

Instead of ALIAS (S08)->(ALIAS()) simply use ALIAS "S08"


Hello Nages, sorry my english...

Hola Nages, disculpame mi ingles, que no se escribir mucho al 100%.

Si le cambio la forma del simple alias, el browse me muestra todo en blanco
y me indica errores como este :

LISTPOL.prg(697) Warning W0001 Ambiguous reference 'A_TIPO'
LISTPOL.prg(697) Warning W0001 Ambiguous reference 'A_NUMPOL'

Ya que la variable alias , la llamo desde una variable, con la funcion de Abre_Dbf(12,12)

S12 := Abre_Dbf(12,12) // Abre: POLZxMxA.DBF .. Aqui abre la base de datos eligiendo la tabla 12 que es POLIZA.DBF y dentro de la misma funcion alias... Es por eso que tengo que declararla de esta manera :

REDEFINE XBROWSE oBrw2 ID 102 OF oDlg ;
HEADER "Tipo", "N煤mero", "Fecha", "Concepto", "Cargo", "Abono","Fec. Captura","Hora Captura" ;
FIELDS (S12)->A_TIPO, STR((S12)->A_NUMPOL,5), DTOC((S12)->A_FHAMOV), SUBS((S12)->A_CONCEP,1,45), ;
TRANSF((S12)->A_TOTCARG,"99,999,999.99"), TRANSF((S12)->A_TOTCRED,"99,999,999.99"), ;
DTOC((S12)->FECALTA), (S12)->REGHORA ;
SIZES 26,42,52,225,75,75,70,70 ;
ALIAS (S12)->( ALIAS() ) Solo asi me funciona y dentro del bloque , (S12)->CAMPO y muestra bien los datos

O alguna sugerencia en mejorar mi codigo con el alias y el bloque ., le agradecere mucho . con tal de mejorar el codigo simple!

Saludos Nages y gracias por tu interes.!

Atte: Adrian C. C.
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: (Solucionado) Unir dos campos en COLUMNS
Posted: Fri Jul 25, 2014 10:58 PM
Please try this and see:
Code (fw): Select all Collapse
REDEFINE XBROWSE oBrw2 ID 102 OF oDlg ;
HEADER "Tipo", "N煤mero", "Fecha", "Concepto", "Cargo", "Abono","Fec. Captura","Hora Captura" ;
COLUMNS "A_TIPO", "A_NUMPOL", "A_FHAMOV", "SUBSTR(A_CONCEP,1,45)", ;
"A_TOTCARG", "A_TOTCRED", "FECALTA", "REGHORA" ;
ALIAS "S12"
Regards



G. N. Rao.

Hyderabad, India
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: (Solucionado) Unir dos campos en COLUMNS
Posted: Sat Jul 26, 2014 12:44 AM
nageswaragunupudi wrote:Please try this and see:
Code (fw): Select all Collapse
REDEFINE XBROWSE oBrw2 ID 102 OF oDlg ;
HEADER "Tipo", "N煤mero", "Fecha", "Concepto", "Cargo", "Abono","Fec. Captura","Hora Captura" ;
COLUMNS "A_TIPO", "A_NUMPOL", "A_FHAMOV", "SUBSTR(A_CONCEP,1,45)", ;
"A_TOTCARG", "A_TOTCRED", "FECALTA", "REGHORA" ;
ALIAS "S12"


Hola Ing. Nages, hice la prueba como usted me indico, efectivamente si muestra bien los datos,cuando son columnas normales de esta manera:

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
           HEADERS "Seg"+CRLF+"Negocio","Descripci贸n" ;
           COLUMNS  "SEGNEG", "DESCRIP" ;
           SIZES 48, 112 ;
           PICTURES "9999", "@S80" ;
           ALIAS "S09"


Pero cuando hay una funcion dentro o unificar dos campos en una sola columna como del mensaje anterior del ejemplo e incluyendo si hay una funcion como del que NivCta(CUENTAS) y la funcion SdoIni(), se pierden los datos o no muestra nada, como este codigo :

Y marca error : Sel_Cata.prg(52) Warning W0001 Ambiguous reference 'CUENTAS'

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
           HEADERS "Cuenta","Descripci贸n","Saldo Ant" ;
           COLUMNS  { || Ext_xNiv(CUENTAS) }, "DESCRIP", { || Sdoini() }  ;
           SIZES 114, 240, 80 ;
           PICTURES "@!", "@S50","" ;
           ALIAS "S08"


Es por eso la necedad de usar (S08)->CUENTAS 贸 al menos que sea mi version que es 10.6

Cualquier solucion sera bienvenida.


Saludos Ing. Nages .

Atte: Adrian C. C.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: (Solucionado) Unir dos campos en COLUMNS
Posted: Sat Jul 26, 2014 05:48 PM
ACC69 wrote:
nageswaragunupudi wrote:Please try this and see:
Code (fw): Select all Collapse
REDEFINE XBROWSE oBrw2 ID 102 OF oDlg ;
HEADER "Tipo", "N煤mero", "Fecha", "Concepto", "Cargo", "Abono","Fec. Captura","Hora Captura" ;
COLUMNS "A_TIPO", "A_NUMPOL", "A_FHAMOV", "SUBSTR(A_CONCEP,1,45)", ;
"A_TOTCARG", "A_TOTCRED", "FECALTA", "REGHORA" ;
ALIAS "S12"


Hola Ing. Nages, hice la prueba como usted me indico, efectivamente si muestra bien los datos,cuando son columnas normales de esta manera:

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
聽 聽 聽 聽 聽 聽HEADERS "Seg"+CRLF+"Negocio","Descripci贸n" ;
聽 聽 聽 聽 聽 聽COLUMNS 聽"SEGNEG", "DESCRIP" ;
聽 聽 聽 聽 聽 聽SIZES 48, 112 ;
聽 聽 聽 聽 聽 聽PICTURES "9999", "@S80" ;
聽 聽 聽 聽 聽 聽ALIAS "S09"


Pero cuando hay una funcion dentro o unificar dos campos en una sola columna como del mensaje anterior del ejemplo e incluyendo si hay una funcion como del que NivCta(CUENTAS) y la funcion SdoIni(), se pierden los datos o no muestra nada, como este codigo :

Y marca error : Sel_Cata.prg(52) Warning W0001 Ambiguous reference 'CUENTAS'

Code (fw): Select all Collapse
REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
聽 聽 聽 聽 聽 聽HEADERS "Cuenta","Descripci贸n","Saldo Ant" ;
聽 聽 聽 聽 聽 聽COLUMNS 聽{ || Ext_xNiv(CUENTAS) }, "DESCRIP", { || Sdoini() } 聽;
聽 聽 聽 聽 聽 聽SIZES 114, 240, 80 ;
聽 聽 聽 聽 聽 聽PICTURES "@!", "@S50","" ;
聽 聽 聽 聽 聽 聽ALIAS "S08"


Es por eso la necedad de usar (S08)->CUENTAS 贸 al menos que sea mi version que es 10.6

Cualquier solucion sera bienvenida.


Saludos Ing. Nages .

Atte: Adrian C. C.



Hola Ing. Nages , si hizo usted la prueba incrustando la funcion y anidando dos variables de campos ? y que vea su comportamiento del browse ? como le repito,con las columnas normales muestra bien los datos, pero si hay funcion como del ejemplo anterior y anidar dos variables de campos en una sola columna, se pierde los datos.

Algun ejemplo y solucion y mejorar el browse a mi codigo.!

Saludos y buen dia Nages.!

Atte: Adrian C. C.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions