topic Re: Smart form in Application Development and Automation Discussions

Smart form

Former Member — Wed, 20 Mar 2013 12:41:31 GMT

Hi Gurus,

Can you please help me to develop this logic :

Select vbelv posnv vbeln posnn vbtyp_n vbtyp_v

From vbfa into corresponding fields of table lt_vbfa1

For all entries in lt_vbfa

Where vbelv = lt_vbfa-vbelv “getting the reference sales order number here

Vbtyp_n = 'M' “subsequent document category should be invoice

vbeln Not Equal To is_bil_invoice-it_gen-bil_number “ Do not consider items that are billed on this invoice.

If I did like this it throwing an error:

Select vbelv posnv vbeln posnn vbtyp_n vbtyp_v

From vbfa into corresponding fields of table lt_vbfa1

For all entries in lt_vbfa

Where vbelv = lt_vbfa-vbelv “getting the reference sales order number here

Vbtyp_n = 'M' .

Delete lt_vbfa1 where vbeln ne is_bil_invoice-it_gen-bil_number.

because is_bil_invoice-it_gen is also an internal table.

please help me.

thanks.

Re: Smart form

Former Member — Wed, 20 Mar 2013 13:17:02 GMT

Hi Kittu,

I think performance wise the second option will be better.

But still if u want to go with the first option, then you can create a range table for it_gen-bil_number.

Then loop at is_bil_invoice and fill the range table and pass it in the SELECT query.

Select vbelv posnv vbeln posnn vbtyp_n vbtyp_v

From vbfa into corresponding fields of table lt_vbfa1

For all entries in lt_vbfa

Where vbelv = lt_vbfa-vbelv “getting the reference sales order number here

Vbtyp_n = 'M' “subsequent document category should be invoice

vbeln NOT IN r_bil_number “ Do not consider items that are billed on this invoice.

Regards,

Santanu Mohapatra.

Re: Smart form

Former Member — Wed, 20 Mar 2013 14:08:20 GMT

Hi Santanu,

Can you please explain what you are saying. Can you please give me the code

. And I am saying above mentioned 2 procedures are throwing errors.

Thanks.

Re: Smart form

Former Member — Wed, 20 Mar 2013 14:59:45 GMT

Hi Kittu,

You cant use the DELETE command in that manner.

Take all the bill numbers from is_bil_invoice-it_gen-bil_number internal table into an internal table(say it_temp).

loop at it_temp.

read table lt_vbfa1 with key vbeln = it_temp-bil_number.

if sy-subrc ne 0.

delete lt_vbfa1 where vbeln = it_temp-bil_number.

endif.

endloop.

Regards,

Mahidhar.

Re: Smart form

Former Member — Wed, 20 Mar 2013 15:15:04 GMT

1) Check if the order of fields in the select statement is the same as in your internal table.

2) You cannot delete directly from an internal table.

copy is_bil_invoice table into another internal table with same structure. (lt_temp)

lt_temp[] = ls_bill_invoice_table[].

sort lt_temp by bill_number and delete adjacent duplicates. Now you will have unique bil_numbers.

loop at lt_vbfa.

l_index = sy-tabix.

read lt_temp with billing_number = lt_vbfa-billing_numebr.

if sy-subrc NE 0.

delete lt_vbfa index l_index.

endif.

clear: l_index ....etc.,

endloop.