Hi guys,
Im trying to do a CRUD with this function module ADDR_COM_MAINTAIN
Create worked with this code
data: lt_adrcomc type table of adrcomc,
ls_adrcomc type adrcomc.
data: ls_commtab type adsmtp,
lt_commtab like table of ls_commtab,
lv_return type ad_retcode,
lv_email type adr6-smtp_addr.
lv_email = s_email+3.
"Verifica se já existe
select single COUNT(*)
from kna1
join adr6
on adr6~addrnumber = kna1~adrnr
where adr6~addrnumber = gv_adrnr AND
kna1~kunnr in s_kunnr AND
adr6~smtp_addr = lv_email.
if sy-subrc eq 0.
perform process_data.
perform alv.
endif.
ls_commtab-smtp_addr = lv_email. "Email
ls_commtab-remark = 'SALDO DE REMESSAS (NÃO ALTERAR)'.
ls_commtab-updateflag = 'I'. "FLAG FOR INSERT
APPEND ls_commtab TO lt_commtab.
call function 'ADDR_COMM_MAINTAIN'
exporting
address_number = gv_adrnr
date_from = '00010101'
language = sy-langu
table_type = 'ADSMTP' "Constant
check_address = 'X'
iv_time_dependence = 'X'
iv_consider_adrcomc_for_insert = 'X'
importing
returncode = lv_return
tables
comm_table = lt_commtab.
if sy-subrc = 0.
call function 'ADDR_MEMORY_SAVE'.
commit work.
endif.
I thought that changing the updateflag from 'I' to 'D' for delete and 'U' for update would work, but it is not
Does someone know what im doing wrong or another way of deleting and inserting into client emails using address number
Bluesky
