FiveTech Software tech support forums

... rptAddColumn? Gracias, Luis, En vez de usar el comando COLUMN ... llama a esta función: RptAddColumn( { BuildTitle( nAt ) } ,, { BuildData( nAt, aImprimo ) } ) ... function BuildTitle( nAt ) return { || Str( nAt ) } function BuildData( nAt, aArray ) return { || aArray[ nAt ] }

... englobar en un solo array, otros array ejemplo STATIC FUNCTION hagoarray() DEFINE STRUC aBase STRUCT FIELD "aCampos" INIT array(0) STRUCT FIELD "aImprimo" INIT array(0) STRUCT FIELD "aOriginal" INIT array(0) STRUCT FIELD "cCond" INIT "" STRUCT FIELD "cElegir" INIT "" STRUCT FIELD "nVal1" INIT ...

Gracias Antonio lo probé y funciona pero en las funciones hay que ponerlo así: function BuildTitle( nAt ) return { || aImprimo[ nAt ] } function BuildData( nAt, aArray ) return { || &(aArray[ nAt ]) } Hace como cuatro días que estoy con esto y no le encontraba la vuelta. Otra ...

Luis,

En vez de usar el comando COLUMN ... llama a esta función:

RptAddColumn( { BuildTitle( nAt ) } ,, { BuildData( nAt, aImprimo ) } )
...
function BuildTitle( nAt )

return { || Str( nAt ) }

function BuildData( nAt, aArray )

return { || aArray[ nAt ] }

Bueno lo pude solucionar así REPORT oReport title "Listado de Clientes" preview for nAt = 1 to len(aImprimo) cBase:= aImprimo[nAt] column title "" DATA &cBase next END REPORT ACTIVATE REPORT oReport Pero el problema lo tengo con los títulos, ya que si coloco "column ...

... una referencia de Julio del 2007 hecha por Ollie e hice lo siguiente REPORT oReport title "Listado de Clientes" preview for nAt = 1 to len(aBase:aImprimo) n := odbf:fieldpos(aBase:aImprimo[nAt]) oReport:AddColumn( TrColumn():New({aBase:aImprimo[nAt]},,{odbf:FieldGet( n )},,,,,,,,,,oReport)) next ...

... de un sólo campo me lo imprime bien. El prg lo hice así REPORT oReport title "Listado de Clientes" preview COLUMN DATA (oDbf:cAlias)->(&(aImprimo[nAt])) END REPORT Ahora probé tratando de hacerlo usando oReport:AddColumn(oColumn ) y luego tratando de utilizar trcolumn, pero realmente ...