Rechnung per E-Mail - Mailtext

[Lavinia3875]

Hey, du bist doch IT-Experte, oder?
solche Aussagen liebe ich ja...!
"Ey, du arbeitest doch bei Siemens!? Also, meine Waschmaschine, die macht immer so komisch Geräusche..."
"Ey, du liest doch gerne Bücher?! Welche Telefonnummer hat doch gleich Hans Meyer aus Berlin?!"
"Ey, du fährst doch Auto!? Wie hoch ist denn das Bußgeld in Griechenland, wenn man bei Rot über eine Ampel fährt?"
Ey, ich kann doch nicht alles wissen!!

*lol* Der zweite gefällt mir am besten.

Das heißt also, wenn das FA meine Umsatzsteuermeldungen prüft, dann muss ich entweder die Rechnung als Papier vorlegen können oder ich muss die eRechnung + Signaturdatei vorweisen können. okay.

Richtig.

Der Vergleich hinkt nicht nur, der lahmt ziemlich stark!
Bin ich dann in der Pflicht, nachzuweisen, dass die Rechnung per Post gekommen ist oder muss das FA mir nachweisen, dass ich sie selbst ausgedruckt habe?

Wenn du denen eine Papierrechnung hinlegst, gehen die davon aus, dass du sie mit der Post bekommen hast. Kriegen die raus, dass dem nicht so ist, ist das Steuerhinterziehung.

Du hast ja aber auch geschrieben, dass es Bestrebungen gibt, das wieder zu vereinfachen, weil es zu aufwändig ist. Von daher wird es wahrscheinlich eher so sein, dass man keine großartigen Repressalien vom FA zu erwarten hat.

Neenee, nur weil es in der EU Politiker gibt, die über was nachdenken, ist das Gesetz nicht geändert. Gesetz ist Gesetz und Finanzämter finden Verstöße gegen das UStG nicht witzig!

Ich will auch gar keine Haarspaltereien betreiben oder mich dümmer stellen, als ich bin, weswegen ich als Fazit mitnehme, dass du mit deinen Ausführungen recht hast, aber es in der Praxis nicht wirklich relevant ist.

Ich würds wegen 50 EUR USt nicht drauf anlegen, ein Verfahren wegen Steuerhinterziehung zu kriegen. Auch nicht für 500 oder 5.000. Da sind mir Papierrechnungen echt lieber.


Ralf

[ewx]

In der neuen c't ist ein ganzer Artikel über eRechnungen...
Es stimmt, es ist tatsächlich verboten, die Rechnung, die man per Email bekommen hat, auszudrucken und zu behaupten, sie wäre per Post gekommen. [Anleitung zur Steuerhinterziehung vom Moderator gelöscht; ralf.wenzel]

[Lavinia3875]

Zunächst mal an alle, die "Zensur" schreien: Dies war der erste inhaltliche Eingriff und nach kurzer Diskussion mit meiner Frau habe ich einen Satz aus dem Posting von ewx entfernt, der eventuell (!) Ärger machen könnte. Selbst wenn sowas "nur" eine Abmahnung bedeutet, die dann in einem Rechtsstreit abgewiesen wird, denke ich, dass wir SOLCHEN Ärger (neben dem Spam) nicht auch noch brauchen. Hoffen wir, dass es auch der letzte inhaltliche Eingriff war, ich habe den gemacht in dem Bewusstsein, dass er Stress mit den Usern gibt (und ich habe derzeit eigentlich genug Baustellen).

Abgesehen davon war der Tipp auch noch inhaltlich falsch. Wenn ich hier darlege, warum, muss ich den Tipp wiederholen, dann hätte ich ihn nicht zu entfernen brauchen Eine ausführliche Begründung habe ich daher ewx per PN zukommen lassen.

Zum Inhaltlichen: Zunächst einmal bin ich erstaunt, dass nach meinem, mit Gesetzestexten untermauerten Posting ausgerechnet eine Zeitschrift als Referenz herhalten muss. Was man machen KANN, ist das Versenden einer informativen, formlosen Rechnungskopie (auch vorab) an den Rechnungsempfänger (das mache ich bei einem Kunden ständig, weil er dann schon die Rechnungsbearbeitung anwerfen kann). Formell gültig ist aber nur die, die man dann mit der Post hinterherschickt.

Von der gesetzlichen Regelung, um die es hier geht, halte ich übrigens ganz und gar nichts und bin froh, wenn die wegfällt. Insofern kann ich User wie ewx sehr gut verstehen. Da wir es hier aber (was unsere Kunden angeht) in aller Regel mit Konzernen zu tun haben: Die nehmen solche Rechnungen nicht an (weil sie wissen dass sie die bei der USt nicht angeben dürfen) und versenden sie auch nicht (weil sie wissen, dass der RE sie nicht angeben darf, sie die Rechnung also eh um die Ohren gehauen kriegen). Und wir als Berater sollten sowas daher auch nicht vorschlagen.

Übrigens: Es gibt Anbieter, bei denen man Rechnungen mit qualifizierter Signatur auch für kleines Geld erzeugen lassen kann.


Ralf

[Lavinia3875]

Update:

"Mit ihrem jetzt beschlossenen Steuervereinfachungsgesetz (PDF-Datei) will die Bundesregierung nicht nur die Werbungskostenpauschale für Arbeitnehmer erhöhen. Gleichzeitig ändert sie aufgrund einer EU-Vorgabe aus dem vorigen Jahr das Umsatzsteuergesetz. Demzufolge entfällt der Zwang, elektronische Rechnungen entweder mit einer qualifizierten Signatur zu versehen oder per EDI zu versenden. Die neue Regelung soll für alle Umsätze gelten, die nach dem 30. Juni 2011 anfallen."

http://www.heise.de/newsticker/meldung/ ... 83747.html

[ewx]

Update:
Lesepflicht für Unternehmer: 15 Fragen zur Reform der elektronischen Rechnungen

[Lavinia3875]

Wichtig dabei: Das Gesetz ist noch nicht durch den Bundesrat, gilt also noch nicht!

[Tron]

Moin.
kleines Update des Druckprogramms:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Subroutinepool INVOICE EMAIL AS PDF ATTACHMENT                      *
3. *&                                                                     *
4. *&---------------------------------------------------------------------*
5. *&                                                                     *
6. *&                                                                     *
7. *&---------------------------------------------------------------------*
8.  
9. * WARNING : NO POPUPS - NO COMMIT WORK ALLOWED !!!!!!!!!!!!!!!!!!!!!!!!!
10.  
11. REPORT  yfaktura_email.
12. DATA: retcode   LIKE sy-subrc.         "Returncode
13. DATA: xscreen(1) TYPE c.               "Output on printer or screen
14. TABLES: nast,                          "Messages
15.         tnapr.                         "Programs & Forms
16.  
17. *&---------------------------------------------------------------------*
18. *&      Form  ENTRY
19. *&---------------------------------------------------------------------*
20. *       text
21. *----------------------------------------------------------------------*
22. *      -->RETURN_CODE  text
23. *      -->US_SCREEN    text
24. *----------------------------------------------------------------------*
25. FORM entry USING return_code TYPE i
26.                  us_screen TYPE c.
27.  
28.   FIELD-SYMBOLS: <f> TYPE itcpp,
29.                  <p> TYPE  ssfcrescl.
30.  
31.   DATA pgnam TYPE na_pgnam." Programname
32.   DATA ronam TYPE na_ronam."Formname
33.   DATA fm_name TYPE rs38l_fnam. "genr.Druckbaustein
34.   DATA lv_vec(80).
35.   DATA spoolid TYPE rspoid.
36.  
37.   CLEAR retcode.
38.   xscreen = us_screen.
39.  
40. *   Call the "Original" Printroutine
41.  
42. * RVADIN01 = Sapscript
43. * RLB_INVOICE = Smartforms
44.  
45. *-Orig program------+
46. *                   |
47. *-Orig Form-+       |
48. *           |       |
49.   PERFORM entry(rlb_invoice) USING return_code us_screen.
50.  
51. * Try Sapscript
52.   ASSIGN ('(SAPLSTXC)ITCPP') TO <f>.
53.   IF sy-subrc = 0 AND
54.      NOT <f>-tdspoolid IS INITIAL AND
55.      us_screen IS INITIAL.
56.  
57.     PERFORM processing USING <f>-tdspoolid.
58.     UNASSIGN <f>.
59.  
60.   ELSE.
61. * Try Smartforms
62.     CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
63.       EXPORTING
64.         formname           = tnapr-sform
65.       IMPORTING
66.         fm_name            = fm_name
67.       EXCEPTIONS
68.         no_form            = 1
69.         no_function_module = 2
70.         OTHERS             = 3.
71.  
72.     IF sy-subrc <> 0.
73.       retcode = 1.
74.       EXIT.
75.     ENDIF.
76.  
77.     SELECT SINGLE pname FROM tfdir INTO lv_vec
78.     WHERE funcname = fm_name.
79.     IF sy-subrc = 0.
80.  
81.       CONCATENATE '(' lv_vec ')JOB_OUTPUT_INFO' INTO lv_vec.
82.       ASSIGN (lv_vec) TO <p>.
83.  
84.       IF sy-subrc = 0 AND
85.       NOT <p>-spoolids[] IS INITIAL AND
86.       us_screen IS INITIAL.
87.  
88.         LOOP AT <p>-spoolids INTO spoolid.
89.           PERFORM processing USING spoolid.
90.           EXIT.
91.         ENDLOOP.
92.         UNASSIGN <p>.
93.  
94.       ENDIF. " have Ids
95.  
96.     ENDIF." tfdir entry
97.  
98.   ENDIF." sapscript/smartforms
99.  
100.  
101.   IF retcode NE 0.
102.     return_code = 1.
103.   ELSE.
104.     return_code = 0.
105.   ENDIF.
106.  
107. ENDFORM.                    "ENTRY
108.  
109. *&---------------------------------------------------------------------*
110. *&      Form  processing
111. *&---------------------------------------------------------------------*
112. *       text
113. *----------------------------------------------------------------------*
114. *      -->SPOOLID    text
115. *----------------------------------------------------------------------*
116. FORM processing USING spoolid TYPE itcpp-tdspoolid.
117.  
118.   DATA numbytes TYPE i.
119.   DATA lbuffer TYPE xstring.
120.  
121.   DATA: BEGIN OF lt_pdf OCCURS 0,
122.         t(134),
123.         END OF lt_pdf.
124.  
125. * for Invoice Header Text
126.   DATA:
127.   lv_id TYPE thead-tdid VALUE 'YEML',
128.   lv_language TYPE thead-tdspras,
129.   lv_name TYPE thead-tdname,
130.   lv_object TYPE thead-tdobject VALUE 'VBBK',
131.   lt_lines TYPE TABLE OF tline,
132.   ls_line TYPE tline.
133.  
134. * For partner Email
135.   CONSTANTS:
136.   lv_item_number TYPE vbup-posnr VALUE '000000',
137.   lv_partner_role TYPE vbpa-parvw VALUE 'RE'.
138.  
139.   DATA:
140.   lv_document_number TYPE vbuk-vbeln,
141.   ls_vbpa TYPE vbpa.
142.  
143. * For Email contents
144.   DATA contents_hex TYPE solix_tab.
145.   DATA lv_internetadr TYPE adr6-smtp_addr.
146.   DATA lv_subject TYPE so_obj_des.
147.   DATA lv_attname TYPE sood-objdes.
148.  
149.   DATA  send_request       TYPE REF TO cl_bcs.
150.   DATA  text               TYPE bcsy_text.
151.   DATA  document           TYPE REF TO cl_document_bcs.
152.   DATA  recipient          TYPE REF TO if_recipient_bcs.
153.   DATA  bcs_exception      TYPE REF TO cx_bcs.
154.   DATA  sent_to_all        TYPE os_boolean.
155.  
156.  
157.   CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
158.       EXPORTING
159.         src_spoolid                    = spoolid
160.         no_dialog                      = ' '
161. *        DST_DEVICE                     =
162. *       PDF_DESTINATION                =
163.       IMPORTING
164.         pdf_bytecount                  = numbytes
165. *       pdf_spoolid                    = pdfspoolid
166. *       OTF_PAGECOUNT                  =
167. *       btc_jobname                    = jobname
168. *       btc_jobcount                   = jobcount
169.       TABLES
170.         pdf                            = lt_pdf
171.       EXCEPTIONS
172.         err_no_otf_spooljob            = 1
173.         err_no_spooljob                = 2
174.         err_no_permission              = 3
175.         err_conv_not_possible          = 4
176.         err_bad_dstdevice              = 5
177.         user_cancelled                 = 6
178.         err_spoolerror                 = 7
179.         err_temseerror                 = 8
180.         err_btcjob_open_failed         = 9
181.         err_btcjob_submit_failed       = 10
182.         err_btcjob_close_failed        = 11.
183.  
184.   IF sy-subrc = 0.
185.  
186.     CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
187.       EXPORTING
188.         input_length = numbytes
189.       IMPORTING
190.         buffer       = lbuffer
191.       TABLES
192.         binary_tab   = lt_pdf
193.       EXCEPTIONS
194.         failed       = 1
195.         OTHERS       = 2.
196.  
197.     IF sy-subrc <> 0.
198.     ENDIF.
199.  
200.  
201.     CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
202.       EXPORTING
203.         buffer     = lbuffer
204.       TABLES
205.         binary_tab = contents_hex[].
206.   ENDIF.
207.  
208.   TRY.
209. *     create the send request
210.       send_request = cl_bcs=>create_persistent( ).
211.  
212. *     create the email body
213.  
214.       lv_language = nast-spras.
215.       lv_name = nast-objky.
216.  
217.       CALL FUNCTION 'READ_TEXT'
218.         EXPORTING
219.           id                      = lv_id
220.           language                = lv_language
221.           name                    = lv_name
222.           object                  = lv_object
223.         TABLES
224.           lines                   = lt_lines
225.         EXCEPTIONS
226.           id                      = 1
227.           language                = 2
228.           name                    = 3
229.           not_found               = 4
230.           object                  = 5
231.           reference_check         = 6
232.           wrong_access_to_archive = 7
233.           OTHERS                  = 8.
234.  
235.       IF sy-subrc <> 0.
236.       ENDIF.
237.  
238.       LOOP AT lt_lines INTO ls_line.
239.         APPEND ls_line-tdline TO text.
240.       ENDLOOP.
241.  
242.       lv_document_number = nast-objky.
243.  
244. * Get Partner RE Email
245.       CALL FUNCTION 'SD_VBPA_SELECT'
246.         EXPORTING
247.           i_document_number = lv_document_number
248.           i_item_number     = lv_item_number
249.           i_partner_role    = lv_partner_role
250.         IMPORTING
251.           e_vbpa            = ls_vbpa
252.         EXCEPTIONS
253.           partner_not_found = 1
254.           OTHERS            = 2.
255.  
256.       IF sy-subrc <> 0.
257.       ENDIF.
258.  
259.       CLEAR lv_internetadr.
260.       SELECT SINGLE smtp_addr FROM adr6 INTO lv_internetadr WHERE
261.       addrnumber = ls_vbpa-adrnr AND flgdefault = 'X'.
262.  
263. * Email subject
264.       CONCATENATE 'Invoice:' nast-objky INTO lv_subject .
265.       document = cl_document_bcs=>create_document(
266.                                 i_type    = 'RAW'
267.                                 i_text    = text
268.                                 i_subject = lv_subject ).
269.  
270. *     add list attachment to document
271.       CONCATENATE nast-objky '.pdf' INTO lv_attname.
272.       document->add_attachment( i_attachment_type    = 'PDF'
273.                                 i_attachment_subject = lv_attname
274.                                 i_att_content_hex    = contents_hex ).
275.  
276. *=============== Prep Send
277.  
278. *     add document to send request
279.       send_request->set_document( document ).
280.  
281. *     create recipient and add to send request
282.  
283.       IF lv_internetadr IS INITIAL.
284.         recipient = cl_sapuser_bcs=>create( sy-uname ).
285.       ELSE.
286.         recipient = cl_cam_address_bcs=>create_internet_address( lv_internetadr ).
287.       ENDIF.
288.  
289.       send_request->add_recipient( i_recipient = recipient ).
290.  
291.  
292. *     send
293.       send_request->set_send_immediately( i_send_immediately = 'X' ).
294.       sent_to_all = send_request->send( i_with_error_screen = 'X' ).
295.       IF sent_to_all = 'X'.
296.         MESSAGE s022(so).
297.       ENDIF.
298.  
299.     CATCH cx_bcs INTO bcs_exception.
300.       MESSAGE e865(so) WITH bcs_exception->error_type.
301.   ENDTRY.
302.  
303.  
304. ENDFORM.                    "processing

GeSHi ©

[Tron]

Moin allerseits.
Da sich einige Bausteine zu Thema geändert haben,
hier noch mal eine Variante mit SO_NEW_DOCUMENT_ATT_SEND_API1

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Subroutinepool YFAKTURA_EMAIL by TRON                               *
3. *&                                                                     *
4. *&---------------------------------------------------------------------*
5. *&                                                                     *
6. *&                                                                     *
7. *&---------------------------------------------------------------------*
8.  
9. * WARNING : NO POPUPS - NO COMMIT WORK IN HERE !!!!!!!!!!!!!!!!!!!!!!!!!
10.  
11. REPORT  yfaktura_email.
12. DATA: retcode   LIKE sy-subrc.         "Returncode
13. DATA: xscreen(1) TYPE c.               "Output on printer or screen
14. TABLES: nast,                          "Messages
15.         tnapr.                         "Programs & Forms
16.  
17. *&---------------------------------------------------------------------*
18. *&      Form  ENTRY
19. *&---------------------------------------------------------------------*
20. *       text
21. *----------------------------------------------------------------------*
22. *      -->RETURN_CODE  text
23. *      -->US_SCREEN    text
24. *----------------------------------------------------------------------*
25. FORM entry USING return_code TYPE i
26.                  us_screen TYPE c.
27.  
28.   FIELD-SYMBOLS: <f> TYPE itcpp,
29.                  <p> TYPE  ssfcrescl.
30.  
31.   DATA pgnam TYPE na_pgnam." Programname
32.   DATA ronam TYPE na_ronam."Formname
33.   DATA fm_name TYPE rs38l_fnam. "genr.Druckbaustein
34.   DATA lv_vec(80).
35.   DATA spoolid TYPE rspoid.
36.  
37.   CLEAR retcode.
38.   xscreen = us_screen.
39.  
40. *   Call the "Original" Printroutine
41.  
42. * RVADIN01 = Sapscript
43. * RLB_INVOICE = Smartforms
44.  
45. *-Orig program------+
46. *                   |
47. *-Orig Form-+       |
48. *           |       |
49.   PERFORM entry(RLB_INVOICE) USING return_code us_screen.
50.  
51. * Try Sapscript
52.   ASSIGN ('(SAPLSTXC)ITCPP') TO <f>.
53.   IF sy-subrc = 0 AND
54.      NOT <f>-tdspoolid IS INITIAL AND
55.      us_screen IS INITIAL.
56.  
57.     PERFORM processing USING <f>-tdspoolid.
58.     UNASSIGN <f>.
59.  
60.   ELSE.
61. * Try Smartforms
62.     CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
63.       EXPORTING
64.         formname           = tnapr-sform
65.       IMPORTING
66.         fm_name            = fm_name
67.       EXCEPTIONS
68.         no_form            = 1
69.         no_function_module = 2
70.         OTHERS             = 3.
71.  
72.     IF sy-subrc <> 0.
73.       retcode = 1.
74.       EXIT.
75.     ENDIF.
76.  
77.     SELECT SINGLE pname FROM tfdir INTO lv_vec
78.     WHERE funcname = fm_name.
79.     IF sy-subrc = 0.
80.  
81.       CONCATENATE '(' lv_vec ')JOB_OUTPUT_INFO' INTO lv_vec.
82.       ASSIGN (lv_vec) TO <p>.
83.  
84.       IF sy-subrc = 0 AND
85.       NOT <p>-spoolids[] IS INITIAL AND
86.       us_screen IS INITIAL.
87.  
88.         LOOP AT <p>-spoolids INTO spoolid.
89.           PERFORM processing USING spoolid.
90.           EXIT.
91.         ENDLOOP.
92.         UNASSIGN <p>.
93.  
94.       ENDIF. " have Ids
95.  
96.     ENDIF." tfdir entry
97.  
98.   ENDIF." sapscript/smartforms
99.  
100.  
101.   IF retcode NE 0.
102.     return_code = 1.
103.   ELSE.
104.     return_code = 0.
105.   ENDIF.
106.  
107. ENDFORM.                    "ENTRY
108.  
109. *&---------------------------------------------------------------------*
110. *&      Form  PROCESSING
111. *&---------------------------------------------------------------------*
112. *       text
113. *----------------------------------------------------------------------*
114. FORM processing USING spoolid TYPE itcpp-tdspoolid.
115.   DATA: numbytes TYPE i,
116.         pdfspoolid LIKE tsp01-rqident,
117.         pdf_content TYPE table of solix,
118.         BIN_FILE type xstring.
119.  
120.  
121.   DATA:   document_data LIKE sodocchgi1,
122.           object_txt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
123.           object_pack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
124.           receiver_list LIKE somlreci1 OCCURS 1 WITH HEADER LINE,
125.           tab_lines TYPE i.
126.  
127. * for Invoice Header Text
128.   data:
129.   lv_ID type THEAD-TDID value 'YEML',
130.   lv_LANGUAGE type THEAD-TDSPRAS,
131.   lv_NAME type THEAD-TDNAME,
132.   lv_OBJECT type THEAD-TDOBJECT value 'VBBK',
133.   lt_lines type table of tline,
134.   ls_line type tline.
135.  
136. * For partner Email
137.   constants:
138.   lv_ITEM_NUMBER type VBUP-POSNR value '000000',
139.   lv_PARTNER_ROLE type VBPA-PARVW value 'RE'.
140.  
141.   data:
142.   lv_DOCUMENT_NUMBER type VBUK-VBELN,
143.   ls_vbpa type vbpa.
144.  
145. ****  Main - Email  ****
146.  
147. * Title and Description
148.   document_data-obj_name  = 'INVOICE'.
149.   document_data-obj_descr = nast-objky.
150.  
151. * Text of Email
152.   CONCATENATE 'Rechnung' nast-objky INTO object_txt
153.   SEPARATED BY space.
154.   APPEND object_txt.
155.  
156.  
157.   lv_language = nast-spras.
158.   lv_NAME = nast-objky.
159.  
160.   CALL FUNCTION 'READ_TEXT'
161.     EXPORTING
162.       ID                      = lv_ID
163.       LANGUAGE                = lv_LANGUAGE
164.       NAME                    = lv_NAME
165.       OBJECT                  = lv_OBJECT
166.     TABLES
167.       LINES                   = lt_lines
168.     EXCEPTIONS
169.       ID                      = 1
170.       LANGUAGE                = 2
171.       NAME                    = 3
172.       NOT_FOUND               = 4
173.       OBJECT                  = 5
174.       REFERENCE_CHECK         = 6
175.       WRONG_ACCESS_TO_ARCHIVE = 7
176.       OTHERS                  = 8.
177.  
178.   IF SY-SUBRC <> 0.
179.   ENDIF.
180.  
181.   loop at lt_lines into ls_line.
182.     append ls_line-TDLINE to object_txt.
183.   endloop.
184.  
185. * Packing List(Main-Part)
186.  
187. * Calculate the contens length
188.   DESCRIBE TABLE object_txt LINES tab_lines.
189.   READ TABLE object_txt INDEX tab_lines.
190.   document_data-doc_size = ( tab_lines - 1 ) * 255 +
191.   STRLEN( object_txt ).
192.  
193. * generate the Packing List
194.   CLEAR object_pack-transf_bin.
195.   object_pack-head_start = 1.
196.   object_pack-head_num   = 0.
197.   object_pack-body_start = 1.
198.   object_pack-body_num   = tab_lines.
199.   object_pack-doc_type   = 'RAW'.
200.   APPEND object_pack.
201.        
202. CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
203.   EXPORTING
204.     SRC_SPOOLID                    = spoolid
205.     NO_DIALOG                      = 'X'
206. *   DST_DEVICE                     =
207.     PDF_DESTINATION                = 'X'
208.     NO_BACKGROUND                  = 'X'
209. *   USE_CASCADING                  = ' '
210.   IMPORTING
211.     PDF_BYTECOUNT                  = numbytes
212. *   PDF_SPOOLID                    =
213. *   OTF_PAGECOUNT                  =
214. *   BTC_JOBNAME                    =
215. *   BTC_JOBCOUNT                   =
216.     BIN_FILE                       = BIN_FILE
217. * TABLES
218. *   PDF                            =
219. EXCEPTIONS
220.    ERR_NO_OTF_SPOOLJOB            = 1
221.    ERR_NO_SPOOLJOB                = 2
222.    ERR_NO_PERMISSION              = 3
223.    ERR_CONV_NOT_POSSIBLE          = 4
224.    ERR_BAD_DSTDEVICE              = 5
225.    USER_CANCELLED                 = 6
226.    ERR_SPOOLERROR                 = 7
227.    ERR_TEMSEERROR                 = 8
228.    ERR_BTCJOB_OPEN_FAILED         = 9
229.    ERR_BTCJOB_SUBMIT_FAILED       = 10
230.    ERR_BTCJOB_CLOSE_FAILED        = 11
231.    OTHERS                         = 12.
232.  
233. .
234.  
235. *     -------- convert document -------------------------------
236. pdf_content = cl_document_bcs=>xstring_to_solix( BIN_FILE ).
237.  
238.  
239. * Generate the Attachment
240. *  Packing List(Att)
241.   DESCRIBE TABLE pdf_content LINES tab_lines.
242.  
243.   object_pack-doc_size = numbytes.
244.   object_pack-transf_bin = 'X'.
245.   object_pack-head_start = 1.
246.   object_pack-head_num   = 0.
247.   object_pack-body_start = 1.
248.   object_pack-body_num   = tab_lines.
249.   object_pack-doc_type   = 'PDF'.
250.   object_pack-obj_name   = 'SPOOL'.
251.   object_pack-obj_descr  = nast-objky.
252.   APPEND object_pack.
253.  
254.  
255. * generate the receiver list
256.  
257.   lv_DOCUMENT_NUMBER = nast-objky.
258.  
259. * Get Partner RE Email
260.   CALL FUNCTION 'SD_VBPA_SELECT'
261.     EXPORTING
262.       I_DOCUMENT_NUMBER = lv_DOCUMENT_NUMBER
263.       I_ITEM_NUMBER     = lv_ITEM_NUMBER
264.       I_PARTNER_ROLE    = lv_PARTNER_ROLE
265.     IMPORTING
266.       E_VBPA            = ls_vbpa
267.     EXCEPTIONS
268.       PARTNER_NOT_FOUND = 1
269.       OTHERS            = 2.
270.  
271.   IF SY-SUBRC <> 0.
272.   ENDIF.
273.  
274. * Internet User
275.   clear receiver_list.
276.  
277.   select single SMTP_ADDR from adr6 into receiver_list-receiver where
278.   ADDRNUMBER = ls_vbpa-adrnr and FLGDEFAULT = 'X'.
279.  
280.   if sy-subrc = 0 and not receiver_list-receiver is initial.
281.     receiver_list-rec_type = 'U'.
282.     receiver_list-com_type ='INT'.
283.     APPEND receiver_list.
284.   else.
285.     receiver_list-receiver = 'SAPUSER@LOCALHOST'.
286.     receiver_list-rec_type = 'U'.
287.     receiver_list-com_type ='INT'.
288.     APPEND receiver_list.
289.   endif.
290.  
291.  
292. * Send the mail
293.      
294. CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
295.   EXPORTING
296.     DOCUMENT_DATA                    = DOCUMENT_DATA
297. *   PUT_IN_OUTBOX                    = ' '
298.     COMMIT_WORK                      = ' '
299. * IMPORTING
300. *   SENT_TO_ALL                      =
301. *   NEW_OBJECT_ID                    =
302.   TABLES
303.     PACKING_LIST                     = object_pack
304. *   OBJECT_HEADER                    =
305. *   CONTENTS_BIN                     =
306.     CONTENTS_TXT                     = object_txt
307.     CONTENTS_HEX                     = pdf_content
308. *   OBJECT_PARA                      =
309. *   OBJECT_PARB                      =
310.     RECEIVERS                        = receiver_list
311. EXCEPTIONS
312.    TOO_MANY_RECEIVERS               = 1
313.    DOCUMENT_NOT_SENT                = 2
314.    DOCUMENT_TYPE_NOT_EXIST          = 3
315.    OPERATION_NO_AUTHORIZATION       = 4
316.    PARAMETER_ERROR                  = 5
317.    X_ERROR                          = 6
318.    ENQUEUE_ERROR                    = 7
319.    OTHERS                           = 8.
320.  
321.  
322.   IF sy-subrc <> 0.
323.     retcode = 1.
324.   ENDIF.
325.  
326. ENDFORM.                    "PROCESSING
327.  

GeSHi ©

lg Jens