Information générale
Catégorie:
Codage, syntaxe et commandes
Jess,
One last thing. I put the code as you suggested, and it came back with table in use or file in use. And is there a way that
I can let the user know with a message "data is being updated" the progress bar causes to many problems.
John
SET DEFAULT TO \EFG
SET SAFETY OFF
SET TALK OFF
SET ECHO OFF
SET DELETED ON
USE pay IN 0
SCAN FOR ins_co_nam = "AMERICAN UNITED LIFE" AND group_code = 'A01'
REPLACE paiddate WITH THISFORM.TEXT1.VALUE,;
fromdate WITH THISFORM.TEXT2.VALUE,;
todate WITH THISFORM.TEXT3.VALUE,;
servfee WITH .69
REPLACE balance WITH amt_pre - servfee,;
duecompany WITH balance posted with "P"
REPLACE servfee WITH 0, percent WITH 0
ENDSCAN
SELECT * FROM test, pay WHERE test.ss_numb = pay.ssnumber AND pay.ins_co_nam;
= "AMERICAN UNITED LIFE" AND pay.group_code = "A01" and AMT_PRE > 1 INTO Cursor;
CuReport ORDER BY test.last_name
IF _TALLY > 0
*BROWSE
REPORT FORM payment3b PREVIEW
inResponse = MESSAGEBOX("Do you want to post this data For A01 AUL?",36,"E.F.G. POSTING OPTIONS!")
IF InResponse = 6
***LOCAL loProgBar
SELECT pay
***loProgBar=ProgBar()
SCAN FOR GROUP_CODE = "A01" .AND. INS_CO_NAM = "AMERICAN UNITED LIFE"
*** loProgBar.npercent=RECNO()/RECCOUNT()*100
SCATTER MEMVAR MEMO
INSERT INTO hist FROM MEMVAR
ENDSCAN
ENDIF
ELSE
MESSAGEBOX("FOUND NO RECORDS THAT MATCH YOUR REQUEST")
ENDIF
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement