Rechnungsnummern & pdfs mergen

Hallo allerseits,
erst einmal möchte ich Euch allen ein frohes Weihnachtsfest und erholsame Tage wünschen.
Ich arbeite derzeit an einer Massengenerierung von manuellen Rechnungsdokumenten anhand einer tabellarischen Aufstellung, welche monatlich genutzt wird.
Dieses Tool soll fortlaufende Rechnungsnummern (Buchungskreis&Jahr&fortlaufende Nummer) generieren, die Fakturen befüllen, speichern und per Mail versenden, sowie das dazugehöriges Buchungsdokument erstellen, nach SAP buchen und Buchungsbeleg abspeichern. Das Meiste hiervon funktioniert auch soweit gut.
Bei dem Rechnungsnummern-Zähler konnte mir bereits "Steffen" weiterhelfen, jedoch habe ich noch nicht herausgefunden wie der Zähler nach Abspeicherung der Rechnungsdokumente weiterzählt und auch die Nummer nur vergibt, wenn der Beleg gespeichert wurde. Daher habe ich es mit der folgenden Bedingung versucht/ erweitert, welche aber nicht so funktioniert, wie ich mir das vorstelle.
If shMenu.cmdSaveInvoices.Object.Enabled = True Then
dicInvNos(intCC) = intInvNo + 1
End If
Das Ganze befindet sich im Modul "basInvNo", sowie im Workbook _Event.
Ferner würde ich gerne zu der generierten Rechnung/ Weiterbelastung (pdf) einen eventuellen kreditorischen Ursprungsbeleg (per Pfad und ebenfalls als pdf) hinzufügen, bevor dieser gemailt wird. Die Pfade werden hierzu in der Tabelle eingetragen und sollen entsprechend per VBA ausgelesen werden.
Dazu bin ich hier im Forum bereits fündig geworden und habe diesen Code versucht auf meinen Sachverhalt anzupassen, bisher aber ohne Erfolg. Modul: basInvAtt
https://www.herber.de/bbs/user/156932.xlsm
Für Eure Hilfe bin ich Euch sehr dankbar
Gruß Daniel
P.S. Sollte Jemand noch einen Tipp/ Code haben, wie ich die gespeicherten Belege (Rechnug und Buchungsbeleg) im Nachgang per Masse (sprich VBA) den SAP "Diensten zum Objekt" je gebuchten Beleg zuordnen/ anhängen kann, wäre das grandios!
Vielen Dank im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralf,
vielen Dank für Deinen Hinweis bezüglich des fehlenden Dateiformats. Ist mir irgendwie nicht aufgefallen. Habe nun die entsprechenden Endungen hinzugefügt, sowie den Code angepasst:


  With shAufstellung
For i = 1 To lo.DataBodyRange.Rows.Count
intCC = lo.DataBodyRange(i, intColBUKRS)
strOrdner = ThisWorkbook.Path & "\" & Format(Date, "YYYY") & "\" & intCC
If fso.FileExists(lo.DataBodyRange.Cells(i, CInt(strColInvForAtt)).Value) And _
fso.FileExists(lo.DataBodyRange.Cells(i, CInt(strColInvAtt)).Value) Then
strMulti = " " & Chr(34) & lo.DataBodyRange.Cells(i, CInt(strColInvForAtt)).Value & Chr(34) & _
" " & Chr(34) & lo.DataBodyRange.Cells(i, CInt(strColInvAtt)).Value & Chr(34)
strOrdner = fso.getfolder(strOrdner).ShortPath
strGS = fso.GetFile(strGS).ShortPath
strCommand = strGS & " -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile="
strCommand = strCommand & strOrdner & "\"
'Name der Ausgabedatei = Name der Datei in der Spalte AD
strCommand = strCommand & fso.GetFile(lo.DataBodyRange(i, CInt(strColInvForAtt)).Value).Name & Chr(34) & strMulti
Debug.Print strCommand
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run strCommand, 0, True
Set WshShell = Nothing
End If
Next i
End With

Dennoch wird die Bedingung gar nicht berücksichtigt und springt nur zwischen If und End If hin und her. Die Dateien sind auch im benannten Ordner abgelegt, aber scheinbar nicht gefunden.
Die Prozedur Sub InvNoS() wird bisher noch nicht mittels Button ausgeführt, da mir noch die Idee fehlt wie im nächsten Monat/ bzw. bei Speicherung durch den Button "Save Invoices" eine neue fortlaufende Nummer generiert wird, sprich die generierte Nummer nur vergeben wird, wenn der Beleg auch gespeichert wurde. Dadurch ist diese bisher nur im Modul "basInvoiceNo" ausführbar. Dabei werden die Nummern in der tabellarischen Aufstellung geschrieben und das Modul "basInvoiceDoc" holt sich die Nummern in den entsprechenden Beleg.
Zukünftig soll das ein Schritt sein, sprich es wird mit der Nummergenerierung gestartet und ruft die nächste Prozedur "Sub CreateInvoiceDocument_MAIN()" auf.
Für weitere Ratschläge/ Ideen/ Codeanpassungen wäre ich Dir sehr dankbar.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread