Bestehende Rechnung kopieren - orgAnice Knowledge Base

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

[vb]
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(&quot;Rechnungen&quot;)
If tblRechnung.EOF Then Exit Sub

If MsgBox(&quot;Möchten Sie die aktuelle Rechnung mit allen Positionen kopieren?&quot;, _
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 &amp;amp; &quot;.cstm_CopyRechnung&quot;
End Sub
[/vb]

[vb]

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 &amp; ".cstm_CopyRechnung"

End Sub

[/vb]

Was this helpful?

1 / 0