FiveTech Software tech support forums

Dear Otto,

> AP_AddHeader("Another-Header", "HeaderValue")

Do you mean in headers or out headers ? I guess out headers, if so:

AP_HeadersOutSet( cKey, cValue )

... bCampo2( afields, nGroup,oDbf ),;    //campo           {|| aGroup[nGroup]+" :"+oRep:aGroups[1]:cValue},;                       //header           {|| "Totale "+aGroup[nGroup]+": "+oRep:aGroups[1]:cValue+" ...

... bCampo2( afields, nGroup,oDbf ),;    //campo           {|| aGroup[nGroup]+" :"+oRep:aGroups[1]:cValue},;                       //header           {|| "Totale "+aGroup[nGroup]+": "+oRep:aGroups[1]:cValue+" ...

wondering how to set the clipboard data to UTF-8.
Using now:

Code: Select all  Expand view

HB_CDPSELECT( "UTF8" )
FW_SetUnicode( .T. )
SetClipboardData( CF_TEXT, "Ärzte" )

cValue := GetClpData( CF_TEXT )
 

cValue is:

Code: Select all  Expand view

Ärzte

Does someone know it, then please give me a hint.

I found the cause of more than 2 decimals in the footer sum.. My column value was computed by multiplying a numeric value by a val( alltrim( cValue ) ) . The xBrowse column was showing correct values with 2 decimals according to the column picture clause. But the footer picture clause "@E ...

... COLUMN TITLE "Hora Saida" ; DATA oTELE0060:a_Horas_60; SIZE 8; CENTER GROUP ON oTELE0060:A_ENTRE_60; FOOTER SUBSTR(oReport:aGroups[1]:cValue,1,8) + '=>' + Alltrim(str(oReport:aGroups[1]:nCounter)); FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" ...

... uBottom) in TDatabase. Use the same value for both uTop and uBottom to limit the filter to a single value. You will need to index on upper(cValue) for the index and use alltrim(upper(cValue)) for both the top and bottom scopes. You could also subclass TDatabase to create a new method OrdSetFocus() ...

Dear Antonio, if I made GROUP ON CU->STATE ; FOOTER " » Total FOR STATE » "+::oReport:aGroups[1]:cValue +"("+ltrim(str(::oReport:aGroups[1]:nCounter))+")" ; FONT 1 oReport:nCounter is right for each group and the total counter is right If I not ...

... GetNew() ) ? Eval( bBlock, bBLock ) RETURN FUNCTION ConversionBlock() LOCAL bBlock bBlock := <| xValue | LOCAL cType := Valtype( xValue ) LOCAL cValue, xElem SWITCH cType CASE "A" cValue := "{" FOR EACH xElem IN xValue cValue += Eval( bBlock, xElem ) + "," NEXT ...

... that RTF is not supported. To all class experts Where should I try to extend the class. Is this the right way. METHOD PrintItem( nArea, nItemID, cValue, nAddToTop, lMemo, nEntry ) CLASS VRD Should I try with IF oItem:cType = "TEXT" .AND. oItem:nShow = 1 cText := ::EvalExpression( oItem:cText ...

... WOY(<dDate>,<lIso>)->nWeek WSetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible XtoC(<xValue>)->cValue Year(<dDate>)->nYear Carlos, gracias. Impresionante!! Saludos Ruben Dario Fernandez Gracias y saludos cordiales. Rubén Dario Fernández ...

... WOY(<dDate>,<lIso>)->nWeek WSetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible XtoC(<xValue>)->cValue Year(<dDate>)->nYear

... HB_AParams()->aValues HB_ArgC()->nArgCount HB_ArgCheck(<cSwitch>)->lExists HB_ArgString(<cSwitch>)->cValue|Nil HB_ArgV(<nPos>)->cArgValue HB_ArrayId(<aArray>|<oObject>)->pID HB_ArrayToParams(<aValue>)->aValue HB_ArrayToStructure(<aMembers>,<aTypes>,[<nAlign>])->cBinaryStructure ...

...   The sample shows:          MsgInfo( oTagActual:cName, oTagActual:cData )         HEval( oTagActual:aAttributes, { | cKey, cValue | MsgInfo( cKey, cValue ) } )  Fine ... so oTagActual:cName returns the name ( ie. in this case nonoem-base-model ) which is ...

... ODBC, you can not use this function. MYSQL_ESCAPE_STRING() works well. Recent versions of FWH provides this function, MYSQL_ESCAPE_STRING( <cValue> ) I see error in your sql statement. Please try this: cCmdSql := "UPDATE estilos " +;           "SET ...