Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Pasta Container
Data/Hora da Publicação: 15/12/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 14:43:29
Descrição da Nota: CONTAINER TRAZ ITENS DEVOLVIDOS COMPLETAMENTE
Sintoma
Ao devolver completamente um item no Embarque de Exportação e chamar a funcionalidade de Container,
os dados do item devolvido aparecem no Container.
Solução
Efetuar o cálculo de forma correta.
6.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00459 Data: 15/12/2005 Hora: 15:35:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00459
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00415 - 00001 - 6.0 - 00022 - ORDENS DE DEVOLUÇÃO CONSIDERADAS NO PROGRAMA DE CONTAINER
----------------------------------------------------------------------------------------------------
CONTAINER TRAZ ITENS DEVOLVIDOS COMPLETAMENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO CONTAINER DEVOLUÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE106F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE106F01
...
DATA: END OF it_002_aux.
DATA: BEGIN OF it_vbak_aux OCCURS 0,
vbeln LIKE vbak-vbeln,
vbtyp LIKE vbak-vbtyp,
END OF it_vbak_aux.
* >> Início da inclusão: FORM SELECT_DADOS
DATA: BEGIN OF itab_vbap2 OCCURS 0,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
netwr TYPE vbap-netwr,
kwmeng TYPE vbap-kwmeng,
vrkme TYPE vbap-vrkme,
END OF itab_vbap2.
DATA: BEGIN OF itab_vbrp2 OCCURS 0,
vbeln TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
netwr TYPE vbrp-netwr,
END OF itab_vbrp2.
* << Fim da inclusão
SELECT * FROM /pws/zycet002
INTO TABLE it_zycet002
WHERE nrseq = /pws/zycee001-nrseq.
SELECT * FROM /pws/zycet023
INTO TABLE it_zycet023.
...
...
ENDLOOP.
CLEAR it_zycet002. REFRESH it_zycet002.
it_zycet002[] = it_zycet002_ov[].
ENDIF.
IF v_autom NE 'X'.
* >> Início da inclusão: FORM SELECT_DADOS
IF NOT it_zycet002[] IS INITIAL.
SELECT vbeln
posnr
matnr
netwr
kwmeng
vrkme
FROM vbap
INTO TABLE itab_vbap2
FOR ALL ENTRIES IN it_zycet002
WHERE vbeln = it_zycet002-vbeln_va AND
posnr = it_zycet002-aupos.
SELECT vbeln
posnr
netwr
FROM vbrp
INTO TABLE itab_vbrp2
FOR ALL ENTRIES IN it_zycet002
WHERE vbeln = it_zycet002-vbeln_vf AND
posnr = it_zycet002-posnr.
ENDIF.
* << Fim da inclusão
LOOP AT it_zycet002.
nrseq = nrseq + 001.
itab_zycee085-nrseq = nrseq.
SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.
DO 9 TIMES.
...
...
MOVE : it_zycet002-mandt TO itab_zycee085-mandt,
it_zycet002-vbeln_va TO itab_zycee085-vbeln_va,
it_zycet002-aupos TO itab_zycee085-aupos,
it_zycet002-vbeln_vf TO itab_zycee085-vbeln_vf,
it_zycet002-posnr TO itab_zycee085-posnr,
* >> Início da exclusão: FORM SELECT_DADOS
it_zycet002-vlme TO itab_zycee085-vlme,
* << Fim da exclusão
it_zycet002-ntgew TO itab_zycee085-ntgew,
it_zycet002-brgew TO itab_zycee085-brgew,
it_zycet002-shkzg TO itab_zycee085-shkzg,
it_zycet002-nfnum TO itab_zycee085-nfnum,
it_zycet002-auart TO itab_zycee085-auart,
it_zycet002-waers TO itab_zycee085-waers,
it_zycet002-gewei TO itab_zycee085-gewei,
it_zycet002-bukrs TO itab_zycee085-bukrs,
it_zycet002-fkart TO itab_zycee085-fkart,
it_zycet002-pstyv TO itab_zycee085-pstyv.
* >> Início da inclusão: FORM SELECT_DADOS
IF itab_zycee085-vbeln_va IS INITIAL AND
itab_zycee085-aupos IS INITIAL.
MOVE: it_zycet002-ebeln TO itab_zycee085-vbeln_va,
it_zycet002-ebelp TO itab_zycee085-aupos.
ENDIF.
READ TABLE itab_vbap2 WITH KEY vbeln = it_zycet002-vbeln_va
posnr = it_zycet002-aupos.
IF sy-subrc = 0.
IF itab_vbap2-kwmeng > 0.
PERFORM converte_um USING it_zycet002-fkimg
it_zycet002-vrkme
itab_vbap2-vrkme
itab_vbap2-matnr
CHANGING it_zycet002-fkimg.
itab_zycee085-vlme =
( itab_vbap2-netwr / itab_vbap2-kwmeng ) *
it_zycet002-fkimg.
ELSE.
itab_zycee085-vlme = itab_vbap2-netwr.
ENDIF.
ENDIF.
READ TABLE itab_vbrp2 WITH KEY vbeln = it_zycet002-vbeln_vf
posnr = it_zycet002-posnr.
IF sy-subrc = 0.
MOVE: itab_vbrp2-netwr TO itab_zycee085-vlme.
ENDIF.
* << Fim da inclusão
APPEND itab_zycee085.
ENDLOOP.
EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.
CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'
TABLES
...
...
object_id = 'CATSXT_START_IMAGE'
object_url = 'CATSXT_START_IMAGE'
EXCEPTIONS
OTHERS = 1.
ENDFORM.
* >> Início da inclusão:
FORM converte_um USING value(p_quant_de)
value(p_um_de) LIKE mara-meins
value(p_um_para) LIKE mara-meins
value(p_matnr) LIKE mara-matnr
CHANGING p_quant_para.
DATA: v_i_menge LIKE ekpo-menge,
v_e_menge LIKE ekpo-menge.
IF p_quant_de IS INITIAL.
CLEAR p_quant_para.
EXIT.
ENDIF.
IF p_um_de EQ p_um_para.
p_quant_para = p_quant_de.
EXIT.
ENDIF.
v_i_menge = p_quant_de.
CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
EXPORTING
i_matnr = p_matnr
i_in_me = p_um_de
i_out_me = p_um_para
i_menge = v_i_menge
IMPORTING
e_menge = v_e_menge
EXCEPTIONS
error_in_application = 1
error = 2
OTHERS = 3.
IF sy-subrc NE 0.
p_quant_para = p_quant_de.
ELSE.
p_quant_para = v_e_menge.
ENDIF.
endform.
* << Fim da inclusão