METHOD send_xml.
DATA: ltd_order TYPE zttpp_order,
ltd_orderline TYPE zttpp_orderline.
DATA: lwa_order TYPE zwpp_order,
lwa_orderline TYPE zwpp_orderline,
lwa_orderdetail TYPE zwpp_orderdetail,
lwa_corte_vidrio_pe TYPE zst_corte_vidrio_pe.
DATA: lv_xml_out TYPE string,
lv_fecha TYPE string.
LOOP AT it_output ASSIGNING FIELD-SYMBOL(<fs_output>).
CLEAR: lwa_order, lwa_orderline, lwa_orderdetail, lwa_corte_vidrio_pe,
lv_fecha.
REFRESH: ltd_order.
lwa_order-documenttype = 'Ordine Cliente Produzione'. "Hardcode
lwa_order-documentnumber = <fs_output>-aufnr.
lwa_order-customername = ''.
CONCATENATE <fs_output>-erdat+0(4) <fs_output>-erdat+4(2) <fs_output>-
erdat+6(2) INTO lv_fecha SEPARATED BY '-'.
lwa_order-orderdate = lv_fecha. "<fs_output>-erdat
lwa_order-deliverydate = lv_fecha. "<fs_output>-erdat
lwa_order-deliveryname = ''.
lwa_order-customerorder = ''.
lwa_order-confirmed = 'Y'. "Hardcode
lwa_orderline-linenumber = '1'. "Hardcode
lwa_orderline-quantity = ''.
lwa_orderline-productcode = 'VS'. "Hardcode
lwa_orderline-shape = <fs_output>-doknr && |.dxf|.
lwa_orderline-xdimension = <fs_output>-laeng.
lwa_orderline-ydimension = <fs_output>-breit.
lwa_orderline-mu = '0'. "Hardcode
lwa_orderline-notes = <fs_output>-kdauf && |,| && <fs_output>-z_piece_type
&& |,| && <fs_output>-arbpl && |,| && <fs_output>-z_vehiculo.
lwa_orderdetail-note2 = <fs_output>-ktsch && |-SI|.
lwa_orderdetail-note3 = ''.
lwa_orderdetail-note4 = <fs_output>-doknr.
lwa_orderdetail-note5 = <fs_output>-aufnr.
lwa_orderdetail-note6 = ''.
lwa_orderdetail-note7 = <fs_output>-z_geometry_type.
lwa_orderdetail-note8 = <fs_output>-usr00.
lwa_orderdetail-detailposition = ''.
lwa_orderdetail-code = <fs_output>-ferth.
lwa_orderdetail-rotation = <fs_output>-pintura.
lwa_orderdetail-selx1 = 'Y'. "Hardcode
lwa_orderdetail-sely1 = 'Y'. "Hardcode
lwa_orderdetail-selx2 = 'Y'. "Hardcode
lwa_orderdetail-sely2 = 'Y'. "Hardcode
APPEND lwa_orderdetail TO lwa_orderline-orderdetail.
APPEND lwa_orderline TO lwa_order-orderline.
APPEND lwa_order TO ltd_order.
CALL TRANSFORMATION ztr_order_xml
SOURCE order = ltd_order[]
RESULT XML lv_xml_out.
lwa_corte_vidrio_pe-line1 = lv_xml_out.
lwa_corte_vidrio_pe-line1_aux1 = <fs_output>-doknr.
APPEND lwa_corte_vidrio_pe TO et_xml_corte_vidrio_pe.
ENDLOOP.
ENDMETHOD.