urgent help

Former Member · ‎2006 Sep 26

hi friends,

Could u please tell me how to do this

i friends i am wroking on interface

this is the program it is not showing any syntatical errors i am able to open the logical file .

and when i tried to download the physical file nothing is being downloaded

i am getting an error like "error in open the downloaded file".

Could u suggest where i went wrong.

tables : knb1, "customer master (companycode)

kna1, "genaral data in customer master

knvp. "customer master partener functions

zvarv. "Program Hard Coded Values support table

----

TYPE-POOLS DEFINATION

----

type-pools : slis.

----

TYPES DECLARATION

----

Customer Master Company code Data

types : begin of t_knb1,

kunnr like knb1-kunnr,

akont like knb1-akont,

end of t_knb1.

data : i_knb1 type t_knb1 occurs 0 with header line .

Customer Master

types : begin of t_kna1,

kunnr like kna1-kunnr,

name1 like kna1-name1,

stras like kna1-stras,

ort01 like kna1-ort01,

stcd1 like kna1-stcd1,

pstlz like kna1-pstlz,

end of t_kna1.

data : i_kna1 type t_kna1 occurs 0 with header line.

Customer Partner Functions

types : begin of t_knvp,

kunnr like knvp-kunnr,

vkorg like knvp-vkorg,

parvw like knvp-parvw,

kunn2 like knvp-kunn2,

end of t_knvp.

data : i_knvp type t_knvp occurs 0 with header line.

Output data

types : begin of t_output,

recordtype type c,

soldtocust(10) type c,

payer(10) type c,

sequence(5) type n,

custname(35) type c,

custaddress(35) type c,

custcity(35) type c,

taxid(16) type c,

postalcode(5) type c,

branch type c,

delivery(3) type c,

end of t_output.

data : i_output type t_output occurs 0 with header line.

ZVARV Table

*types : begin of t_zvarv,

zobject1 like zvarv-zobject1,
zobject2 like zvarv-zobject2,
zseqnumb like zvarv-zseqnumb,
zobjval like zvarv-zobjval,
end of t_zvarv.

*

*data : i_zvarv type t_zvarv occurs 0 with header line.

*

Error messages and total records

types : begin of t_error_log,

message(200) type c,

end of t_error_log.

data : i_error_log type t_error_log occurs 0 with header line.

Field catalog

data : t_fieldcat_tab type slis_t_fieldcat_alv with header line.

----

Variables

----

data : v_sequence(5) type n, "Total records

v_line type i, "Message

v_count type i, "Counter for KNA1 records

v_count1 type i, "Counter for KNVP records

v_result(100) type c, "Totals for KNA1

v_result1(100) type c, "Totals for KNVP

v_vkorg like knvp-vkorg, "Message for Validation

v_pfile(40) type c.

----

Constants

----

data : c_program(30) type c value 'ZSDI0215', " Program Name

c_parvw_rg like knvp-parvw value 'RG', "Partner type

c_aufsd(2) type c value 'CD'. "Central order block for Cust

----

Selection-screen

----

selection-screen begin of block b1 with frame title text-001.

parameters : p_vkorg like knvp-vkorg obligatory. "Sales Org

select-options : s_akont for knb1-akont obligatory default

'0001050100'. "Reconciliation Account

selection-screen end of block b1.

selection-screen begin of block b2 with frame title text-002.

parameters : p_alv as checkbox,

p_df as checkbox.

selection-screen end of block b2.

selection-screen begin of block b3 with frame title text-003.

parameters : p_lfile like filetextci-fileintern

default 'Z_IO01989_CUSTOMER_MASTER_DATA', " Logical file

p_pfile like rfpdo-rfbifile. " Physical File

selection-screen end of block b3.

----

At selection-screen

----

at selection-screen on p_vkorg.

Validation of Sales Organization

select single vkorg

into v_vkorg

from tvko

where vkorg = p_vkorg.

if v_vkorg is initial.

message e045 with text-030.

endif.

----

Start-of-selection

----

start-of-selection.

Fetch data

perform get_data.

Processing the data

perform process_data.

----

End-of-Selection

----

end-of-selection.

if p_alv eq 'X'.

Field catalog

perform f_prepare_fieldcat.

Disply alv report

perform f_display_report.

Disply error log

perform f_error_log.

elseif p_df eq 'X'.

Disply logical file & physical file

perform f_logical_file.

perform f_physical_file.

else.

Display the list

perform f_list_display.

Disply logical file & physical file

perform f_logical_file.
perform f_physical_file.

endif.

----

Form get_data

----

Fetch data and store in internal tables

----

form get_data .

Get zvarv data.

perform get_zvarv.

Get knb1 data

perform get_knb1.

Get kna1 data

perform get_kna1.

Get knvp data

perform get_knvp.

endform. " get_data

----

form get_zvarv

----

zvarv data

----

form get_zvarv .

Fetch data from zvarv.
select zobject1 zobject2 zseqnumb zobjval
from zvarv
into table i_zvarv
where zobject1 eq c_program.

*

sort i_zvarv by zobject2.

endform. " get_zvarv

----

form get_knb1

----

Get KNB1 data

----

form get_knb1 .

Fetch data from knb1.

select kunnr akont

from knb1

into table i_knb1

where akont in s_akont.

describe table i_knb1 lines v_line.

endform. " get_knb1

----

Form get_kna1

----

Get KNB1 data

----

form get_kna1 .

Fetch data from kna1.

select kunnr name1 stras ort01 stcd1 pstlz

from kna1

into table i_kna1

for all entries in i_knb1

where kunnr = i_knb1-kunnr and

aufsd ne 'cd'."v_aufsd.

endform. " get_kna1

----

Form get_knvp

----

Get KNVP data

----

form get_knvp .

Fetch data from knvp

select kunnr parvw kunn2 vkorg

from knvp

into table i_knvp

for all entries in i_knb1

where kunnr = i_knb1-kunnr

and vkorg = p_vkorg

and parvw = c_parvw_rg.

endform. " get_knvp

----

Form process_data

----

Processing output data

----

form process_data .

Get AUFSD value from ZVARV

perform zvarv_read.

loop at i_knb1.

read table i_kna1 with key kunnr = i_knb1-kunnr.

if sy-subrc ne 0.

concatenate: 'in kna1 no record found for Customer number'

i_knb1-kunnr

into v_result separated by space.

move v_result to i_error_log-message.

append i_error_log.

v_count = v_count + 1.

else.

Move the kna1 data to output

move : i_kna1-name1 to i_output-custname,

i_kna1-stras to i_output-custaddress,

i_kna1-ort01 to i_output-custcity,

i_kna1-stcd1 to i_output-taxid,

i_kna1-pstlz to i_output-postalcode.

*append i_output.

*endif.

read table i_knvp with key kunnr = i_knb1-kunnr.

if sy-subrc <> 0.

concatenate : 'in knvp no record found for customer number'

i_knb1-kunnr

into v_result1 separated by space.

move v_result1 to i_error_log-message.

append i_error_log.

v_count1 = v_count1 + 1.

else.

Move the knvp data to output

loop at i_knvp where kunnr eq i_knb1-kunnr.

move : i_knvp-kunnr to i_output-soldtocust,

i_knvp-kunn2 to i_output-payer.

v_sequence = v_sequence + 1.

Move non table related data to output

move : 'C' to i_output-recordtype,

v_sequence to i_output-sequence,

'1' to i_output-branch,

'ABC' to i_output-delivery.

append i_output.

endloop.

endif.

endloop.

endform. " process_data

----

Form zvarv_read

----

Read AUFSD value from ZVARV

----

form zvarv_read .

clear i_zvarv.
read table i_zvarv with key zobject2 = c_aufsd
binary search.
if sy-subrc eq 0.
move i_zvarv-zobjval to v_aufsd.
endif.

endform.

----

Form f_prepare_fieldcat

----

Field catalog preparation

----

Field catalog preparation

form f_prepare_fieldcat .

t_fieldcat_tab-col_pos = 1.