Sintoma

O recebimento do embarque 295I06 gerou um lançamento na MIRO com valor extremamente errado, foi

identificado pelo Marcus que custos efetivos deste embarque estão errados e para resolver o problema

deveria ser estornado o recebimento para em seguida corrigir a tabela de custos e fazer o

recebimento novamente, mas ao estornar embarque o sistema não estornou os documentos apesar de nas

tabelas do CE estarem indicando que o estorno foi feito. Aguardo solução urgente visto que o custo

do produto ter sido afetado no recebimento feito em 18/05

Solução

Inserida a função /PWS/ZYCI_ENQUEUE_ZYCIT001

Informações Complementares

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

Nota Número 01748 Data: 14/07/2006 Hora: 14:31:21

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

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

Nota Número              : 01748

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

O RECEBIMENTO DO EMBARQUE 295I06 GEROU UM LANÇAMENTO NA MIRO

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

Palavras Chave:

EMBARQUE - MIRO - CUSTO - EFETIVO - ESTORNAR - RECEBIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI016I01

REPT /PWS/SAPMZYCI016

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

...

             WHERE nrseq IN itab_nrseqdi

               AND cancel NE 'X'.

            IF sy-subrc EQ 0.

              MESSAGE s015 WITH text-064.

              EXIT.

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

          ELSE.

            IMPORT /pws/zycie001-embarca FROM MEMORY ID '0001'.

            IF sy-subrc NE '0'.

              SELECT SINGLE nrseq FROM /pws/zycit100 INTO v_nrseq

                WHERE nrseqdi IN itab_nrseqdi       .

              IF sy-subrc EQ 0.

                CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT001'

                     EXPORTING

                          nrseq          = /pws/zycit100-nrseq

                     EXCEPTIONS

                          foreign_lock   = 1

                          system_failure = 2.

                IF sy-subrc = 1 .

                  CLEAR v_nrseq.

                  MESSAGE s015 WITH text-096.

                  EXIT.

                ENDIF.

              ENDIF.

* << Fim da inclusão

            ENDIF.

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

          ENDIF.

* << Fim da inclusão

        ELSEIF sy-tcode = '/PWS/ZYCI016_A'.

...

...

             WHERE nrseq IN itab_nrseqdi

               AND cancel NE 'X'.

          ENDIF.

          IF sy-subrc NE 0.

            MESSAGE s015 WITH text-063.

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

            EXIT.

          ELSE.

            IMPORT /pws/zycie001-embarca FROM MEMORY ID '0001'.

            IF sy-subrc NE '0'.

              SELECT SINGLE nrseq FROM /pws/zycit100 INTO v_nrseq

                WHERE nrseqdi IN itab_nrseqdi       .

              IF sy-subrc EQ 0.

                CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT001'

                     EXPORTING

                          nrseq          = /pws/zycit100-nrseq

                     EXCEPTIONS

                          foreign_lock   = 1

                          system_failure = 2.

                IF sy-subrc = 1 .

                  CLEAR v_nrseq.

                  MESSAGE s015 WITH text-096.

* << Fim da inclusão

            EXIT.

          ENDIF.

        ENDIF.

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

            ENDIF.

          ENDIF.

        ENDIF.

* << Fim da inclusão

        CLEAR: v_nrdi, v_nrseq, v_identify, /pws/zycie041.

        IF /pws/zycie041-nrdi IS INITIAL.

          v_nrdi      = /pws/zycie085-nrdi.

          v_nrseq     = /pws/zycie085-nrseqdi.

          v_identify  = /pws/zycie085-identify.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI016

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 012

Texto: (24 caracteres)

"Alteraciones Efectuadas."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 041

Texto: (38 caracteres)

"Especial fabricante cigarrill 03.02.84"

Comprimento máximo: 38

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 045

Texto: (4 caracteres)

"Fech"

Comprimento máximo: 4

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 059

Texto: (21 caracteres)

"Nº Nota Fiscal Global"

Comprimento máximo: 21

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 086

Texto: (3 caracteres)

"PIS"

Comprimento máximo: 3

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 087

Texto: (6 caracteres)

"COFINS"

Comprimento máximo: 6

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 088

Texto: (35 caracteres)

"Valor Total ICMS da la operación:R$"

Comprimento máximo: 35

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 089

Texto: (49 caracteres)

"Nota Fiscal está siendo alterada por otro usuario"

Comprimento máximo: 49

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 090

Texto: (21 caracteres)

"Sólo es posible exhib"

Comprimento máximo: 21

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 091

Texto: (39 caracteres)

"Campo Empresa en la DI no está llenado."

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 092

Texto: (49 caracteres)

"Campo Local de Negocio en la DI, no está llenado."

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 093

Texto: (44 caracteres)

"Campo URF Despacho en la DI no está llenado."

Comprimento máximo: 45

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 094

Texto: (27 caracteres)

"Usuario no tiene autorizaci"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 095

Texto: (26 caracteres)

"para ejecutar vía Shift F9"

Comprimento máximo: 26

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 096

Texto: (49 caracteres)

"O Embarque está sendo alterado por outro usuário."

Comprimento máximo: 49