(Solucionado) Unir dos campos en COLUMNS

[ACC69]

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: Select all  Expand view

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: Select all  Expand view

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]

"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"

[ACC69]

"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]

Please try this and see:

Code: Select all  Expand view

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"

[ACC69]

Please try this and see:

Code: Select all  Expand view

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: Select all  Expand view

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: Select all  Expand view

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]

Please try this and see:

Code: Select all  Expand view

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: Select all  Expand view

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: Select all  Expand view

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.