MsgBox("Limit Kredit Tidak Cukup ...!" & _
vbCrLf & _
"Sisa Piutang = " & ERV_Global.Format_Number(dblSisaPiutang) & _
vbCrLf & _
"SO Belum Faktur = " & ERV_Global.Format_Number(dblSisaSOBelumFaktur) & _
vbCrLf & _
"Total = " & ERV_Global.Format_Number(dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf & _
"Limit Kredit = " & ERV_Global.Format_Number(dblLimitKredit) & _
vbCrLf & _
"Sisa Limit = " & ERV_Global.Format_Number(dblLimitKredit - dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf, _
MsgBoxStyle.Information, Me.Text)
|