รายงาน 415
โพสต์แล้ว: พฤหัสฯ. ส.ค. 06, 2015 5:36 pmต้องการแก้ไขรายงาน 415
http://upic.me/show/56393637
ในส่วนของช่องรายการ รายงานจะเอาหมายเหตุ มาแสดง(สินค้า ---> 1 ----> 1 ---> จ่ายสินค้าภายใน)
อยากให้ช่องรายการ พิมพ์รายงานแสดง ชื่อ แผนกแล้วตามด้วยหมายเหตุ ครับ
ผมต้องแก้ไขในส่วนไหนครับ
* STCRDLV.RWT - Stock Card Separate by Location (with VALUE)
*
[report frame]
Ti::~PAGE0 ~INIT
Gh::~STORE0 ~STORE1 ~SETQUCOD ; 1 STKCOD
Gh::~PAGE0 ~GETOPNBAL ~M0 ~M1 ; 2 LOCCOD
Gh::~STORE2 ~STORE3
He:\NAME ` : ~TAXID
He:$B$B ~DATE1 ~DATE2
He:~STKCOD $B~STKDES $B ` : ~PAGE
He:~LOC $B~LOCDES $B : ~COST :~QUDES
*He:\LINE
He:<----- ------> <----------- -----------> <---------- -----------> <------------ ------------> <-- ---> <--- ---> <---------- ---------->
He:
* dd/mm/yy xxxxxxxxx1xx xxx 9999,999.9--9999,999.9--999,999,999.9- 9999,999.9--9999,999.9--999,999,999.9- 9999,999.9--9999,999.9--999,999,999.9- xxxxxxxxx1xx xxx Xxxxxxxxx1xxxxxx xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3
He:\LINE
He:~SK ~OBAL ~OPRICE ~OVAL
Bo::~CLRSUM
Ih::~SEEK_STCRD1 ;1 stcrd->stkcod+stcrd->loccod stloc->stkcod+stloc->loccod
Ib::~S0~S1~S2~S3~S4~S5~S6~S7~S8~S9~SA~SB~SD ;1
Ib:~DOCDAT ~DOCNUM ~Q1 ~PRC1 ~V1 ~Q2 ~PRC2 ~V2 ~BAL ~PRC ~VAL ~RDOCNUM ~REFNUM ~POSDES
Ib:~AV ~VALCHG1 ~VALCHG2 ~BAL ~PRC ~VAL
Ib::~M1
Gf::~SK10 ; 2
Gf: ------------ -------------- ------------ --------------
Gf:~X ~C_ITEM ~SUMQTY1 ~SUMVAL1 ~SUMQTY2 ~SUMVAL2
Gf:~C ~C_ITEM ~SUMQTY1 ~SUMVAL1 ~SUMQTY2 ~SUMVAL2 ( ~CTOTBAL ~CQUDES ~XTOTBAL ~XQUDES
Gf: ============ ============== ============ ==============
Gf:\FEED
Su:\DLINE
Su:~C_STK ~G_QTY1 ~G_VAL1 ~G_QTY2 ~G_VAL2 ~G_QTY ~G_VAL
Su:\DLINE
Su:~RM$_$_
Su:~SW - /
Su:~W_RECAL - (***'')
Su:>>>> <<<<
[end frame]
[print options]
Top=0
Left=0
Right=207
Lines=41
Output=Select, Printer, Screen, File,
File Name=STCRDLV.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, Default
8_Inch=\027\033\005
15_Inch=\027\033\004
Subgroup=OFF
Query=STMAS->STKTYP='0'
Query=.AND.STKCOD>='Stk1()'.AND. STKCOD<='Stk2()'
Query=.AND.LOCCOD>='Loc1()'.AND. LOCCOD<='Loc2()'
Query=.AND.STMAS->STKGRP>='StkGrp1()'.AND.STMAS->STKGRP<='StkGrp2()'
[master file]
File=STLOC
Alias=A
Tag=STLOC1
System=DATA_PATH
[item file]
File=STCRD
Alias=C
Tag=STCRD2
System=DATA_PATH
Filter=(POSOPR#'='.AND.POSOPR #'2') .OR. (POSOPR ='2'.AND.RETSTK ='Y')
File=ISTAB
Alias=I
Tag=ISTAB1
System=DATA_PATH
[relate file]
File=STMAS
Alias=M
Tag=STMAS1
System=DATA_PATH
Master file=STLOC
Master-Related Field=STKCOD
File=ISRUN
Alias=R
Tag=ISRUN2
System=DATA_PATH
Master file=STCRD
Master-Related Field=DOCNUM
File=ARMAS
Alias=D
Tag=ARMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=PEOPLE
File=APMAS
Alias=E
Tag=APMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=PEOPLE
File=STTRN
Alias=T
Tag=STTRN1
System=DATA_PATH
Master file=STCRD
Master-Related Field=DOCNUM
[data spec]
*~dat: len,"pict", "data", "exp"
~INIT: 0, "", "", "c_stk=0;G_QTY1=0;G_VAL1=0;G_QTY2=0;G_VAL2=0;G_QTY=0;G_VAL=0; PRT_NOMOVE=@n_prtnomove(); SW=IIF(PRT_NOMOVE=0, ' ', '}'); w_recal='}'; p_cqucod=@n_isuse_cqu()"
~PAGE0: 0, "", "", "P=0;SK=' ';SK1=' '"
~PAGE: 0, "99,999", "P", "P=P+1"
~TAXID: 0, "", "p_taxid()", ""
~DATE1: 0, "d", "@date1()", ""
~DATE2: 0, "d", "@date2()", ""
~M0: 0, "", "", "SK=' ';SK1=' ';PRINTED=0;BAL=STLOC->LOCBAL; PRICE=STLOC->UNITPR;VAL=STLOC->LOCVAL;STKC=STMAS->STKCOD;STKD=STMAS->STKDES; c_item=0"
~M1: 0, "", "", "OBAL=BAL;OPRICE=PRICE;OVAL=VAL"
~SEEK_STCRD1: 0, "", "seek_begin1()",""
~STORE0: 0, "", "p_istab( STMAS->QUCOD,20,1)", "STKC=STLOC->STKCOD;STKD=STMAS->STKDES; c_stk=c_stk+1; is_fifo=@n_isfifo(); is_avg=IIF(is_fifo=0, 1, 0)"
~STORE1: 0, "", "", "QUDES=ISTAB->TYPDES"
~STORE2: 0, "", "p_istab( STLOC->LOCCOD,21,1)", ""
~STORE3: 0, "", "", "LOC=STLOC->LOCCOD;LOCDES=ISTAB->TYPDES"
~STKCOD: 0, "", "STKC", ""
~STKDES: 0, "", "STKD", ""
~LOC: 0, "", "LOC", ""
~LOCDES: 0, "", "LOCDES", ""
~QUDES: 8, "", "QUDES", ""
~GETOPNBAL: 0, "", "stloc_opnbald()","costtype=@t_costtype()"
~SK: 0, "", "SK", ""
~SK0: 0, "", "", "SK=IIF( PRINTED=1, ':', ' ' )"
~SK1: 0, "", "SK1", ""
~SK10: 0, "", "", "SK1=IIF( SUMQTY1=0 .AND. SUMQTY2=0, ':', ' ' )"
~OBAL: 0, "qty(12)", "OBAL", ""
~OPRICE: 0, "pri(12)", "OPRICE", ""
~OVAL: 0, "999,999,999.99", "OVAL", ""
~BAL: 0, "qty(12)", "BAL", ""
~PRC: 0, "pri(12)", "PRICE", ""
~VAL: 0, "999,999,999.99", "VAL", ""
~Q1: 0, "qtyZ(12)", "Q1", "SUMQTY1=SUMQTY1+Q1"
~PRC1: 0, "priZ(12)", "PRICE1", ""
~V1: 0, "zzz,zzz,zzz.zz", "V1", "SUMVAL1=SUMVAL1+V1"
~VALCHG1: 0, "zzz,zzz,zzz.zz", "VALCHG1", "VALCHG1=IIF(STCRD->VALCHG>0, STCRD->VALCHG, 0); SUMVAL1=SUMVAL1+VALCHG1; VAL=VAL+VALCHG1"
~Q2: 0, "qtyZ(12)", "Q2", "SUMQTY2=SUMQTY2+Q2"
~PRC2: 0, "priZ(12)", "PRICE2", ""
~V2: 0, "zzz,zzz,zzz.zz", "V2", "SUMVAL2=SUMVAL2+V2"
~VALCHG2: 0, "zzz,zzz,zzz.zz", "VALCHG2", "VALCHG2=IIF(STCRD->VALCHG<0, 0-STCRD->VALCHG, 0); SUMVAL2=SUMVAL2+VALCHG2; VAL=VAL-VALCHG2; PRICE=IIF(BAL=0,0,VAL/BAL)"
~C_ITEM: 4, "99,999", "c_item", "G_QTY=G_QTY+BAL;G_VAL=G_VAL+VAL"
~SUMQTY1: 0, "qty(12)", "SUMQTY1", "G_QTY1=G_QTY1+SUMQTY1"
~SUMVAL1: 0, "999,999,999.99", "SUMVAL1", "G_VAL1=G_VAL1+SUMVAL1"
~SUMQTY2: 0, "qty(12)", "SUMQTY2", "G_QTY2=G_QTY2+SUMQTY2"
~SUMVAL2: 0, "999,999,999.99", "SUMVAL2", "G_VAL2=G_VAL2+SUMVAL2"
~C_STK: 0, "99,999", "c_stk", ""
~G_QTY: 0, "qty(12)", "G_QTY", ""
~G_VAL: 0, "999,999,999.99", "G_VAL", ""
~G_QTY1: 0, "qty(12)", "G_QTY1", ""
~G_VAL1: 0, "999,999,999.99", "G_VAL1", ""
~G_QTY2: 0, "qty(12)", "G_QTY2", ""
~G_VAL2: 0, "999,999,999.99", "G_VAL2", ""
~CLRSUM: 0, "", "", "SUMQTY1=0; SUMVAL1=0; SUMQTY2=0; SUMVAL2=0"
~S0: 0, "", "", "PRINTED=1; c_item=c_item+1"
~S1: 0, "", "", "POS=@n_posopr(STCRD->POSOPR); T=STCRD->XTRNQTY; V=STCRD->XTRNVAL; PR=STCRD->XUNITPR"
~S2: 0, "", "", "SIDE=IIF(POS<=3.OR.POS=10, 1, 2 )"
~S3: 0, "", "", "SIDE=IIF(POS=8 .AND. T>0,1,SIDE)"
~S4: 0, "", "", "SIDE=IIF(POS=5, IIF( V < 0, 2, 1 ),SIDE )"
~S5: 0, "", "", "T=IIF(T<0,0-T,T); V=IIF(V<0,0-V,V)"
~S6: 0, "", "", "BAL=BAL+IIF(SIDE=1,T,0-T); BAL=VAL(STR(BAL,15,4)); VAL=VAL+IIF(SIDE=1,V,0-V); PRICE=IIF(BAL=0,0,VAL/BAL)"
~S7: 0, "", "", "Q1=IIF(SIDE=1,T,0); V1=IIF(SIDE=1,V,0); PRICE1=V1/Q1"
~S8: 0, "", "", "Q2=IIF(SIDE=2,T,0); V2=IIF(SIDE=2,V,0); PRICE2=IIF(SIDE=2,STCRD->XUNITPR,0)"
~S9: 0, "", "", "POSD=IIF(POS=0 .OR. POS=7,SUBSTR(APMAS->SUPNAM,1,30),ISRUN->POSDES)"
~SA: 0, "", "", "POSD=IIF(POS=2 .OR. POS=9,SUBSTR(ARMAS->CUSNAM,1,30),POSD)"
~SB: 0, "", "", "POSD=IIF(POS#0.AND.POS#7.AND.POS#2.AND.POS#9,SUBSTR(STTRN->REMARK,1,30),POSD)"
~SD: 0, "", "", "POSD=IIF(POSD=' ',ISRUN->POSDES,POSD)"
~DOCDAT: 0, "", "STCRD->DOCDAT",""
~DOCNUM: 0, "", "DOC", "DOC=trim(STCRD->DOCNUM) + '-' + STCRD->SEQNUM; DOC=IIF(DOC='-',' ',DOC)"
~REFNUM: 0, "", "STCRD->REFNUM",""
*~DOCNUM: 0, "", "STCRD->DOCNUM",""
*~NN: 0, "", "STCRD->SEQNUM",""
*~DOCNUM: -18, "", "DOC", "DOC=IIF(STCRD->REFNUM=' ', STCRD->DOCNUM+' ', STCRD->REFNUM);DOC=DOC-IIF( STCRD->SEQNUM # ' ', ' ' + STCRD->SEQNUM, ' ')"
*~RDOCNUM: 0, "", "RDOC", "RDOC=IIF(STCRD->RDOCNUM=' ', ' ', SUBSTR(STCRD->RDOCNUM,1,12)-'-'-SUBSTR(STCRD->RDOCNUM,13,3))"
~RDOCNUM: 0, "", "RDOC", "RDOC=IIF(POS=10.OR.POS=11, IIF(STR(STCRD->PHYBAL,12,4)#STR(BAL,12,4),'***','=== '), IIF(STCRD->RDOCNUM=' ', ' ', SUBSTR(STCRD->RDOCNUM,1,12)-'-'-SUBSTR(STCRD->RDOCNUM,13,3))); w_recal=IIF(RDOC='***', ' ', w_recal)"
~POSDES: 30, "", "POSD", ""
~AV: 0, "", "AV", "AV=IIF(is_avg=1.and.STR(STCRD->VALCHG,15,2) #' 0.00', ' ', '}')"
~SW: 0, "", "SW", ""
~W_RECAL: 0, "", "w_recal", ""
~RM: 0, "", "re_mark", "re_mark = IIF( SW=' '.OR.w_recal=' ', ' ', '}')"
~COST: 0, "", "costtype", ""
~SETQUCOD: 0, "", "", "qu=@p_istab( STMAS->QUCOD,20,1,8 ); cqu=@p_istab( STMAS->CQUCOD,20,1,8 ); c_factor=STMAS->CFACTOR"
~X: 0, "", "PX", "PX=IIF(p_cqucod=0,' ','}')"
~C: 0, "", "PC", "PC=IIF(p_cqucod=0,'}',' ')"
~CTOTBAL: 0, "qtyZ(12)", "ctotbal", "ctotbal=IIF(c_factor>1, VAL(SUBSTR(STR(BAL/c_factor,15,4),1,10)), 0)"
~CQUDES: 0, "", "cqu", "cqu=IIF(ctotbal#0.or.c_factor>1, cqu-'x'-LTRIM(STR(c_factor,10,0)), ' ')"
~CFACTOR: 0, "facZ(10)", "c_factor", ""
~XTOTBAL: 0, "qty(12)", "xtotbal", "xtotbal=BAL-(ctotbal*c_factor)"
~XQUDES: 0, "", "xqu", "xqu=IIF(p_cqucod=1,qu,' ');xqu=xqu-')'"
http://upic.me/show/56393637
ในส่วนของช่องรายการ รายงานจะเอาหมายเหตุ มาแสดง(สินค้า ---> 1 ----> 1 ---> จ่ายสินค้าภายใน)
อยากให้ช่องรายการ พิมพ์รายงานแสดง ชื่อ แผนกแล้วตามด้วยหมายเหตุ ครับ
ผมต้องแก้ไขในส่วนไหนครับ
* STCRDLV.RWT - Stock Card Separate by Location (with VALUE)
*
[report frame]
Ti::~PAGE0 ~INIT
Gh::~STORE0 ~STORE1 ~SETQUCOD ; 1 STKCOD
Gh::~PAGE0 ~GETOPNBAL ~M0 ~M1 ; 2 LOCCOD
Gh::~STORE2 ~STORE3
He:\NAME ` : ~TAXID
He:$B$B ~DATE1 ~DATE2
He:~STKCOD $B~STKDES $B ` : ~PAGE
He:~LOC $B~LOCDES $B : ~COST :~QUDES
*He:\LINE
He:<----- ------> <----------- -----------> <---------- -----------> <------------ ------------> <-- ---> <--- ---> <---------- ---------->
He:
* dd/mm/yy xxxxxxxxx1xx xxx 9999,999.9--9999,999.9--999,999,999.9- 9999,999.9--9999,999.9--999,999,999.9- 9999,999.9--9999,999.9--999,999,999.9- xxxxxxxxx1xx xxx Xxxxxxxxx1xxxxxx xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3
He:\LINE
He:~SK ~OBAL ~OPRICE ~OVAL
Bo::~CLRSUM
Ih::~SEEK_STCRD1 ;1 stcrd->stkcod+stcrd->loccod stloc->stkcod+stloc->loccod
Ib::~S0~S1~S2~S3~S4~S5~S6~S7~S8~S9~SA~SB~SD ;1
Ib:~DOCDAT ~DOCNUM ~Q1 ~PRC1 ~V1 ~Q2 ~PRC2 ~V2 ~BAL ~PRC ~VAL ~RDOCNUM ~REFNUM ~POSDES
Ib:~AV ~VALCHG1 ~VALCHG2 ~BAL ~PRC ~VAL
Ib::~M1
Gf::~SK10 ; 2
Gf: ------------ -------------- ------------ --------------
Gf:~X ~C_ITEM ~SUMQTY1 ~SUMVAL1 ~SUMQTY2 ~SUMVAL2
Gf:~C ~C_ITEM ~SUMQTY1 ~SUMVAL1 ~SUMQTY2 ~SUMVAL2 ( ~CTOTBAL ~CQUDES ~XTOTBAL ~XQUDES
Gf: ============ ============== ============ ==============
Gf:\FEED
Su:\DLINE
Su:~C_STK ~G_QTY1 ~G_VAL1 ~G_QTY2 ~G_VAL2 ~G_QTY ~G_VAL
Su:\DLINE
Su:~RM$_$_
Su:~SW - /
Su:~W_RECAL - (***'')
Su:>>>> <<<<
[end frame]
[print options]
Top=0
Left=0
Right=207
Lines=41
Output=Select, Printer, Screen, File,
File Name=STCRDLV.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, Default
8_Inch=\027\033\005
15_Inch=\027\033\004
Subgroup=OFF
Query=STMAS->STKTYP='0'
Query=.AND.STKCOD>='Stk1()'.AND. STKCOD<='Stk2()'
Query=.AND.LOCCOD>='Loc1()'.AND. LOCCOD<='Loc2()'
Query=.AND.STMAS->STKGRP>='StkGrp1()'.AND.STMAS->STKGRP<='StkGrp2()'
[master file]
File=STLOC
Alias=A
Tag=STLOC1
System=DATA_PATH
[item file]
File=STCRD
Alias=C
Tag=STCRD2
System=DATA_PATH
Filter=(POSOPR#'='.AND.POSOPR #'2') .OR. (POSOPR ='2'.AND.RETSTK ='Y')
File=ISTAB
Alias=I
Tag=ISTAB1
System=DATA_PATH
[relate file]
File=STMAS
Alias=M
Tag=STMAS1
System=DATA_PATH
Master file=STLOC
Master-Related Field=STKCOD
File=ISRUN
Alias=R
Tag=ISRUN2
System=DATA_PATH
Master file=STCRD
Master-Related Field=DOCNUM
File=ARMAS
Alias=D
Tag=ARMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=PEOPLE
File=APMAS
Alias=E
Tag=APMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=PEOPLE
File=STTRN
Alias=T
Tag=STTRN1
System=DATA_PATH
Master file=STCRD
Master-Related Field=DOCNUM
[data spec]
*~dat: len,"pict", "data", "exp"
~INIT: 0, "", "", "c_stk=0;G_QTY1=0;G_VAL1=0;G_QTY2=0;G_VAL2=0;G_QTY=0;G_VAL=0; PRT_NOMOVE=@n_prtnomove(); SW=IIF(PRT_NOMOVE=0, ' ', '}'); w_recal='}'; p_cqucod=@n_isuse_cqu()"
~PAGE0: 0, "", "", "P=0;SK=' ';SK1=' '"
~PAGE: 0, "99,999", "P", "P=P+1"
~TAXID: 0, "", "p_taxid()", ""
~DATE1: 0, "d", "@date1()", ""
~DATE2: 0, "d", "@date2()", ""
~M0: 0, "", "", "SK=' ';SK1=' ';PRINTED=0;BAL=STLOC->LOCBAL; PRICE=STLOC->UNITPR;VAL=STLOC->LOCVAL;STKC=STMAS->STKCOD;STKD=STMAS->STKDES; c_item=0"
~M1: 0, "", "", "OBAL=BAL;OPRICE=PRICE;OVAL=VAL"
~SEEK_STCRD1: 0, "", "seek_begin1()",""
~STORE0: 0, "", "p_istab( STMAS->QUCOD,20,1)", "STKC=STLOC->STKCOD;STKD=STMAS->STKDES; c_stk=c_stk+1; is_fifo=@n_isfifo(); is_avg=IIF(is_fifo=0, 1, 0)"
~STORE1: 0, "", "", "QUDES=ISTAB->TYPDES"
~STORE2: 0, "", "p_istab( STLOC->LOCCOD,21,1)", ""
~STORE3: 0, "", "", "LOC=STLOC->LOCCOD;LOCDES=ISTAB->TYPDES"
~STKCOD: 0, "", "STKC", ""
~STKDES: 0, "", "STKD", ""
~LOC: 0, "", "LOC", ""
~LOCDES: 0, "", "LOCDES", ""
~QUDES: 8, "", "QUDES", ""
~GETOPNBAL: 0, "", "stloc_opnbald()","costtype=@t_costtype()"
~SK: 0, "", "SK", ""
~SK0: 0, "", "", "SK=IIF( PRINTED=1, ':', ' ' )"
~SK1: 0, "", "SK1", ""
~SK10: 0, "", "", "SK1=IIF( SUMQTY1=0 .AND. SUMQTY2=0, ':', ' ' )"
~OBAL: 0, "qty(12)", "OBAL", ""
~OPRICE: 0, "pri(12)", "OPRICE", ""
~OVAL: 0, "999,999,999.99", "OVAL", ""
~BAL: 0, "qty(12)", "BAL", ""
~PRC: 0, "pri(12)", "PRICE", ""
~VAL: 0, "999,999,999.99", "VAL", ""
~Q1: 0, "qtyZ(12)", "Q1", "SUMQTY1=SUMQTY1+Q1"
~PRC1: 0, "priZ(12)", "PRICE1", ""
~V1: 0, "zzz,zzz,zzz.zz", "V1", "SUMVAL1=SUMVAL1+V1"
~VALCHG1: 0, "zzz,zzz,zzz.zz", "VALCHG1", "VALCHG1=IIF(STCRD->VALCHG>0, STCRD->VALCHG, 0); SUMVAL1=SUMVAL1+VALCHG1; VAL=VAL+VALCHG1"
~Q2: 0, "qtyZ(12)", "Q2", "SUMQTY2=SUMQTY2+Q2"
~PRC2: 0, "priZ(12)", "PRICE2", ""
~V2: 0, "zzz,zzz,zzz.zz", "V2", "SUMVAL2=SUMVAL2+V2"
~VALCHG2: 0, "zzz,zzz,zzz.zz", "VALCHG2", "VALCHG2=IIF(STCRD->VALCHG<0, 0-STCRD->VALCHG, 0); SUMVAL2=SUMVAL2+VALCHG2; VAL=VAL-VALCHG2; PRICE=IIF(BAL=0,0,VAL/BAL)"
~C_ITEM: 4, "99,999", "c_item", "G_QTY=G_QTY+BAL;G_VAL=G_VAL+VAL"
~SUMQTY1: 0, "qty(12)", "SUMQTY1", "G_QTY1=G_QTY1+SUMQTY1"
~SUMVAL1: 0, "999,999,999.99", "SUMVAL1", "G_VAL1=G_VAL1+SUMVAL1"
~SUMQTY2: 0, "qty(12)", "SUMQTY2", "G_QTY2=G_QTY2+SUMQTY2"
~SUMVAL2: 0, "999,999,999.99", "SUMVAL2", "G_VAL2=G_VAL2+SUMVAL2"
~C_STK: 0, "99,999", "c_stk", ""
~G_QTY: 0, "qty(12)", "G_QTY", ""
~G_VAL: 0, "999,999,999.99", "G_VAL", ""
~G_QTY1: 0, "qty(12)", "G_QTY1", ""
~G_VAL1: 0, "999,999,999.99", "G_VAL1", ""
~G_QTY2: 0, "qty(12)", "G_QTY2", ""
~G_VAL2: 0, "999,999,999.99", "G_VAL2", ""
~CLRSUM: 0, "", "", "SUMQTY1=0; SUMVAL1=0; SUMQTY2=0; SUMVAL2=0"
~S0: 0, "", "", "PRINTED=1; c_item=c_item+1"
~S1: 0, "", "", "POS=@n_posopr(STCRD->POSOPR); T=STCRD->XTRNQTY; V=STCRD->XTRNVAL; PR=STCRD->XUNITPR"
~S2: 0, "", "", "SIDE=IIF(POS<=3.OR.POS=10, 1, 2 )"
~S3: 0, "", "", "SIDE=IIF(POS=8 .AND. T>0,1,SIDE)"
~S4: 0, "", "", "SIDE=IIF(POS=5, IIF( V < 0, 2, 1 ),SIDE )"
~S5: 0, "", "", "T=IIF(T<0,0-T,T); V=IIF(V<0,0-V,V)"
~S6: 0, "", "", "BAL=BAL+IIF(SIDE=1,T,0-T); BAL=VAL(STR(BAL,15,4)); VAL=VAL+IIF(SIDE=1,V,0-V); PRICE=IIF(BAL=0,0,VAL/BAL)"
~S7: 0, "", "", "Q1=IIF(SIDE=1,T,0); V1=IIF(SIDE=1,V,0); PRICE1=V1/Q1"
~S8: 0, "", "", "Q2=IIF(SIDE=2,T,0); V2=IIF(SIDE=2,V,0); PRICE2=IIF(SIDE=2,STCRD->XUNITPR,0)"
~S9: 0, "", "", "POSD=IIF(POS=0 .OR. POS=7,SUBSTR(APMAS->SUPNAM,1,30),ISRUN->POSDES)"
~SA: 0, "", "", "POSD=IIF(POS=2 .OR. POS=9,SUBSTR(ARMAS->CUSNAM,1,30),POSD)"
~SB: 0, "", "", "POSD=IIF(POS#0.AND.POS#7.AND.POS#2.AND.POS#9,SUBSTR(STTRN->REMARK,1,30),POSD)"
~SD: 0, "", "", "POSD=IIF(POSD=' ',ISRUN->POSDES,POSD)"
~DOCDAT: 0, "", "STCRD->DOCDAT",""
~DOCNUM: 0, "", "DOC", "DOC=trim(STCRD->DOCNUM) + '-' + STCRD->SEQNUM; DOC=IIF(DOC='-',' ',DOC)"
~REFNUM: 0, "", "STCRD->REFNUM",""
*~DOCNUM: 0, "", "STCRD->DOCNUM",""
*~NN: 0, "", "STCRD->SEQNUM",""
*~DOCNUM: -18, "", "DOC", "DOC=IIF(STCRD->REFNUM=' ', STCRD->DOCNUM+' ', STCRD->REFNUM);DOC=DOC-IIF( STCRD->SEQNUM # ' ', ' ' + STCRD->SEQNUM, ' ')"
*~RDOCNUM: 0, "", "RDOC", "RDOC=IIF(STCRD->RDOCNUM=' ', ' ', SUBSTR(STCRD->RDOCNUM,1,12)-'-'-SUBSTR(STCRD->RDOCNUM,13,3))"
~RDOCNUM: 0, "", "RDOC", "RDOC=IIF(POS=10.OR.POS=11, IIF(STR(STCRD->PHYBAL,12,4)#STR(BAL,12,4),'***','=== '), IIF(STCRD->RDOCNUM=' ', ' ', SUBSTR(STCRD->RDOCNUM,1,12)-'-'-SUBSTR(STCRD->RDOCNUM,13,3))); w_recal=IIF(RDOC='***', ' ', w_recal)"
~POSDES: 30, "", "POSD", ""
~AV: 0, "", "AV", "AV=IIF(is_avg=1.and.STR(STCRD->VALCHG,15,2) #' 0.00', ' ', '}')"
~SW: 0, "", "SW", ""
~W_RECAL: 0, "", "w_recal", ""
~RM: 0, "", "re_mark", "re_mark = IIF( SW=' '.OR.w_recal=' ', ' ', '}')"
~COST: 0, "", "costtype", ""
~SETQUCOD: 0, "", "", "qu=@p_istab( STMAS->QUCOD,20,1,8 ); cqu=@p_istab( STMAS->CQUCOD,20,1,8 ); c_factor=STMAS->CFACTOR"
~X: 0, "", "PX", "PX=IIF(p_cqucod=0,' ','}')"
~C: 0, "", "PC", "PC=IIF(p_cqucod=0,'}',' ')"
~CTOTBAL: 0, "qtyZ(12)", "ctotbal", "ctotbal=IIF(c_factor>1, VAL(SUBSTR(STR(BAL/c_factor,15,4),1,10)), 0)"
~CQUDES: 0, "", "cqu", "cqu=IIF(ctotbal#0.or.c_factor>1, cqu-'x'-LTRIM(STR(c_factor,10,0)), ' ')"
~CFACTOR: 0, "facZ(10)", "c_factor", ""
~XTOTBAL: 0, "qty(12)", "xtotbal", "xtotbal=BAL-(ctotbal*c_factor)"
~XQUDES: 0, "", "xqu", "xqu=IIF(p_cqucod=1,qu,' ');xqu=xqu-')'"