| |
送信できたかどうか？、再送信です。
リース契約COPY_判断:
If W開始リース < MST!開始日付 Then
GoTo リース契約COPY_LOOP
End If
TRN.INDEX = "主キー"
TRN.Seek "=", W得意先CD, W支店CD, W日付, MST!管理No.
If TRN.NoMatch Then
TRN.AddNew
TRN!得意先コード = MST!得意先コード
TRN!支店コード = MST!支店コード
TRN!売上日付 = W日付
TRN!現場コード = MST!現場コード
TRN!枝コード = MST!枝コード
TRN!現場名 = MST!現場名
TRN!品名コード = MST!品名コード
TRN!品名 = MST!品名
'TRN!管理No.：ｵｰﾄﾅﾝﾊﾞｰ
TRN!登録番号 = MST!登録番号
TRN!運転手 = MST!運転手
TRN!数量 = MST!数量
TRN!単位コード = MST!単位コード
TRN!単位 = MST!単位
TRN!単価 = MST!単価
TRN!金額 = MST!金額
TRN!開始リース期間 = W開始リース
TRN!終了リース期間 = W終了リース
TRN!支払条件 = MST!支払条件
TRN!支払条件1 = MST!支払条件1
If MST!リース回数 <> 0 Then
If DatePart("d", MST!開始日付) = 1 Then
TRN!現リース回数 = CLng(DateDiff("M", CDate(Format(MST!開始日付, "YYYY/MM")), CDate(Format(W日付, "YYYY/MM")))) + 1
Else
TRN!現リース回数 = CLng(DateDiff("M", CDate(Format(MST!開始日付, "YYYY/MM")), CDate(Format(W日付, "YYYY/MM"))))
End If
TRN!備考 = CStr(TRN!現リース回数) & "/" & MST!リース回数
End If
TRN.UPDATE
End If
※以前95〜2000の移行でお尋ねした者ですが、上記のプログラムの単価に-の値引きの単価を入力したら、合計金額が間違って表示されます。どのように訂正すればよろしいでしょうか？（合計997.500円が合計1.997.500円に表示されます）
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
