| Dieter Schoenefeld 2005-11-10, 11:23 am |
| I am trying to fill a return address data file with the contents of the
first record a required number of times to print out labels for this return
address.
If the variable 'mCREQUIRED' is defined from the command line my program
works as designed.
If 'mCREQUIRED' is defined as a public variable in a dialog form
(eg. 'function PBSAVE_onClick
public mCREQUIRED
mCREQUIRED = form.MYENTRYFIELD1.value
do CFiller.prg
form.close()
RELEASE mCREQUIRED
return ')
my program is not executing the command 'APPEND BLANK' ie no records are
added.
here is my code:
/* Program: CFiller.prg
Language: dB2K
Author: W.Dieter Schoenefeld
Written: 2005/11/01
Updated:
Purpose: Module to populate the return address file with the required
number of records to print the required number of labels.
*/
USE C:\Scholastic\Tables
\cretaddr.dbf EXCLUSIVE
? mCREQUIRED //for diagnosis only. variable defined in a
//dialog form or on the command line
DELETE FOR RECNO() > 1
PACK
? RECCOUNT() //for diagnosis only
? RECNO() //for diagnosis only
mFIRST = NAME1
mSECOND = NAME2
mADDRESS = ADDRESS
mCITY = CITY
mPROV = PROV
mPCODE = PCODE
DO WHILE RECNO() < mCREQUIRED
APPEND BLANK
REPLACE NAME1 WITH mFIRST,;
NAME2 WITH mSECOND,;
ADDRESS WITH mADDRESS,;
CITY WITH mCITY,;
PROV WITH mPROV,;
PCODE WITH mPCODE
ENDDO
? RECCOUNT() //for diagnosis only
DO PREVIEW.WFM WITH 'CANRETLABEL.LAB'
CLOSE TABLES
RETURN
*End of File
begin 666 CRETADDR.DBF
M`VD+"A ```#A`$,````````````
````````````;<0%.04U%,0```````$.!
M%><" $P````$`````````````
`$Y!344R````````0Y05
YP(2`````0``````
M````````041$4D534P`
```!#IA7G`@X````!```
```````````!#2519```
`
M`````$.T%><" !@````$`````````````
`%!23U8`````````0[H5YP("````
M`0``````````````4$-/1$4```````!#O!7G`@< ````!```````````````
-
M($-!3D%$24%.(%-#2$],05-424-!0TA)159%345.5"!,14%'544X-C8@4F5G
M96YT($1R+D]32$%704]
. 3#%'(#%*,2!#04Y!1$E!
3B!30TA/3$%35$E#04-(
M245614U%3E0@3$5!1U5
%.#8V(%)E9V5N="!$<BY/4TA!5T%/3DPQ1R Q2C$@
M0T%.041)04X@4T- (3TQ!4U1)0T%#2$E%5D5
-14Y4($Q%04=513@V-B!296=E
M;G0@1'(N3U-(05=!3TY,,4<@,4HQ($-!3D%$24%.(%-#2$],05-424-!0TA)
M159%345.5"!,14%'544X- C8@4F5G96YT($1R+D]32
$%704].3#%'(#%*,2!#
M04Y!1$E!3B!30TA/3$%35$E#04- (245614U%3E0@3$5!1U5
%.#8V(%)E9V5N
M="!$<BY/4TA!5T%/3DPQ1R Q2C$@0T%.041)04X@4T-(3TQ!4U1)0T%#2$E%
M5D5-14Y4($Q%04=513@V-B!296=E;G0@1'(N3U-(05=!3TY,,4<@,4HQ($-!
M3D%$24%.(%-#2$],05-424-!0TA)159%345.5"!,14%'544X-C8@4F5G96YT
M($1R+D]32$%704]. 3#%'(#%*,2!#04Y!1$E!
3B!30TA/3$%35$E#04-(2456
M14U%3E0@3$5!1U5%.#8V(%)E9V5N="!$<BY/4TA!5T%/3DPQ1R Q2C$@0T%.
M041)04X@4T- (3TQ!4U1)0T%#2$E%5D5
-14Y4($Q%04=513@V-B!296=E;G0@
M1'(N3U-(05=!3TY,,4<@,4HQ($-!3D%$24%.(%-#2$],05-424-!0TA)159%
M345.5"!,14%'544X- C8@4F5G96YT($1R+D]32
$%704].3#%'(#%*,2!#04Y!
M1$E!3B!30TA/3$%35$E#04- (245614U%3E0@3$5!1U5
%.#8V(%)E9V5N="!$
M<BY/4TA!5T%/3DPQ1R Q2C$@0T%.041)04X@4T- (3TQ!4U1)0T%#2$E%5D5
-
M14Y4($Q%04=513@V-B!296=E;G0@1'(N3U-(05=!3TY,,4<@,4HQ($-!3D%$
M24%.(%-#2$],05-424-!0TA)159%345.5"!,14%'544X-C8@4F5G96YT($1R
M+D]32$%704]. 3#%'(#%*,2!#04Y!1$E!
3B!30TA/3$%35$E#04-(245614U%
M3E0@3$5!1U5%.#8V(%)E9V5N="!$<BY/4TA!5T%/3DPQ1R Q2C$@0T%.041)
M04X@4T- (3TQ!4U1)0T%#2$E%5D5
-14Y4($Q%04=513@V-B!296=E;G0@1'(N
M3U-(05=!3TY,,4<@,4HQ($-!3D%$24%.(%-#2$],05-424-!0TA)159%345.
F5"!,14%'544X- C8@4F5G96YT($1R+D]32
$%704].3#%'(#%*,1H`
`
end
begin 666 CFiller.prg
M+RH@4')O9W)A;3H@0T9
I;&QE<BYP<F<-"B @3&%N9W5A9V4Z(&1",DL-"B @
M("!!=71H;W(Z(%<N1&EE=&5R(%-C:&]E;F5F96QD#0H@("!7<FET=&5N.B R
M,# U+S$Q+S Q#0H@("!5<&1A=&5D.@T*(" @4'5R<&]S93H@36]D=6QE('1O
M('!O<'5L871E('1H92!R971U<FX@861D<F5S<R!F:6QE('=I=&@@=&AE(')E
M<75I<F5D#0H@(" )"0EN=6UB97(@;V8@<F5C;W)D<R!T;R!P<FEN="!T:&4@
M< F5Q=6ER960@;G5M8F5R(
&]F(&QA8F5L<RX-"BHO#0H-"B!54T4@0SI<4V-H
M;VQA<W1I8UQ486)L97-<8W)E=&%D9'(N9& )F($580TQ54TE610T*(#
\@;4-2
M15%525)%1" O+V9O<B!D:6%G;F]S:7,@;VYL>2X@=F%R:6%B;&4@9&5F:6YE
M9"!I;B!A#0H@"0D)"0D)"0D)"0D)+R]D:6%L;V<@9F]R;2!O<B!O;B!T:&4@
M8V]M;6%N9"!L:6YE"0T*( T*($1%3$5412!&3U(@4D5#3D\H*2 ^(#$@("\O
M(&EF('1H97)E('=E<F4@;6]R92!T:&%N(')E<75I<F5D#0H@4$%#2R @(" @
M(" @(" @(" @(" @(" @+R\@(&QE9G0@:6X@=&AE(&1A=&%F:6QE#0H@/R!2
M14-#3U5.5"@I("\O9F]R(&1I86=N;W-I<R!O;FQY#0H@/R!214-.3R@I(" @
M(" O+V9O<B!D:6%G;F]S:7,@;VYL>0T*#0H@;49)4E-4(#T@3D%-13$-"B!M
M4T5#3TY$(#T@3D%-13(-"B!M041$4D534R ]($%$1%)%4U,-"B!M0TE462 ]
M($-)5%D-"B!M4%)/5B ](%!23U8-"B!M4$-/1$4@/2!00T]$10T*( T*( T*
M($1/(%=(24Q%(%)%0TY/*"D@/"!M0U)%455)4D5$#0H@"0T*( E!4%!%3D0@
M0DQ!3DL-"B )4D503$%#12!.04U%,2!7251((&U&25)35"P[#0H@"0D)"4Y!
M344R(%=)5$@@;5-%0T].1"P[#0H@(" @(" @(" )041$4D534R!7251((&U!
M1$1215-3+#L-"B @(" @(" @( E#2519(%=)5$@@;4-)5%DL.PT*(" @(" @
M(" @"5!23U8@5TE42"!M4%)/5BP[#0H@(" @(" @(" )4$-/1$4@5TE42"!M
M4$-/1$4-"B -"B!%3D1$3PT*( T*( T*(#\@4D5#0T]53E0H*2
@(" O+V9O
M<B!D:6%G;F]S:7,@;VYL>0T*($1/(%!2159)15<N5T9-(%=)5$@@)T-!3E)%
M5$Q!0D5,+DQ!0B<-"B!#3$]312!404),15,-" @T*(%)%5%523@T*#0HJ1
6YD
((&]F($9I;&4`
`
end
|