FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Converting old Dos Clipper Application
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 09:18 AM
Dear Friends,
On a old Clipper Application made perhaps on DIC-89 I have this commands

Code (fw): Select all Collapse
mcodute = "001"
   do cnfusr
   @ 24, 0
   @ 24, 0 say " Controllo validità archivi in corso ..."
   do utile11
   store "  " to vpub_mascl,vpub_masfr
   select 1
   archi = "TABGEN"
   if net_use("&dr1.&archi",.f.,5)
      set index to &DR2.TABGEN
      seek "COGE1"
      vpub_mascl = substr(codice,1,2)
      vpub_masfr = substr(codice,3,2)
   endif



cnfusr
Code (fw): Select all Collapse
  procedure cnfusr

   select aziende
   locate all for CODICE=MCODUTE
   drditta = ragsoc
   store trim(mcodute) + "\" to dr1,dr2,dr3
   if lpag != 0
      lp = lpag
   endif
   do case
   case csta = 10
      lr = 18
   case csta = 12
      lr = 77
   case csta = 17
      lr = 15
   endcase
   return


and


How I can make to use the same code on Tdatabase ?

i.e. "&dr1.&archi" and set index to &DR2.TABGEN

these are macro and I never used macro on fwh
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 11:13 AM

Dear Silvio,

Do you plan to rewrite the app ? why ? :-)

If it compiles fine and works fine, you may leave it as it is

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 11:56 AM

it's on dos 16bit

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 10:41 AM

Dear Silvio,

It should compile and run fine using Harbour too

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 01:10 PM
Antonio Linares wrote:Dear Silvio,

It should compile and run fine using Harbour too


I wish converte to Win
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Jimmy
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 02:26 PM

hi Silvio,

for Windows GUI you need to "replace" all @ SAY / GET with Windows Control
also all "Waitstate" must be change to Event Style
not all, like ACHOISE, have a equivalent as Windows Control
3-PP LIB must exist under Windows for "your" Compiler/Linker

so you can use only that Part of DOS Code which make NO IN/OUT Put to Screen

! Note : DOS DBF might be OEM while Windows want ANSI/UniCode than you need right CodePage

greeting,

Jimmy
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 08:55 PM

I know it.
there are many commands i cannot convert as
wait to (ns)
my sources are written on S87,
I found an old source of 1989

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Jimmy
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 04:06 PM
hi Silvio,
Silvio.Falconi wrote:
wait to (ns)

Code (fw): Select all Collapse
#command WAIT [<c>] [TO <var>] => [<var> := ] DC_Wait( <c> )

in Xbase++ there is a 3-PP LIB which can use Cl*pper Syntax in GUI Mode
all xBase Command are "translate" to DC_* Function

have a look at Attachment ...
grrrr ... forgot in this Forum Attachment are not allowed
write my a private Email so i can send you Dcstd.ch
greeting,

Jimmy
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 09:14 PM

Jimmy,

Could you post Dcstd.ch code here ?

Thanks!

Enviado desde mi SM-M325FV mediante Tapatalk

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 11:39 PM

this evening i found (on my backup, cd and diskette )
a oldest application made on dos with dbsee but I not remember what is this dbsee.

Really when we were doing the programs in dos and s87 we used other commands different from fwh and I really can't understand now after about thirty years what I had done, they were software for the condominium, for a shoe shop, for a warehouse and many more others and I would have liked to revive them maybe in Windows system maybe in fwh but as I have already written there are instructions and commands that seem to be very difficult for me because I have not used clipper for a very long time ...
clipper. .blinker fi ...

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Converting old Dos Clipper Application
Posted: Wed Mar 02, 2022 08:14 PM
Silvio

a oldest application made on dos with dbsee but I not remember what is this dbsee.


Maybe dbsee is a typo and it should be dbseek( x )?
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Converting old Dos Clipper Application
Posted: Thu Mar 03, 2022 09:11 AM
James Bott wrote:Silvio

a oldest application made on dos with dbsee but I not remember what is this dbsee.


Maybe dbsee is a typo and it should be dbseek( x )?


No, I have used dBsee 3, an excellent Italian CASE tool for Clipper Summer 87 ( years 90- 94) created by Isa software , Then Albalog bought back the brand making a release Visual for Alaska

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions