Sintoma

O campo grupo de material não está sendo preenchido na pasta resumo de exportações.

Solução

incluir campo na tabela de resumo e efetuar tratamento para o mesmo.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06496 Data: 05/05/2008 Hora: 08:23:05

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 06496

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00046

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

06336  - 00001 - 7.0    - 00005  - AJUSTE NA COMPOSIÇÃO PARA TRATAR TIPO INTERMEDIARIO-IMPORTADOR

----------------------------------------------------------------------------------------------------

PREENCHIMENTO DO CAMPO GRUPO DE MATERIAIS NO RESUMO DE EXPORTAÇÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

PREENCHIMENTO - CAMPO - GRUPO - MATERIAL - RESUMO - EXPORTAÇÃO

/PWS/SAPMZYCI064

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCI064                        0303

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064O01

REPS /PWS/MZYCI064X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0303

MODIFICAR OKCODE ""

INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-AGRUP" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      3

Linha                    1

Coluna                   3

Formato                  CHAR

Grupo 1                  NEX

Grupo 2                  GRP

Linhas mínimas           3

Texto                    ___

INCLUIR TEXTO "/PWS/ZYCIE259-AGRUP" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      15

Linha                    1

Coluna                   3

Formato                  CHAR

Texto                    Agrupamento

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.

Coluna                   9

MODIFICAR TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.

Coluna                   9

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-MVGR1" em tbl.contr./tabstr.

Coluna                   4

MODIFICAR TEXTO "/PWS/ZYCIE259-MVGR1" em tbl.contr./tabstr.

Coluna                   4

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.

Coluna                   10

MODIFICAR TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.

Coluna                   10

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLAL" em tbl.contr./tabstr.

Coluna                   7

MODIFICAR TEXTO "/PWS/ZYCIE259-STLAL" em tbl.contr./tabstr.

Coluna                   7

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLAN" em tbl.contr./tabstr.

Coluna                   5

MODIFICAR TEXTO "/PWS/ZYCIE259-STLAN" em tbl.contr./tabstr.

Coluna                   5

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLNR" em tbl.contr./tabstr.

Coluna                   6

MODIFICAR TEXTO "/PWS/ZYCIE259-STLNR" em tbl.contr./tabstr.

Coluna                   6

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.

Coluna                   12

MODIFICAR TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.

Coluna                   12

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.

Coluna                   11

MODIFICAR TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.

Coluna                   11

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE260D-T_AFRMM" em tbl.contr./tabstr.

Coluna                   17

MODIFICAR TEXTO "/PWS/ZYCIE260D-T_AFRMM" em tbl.contr./tabstr.

Coluna                   17

MODIFICAR TEXTO "/PWS/ZYCIE260D-VLCOFINS" em tbl.contr./tabstr.

Coluna                   19

MODIFICAR TEXTO "/PWS/ZYCIE260D-VLPIS" em tbl.contr./tabstr.

Coluna                   18

MODIFICAR CAMPO TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.

Coluna                   8

MODIFICAR TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.

Coluna                   8

MODIFICAR CAMPO TEXTO "V_DTPRE" em tbl.contr./tabstr.

Coluna                   13

MODIFICAR TEXTO "V_DTPRE" em tbl.contr./tabstr.

Coluna                   13

MODIFICAR CAMPO TEXTO "V_DTURE" em tbl.contr./tabstr.

Coluna                   14

MODIFICAR TEXTO "V_DTURE" em tbl.contr./tabstr.

Coluna                   14

MODIFICAR CAMPO TEXTO "V_TBENEF_0303" em tbl.contr./tabstr.

Coluna                   20

MODIFICAR TEXTO "V_TBENEF_0303" em tbl.contr./tabstr.

Coluna                   20

MODIFICAR CAMPO TEXTO "V_TCOFRES_0303" em tbl.contr./tabstr.

Coluna                   19

MODIFICAR CAMPO TEXTO "V_TIIRES_0303" em tbl.contr./tabstr.

Coluna                   15

MODIFICAR TEXTO "V_TIIRES_0303" em tbl.contr./tabstr.

Coluna                   15

MODIFICAR CAMPO TEXTO "V_TIPIRES_0303" em tbl.contr./tabstr.

Coluna                   16

MODIFICAR TEXTO "V_TIPIRES_0303" em tbl.contr./tabstr.

Coluna                   16

MODIFICAR CAMPO TEXTO "V_TPISRES_0303" em tbl.contr./tabstr.

Coluna                   18

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

                 CHANGING itab_log-log3.

        PERFORM log USING itab_msg_erro-icon4

                 CHANGING itab_log-log4.

        PERFORM log USING itab_msg_erro-icon5

                 CHANGING itab_log-log5.

        PERFORM log USING itab_msg_erro-icon6

                 CHANGING itab_log-log6.

        APPEND itab_log.

      ENDLOOP.

      EXPORT itab_log TO MEMORY ID idmemory1.

* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3

      SUBMIT /pws/zycir346 AND RETURN.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3

      SUBMIT /pws/zycir346 AND RETURN.                   "#EC CI_SUBMIT

* << Fim da inclusão

    ENDIF.

    PERFORM limpa_tabelas.

    REFRESH: itab_zycit423, itab_zycit421.

    IF /pws/zycit321-ltopc EQ '1'.

      SELECT * FROM /pws/zycit423

      INTO TABLE itab_zycit423.                         "#EC CI_NOWHERE

      SELECT * FROM /pws/zycit421

      INTO TABLE itab_zycit421.                         "#EC CI_NOWHERE

    ENDIF.

    PERFORM equip_exp.

...

...

  LOOP AT itab_di_final_aux.

    IF  itab_di_final_aux-sdo_qtd <= 0.

      UPDATE /pws/zycit003 SET nrcarga = 'X'

                WHERE nrseq = itab_di_final_aux-nrseqemb

                  AND ebeln = itab_di_final_aux-ebeln

                  AND ebelp = itab_di_final_aux-ebelp.

      IF sy-subrc NE 0.

        UPDATE /pws/zycit279 SET esgotado = 'X'

                WHERE ebeln  = itab_di_final_aux-ebeln

                  AND ebelp  = itab_di_final_aux-ebelp

* >> Início da exclusão: FORM TRATA_BUTTON_SAVE3

                  AND docnum = itab_di_final_aux-docnum.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_BUTTON_SAVE3

                  AND docnum = itab_di_final_aux-docnum."#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

    ELSE.

      UPDATE /pws/zycit003 SET nrcarga = ' '

                WHERE nrseq = itab_di_final_aux-nrseqemb

                  AND ebeln = itab_di_final_aux-ebeln

                  AND ebelp = itab_di_final_aux-ebelp.

      IF sy-subrc NE 0.

        UPDATE /pws/zycit279 SET esgotado = ' '

                WHERE ebeln  = itab_di_final_aux-ebeln

                  AND ebelp  = itab_di_final_aux-ebelp

* >> Início da exclusão: FORM TRATA_BUTTON_SAVE3

                  AND docnum = itab_di_final_aux-docnum.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_BUTTON_SAVE3

                  AND docnum = itab_di_final_aux-docnum."#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

    ENDIF.

    DELETE itab_di_dele

                  WHERE nrseqemb = itab_di_final_aux-nrseqemb

                    AND ebeln    = itab_di_final_aux-ebeln

                    AND ebelp    = itab_di_final_aux-ebelp

                    AND docnum   = itab_di_final_aux-docnum.

  ENDLOOP.

  LOOP AT itab_di_dele.

    UPDATE /pws/zycit003 SET nrcarga = ' '

                  WHERE nrseq = itab_di_dele-nrseqemb

                    AND ebeln = itab_di_dele-ebeln

                    AND ebelp = itab_di_dele-ebelp.

    IF sy-subrc NE 0.

      UPDATE /pws/zycit279 SET esgotado = ' '

                            WHERE ebeln  = itab_di_dele-ebeln

                              AND ebelp  = itab_di_dele-ebelp

* >> Início da exclusão: FORM TRATA_BUTTON_SAVE3

                              AND docnum = itab_di_dele-docnum.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_BUTTON_SAVE3

                        AND docnum = itab_di_dele-docnum."#EC CI_NOFIRST

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

  REFRESH itab_di_dele.

  COMMIT WORK.

  IF sy-subrc EQ 0.

    pressed_tab_3c   = 'FS_CABEC3'.

    pressed_tab_3c_2 = 'FS_RESUMO3'.

    pressed_tab_3c_3 = 'FS_RES_IMP3'.

    pressed_tab_3c_4 = 'FS_VCP3'.

    dynpronr3c       = '0301'.

...

...

      ENDIF.

      IF v_dtfim IS INITIAL OR itab_zycit371-dtate < v_dtfim .

        v_dtfim = itab_zycit371-dtate.

      ENDIF.

    ENDLOOP.

  ELSE.

    LOOP AT itab_det_exp_final.

      CLEAR itab_resumo.

      MOVE: itab_det_exp_final-codmat   TO itab_resumo-codmat  ,

            itab_det_exp_final-agrup    TO itab_resumo-agrup   ,

* >> Início da inclusão: FORM CARREGA_RESUMO_EXPORTACAO3

            itab_det_exp_final-mvgr1    TO itab_resumo-mvgr1   ,

* << Fim da inclusão

            itab_det_exp_final-werks    TO itab_resumo-werks   ,

            itab_det_exp_final-qtd_iten TO itab_resumo-qtd_iten,

            itab_det_exp_final-meins    TO itab_resumo-meins   ,

            itab_det_exp_final-waersfob TO itab_resumo-waersfob,

            itab_det_exp_final-vlfob    TO itab_resumo-vlfob   .

      COLLECT itab_resumo.

    ENDLOOP.

    SORT itab_det_exp_final BY dtre ASCENDING.

    SORT itab_resumo        BY codmat.

    CLEAR: v_dtini, v_dtfim, v_idxtmp.

...

...

        COMPARING nrseqemb docnum ebeln ebelp.

    LOOP AT itab_di_final.

      UPDATE /pws/zycit003 SET nrcarga = ' '

                    WHERE nrseq = itab_di_final-nrseqemb

                      AND ebeln = itab_di_final-ebeln

                      AND ebelp = itab_di_final-ebelp.

      IF sy-subrc NE 0.

        UPDATE /pws/zycit279 SET esgotado = ' '

                              WHERE ebeln  = itab_di_final-ebeln

                                AND ebelp  = itab_di_final-ebelp

* >> Início da exclusão: FORM TRATA_BUTTON_EXCL3

                                AND docnum = itab_di_final-docnum.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_BUTTON_EXCL3

                       AND docnum = itab_di_final-docnum."#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    LOOP AT itab_di_dele.

      UPDATE /pws/zycit003 SET nrcarga = ' '

                    WHERE nrseq = itab_di_dele-nrseqemb

                      AND ebeln = itab_di_dele-ebeln

                      AND ebelp = itab_di_dele-ebelp.

      IF sy-subrc NE 0.

        UPDATE /pws/zycit279 SET esgotado = ' '

                              WHERE ebeln  = itab_di_dele-ebeln

                                AND ebelp  = itab_di_dele-ebelp

* >> Início da exclusão: FORM TRATA_BUTTON_EXCL3

                                AND docnum = itab_di_dele-docnum.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_BUTTON_EXCL3

                        AND docnum = itab_di_dele-docnum."#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    REFRESH itab_di_dele.

    COMMIT WORK.

    PERFORM limpa_fields3.

    LEAVE TO SCREEN 0003.

  ENDIF.

ENDFORM.

FORM trata_sele_0301.

  CLEAR: v_campo, v_valor, v_linha, v_pos.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI064O01

...

  SET PF-STATUS 'ST0003'.

  SET TITLEBAR 'TITLE1' WITH text-094.

ENDMODULE.

MODULE set_page302 OUTPUT.

  ts_exp3-activetab = pressed_tab_3c_2.

ENDMODULE.

MODULE preenche_estrutura_0303 OUTPUT.

  /pws/zycie259-codmat   = itab_resumo-codmat  .

  /pws/zycie259-werks    = itab_resumo-werks   .

  /pws/zycie259-stlan    = itab_resumo-stlan   .

* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0303

  /pws/zycie259-agrup    = itab_resumo-agrup   .

  /pws/zycie259-mvgr1    = itab_resumo-mvgr1   .

* << Fim da inclusão

  /pws/zycie259-stlnr    = itab_resumo-stlnr   .

  /pws/zycie259-stlal    = itab_resumo-stlal   .

  /pws/zycie259-qtd_iten = itab_resumo-qtd_iten.

  /pws/zycie259-vlfob    = itab_resumo-vlfob   .

  /pws/zycie259-waersfob = itab_resumo-waersfob.

  /pws/zycie259-meins    = itab_resumo-meins   .

  v_dtpre           = itab_resumo-dtpre   .

  v_dture           = itab_resumo-dture   .

  marc_l            = itab_resumo-marc_l  .

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI064X01

...

DATA : BEGIN OF itab_zycit434 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit434.

DATA: mark.

DATA : END   OF itab_zycit434.

DATA: BEGIN OF it_log_erro3 OCCURS 0.

DATA:   ltext(135) TYPE c.

DATA: END OF it_log_erro3.

DATA: BEGIN OF itab_resumo OCCURS 0,

        codmat    LIKE /pws/zycie259-codmat  ,

        agrup     TYPE /pws/zycie259-agrup,

* >> Início da inclusão:

        mvgr1     TYPE /pws/zycie259-mvgr1,

* << Fim da inclusão

        qtd_iten  LIKE /pws/zycie259-qtd_iten,

        vlfob     LIKE /pws/zycie259-vlfob   ,

        dtpre     LIKE /pws/zycie259-dtre    ,

        dture     LIKE /pws/zycie259-dtre    ,

        werks     LIKE /pws/zycie259-werks   ,

        stlan     LIKE /pws/zycie259-stlan   ,

        stlnr     LIKE /pws/zycie259-stlnr   ,

        stlal     LIKE /pws/zycie259-stlal   ,

        waersfob  TYPE /pws/zycie259-waersfob,

        meins     TYPE /pws/zycie259-meins   ,

...