UploadProgramm for Cash JOurnal

Former Member · ‎2008 Nov 06

HI Guru's,

following upload program for FBCJ-Cash journal showing error..its failing to upload the file.. showing error.. any one can help me..

report ZTESTFBCJ

no standard page heading line-size 255.

Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,

COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,

CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,

TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,

H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,

TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,

POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,

DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,

POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,

DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,

KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,

end of bdcdata.

data : it_bdcdata type standard table of bdcdata .

data : wa_bdcdata type bdcdata.

SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN : END OF BLOCK blk.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = p_file

FLETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

DATA_TAB = bdcdata

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

loop at it_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

' =CHCJ'.

perform bdc_field using 'F_DISPLAY_PERIOD_LO'

'03.11.2008'.

perform bdc_field using 'F_DISPLAY_PERIOD_HI'

'03.11.2008'.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.

perform bdc_dynpro using 'SAPMFCJ0' '0050'.

perform bdc_field using 'BDC_CURSOR'

'TCJ_C_JOURNALS-CAJO_NUMBER'.

perform bdc_field using 'BDC_OKCODE'

'=OK50'.

perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'

'a1sg'.

perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'

'a500'.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=POST'.

perform bdc_field using 'F_DISPLAY_PERIOD_LO'

'03.11.2008'.

perform bdc_field using 'F_DISPLAY_PERIOD_HI'

'03.11.2008'.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.

perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'

'postage'.

perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(02)'

' 10'.

perform bdc_field using 'ISCJ_E_POSTINGS-TAX_CODE(02)'

'p5'.

perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(02)'

'test'.

perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(02)'

'03.11.2008'.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(02)'

'03.11.2008'.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(02)'

'test'.

perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(02)'

'a3070020'.

perform bdc_field using 'F_LINE_SEL(02)'

'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR wa_BDCDATA.

wa_BDCDATA-PROGRAM = PROGRAM.

wa_BDCDATA-DYNPRO = DYNPRO.

wa_BDCDATA-DYNBEGIN = 'X'.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

*----

*Insert field

*----

FORM BDC_FIELD USING FNAM FVAL.

CLEAR wa_BDCDATA.

wa_BDCDATA-FNAM = FNAM.

wa_BDCDATA-FVAL = FVAL.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

regards

JK

Former Member · ‎2008 Nov 06

Hi

ort ZTESTFBCJ
no standard page heading line-size 255.
Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,
COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,
CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,
TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,
H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,
TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,
POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,
DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,
POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,
DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,
KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,
end of bdcdata.

data : it_bdcdata type standard table of bdcdata .
data : wa_bdcdata type bdcdata.
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK blk.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. "add this to the code.

  CALL FUNCTION 'F4_FILENAME'
* EXPORTING
*   PROGRAM_NAME        = SYST-CPROG
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
     IMPORTING
       FILE_NAME           = P_File.



start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = p_file
FLETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
DATA_TAB = bdcdata
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
.

IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

loop at it_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.
perform bdc_field using 'BDC_OKCODE'
' =CHCJ'.
perform bdc_field using 'F_DISPLAY_PERIOD_LO'
'03.11.2008'.
perform bdc_field using 'F_DISPLAY_PERIOD_HI'
'03.11.2008'.
perform bdc_field using 'BDC_CURSOR'
'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.
perform bdc_dynpro using 'SAPMFCJ0' '0050'.
perform bdc_field using 'BDC_CURSOR'
'TCJ_C_JOURNALS-CAJO_NUMBER'.
perform bdc_field using 'BDC_OKCODE'
'=OK50'.
perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'
'a1sg'.
perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'
'a500'.
perform bdc_dynpro using 'SAPMFCJ0' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=POST'.
perform bdc_field using 'F_DISPLAY_PERIOD_LO'
'03.11.2008'.
perform bdc_field using 'F_DISPLAY_PERIOD_HI'
'03.11.2008'.
perform bdc_field using 'BDC_CURSOR'
'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'.
perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(02)'
'postage'.
perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(02)'
' 10'.
perform bdc_field using 'ISCJ_E_POSTINGS-TAX_CODE(02)'
'p5'.
perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(02)'
'test'.
perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(02)'
'03.11.2008'.
perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(02)'
'03.11.2008'.
perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(02)'
'test'.
perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(02)'
'a3070020'.
perform bdc_field using 'F_LINE_SEL(02)'
'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----------------------------------------------------------------------
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR wa_BDCDATA.
wa_BDCDATA-PROGRAM = PROGRAM.
wa_BDCDATA-DYNPRO = DYNPRO.
wa_BDCDATA-DYNBEGIN = 'X'.
APPEND wa_BDCDATA to it_bdcdata.
ENDFORM.

*----------------------------------------------------------------------

*Insert field
*----------------------------------------------------------------------
FORM BDC_FIELD USING FNAM FVAL.
CLEAR wa_BDCDATA.
wa_BDCDATA-FNAM = FNAM.
wa_BDCDATA-FVAL = FVAL.
APPEND wa_BDCDATA to it_bdcdata.
ENDFORM.

Regards,

VIshwa.

Former Member · ‎2008 Nov 07

HI Thanks for your reply...as per file format its not data not uploading prperly...

data format is: A1SG A500 POSTAGE 1000 P5 TEST 20081103 20081103 TEST A300700

data reading like this...

A1SG |0500 |P |1000

this is my code:

report ZTESTFBCJ

no standard page heading line-size 255.

Tables : TCJ_C_JOURNALS , ISCJ_E_POSTINGS.

data: begin of bdcdata occurs 0,

COMP_CODE TYPE TCJ_C_JOURNALS-COMP_CODE,

CAJO_NUMBER TYPE TCJ_C_JOURNALS-CAJO_NUMBER,

TRANSACT_NAME TYPE ISCJ_E_POSTINGS-TRANSACT_NAME,

H_PAYMENTS TYPE ISCJ_E_POSTINGS-H_PAYMENTS,

TAX_CODE TYPE ISCJ_E_POSTINGS-TAX_CODE,

POSITION_TEXT TYPE ISCJ_E_POSTINGS-POSITION_TEXT,

DOCUMENT_NUMBER TYPE ISCJ_E_POSTINGS-DOCUMENT_NUMBER,

POSTING_DATE TYPE ISCJ_E_POSTINGS-POSTING_DATE,

DOCUMENT_DATE TYPE ISCJ_E_POSTINGS-DOCUMENT_DATE,

KOSTL TYPE ISCJ_E_POSTINGS-KOSTL,

end of bdcdata.

data : it_bdcdata type standard table of bdcdata .

data : wa_bdcdata type bdcdata.

SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS : p_file(50) type c obligatory.

SELECTION-SCREEN : END OF BLOCK blk.

data : v_file type string.

v_file = p_file.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = V_FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

tables

data_tab = it_bdcdata

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

loop at it_bdcdata into wa_bdcdata.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_CURSOR'

'F_DISPLAY_PERIOD_HI'.

perform bdc_field using 'BDC_OKCODE'

'=CHCJ'.

*perform bdc_field using 'F_DISPLAY_PERIOD_LO'

wa_bdcdata-F_DISPLAY_PERIOD_LO.

*perform bdc_field using 'F_DISPLAY_PERIOD_HI'

wa_bdcdata-F_DISPLAY_PERIOD_HI.

perform bdc_dynpro using 'SAPMFCJ0' '0050'.

perform bdc_field using 'BDC_CURSOR'

'TCJ_C_JOURNALS-CAJO_NUMBER'.

perform bdc_field using 'BDC_OKCODE'

'=OK50'.

perform bdc_field using 'TCJ_C_JOURNALS-COMP_CODE'

bdcdata-COMP_CODE.

perform bdc_field using 'TCJ_C_JOURNALS-CAJO_NUMBER'

bdcdata-CAJO_NUMBER.

perform bdc_dynpro using 'SAPMFCJ0' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=POST'.

*perform bdc_field using 'F_DISPLAY_PERIOD_LO'

bdcdata-F_DISPLAY_PERIOD_LO.

*perform bdc_field using 'F_DISPLAY_PERIOD_HI'

bdcdata-F_DISPLAY_PERIOD_HI.

perform bdc_field using 'BDC_CURSOR'

'ISCJ_E_POSTINGS-TRANSACT_NAME(01)'.

perform bdc_field using 'ISCJ_E_POSTINGS-TRANSACT_NAME(01)'

bdcdata-TRANSACT_NAME.

perform bdc_field using 'ISCJ_E_POSTINGS-H_PAYMENTS(01)'

bdcdata-H_PAYMENTS.

perform bdc_field using 'ISCJ_E_POSTINGS-POSITION_TEXT(01)'

bdcdata-POSITION_TEXT.

perform bdc_field using 'ISCJ_E_POSTINGS-POSTING_DATE(01)'

bdcdata-POSTING_DATE.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_DATE(01)'

bdcdata-DOCUMENT_DATE.

perform bdc_field using 'ISCJ_E_POSTINGS-DOCUMENT_NUMBER(01)'

bdcdata-DOCUMENT_NUMBER.

perform bdc_field using 'ISCJ_E_POSTINGS-KOSTL(01)'

bdcdata-KOSTL.

perform bdc_field using 'F_LINE_SEL(01)'

'X'.

endloop.

call transaction 'FBCJ' using it_BDCDATA.

*----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR wa_BDCDATA.

wa_BDCDATA-PROGRAM = PROGRAM.

wa_BDCDATA-DYNPRO = DYNPRO.

wa_BDCDATA-DYNBEGIN = 'X'.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

*----

*Insert field

*----

FORM BDC_FIELD USING FNAM FVAL.

CLEAR wa_BDCDATA.

wa_BDCDATA-FNAM = FNAM.

wa_BDCDATA-FVAL = FVAL.

APPEND wa_BDCDATA to it_bdcdata.

ENDFORM.

regards

JK

Former Member · ‎2008 Nov 07

Hi

In GUI_Upload, you have given field seperator right?.. So, check in the flat file..If the gap between one field to the other is only one Tab or more than that.

What I meant is:

A1SG |0500 |P |1000

Between A1SG and 0500, the gap should be of one tab only,you can check that by keeping the cursor after G at the first field..and when u hit tab..it should take u to 0 which is the first number in the next field...I think there is gap betwen G and 0...the gap should be exactly of that of the Tab and not more than that.

Check once in the flat file.

Regards,

Vishwa.

Former Member · ‎2008 Nov 07

HI,

Which format i need to save.. the file..

thanks

regards

JK

Former Member · ‎2008 Nov 07

Save it in .txt format..like in Notepad.

Vishwa.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

UploadProgramm for Cash JOurnal