CE PLUS - Nota 007287

Módulo: CÂMBIO IMPORTAÇÃO

Funcionalidade: Despesas

Data/Hora da Publicação: 09/09/2008 00:00:00

Data/Hora Última Alteração: 18/02/2011 10:00:15

Descrição da Nota: PROGRAMA DE DESPESA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.

Sintoma

o programa não reconhece tipo de documento na contabilização quando logada em espanhol

 

 

Solução

alterar os parametros da seleção dos dados de doc de contabilização de texto para constante

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

DESPESAS DE EXPORTAÇÃO

CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO

DESPESAS

Informações Complementares

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

Nota Número 07287 Data: 09/09/2008 Hora: 16:20:07

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

 

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

Nota Número              : 07287

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00064

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

Referência às notas relacionadas:

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

 

06077  - 00003 - 7.0    - 00004  - DESPESAS DE EXPORTAÇÃO

06087  - 00002 - 7.0    - 00004  - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO

06145  - 00001 - 7.0    - 00004  - DESPESAS

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

PROGRAMA DE DESPESA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.

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

Palavras Chave:

DESPESA COMPETENCIA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.

CONTABILIZAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCB105F01

 

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

Modificações efetuadas em REPS /PWS/MZYCB105F01

 

...

      ENDIF.

    ELSE.

      LOOP AT itab_zycbt034.

        MESSAGE i016 WITH itab_zycbt034-descricao.

      ENDLOOP.

    ENDIF.

  ENDIF.

ENDFORM.

FORM get_parameters_f63.

  DATA: v_ktosl LIKE /pws/zyglt316-ktosl.

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

  CONSTANTS: C_005PA(5) type c value '005PA' ,

             C_005PB(5) TYPE C VALUE '005PB' ,

             C_006DA(5) TYPE C VALUE '006DA' ,

             C_006DB(5) TYPE C VALUE '006DB' .

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycbt007

                  WHERE bukrs EQ /pws/zycbe118-bukrs.

  IF /pws/zycbe118-codmod = 'E'.

    IF /pws/zycbe118-frpagto = 'C'.

      SELECT * UP TO 1 ROWS FROM /pws/zycbt011

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

        WHERE codeven  = text-071

* << Fim da exclusão

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

        WHERE codeven  = C_005PA

* << Fim da inclusão

          AND codmod   = 'E'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-071.

* << Fim da exclusão

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

       WHERE codeven = C_005PA.

* << Fim da inclusão

    ELSEIF /pws/zycbe118-frpagto = 'R'.

      SELECT * UP TO 1 ROWS FROM /pws/zycbt011

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

        WHERE codeven  = text-073

* << Fim da exclusão

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

        WHERE codeven  = C_005PB

* << Fim da inclusão

          AND codmod   = 'E'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-071.

* << Fim da exclusão

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

       WHERE codeven = C_005PA.

* << Fim da inclusão

    ENDIF.

  ELSEIF /pws/zycbe118-codmod = 'I'.

    IF /pws/zycbe118-frpagto = 'C'.

      SELECT * FROM /pws/zycbt011

          UP TO 1 ROWS

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

        WHERE codeven  = text-047

* << Fim da exclusão

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

        WHERE codeven  = C_006DA

* << Fim da inclusão

          AND codmod   = 'I'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-047.

* << Fim da exclusão

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

       WHERE codeven = C_006DA.

* << Fim da inclusão

    ELSEIF /pws/zycbe118-frpagto = 'R'.

      SELECT * UP TO 1 ROWS FROM /pws/zycbt011

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

        WHERE codeven  = text-074

* << Fim da exclusão

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

        WHERE codeven  = C_006DB

* << Fim da inclusão

          AND codmod   = 'I'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-074.

* << Fim da exclusão

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

       WHERE codeven = C_006DB.

* << Fim da inclusão

    ENDIF.

  ELSEIF /pws/zycbe118-codmod = 'F'.

    IF /pws/zycbe118-frpagto = 'C'.

      SELECT * UP TO 1 ROWS FROM /pws/zycbt011

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

        WHERE codeven  = text-047

* << Fim da exclusão

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

        WHERE codeven  = C_006DA

* << Fim da inclusão

          AND codmod   = 'F'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-047.

* << Fim da exclusão

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

       WHERE codeven = C_006DA .

* << Fim da inclusão

    ELSEIF /pws/zycbe118-frpagto = 'R'.

      SELECT * UP TO 1 ROWS FROM /pws/zycbt011

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

        WHERE codeven  = text-074

* << Fim da exclusão

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

        WHERE codeven  = C_006DB

* << Fim da inclusão

          AND codmod   = 'F'.

      ENDSELECT.

      SELECT *

        FROM /pws/zyglt321

        INTO TABLE itab_zyglt321

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

       WHERE codeven = text-074.

* << Fim da exclusão

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

       WHERE codeven = C_006DB.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  IF /pws/zycbe118-codmod = 'F'.

    v_ktosl = 'DGF'.

  ELSEIF /pws/zycbe118-codmod = 'E'.

    v_ktosl = 'DSE'.

  ELSEIF /pws/zycbe118-codmod = 'I'.

    v_ktosl = 'DSI'.

  ENDIF.

  CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

...