Last column in HTMLB table gets truncated

Hi,
   The last column in a HTMLB table gets truncated,i.e, only part of the column is visible. The table's border (along the column) is also not visible.
      I've tried by reducing the number of columns, but the last column always gets truncated.
     This iView has the same properties as other iViews with HTMLB tables, but those iViews display correctly all the HTMLB tables, even when they have much more number of columns.
     I'm new to this and don't have much idea.Does anyone has suggesstions regarding this?

Hi Sagar,
First, welcome on the SDN forum!
About your question: Strip down your code to the absolute minimum required to reproduce your problem. This way maybe you can analyse the problem by yourself. If not, you can still submit this example here (this is also a reason why to strip down the code to a minimum, cause otherwise nobody will read the code if it's longer the necessary).
Hope it helps
Detlev

Similar Messages

Know the Last column of the table

Hello
i use vb.net with excel
I have a table
with a spreadsheet, I want to know the Last
column of the table
please help me ??

i have a table in Excel file and i want to add the last column of this table in datagridview
i want to set ShtRange to give me the last column
i use this but don't give me a result
With Form1.xlWorkSheet
Dim ShtRange As Range
Dim dt As New System.Data.DataTable
ShtRange = Form1.xlWorkSheet.Cells(1, Form1.xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft)
For Cnum As Integer = 1 To ShtRange.Columns.Count
dt.Columns.Add(New DataColumn(TryCast(ShtRange.Cells(1, Cnum), Excel.Range).Value.ToString()))
Next
dt.AcceptChanges()
Dim columnNames As String() = New String(dt.Columns.Count - 1) {}
For i As Integer = 0 To dt.Columns.Count - 1
columnNames(0) = dt.Columns(i).ColumnName
Next
For Rnum As Integer = 2 To ShtRange.Rows.Count
Dim dr As DataRow = dt.NewRow()
For Cnum As Integer = 1 To ShtRange.Columns.Count
If TryCast(ShtRange.Cells(Rnum, Cnum), Excel.Range).Value2 IsNot Nothing Then
dr(Cnum - 1) = TryCast(ShtRange.Cells(Rnum, Cnum), Excel.Range).Value2.ToString()
End If
Next
dt.Rows.Add(dr)
dt.AcceptChanges()
Next
Me.DataGridView1.DataSource = dt
End With
this is my table :

Total Last Cell from last row, last column into another table

What I'm trying to do is create a sum in a final table that will add together all the last cell Sums in the last column, last row from all Ten tables.
Example of where I want to get the information from:
I know I could use something like this *=SUM(Table 1 :: K45,Table 2 :: D9)* but in the future I want to be able to add extra rows in the Ten tables and therefore have the final table calculate the last cell without having to manualy change the cell numbers in the Sum.
Message was edited by: Pongify

Pongify wrote:
Your "Bingo" solution worked a treat, now with Ten tables do I have to put the code in the last table cell Ten times changing the table number on each?
Yes you have, the last table is perfectly unable to guess from which table it must grab datas.
CAUTION There is an oddity which I call a bug.
If you rename one of the table from which you grab datas, the two first occurences (in bold) in the formula will be adjusted accordingly but the 3rd one will not (the underlined one).
=INDIRECT(ADDRESS(ROWS( *Tableau 1* :: A),COLUMNS( *Tableau 1* :: 1:1),,,"_Tableau 1_"))
My guess is that the designers forgot that this "string" has exactly the same status as the first two occurences. Of course it's reported to Apple but at this time, we have to live with it.
Here is a slightly modifier formula:
=INDIRECT(ADDRESS(ROWS(Tableau 1 :: A),COLUMNS(Tableau 1 :: $1:$1),,,"Tableau "&ROW()))
I replaced 1:1 (in the COLUMNS operand) which was modified during the fill down process by $1:$1 which remains unchanged.
As I am lazy, I modified the last reference to the tables so it is automatically adjusted during the fill down process (my tables are named Tableau 1 thru Tableau 10).
Yvan KOENIG (from FRANCE dimanche 6 juillet 2008 16:27:30)

Source tables getting truncated

While using OWB 10gR2, sometimes after executing mappings, I discover that the source tables just got truncated, which is not something I planned to do. I do want the target tables to be truncated before they get populated. So while creating the mappings, in the Table Operator Properties, I set the loading type to 'none' for all the source tables and 'truncate/insert' for all the target tables. Is this correct, or is it something else likely causing the problem?
Thanks a lot

You need not change the table load properties for the source tables. Leave it as it is (it is by default Insert, I think). Change the target table load properties to Truncate/Insert. This should be okay. I think the source tables were set to Truncate unknowingly which caused the problem.
Sometimes, OWB does not deploy the current version of the package and we see the old version of the code in the database. I faced this problem quite often, The best way out is to drop the package from the back end and re-create thepackage from OWB.
Regards
-AP

How can I take data from specific column in a table using VBA

Hi
I do not know how to take the values from the last column in a table, I know how to look over each row but I cannot take the last column values for each row I pass by.
This is the table for example:
| Date | Account1 | Account2 | Description | Amount |
|12/03/2008 | 123-32 | 325-78 | None | $50 |
|12/03/2008 | 123-32 | 325-78 | None | $20 |
|12/03/2008 | 123-32 | 325-78 | None | $10 |
|12/03/2008 | 123-32 | 325-78 | None | $40 |
I am using this code as a reference that User FiveNines gave me to loop through all the rows in the table, so What I need is to take the values of the column Amount for each row I go through.
Private Sub RSWVBAPage_afterPlay()
Dim tbl As HTMLTable
Dim tblRow As HTMLTableRow
Dim tblCell As HTMLTableCell
Dim strValue As String
Dim rButton As HTMLInputElement
' ******** This would be your global variable. I put this so that values are seperated by a semicolin you can use what ever format works for you.
strValue = "03/22/2008;03/22/2008;*************1977;*************1977;$25.25;Jan, Jun, Jul, Dec"
' Strip out the ; for inner text comparison
strValue = Replace(strValue, ";", "")
' This will get the table but can be modifoed to be more specific
Set tbl = RSWApp.om.FindElement(, "TABLE")
' This loops through all the rows in the table until a match to the strValue is found
For Each tblRow In tbl.rows
If tblRow.innerText = strValue Then
RSWApp.WriteToLog "Tables", "Passed", "Row is Present", True
End If
Next
End Sub

Hi Lippix.
This is code that will loop the rows then loop the cells and check for "$" which will return dollar values. I also attached a script.
Private Sub RSWVBAPage_afterPlay()
Dim tbl As HTMLTable
Dim tblRow As HTMLTableRow
Dim tblCell As HTMLTableCell
Dim strValue As String
' This will get the table but can be modifoed to be more specific
Set tbl = RSWApp.om.FindElement(, "TABLE")
' This loops through all the rows in the table until a match to the strValue is found
For Each tblRow In tbl.rows
  For Each tblCell In tblRow.cells
' cycle through the cells and only report those with a dollar value by searching for $
    If InStr(1, tblCell.innerText, "$") <> 0 Then
   RSWApp.WriteToLog tblCell.innerText
   End If
Next
Next
End Sub

Adding a new Big INT column to existing table in production, which holds 700 million records will impact anything in production?

Hi Guys,
I have to add a new Big INT column to existing table in production, which holds 700 million records and would like to know the impact?
I have been tolled by one of my colleagues that last time they tried adding a column to same table during working hour and it locked out the table and impacted the users.
Please suggest/share If any one had similar experience.
Thanks Shiven:) If Answer is Helpful, Please Vote

If you add a new column to a table using an ALTER TABLE ADD command and specify that the new column allows NULLs and you do not define a default value, then it will take a table lock. However, once it gets the table lock, it will essentially run instantly
and then free the table lock. That will add this new column as the last column in the table, for example
ALTER MyTable ADD MyNewColumn bigint NULL;
But if you your change adds a new column with a default value, or you do something like using table designer to add the new column in the middle of the current list of columns, then SQL will have to rewrite the table. So it will get a table lock, rewrite
the whole table and then free the table lock. That will take a considerable amount of time and the table lock will be held for that whole period of time.
But, no matter how you make the change, if at all possible, I would not alter a table schema on a production database during working hours. Do it when nothing else is going on.
Tom

How to change/remove Details column in a table?

Hi,
I need to build an interface where the user would be able to review summary information on some records and edit them one in detail mode.
This all works very nice through detailDisclosure but it also automatically includes a Details column which I do not seem to be able to manipulate in any way.
Ideally I would like to replace the Details column with one called Action and positioned as last column in the table and replace the "Show" and "Hide" links with "Edit" and "Cancel" buttons... I am able to add the column with the buttons and they work just as expected as long as the table is defined with its <detail>...</detail> section in the .uix file, however that also triggers the addition of Details column, which is not desirable.
I have used JHeadstart to create the page and then edited the UIX file for the page in order to add the buttons.
Is what I am trying to do possible at all with <table>? The functionality I need is all there. I just cannot make it look the way I want on the screen because of that Automatically inserted Details column. If not possible to
remove it completely is there a way to change the title and replace Show and Hide with something else? Preferably icons?
Thanks!

This has been much discussed earlier. Do search posts.
For your scenario i would do the following.
inside your node which is binded to the table, i create a new node image with cardinality 1 ..1 and a attribute called path of type string.
create a supply function for the node image .
Supply method now has a Element (Parent element ) and node.
Based on your record in element, set the right image source to path attribute and bind the node.
This will make sure that the framework calls the image supply function for every row in a table.

Spool header is getting truncated in SP01 after ECC6.0 upgrade

Hi Experts,
We have recently upgraded our SAP System from 4.6C version to ECC6.0. We are facing some problem with Spool display.
Issue: Column header is truncated in spool list display through SP01 (Applied necessary notes)/ ZSP01(Created based on note 186603). The column header is not getting truncated while executing report in online mode.
Can anybody else got the problem or have any suggestions to rectify this problem?
Rgds,
Vinodkumar

Hello Vinodkumar,
I have seen this problem and the solution was to follow the note 1226758:
Do not forget Call SPAD and choose Settings -> Spool System -> Other. Select
'SP01: Number of Columns for List Display from Format'.
Hope it helps to you.
Best regards,
Rafael

Add columns to a table with lob column

Hi,
Just a quick question: is there a performance penalty after adding columns to a table with a lob fied? the lob field is now the last column in the table and via via I was told that adding columns will impact badly the IO performance on the table if the lob field isn't anymore the last column. The table is on a Oracle 10.2.0.3 version.
thanks. regards
Ivan

Havent heard of performance degradation specifically due to a LOB column not being the last column in a table (although there are several issues with just having a LOB column in a table).
You may want to build a test database to test it out. It should be easy to run tests comparing one with the additional column and one the original to prove or refute it. The results would be interesting to learn - please post them up if you intend to test it out.

How to get the last column info of the given table

Hi All,
I want to get the last column information like :
column name, datatype of the last column in the given
table use PL statement. Please help.
Thanks,
JP

SCOTT@orcl SQL> desc emp
Name                                                  Null?    Type
EMPNO                                                 NOT NULL NUMBER(4)
ENAME                                                          VARCHAR2(10)
JOB                                                            VARCHAR2(9)
MGR                                                            NUMBER(4)
HIREDATE                                                       DATE
SAL                                                            NUMBER(7,2)
COMM                                                           NUMBER(7,2)
DEPTNO                                                         NUMBER(2)
SCOTT@orcl SQL> select column_name, data_type from user_tab_columns
2 where table_name = 'EMP'
3 and column_id = (select max(column_id) from user_tab_columns
4 where table_name = 'EMP');
COLUMN_NAME                    DATA_TYPE
DEPTNO                         NUMBER
SCOTT@orcl SQL>

Last Column of ALV gets compressed

HI ,
The last column of ALV gets compressed when I manually set my widths to my fields.
I have a comments section in my Table when the data is huge, So I have to set the width of the field so that the table does not look odd.
But when I add the same, the last field of my ALV gets compressed. I added one last field to the same ALV table, and last added field is compressed.
My code for setting the ALV data is as follows.
    lo_table_settings->set_fixed_table_layout( abap_true ).
LOOP AT t_column INTO w_column.
       IF w_column-id = 'COMMENTS'.
         lr_textview ?= w_column-r_column->get_cell_editor( ).
         lr_textview->set_wrapping( abap_true ).
         lr_textview->set_design(
             value = cl_wd_text_view=>e_design-label_small
         w_column-r_column->set_width( value = '600' ).
       ELSE.
         w_column-r_column->set_width( value = '100' ).
         lr_header = w_column-r_column->get_header( ).
         lr_header->set_header_text_wrapping( value = abap_true ).
       ENDIF.
     ENDLOOP.
Please help me in this regard.

Hi Rama,
The last column of ALV is compressed, the Width of last column is so small that the table looks very awkward.
The complete data is shown, no data is truncated.
I already set the condition you mentioned. I placed the same in code in my post.

Issue with the last column stretching in ADF table

There is an issue wherein when I try stretching the last column of the ADF table to reduce its width it does stretch. But whenever I try stretching it back to this original position it doesn't despite having columnstretching attribute set to multiple and assign widths in percentages to columns . When I set the columnstretching attribute to none, the last column does stretch back and forth but on page load the table does not stretch to its full width despite having styleClass="AFStretchWidth". Now I dont want to be assigning fixed width in pixels to the columns. I would want the last column to stretch back and forth with columnstretching="multiple" and styleClass="AFStretchWidth". I see the same issue on components demo page as well. Tag Guide

If you are trying that each column gets equally stretched based on the browser, its not possible as adf doesn't supports that.
If your table is not stretching use styleClass="AFStretchWidth".
But if all your columns are not stretching you can only try setting column widths + columnStretching property (where you can specify which column to stretch to fill all the spaces)
Amit

A special character in the last column in my external table

Hello,
I'v made a external table that looks like this :
CREATE
TABLE "REC_XLS"
"FINANCE_DATE" VARCHAR2(50 BYTE),
"CREATION_DATE" VARCHAR2(50 BYTE),
"SENT_DATE" VARCHAR2(50 BYTE),
"REMARKS" VARCHAR2(200 BYTE),
"REMAINING_QUANTITY" VARCHAR2(30 BYTE),
"CODE" VARCHAR2(30 BYTE)
ORGANIZATION EXTERNAL
TYPE ORACLE_LOADER DEFAULT DIRECTORY "LOADER" ACCESS PARAMETERS (
RECORDS DELIMITED BY newline LOAD WHEN CODE!=BLANKS Skip 1 FIELDS
TERMINATED BY 0X'09' MISSING FIELD VALUES ARE NULL REJECT ROWS
WITH
ALL NULL FIELDS ( Finance_date,
creation_date, sent_date, Remarks,
remaining_quantity, code) location ( 'Finance.tsv' )
I exported the result in xls file and I saw in the last column a special character. The result of a copy and paste is prenseted here : "ABE
You should notice that the last quote is in the upper line instead of at the end of ABE. This means, I think, that there is a carriage return at the end. And the 0X'09' is the tab separator. How can I get rid of this character ?

my guess is that you run the load on unix server which uses default LF end-of-line character and the file has dos CRLF end-of-line, the easiest option is to change records delimiter in the DDL and replace "RECORDS DELIMITED BY newline" with code below
RECORDS DELIMITED BY '\r\n'in general end-of-line can be really any character, sample above shows CRLF but it can be TAB, space, | or any other character or set of characters. I have samples of special characters on my blog http://jiri.wordpress.com/2009/01/29/oracle-external-tables-by-examples-part-1/
hope this helps
jiri

Problem in download to application server- file column is getting truncated

We have a program for which there are 2 options a list output or file to be placed on the application server. The TXT file is of length 525 characters.
My problem is while the list output is generated the whole list is getting outputted, but when we take a output on the application server last 10 columns are getting truncated.
Can somebody give a help on this.
Thanks in advance.
Jilly

Use the function module
ARCHIVFILE_SERVER_TO_CLIENT
Pass the values: as download file and destination in the respective fields.
File to be downloaded in :(Pass the exact file name)
PATH :
SDEC01\SAPMNT\INT\HR\OUT\FMLA-20080205-0728
and
Destination to download the file in:
TARGETPATH C:\DOCUMENTS AND SETTINGS\JILFEM\MY DOCUMENTS\FMLA-20080205-0728
Regards,
Jilly

The last digit of invoice vbeln is getting truncated in the file

Hi Experts,
I'm facing problem in both quality and production,the last digit of invoice vbeln is getting truncated in the file when i do export-> local file ->spread sheet.I'm having an alv report using grid display alv is getting display.when output is displayed i'm getting vbeln as 0430098109 and when i'm trying to download into XLS file using export local file spread sheet i'm getting vbeln as 043009810, last digit not appering in the file
Thanks in advance.

PERFORM reset_component_price.
LOOP AT tab_documenti .
    IF tab_documenti-waerk = co_krw .
      tab_documenti-netwr = tab_documenti-netwr * 100 .
    ENDIF .
    MODIFY tab_documenti .
ENDLOOP .
DESCRIBE TABLE tab_documenti LINES num.
IF num > 0.
    IF importa = 'X'.
      PERFORM esporta_file.
    ELSE.
      PERFORM stampa2.
    ENDIF.
ENDIF.
*&      Form recupero_trigger_fatturazione
      text
FORM recupero_trigger_fatturazione.
SELECT vkorg fkdat kunnr vbeln vtweg spart vbtyp
         INTO CORRESPONDING FIELDS OF TABLE tab_vkdfs
         FROM vkdfs
         WHERE vkorg IN s_vkorg
          AND fkdat IN s_edatu
          AND kunnr IN s_kunnr
          AND vbeln IN s_vbeln
          AND vtweg IN s_vtweg
          AND spart IN s_spart
          AND vbtyp IN s_vbtyp.
ENDFORM.
*&      Form TERMINO_REPERIMENTO_DATI_DOCUM
FORM termino_reperimento_dati_docum.
IF NOT port IS INITIAL. "APAB 26/01/04
    REFRESH l_tab_vbak. CLEAR l_tab_vbak.
    SELECT vbeln
           erdat ernam                "APAB 26/01/04
           vkorg vtweg spart kunnr
           vkbur vkgrp vbtyp auart augru
           INTO CORRESPONDING FIELDS OF TABLE l_tab_vbak
           FROM vbak
           WHERE vbeln IN s_vbeln "EQ tab_vkdfs-vbeln Ceriati
           AND   ernam IN s_ernam "APAB 26/01/04
           AND   kunnr IN s_kunnr
           AND   vkorg IN s_vkorg
           AND   vtweg IN s_vtweg
           AND   spart IN s_spart.
    CHECK sy-subrc EQ 0.
    LOOP AT l_tab_vbak WHERE vkbur IN s_vkbur AND
                             vkgrp IN s_vkgrp AND
                             auart IN s_auart AND
                             augru IN s_augru.
      REFRESH l_tab_vbap. CLEAR l_tab_vbap.
      SELECT vbeln posnr pstyv werks kondm matnr netwr waerk kwmeng
             netpr prodh taxm1 knumh                "APAB 26/01/04
             INTO CORRESPONDING FIELDS OF TABLE l_tab_vbap
             FROM vbap
             WHERE vbeln EQ l_tab_vbak-vbeln "tab_vkdfs-vbeln.Ceriati
               AND pstyv IN s_pstyp. "Ceriati
      CHECK sy-subrc EQ 0.
APAB 26/01/04 start - find order reason
      CLEAR l_tab_vbak-bezei.
      SELECT SINGLE bezei INTO l_tab_vbak-bezei FROM tvaut
                          WHERE spras EQ sy-langu
                          AND   augru EQ l_tab_vbak-augru.
find client description
      CLEAR : l_tab_vbak-name1,l_tab_vbak-land1.
      SELECT SINGLE name1 land1 INTO (l_tab_vbak-name1,l_tab_vbak-land1)
                                                               FROM kna1
                                          WHERE kunnr = l_tab_vbak-kunnr.
Ceriati imposte
      SELECT SINGLE taxkd INTO tab_documenti-taxm1 FROM knvi
                                 WHERE kunnr = l_tab_vbak-kunnr
                                 AND aland = 'IT'
                                 AND tatyp = 'MWST'.
      LOOP AT l_tab_vbap WHERE werks IN s_werks AND
                               kondm IN s_kondm AND
                               matnr IN s_matnr.
        IF l_tab_vbak-auart = 'Z1OI' AND ( l_tab_vbap-pstyv = 'TAX' OR
                                           l_tab_vbap-pstyv = 'TAD' ).
          SELECT SINGLE * FROM vbup WHERE vbeln = l_tab_vbap-vbeln
                                    AND   posnr = l_tab_vbap-posnr.
          CHECK vbup-fksaa NE 'C'.
        ENDIF.
        CLEAR vbep.
        CLEAR: qta_uscita_t, qta_cons_t.
        REFRESH l_tab_vbfa.
        SELECT vbelv posnv posnv vbeln posnn vbtyp_n rfmng
        INTO CORRESPONDING FIELDS OF TABLE l_tab_vbfa
           FROM vbfa
           WHERE vbelv EQ l_tab_vbap-vbeln AND
                 posnv EQ l_tab_vbap-posnr AND
                 vbtyp_n EQ 'J'.
        LOOP AT l_tab_vbfa.
          qta_cons_t = l_tab_vbfa-rfmng + qta_cons_t.
        ENDLOOP.
        REFRESH l_tab_vbfa.
        SELECT vbelv posnv posnv vbeln posnn vbtyp_n rfmng bwart
        INTO CORRESPONDING FIELDS OF TABLE l_tab_vbfa
           FROM vbfa
           WHERE vbelv EQ l_tab_vbap-vbeln
             AND posnv EQ l_tab_vbap-posnr
              AND BWART NE SPACE
             AND ( vbtyp_n EQ 'R'
              OR   vbtyp_n EQ 'h' ).
        LOOP AT l_tab_vbfa.
          IF l_tab_vbfa-vbtyp_n = 'h'.
            l_tab_vbfa-rfmng = l_tab_vbfa-rfmng * -1.
          ENDIF.
          qta_uscita_t = qta_uscita_t + l_tab_vbfa-rfmng.
        ENDLOOP.
        SELECT * FROM vbep WHERE vbeln EQ l_tab_vbap-vbeln AND
              posnr EQ l_tab_vbap-posnr
             AND edatu IN s_edatu
              ORDER BY edatu.
          CHECK vbep-bmeng NE 0.
          MOVE vbep-bmeng TO tab_documenti-menge.
CLEAR: qta_uscita,qta_cons.
          IF qta_cons_t = 0.
            CLEAR qta_cons.
            IF qta_uscita_t NE 0.
              IF qta_uscita_t > vbep-bmeng.
                qta_uscita = vbep-bmeng.
                qta_uscita_t = qta_uscita_t - vbep-bmeng.
              ELSE.
                qta_uscita = qta_uscita_t.
                CLEAR qta_uscita_t.
              ENDIF.
            ENDIF.
          ELSE.
            IF qta_cons_t > vbep-bmeng.
              qta_cons = vbep-bmeng.
              qta_cons_t = qta_cons_t - vbep-bmeng.
            ELSE.
              qta_cons = qta_cons_t.
              CLEAR qta_cons_t.
            ENDIF.
            IF qta_uscita_t NE 0.
              IF qta_uscita_t > vbep-bmeng.
                qta_uscita = vbep-bmeng.
                qta_uscita_t = qta_uscita_t - vbep-bmeng.
              ELSE.
                qta_uscita = qta_uscita_t.
                CLEAR qta_uscita_t.
              ENDIF.
            ENDIF.
          ENDIF.
          qta_cons = qta_cons - qta_uscita.
CLEAR: tab_documenti-inco1, tab_documenti-vsart,
                 tab_documenti-bstkd, tab_documenti-bstdk.
          SELECT SINGLE inco1 vsart zterm bstkd bstdk
                                            INTO (tab_documenti-inco1,
                                                 tab_documenti-vsart,
                                                 tab_documenti-zterm,
                                                 tab_documenti-bstkd,
                                                 tab_documenti-bstdk)
                                                  FROM vbkd
                                       WHERE vbeln = l_tab_vbap-vbeln
                                       AND   posnr = l_tab_vbap-posnr.
IF sy-subrc NE 0.
            SELECT SINGLE inco1 vsart zterm bstkd bstdk
                                              INTO (tab_documenti-inco1,
                                                    tab_documenti-vsart,
                                                   tab_documenti-zterm,
                                                   tab_documenti-bstkd,
                                                   tab_documenti-bstdk)
                                                              FROM vbkd
                                         WHERE vbeln = l_tab_vbap-vbeln
                                         AND   posnr = '000000'.
          ENDIF.
CLEAR makt.
          SELECT SINGLE * FROM makt WHERE matnr = l_tab_vbap-matnr
                                      AND spras = sy-langu.
          IF sy-subrc = 0.
            tab_documenti-maktx = makt-maktx.
          ENDIF.
IF qta_cons = l_tab_vbap-kwmeng.
            tab_documenti-qta_c = vbep-bmeng.
            tab_documenti-qta_a = l_tab_vbap-kwmeng - qta_cons
                                                    - qta_uscita.
            CLEAR qta_cons.
          ELSEIF
           qta_cons <= vbep-bmeng.
            tab_documenti-qta_c = qta_cons.
            tab_documenti-qta_a = vbep-bmeng - qta_cons - qta_uscita.
ENDIF.
l_tab_vbap-netwr = l_tab_vbap-netpr * ( tab_documenti-qta_a +
                                                 tab_documenti-qta_c ).
MOVE: l_tab_vbak-vbeln TO tab_documenti-vbeln,
                l_tab_vbak-vkorg TO tab_documenti-vkorg,
                l_tab_vbak-vtweg TO tab_documenti-vtweg,
                l_tab_vbak-spart TO tab_documenti-spart,
                l_tab_vbak-kunnr TO tab_documenti-kunnr,
                l_tab_vbak-vkbur TO tab_documenti-vkbur,
                l_tab_vbak-vkgrp TO tab_documenti-vkgrp,
                l_tab_vbak-vbtyp TO tab_documenti-vbtyp,
                l_tab_vbak-auart TO tab_documenti-auart,
                l_tab_vbak-augru TO tab_documenti-augru,
                l_tab_vbak-bezei TO tab_documenti-bezei, "APAB 26/01/04
                l_tab_vbak-erdat TO tab_documenti-erdat, "APAB 26/01/04
                l_tab_vbak-ernam TO tab_documenti-ernam, "APAB 26/01/04
                l_tab_vbak-name1 TO tab_documenti-name1, "APAB 26/01/04
                l_tab_vbak-land1 TO tab_documenti-land1, "APAB 26/01/04
                tab_vkdfs-fkdat TO tab_documenti-fkdat.
          MOVE: l_tab_vbap-vbeln TO tab_documenti-vbeln,
                l_tab_vbap-posnr TO tab_documenti-posnr,
                l_tab_vbap-pstyv TO tab_documenti-pstyv,
                l_tab_vbap-werks TO tab_documenti-werks,
                l_tab_vbap-kondm TO tab_documenti-kondm,
                l_tab_vbap-matnr TO tab_documenti-matnr,
                l_tab_vbap-netwr TO tab_documenti-netwr,
                l_tab_vbap-waerk TO tab_documenti-waerk,
                l_tab_vbap-netpr TO tab_documenti-netw1, "APAB 26/01/04
                l_tab_vbap-prodh TO tab_documenti-prodh.
MOVE: vbep-edatu TO tab_documenti-fkdat.
IF NOT tab_documenti-qta_a IS INITIAL
          OR NOT tab_documenti-qta_c IS INITIAL.
            APPEND tab_documenti.
          ENDIF.
CLEAR tab_documenti.
        ENDSELECT.
      ENDLOOP.
    ENDLOOP.
    CLEAR tab_documenti.
ENDIF.
IF NOT boll IS INITIAL. "APAB 26/01/04
    LOOP AT tab_vkdfs WHERE vbtyp EQ 'J'.
      SELECT SINGLE * FROM vbuk WHERE vbeln EQ tab_vkdfs-vbeln.
      CHECK sy-subrc = 0.
      IF vbuk-wbstk = 'C'.
        PERFORM prendi_dati.
      ELSE.
        IF port EQ 'X'.
          PERFORM prendi_dati.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.

Last column in HTMLB table gets truncated

Similar Messages

Maybe you are looking for