FiveTech Software tech support forums

Dear David, Please check these values remotely: MsgInfo( GetEnv( "TEMP" ) ) MsgInfo( GetEnv( "TMP" ) ) MsgInfo( GetWinDir() ) MsgInfo( oPrinter:cDir ) will tell you which one is in use as this is the code where the preview sets the temporary folder:      ::cDir   = GetEnv( ...

... MEMVAR oDp /* // Inicializa la Impresora */ FUNCTION BEMA_INI() LOCAL nRet,cError:="",I LOCAL cWinDir :=GetWinDir()+"\System32\" LOCAL cFileDll:=cWinDir+"bemafi32.dll" LOCAL aDlls:={} DEFAULT oDp:lBema_Demo :=.T.,; oDp:aBema_Tasas:={} ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... " + oError:Description, "Atención" ) oCfg := Nil oMsg := Nil Return ( .F. ) END oCfg := Nil oMsg := Nil Eval(bMens) SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() if oDlg<>NIL oDlg:End() endif Return ( .T. )

... Eval(bMens) MsgStop( "No se pudo enviar el e-mail") oCfg := Nil oMsg := Nil Return .t. End Try oCfg := Nil oMsg := Nil SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() Eval(bMens) Return .t.

... FontInstall: ean-13.ttf; Flags: onlyifdoesntexist en FiveWin crees que podría funcionar así: cOrigem := "c:\test\teste.ttf" cDestino := GetWinDir()+"\fonts\teste.ttf" __CopyFile(cOrigem,cDestino) []´s

... Hola, me pareció que el WINDOWS SERVER no encuentra el lugar de destino ó una pérdida de la red de conexión. Intenta: cPathWin := GETWINDIR() Y LCHDIR( cPathWin ) Gracias por tu interés, pero sigue igual. No puede ser pérdida de red ya que trabajo localmente en el servidor. La ...

Called from EMF2JPEG(76) in .\source\function\PRV2PDF.PRG

Hola, me pareció que el WINDOWS SERVER no encuentra el lugar de destino ó una pérdida de la red de conexión.

Intenta:

cPathWin := GETWINDIR()

Y

LCHDIR( cPathWin )

... logró quebrar... hasta ahora no me contó :lol: ) METHOD ChkArr33() CLASS TMGSesamo   // Serás DEMO por 33 dias   IF File( ::cArchLyP:= GetWinDir()+"\dmi&d.cfg" )      // Restauro array para demos      if ( ::nPos:= ::Restaura() ) == 0        ...

... ) + CRLF + "Message: " + oError:Description ) oCfg := Nil oMsg := Nil Return Nil End Try oCfg := Nil oMsg := Nil SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() ELSE MsgStop("No hay Destinatario"+CRLF+; "Envio CANCELADO", "Upsss...!" ...

LZCOPYFILE( Curdrive()+":\"+Curdir()+"\I2of5nt.ttf", GetWindir()+"\fonts\I2of5nt.ttf")

... If Right( cDir, 1 ) == "\" cDir = SubStr( cDir, 1, Len( cDir ) - 1 ) EndIf If !Empty(cDir) If !lIsDir(cDir) cDir := GetWinDir() EndIf Else cDir := GetWinDir() EndIf Return(AllTrim(cDir)) ******************************** // Classe Sysfar para Impressão Dos ******************************** ...

... oItem[69] PROMPT "Ne&grita" ACTION Set_FontWin(2,oItem[68],oItem[69]) ENDMENU STAT FUNC Set_FontWin(n,oItem1,oItem2) LOCAL cIni:=GetWinDir()+"\"+cNSys+".Ini", hFont, lFWnd hFont:=IF(n=1,"Normal","Bold") WritePProstring(cNSys,"hFont",hFont,cIni) ...

... GetSysFont() GetSysMetrics() GetSystemMenu() GetTasks() GetTextAlign() GetTextColor() GetTextHeight() GetTextWidth() GetTickCount() GetVersion() GetWinDir() GetWindowWord() GetWinFlags() GetWinTxtLength() GetWndApp() GetWndFrame() GetWndRect() GetWndTask() GlobalAddAtom() GlobalAlloc() GlobalCompact() ...

... < aCoors[ 1 ], aCoors[ 1 ] + 20, aCoors[ 3 ]) aCoors[ 4 ] := iif( aCoors[ 4 ] < aCoors[ 2 ], aCoors[ 2 ] + 20, aCoors[ 4 ]) lG32 := ( File( GetWinDir() + "\RunDll32.exe" ) .or. File( GetSysDir() + "\RunDll32.exe" ) ) .or. ; ( File( GetWinDir() + "\RunDlg32.exe" ...