I need help with scripting

[Alexmjr1970]

I am having some difficulting creating scripts that will actually work. What I need to be able to do is first, find duplicates. Second, I need to sort by word count. If anyone has the scripts that will do this, or can send me a sample of a script, I would greatly appreciate this.

Thanks in Advance,

Alex Mansfield
Mailing Specialist Think Patented Printing, Inc.

[[email protected]]

Re: I need help with scripting

Hi Alex,

Here is a script that I wrote for a customer that looks at a table and if a record exists does a action

dim recount as n
recount = 0
tbl_dest = table.open("nsn_new",FILE_RW_EXCLUSIVE)
tbl_src = table.open("esof_gr_file",FILE_RW_EXCLUSIVE)
a_tbl = table.open("battery_main")
tbl_dest.index_primary_put()
tbl_src.index_primary_put()
'Julie this next line tells the program to go through the table untill it gets to the last record
while .not. tbl_src.fetch_eof()
' Here I am looking at the table ESOF_GR_FILE and setting the variables	
    tdid = 	tbl_src.eval("Transaction_Id")
    tnsn =	             tbl_src.eval("Nsn")
    tserial =	tbl_src.eval("Serial_No")
    tunit =	tbl_src.eval("Unit_Desc")
    tqty =	             tbl_src.eval("Quantity")
    tbay =	tbl_src.eval("Bay")
    tRow =	tbl_src.eval("Row")
    tTier =	tbl_src.eval("Tier")
    tBin =	             tbl_src.eval("Bin")
    tdate =	tbl_src.eval("Date_Applied")
    
isinfile =              tbl_src.eval(alltrim("nsn"))
appok = ""

'This line looks for variable var->isinfile in the table NSN_NEW and sets the Variable "innew" to true or false
[B]innew = exist(var->isinfile,"nsn_new","Nsn")[/B]
'This if statement set the status field in ESOF_GR_FILE if the variable var->isinfile does not exist in NSN_NEW 

if innew = .f. then
       tbl_src.change_begin()
       tbl_src.Status = "f"
       tbl_src.change_end(.t.)
else

[B]'This next if else statement checks the table Battery_Main to see if the Link field is already in the table if it
'is then set Status field in ESOF_GR_FILE to "e" if it is not then set field to "p" and set the Variable appok to "y" 

       isinmast = tbl_src.eval(alltrim("Link"))
       inmast = exist(var->isinmast,"battery_main","Battery")
       if inmast = .t. then[/B]
         tbl_src.change_begin()
         tbl_src.Status = "e"
         tbl_src.change_end(.t.)
       else
         tbl_src.change_begin()
         tbl_src.Status = "p"
         tbl_src.change_end(.t.)
         appok = "y"
       end if
end if

' Julie this is where we update the master table "battery_main"
if appok = "y"
    a_tbl.enter_begin()
    a_tbl.Transaction_id = tdid
    a_tbl.Nsn = tnsn
    a_tbl.Serial_no = tserial
    a_tbl.Unit = tunit
    a_tbl.Quantity = tqty
    a_tbl.Bay = tbay
    a_tbl.Row = trow
    a_tbl.Tier = tTier
    a_tbl.Bin = tbin
    a_tbl.Date_received = tdate
    a_tbl.enter_end(.t.)
    recount = recount + 1  
end if
' Julie if this is not the end of the table we go bakup and go through the code again
tbl_src.fetch_next()
end while
tbl_src.close()
tbl_dest.close()
a_tbl.close()

I hope this Helps

Sorry about the formating of the code but it seems to have lost in copy an past

Andy

[Alexmjr1970]

Re: I need help with scripting

Thank you so much for the script Andy, this will really come in handy.

[John Oesterle]

Re: I need help with scripting

Alex -
If you haven't discovered this yet...Andy provided you a script for Alpha 5, not Alpha 4 Version 6. Perhaps this is what you wanted and you posted your question in the wrong forum. Needless to say, an Alpha 5 script will not work in Alpha 4.
- John O

[Alexmjr1970]

Re: I need help with scripting

John,

Thanks for the advice. I did not realize that was an Alpha5 script. I was just about to try it out, you saved me the trouble.