Page 1 of 1
Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 9:18 am
by 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
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
Re: Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 11:13 am
by 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
Re: Converting old Dos Clipper Application
Posted: Wed Feb 02, 2022 11:56 am
by Silvio.Falconi
it's on dos 16bit
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 10:41 am
by Antonio Linares
Dear Silvio,
It should compile and run fine using Harbour too
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 1:10 pm
by Silvio.Falconi
Antonio Linares wrote:Dear Silvio,
It should compile and run fine using Harbour too
I wish converte to Win
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 2:26 pm
by 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
Re: Converting old Dos Clipper Application
Posted: Thu Feb 03, 2022 8:55 pm
by 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
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 4:06 pm
by Jimmy
hi Silvio,
Silvio.Falconi wrote: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
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 9:14 pm
by Antonio Linares
Jimmy,
Could you post Dcstd.ch code here ?
Thanks!
Enviado desde mi SM-M325FV mediante Tapatalk
Re: Converting old Dos Clipper Application
Posted: Fri Feb 04, 2022 11:39 pm
by 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 ...
Re: Converting old Dos Clipper Application
Posted: Wed Mar 02, 2022 8:14 pm
by 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 )?
Re: Converting old Dos Clipper Application
Posted: Thu Mar 03, 2022 9:11 am
by Silvio.Falconi
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
