Search found 2397 matches

by Rick Lipkin
Fri Apr 29, 2022 5:12 pm
Forum: FiveWin for Harbour/xHarbour
Topic: What happend ?
Replies: 4
Views: 21583

Re: What happend ?

To All

Personally, I prefer the functionality and layout and use of the old forum .. just my opinion ..

Thanks
Rick Lipkin
by Rick Lipkin
Wed Mar 17, 2021 9:00 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to draw a line on a resource form
Replies: 2
Views: 3584

Re: How to draw a line on a resource form

Marcelo

Thank you for your response ... appreciate your help!

Rick Lipkin
by Rick Lipkin
Tue Mar 16, 2021 6:30 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to draw a line on a resource form
Replies: 2
Views: 3584

How to draw a line on a resource form

To All

I can create a Roundbox() ... etc but how can I just create a simple line between two coordinates >> I do not want to create a field on a form with a line ..

Any ideas ?

Thanks
Rick Lipkin
by Rick Lipkin
Sat Feb 27, 2021 2:55 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Picture Clause to force Lower Case
Replies: 6
Views: 9860

Re: Picture Clause to force Lower Case

Rao

Thanks for your help ... this form was from resources and I did see you can define the field for Lower Case ... just never thought to look there ...

Thanks Again
Rick Lipkin
by Rick Lipkin
Fri Feb 26, 2021 10:58 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Picture Clause to force Lower Case
Replies: 6
Views: 9860

Re: Picture Clause to force Lower Case

Marc

Sorry if I am missing the correct picture clause ... I want the picture clause to convert all to lower case ..

Thanks
Rick Lipkin
by Rick Lipkin
Fri Feb 26, 2021 8:36 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Picture Clause to force Lower Case
Replies: 6
Views: 9860

Picture Clause to force Lower Case

To All

Having trouble finding the correct PICTURE clause to force lower case .. this is for upper case PICTURE "@!" what about lower case ??

Thanks
Rick Lipkin
by Rick Lipkin
Tue Feb 23, 2021 2:35 pm
Forum: FiveWin for Harbour/xHarbour
Topic: writing date()+time() to Sql Table
Replies: 1
Views: 3121

Re: writing date()+time() to Sql Table

To All

Here is the answer ...

oRs:Fields("Date"):Value := DateTime()

Thanks
Rick Lipkin
by Rick Lipkin
Tue Feb 23, 2021 2:21 pm
Forum: FiveWin for Harbour/xHarbour
Topic: writing date()+time() to Sql Table
Replies: 1
Views: 3121

writing date()+time() to Sql Table

To All

I know I have done this before but I just cannot remember how ??

oRs:Fields("Date"):Value := date()+time() does not work

oRs:Fields("Date"):Value := dtoc(Date())+Time() does not work

Thanks
Rick Lipkin
by Rick Lipkin
Wed Feb 17, 2021 9:14 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Imágenes en una DBF
Replies: 24
Views: 20493

Re: Imágenes en una DBF

To All Just my 2 cents ... I have found that corporate ( most users ) tend to import huge files into databases .. like ( lets say ) 1gb ++ .. .Dbf can get out of hand real fast if you allow that to happen .. that is why I prefer Sql Server using the fieldtype VarBinaryMax ( much more stable and robu...
by Rick Lipkin
Thu Feb 04, 2021 2:12 pm
Forum: FiveWin para Harbour/xHarbour
Topic: PDF generado desde programa en FiveWin
Replies: 21
Views: 10064

Re: PDF generado desde programa en FiveWin

As Rao mentions .. this works for me

Code: Select all

PRINT oPrn FILE "filename.pdf"
PAGE
// your print statements to print
ENDPAGE
ENDPRINT
 
Rick Lipkin
by Rick Lipkin
Tue Jan 26, 2021 2:57 pm
Forum: FiveWin para Harbour/xHarbour
Topic: ¿Alguna funcion para enviar email desatendido xHarbour?
Replies: 24
Views: 13177

Re: ¿Alguna funcion para enviar email desatendido xHarbour?

Armondo

Use try\catch

Code: Select all

Try
   oOutLook: = TOleAuto ( ) : New ( "Outlook.Application" )
Catch
    Saying: = "For some Odd reason The Outlook e-mail CLient failed to Initialize"
    Msginfo ( Saying )
    Return ( .f. )
End Try


 
Rick Lipkin
by Rick Lipkin
Mon Jan 25, 2021 3:05 pm
Forum: FiveWin para Harbour/xHarbour
Topic: ¿Alguna funcion para enviar email desatendido xHarbour?
Replies: 24
Views: 13177

Re: ¿Alguna funcion para enviar email desatendido xHarbour?

Jose If your client desktops are using MS OUtlook .. this code works well ... Try    oOutLook  := TOleAuto():New("Outlook.Application") Catch     Saying := "For some Odd reason The Outlook e-mail CLient failed to Initialize"     Msginfo( Saying )     Return(.f.) End Try oMailItem...
by Rick Lipkin
Tue Jan 12, 2021 8:10 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to print PDF file without GUI?
Replies: 17
Views: 7732

Re: How to print PDF file without GUI?

// Generated by ResEdit 1.6.6 // Copyright (C) 2006-2015 // http://www.resedit.net #include <windows.h> #include <commctrl.h> //#include "resource.h" #ifndef WC_STATIC #define WC_STATIC L"Static" #endif #ifndef MONTHCAL_CLASS #define MONTHCAL_CLASS "SysMonthCal32" #end...
by Rick Lipkin
Mon Jan 11, 2021 10:38 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to print PDF file without GUI?
Replies: 17
Views: 7732

Re: How to print PDF file without GUI?

FYI A bit long but you should be able to follow along .. un-attended .pdf print .. Rick Lipkin // ReqPrint.prg #INCLUDE "FIVEWIN.CH" Static lOk //-------------------------- Func _ReqPrint( oRsTrav ) Local oDlg,oView,nView Local oSay,cSay,cSay1,oSay1,cDefa Local oFontB Local oBtn1,oBtn2 Loc...
by Rick Lipkin
Sat Dec 26, 2020 2:04 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Imprimir imagen guardada en tabla SQL
Replies: 11
Views: 8984

Re: Imprimir imagen guardada en tabla SQL

Rao I have looked for LONGBINARY in the field selections of Ms Access.mdb and .ACCDB and that data type is not an option ..... http://img4.imagetitan.com/img4/small/23/23_access1.jpg I am using ole object a field to store pictures in Ms Access .... http://img4.imagetitan.com/img4/small/23/23_access2...