0
Cargando...
Tente algo como:
/:PERFORM sub_sap_script EM PROGRAMA type_i_program
/:USANDO &Z_LIFNR&
/:CAMBIANDO &Z_STRT2&
/:FINALIZAR
/:SE &Z_STRT2& NE &ESPACIO&
/:FINALIZAR.FORMA sub_sap_script TABELAS from_sapscript ESTRUTURA itcsy
to_sapscript ESTRUTURA itcsy.
DADOS: lv_lifnr TIPO lfa1-lifnr,
lv_strt2 TIPO adrc-str_suppl1.
LER TABELA from_sapscript COM CHAVE 'Z_LIFNR'.
MOVER from_sapscript-valor PARA lv_lifnr.
CHAMAR FUNÇÃO 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTAR
entrada = lv_lifnr
IMPORTAR
saída = lv_lifnr.
SELECIONAR ÚNICO adrc~str_suppl1 EM lv_strt2 DE lfa1
JUNTAR INTERNO adrc EM
lfa1~adrnr = adrc~addrnumber
ONDE lfa1~lifnr = lv_lifnr.
SE sy-subrc IGUAL 0.
LER TABELA to_sapscript COM CHAVE 'Z_STRT2'.
SE sy-subrc = 0.
MOVER lv_strt2 PARA to_sapscript-valor.
MODIFICAR to_sapscript ÍNDICE sy-tabix.
FIM SE.
FIM SE.
FIM FORMA. Saudações
Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
