Bestehende Rechnung kopieren

Manchmal will man eine bestehende Rechnung duplizieren. Dabei kann man Originalcode, etwas angepasst, verwenden:

Public Sub cstm_CopyRechnung()
' Original: Die Verkaufschance wird mit allen Positionen kopiert
Dim tblRechnung As OrgDbServer31.Table

On Error GoTo ErrHandler

Set tblRechnung = Database.Tables("Rechnungen")
If tblRechnung.EOF Then Exit Sub

If MsgBox("Möchten Sie die aktuelle Rechnung mit allen Positionen kopieren?", _
vbQuestion + vbYesNo, MsgBoxTitle) = vbNo Then Exit Sub

With New CInvoicing
Set .mtblInvoices = tblRechnung
Set .mtblPositions = gTables.GetTable(dbtblRechnungspositionen)
.CopyInvoice
End With

Exit Sub

ErrHandler:
gErrors.DisplayError csErrSource & ".cstm_CopyRechnung"
End Sub
Beitrag bewerten