Sintoma

Os processos do Chile não está ocorrendo atualização do Status do Embarque

Solução

Realizar o tratamento do Status do Embarque nos processos de ANA

Informações Complementares

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

Nota Número 09434 Data: 24/11/2009 Hora: 10:09:47

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

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

Nota Número              : 09434

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00124

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PROCESSOS ARGENTINA/ CHILE ANA NÃO ESTA ALTERANDO O STATUS DO EMBARQUE

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

Palavras Chave:

ANA - ARGENTINA - CHILE - STATUS - EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F03

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

...

    ENDIF.

  ENDIF.

  IF NOT /pws/zycie085-dtreg IS INITIAL AND

     NOT /pws/zycie085-nana IS INITIAL.

    PERFORM salva_fatura.

  ENDIF.

  IF NOT /pws/zycie085-nana  IS INITIAL OR

     NOT /pws/zycie085-dtreg IS INITIAL.

    PERFORM atualiza_status.

  ENDIF.

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

  IF NOT itab_it-nrseq IS INITIAL .

    SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001

             WHERE  nrseq = itab_it-nrseq.

    APPEND it_zycit001.

    READ TABLE it_zycit001 INDEX 1.

    IF /pws/zycie085-dtdesemb IS INITIAL .

        IF NOT itab_it-nrseq IS INITIAL.

          it_zycit001-status  = 'DB' .

          MODIFY it_zycit001 INDEX 1.

          MODIFY /pws/zycit001 FROM TABLE it_zycit001.

          IF sy-subrc = 0.

            PERFORM atualiza_status.

        ENDIF.

      ENDIF.

    ELSE.

        it_zycit001-status  = 'DS' .

        UPDATE /pws/zycit001 SET   status   = 'DS'

              WHERE nrseq = itab_it-nrseq.

        MODIFY it_zycit001 INDEX 1.

        MODIFY /pws/zycit001 FROM TABLE it_zycit001.

      IF sy-subrc = 0.

        PERFORM atualiza_status.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.

  APPEND /pws/zycie085 TO itab_zycit085.

  SORT itab_zycit085 BY nrseqdi.

  COMMIT WORK.

  MESSAGE i017 WITH text-060.

  v_salvou = 'X' .

  CLEAR:   v_changed,

           itab_zycit086a,

           itab_zycit087a,

           itab_zycit095a,

...

...

      ENDIF.

      IF sy-subrc EQ 0 AND  /pws/zycit041-docnum = '8888888888'.

        MESSAGE i015 WITH text-028.

      ELSE.

        v_changed = '1'.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM data_dele.

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

  SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001

          WHERE  nrseq = itab_it-nrseq.

  APPEND it_zycit001.

  READ TABLE it_zycit001 INDEX 1.

  it_zycit001-status  = 'AB' .

  UPDATE /pws/zycit001 SET   status   = 'AB'

    WHERE nrseq = itab_it-nrseq.

  MODIFY it_zycit001 INDEX 1.

  MODIFY /pws/zycit001 FROM TABLE it_zycit001.

  PERFORM atualiza_status.

* << Fim da inclusão

  IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.

    DELETE FROM /pws/zycit042 WHERE

    nrseqnf = /pws/zycie085-nrseqdi AND

    tpnf = '01' AND

    nfglobal = /pws/zycit041-nfglobal AND

    docnum = /pws/zycit041-docnum.

    DELETE FROM /pws/zycit041 WHERE

    nrseq = /pws/zycie085-nrseqdi AND

    nfglobal = /pws/zycit041-nfglobal AND

    docnum = /pws/zycit041-docnum.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

      MESSAGE i015 WITH text-234.

    ENDIF.

  ENDIF.

  IF /pws/zycie085-aduana IS INITIAL.

    SELECT SINGLE lifnr FROM /pws/zycit125 INTO /pws/zycie085-aduana

    WHERE tipo = 'ADU' AND nrseq = /pws/zycie100a-nrseq.

    MOVE  /pws/zycie085-aduana TO /pws/zycie085-aduanadest.

  ENDIF.

ENDFORM.

FORM atualiza_status.

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

  SELECT SINGLE * FROM /pws/zycit100 INTO it_zycit100

           WHERE  nrseqdi = /pws/zycie085-nrseqdi.

  APPEND it_zycit100.

  READ TABLE it_zycit100 INDEX 1.

  SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001

           WHERE  nrseq = it_zycit100-nrseq.

  APPEND it_zycit001.

  READ TABLE it_zycit001 INDEX 1.

  IF NOT it_zycit001-status = 'DB'.

    it_zycit001-status = 'DB'.

    MODIFY it_zycit001 INDEX 1.

    MODIFY /pws/zycit001 FROM TABLE it_zycit001.

* << Fim da exclusão

    CLEAR it_zycit255. REFRESH it_zycit255.

    MOVE: sy-mandt             TO it_zycit255-mandt,

          it_zycit001-nrseq    TO it_zycit255-nrseq,

          it_zycit001-status   TO it_zycit255-status,

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

          sy-datum             TO it_zycit255-data,

* << Fim da exclusão

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

        sy-datlo             TO it_zycit255-data,

* << Fim da inclusão

          sy-uzeit             TO it_zycit255-hora,

          sy-uname             TO it_zycit255-usuario.

    APPEND it_zycit255.

    INSERT INTO /pws/zycit255 VALUES it_zycit255.

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

  ENDIF.

* << Fim da exclusão

ENDFORM.

FORM send.

  IF wa_zycit136-nrseq IS INITIAL.

...