本文主要是介绍X3如何销售订单行实现复制功能，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
💎技术实现
######################################################################################
## 由系统管理员添加的标签 (屏幕 SOH4) 04/07/2021 16:46:41 (ADMIN)
######################################################################################
Subprog B19_NBLIG
#行复制johnny 20210407
Local Integer OK : OK=1
If [M:SOH4]NBLIG=0 End : Endif
If dim([M:SOH4]ITMREF)< [M:SOH4]NBLIG+2GMESSAGE=mess(122,199,1) : GERR=1 : End : EndifIf [M:SOH4]ITMREF(nolign-1)<>"" nolign+=1 : EndifIf [F:ITM]ITMREF<>[M:SOH4]ITMREF(nolign-2)Read [ITM] ITM0=[M:SOH4]ITMREF(nolign-2) : If fstat Raz [F:ITM] : Endif
Endif
status=73 : Call INSERE("SOPLIN") From TABLEAUX : If mkstat End : Endif
Call AVANT_NBLIG From SUBSOH : If mkstat End : Endif
If GREVFLG=0# Gosub AVANT_MOD From SUBSOHA1 : If OK=0 : End : Endif
Endif
Call TEMPON("O") From GESECRAN
Local Shortint NOL, I, J, K, L : NOL=nolign-1
Insa NOL,1,[M:SOH4]NBLIG [M:SOH4]NBLIG : [M:SOH4]NBLIG+=1
J=NOL : L=NOL-1 : Gosub COPIE_LIG
Call TEMPOFF From GESECRAN
status=0 : Call LINNUM("SOPLIN") From TABLEAUX
#Call APRES_NBLIG From SUBSOH
Call B2_NBLIG From SUBSOH
Affzo [SOH4]1-99 : mkstat=4 : GREVFLG+=5
End######################################################################################$COPIE_LIG
#-----------------------------------------------------------#
# Copie des champs d'une ligne en duplication ou éclatement #
# J = indice ligne à créer (Destination) #
# K = indice de travail pour boucle de chargement #
# L = indice ligne à copier (Origine) #
# #
# WARNING! : This code is also called for subcontract lines #
# loading, so some fields must NOT be copied in this case #
#(i.e : ECCVALMAJ/ECCVALMIN #
#-----------------------------------------------------------#
Local Decimal WCPRAMT # Issue 84129 - 2013-01-22 by MUARN : landed cost
Local Integer WSTAT # Issue 84129 - 2013-01-22 by MUARN : landed cost[M:SOH4]ITMREF(J) = [M:SOH4]ITMREF(L)
[M:SOH4]ITMDES(J) = [M:SOH4]ITMDES(L)
[M:SOH4]ITMDES1(J) = [M:SOH4]ITMDES1(L)
[M:SOH4]ITMDES2(J) = [M:SOH4]ITMDES2(L)
[M:SOH4]ITMDES3(J) = [M:SOH4]ITMDES3(L)
[M:SOH4]SEAKEY(J) = [M:SOH4]SEAKEY(L)
[M:SOH4]YPAT7(J) = [M:SOH4]YPAT7(L)
[M:SOH4]YPAT9(J) = [M:SOH4]YPAT9(L)
[M:SOH4]DSTOFCY(J) = [M:SOH4]DSTOFCY(L)
[M:SOH4]QTY(J) = [M:SOH4]QTY(L)
[M:SOH4]QTYSTU(J) = [M:SOH4]QTYSTU(L)
[M:SOH4]SAU(J) = [M:SOH4]SAU(L)
[M:SOH4]SAUSTUCOE(J) = [M:SOH4]SAUSTUCOE(L)
[M:SOH4]STU(J) = [M:SOH4]STU(L)
[M:SOH4]DALLTYP(J) = [M:SOH4]DALLTYP(L)
[M:SOH4]DLVQTY(J) = 0
[M:SOH4]INVQTY(J) = 0
[M:SOH4]ODLQTY(J) = 0
[M:SOH4]LPRQTY(J) = 0
For K=1 To 9If evalue("dim([M:SOH4]DISCRGVAL"+num$(K)+"(L))")>0Assign "[M:SOH4]DISCRGVAL"+num$(K)+"(J)"
& With evalue("[M:SOH4]DISCRGVAL"+num$(K)+"(L)")Assign "[M:SOH4]DISCRGREN"+num$(K)+"(J)"
& With evalue("[M:SOH4]DISCRGREN"+num$(K)+"(L)")Endif
Next K#----- Sections analytiques -----#
For K=1 To GNBDIEAssign "[M:SOH4]CCE"+num$(K)+"(J)" With evalue("[M:SOH4]CCE"+num$(K)+"(L)")
Next K
#----- Codes statistiques article -----#
For K=1 To 5If evalue("DIM([M:SOH4]TSICOD"+num$(K)+"(L))")>0Assign "[M:SOH4]TSICOD"+num$(K)+"(J)"
& With evalue("[M:SOH4]TSICOD"+num$(K)+"(L)")Endif
Next K
#Call AM_GROPRI([M:SOH4]GROPRI(L)) From W1SOH4
[M:SOH4]GROPRI(J) = [M:SOH4]GROPRI(L)
[M:SOH4]NETPRI(J) = [M:SOH4]NETPRI(L)
[M:SOH4]CPRPRI(J) = [M:SOH4]CPRPRI(L)
[M:SOH4]PFM(J) = [M:SOH4]PFM(L)[M:SOH4]VACITM1(J) = [M:SOH4]VACITM1(L)
[M:SOH4]VACITM2(J) = [M:SOH4]VACITM2(L)
[M:SOH4]VACITM3(J) = [M:SOH4]VACITM3(L)[M:SOH4]DBPAADD(J) = [M:SOH4]DBPAADD(L)
[M:SOH4]DEMSTA(J) = [M:SOH4]DEMSTA(L)
[M:SOH4]FMI(J) = [M:SOH4]FMI(L)
[M:SOH4]FMINUM(J) = [M:SOH4]FMINUM(L)
[M:SOH4]LINORDNOT(J) = [M:SOH4]LINORDNOT(L)
[M:SOH4]LINORDATI(J) = [M:SOH4]LINORDATI(L)
[M:SOH4]LINPFM(J) = [M:SOH4]LINPFM(L)
[M:SOH4]LINTYP(J) = [M:SOH4]LINTYP(L)
[M:SOH4]VAT1(J) = [M:SOH4]VAT1(L)
[M:SOH4]VAT2(J) = [M:SOH4]VAT2(L)
[M:SOH4]VAT3(J) = [M:SOH4]VAT3(L)If dim([M:SOH4]ECCVALMAJ)>0[M:SOH4]ECCVALMAJ(J) = [M:SOH4]ECCVALMAJ(L)
Endif
[M:SOH4]NETPRINOT(J) = [M:SOH4]NETPRINOT(L)
[M:SOH4]NETPRIATI(J) = [M:SOH4]NETPRIATI(L)
[M:SOH4]SOQTEX(J) = [M:SOH4]SOQTEX(L)
[M:SOH4]YTXTQ(J) = [M:SOH4]YTXTQ(L)
[M:SOH4]LOT(J) = [M:SOH4]LOT(L)
[M:SOH4]LOC(J) = [M:SOH4]LOC(L)
[M:SOH4]STA(J) = [M:SOH4]STA(L)
[M:SOH4]STOMGTCOD(J) = [M:SOH4]STOMGTCOD(L)
[M:SOH4]YSOQSTA(J) = [M:SOH4]YSOQSTA(L)
[M:SOH4]CLCAMT1(J) = [M:SOH4]CLCAMT1(L)
[M:SOH4]CLCAMT2(J) = [M:SOH4]CLCAMT2(L)
[M:SOH4]ITMREFBPC(J) = [M:SOH4]ITMREFBPC(L)
[M:SOH4]INVFLG(J) = [M:SOH4]INVFLG(L)
[M:SOH4]WIPFLG(J) = [M:SOH4]WIPFLG(L)
[M:SOH4]YSTOMGTCOD(J) = [M:SOH4]YSTOMGTCOD(L)
[M:SOH4]CTMFLG(J) = [M:SOH4]CTMFLG(L)
[M:SOH4]PTOCOD(J) = [M:SOH4]PTOCOD(L)
[M:SOH4]DLVFLG(J) = [M:SOH4]DLVFLG(L)
Return
🔣实现效果
这篇关于X3如何销售订单行实现复制功能的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
