📄 whcommon.asp
字号:
<% Else
%>
<%=l_data%>
<input type="hidden" name="packingform" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 侾崼曪偺擖傝悢昞帵
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispPackingCount(l_dspFlg, l_data)
If l_dspFlg = FLG_ON Then
%>
<input type="text" name="packingcount" maxlength="12" style="width:200px;" value="<%=l_data%>">
<span class="tyu_m">仸敿妏悢帤</span>
<% Else
%>
<%=l_cutil.NumericFormat(l_data,False,0)%>
<input type="hidden" name="packingcount" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 摿婰帠崁昞帵
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispSpecialMatter(l_dspFlg, l_data)
If l_dspFlg = FLG_ON Then
%>
<textarea name="specialmatter" rows="3" style="width:350px;"><%=l_data%></textarea>
<% Else
%>
<%=l_data%>
<input type="hidden" name="specialmatter" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 晹昳柤昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispPartsName(l_dspFlg, l_data)
If l_dspFlg = FLG_ON Then
%>
<input type="text" name="partsname" maxlength="50" style="width:200px;" value="<%=l_data%>">
<span class="tyu_m">仸慡妏暥帤</span>
<% Else
%>
<%=l_data%>
<input type="hidden" name="partsname" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 梡巻庬椶昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_paperKind 梡巻庬椶
'/* l_paperKindOther 梡巻庬椶偦偺懠(梡巻柤徧乯
'/*******************************************************
Public Sub DispPaperKind(l_dspFlg,l_dbaccess,l_cmn,l_paperKind, l_paperKindOther)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_PAPER_KIND, "paperkind", l_paperKind, FLG_ON) %>
丂梡巻柤徧
<input type="text" name="paperkindother" maxlength="50" style="width:150px;" value="<%=l_paperKindOther%>">
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_PAPER_KIND, l_paperKind))%>
<% If l_paperKindOther <> "" Then
%> 丂梡巻柤徧
<%=l_paperKindOther%>
<% End If
%> <input type="hidden" name="paperkind" value="<%=l_paperKind%>">
<input type="hidden" name="paperkindother" value="<%=l_paperKindOther%>">
<% End If
End Sub
'/*******************************************************
'/* 婯奿昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_standard 婯奿
'/*******************************************************
Public Sub DispStandard(l_dspFlg,l_dbaccess,l_cmn,l_standard)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_STANDARD, "standard", l_standard, FLG_ON) %>
<% Else
%>
<%=l_cmn.GetCodeName(l_db, CD_STANDARD, l_standard)%>
<input type="hidden" name="standard" value="<%=l_standard%>">
<% End If
End Sub
'/*******************************************************
'/* 嬕検昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispQuantity(l_dspFlg,l_data)
If l_dspFlg = FLG_ON Then
%>
<input type="text" name="quantity" maxlength="12" style="width:80px;" value="<%=l_data%>">
<span class="tyu_m">仸敿妏悢帤</span>
<% Else
%>
<%=EditQuantity(l_data)%>
<input type="hidden" name="quantity" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 怓悢昞昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_colorFront 怓悢昞
'/* l_colorNumber 怓悢昞(摿怓悢)
'/*******************************************************
Public Sub DispColorFront(l_dspFlg,l_dbaccess,l_cmn,l_colorFront,l_colorNumber)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_COLOR, "colorfront", l_colorFront, FLG_ON) %>
丂仸摿怓偺応崌偺悢
<input type="text" name="colornumber" maxlength="30" style="width:120px;" value="<%=l_colorNumber%>">
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_COLOR, l_colorFront))%>
<% If l_colorFront = COLOR_FRONT Then
%> 丂仸摿怓偺応崌偺悢
<%=l_colorNumber%>
<% End If
%> <input type="hidden" name="colorfront" value="<%=l_colorFront%>">
<input type="hidden" name="colornumber" value="<%=l_colorNumber%>">
<% End If
End Sub
'/*******************************************************
'/* 怓悢棤昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_colorRev 怓悢棤
'/* l_colorNumberRev 怓悢棤(摿怓悢)
'/*******************************************************
Public Sub DispColorRev(l_dspFlg,l_dbaccess,l_cmn,l_colorRev, l_colorNumberRev)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_COLOR, "colorrev", l_colorRev, FLG_ON) %>
丂仸摿怓偺応崌偺悢
<input type="text" name="colornumberrev" maxlength="30" style="width:120px;" value="<%=l_colorNumberRev%>">
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_COLOR, l_colorRev))%>
<% If l_colorRev = COLOR_REV Then
%> 丂仸摿怓偺応崌偺悢
<%=l_colorNumberRev%>
<% End If
%> <input type="hidden" name="colorrev" value="<%=l_colorRev%>">
<input type="hidden" name="colornumberrev" value="<%=l_colorNumberRev%>">
<% End If
End Sub
'/*******************************************************
'/* 尭姶丒BC昞帵(俽俿俤俹俀亅俀乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_decreBc 尭姶丒BC
'/* l_decreBcOther 尭姶丒BC偦偺懠
'/*******************************************************
Public Sub DispDecreBc(l_dspFlg,l_dbaccess,l_cmn, l_decreBc, l_decreBcOther)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_DECRE_BC, "decrebc", l_decreBc, FLG_ON) %>
丂仸偦偺懠偺応崌
<input type="text" name="decrebcother" maxlength="50" style="width:120px;" value="<%=l_decreBcOther%>">
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_DECRE_BC, l_decreBc))%>
<% If l_decreBc = DECRE_BC_OTHER Then
%> 丂仸偦偺懠偺応崌
<%=l_decreBcOther%>
<% End If
%> <input type="hidden" name="decrebc" value="<%=l_decreBc%>">
<input type="hidden" name="decrebcother" value="<%=l_decreBcOther%>">
<% End If
End Sub
'/*******************************************************
'/* 晹昳柤昞帵(俽俿俤俹俀亅俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispPartsNameProcessing(l_dspFlg,l_data)
If l_dspFlg = FLG_ON Then
%>
<input type="text" name="partsname" maxlength="50" style="width:200px;" value="<%=l_data%>">
<span class="tyu_m">仸慡妏暥帤</span>
<% Else
%>
<%=l_data%>
<input type="hidden" name="partsname" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 壛岺庬椶昞帵(俽俿俤俹俀亅俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_processingKind 壛岺庬椶
'/*******************************************************
Public Sub DispProcessingKind(l_dspFlg,l_dbaccess,l_cmn,l_processingKind)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_PROCESSING_KIND, "processingkind", l_processingKind, FLG_ON) %>
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_PROCESSING_KIND, l_processingKind))%>
<input type="hidden" name="processingkind" value="<%=l_processingKind%>">
<% End If
End Sub
'/*******************************************************
'/* 僒僽壛岺庬椶昞帵(俽俿俤俹俀亅俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_subProcessingKind 壛岺庬椶
'/*******************************************************
Public Sub DispSubProcessingKind(l_dspFlg,l_dbaccess,l_cmn,l_subProcessingKind)
If l_dspFlg = FLG_ON Then
%>
<%=l_cmn.GetPullDown(l_dbaccess, CD_SUB_PROCESSING_KIND, "subprocessingkind", l_subProcessingKind, FLG_ON) %>
<% Else
%>
<%=CStr(l_cmn.GetCodeName(l_db, CD_SUB_PROCESSING_KIND, l_subProcessingKind))%>
<input type="hidden" name="subprocessingkind" value="<%=l_subProcessingKind%>">
<% End If
End Sub
'/*******************************************************
'/* 壛岺撪栿昞帵(俽俿俤俹俀亅俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispStandardProcessing(l_dspFlg,l_data)
If l_dspFlg = FLG_ON Then
%>
<textarea name="standard" cols="50" rows="8" style="width:300px;"><%=l_data%></textarea>
<% Else
%>
<%=l_data%>
<input type="hidden" name="standard" value="<%=l_data%>">
<% End If
End Sub
'/*******************************************************
'/* 攝晩扨壙昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_indata 擖椡僨乕僞
'/*******************************************************
Public Sub DispUnitPrice(l_dspFlg,l_data)
If l_dspFlg <> FLG_ON Then
%>
<%=l_cutil.NumericFormat(l_data,True,0)%>
<input type="hidden" name="unitprice" value="<%=l_data%>">
<% Else
%>
<input type="text" name="unitprice" maxlength="10" style="width:80px;" value="<%=l_data%>">
<span class="tyu_m">仸敿妏悢帤</span>
<% End If
End Sub
'/*******************************************************
'/* 曐娗婜娫昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_listClass 挔昜庬暿
'/* l_clfs1 暘椶僐乕僪(僾儖僟僂儞庢摼梡)
'/* l_storagePeriod 曐娗婜娫
'/* l_storagePeriodOther 曐娗婜娫(偦偺懠)
'/* l_clfs2 暘椶僐乕僪(僾儖僟僂儞庢摼梡)
'/* l_headOfficeKeep 杮幮曐懚応強
'/* l_clfs3 暘椶僐乕僪(僾儖僟僂儞庢摼梡)
'/* l_no 斣崋(1乣3)
'/*******************************************************
Public Sub DispStoragePeriod(l_dspFlg,l_dbaccess,l_cmn,l_listClass,l_clfs1,l_storagePeriod, l_storagePeriodOther, l_clfs2,l_headOfficeKeep,l_clfs3,l_no)
If l_dspFlg <> FLG_ON Then
If IsNullStr(l_listClass) = False Then
%> <%= CStr(l_cmn.GetCodeName(l_db, l_clfs1, l_listClass))%>丂
<% End If
If IsNullStr(l_listClass) = False and l_storagePeriod <> STR_PERIOD_OTHER Then
%> <%= CStr(l_cmn.GetCodeName(l_db, l_clfs2, l_storagePeriod))%>丂
<% ElseIf IsNullStr(l_listClass) = False Then
%> <%= l_storagePeriodOther%>丂
<% End If
%> <%= CStr(l_cmn.GetCodeName(l_db, l_clfs3, l_headOfficeKeep))%>丂
<input type="hidden" name="<%="listclass"&l_no%>" value="<%=l_listClass%>">
<input type="hidden" name="<%="storageperiod"&l_no%>" value="<%=l_storagePeriod%>">
<input type="hidden" name="<%="storageperiodother"&l_no%>" value="<%=l_storagePeriodOther%>">
<input type="hidden" name="<%="headofficekeep"&l_no%>" value="<%=l_headOfficeKeep%>">
<% Else
%>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="100" class="txt_m">挔昜庬暿</td>
<td class="txt_m">
<%=l_cmn.GetPullDown(l_dbaccess, l_clfs1, "listclass"&l_no, l_listClass, FLG_ON) %>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -