CE PLUS - Nota 014124

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 05/08/2014 15:21:36

Data/Hora Última Alteração: 05/08/2014 15:21:36

Descrição da Nota: SELEÇÃO DAS INFORMAÇÕES PARA EXIBIÇÃO NA PASTA PAGAMENTO

Sintoma

O programa deveria buscar os dados de conta e banco na tabela de parametro /pws/zycit256 porém está

buscando diretamente no cadastro do fornecedor e sem considerar o país.

 

 

Solução

Ajustado programa para verificar se o fornecedor informado na pasta pagamentos é o mesmo informado

na tabela de parametros /pws/zycit256, caso positivo as informações de conta serão preenchida de

acondo com esta tabela, caso contrario irá buscar as informações no cadastro do fornecedor.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

DI - /PWS/SAPMZYCI023 - AJUSTAR A LÓGICA DOS CAMPOS DATAS

Informações Complementares

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

Nota Número 14124 Data: 05/08/2014 Hora: 09:46:40

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

 

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

Nota Número              : 14124

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00008

Agrupamento              : 00173

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

Referência às notas relacionadas:

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

 

11728  - 00001 - 8.0    - 00009  - DI - /PWS/SAPMZYCI023 - AJUSTAR A LÓGICA DOS CAMPOS DATAS

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

SELEÇÃO DAS INFORMAÇÕES PARA EXIBIÇÃO NA PASTA PAGAMENTO

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

Palavras Chave:

DI - EXIBIÇÃO - PASTA - PAGAMENTO - INFORMAÇÃO - CONTA

/PWS/SAPMZYCI023 - PARAMETRO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0141

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI023F05

 

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

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

 

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0141

process before output.

module: load_typeview,

        set_screen_padrao,

        screen_lines.

* >> Início da inclusão:

        module load_banco.

* << Fim da inclusão

loop at itab_zycit095 with control tc_pag.

     module: fill_struct95,

             set_screen_lines.

endloop.

module exit_tela.

process after input.

field: /pws/zycie095a-lifnr module load_banc on request.

loop at itab_zycit095.

     module modi_data95.

endloop.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

 

...

FORM load_banco USING p_lifnr p_tipo p_bankl p_bankn p_banks.

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

  SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND

                                  bvtyp = /pws/zycie085-bukrs.

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr.

  ENDIF.

  IF sy-subrc = 0.

    s_pgban = lfbk-bankl+0(03).

    IF /pws/zycit000-nbanco IS INITIAL.

      /pws/zycit000-nbanco = 3.

    ENDIF.

    s_pgage = lfbk-bankl+/pws/zycit000-nbanco.

    s_pgcc  = lfbk-bankn.

    IF NOT lfbk-bkont+1(1) IS INITIAL.

      CONCATENATE s_pgcc '-'  lfbk-bkont+1(1) INTO s_pgcc.

    ENDIF.

    s_pgnom = lfbk-koinh.

    s_pgbks =  s_pgban.

    s_pgbkl =  lfbk-bankl.

    s_pgbkn =  lfbk-bankn.

* << Fim da exclusão

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

  PERFORM propoe_banco.

  IF   p_lifnr IS INITIAL .

    PERFORM atualiza_banco USING p_lifnr space

                                 p_bankl p_bankn

                                 p_banks.

* << Fim da inclusão

  ENDIF.

ENDFORM.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

 

...

FORM propoe_banco.

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

  IF /pws/zycie085-tpdi EQ 'S'.

    IF sy-tcode = '/PWS/ZYCI023_I' AND /pws/zycie095a-lifnr IS INITIAL.

* << Fim da exclusão

      READ TABLE itab_zycit001 INDEX 1.

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

      IF sy-subrc = 0.

        SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256

           WHERE nrdespadu EQ itab_zycit001-nrdespadu.

        IF sy-subrc = 0.

          /pws/zycie095a-lifnr    = /pws/zycit256-lifnr.

          /pws/zycie095-bankl    = /pws/zycit256-bankl.

          /pws/zycie095-bankn    = /pws/zycit256-bankn.

          s_pgnom         = /pws/zycit256-descdesp.

        ENDIF.

      ENDIF.

    ELSEIF sy-tcode = '/PWS/ZYCI023_G' AND sy-ucomm = 'REFR'.

      READ TABLE itab_zycit001 INDEX 1.

      IF sy-subrc = 0.

        SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256

           WHERE nrdespadu EQ itab_zycit001-nrdespadu.

        IF sy-subrc = 0.

          /pws/zycie095a-lifnr    = /pws/zycit256-lifnr.

          /pws/zycie095-bankl    = /pws/zycit256-bankl.

          /pws/zycie095-bankn    = /pws/zycit256-bankn.

          s_pgnom         = /pws/zycit256-descdesp.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF /pws/zycie085-tpdi EQ 'N'.

    IF sy-tcode = '/PWS/ZYCI023_C' AND /pws/zycie095a-lifnr IS INITIAL.

      READ TABLE itab_zycit001 INDEX 1.

      IF sy-subrc = 0.

* << Fim da exclusão

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

  IF sy-subrc EQ 0.

* << Fim da inclusão

        SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256

           WHERE nrdespadu EQ itab_zycit001-nrdespadu.

        IF sy-subrc = 0.

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

      IF ( sy-tcode = '/PWS/ZYCI023_C' AND

           /pws/zycie095a-lifnr IS INITIAL ) OR

         ( sy-tcode = '/PWS/ZYCI023_A' AND sy-ucomm = 'REFR'

           AND /pws/zycie095a-lifnr IS INITIAL ).

* << Fim da inclusão

          LOOP AT itab_zycit095.

            itab_zycit095-lifnr    = /pws/zycit256-lifnr.

            itab_zycit095-bankl    = /pws/zycit256-bankl.

            itab_zycit095-bankn    = /pws/zycit256-bankn.

            MODIFY itab_zycit095 INDEX sy-tabix.

          ENDLOOP.

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

          IF sy-subrc NE 0.

* << Fim da exclusão

            /pws/zycie095a-lifnr = /pws/zycit256-lifnr.

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

      ENDIF.

      IF /pws/zycie095a-lifnr EQ /pws/zycit256-lifnr.

        s_pgnom         = /pws/zycit256-descdesp.

* << Fim da inclusão

            s_pgag1 = strlen( /pws/zycit256-bankn ).

            s_pgag2 = s_pgag1 - 1.

            IF NOT /pws/zycit256-bankn IS INITIAL.

              CONCATENATE /pws/zycit256-bankn+0(s_pgag2)

                    /pws/zycit256-bankn+s_pgag2(1)

                    '-'  INTO s_pgcc.

            ENDIF.

            s_pgban = /pws/zycit256-bankl+0(3).

            s_pgage = /pws/zycit256-bankl+4(11).

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

          ENDIF.

          s_pgnom         = /pws/zycit256-descdesp.

        ENDIF.

      ENDIF.

    ELSEIF sy-tcode = '/PWS/ZYCI023_A' AND sy-ucomm = 'REFR'

           AND /pws/zycie095a-lifnr IS INITIAL.

      READ TABLE itab_zycit001 INDEX 1.

      IF sy-subrc = 0.

        SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256

           WHERE nrdespadu EQ itab_zycit001-nrdespadu.

        IF sy-subrc = 0.

          LOOP AT itab_zycit095.

            itab_zycit095-lifnr    = /pws/zycit256-lifnr.

            itab_zycit095-bankl    = /pws/zycit256-bankl.

            itab_zycit095-bankn    = /pws/zycit256-bankn.

            MODIFY itab_zycit095 INDEX sy-tabix.

          ENDLOOP.

          s_pgnom    = /pws/zycit256-descdesp.

          s_pgag1 = strlen( /pws/zycit256-bankn ).

          s_pgag2 = s_pgag1 - 1.

          IF NOT /pws/zycit256-bankn IS INITIAL.

            CONCATENATE /pws/zycit256-bankn+0(s_pgag2)

                        /pws/zycit256-bankn+s_pgag2(1)

                        '-'  INTO s_pgcc.

          ENDIF.

        ENDIF.

* << Fim da exclusão

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

        /pws/zycie095a-bankl = /pws/zycit256-bankl.

        /pws/zycie095a-bankn = /pws/zycit256-bankn.

* << Fim da inclusão

      ENDIF.

    ENDIF.

  ENDIF.

  IF /pws/zycit000 IS INITIAL.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie001-bukrs.

    SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.

  ENDIF.

  READ TABLE itab_zycit049 WITH KEY tpdesp = /pws/zycit000-cod_sisc.

  IF sy-subrc EQ 0 AND itab_zycit049-vldp NE s_wsisco AND v_dit EQ 'N'.

    IF NOT /pws/zycie085-dttax IS INITIAL AND

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

 

...

MODULE load_banc INPUT.

  IF /pws/zycie095a-lifnr IS INITIAL.

    PERFORM clean_banco.

  ELSE.

* >> Início da exclusão: MODULE LOAD_BANC

    PERFORM load_banco USING /pws/zycie095a-lifnr space

* << Fim da exclusão

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

    PERFORM atualiza_banco USING /pws/zycie095a-lifnr space

* << Fim da inclusão

                             /pws/zycie095a-bankl /pws/zycie095a-bankn

                             /pws/zycie095a-banks.

  ENDIF.

ENDMODULE.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

 

...

    IF sy-dynnr NE '0142'.

      MOVE: itab_zycit095-receita TO /pws/zycie095-receita,

            itab_zycit095-valor   TO /pws/zycie095-valor.

      IF NOT /pws/zycie095-receita IS INITIAL.

        PERFORM load_receita.

      ENDIF.

    ENDIF.

  ELSE.

    IF sy-dynnr EQ '0142'.

      MOVE itab_zycit095 TO /pws/zycie095.

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

      /pws/zycie095a-lifnr = /pws/zycie095-lifnr.

* << Fim da inclusão

      PERFORM fill_banco USING /pws/zycie095a-lifnr.

    ENDIF.

  ENDIF.

ENDMODULE.

...

 

...

* >> Início da inclusão:

MODULE load_banco OUTPUT.

  PERFORM: load_banco USING /pws/zycie095a-lifnr space

                             /pws/zycie095a-bankl

                             /pws/zycie095a-bankn

                             /pws/zycie095a-banks.

ENDMODULE.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

 

...

* >> Início da inclusão:

FORM atualiza_banco USING    p_lifnr

                             p_space

                             p_bankl

                             p_bankn

                             p_banks.

  SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND

                                  BANKS = t001-land1 and

                                  bvtyp = /pws/zycie085-bukrs.

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr

                                and BANKS = t001-land1.

  ENDIF.

  IF sy-subrc = 0.

    s_pgban = lfbk-bankl+0(03).

    IF /pws/zycit000-nbanco IS INITIAL.

      /pws/zycit000-nbanco = 3.

    ENDIF.

    s_pgage = lfbk-bankl+/pws/zycit000-nbanco.

    s_pgcc  = lfbk-bankn.

    IF NOT lfbk-bkont+1(1) IS INITIAL.

      CONCATENATE s_pgcc '-'  lfbk-bkont+1(1) INTO s_pgcc.

    ENDIF.

    s_pgnom = lfbk-koinh.

    s_pgbks =  s_pgban.

    s_pgbkl =  lfbk-bankl.

    s_pgbkn =  lfbk-bankn.

  ENDIF.

ENDFORM.

* << Fim da inclusão