Converting old Dos Clipper Application

[Silvio.Falconi]

Dear Friends,
On a old Clipper Application made perhaps on DIC-89 I have this commands

Code: Select all | Expand

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: Select all | Expand

  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

[Antonio Linares]

Dear Silvio,

Do you plan to rewrite the app ? why ?

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

[Silvio.Falconi]

it's on dos 16bit

[Antonio Linares]

Dear Silvio,

It should compile and run fine using Harbour too

[Silvio.Falconi]

Dear Silvio,

It should compile and run fine using Harbour too

I wish converte to Win

[Jimmy]

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

[Silvio.Falconi]

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

[Jimmy]

hi Silvio,

wait to (ns)

Code: Select all | Expand

#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

[Antonio Linares]

Jimmy,

Could you post Dcstd.ch code here ?

Thanks!

Enviado desde mi SM-M325FV mediante Tapatalk

[Silvio.Falconi]

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 ...

[James Bott]

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 )?

[Silvio.Falconi]

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