Sintoma

Ao clicar no botão de recebimento para processos Argentina não está sendo executado o programa de

recebimento.

Solução

Ajustado programa de mebarque para chamar o programa de recebimento quando o país não estiver

parametrizado na tabela /pws/zycit477.

Informações Complementares

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

Nota Número 08961 Data: 04/09/2009 Hora: 10:51:01

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

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

Nota Número              : 08961

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00112

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

Referência às notas relacionadas:

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

06979  - 00001 - 7.0    - 00006  - AJUSTES FRETE INTERNACIONAL E SEGURO PARA EMBARQUES DE REGIME 16

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

RECEBIMENTO DE PROCESSO ARGENTINA

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

Palavras Chave:

RECEBIMENTO - ARGENTINA - CENTRO - /PWS/ZYCIT042 - PROCESSO - ARGENTINA

/PWS/SAPMZYCI001 -

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

Objetos da nota:

DTED /PWS/ZYCIL037

DYNP /PWS/SAPMZYCI005                        0100

DYNP /PWS/SAPMZYCI005                        0300

DYNP /PWS/SAPMZYCI007                        0100

DYNP /PWS/SAPMZYCI059                        0141

REPS /PWS/MZYCI001F02

REPS /PWS/MZYCI059F03

REPT /PWS/SAPMZYCI059

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI059                        0141

INCLUIR TEXTO "T_CONTA"

Comprimento Visível      22

Linha                    2

Coluna                   53

Formato                  CHAR

Texto                    Titular da Conta

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

Modificações efetuadas em REPS /PWS/MZYCI001F02

...

  v_nrseqdi = itab_zycit100-nrseqdi.

  IF /pws/zycit085 IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit085

         WHERE nrseqdi = v_nrseqdi.

  ENDIF.

  CLEAR: e_contab.

  PERFORM check_contab_fat CHANGING e_contab.

  IF e_contab EQ 'X'.

    EXIT.

  ENDIF.

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

  IF v_land1 EQ 'AR' OR v_land1 EQ 'CL'.

* << Fim da exclusão

    READ TABLE itab_zycit477 WITH KEY land = v_land1.

    IF sy-subrc EQ 0 .

      SELECT SINGLE nrseq FROM /pws/zycit042

      INTO /pws/zycit100-nrseq                          "#EC CI_NOFIRST

        WHERE nrseq = /pws/zycie001-nrseq.

...

...

      ELSE.

        SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycit085-nrseqdi.

        SET PARAMETER ID '/PWS/ZYGLP089' FIELD /pws/zycit085-identify.

        IF v_status_s = 1 AND /pws/zycie001-status_e NE 'E'.

          PERFORM valida_trans USING '/PWS/ZYCI080_A' 'skip'.

        ELSE.

          PERFORM valida_trans USING '/PWS/ZYCI080_E' 'skip'.

        ENDIF.

      ENDIF.

      EXIT.

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

    ENDIF.

* << Fim da exclusão

  ELSE .

    IF sy-tcode EQ '/PWS/ZYCI001_C'.

      SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycit085-nrseqdi.

      SET PARAMETER ID '/PWS/ZYGLP089' FIELD /pws/zycit085-identify.

      PERFORM valida_trans USING '/PWS/ZYCI017_C' 'skip'.

    ELSEIF sy-tcode EQ '/PWS/ZYCI001_A'.

      SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycit085-nrseqdi.

      SET PARAMETER ID '/PWS/ZYGLP089' FIELD /pws/zycit085-identify.

      PERFORM valida_trans USING '/PWS/ZYCI017_A' 'skip'.

    ELSEIF sy-tcode EQ '/PWS/ZYCI001_E'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

FORM save_origem_nf.

  REFRESH: itab_zycit042.

  CLEAR /pws/zycit041.

  MOVE-CORRESPONDING /pws/zycie001 TO /pws/zycit041.

  PERFORM find_nrseqc.

  /pws/zycit041-nrseq = /pws/zycie085-nrseqdi.

  /pws/zycit041-docnum = '8888888888'.

  /pws/zycit041-nfnum = '1'.

  /pws/zycit041-nrdi = /pws/zycie085-identify.

  LOOP AT itab_it.

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

    MOVE-CORRESPONDING itab_it TO itab_zycit042.

* << Fim da exclusão

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

    READ TABLE itab_zycit003

                WITH KEY ebeln = itab_it-ebeln

                         ebelp = itab_it-ebelp.

    MOVE-CORRESPONDING: itab_zycit003 TO itab_zycit042,

                        itab_it       TO itab_zycit042.

* << Fim da inclusão

    itab_zycit042-nrseqnf = itab_it-nrseqdi.

    itab_zycit042-nrseq = itab_it-nrseq.

    itab_zycit042-tpnf = '01'.

    itab_zycit042-nfnum = '1'.

    itab_zycit042-embarca = /pws/zycie001-embarca.

    itab_zycit042-nfglobal = /pws/zycit041-nfglobal.

    itab_zycit042-docnum = /pws/zycit041-docnum.

    APPEND itab_zycit042.

  ENDLOOP.

  INSERT /pws/zycit041.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI059

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 237

Texto: (16 caracteres)

"Llenar el canal!"

Comprimento máximo: 30