MsgBox (“limite Kredit Tidak Cukup…!” & _
vbCrLf & _
“Sisa Piutang” & vbTab & “=” & ERV_Global.Format_Number (dblSisaPiutang) & _
vbCrLf & _
“ASSIM Belum Faktur” & vbTab & “=” & ERV_Global.Format_Number (dblSisaSOBelumFaktur) & _
vbCrLf & _
“Total” & vbTab & vbTab & “=” & ERV_Global.Format_Number (dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf & _
“Limitar Kredit” & vbTab & “=” & ERV_Global.Format_Number (dblLimitKredit) & o _
vbCrLf & _
De “limite Sisa” & vbTab & vbTab & “=” & ERV_Global.Format_Number (dblLimitKredit - dblSisaSOBelumFaktur + dblSisaSOBelumFaktur) & _
vbCrLf, _
MsgBoxStyle.Information, Me.Text)
|