FiveTech Software tech support forums

... := nMax nRowCnt := 0 cUID := _ParamRead( cQueryString, "LINK=", @lLink ) nRecId := VAL( _ParamRead( cQueryString, "ID=" ) ) cMode := "O" cFileno := "" cPono := "" cVendid := "" cVendname := "" cVendref := "" cConsid ...

... HPDF_GetInfoAttr( ::hPdf, HPDF_INFO_AUTHOR ) // 2 METHOD GetTitle() INLINE HPDF_GetInfoAttr( ::hPdf, HPDF_INFO_TITLE ) METHOD SetPermission( cMode ) default cMode := '' cMode := upper( cMode ) SWITCH cMode CASE "READ" ; HPDF_SetPermission( ::hPage, HPDF_ENABLE_READ ) ; EXIT CASE ...

Static Function METODA_DRUGA(cMODE) Local xPOZB:= 0 Local yPOZB:= 0 Local xPOZE:=1024 Local yPOZE:= 750 Local oBRUSH DEFINE BRUSH oBRUSH FILENAME "BACKGRND\TLO_DG.BMP" DEFINE DIALOG oWNDW FROM yPOZB,xPOZB TO yPOZE,xPOZE PIXEL ...

... "411131",; "211412",; "211214",; "211232",; "2331112"} function _code128(cCode,cMode) local nSum:=0, cBarra, cCar local cTemp, n, nCAr, nCount:=0 local lCodeC := .f. ,lCodeA:= .f. // control de errores if valtype(cCode) !='C' alert('Barcode ...

... el metodo hardcopy para sacar vista previa sale pagina en blanco saben por que sucede esto METHOD HardCopy( nScale, lUser , cOrientation , cMode ) CLASS TWindow local oPrn DEFAULT lUser := .t. // if lUser // PRINT oPrn NAME ::cTitle FROM USER // else // PRINT oPrn NAME ::cTitle // endif ...

... DATA l3D, l2007 DATA nRGB1, nRGB2 //FranciscoA: Agosto 31/2008 CLASSDATA lRegistered AS LOGICAL /* METHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007 ) CONSTRUCTOR METHOD NewAt( nRow, nCol, nWidth, nHeight, nBtnWidth, nBtnHeight, oWnd,; l3D, cMode, oCursor ) CONSTRUCTOR */ //FranciscoA: ...

... := "This Projects CHARTER"+space(40) ENDCASE REDEFINE BUTTON oBTN5 PROMPT cCHPROMPT ID 138 of oWORK ; ACTION ( _Chimport( oRsProj, cPROJECTEID, cMODE, oWork )) /* DO CASE CASE lISCHARTER = .T. // found a charter document oBtn5:SetColor( "G+/W" ) oBTN5:ReFresh() SysReFresh() OTHERWISE oBtn5:SetColor( ...

... := "This Projects CHARTER"+space(40) ENDCASE REDEFINE BUTTON oBTN5 PROMPT cCHPROMPT ID 138 of oWORK ; ACTION ( _Chimport( oRsProj, cPROJECTEID, cMODE, oWork )) DO CASE CASE cISCHARTER = .T. // found a charter document oBtn5:SetColor( "G+/W" ) oBTN5:ReFresh() SysReFresh() OTHERWISE oBtn5:SetColor( ...

... CHARTER" oBtn5:SetColor( "R+/W" ) ENDCASE REDEFINE BUTTON oBTN5 PROMPT cCHPROMPT ID 138 of oWORK ; ACTION ( _Chimport( oRsProj, cPROJECTEID, cMODE, oWork )) Application =========== Path and name: C:\FOX\PMOSQL\PmoW32.Exe (32 bits) Size: 1,718,272 bytes Time from start: 0 hours 0 mins 3 secs ...

Rick,

We have just processed your order, thanks!

Try it this way:
REDEFINE BUTTON oBTN5 PROMPT cCHPROMPT ID 138 of oWORK ;
ACTION ( _Chimport( oRsProj, cPROJECTEID, cMODE, oWork ))

It looks as a preprocessor issue with the compiler version that you are using. Check the resulting PPO file

... := " This Projects CHARTER" ENDCASE REDEFINE BUTTON oBTN5 ID 138 PROMPT cCHPROMPT of oWORK ; // charter ACTION ( _Chimport( oRsProj, cPROJECTEID, cMODE, oWork )) Application =========== Path and name: C:\FOX\PMOSQL\PmoW32.Exe (32 bits) Size: 1,717,248 bytes Time from start: 0 hours 0 mins 3 secs ...

... := "SQLUSER" xPASSWORD := "PASSWORD" //-- grpslct.prg // // STATIC oDLG,oLBX #INCLUDE "FIVEWIN.CH" //---------------------- Func GRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) LOCAL oBTN1, oBTN2, oRs2,oErr, cSQL, cTITLE IF cNAME = "ALL" RETURN(.T.) ENDIF IF EMPTY( oOBJ ) oOBJ = " " ENDIF IF EMPTY( ...

... VAR zMTRPOOL ID 135 of oGRPS PICTURE "@!" ; when ( xSUPER = 'Y' .or. xADMIN = 'Y'.or. xMGR = 'Y' .or. xTECH = 'Y' ); valid MTRPGET( zMTRPOOL, cMODE, oMTRPOOL, oRsVEH, "VEHICLES", zPOOLID ) UPDATE // mtrpslct.prg //---------------------- Func MTRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) LOCAL ...

... , ; cText := "" , ; cSRN := 'TEST' , ; cTmp := "" , ; lTmp := .F. , ; cChar := "" , ; cFirst := "" , ; cLast := "" , ; nLine := 0 // Init... cMode := 'O' cDb := 'ocean' cFile := 'AESTEST' // Write HTML... cText := '<FORM ACTION="https://www.aesdirect.gov/weblink/weblink.cgi" METHOD="POST">' ...

... is complete source. #include "fivewin.ch" //----------------------------------------------------------------------------- function _AesSend( cDb, cMode, cFile ) local hHan , ; oWnd2 , ; oIcon , ; cAesdd := ALLTRIM( frsys( "aesout" ) ) , ; cHan := ALLTRIM( _Strip( cFile, .F., .F., .T. ) ) + ".HTM" ...