nima_8m
دوشنبه 13 بهمن 1393, 12:03 عصر
با سلام به اساتید گرامی
من یه قطعه کد فاکس رو باید ویرایش کنم و از اونجا که هیچ تسلطی رو این زبان برنامه نویسی ندارم ،در صورت امکان شماا ویرایش کنید.
این کد در حال حاضر چیکار میکنه؟
ابتدا شماره پرسنلی رو میگیره ،سپس شماره کارت و شماره سفارش بعدش کالاهای مجود در کارت رو میگره و ثبت میکنه همین.
حالا میخوام یه قسمتش حذف بشه به این صورت که :
فقط شماره پرسنلی ،کارت و سفارش رو بگیره و ثبت کنه و نیازی به گرفتن کد کالا نباشه متشکرم
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE
من یه قطعه کد فاکس رو باید ویرایش کنم و از اونجا که هیچ تسلطی رو این زبان برنامه نویسی ندارم ،در صورت امکان شماا ویرایش کنید.
این کد در حال حاضر چیکار میکنه؟
ابتدا شماره پرسنلی رو میگیره ،سپس شماره کارت و شماره سفارش بعدش کالاهای مجود در کارت رو میگره و ثبت میکنه همین.
حالا میخوام یه قسمتش حذف بشه به این صورت که :
فقط شماره پرسنلی ،کارت و سفارش رو بگیره و ثبت کنه و نیازی به گرفتن کد کالا نباشه متشکرم
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE
DO CASE
CASE r_flag=1
SELECT person
GOTO TOP
LOCATE FOR ALLTRIM(per_code)=ALLTRIM(this.value)
IF FOUND()
per_c = ALLTRIM(this.value)
thisform.caption = 'رهگيري کارت کنترل'+' کاربر فعلي='+ALLTRIM(per_name)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره کارت موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 2
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('کد پرسنلي معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=2
SELECT no FROM "&ctrl_dbf" WHERE no=VAL(THIS.VALUE) INTO CURSOR c_aut
IF EMPTY(no)=.F.
ct_no_r_t = VAL(this.value)
thisform.label1.caption = 'کارت کنترل '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکد شماره سفارش موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 3
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره کارت کنترل معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=3
SELECT ORDER FROM "&ctrl_dbf" WHERE ORDER=VAL(THIS.VALUE) INTO CURSOR o_aut
IF EMPTY(order)=.F.
or_no_r_t = VAL(this.value)
thisform.label3.caption = 'سفارش '+ALLTRIM(this.value)
this.value = ''
WAIT WINDOW NOWAIT TIMEOUT 1 'لطفا بارکدهاي کالاي موجود بر روي کارت کنترل را با دستگاه بارکد خوان بخوانيد'
r_flag = 4
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('شماره سفارش معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
CASE r_flag=4
IF EMPTY(this.value)=.F.
SELECT * FROM "&itm_dbf" WHERE code_i=THIS.VALUE INTO CURSOR it_aut
IF EMPTY(code_i)=.F.
thisform.label2.caption = ALLTRIM(name_i)
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
date_1 = DTOC(DATE())
date_2 = '13 / / '
DO Date-1 WITH date_1, date_2, .T.
IF thisform.optiongroup1.option1.value=1
st_t = 1
ELSE
st_t = 2
ENDIF
SELECT st FROM '&prg_dbf' WHERE ct_no= ct_no_r_t AND or_no=or_no_r_t AND k_code=THIS.VALUE AND s_code=mashin_c ORDER BY DATE,TIME INTO CURSOR st_pos
GOTO BOTTOM
IF EMPTY(st)=.F.
DO CASE
CASE (st=1 .AND. st_t=1)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت شروع کار ميباشد لطفا وضعيت پايان اين ايستگاه را ثبت فرمائيد', 16)
CASE (st=1 .AND. st_t=2)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=1)
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st,r es,COMM) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t,THISFORM.combo1.VALUE,THISFORM.tex t2.VALUE)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
CASE (st=2 .AND. st_t=2)
MESSAGEBOX('موقعيت قبلي اين ايستگاه وضعيت پايان کار ميباشد لطفا وضعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDCASE
ELSE
IF st_t=1
INSERT INTO "&prg_dbf" (ct_no,or_no,k_code,s_code,per_code,DATE,TIME,st) VALUES (ct_no_r_t,or_no_r_t,THIS.VALUE,mashin_c,per_c,dat e_2,TIME(),st_t)
WAIT WINDOW NOWAIT TIMEOUT 1 'موقعيت کارت ثبت گرديد'
this.value = ''
SET BELL TO 'C:\WINDOWS\media\chimes.WAV'
?? CHR(7)
ELSE
MESSAGEBOX('موقعيت شروع قبلا جهت اين ايستگاه ثبت نگرديده لطفا ابتدا موقعيت شروع اين ايستگاه را ثبت فرمائيد', 16)
ENDIF
ENDIF
ELSE
MESSAGEBOX('کد کالا معتبر نميباشد لطفا دوباره سعي فرمائيد', 16)
ENDIF
ELSE
IF thisform.label2.caption=''
MESSAGEBOX('پايان عمليات اين کارت بدون ثبت اطلاعات', 48)
ELSE
WAIT WINDOW NOWAIT TIMEOUT 2 'پايان عمليات ثبت اين کارت'
ENDIF
thisform.label1.caption = ''
thisform.label2.caption = ''
thisform.label3.caption = ''
thisform.caption = 'رهگيري کارت کنترل'
r_flag = 0
per_c = SPACE(10)
ct_no_r_t = 0
or_no_r_t = 0
mashin_c = SPACE(10)
mashin_n = SPACE(20)
thisform.text1.visible = .F.
thisform.shape1.visible = .F.
thisform.text1.value = ''
thisform.text2.value = ''
thisform.combo1.value = 0
ENDIF
ENDCASE