FiveTech Software tech support forums

... of batch scripting and PostgreSQL commands. Here's a step-by-step approach: 1. First, in your .bat file (mio.bat), set the value: ```batch set cValue=1 ``` 2. Then, you need to pass this value to your PostgreSQL script. You can do this by using environment variables. Modify your .bat file to ...

hi,
how can I to read in my .pgm a value that I have in my .bat file?

Example:
inside file mio.bat
set cValue="1"

inside file mio.pgm
instruction that read cValue of mio.bat

thanks

cValue := EVAL( bText ) // que esta errado aqui? Line 253. METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;         cHAlign, cVAlign, nClrText, nClrPane, ...

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  RUN

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

cValue := GetClpData( CF_TEXT )
 

cValue is:

Code: Select all  Expand view  RUN

Ä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