Como identificar os campos no FK01 durante a execução de um BDC?

Olá,

Seu código é assim.

Use este código em seu programa.

Você pode codificar como,

DATA: ok_code LIKE sy-ucomm,

BDCDATA TYPE TABLE OF BDCDATA,

WA_BDCDATA TYPE BDCDATA.

*Grupo de contas

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '0105'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'RF02K-KTOKK'.

WA_BDCDATA-FVAL = 'ZHRO'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Fornecedor

WA_BDCDATA-FNAM = 'RF02K-LIFNR'.

WA_BDCDATA-FVAL = '1115'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Código da empresa

WA_BDCDATA-FNAM = 'RF02K-BUKRS'.

WA_BDCDATA-FVAL = '1000'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Nome

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '111'. "v

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'ADDR1_DATA-NAME1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Termo de pesquisa

WA_BDCDATA-FNAM = 'ADDR1_DATA-SORT1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Nome do fornecedor

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '0110'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'LFA1-Name1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Chave de ordem

WA_BDCDATA-FNAM = 'LFA1-SORTL'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Chave de idioma

WA_BDCDATA-FNAM = 'LFA1-SPRAS'.

WA_BDCDATA-FVAL = 'DA'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

Call Transaction 'FK01' using BDCDATA.

ENDFUNCTION.

*Pontos de recompensa

Saudações

Olá,

Você pode ser um pouco mais claro, quais campos você precisa para BDC?

Para fazer BDC, faça a gravação, assim você conhecerá os nomes dos campos.

Obrigado,

Anitha

Olá,

Seu código está assim.

Use este código em seu programa.

Você pode codificar assim,

DATA: ok_code LIKE sy-ucomm,

BDCDATA TYPE TABLE OF BDCDATA,

WA_BDCDATA TYPE BDCDATA.

*Grupo de contas

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '0105'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'RF02K-KTOKK'.

WA_BDCDATA-FVAL = 'ZHRO'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Fornecedor

WA_BDCDATA-FNAM = 'RF02K-LIFNR'.

WA_BDCDATA-FVAL = '1115'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Código da empresa

WA_BDCDATA-FNAM = 'RF02K-BUKRS'.

WA_BDCDATA-FVAL = '1000'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Nome

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '111'. "v

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'ADDR1_DATA-NAME1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

*Termo de pesquisa

WA_BDCDATA-FNAM = 'ADDR1_DATA-SORT1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Nome do fornecedor

WA_BDCDATA-PROGRAM = 'SAPMF02K'.

WA_BDCDATA-DYNPRO = '0110'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'LFA1-Name1'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Chave de ordem

WA_BDCDATA-FNAM = 'LFA1-SORTL'.

WA_BDCDATA-FVAL = 'Shou'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

• Chave de idioma

WA_BDCDATA-FNAM = 'LFA1-SPRAS'.

WA_BDCDATA-FVAL = 'DA'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

Call Transaction 'FK01' using BDCDATA.

ENDFUNCTION.

*Pontos de recompensa

Saudações