CE PLUS - Nota 004568
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 29/08/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:04:05
Descrição da Nota: EXCLUSÃO DA FUNÇÃO TRATA_ORDEM NO MEMORANDO DE EXPORTAÇÃO
Sintoma
Função obsoleta
Solução
Exclusão da Função Trata_Ordem, devido a função não ser necessária.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04568 Data: 29/08/2007 Hora: 16:44:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04568
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXCLUSÃO DA FUNÇÃO TRATA_ORDEM NO MEMORANDO DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRATA_ORDEM MEMORANDO DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER305
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER305
...
/pws/zycet221,
t005t,
vttk,
j_1bnfdoc,
vbrp,
* >> Início da inclusão:
/pws/zycet002.
* << Fim da inclusão
DATA: itab_zycet031 LIKE /pws/zycet031 OCCURS 0 WITH HEADER LINE,
itab_zycet047 LIKE /pws/zycet047 OCCURS 0 WITH HEADER LINE,
itab_zycet001 LIKE /pws/zycet001 OCCURS 0 WITH HEADER LINE,
itab_zycet015 LIKE /pws/zycet015 OCCURS 0 WITH HEADER LINE,
itab_zycet020 LIKE /pws/zycet020 OCCURS 0 WITH HEADER LINE,
* >> Início da exclusão:
itab_zycee085 LIKE /pws/zycee085 OCCURS 0 WITH HEADER LINE,
itab_saida LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
itab_t001w LIKE t001w OCCURS 0 WITH HEADER LINE,
...
...
PERFORM formatar_cgc USING v_cgc.
itab_exp-cnpj = v_cnpj.
MODIFY itab_exp.
LOOP AT itab_zycet002 WHERE vbeln_vf = itab_exp-vbeln.
itab_zycet002-filial = v_cnpj+11(4).
MODIFY itab_zycet002.
ENDLOOP.
ENDLOOP.
DELETE itab_zycet002 WHERE filial IS initial.
IF NOT itab_zycet002[] IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DADOS
PERFORM trata_ordem.
* << Fim da exclusão
SELECT *
FROM t001w
INTO TABLE itab_t001w
FOR ALL ENTRIES IN itab_zycet002
WHERE werks EQ itab_zycet002-werks.
SELECT docnum itmnum charg menge meins
matnr maktx netpr netwr refkey refitm
FROM j_1bnflin
INTO TABLE itab_j1bnflin
FOR ALL ENTRIES IN itab_zycet002
...
...
ENDIF.
ENDFORM.
FORM formatar_cgc USING v_cgc.
CLEAR : v_cnpj.
CALL FUNCTION 'CONVERSION_EXIT_CGCBR_OUTPUT'
EXPORTING
input = v_cgc
IMPORTING
output = v_cnpj.
ENDFORM.
* >> Início da exclusão: FORM TRATA_ORDEM
FORM trata_ordem.
LOOP AT itab_zycet002.
num_seq = itab_zycet002-nrseq.
num_seq2 = num_seq2 + 1.
itab_zycee085-nrseq = num_seq2.
SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.
UNPACK itab_zycee085-nrseq TO itab_zycee085-nrseq.
MOVE : itab_zycet002-mandt TO itab_zycee085-mandt,
itab_zycet002-vbeln_va TO itab_zycee085-vbeln_va,
itab_zycet002-vbeln_vf TO itab_zycee085-vbeln_vf,
itab_zycet002-vbeln_vl TO itab_zycee085-vbeln_vl,
itab_zycet002-posnl TO itab_zycee085-posnl,
itab_zycet002-posnr TO itab_zycee085-posnr,
itab_zycet002-aupos TO itab_zycee085-aupos,
itab_zycet002-ntgew TO itab_zycee085-ntgew,
itab_zycet002-brgew TO itab_zycee085-brgew,
itab_zycet002-shkzg TO itab_zycee085-shkzg,
itab_zycet002-nfnum TO itab_zycee085-nfnum,
itab_zycet002-auart TO itab_zycee085-auart,
itab_zycet002-waers TO itab_zycee085-waers,
itab_zycet002-gewei TO itab_zycee085-gewei,
itab_zycet002-inco1 TO itab_zycee085-inco1,
itab_zycet002-fkimg TO itab_zycee085-fkimg,
itab_zycet002-vrkme TO itab_zycee085-vrkme,
itab_zycet002-fkart TO itab_zycee085-fkart.
APPEND itab_zycee085.
CLEAR itab_zycee085.
ENDLOOP.
EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.
CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'
EXPORTING
nrseq = num_seq
TABLES
t_saida = itab_saida.
FREE MEMORY ID 'ODOC'.
IF NOT itab_saida[] IS INITIAL.
LOOP AT itab_zycet002.
v_index = sy-tabix.
READ TABLE itab_saida WITH KEY vbeln_va = itab_zycet002-vbeln_va
vbeln_vf = itab_zycet002-vbeln_vf
vbeln_vl = itab_zycet002-vbeln_vl
posnl = itab_zycet002-posnl
posnr = itab_zycet002-posnr
aupos = itab_zycet002-aupos.
IF sy-subrc NE 0.
DELETE itab_zycet002 INDEX v_index.
ELSE.
MOVE :
itab_saida-vlme TO itab_zycet002-vlme,
itab_saida-ntgew TO itab_zycet002-ntgew,
itab_saida-brgew TO itab_zycet002-brgew,
itab_saida-vfob TO itab_zycet002-vlfob,
itab_saida-fkimg TO itab_zycet002-fkimg,
itab_saida-vlcomis TO itab_zycet002-vlagente.
MODIFY itab_zycet002 INDEX v_index.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM verifica_tela.
IF s_emp3 IS INITIAL.
MESSAGE i001 WITH text-009.
STOP.
ENDIF.
IF qtdvias EQ 0.
MESSAGE i001 WITH text-010.
STOP.
ENDIF.
ENDFORM.
...