MsgBox („Grens Kredit Tidak Cukup…!“ & _
vbCrLf & _
„Sisa Piutang“ & vbTab & „=“ & ERV_Global.Format_Number (dblSisaPiutang) & _
vbCrLf & _
„ZO Belum Faktur“ & vbTab & „=“ & ERV_Global.Format_Number (dblSisaSOBelumFaktur) & _
vbCrLf & _
„Totaal“ & vbTab & vbTab & „=“ & ERV_Global.Format_Number (dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf & _
„Grens Kredit“ & vbTab & „=“ & ERV_Global.Format_Number (dblLimitKredit) & _
vbCrLf & _
„Grens Sisa“ & vbTab & vbTab & „=“ & ERV_Global.Format_Number (dblLimitKredit - dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf, _
MsgBoxStyle.Information, Me.Text)
|