masoud1345
چهارشنبه 06 شهریور 1392, 07:55 صبح
دوستان من سند خودرا ابتدا با سرفصل كل ومعين ثبت بانك ميكنم وسپس با برنامه زير سرفصل كل را ميسازم اشكال كار من اين است كه وقتي سرفصل كل من با هم فرق دارد برنامه درست كار ميكند ولي وقتي سر فصل كل يك باشد فقط رديف بدهكار را ثبت ميكند لطفا ايراد بنده را برطرف فرماييد
SET TALK OFF
SET STATUS OFF
SET SAFETY OFF
*SET STEP ON
SELECT 1
USE kodha
INDEX ON SUBSTR(kod,1,3) TO a &&ÓäÏ ßÏåÇ
SELECT 2
USE sanad
INDEX ON SUBSTR(kod,1,3) TO b &&ÓäÏ ÇÕáí
shos_=17
sele 1
jam1=0
jam2=0
ko_=SUBSTR(kod,1,3)
DO whil !EOF()
SELECT 2
do while SUBSTR(kod,1,3)=ko_ and !EOF()
IF tash=1
jam1=jam1+bedk
ELSE
jam2=jam2+best
endi
skip
IF jam1>0
REPLACE tash WITH 1
ELSE
REPLACE tash WITH 2
endi
SELECT 1
SEEK ko_
SELECT 2
APPEND BLANK
REPLACE kod WITH SUBSTR(ko_,1,3)+'000'
REPLACE jamb WITH jam1 &&ÌãÚ ßá ÈÏåßÇÑ ÓäÏ
REPLACE jams WITH jam2 &&ÌãÚ ßá ÈÓÊÇäßÇÑ
REPLACE shos WITH 17
IF !EOF()
SKIP
ELSE
RETURN
ENDIF
endd
endd
brow
SET TALK OFF
SET STATUS OFF
SET SAFETY OFF
*SET STEP ON
SELECT 1
USE kodha
INDEX ON SUBSTR(kod,1,3) TO a &&ÓäÏ ßÏåÇ
SELECT 2
USE sanad
INDEX ON SUBSTR(kod,1,3) TO b &&ÓäÏ ÇÕáí
shos_=17
sele 1
jam1=0
jam2=0
ko_=SUBSTR(kod,1,3)
DO whil !EOF()
SELECT 2
do while SUBSTR(kod,1,3)=ko_ and !EOF()
IF tash=1
jam1=jam1+bedk
ELSE
jam2=jam2+best
endi
skip
IF jam1>0
REPLACE tash WITH 1
ELSE
REPLACE tash WITH 2
endi
SELECT 1
SEEK ko_
SELECT 2
APPEND BLANK
REPLACE kod WITH SUBSTR(ko_,1,3)+'000'
REPLACE jamb WITH jam1 &&ÌãÚ ßá ÈÏåßÇÑ ÓäÏ
REPLACE jams WITH jam2 &&ÌãÚ ßá ÈÓÊÇäßÇÑ
REPLACE shos WITH 17
IF !EOF()
SKIP
ELSE
RETURN
ENDIF
endd
endd
brow