On a old Clipper Application made perhaps on DIC-89 I have this commands
- Code: Select all Expand view
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 view
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