FiveTech Software tech support forums

cpheraclio wrote:? cExt == cExt2 FALSO
? cExt != cExt2 FALSO

? !( cExt == cExt2 )

Enrico Maria Giordano wrote:

cpheraclio wrote:? cExt == cExt2
? cExt != cExt2

!= is the opposite of =
!= is not the opposite of ==
!( == ) is the opposite of ==

Gracias por responder.

? cExt == cExt2 FALSO
? cExt != cExt2 FALSO

? cExt2 == cExt FALSO
? cExt2 != cExt VERDADERO

cpheraclio wrote:? cExt == cExt2
? cExt != cExt2

!= is the opposite of =
!= is not the opposite of ==
!( == ) is the opposite of ==

cFile:="C:\Users\Admin\Documents\Projects\dbf\timbres.xlsx"
cExt:=Upper(cFileExt(cFile))
cExt2:="XLS"

? cExt,cExt2

? cExt == cExt2
? cExt != cExt2

En los 2 casos retorna FALSO

FiveWin 2203, xHarbour 10264

... if Empty( oPrinter:cFile ) oPrinter:Preview() elseif "pdf" $ Lower( oPrinter:cFile ) FWSavePreviewToPDF( oPrinter, If( Lower( cFileExt( oPrinter:cFile ) ) == "pdf", ; oPrinter:cFile, nil ), oPrinter:lPreview ) oPrinter:End() elseif "emf" $ Lower( oPrinter:cFile ...

Angel, Aqui sigue funcionando bien. Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd : ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definitio...

Angel, Aqui sigue funcionando bien. Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd : ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definition...

Silvio, You can get the file-extensions using : cFileExt() Retrieves the extension from a filename Syntax: cFileExt( <cFileName> ) --> cExtName Parameters: <cFileName> The filename whose extension to retrieve, if the extension has ...

... ::nLeftMargin + oItem:nLeft, .F. ), ; oImg, ; ::ToPix( oItem:nWidth, .F. ), ; ::ToPix( oItem:nHeight, .T. ) ) oImg:End() I changed to: if UPPER( cFileExt( cText ) ) = "BMP" ::oPrn:SayBitmap( ::ToPix( nItemTop, .T. ), ; ::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ; cText, ; ::ToPix( ...

... RETURN 0 ENDIF IF !FILE(cFileOrg) MsgAlert("Archivo "+cFileOrg+" no Existe") RETURN 0 ENDIF IF UPPE(cFileExt(cFileOrg))="ZIP" cFileZip:=cFileOrg lZip :=.T. ELSE // El Archivo Original es Comprimido en Formato Zip HB_ZipFile( cFileZip, aFiles, ...

... nHeight ) oThumb:hBmp := hImage Return oThumb Function GDIPlusSaveThumbnail( cImageIni, cImageEnd , nWhidth, nHeight ) local cExtIni := Upper(cFileExt( cImageIni )) local oImage:= GDIBmp():New( cImageIni ) local oThumb local nScan if( nScan:= aScan( oImage:aExtIni, cExtIni )) == 0 Msginfo( ...

... nHeight ) oThumb:hBmp := hImage Return oThumb Function GDIPlusSaveThumbnail( cImageIni, cImageEnd , nWhidth, nHeight ) local cExtIni := Upper(cFileExt( cImageIni )) local oImage:= GDIBmp():New( cImageIni ) local oThumb local nScan if( nScan:= aScan( oImage:aExtIni, cExtIni )) == 0 Msginfo( ...

... ¿ Cual es el problema ? En vrd.prg al principio del Metodo New() linea 228 mas o menos ... ::cReportName = cReportName xExtension := AllTrim(Upper(cFileExt( cReportName ))) IF Len(xExtension )> 3 xExtension := Left(xExtension,3) ENDIF ::lNewFormat := IF( xExtension == "ERD" , .T., ...

... Because of the FREEIMAGE-problems, maybe deleting this new added option again ? I can protect a TSelex-option like : oSelex1:bOnSelect := {|| IIF( cFileExt( cLImage1 ) = "BMP" .and. oSelex1:nOption = 9 ; .and. oSelex2:nOption = 2, ; // FREEIMAGE selected MsgAlert( "Not possible, ...

... with recent FixSays() changes: http://forums.fivetechsupport.com/viewtopic.php?p=125946#p125946 * Fix: Due to recent changes in function cFileExt(), source\classes\printer.prg required two minor changes. Now it is ok: http://forums.fivetechsupport.com/viewtopic.php?p=125949#p125949 * ...