CE PLUS - Nota 009498
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 02/12/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:50:58
Descrição da Nota: NECESSÁRIO TRATAR FATURA DE DESPESA EM EMBARQUE DE SERVIÇO
Sintoma
Necessário tratar fatura de despesa em embarque de serviço
Solução
Tratar fatura de despesa em embarque de serviço.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09498 Data: 02/12/2009 Hora: 14:49:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09498
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05562 - 00001 - 7.0 - 00004 - FALHA NO RECEBIMENTO NA FATURA DE SERVIÇO
----------------------------------------------------------------------------------------------------
NECESSÁRIO TRATAR FATURA DE DESPESA EM EMBARQUE DE SERVIÇO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE DESPESA - EMBARQUE DE SERVIÇO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003X01
REPS /PWS/ZYCIR012
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
DESCRIBE TABLE itab_zycit003 LINES v_line.
CLEAR: v_tot, v_tot_ntgew, v_tot_vlreal.
LOOP AT itab_zycit003.
v_tot = v_tot + ( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
v_tot_vlreal = v_tot_vlreal +
( itab_zycit003-vlreal * itab_zycit003-qtd_iten ).
ENDLOOP.
* >> Início da inclusão: FORM ATUALIZA_DESPESAS
IF itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
WHERE nrseq = /pws/zycie001-nrseq.
endif.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit036
INTO TABLE itab_zycit036_aux
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln.
SORT itab_zycit003 BY nrseq ebeln ebelp.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc
WHERE tpdesp = /pws/zycit000-cod_sisc AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
it_zycit270-gjahr = /pws/zycie006-dtincl(4).
it_zycit270-programa = sy-repid.
it_zycit270-nrseq = /pws/zycie006-nrseq.
it_zycit270-embarca = /pws/zycie006-nrfat.
it_zycit270-compl = text-155.
it_zycit270-nrseqemb = itab_zycit003-nrseq.
it_zycit270-tcode = sy-tcode.
it_zycit270-dtestorno = sy-datum.
ENDIF.
APPEND it_zycit270.
* >> Início da inclusão: FORM HIST_CONTABIL
ELSEIF ( /pws/zycie006-tpfatura = '04' AND
/pws/zycie001-modalidade = '02' ) .
it_zycit270-mandt = sy-mandt.
it_zycit270-belnr = /pws/zycie006-belnr_p.
it_zycit270-bukrs = /pws/zycie006-bukrs.
it_zycit270-gjahr = /pws/zycie006-dtincl(4).
it_zycit270-programa = sy-repid.
it_zycit270-nrseq = /pws/zycie006-nrseq.
it_zycit270-embarca = /pws/zycie006-nrfat.
it_zycit270-nrseqemb = /pws/zycie001-nrseq.
it_zycit270-tcode = sy-tcode.
it_zycit270-dtestorno = sy-datum.
it_zycit270-compl = text-116.
APPEND it_zycit270.
* << Fim da inclusão
ELSE.
CLEAR it_zycit094. REFRESH it_zycit094.
SELECT SINGLE * FROM /pws/zycit094 INTO it_zycit094
WHERE nrseqce = /pws/zycie006-nrseqce.
it_zycit270-mandt = sy-mandt.
it_zycit270-belnr = /pws/zycie006-belnr_p.
it_zycit270-bukrs = /pws/zycie006-bukrs.
it_zycit270-gjahr = /pws/zycie006-dtincl(4).
it_zycit270-programa = sy-repid.
it_zycit270-nrseq = /pws/zycie006-nrseq.
...
...
PERFORM get_parameters_mrm1_receb.
* >> Início da inclusão: FORM FILL_DATE_MR1M
PERFORM seleciona_custo.
* << Fim da inclusão
READ TABLE itab_zycit003 INDEX 1.
itab_zycie033-mandt = sy-mandt.
itab_zycie033-tcode = 'MIRO'.
itab_zycie033-tabela = '/PWS/ZYCIT006'.
itab_zycie033-cpochv = /pws/zycie006-nrseq.
itab_zycie033-bldat = sy-datum.
itab_zycie033-budat = sy-datum.
itab_zycie033-bukrs = /pws/zycie006-bukrs.
IF NOT /pws/zycit048-lifnr IS INITIAL.
itab_zycie033-lifnr = /pws/zycit048-lifnr.
...
...
itab_zycit031-wrbtr = itab_zycit031-wrbtr * bkpf-kursf.
ELSE.
SELECT SINGLE * FROM bkpf WHERE
bukrs = /pws/zycie006-bukrs AND
belnr = itab_zycit132-belnr_p AND
gjahr = v_year.
itab_zycit031-wrbtr = itab_zycit031-wrbtr * bkpf-kursf.
ENDIF.
APPEND itab_zycit031.
itab_zycie033-rmwwr = itab_zycit031-wrbtr + itab_zycie033-rmwwr.
* >> Início da inclusão: FORM FILL_DATE_MR1M
LOOP AT itab_custo_item where ebeln = itab_zycit003-ebeln
and ebelp = itab_zycit003-ebelp.
itab_zycie033-rmwwr = itab_custo_item-vlmov + itab_zycie033-rmwwr.
ENDLOOP.
* << Fim da inclusão
itab_zycie033-waers = /pws/zycbt007-waersb.
ENDLOOP.
APPEND itab_zycie033.
IF NOT itab_zycit031[] IS INITIAL.
SELECT ebeln ebelp bprme twrkz FROM ekpo INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit031
WHERE ebeln = itab_zycit031-ebeln
AND ebelp = itab_zycit031-ebelp.
ENDIF.
LOOP AT itab_zycit031.
...
...
itab_itemdata-item_amount = itab_zycit031-wrbtr.
IF /pws/zycie006-tpfatura NE '11' OR
( /pws/zycie006-tpfatura EQ '11' AND
NOT itab_matuse-j_1bmatuse IS INITIAL ).
itab_itemdata-quantity = itab_zycit031-menge.
itab_itemdata-po_unit = itab_zycit031-meins.
itab_itemdata-po_unit_iso = itab_zycit031-meins.
itab_itemdata-po_pr_uom = itab_ekpo-bprme.
itab_itemdata-po_pr_uom_iso = itab_ekpo-bprme.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_MR1M
LOOP AT itab_custo_item WHERE ebeln = itab_zycit031-ebeln
AND ebelp = itab_zycit031-ebelp.
itab_itemdata-item_amount = itab_itemdata-item_amount +
itab_custo_item-vlmov.
ENDLOOP.
* << Fim da inclusão
APPEND itab_itemdata.
ENDIF.
ENDLOOP.
LOOP AT itab_ekpo WHERE NOT twrkz IS initial.
ENDLOOP.
IF sy-subrc = 0.
IF NOT itab_ekpo[] IS INITIAL.
SELECT * FROM ekkn INTO TABLE itab_ekkn_mult
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln = itab_ekpo-ebeln AND
...
...
itab_zycbt035_aux-d_gsber = itab_zycit003-gsber.
itab_zycbt035_aux-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
itab_zycbt035_aux-d_fipos = itab_ekkn-fipos.
itab_zycbt035_aux-d_fictr = itab_ekkn-fictr.
IF /pws/zycie006-tpfatura EQ '11'.
IF /pws/zycit000-clucro_ia = ' '.
CLEAR: itab_zycbt035-c_kostl,
itab_zycbt035-d_kostl.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
LOOP AT itab_custo_item where ebeln = itab_zycit003-ebeln
and ebelp = itab_zycit003-ebelp.
itab_zycbt035_aux-wrbtr =
itab_custo_item-vlmov + itab_zycbt035_aux-wrbtr .
ENDLOOP.
* << Fim da inclusão
APPEND itab_zycbt035_aux.
ENDLOOP.
FREE itab_zycbt035.
FREE itab_zycbt035_aux2.
SORT itab_zycbt035_aux BY matuse bklas d_gsber.
LOOP AT itab_zycbt035_aux.
itab_zycbt035_aux2-matuse = itab_zycbt035_aux-matuse.
itab_zycbt035_aux2-bklas = itab_zycbt035_aux-bklas.
itab_zycbt035_aux2-d_gsber = itab_zycbt035_aux-d_gsber.
itab_zycbt035_aux2-d_prctr = itab_zycbt035_aux-d_prctr.
...
...
FORM estorna_documentos.
* >> Início da inclusão: FORM ESTORNA_DOCUMENTOS
SELECT SINGLE * FROM /pws/zycit202
WHERE nrseq EQ /pws/zycie001-nrseq
AND ( belnr_mr22 NE space
OR belnr_f_02 NE space
OR belnr_f51_mt0 NE space
OR belnr_f51_mt1 NE space
OR belnr_f51_mt2 NE space
OR belnr_f51_mt3 NE space ). "#EC CI_NOFIELD
IF sy-subrc EQ 0.
MESSAGE e015 WITH text-190.
ENDIF.
* << Fim da inclusão
...
...
MODIFY /pws/zycit006 FROM /pws/zycie006.
COMMIT WORK AND WAIT.
UPDATE /pws/zycit036 SET congelamov = ''
WHERE nrseq = /pws/zycie001-nrseq
* >> Início da exclusão: FORM ESTORNA_DOCUMENTOS
AND nrseqori = /pws/zycie006-nrseq
* << Fim da exclusão
AND origem = 'FAT'.
ENDFORM.
...
...
* >> Início da inclusão:
FORM seleciona_custo.
CLEAR: itab_custo_item, itab_zycit036.
REFRESH: itab_custo_item, itab_zycit036.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit036
INTO TABLE itab_zycit036
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp
AND ( origem = 'FAT' OR origem = 'PC' ) .
ENDIF.
DELETE itab_zycit036 WHERE ( codigo = 'FOB' OR
codigo = 'CIF' OR
codigo = 'C&F' ) .
FREE itab_zycit029_estat.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT * FROM /pws/zycit029
INTO TABLE itab_zycit029_estat
WHERE estatistico = 'X'
AND land1 EQ t001-land1. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
LOOP AT itab_zycit029_estat.
DELETE itab_zycit036
WHERE codigo = itab_zycit029_estat-codigo.
ENDLOOP.
ENDIF.
FREE itab_custo_item.
LOOP AT itab_zycit003.
CLEAR itab_custo_item.
LOOP AT itab_zycit036
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
itab_custo_item-nrseq = itab_zycit036-nrseq.
itab_custo_item-ebeln = itab_zycit036-ebeln.
itab_custo_item-ebelp = itab_zycit036-ebelp.
itab_custo_item-ebelp = itab_zycit036-ebelp.
itab_custo_item-waers_mov = wa_zycbt007-waersb.
itab_custo_item-vlmov = itab_zycit036-vlmov +
itab_custo_item-vlmov .
ENDLOOP.
APPEND itab_custo_item.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
TABLES:
* >> Início da inclusão:
/pws/zycit202,
* << Fim da inclusão
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit036_plan OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_plan.
DATA: BEGIN OF itab_zycit029_estat OCCURS 0.
INCLUDE STRUCTURE /pws/zycit029.
DATA: END OF itab_zycit029_estat.
DATA: BEGIN OF itab_custo_item OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF itab_custo_item.
DATA: v_rub, v_dpnf.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR012
...
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat = itab_zycit263-nrseq_pgfat
AND eliminado NE 'X'. "#EC CI_NOFIELD
ENDIF.
ENDIF.
READ TABLE itab_zycit006 INDEX 1.
ENDIF.
* >> Início da inclusão: FORM SELECT-DADOS
IF itab_zycit001-modalidade NE '02'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = i_nrseq. "#EC CI_NOFIRST
IF sy-subrc = 0.
SELECT * FROM /pws/zycit006 APPENDING TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce
AND eliminado NE 'X'
AND ( tpfatura = '02'
OR tpfatura = '03'
OR tpfatura = '04'
OR tpfatura = '09'
OR tpfatura = '10' ). "#EC CI_NOFIELD
ENDIF.
* >> Início da inclusão: FORM SELECT-DADOS
ELSE.
SELECT *
FROM /pws/zycit006
APPENDING TABLE itab_zycit006
WHERE tpfatura EQ '04'
AND frpagto NE 'A'
and nrseqf eq itab_zycit001-nrseq .
ENDIF.
* << Fim da inclusão
IF itab_zycit001-regime = '04' AND itab_zycit001-tpdecl = 'DI'.
SELECT SINGLE * FROM /pws/zycit042
WHERE nrseqnf = itab_zycit443-nrseqda.
IF sy-subrc = 0.
MOVE /pws/zycit042-nrseqnf TO v_nrseqnf.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit042
WHERE nrseqnf = itab_zycit100-nrseqdi.
IF sy-subrc = 0.
...
...
IF sy-subrc EQ 0.
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006 "#EC CI_NOFIELD
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat = itab_zycit263-nrseq_pgfat.
ENDIF.
ENDIF.
READ TABLE itab_zycit006 INDEX 1.
ENDIF.
* >> Início da inclusão: FORM SELECT-DADOS
IF itab_zycit001-modalidade NE '02'.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycit094
WHERE nrseq = i_nrseq. "#EC CI_NOFIRST
IF sy-subrc = 0.
SELECT *
FROM /pws/zycit006
APPENDING TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce
AND ( tpfatura EQ '02'
OR tpfatura EQ '03'
OR tpfatura EQ '04'
OR tpfatura EQ '09'
OR tpfatura EQ '10' ). "#EC CI_NOFIELD
ENDIF.
ELSE.
SELECT *
FROM /pws/zycit006
APPENDING TABLE itab_zycit006
WHERE tpfatura EQ '04'
AND frpagto NE 'A'
and nrseqf eq itab_zycit001-nrseq .
* << Fim da inclusão
ENDIF.
IF itab_zycit001-regime = '04' AND itab_zycit001-tpdecl = 'DI'.
SELECT SINGLE * FROM /pws/zycit042
WHERE nrseqnf = itab_zycit443-nrseqda.
IF sy-subrc = 0.
MOVE /pws/zycit042-nrseqnf TO v_nrseqnf.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit042
WHERE nrseqnf = itab_zycit100-nrseqdi.
...
...
IF sy-subrc EQ 0.
MOVE: itab_zycit132-status TO itab_imp_rel-cancelado.
ENDIF.
APPEND itab_imp_rel.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 02 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 11 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-005 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-111 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 03 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 02 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-006 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-005 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 04 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 03 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-028 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-006 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 09 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 04 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-085 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-028 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 10 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 09 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-089 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-085 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit006.
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 11 AND NOT
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
IF itab_zycit006-tpfatura = 10 AND NOT
* << Fim da inclusão
itab_zycit006-belnr_p IS INITIAL AND
itab_zycit006-eliminado IS INITIAL.
v_nritem = v_nritem + 1.
CLEAR itab_imp_rel.
MOVE: v_nritem TO itab_imp_rel-nrlin ,
itab_zycit006-belnr_p TO itab_imp_rel-nrdoc ,
* >> Início da exclusão: FORM MOVE_DADOS_ALV_GRID
text-111 TO itab_imp_rel-tpdoc ,
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
text-089 TO itab_imp_rel-tpdoc ,
* << Fim da inclusão
text-039 TO itab_imp_rel-idrill,
itab_zycit006-nrseq TO itab_imp_rel-nrseq ,
itab_zycit006-nrfat TO itab_imp_rel-embarca,
text-008 TO itab_imp_rel-origem.
APPEND itab_imp_rel.
ENDIF.
ENDLOOP.
IF NOT wa_zycit000-fldocanc IS INITIAL.
LOOP AT itab_zycit270 WHERE programa = text-079.
READ TABLE itab_texts
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 188
Texto: (36 caracteres)
"Ningun item para criterio informado."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 189
Texto: (29 caracteres)
"Informar peso con 5 decimales"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 190
Texto: (38 caracteres)
"Process closed. Impossible to reverse!"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 190
Texto: (43 caracteres)
"Processo já encerrado. Impossível Estornar!"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 190
Texto: (38 caracteres)
"Proceso encerrado. Imposible Extornar!"
Comprimento máximo: 43
------------------------------------------------------------------------