≣ サーバJS ライブラリXDMF_JS001_0 [共通]共通 56159字
//-------------------------------------------
//[部品]共通
//-------------------------------------------
var _USER_ID = '';
var _FUNC_ID = '';
function tln_com_escape(val) {
return val.replace("'","''");
}
//システム日付を返す
//更新時、データベースの日付型項目へバインドする際に使用(更新日付など)
function tln_com_nowdate() {
var sysDate = new java.util.Date();
return sysDate;
}
//システム日付(文字列 YYYY-MM-DD HH:MI:SS)を返す
//更新時、タイムスタンプ型としてSQLに組み込む際に使用
function tln_com_nowdate_str() {
var sysDate = new java.util.Date();
return (sysDate.getYear()+1900) + "-" + (sysDate.getMonth()+1) + "-" + sysDate.getDate() + " " + sysDate.getHours() + ":" + sysDate.getMinutes() + ":" + sysDate.getSeconds();
}
//文字列型の日付(画面項目)(YYYY/MM/DD)を日付型に変換
function tln_com_todate(val) {
y = parseInt(val.split("/")[0]) - 1900;
m = parseInt(val.split("/")[1]) - 1;
d = parseInt(val.split("/")[2]);
var sysDate = new java.util.Date(y,m,d);
return sysDate;
}
//文字列型の日付(YYYY-MM-DD HH:MI)を日付型に変換
function tln_com_todatetime(val) {
//val = val.replace("-","/")
var regExp = new RegExp( "-", "g" ) ;
val = val.replace( regExp , "/" ) ;
var val1 = val.split(" ")[0];
var val2 = val.split(" ")[1];
var y = parseInt(val1.split("/")[0]) - 1900;
var m = parseInt(val1.split("/")[1]) - 1;
var d = parseInt(val1.split("/")[2]) + 0;
var h = parseInt(val2.split(":")[0]);
var f = parseInt(val2.split(":")[1]);
var sysDate = new java.util.Date(y,m,d,h,f);
return sysDate;
}
//日付型を文字列型に変換(単純変換)
function tln_com_date2string(obj) {
if (obj == null) {
return null;
} else {
return obj.toString();
}
}
//日付型を文字列型に変換(YYYY-MM-DD HH:MI:SS変換)
//function tln_com_date2string2(obj) {
// return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + tln_com_zpad2(obj.getHours()) + ":" + tln_com_zpad2(obj.getMinutes()) + ":" + tln_com_zpad2(obj.getSeconds());
//}
//日付型を文字列型に変換(YYYY-MM-DD HH:MI:SS変換)
function tln_com_date2string2(obj) {
var DTYPE = 'DATETIME';
try {
var tmp = obj.getHours();
} catch(e) {
DTYPE = 'DATE';
}
if ( DTYPE == 'DATETIME' ) {
return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + tln_com_zpad2(obj.getHours()) + ":" + tln_com_zpad2(obj.getMinutes()) + ":" + tln_com_zpad2(obj.getSeconds());
} else {
return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + "00:00:00";
}
}
//機能IDを返す(Ver3.2用)
function tln_com_func_id() {
if (_FUNC_ID == '') {
_FUNC_ID = TALON.getUserInfoMap().get("FUNC_ID");
}
return _FUNC_ID;
}
//ログインユーザーIDを返す
function tln_com_user_id() {
if (_USER_ID == '') {
var lineDataMap = TALON.getUserInfoMap();
_USER_ID = lineDataMap['USER_ID'];
}
return _USER_ID;
}
//ログファイルに出力
function tln_com_log(val) {
var log = TALON.getLogger();
log.writeDebug(val);
}
//指定文字数でカット
function tln_com_lcut(str,len) {
return str.substring( 0 , len );
}
//ゼロ詰め(2けた)
function tln_com_zpad2(str) {
return ( '0' + str ).slice( -2 );
}
//
function tln_timestamp(str) {
var val = str;
var regExp = new RegExp( "-", "g" ) ;
val = val.replace( regExp , "/" ) ;
var val1 = val.split(" ")[0];
var val2 = val.split(" ")[1];
var val2h = val2.split(":")[0];
var val2m = val2.split(":")[1];
var val2s = val2.split(":")[2];
return val1 + " " + val2h + ":" + val2m + ":" + val2s;
}
//-------------------------------------------
//[部品]消費税率
//-------------------------------------------
function getTAX_RATE(_KIJUN) {
var itemSelectList = TALON.select( "SELECT VLTAXRATE FROM ZT060 WHERE TLN_DATE_TO_CHAR('YMD', DTSTART) <= '" + _KIJUN + "' ORDER BY DTSTART DESC " );
var lineDataMap = itemSelectList[0];
var val = lineDataMap['VLTAXRATE'];
//var val = 0.08;
return val;
}
//-------------------------------------------
//[部品]会計年度・月序 チェック
//-------------------------------------------
function checkNENDO(_NENDO,GMSEQ) {
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'ALLOWED_FISCAL_MONTH' " );
var lineDataMap = itemSelectList[0];
var _ALLOWED_FISCAL_MONTH = lineDataMap['TXVALUE'];
if ( ( ( _NENDO * 100 ) + GMSEQ ) < parseInt(_ALLOWED_FISCAL_MONTH) ) {
TALON.addErrorMsg( "すでに会計締め処理済み取引日のため処理できません" );
TALON.setIsSuccess(false);
}
return true;
}
//-------------------------------------------
//[部品]会計年度
//パラメータ基準日(YYYY/MM/DD)
//-------------------------------------------
function getNENDO(BASE_DATE) {
var regExp = new RegExp( "-", "g" ) ;
BASE_DATE = tln_com_date2string2(BASE_DATE).replace( regExp , "/" ) ;
var BASE_DATE1 = BASE_DATE.split(" ")[0];
var BASE_DATE2 = BASE_DATE.split(" ")[1];
BASE_DATE = BASE_DATE1
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'FIRST_MONTH' " );
var lineDataMap = itemSelectList[0];
var _FIRST_MONTH = lineDataMap['TXVALUE'];
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'LAST_DAY' " );
var lineDataMap = itemSelectList[0];
var _LAST_DAY = lineDataMap['TXVALUE'];
var _END_MONTH = 0;
var _END_DAY = 0;
//END日を取得
if (_FIRST_MONTH == 1) {
_END_MONTH = 12;
} else {
_END_MONTH = _FIRST_MONTH - 1;
}
if (_LAST_DAY == 31) {
//END_MONTHの最終日(_FIRST_MONTH初日の前日)
var _TEMP = "1999/" + tln_com_zpad2(_FIRST_MONTH) + "/01" + " " + "00:00:00";
var wdate = tln_com_todatetime(_TEMP);
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
_TEMP = (tdate.toString().split(" ")[0]).substr( 8 , 2 );
_END_DAY = _TEMP;
} else {
if ( ( _END_MONTH == 2 ) && ( _LAST_DAY >= 28 ) ) {
_END_DAY = 28;
} else {
_END_DAY = _LAST_DAY;
}
}
_END_MONTH = tln_com_zpad2(_END_MONTH);
_END_DAY = tln_com_zpad2(_END_DAY);
//TALON.addMsg( _END_MONTH + "/" + _END_DAY );
var _BASE_DATE_NEN = BASE_DATE.split("/")[0];
var _BASE_DATE_BAS = BASE_DATE.split("/")[1] + BASE_DATE.split("/")[2];
if ( (_BASE_DATE_BAS >= '0101' ) && (_BASE_DATE_BAS <= ( _END_MONTH + _END_DAY ) ) ) {
_BASE_DATE_NEN = _BASE_DATE_NEN - 1;
}
//TALON.addMsg( _BASE_DATE_NEN );
return _BASE_DATE_NEN;
}
//-------------------------------------------
//[部品]月例
//パラメータ基準日(YYYY/MM/DD)
//-------------------------------------------
function getGMSEQ(BASE_DATE) {
var regExp = new RegExp( "-", "g" ) ;
BASE_DATE = tln_com_date2string2(BASE_DATE).replace( regExp , "/" ) ;
var BASE_DATE1 = BASE_DATE.split(" ")[0];
var BASE_DATE2 = BASE_DATE.split(" ")[1];
BASE_DATE = BASE_DATE1
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'FIRST_MONTH' " );
var lineDataMap = itemSelectList[0];
var _FIRST_MONTH = lineDataMap['TXVALUE'];
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'LAST_DAY' " );
var lineDataMap = itemSelectList[0];
var _LAST_DAY = lineDataMap['TXVALUE'];
var _BASE_DATE_NEN = BASE_DATE.split("/")[0];
var _BASE_DATE_MON = BASE_DATE.split("/")[1];
var _BASE_DATE_DAY = BASE_DATE.split("/")[2];
//締め日が31の場合はそのまま月で計算
if (parseInt(_LAST_DAY) == 31) {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON);
}
//締め日が31以外で日付が締め日より大きい場合、翌月数字で計算
if ( (parseInt(_LAST_DAY) != 31) && (parseInt(_LAST_DAY) < parseInt(_BASE_DATE_DAY)) ) {
if (_BASE_DATE_MON == 12) {
_BASE_DATE_MON = 1;
} else {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON) + 1;
}
}
//締め日が31以外で日付が締め日より小さい場合、そのままの月数字で計算
if ( (parseInt(_LAST_DAY) != 31) && (parseInt(_LAST_DAY) >= parseInt(_BASE_DATE_DAY)) ) {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON);
}
var REC = 0;
if (parseInt(_FIRST_MONTH) > parseInt(_BASE_DATE_MON)) {
REC = (parseInt(_BASE_DATE_MON) + 12) - (parseInt(_FIRST_MONTH) - 1);
} else {
REC = (parseInt(_BASE_DATE_MON)) - (parseInt(_FIRST_MONTH) - 1);
}
//TALON.addMsg( REC );
return REC;
}
//-------------------------------------------
//[部品]休日チェック(1:休日 / 0:平日)
//-------------------------------------------
function getHOLIDAY_FLG(_KBCALENDAR, _DTOFF) {
var sql =
"SELECT " +
"COUNT(*) AS CNT " +
"FROM ZT070 " +
"WHERE ZT070.KBCALENDAR = '" + _KBCALENDAR + "' " +
" AND ZT070.DTOFF = TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(_DTOFF) + "') "
;
var itemSelectList = TALON.select(sql);
var lineDataMap = itemSelectList[0];
var _CNT = lineDataMap['CNT'];
return _CNT;
}
//-------------------------------------------
//[部品]品目[BT010]
//-------------------------------------------
function selectBT010(_IDHINMOKU) {
var sql =
"SELECT " +
" IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBHINSYU " +
",PRGENKA " +
",PRHANBAI " +
",KBUNIT " +
",KBUNITPUR " +
",VLKANZAN " +
",PRKOUNYU " +
",IDSIIRESAKI " +
",FGZAIKO " +
",FGKOUNYU " +
",FGHANBAI " +
",FGSEIZO " +
",TXTEKIYO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM BT010 " +
"WHERE IDHINMOKU = '" + _IDHINMOKU + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]仕入先[DT010]
//-------------------------------------------
function selectDT010(_IDSIIRESAKI) {
var sql =
"SELECT " +
" IDSIIRESAKI " +
",KBSIHARAI " +
",TXHURIKOMI " +
",TXTEKIYO " +
",AMKISYUKAIKAKE " +
",AMSIIRE " +
",AMSIHARAI " +
",AMGENKAIKAKE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT010 " +
"WHERE IDSIIRESAKI = '" + _IDSIIRESAKI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateDT010(itemDataList) {
//項目
var itemColNameTbl = [
'IDSIIRESAKI'
,'KBSIHARAI'
,'TXHURIKOMI'
,'TXTEKIYO'
,'AMKISYUKAIKAKE'
,'AMSIIRE'
,'AMSIHARAI'
,'AMGENKAIKAKE'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectDT010(itemDataList['IDSIIRESAKI']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDSIIRESAKI' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'DT010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//[部品]得意先[ET010]
//-------------------------------------------
function selectET010(_IDTOKUISAKI) {
var sql =
"SELECT " +
" IDTOKUISAKI " +
",TXTANTOUBUSYO " +
",TXTANTOUSYA " +
",TXTANTOUSYASYOKUI " +
",TXTANTOUSYAEMAIL " +
",TXTANTOUSYADENWA " +
",KBSEIKYUHOUSHIKI " +
",TXSIMEBI " +
",KBNYUKINHOUHOU " +
",VLNYUKINSAITO " +
",AMYOSHIN " +
",NRTANTOUJYUGYOIN " +
",TXTEKIYO " +
",AMKISYUURIKAKE " +
",AMURIAGE " +
",AMJYURYO " +
",AMGENURIKAKE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM ET010 " +
"WHERE IDTOKUISAKI = '" + _IDTOKUISAKI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateET010(itemDataList) {
//項目
var itemColNameTbl = [
'IDTOKUISAKI'
,'TXTANTOUBUSYO'
,'TXTANTOUSYA'
,'TXTANTOUSYASYOKUI'
,'TXTANTOUSYAEMAIL'
,'TXTANTOUSYADENWA'
,'KBSEIKYUHOUSHIKI'
,'TXSIMEBI'
,'KBNYUKINHOUHOU'
,'VLNYUKINSAITO'
,'AMYOSHIN'
,'NRTANTOUJYUGYOIN'
,'TXTEKIYO'
,'AMKISYUURIKAKE'
,'AMURIAGE'
,'AMJYURYO'
,'AMGENURIKAKE'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectET010(itemDataList['IDTOKUISAKI']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDTOKUISAKI' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'ET010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//[部品]倉庫在庫[FT010]
//-------------------------------------------
function selectFT010(_IDHINMOKU, _CDSOUKO) {
var sql =
"SELECT " +
" IDHINMOKU " +
",CDSOUKO " +
",QTKISYU " +
",QTNYUKO " +
",QTSYUKKO " +
",AMKISYU " +
",AMNYUKO " +
",AMSYUKKO " +
",QTGENZAIKO " +
",AMGENZAIKO " +
",PRGENZAIKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT010 " +
"WHERE IDHINMOKU = '" + _IDHINMOKU + "'" +
" AND CDSOUKO = '" + _CDSOUKO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function selectFT010_CDSOUKO(_CDSOUKO) {
var sql =
"SELECT " +
" IDHINMOKU " +
",CDSOUKO " +
",QTKISYU " +
",QTNYUKO " +
",QTSYUKKO " +
",AMKISYU " +
",AMNYUKO " +
",AMSYUKKO " +
",QTGENZAIKO " +
",AMGENZAIKO " +
",PRGENZAIKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT010 " +
"WHERE CDSOUKO = '" + _CDSOUKO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateFT010(itemDataList) {
//項目
var itemColNameTbl = [
'IDHINMOKU'
,'CDSOUKO'
,'QTKISYU'
,'QTNYUKO'
,'QTSYUKKO'
,'AMKISYU'
,'AMNYUKO'
,'AMSYUKKO'
,'QTGENZAIKO'
,'AMGENZAIKO'
,'PRGENZAIKO'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//共通
//--------
//現在庫数
itemDataList['QTGENZAIKO'] = itemDataList['QTKISYU'] + itemDataList['QTNYUKO'] - itemDataList['QTSYUKKO'];
//現在庫額
itemDataList['AMGENZAIKO'] = itemDataList['AMKISYU'] + itemDataList['AMNYUKO'] - itemDataList['AMSYUKKO'];
//現在庫単価
if (itemDataList['QTGENZAIKO'] == 0) {
itemDataList['PRGENZAIKO'] = 0;
} else {
itemDataList['PRGENZAIKO'] = itemDataList['AMGENZAIKO'] / itemDataList['QTGENZAIKO'];
}
//データが存在する場合はupdate、存在しない場合はinsert
var itemSelectList = selectFT010(itemDataList['IDHINMOKU'], itemDataList['CDSOUKO']);
if (itemSelectList.length == 0) {
//INSERT
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'FT010', itemDataList , itemColNameTbl );
} else {
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDHINMOKU' ];
var whereTbl2 = [ null, '=' , 'CDSOUKO' ];
whereList.push(whereTbl1);
whereList.push(whereTbl2);
TALON.updateByMap( 'FT010', itemDataList , itemColNameTbl , whereList );
}
}
//-------------------------------------------
//[部品]在庫増減履歴[FT100]
//-------------------------------------------
function selectFT100(_NRZAITORI) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE NRZAITORI = '" + _NRZAITORI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateFT100(itemDataList) {
//項目
var itemColNameTbl = [
'NRZAITORI'
,'DTTORIHIKI'
,'KBUKEBARAI'
,'KBZAIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'CDSOUKO'
,'TXAITESAKI'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTORIHIKI'
,'AMSAGAKU'
,'NRSOURCE'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'QTZOUGEN'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//関連情報補填(採番)
//在庫取引№
var numList = TALON.getNumberingData('XDMF_FF_ZAITORI', 1)
itemDataList['NRZAITORI'] = numList[0];
//関連情報補填(品目マスタ)
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNIT'];
//取引差額
if ( (itemDataList['AMSAGAKU'] == "") || (itemDataList['AMSAGAKU'] == null) ) {
itemDataList['AMSAGAKU'] = 0;
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'FT100', itemDataList , itemColNameTbl );
}
function insertAkaFT100(_NRZAITORI) {
//関連情報補填(採番)
//在庫取引№
var numList = TALON.getNumberingData('XDMF_FF_ZAITORI', 1)
_NEXT_NRZAITORI = numList[0];
//
TALON.insert(
" INSERT INTO FT100 ( " +
" NRZAITORI " +
" ,DTTORIHIKI " +
" ,KBUKEBARAI " +
" ,KBZAIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,CDSOUKO " +
" ,TXAITESAKI " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMSAGAKU " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,QTZOUGEN " +
" ,AMZOUGEN " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRZAITORI + "' " +
" ,DTTORIHIKI " +
" ,KBUKEBARAI " +
" ,KBZAIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,CDSOUKO " +
" ,TXAITESAKI " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMSAGAKU " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,(QTZOUGEN * -1) " +
" ,(AMZOUGEN * -1) " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM FT100 " +
" WHERE NRZAITORI = '" + _NRZAITORI + "'"
);
}
//-------------------------------------------
//[部品]買掛増減履歴[DT100]
//-------------------------------------------
function selectDT100(_NRKAIKAKE) {
var sql =
"SELECT " +
" NRKAIKAKE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",KBKAITORI " +
",KBKAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMTAX " +
",NRSIHARAI " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT100 " +
"WHERE NRKAIKAKE = '" + _NRKAIKAKE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateDT100(itemDataList) {
//項目
var itemColNameTbl = [
'NRKAIKAKE'
,'IDSIIRESAKI'
,'DTTORIHIKI'
,'KBKAITORI'
,'KBKAIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTORIHIKI'
,'AMTAX'
,'NRSIHARAI'
,'NRSOURCE'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_DF_KAIKAKE', 1)
itemDataList['NRKAIKAKE'] = numList[0];
//関連情報補填(品目マスタ) ※品目IDが入っているときのみ
if (itemDataList['IDHINMOKU'] != '') {
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNITPUR'];
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'DT100', itemDataList , itemColNameTbl );
}
function insertAkaDT100(_NRKAIKAKE) {
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_DF_KAIKAKE', 1)
_NEXT_NRKAIKAKE = numList[0];
//
TALON.insert(
" INSERT INTO DT100 ( " +
" NRKAIKAKE " +
" ,IDSIIRESAKI " +
" ,DTTORIHIKI " +
" ,KBKAITORI " +
" ,KBKAIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMTAX " +
" ,NRSIHARAI " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMZOUGEN " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRKAIKAKE + "' " +
" ,IDSIIRESAKI " +
" ,DTTORIHIKI " +
" ,KBKAITORI " +
" ,KBKAIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMTAX " +
" ,NRSIHARAI " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,(AMZOUGEN * -1) " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM DT100 " +
" WHERE NRKAIKAKE = '" + _NRKAIKAKE + "'"
);
}
//-------------------------------------------
//[部品]売掛増減履歴[ET100]
//-------------------------------------------
function selectET100(_NRURIKAKE) {
var sql =
"SELECT " +
" NRURIKAKE " +
",IDTOKUISAKI " +
",DTTORIHIKI " +
",KBURITORI " +
",KBURIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTAX " +
",AMGENKA " +
",NRSOURCE " +
",NRSEIKYU " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMARARI " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",AMTORIHIKI " +
"FROM ET100 " +
"WHERE NRURIKAKE = '" + _NRURIKAKE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateET100(itemDataList) {
//項目
var itemColNameTbl = [
'NRURIKAKE'
,'IDTOKUISAKI'
,'DTTORIHIKI'
,'KBURITORI'
,'KBURIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTAX'
,'AMGENKA'
,'NRSOURCE'
,'NRSEIKYU'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'AMARARI'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
,'AMTORIHIKI'
];
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_EF_URIKAKE', 1)
itemDataList['NRURIKAKE'] = numList[0];
//関連情報補填(品目マスタ) ※品目IDが入っているときのみ
if (itemDataList['IDHINMOKU'] != '') {
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNIT'];
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'ET100', itemDataList , itemColNameTbl );
}
function insertAkaET100(_NRURIKAKE) {
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_EF_URIKAKE', 1)
_NEXT_NRURIKAKE = numList[0];
//
TALON.insert(
" INSERT INTO ET100 ( " +
" NRURIKAKE " +
" ,IDTOKUISAKI " +
" ,DTTORIHIKI " +
" ,KBURITORI " +
" ,KBURIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTAX " +
" ,AMGENKA " +
" ,NRSOURCE " +
" ,NRSEIKYU " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMARARI " +
" ,AMZOUGEN " +
" ,AMTORIHIKI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRURIKAKE + "' " +
" ,IDTOKUISAKI " +
" ,DTTORIHIKI " +
" ,KBURITORI " +
" ,KBURIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTAX " +
" ,AMGENKA " +
" ,NRSOURCE " +
" ,NRSEIKYU " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMARARI " +
" ,(AMZOUGEN * -1) " +
" ,AMTORIHIKI " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM ET100 " +
" WHERE NRURIKAKE = '" + _NRURIKAKE + "'"
);
}
//-------------------------------------------
//[部品]製造指示[JT010]
//-------------------------------------------
function selectJT010(_NRSEIZO) {
var sql =
" SELECT " +
" NRSEIZO " +
" ,IDTOKUISAKI " +
" ,SQSYUKKASAKI " +
" ,TXTYUMONBANGO " +
" ,IDHINMOKU " +
" ,DTNOUKI " +
" ,QTJYUTYU " +
" ,QTSYUKKA " +
" ,QTSEIZO " +
" ,QTKANSEI " +
" ,QTHURYO " +
" ,QTHAIKI " +
" ,AMGENKA " +
" ,PRMITSUMORI " +
" ,PRJYUTYU " +
" ,TXTEKIYO " +
" ,CDSOUKOKAN " +
" ,CDSOUKOZAI " +
" ,DTCREATE " +
" ,DTHAKKO " +
" ,DTSYUKKO " +
" ,DTKANSEI " +
" ,DTSYUKKA " +
" ,DTCANCEL " +
" ,NRSOURCE " +
" ,STSEIZO " +
" ,PRYOTEIGEN " +
" ,AMHANBAI " +
" ,AMARARI " +
" ,PRGENKA " +
" ,TXSEIZOYOTEI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM JT010 " +
" WHERE JT010.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateJT010(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIZO'
,'IDTOKUISAKI'
,'SQSYUKKASAKI'
,'TXTYUMONBANGO'
,'IDHINMOKU'
,'DTNOUKI'
,'QTJYUTYU'
,'QTSYUKKA'
,'QTSEIZO'
,'QTKANSEI'
,'QTHURYO'
,'QTHAIKI'
,'AMGENKA'
,'PRMITSUMORI'
,'PRJYUTYU'
,'TXTEKIYO'
,'CDSOUKOKAN'
,'CDSOUKOZAI'
,'DTCREATE'
,'DTHAKKO'
,'DTSYUKKO'
,'DTKANSEI'
,'DTSYUKKA'
,'DTCANCEL'
,'NRSOURCE'
,'STSEIZO'
,'PRYOTEIGEN'
,'AMHANBAI'
,'AMARARI'
,'PRGENKA'
,'TXSEIZOYOTEI'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectJT010(itemDataList['NRSEIZO']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRSEIZO' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'JT010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//[部品]製造指示工程明細[JT030]
//-------------------------------------------
function selectJT030(_NRSEIZO) {
var sql =
" SELECT " +
" JT030.NRSEIZO " +
" ,JT030.SQKOUTEI " +
" ,JT030.CDKOUTEI " +
" ,JT030.SQCENTER " +
" ,JT030.LTSEIZO " +
" ,JT030.DTFROM " +
" ,JT030.TMFROM " +
" ,JT030.DTTHRU " +
" ,JT030.TMTHRU " +
" ,JT030.SQLIST " +
" ,JT030.TXSAGYOYOTEI " +
" ,JT030.AMKAKOU " +
" ,JT030.CREATED_DATE " +
" ,JT030.CREATED_BY " +
" ,JT030.CREATED_PRG_NM " +
" ,JT030.UPDATED_DATE " +
" ,JT030.UPDATED_BY " +
" ,JT030.UPDATED_PRG_NM " +
" ,JT030.MODIFY_COUNT " +
" ,BT060.RTKAKOU " +
" FROM JT030 " +
" INNER JOIN BT060 " +
" ON BT060.CDKOUTEI = JT030.CDKOUTEI " +
" AND BT060.SQCENTER = JT030.SQCENTER " +
" WHERE JT030.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateJT030(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIZO'
,'SQKOUTEI'
,'CDKOUTEI'
,'SQCENTER'
,'LTSEIZO'
,'DTFROM'
,'TMFROM'
,'DTTHRU'
,'TMTHRU'
,'SQLIST'
,'TXSAGYOYOTEI'
,'AMKAKOU'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectJT030(itemDataList['NRSEIZO']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRSEIZO' ];
var whereTbl2 = [ null, '=' , 'SQKOUTEI' ];
whereList.push(whereTbl1);
whereList.push(whereTbl2);
TALON.updateByMap( 'JT030', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//[部品]製造指示材料明細[JT040]
//-------------------------------------------
function selectJT040(_NRSEIZO) {
var sql =
" SELECT " +
" JT040.NRSEIZO " +
" ,JT040.SQZAIRYO " +
" ,JT040.IDHINMOKU " +
" ,JT040.QTTOUNYU " +
" ,JT040.SQKOUTEI " +
" ,JT040.PRYOTEI " +
" ,JT040.PRSYUKKO " +
" ,JT040.SQLIST " +
" ,JT040.CDSOUKO " +
" ,JT040.CREATED_DATE " +
" ,JT040.CREATED_BY " +
" ,JT040.CREATED_PRG_NM " +
" ,JT040.UPDATED_DATE " +
" ,JT040.UPDATED_BY " +
" ,JT040.UPDATED_PRG_NM " +
" ,JT040.MODIFY_COUNT " +
" FROM JT040 " +
" WHERE JT040.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]売掛振替[LT010]
//-------------------------------------------
function selectLT010(_NRURIHURI) {
var sql =
" SELECT " +
" NRURIHURI " +
" ,KBURIHURI " +
" ,DTHURIKAE " +
" ,IDTOKUISAKI " +
" ,AMHURIKAE " +
" ,TXTEKIYO " +
" ,NRSEIKYU " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ,KBZOUGEN " +
" FROM LT010 " +
" WHERE LT010.NRURIHURI = '" + _NRURIHURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]特殊売上[LT020]
//-------------------------------------------
function selectLT020(_NRTOKUURI) {
var sql =
" SELECT " +
" NRTOKUURI " +
",KBTOKUURI " +
",IDTOKUISAKI " +
",SQSYUKKASAKI " +
",DTTORIHIKI " +
",IDHINMOKU " +
",CDSOUKO " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",PRZAIKO " +
",QTZAIKO " +
",TXTEKIYO " +
",NRSOURCE " +
",AMTORIHIKI " +
",AMTAX " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
" FROM LT020 " +
" WHERE LT020.NRTOKUURI = '" + _NRTOKUURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]在庫振替[MT010]
//-------------------------------------------
function selectMT010(_NRZAIHURI) {
var sql =
" SELECT " +
" NRZAIHURI " +
" ,CDSOUKO " +
" ,DTHURIKAE " +
" ,KBZOUGEN " +
" ,KBZAIHURI " +
" ,IDHINMOKU " +
" ,PRHURIKAE " +
" ,QTHURIKAE " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT010 " +
" WHERE NRZAIHURI = '" + _NRZAIHURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]棚卸指示[MT020]
//-------------------------------------------
function selectMT020(_NRTANAOROSI) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,CDSOUKO " +
" ,DTKIJYUN " +
" ,DTKAKUTEI " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,DTKIJYUNWORK " +
" ,STTANAOROSI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT020 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]棚卸指示明細[MT021]
//-------------------------------------------
function selectMT021(_NRTANAOROSI,_IDHINMOKU) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,IDHINMOKU " +
" ,PRKIJYUN " +
" ,QTKIJYUN " +
" ,PRJITSUTANA " +
" ,QTJITSUTANA " +
" ,QTDIFF " +
" ,AMDIFF " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT021 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' " +
" AND IDHINMOKU = '" + _IDHINMOKU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateMT021(itemDataList) {
//項目
var itemColNameTbl = [
'NRTANAOROSI'
,'IDHINMOKU'
,'PRKIJYUN'
,'QTKIJYUN'
,'PRJITSUTANA'
,'QTJITSUTANA'
,'QTDIFF'
,'AMDIFF'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'MT021', itemDataList , itemColNameTbl );
}
//-------------------------------------------
//[部品]棚卸指示明細[MT021]
//-------------------------------------------
function selectMT021_NRTANAOROSI(_NRTANAOROSI) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,IDHINMOKU " +
" ,PRKIJYUN " +
" ,QTKIJYUN " +
" ,PRJITSUTANA " +
" ,QTJITSUTANA " +
" ,QTDIFF " +
" ,AMDIFF " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT021 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]在庫移動指示[MT030]
//-------------------------------------------
function selectMT030(_NRZAIIDOU) {
var sql =
" SELECT " +
" NRZAIIDOU " +
" ,CDSOUKOFROM " +
" ,CDSOUKOTHRU " +
" ,DTSHIJI " +
" ,DTKANRYOU " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,STZAIIDOU " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT030 " +
" WHERE NRZAIIDOU = '" + _NRZAIIDOU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]在庫移動指示明細[MT031]
//-------------------------------------------
function selectMT031_NRZAIIDOU(_NRZAIIDOU) {
var sql =
" SELECT " +
" NRZAIIDOU " +
" ,IDHINMOKU " +
" ,PRZAIIDOU " +
" ,QTZAIIDOU " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT031 " +
" WHERE NRZAIIDOU = '" + _NRZAIIDOU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[部品]工程日付計算リバース
//-------------------------------------------
function calcDTTM_R(sBasDy,sBasTm,sLet,_kakof,_kakot,_calender) {
var rec = '';
var flg1 = true;
var flg2 = true;
sBasDy = sBasDy.toString().split(" ")[0];
tln_com_log("☆R[param ]" + sBasDy + " / " + sBasTm + " / " + sLet + " / " + _kakof + " / " + _kakot + " / " + _calender);
//スタート時点の基準日が既に稼働対象外の場合は直近の稼働に変更する
if (_kakot < sBasTm ) {
tln_com_log("☆R[param ] (1)");
sBasTm = _kakot;
}
if (_kakof > sBasTm ) {
tln_com_log("☆R[param ] (2)");
sBasTm = _kakot;
//前日完了
var wdate = tln_com_todatetime(sBasDy + " " + "00:00:00");
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 00:00:00');
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
}
rec = sBasDy + " " + sBasTm;
while (flg1){
sBasDy = sBasDy.toString().split(" ")[0];
var wdate = tln_com_todatetime(sBasDy + " " + sBasTm);
var wdatl = tln_com_todatetime(sBasDy + " " + sBasTm);
wdatl.setMinutes(wdate.getMinutes() - sLet);
var wdats = tln_com_todatetime(sBasDy + " " + _kakof);
var tdate = tln_com_date2string2(wdatl);
var tDat = tdate.toString().split(" ")[0];
var tTim = tdate.toString().split(" ")[1];
tTim = tln_com_lcut(tTim,5);
tln_com_log("☆R[wdate ]" + wdate);
tln_com_log("☆R[sLet ]" + sLet);
tln_com_log("☆R[wdatl ]" + wdatl);
tln_com_log("☆R[wdats ]" + wdats);
tln_com_log("☆R[tDat ]" + tDat);
tln_com_log("☆R[sBasDy ]" + sBasDy);
tln_com_log("☆R[tTim ]" + tTim);
tln_com_log("☆R[kakof ]" + _kakof);
if (tDat == sBasDy && tTim >= _kakof) {
sBasTm = tTim;
flg1 = false;
} else {
//日付が異なっている場合、もしくは同日でも稼働開始時間より前の開始時刻の場合
//基準から開始日までの時間を計算し残りリードタイムを計算し
//基準日を前日、基準時間を稼働終了時刻にして再度実施
//var sWok = wdats - wdate;
var sWok = getDiff(tln_com_date2string2(wdats),tln_com_date2string2(wdate));
if (sWok < 0) {
sWok = sWok * -1;
}
sLet = sLet - sWok;
tln_com_log("☆R[sWok ]" + sWok);
tln_com_log("☆R[sLet ]" + sLet);
var wdate = tln_com_todatetime(sBasDy + " " + "00:00:00");
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 00:00:00');
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
sBasTm = _kakot;
}
}
tln_com_log("☆R[return ]" + (sBasDy + " " + sBasTm + "," + rec));
return (sBasDy + " " + sBasTm + "," + rec);
}
//-------------------------------------------
//[部品]工程日付計算フォワード
//返り値:(完了日),(開始日)
//-------------------------------------------
function calcDTTM_F(sBasDy,sBasTm,sLet,_kakof,_kakot,_calender) {
var rec = '';
var flg1 = true;
var flg2 = true;
sBasDy = sBasDy.toString().split(" ")[0];
tln_com_log("☆F[param ]" + sBasDy + " / " + sBasTm + " / " + sLet + " / " + _kakof + " / " + _kakot + " / " + _calender);
//スタート時点の基準日が既に稼働対象外の場合は直近の稼働に変更する
if (_kakof > sBasTm ) {
tln_com_log("☆F[param ] (1)");
sBasTm = _kakof;
}
if (_kakot < sBasTm ) {
tln_com_log("☆F[param ] (2)");
sBasTm = _kakof;
//翌日開始
var wdate = tln_com_todatetime(sBasDy + " " + "23:59:00");
wdate.setMinutes(wdate.getMinutes() + 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 23:59:00');
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
}
rec = sBasDy + " " + sBasTm;
while (flg1){
sBasDy = sBasDy.toString().split(" ")[0];
var wdate = tln_com_todatetime(sBasDy + " " + sBasTm);
var wdatl = tln_com_todatetime(sBasDy + " " + sBasTm);
wdatl.setMinutes(wdate.getMinutes() + sLet);
var wdats = tln_com_todatetime(sBasDy + " " + _kakot);
var tdate = tln_com_date2string2(wdatl);
var tDat = tdate.toString().split(" ")[0];
var tTim = tdate.toString().split(" ")[1];
tTim = tln_com_lcut(tTim,5);
tln_com_log("☆F[wdate ]" + wdate);
tln_com_log("☆F[sLet ]" + sLet);
tln_com_log("☆F[wdatl ]" + wdatl);
tln_com_log("☆F[wdats ]" + wdats);
tln_com_log("☆F[tDat ]" + tDat);
tln_com_log("☆F[sBasDy ]" + sBasDy);
tln_com_log("☆F[tTim ]" + tTim);
tln_com_log("☆F[_kakof ]" + _kakof);
if (tDat == sBasDy && tTim <= _kakot) {
sBasTm = tTim;
flg1 = false;
} else {
//日付が異なっている場合、もしくは同日でも稼働完了時間より先の終了時刻の場合
//基準から終了日までの時間を計算し残りリードタイムを計算し
//基準日を翌日、基準時間を稼働開始時刻にして再度実施
//var sWok = wdats - wdate;
var sWok = getDiff(tln_com_date2string2(wdats),tln_com_date2string2(wdate));
if (sWok < 0) {
sWok = sWok * -1;
}
sLet = sLet - sWok;
tln_com_log("☆F[sWok ]" + sWok);
tln_com_log("☆F[sLet ]" + sLet);
var wdate = tln_com_todatetime(sBasDy + " " + "23:59:00");
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 23:59:00');
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
sBasTm = _kakof;
}
}
tln_com_log("☆R[return ]" + (sBasDy + " " + sBasTm + "," + rec));
return (sBasDy + " " + sBasTm + "," + rec);
}
function getDiff(date1Str, date2Str) {
var date1 = new Date(date1Str);
var date2 = new Date(date2Str);
var msDiff = date2.getTime() - date1.getTime();
var daysDiff = Math.floor(msDiff / (1000 * 60));
return (++daysDiff) - 1;
}
≣ サーバJS ライブラリXDMF_JS002_0 [共通]仕入関連 45996字
//-------------------------------------------
//[処理]入庫処理
//-------------------------------------------
//入庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜金額
// 7 : ソース番号
// 8 : 参照番号
function exec_nyuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _ZEINUKI_KINGAKU, _NRSOURCE, _TXREFNO) {
//数値準備
var itemSelectList = selectBT010(_HINMOKU);
var lineDataMap = itemSelectList[0];
var _C_SURYO = _SURYO;
var _C_ZEIGAKU = _ZEINUKI_KINGAKU * getTAX_RATE(_TORIHIKIDATE);
var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (030 : 仕入入庫)
itemDataList['KBUKEBARAI'] = "030";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(係数込税込単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
//取引数(係数込取引数)
itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
//取引額(税込金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(係数込取引数)
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU;
//残高増減額(税込金額
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
updateFT100(itemDataList);
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分 (00:入荷仕入)
itemDataList['KBKAITORI'] = "00";
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _C_KINGAKU_KOMI;
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'];
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
//-------------------------------------------
//入庫取消削除
// 1 : 品目コード
// 2 : 取引先
// 3 : 倉庫
// 4 : 取引日
// 5 : 数量
// 6 : 税抜金額
// 7 : ソース番号
// 8 : 参照番号
//
// * : 在庫取引№
// * : 買掛取引№
function exec_nyuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _ZEINUKI_KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI, _NRKAIKAKE) {
//数値準備
// * var itemSelectList = selectBT010(_HINMOKU);
// * var lineDataMap = itemSelectList[0];
// *
// * var _C_SURYO = _SURYO;
// * var _C_ZEIGAKU = _ZEINUKI_KINGAKU * getTAX_RATE(_TORIHIKIDATE);
// * var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
// * var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
// *
// * var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
// * var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
var _C_SURYO_KEISU = lineDataMapFT100['QTTORIHIKI'];
var _C_TANKA_KOMI_KEISU = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_C_SURYO_KEISU * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_C_KINGAKU_KOMI * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //受払区分 (030 : 仕入入庫)
// * itemDataList['KBUKEBARAI'] = "030";
// * //振替区分 (Null)
// * itemDataList['KBZAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //倉庫C
// * itemDataList['CDSOUKO'] = _SOUKO;
// * //相手先名
// * itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
// * //取引単価(係数込税込単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
// * //取引数(係数込取引数)
// * itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
// * //取引額(税込金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// *
// * updateFT100(itemDataList);
// *
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "030" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分 (00:入荷仕入)
// * itemDataList['KBKAITORI'] = "00";
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額(消費税額)
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + "00" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] - _C_KINGAKU_KOMI
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//[処理]買掛振替処理
//-------------------------------------------
//買掛振替新規登録
// 1 : 仕入先
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_kaihuri_ins(_IDSIIRESAKI, _TORIHIKIDATE, _KBZOUGEN, _KBKAIHURI, _TXTEKIYO, _ZEINUKI_HURIKAE, _NRSOURCE, _TXREFNO) {
//数値準備
var _C_SURYO = 1;
var _C_ZEIGAKU = 0;
var _C_KINGAKU_NUKI = _ZEINUKI_HURIKAE;
var _C_KINGAKU_KOMI = _ZEINUKI_HURIKAE + _C_ZEIGAKU;
var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _IDSIIRESAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
itemDataList['KBKAITORI'] = "10";
} else {
//増減区分=1:残高増 → 11:振替計上
itemDataList['KBKAITORI'] = "11";
}
//振替区分 (Null)
itemDataList['KBKAIHURI'] = _KBKAIHURI;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = '';
//品名/摘要
itemDataList['TXHINMEI'] = _TXTEKIYO;
//単位区分
itemDataList['KBUNIT'] = 'CNT';
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_IDSIIRESAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _AMZOUGEN
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//買掛振替取消削除
// 1 : 仕入先
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
//
// * : 買掛取引№
function exec_kaihuri_del(_IDSIIRESAKI, _TORIHIKIDATE, _KBZOUGEN, _KBKAIHURI, _TXTEKIYO, _ZEINUKI_HURIKAE, _NRSOURCE, _TXREFNO,
_NRKAIKAKE) {
//数量準備
// * var _C_SURYO = 1;
// * var _C_ZEIGAKU = 0;
// * var _C_KINGAKU_NUKI = _ZEINUKI_HURIKAE;
// * var _C_KINGAKU_KOMI = _ZEINUKI_HURIKAE + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
if (_C_KINGAKU_KOMI < 0 ) {
_C_KINGAKU_KOMI = _C_KINGAKU_KOMI * -1;
}
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _IDSIIRESAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分
// * if (_KBZOUGEN == '0') {
// * //増減区分=0:残高減 → 10:振替控除
// * itemDataList['KBKAITORI'] = "10";
// * } else {
// * //増減区分=1:残高増 → 11:振替計上
// * itemDataList['KBKAITORI'] = "11";
// * }
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = _KBKAIHURI;
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = '';
// * //品名/摘要
// * itemDataList['TXHINMEI'] = _TXTEKIYO;
// * //単位区分
// * itemDataList['KBUNIT'] = 'CNT';
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * if (_KBZOUGEN == '0') {
// * //増減区分=0:残高減 → 10:振替控除
// * var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
// * } else {
// * //増減区分=1:残高増 → 11:振替計上
// * var _AMZOUGEN = _C_KINGAKU_KOMI;
// * }
// * itemDataList['AMZOUGEN'] = _AMZOUGEN * -1;
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _KBKAITORI = "10";
} else {
//増減区分=1:残高増 → 11:振替計上
var _KBKAITORI = "11";
}
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_IDSIIRESAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額
//期間仕入額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + (_AMZOUGEN * -1)
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//[処理]特殊仕入処理
//-------------------------------------------
//特殊仕入新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 取引数
// 7 : 税抜単価
// 8 : 税抜取引額
// 9 : 消費税額
// 10 : ソース番号
// 11 : 参照番号
function exec_tsiire_ins(
_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _KBTOKUSIIRE,
_SURYO, _ZEINUKI_TANKA, _ZEINUKI_KINGAKU, _ZEIGAKU,
_NRSOURCE, _TXREFNO) {
//数値準備
var itemSelectList = selectBT010(_HINMOKU);
var lineDataMap = itemSelectList[0];
var _C_SURYO = _SURYO;
var _C_ZEIGAKU = _ZEIGAKU;
var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
var _C_TANKA_NUKI = _ZEINUKI_TANKA;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
/*
取引区分=10:仕入返品 → 買掛取引区分=02:仕入返品 →出庫
取引区分=20:直接入荷 → 買掛取引区分=01:直入荷仕入 →入庫
*/
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = _C_SURYO_KEISU;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU_KOMI;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _C_SURYO_KEISU;
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_KINGAKU_KOMI;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
//10:仕入返品 → 02:仕入返品 → 140:仕入返品
//20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
if (_KBTOKUSIIRE == '20') {
itemDataList['KBUKEBARAI'] = "040";
} else {
itemDataList['KBUKEBARAI'] = "140";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(係数込税込単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
//取引数(係数込取引数)
itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
//取引額(税込金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
//残高増減数(係数込税込単価
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU;
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品 → 140:仕入返品
//残高増減数(係数込税込単価
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
}
updateFT100(itemDataList);
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
//10:仕入返品 → 02:仕入返品
//20:直接入荷 → 01:直入荷仕入
if (_KBTOKUSIIRE == '20') {
itemDataList['KBKAITORI'] = "01";
} else {
itemDataList['KBKAITORI'] = "02";
}
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
}
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
var _AMSIIRE = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
var _AMSIIRE = _C_KINGAKU_KOMI * -1;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _AMSIIRE;
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'];
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
//-------------------------------------------
//特殊仕入取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 取引数
// 7 : 税抜単価
// 8 : 税抜取引額
// 9 : 消費税額
// 10 : ソース番号
// 11 : 参照番号
//
// * : 在庫取引№
// * : 買掛取引№
function exec_tsiire_del(
_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _KBTOKUSIIRE,
_SURYO, _ZEINUKI_TANKA, _ZEINUKI_KINGAKU, _ZEIGAKU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRKAIKAKE) {
//数値準備
// * var itemSelectList = selectBT010(_HINMOKU);
// * var lineDataMap = itemSelectList[0];
// *
// * var _C_SURYO = _SURYO;
// * var _C_ZEIGAKU = _ZEIGAKU;
// * var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
// * var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _ZEINUKI_TANKA;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
// *
// * var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
// * var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
if (_C_KINGAKU_KOMI < 0 ) {
_C_KINGAKU_KOMI = _C_KINGAKU_KOMI * -1;
}
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
var _C_SURYO_KEISU = lineDataMapFT100['QTTORIHIKI'];
var _C_TANKA_KOMI_KEISU = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
/*
取引区分=10:仕入返品 → 買掛取引区分=02:仕入返品 →出庫
取引区分=20:直接入荷 → 買掛取引区分=01:直入荷仕入 →入庫
*/
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = _C_SURYO_KEISU * -1;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU_KOMI * -1;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_C_SURYO_KEISU * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_C_KINGAKU_KOMI * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_C_SURYO_KEISU * -1);
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_C_KINGAKU_KOMI * -1);
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //受払区分
// * //10:仕入返品 → 02:仕入返品 → 140:仕入返品
// * //20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
// * if (_KBTOKUSIIRE == '20') {
// * itemDataList['KBUKEBARAI'] = "040";
// * } else {
// * itemDataList['KBUKEBARAI'] = "140";
// * }
// * //振替区分 (Null)
// * itemDataList['KBZAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //倉庫C
// * itemDataList['CDSOUKO'] = _SOUKO;
// * //相手先名
// * itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
// * //取引単価(係数込税込単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
// * //取引数(係数込取引数)
// * itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
// * //取引額(税込金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * if (_KBTOKUSIIRE == '20') {
// * //20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// * } else {
// * //10:仕入返品 → 02:仕入返品 → 140:仕入返品
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = (_C_SURYO_KEISU * -1) * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = (_C_KINGAKU_KOMI * -1) * -1;
// * }
// *
// * updateFT100(itemDataList);
// *
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
if (_KBTOKUSIIRE == '20') {
var _KBUKEBARAI = "040";
} else {
var _KBUKEBARAI = "140";
}
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分
// * //10:仕入返品 → 02:仕入返品
// * //20:直接入荷 → 01:直入荷仕入
// * if (_KBTOKUSIIRE == '20') {
// * itemDataList['KBKAITORI'] = "01";
// * } else {
// * itemDataList['KBKAITORI'] = "02";
// * }
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * if (_KBTOKUSIIRE == '20') {
// * //20:直接入荷 → 01:直入荷仕入
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// * } else {
// * //10:仕入返品 → 02:仕入返品
// * itemDataList['AMZOUGEN'] = (_C_KINGAKU_KOMI * -1) * -1;
// * }
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
if (_KBTOKUSIIRE == '20') {
//10:仕入返品 → 02:仕入返品
var _KBKAITORI = "01";
} else {
//20:直接入荷 → 01:直入荷仕入
var _KBKAITORI = "02";
}
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
var _AMSIIRE = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
var _AMSIIRE = _C_KINGAKU_KOMI * -1;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + (_AMSIIRE * -1);
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//[処理]仕入関連処理
//-------------------------------------------
//-------------------------------------------
//入荷見出し
function selectHT020(_NRNYUKA) {
var sql =
"SELECT " +
" NRNYUKA " +
",IDSIIRESAKI " +
",DTNYUKA " +
",DTKENSYU " +
",CDSOUKO " +
",STNYUKA " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM HT020 " +
"WHERE NRNYUKA = '" + _NRNYUKA + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//発注見出し
function selectHT010(_NRHATTYU) {
var sql =
"SELECT " +
" HT010.NRHATTYU " +
",HT010.IDSIIRESAKI " +
",HT010.DTHATTYU " +
",HT010.DTCREATE " +
",HT010.CDSOUKO " +
",HT010.TXTEKIYO " +
",HT010.STHATTYU " +
",HT010.CREATED_DATE " +
",HT010.CREATED_BY " +
",HT010.CREATED_PRG_NM " +
",HT010.UPDATED_DATE " +
",HT010.UPDATED_BY " +
",HT010.UPDATED_PRG_NM " +
",HT010.MODIFY_COUNT " +
",HT011.QTHATTYU " +
",HT011.QTKENSYU " +
"FROM HT010 " +
"INNER JOIN ( SELECT NRHATTYU, SUM(QTHATTYU) AS QTHATTYU, SUM(QTKENSYU) AS QTKENSYU FROM HT011 GROUP BY NRHATTYU ) HT011 " +
" ON HT011.NRHATTYU = HT010.NRHATTYU " +
"WHERE HT010.NRHATTYU = '" + _NRHATTYU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateHT010(itemDataList) {
//項目
var itemColNameTbl = [
'NRHATTYU'
,'IDSIIRESAKI'
,'DTHATTYU'
,'DTCREATE'
,'CDSOUKO'
,'TXTEKIYO'
,'STHATTYU'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectHT010(itemDataList['NRHATTYU']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRHATTYU' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'HT010', itemDataList , itemColNameTbl , whereList );
}
//発注明細(入荷№)
function selectHT011_NRNYUKA(_NRNYUKA) {
var sql =
"SELECT " +
" HT011.NRHATTYU " +
",HT011.SQHATTYU " +
",HT011.IDHINMOKU " +
",HT011.PRHATTYU " +
",HT011.QTHATTYU " +
",HT011.QTKENSYU " +
",HT011.DTNOUKI " +
",HT011.NRNYUKA " +
",HT011.NRSOURCE " +
",HT011.QTKANZAN " +
",HT011.FGNYUKA " +
",HT011.CREATED_DATE " +
",HT011.CREATED_BY " +
",HT011.CREATED_PRG_NM " +
",HT011.UPDATED_DATE " +
",HT011.UPDATED_BY " +
",HT011.UPDATED_PRG_NM " +
",HT011.MODIFY_COUNT " +
",HT010.IDSIIRESAKI " +
",HT010.CDSOUKO " +
"FROM HT011 " +
"INNER JOIN HT010 " +
" ON HT010.NRHATTYU = HT011.NRHATTYU " +
"WHERE NRNYUKA = '" + _NRNYUKA + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴(受払区分+取引ソース番号)
function selectFT100_NRSOURCE(_KBUKEBARAI,_NRSOURCE) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//買掛振替[KT010]
function selectKT010(_NRKAIHURI) {
var sql =
"SELECT " +
" NRKAIHURI " +
",KBKAIHURI " +
",DTHURIKAE " +
",IDSIIRESAKI " +
",AMHURIKAE " +
",TXTEKIYO " +
",NRSOURCE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",KBZOUGEN " +
"FROM KT010 " +
"WHERE NRKAIHURI = '" + _NRKAIHURI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//買掛増減履歴(受払区分+取引ソース番号)
function selectDT100_NRSOURCE(_KBKAITORI,_NRSOURCE) {
var sql =
"SELECT " +
" NRKAIKAKE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",KBKAITORI " +
",KBKAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMTAX " +
",NRSIHARAI " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT100 " +
"WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//特殊仕入[KT020]
function selectKT020(_NRTOKUSIIRE) {
var sql =
"SELECT " +
" NRTOKUSIIRE " +
",KBTOKUSIIRE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",IDHINMOKU " +
",CDSOUKO " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",PRZAIKO " +
",TXTEKIYO " +
",NRSOURCE " +
",AMTORIHIKI " +
",AMTAX " +
",QTZAITORI " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM KT020 " +
"WHERE NRTOKUSIIRE = '" + _NRTOKUSIIRE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[処理]支払関連
//-------------------------------------------
//支払依頼[DT110]
function selectDT110(_NRSIHARAI) {
var sql =
"SELECT " +
" NRSIHARAI " +
" ,IDSIIRESAKI " +
" ,DTSIHARAI " +
" ,DTSYONIN " +
" ,KBSIHARAI " +
" ,TXSEIKYU " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,AMSIHARAI " +
" ,STSIHARAI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
"FROM DT110 " +
"WHERE NRSIHARAI = '" + _NRSIHARAI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[処理]支払承認
//-------------------------------------------
// 1 : 仕入先ID
// 2 : 支払承認日
// 3 : 支払依頼額
// 4 : 摘要
// 5 : ソース番号
// 6 : 参照番号
function exec_shiharaisyonin_ins(_TORIHIKISAKI, _TORIHIKIDATE, _AMSIHARAI, _TXTEKIYO , _NRSOURCE, _TXREFNO) {
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分 (90:支払)
itemDataList['KBKAITORI'] = "90";
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = "";
//品目名/摘要
itemDataList['TXHINMEI'] = _TXTEKIYO;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _AMSIHARAI;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _AMSIHARAI;
//消費税額
itemDataList['AMTAX'] = 0;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _AMSIHARAI;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'];
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'] + _AMSIHARAI;
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
// 1 : 仕入先ID
// 2 : 支払承認日
// 3 : 支払依頼額
// 4 : 摘要
// 5 : ソース番号
// 6 : 参照番号
// * : 買掛取引№
function exec_shiharaisyonin_del(_TORIHIKISAKI, _TORIHIKIDATE, _AMSIHARAI, _TXTEKIYO , _NRSOURCE, _TXREFNO, _NRKAIKAKE) {
//買掛履歴作成
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + "90" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE']
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'] - _AMSIHARAI
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
≣ サーバJS ライブラリXDMF_JS003_0 [共通]製造関連 70763字
//-------------------------------------------
//[処理]出庫処理
//-------------------------------------------
//出庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_syuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
var _QTZOUGEN = _SURYO * -1
var _AMZOUGEN = _KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (160:材料出庫)
itemDataList['KBUKEBARAI'] = "160";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
//-------------------------------------------
//出庫取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_syuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI
) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "160" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'" +
" AND NRZAITORI = '" + _NRZAITORI + "'"
);
}
//-------------------------------------------
//[処理]完成・出荷(完成入庫)処理
//-------------------------------------------
//完成・出荷入庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_kansei_nyuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//計算
//--------------------
var _C_KINGAKU = _SURYO * _TANKA;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(数量)
itemDataList['QTNYUKO'] = _SURYO;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(金額)
itemDataList['AMNYUKO'] = _C_KINGAKU;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(数量)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _SURYO;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (060 : 完成入庫)
itemDataList['KBUKEBARAI'] = "060";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _SURYO;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU;
updateFT100(itemDataList);
}
//-------------------------------------------
//完成出荷入庫取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_kansei_nyuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(数量)
itemDataList['QTNYUKO'] = _SURYO * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(金額)
itemDataList['AMNYUKO'] = _KINGAKU * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(数量)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_SURYO * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_KINGAKU * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "060" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//[処理]完成・出荷(廃棄)処理
//-------------------------------------------
//完成・出荷(廃棄)新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_kansei_haiki_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//計算
//--------------------
var _C_KINGAKU = _SURYO * _TANKA;
//在庫更新
//--------------------
var _QTZOUGEN = _SURYO * -1
var _AMZOUGEN = _C_KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (120 : 振替出庫)
itemDataList['KBUKEBARAI'] = "120";
//振替区分 (11:雑損)
itemDataList['KBZAIHURI'] = "11";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
//-------------------------------------------
//完成・出荷(廃棄)取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_kansei_haiki_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "120" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//[処理]完成・出荷(販売出荷)処理
//-------------------------------------------
//完成・出荷(販売出荷)新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量(出荷数)
// 6 : 単価(実勢原価)
// 7 : 単価(受注単価)
// 8 : 実勢原価額
// 9 : ソース番号
// 10 : 参照番号
function exec_kansei_hanbai_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE,
_SYUKA_SURYO, _JISEI_GENKA, _JUCHU_TANKA, _JISEI_KINGAKU,
_NRSOURCE, _TXREFNO) {
//計算
//取引額=実勢原価額
//出荷額
var _C_SYUKA_KINGAKU = _SYUKA_SURYO * _JISEI_GENKA;
var _C_JISEI_KINGAKU = _C_SYUKA_KINGAKU;
//受注金額/消費税額
var _C_JUCHU_KINGAKU_NUKI = _SYUKA_SURYO * _JUCHU_TANKA;
var _C_JUCHU_ZEIGAKU = _C_JUCHU_KINGAKU_NUKI * getTAX_RATE(_TORIHIKIDATE);
var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//在庫更新
//--------------------
var _QTZOUGEN = _SYUKA_SURYO * -1
var _AMZOUGEN = _C_SYUKA_KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SYUKA_SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_SYUKA_KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SYUKA_SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_SYUKA_KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (130 : 売上出庫)
itemDataList['KBUKEBARAI'] = "130";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _JISEI_GENKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SYUKA_SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_SYUKA_KINGAKU;
//取引差額 ['(【製造指示】出荷数 *【製造指示】受注単価)-【製造指示】実勢原価額]
itemDataList['AMSAGAKU'] = (_SYUKA_SURYO * _JUCHU_TANKA) - _C_JISEI_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分(00 : 出荷売上)
itemDataList['KBURITORI'] = "00";
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(受注単価)
itemDataList['PRTORIHIKI'] = _JUCHU_TANKA;
//取引数(出荷数)
itemDataList['QTTORIHIKI'] = _SYUKA_SURYO;
//消費税額(受注金額消費税額)
itemDataList['AMTAX'] = _C_JUCHU_ZEIGAKU;
//販売原価
itemDataList['AMGENKA'] = _C_JISEI_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = _C_JUCHU_KINGAKU_NUKI - _C_JISEI_KINGAKU;
//残高増減額
itemDataList['AMZOUGEN'] = _C_JUCHU_KINGAKU_KOMI;
//税抜取引額
itemDataList['AMTORIHIKI'] = _C_JUCHU_KINGAKU_NUKI;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + _C_JUCHU_KINGAKU_KOMI;
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//完成・出荷(販売出荷)取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量(出荷数)
// 6 : 数量(受注数)
// 7 : 単価(実勢原価)
// 8 : 単価(受注単価)
// 9 : 実勢原価額
// 10 : ソース番号
// 11 : 参照番号
//
// * : 在庫取引№
// * : 売掛取引№
function exec_kansei_hanbai_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE,
_SYUKA_SURYO, _JISEI_GENKA, _JUCHU_TANKA, _JISEI_KINGAKU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRURIKAKE) {
//数値準備
// * //出荷額
// * var _C_SYUKA_KINGAKU = _SYUKA_SURYO * _JISEI_GENKA;
// * //受注金額/消費税額
// * var _C_JUCHU_KINGAKU_NUKI = _SYUKA_SURYO * _JUCHU_TANKA;
// * var _C_JUCHU_ZEIGAKU = _C_JUCHU_KINGAKU_NUKI * getTAX_RATE(_TORIHIKIDATE);
// * var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectET100(_NRURIKAKE);
var lineDataMapET100 = itemSelectList[0];
_SYUKA_SURYO = lineDataMapFT100['QTTORIHIKI'];
_JISEI_GENKA = lineDataMapFT100['PRTORIHIKI'];
var _C_SYUKA_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
var _C_JUCHU_KINGAKU_NUKI = lineDataMapET100['AMTORIHIKI'];
var _C_JUCHU_ZEIGAKU = lineDataMapET100['AMTAX'];
var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SYUKA_SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_SYUKA_KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SYUKA_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_C_SYUKA_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "130" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + "00" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_C_JUCHU_KINGAKU_KOMI * -1);
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//[処理]売掛振替登録処理
//-------------------------------------------
//売掛振替登録処理
// 1 : 取引先コード
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 振替額
// 7 : ソース番号
// 8 : 参照番号(売掛振替№)
function exec_urikake_ins(_TORIHIKISAKI, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN, _TEKIYO, _HURIKAEGAKU,
_NRSOURCE, _TXREFNO) {
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分(00 : 出荷売上)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['KBURITORI'] = "10";
} else {
//11:振替計上
itemDataList['KBURITORI'] = "11";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = _HURIKAEKBN;
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = '';
//品名/摘要
itemDataList['TXHINMEI'] = _TEKIYO;
//単位区分
itemDataList['KBUNIT'] = 'CNT';
//取引単価
itemDataList['PRTORIHIKI'] = _HURIKAEGAKU;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//消費税額
itemDataList['AMTAX'] = 0;
//販売原価
itemDataList['AMGENKA'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = 0;
//残高増減額
//取引区分(00 : 出荷売上)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['AMZOUGEN'] = _HURIKAEGAKU * -1;
} else {
//11:振替計上
itemDataList['AMZOUGEN'] = _HURIKAEGAKU;
}
//税抜取引額
itemDataList['AMTORIHIKI'] = _HURIKAEGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_HURIKAEGAKU * -1);
} else {
//11:振替計上
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + _HURIKAEGAKU;
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//売掛振替削除処理
// 1 : 取引先コード
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 振替額
// 7 : ソース番号
// 8 : 参照番号(売掛振替№)
// * : 売掛取引№
// * : 取引区分
function exec_urikake_del(_TORIHIKISAKI, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN, _TEKIYO, _HURIKAEGAKU,
_NRSOURCE, _TXREFNO, _NRURIKAKE,_KBURITORI) {
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
//if (_ZOGENKBN == '0') {
if (_KBURITORI == '10') {
//増減区分=0:残高減 → 取引区分=10:振替控除
//10:振替控除
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + ((_HURIKAEGAKU * -1) * -1);
} else {
//11:振替計上
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_HURIKAEGAKU * -1);
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//[処理]特殊売上登録処理
//-------------------------------------------
//特殊売上登録処理
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 数量
// 7 : 単価
// 8 : 消費税
// 9 税抜取引額
// 10 : 在庫単価
// 11 : 在庫取引数
// 12 : ソース番号
// 13 : 参照番号
function exec_tokuuri_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _TORIHIKIKBN,
_SURYO, _TANKA, _SYOHIZEI, _NUKIGAKU, _ZAIKOTANKA, _ZAIKOTORIHIKISU,
_NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_TORIHIKIKBN == '10') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_TORIHIKIKBN == '10') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
if (_TORIHIKIKBN == '10') {
itemDataList['KBUKEBARAI'] = "050";
} else {
itemDataList['KBUKEBARAI'] = "150";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = _NUKIGAKU - (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)/残高増減額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_TORIHIKIKBN == '10') {
itemDataList['KBURITORI'] = "02";
} else {
itemDataList['KBURITORI'] = "01";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(出荷数)
itemDataList['QTTORIHIKI'] = _SURYO;
//消費税額
itemDataList['AMTAX'] = _SYOHIZEI;
//販売原価
itemDataList['AMGENKA'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = _NUKIGAKU - (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//残高増減額
if (_TORIHIKIKBN == '10') {
itemDataList['AMZOUGEN'] = (_NUKIGAKU + _SYOHIZEI) * -1;
} else {
itemDataList['AMZOUGEN'] = _NUKIGAKU + _SYOHIZEI;
}
//税抜取引額
itemDataList['AMTORIHIKI'] = _NUKIGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + ( (_NUKIGAKU + _SYOHIZEI) * -1 );
} else {
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_NUKIGAKU + _SYOHIZEI);
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//特殊売上削除処理
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 数量
// 7 : 単価
// 8 : 消費税
// 9 税抜取引額
// 10 : 在庫単価
// 11 : 在庫取引数
// 12 : ソース番号
// 13 : 参照番号
//
// * : 在庫取引№
// * : 売掛取引№
function exec_tokuuri_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _TORIHIKIKBN,
_SURYO, _TANKA, _SYOHIZEI, _NUKIGAKU, _ZAIKOTANKA, _ZAIKOTORIHIKISU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRURIKAKE) {
//数値準備(赤データで再セット)
// * var itemSelectList = selectFT100(_NRZAITORI);
// * var lineDataMapFT100 = itemSelectList[0];
// * _SYUKA_SURYO = lineDataMapFT100['QTTORIHIKI'];
// * _JISEI_GENKA = lineDataMapFT100['PRTORIHIKI'];
// * var _C_SYUKA_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
var itemSelectList = selectET100(_NRURIKAKE);
var lineDataMapET100 = itemSelectList[0];
// * var _C_JUCHU_KINGAKU_NUKI = lineDataMapET100['AMTORIHIKI'];
// * var _C_JUCHU_ZEIGAKU = lineDataMapET100['AMTAX'];
// * var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
var _AMZOUGEN = lineDataMapET100['AMZOUGEN'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_TORIHIKIKBN == '02') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU * -1;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU * -1;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_TORIHIKIKBN == '02') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1 ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_TORIHIKIKBN == '02') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_ZAIKOTORIHIKISU * -1);
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_ZAIKOTORIHIKISU * -1);
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_TORIHIKIKBN == '02') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1);
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
//受払区分
if (_TORIHIKIKBN == '02') {
var _KBUKEBARAI = "050";
} else {
var _KBUKEBARAI = "150";
}
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _TORIHIKIKBN + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
//itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_C_JUCHU_KINGAKU_KOMI * -1);
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_AMZOUGEN * -1);
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//[処理]在庫振替の保守
//-------------------------------------------
//在庫振替登録処理
// 1 : 品目コード
// 2 : 倉庫コード
// 3 : 振替日(取引日)
// 4 : 増減区分
// 4 : 振替区分
// 5 : 取引数量
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_zaihuri_ins(_HINMOKU, _SOUKO, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN,
_ZAIKOTORIHIKISU, _ZAIKOTANKA, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_ZOGENKBN == '1') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_ZOGENKBN == '1') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_ZOGENKBN == '1') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_ZOGENKBN == '1') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
if (_ZOGENKBN == '1') {
itemDataList['KBUKEBARAI'] = "020";
} else {
itemDataList['KBUKEBARAI'] = "120";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = _HURIKAEKBN;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = "";
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)/残高増減額(金額)
if (_ZOGENKBN == '1') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
}
//-------------------------------------------
//[処理]在庫振替削除
//-------------------------------------------
//在庫振替削除処理
// 1 : 品目コード
// 2 : 倉庫コード
// 3 : 振替日(取引日)
// 5 : 取引数量
// 6 : 取引単価
// 7 : 受払区分
// 7 : ソース番号
// 8 : 参照番号
// * : 在庫取引№
function exec_zaihuri_del(_HINMOKU, _SOUKO, _TORIHIKIDATE, _ZAIKOTORIHIKISU, _ZAIKOTANKA, _KBUKEBARAI,
_NRSOURCE, _TXREFNO, _NRZAITORI) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '020') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU * -1;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU * -1;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '020') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1 ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '020') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_ZAIKOTORIHIKISU * -1);
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_ZAIKOTORIHIKISU * -1);
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '020') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1);
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//[処理]在庫振替の保守
//-------------------------------------------
//在庫振替登録処理
// 1 : 品目コード
// 2 : 倉庫コード
// 2 : 相手倉庫コード
// 3 : 振替日(取引日)
// 4 : 受払区分
// 5 : 取引数量
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_zaiidou_ins(_HINMOKU, _SOUKO, _AITE_SOUKO, _TORIHIKIDATE, _KBUKEBARAI,
_ZAIKOTORIHIKISU, _ZAIKOTANKA, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '010') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '010') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
itemDataList['KBUKEBARAI'] = _KBUKEBARAI;
//振替区分 (Null)
itemDataList['KBZAIHURI'] = null;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _AITE_SOUKO;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)/残高増減額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
}
//-------------------------------------------
//[処理]棚卸確定更新
//-------------------------------------------
//棚卸確定更新処理
// 1 : 品目コード
// 2 : 倉庫コード
// 4 : 確定日時
// 5 : 実棚数量
// 6 : 基準数量
// 7 : 実棚単価
// 8 : ソース番号
// 9 : 参照番号(棚卸№)
function exec_tanakakutei_ins(_HINMOKU, _SOUKO, _KAKUTEIDATE, _JITSUSU, _KIJUNSU,
_TANKA, _NRSOURCE, _TXREFNO) {
if (_JITSUSU - _KIJUNSU != 0 ) {
if (_JITSUSU == '') { _JITSUSU = 0; }
if (_KIJUNSU == '') { _KIJUNSU = 0; }
if (_TANKA == '') { _TANKA = 0; }
var _KBUKEBARAI = '';
var _QTTORIHIKI = 0;
var _AMTORIHIKI = 0;
var _QTZOUGEN = 0;
var _AMZOUGEN = 0;
if (_JITSUSU - _KIJUNSU > 0 ) {
_KBUKEBARAI = '070';
_QTTORIHIKI = _JITSUSU - _KIJUNSU;
_AMTORIHIKI = (_JITSUSU - _KIJUNSU) * _TANKA;
_QTZOUGEN = _QTTORIHIKI;
_AMZOUGEN = _AMTORIHIKI;
} else {
_KBUKEBARAI = '170';
_QTTORIHIKI = (_JITSUSU - _KIJUNSU) * -1;
_AMTORIHIKI = ((_JITSUSU - _KIJUNSU) * _TANKA) * -1;
_QTZOUGEN = _QTTORIHIKI * -1;
_AMZOUGEN = _AMTORIHIKI * -1;
}
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '070') {
itemDataList['QTNYUKO'] = _QTTORIHIKI;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _QTTORIHIKI;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '070') {
itemDataList['AMNYUKO'] = _AMTORIHIKI;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = _AMTORIHIKI;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数/期間出庫数(数量)
if (_KBUKEBARAI == '070') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _QTTORIHIKI;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _QTTORIHIKI;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額/期間出庫額(金額)
if (_KBUKEBARAI == '070') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _AMTORIHIKI ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _AMTORIHIKI ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _KAKUTEIDATE;
//受払区分
itemDataList['KBUKEBARAI'] = _KBUKEBARAI;
//振替区分 (Null)
itemDataList['KBZAIHURI'] = null;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫C
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = null;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _QTTORIHIKI;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _AMTORIHIKI;
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)/残高増減額(金額)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
}
//-------------------------------------------
//[処理]製造関連処理
//-------------------------------------------
//-------------------------------------------
//製造指示[JT010]
function selectJT010(_NRSEIZO) {
var sql =
"SELECT " +
" NRSEIZO " +
",IDTOKUISAKI " +
",SQSYUKKASAKI " +
",TXTYUMONBANGO " +
",IDHINMOKU " +
",DTNOUKI " +
",QTJYUTYU " +
",QTSYUKKA " +
",QTSEIZO " +
",QTKANSEI " +
",QTHURYO " +
",QTHAIKI " +
",AMGENKA " +
",PRMITSUMORI " +
",PRJYUTYU " +
",TXTEKIYO " +
",CDSOUKOKAN " +
",CDSOUKOZAI " +
",DTCREATE " +
",DTHAKKO " +
",DTSYUKKO " +
",DTKANSEI " +
",DTSYUKKA " +
",DTCANCEL " +
",NRSOURCE " +
",STSEIZO " +
",PRYOTEIGEN " +
",AMHANBAI " +
",AMARARI " +
",PRGENKA " +
",TXSEIZOYOTEI " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM JT010 " +
"WHERE NRSEIZO = '" + _NRSEIZO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//製造指示材料明細(製造指示番号)[JT040]
function selectJT040_NRSEIZO(_NRSEIZO) {
var sql =
"SELECT " +
" NRSEIZO " +
",SQZAIRYO " +
",IDHINMOKU " +
",QTTOUNYU " +
",SQKOUTEI " +
",PRYOTEI " +
",PRSYUKKO " +
",SQLIST " +
",CDSOUKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM JT040 " +
"WHERE NRSEIZO = '" + _NRSEIZO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴
function selectFT100(_NRZAITORI) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE NRZAITORI = '" + _NRZAITORI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴(受払区分+取引ソース番号)
function selectFT100_NRSOURCE(_KBUKEBARAI,_NRSOURCE) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//売掛増減履歴(受払区分、効区(T)、取引ソース番号)
function selectET100_NRSOURCE(_KBURITORI, _NRSOURCE) {
var sql =
"SELECT " +
" NRURIKAKE " +
",IDTOKUISAKI " +
",DTTORIHIKI " +
",KBURITORI " +
",KBURIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTAX " +
",AMGENKA " +
",NRSOURCE " +
",NRSEIKYU " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMARARI " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",AMTORIHIKI " +
"FROM ET100 " +
"WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//請求見出し[ET110]
function insertET110(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIKYU'
,'IDTOKUISAKI'
,'DTSEIKYU'
,'TXTEKIYO'
,'AMSEIKYU'
,'AMNYUKIN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//var numList = TALON.getNumberingData('XDMF_EF_SEIKYU', 1)
//itemDataList['NRSEIKYU'] = numList[0];
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'ET110', itemDataList , itemColNameTbl );
}
//-------------------------------------------
//[処理]受領関連
//-------------------------------------------
//受領明細[ET120]
function selectET120(_NRJYURYOU) {
var sql =
"SELECT " +
" NRJYURYOU " +
" ,IDTOKUISAKI " +
" ,DTJYURYOU " +
" ,KBKINSYU " +
" ,AMJYURYOU " +
" ,AMTESURYOU " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
"FROM ET120 " +
"WHERE NRJYURYOU = '" + _NRJYURYOU + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//[処理]受領処理
//-------------------------------------------
// 1 : 得意先ID
// 2 : 受領日
// 3 : 金種区分
// 4 : 金額(受領金額/残高控除分手数料)
// 5 : 処理区分(1:金額処理/2:手数料処理)
// 5 : 取引ソース№
// 6 : 受領№
function exec_juryo_ins(_TORIHIKISAKI, _TORIHIKIDATE, _KBKINSYU, _KINGAKU, _SYORIKBN,
_NRSOURCE, _TXREFNO) {
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_SYORIKBN == '1') {
if (_KBKINSYU == '1') {
itemDataList['KBURITORI'] = "90";
} else if (_KBKINSYU == '2') {
itemDataList['KBURITORI'] = "91";
} else {
itemDataList['KBURITORI'] = "XX";
}
} else {
itemDataList['KBURITORI'] = "92";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = "";
//単位区分
itemDataList['KBUNIT'] = "CNT";
//取引単価
itemDataList['PRTORIHIKI'] = _KINGAKU;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//消費税額
itemDataList['AMTAX'] = 0;
//販売原価
itemDataList['AMGENKA'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = 0;
//残高増減額
itemDataList['AMZOUGEN'] = _KINGAKU;
//税抜取引額
itemDataList['AMTORIHIKI'] = _KINGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'];
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'] + _KINGAKU;
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
// 1 : 得意先ID
// 2 : 受領日
// 3 : 金種区分
// 4 : 金額(受領金額/残高控除分手数料)
// 5 : 処理区分(1:金額処理/2:手数料処理)
// 5 : 取引ソース№
// 6 : 受領№
// * : 売掛取引№
// * : 取引区分
function exec_juryo_del(_TORIHIKISAKI, _TORIHIKIDATE, _KBKINSYU, _KINGAKU, _SYORIKBN,
_NRSOURCE, _TXREFNO, _NRURIKAKE, _KBURITORI) {
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新(対象受払区分+取引ソース内で効区は全てFに)
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'];
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'] + (_KINGAKU * -1);
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}