FiveTech Software tech support forums

... * ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo IF oApp:lGuardarPDF IF oApp:cImprimiendo == 'RECIBO' cRutaPDF:=oApp:cRutaPDFRecibos ELSEIF oApp:cImprimiendo == 'FE' cRutaPDF:=oApp:cRutaPDFFE ELSEIF oApp:cImprimiendo == 'PRESUPUESTO' cRutaPDF:=oApp:cRutaPDFPresupuestos ENDIF MsgRun( ...

... BrwKeyAtUs(nKey, oBrw) If !oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel == 1 If nKey == VK_RETURN oBrw:oTreeItem:Open() oBrw:Refresh() Endif ElseIf oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel == 1 If nKey == VK_RETURN oBrw:oTreeItem:Close() oBrw:Refresh() Endif ElseIf oBrw:oTreeItem:nLevel ...

... FWH 18 CLASS - printer.prg ************************* function PrintEnd() if oPrinter:lMeta if Empty( oPrinter:cFile ) oPrinter:Preview() elseif "pdf" $ Lower( oPrinter:cFile ) FWSavePreviewToPDF( oPrinter, If( Lower( cFileExt( oPrinter:cFile ) ) == "pdf", ; oPrinter:cFile, ...

... lMemo, nEntry ) CLASS VRD Should I try with IF oItem:cType = "TEXT" .AND. oItem:nShow = 1 cText := ::EvalExpression( oItem:cText ) ELSEIF oItem:cType = "IMAGE" .AND. oItem:nShow = 1 //NEW ELSEIF oItem:cType = "RTF" .AND. oItem:nShow = 1 Endif Maybe someone has ...

Buenas lo solucione creando esa funcion Function LenVar( cVar,ctype,nLen ) If cType="C" cVar:=cVar+Space(nlen-Len(cVar)) ElseIf cType="D" If Valtype( cVar)="C" cVar:=ctod("") Endif Endif Return cVar cVar es el campo de la consulta ctype el tipo de ...

Enrico,

In function FW_ReadImage() at FWH\source\function\imgtxtio.prg please modify this:

elseif ( UseGDI() .or. lGdipImage ) .and. cExt $ "PNG,JPG,JPEG,GIF,TIF,TIFF,EMF,WMF"

with

elseif ( UseGDI() .or. lGdipImage ) .and. cExt $ "PNG,JPG,JPEG,GIF,TIF,TIFF,EMF,WMF,PAK"

... ; ARRAY aConvenios LINES CELL cols{ 1,2,3,4 } OF oDlg for n := 1 to Len( oBrw:aCols ) oCol := oBrw:aCols[ n ] if n ==2 oCol:nEditType := EDIT_DATE Elseif n == 3 oCol:nEditType := EDIT_LISTBOX oBrw:aCols[3]:aEditListBound := {"EFECTIVO", "TARJETA"} oBrw:aCols[3]:aEditListTxt ...

... IF nForum = 1 // selected forum ---cFLink := "http://forums.fivetechsupport.com/viewtopic.php?f= 3 &t=" + cValToChar( nTopic ) ELSEIF nForum = 2 ---cFLink := "http://forums.fivetechsupport.com/viewtopic.php?f= 6 &t=" + cValToChar( nTopic ) ELSEIF nForum = 3 ---cFLink ...

... oObject, cSymbol ) LOCAL nSeq, hClass IF ! HB_ISOBJECT( oObject ) .OR. ! HB_ISSTRING( cSymbol ) __errRT_BASE( EG_ARG, 3101, , ProcName( 0 ) ) ELSEIF ! __objHasMsg( oObject, cSymbol ) .AND. ! __objHasMsg( oObject, "_" + cSymbol ) hClass := oObject:ClassH nSeq := __cls_IncData( hClass ...

... lReturn := AdsGetLastError( @dwError, pacError, @wLen) IF lReturn != AE_SUCCESS ErrorBox{ , "Failed to get last error" }:Show() ELSEIF dwError != AE_SUCCESS ErrorBox{ , " Advantage error = " + pacError }:Show() ENDIF

... you're connected to the internet and" + CRLF + ; "check the firewall settings if applicable", MSG_CAPTION ) esto ocurre cuando: Elseif ::cIPServer == "0.0.0.0" .or. Empty( GetHostByAddress( ::cIPServer ) ) (*) Ver nota al final. Es decir, si no se podía averiguar el ...

... Are there still other working export-formats supported ? //nExpformat := 0 "bmp" IF cExtension = ".jpg" nExpformat := 2 ELSEIF cExtension = ".png" nExpformat := 13 ELSEIF cExtension = ".tiff" nExpformat := 18 ELSEIF cExtension = ".ppm" nExpformat ...

... function of delete record case nKey==VK_ESCAPE oDlg:End() OTHERWISE IF nKey >= 96 .AND. nKey <= 105 // here your function of search record ELSEIF HB_ISSTRING(CHR(nKey)) // here your function of search record ENDIF EndCase return nil

After changes to elseif cExt $ "mdb,accdb,bds" cRDBMS := "MSACCESS" ? cExt it shows as as bds but error comes at line no. 108 of adofuncs.prg i.e. if '<?>' $ cConnStr .and. nDB > 0 You may test after change ...

Armando

IF cCveTab = 1 .or. cCveTab = 3
oBrw5:Destroy()
...
...
ELSEIF cCveTab = 2 .or. cCveTab = 4
oBrw5():Destroy()
...
...
ENDIF

Ya hice los cambios y me sigue mostrando 4 columnas en todos los casos