Sintoma

Quando fatura é Latam, grava arquivos de câmbio

Solução

Criar parâmetro na /PWS/ZYCIT000 para indicar se a fatura é sem câmbio

Informações Complementares

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

Nota Número 12714 Data: 05/12/2012 Hora: 15:15:08

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

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

Nota Número              : 12714

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00139

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

Referência às notas relacionadas:

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

02376  - 00001 - 6.0    - 00025  - SISTEMA ESTÁ PERMITINDO ALTERAÇÃO DE FATURA, DEPOIS DA EMISSÃO DA

02421  - 00003 - 6.0    - 00025  - FATURA NÃO ESTA CONTABILIZANDO APOS NF

03089  - 00004 - 6.0    - 00026  - SISTEMA ESTÁ SE PERDENDO E SELECIONANDO FATURAS ELIMINADAS NO EMB

03654  - 00005 - 7.0    - 00001  - AO GERAR A NOTA FISCAL OS VALORES DO CUSTO FICAM INCORRETOS.

08430  - 00006 - 7.0    - 00009  - NO MODO EXIBIÇÃO, ALGUMAS FUNCIONALIDADES FICAM COM CAMPO ABERTO

11579  - 00007 - 8.0    - 00009  - TRILHA DE AUDITORIA NA FATURA

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

QUANDO FATURA É LATAM, GRAVA ARQUIVOS DE CÂMBIO

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

Palavras Chave:

LATAM - CAMBIO - BOLETO

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

Objetos da nota:

DTEL /PWS/ZYCIL938

TABD /PWS/ZYCIT000

TOBJ /PWS/ZYCIT000S

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em DTEL /PWS/ZYCIL938

Criar elemento de dados.

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

Elemento de dados incluído: /PWS/ZYCIL938

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (34 caracteres), idioma: EN

"Do not create the Invoice Exchange"

Descrição breve incluída: (31 caracteres), idioma: PT

"CI - Não criar Câmbio na Fatura"

Descrição breve incluída: (29 caracteres), idioma: ES

"No cree el cambio de facturas"

Categoria de dados: Domínio

Domínio: XFELD

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: EN

"W/Exchange"

Denominador breve incluído (8 caracteres), idioma: PT

"S/Câmbio"

Denominador breve incluído (9 caracteres), idioma: ES

"no cambio"

Comprimento máximo do denominador médio: 16

Denominador médio incluído (15 caracteres), idioma: EN

"W/Inv..Exchange"

Denominador médio incluído (16 caracteres), idioma: PT

"S/Câmbio na Fat."

Denominador médio incluído (16 caracteres), idioma: ES

"No Cambio de fac"

Comprimento máximo do denominador longo: 22

Denominador longo incluído (16 caracteres), idioma: EN

"Invoice Exchange"

Denominador longo incluído (22 caracteres), idioma: PT

"Criar Câmbio na Fatura"

Denominador longo incluído (18 caracteres), idioma: ES

"Cambio de facturas"

Comprimento máximo do título: 22

Título incluído (16 caracteres), idioma: EN

"Invoice Exchange"

Título incluído (22 caracteres), idioma: PT

"Criar Câmbio na Fatura"

Título incluído (18 caracteres), idioma: ES

"Cambio de Facturas"

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

Modificações efetuadas em TABD /PWS/ZYCIT000

*Acrescentar campo no final da tabela

Nome de campo   Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

SEM_CAMBIO       /PWS/ZYCIL938               CHAR     1

Na SE54, gerar novamente a visão de atualização de tabela

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

FORM gravar_cambio.

  DATA: lw_zycit006 TYPE /pws/zycit006.

  DATA wa_zycbt119 LIKE /pws/zycbt119.

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

  DATA:

    v_nrseq   LIKE /pws/zycit001-nrseq,

    v_count(7) TYPE n,

    v_like(4).

  CLEAR: lw_zycit006.

  IF NOT /pws/zycit000-sem_cambio IS INITIAL.

    CONCATENATE 'S' '%' sy-datum+2(2) INTO v_like.

    SELECT MAX( nrseq_pgfat ) INTO (v_nrseq)

    FROM /pws/zycit006  WHERE nrseq_pgfat LIKE v_like.

    v_count = v_nrseq+1(8) + 1.

   CONCATENATE 'S' v_count sy-datum+2(2) INTO /pws/zycie006-nrseq_pgfat.

    SELECT SINGLE * FROM /pws/zycit006 INTO lw_zycit006

   WHERE nrseq = /pws/zycie006-nrseq.

    MODIFY /pws/zycit006 FROM /pws/zycie006.

    APPEND /pws/zycie006 TO itab_zycit006.

    IF lw_zycit006-nrseq IS INITIAL.

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

              ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ELSE.

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

              ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDIF.

    EXIT.

  ENDIF.

* << Fim da inclusão

...

...

  CLEAR /pws/zycbt131.

  IF v_parcela EQ 'X'.

    IF NOT itab_zycit132-nrseq_pgfat IS INITIAL.

      SELECT SINGLE * FROM /pws/zycbt131

        WHERE nrseq_pgfat = itab_zycit132-nrseq_pgfat.  "#EC CI_NOFIRST

      SELECT SINGLE * FROM /pws/zycbt119

           INTO wa_zycbt119

           WHERE nrseq = itab_zycit132-nrseq_pgfat.

    ENDIF.

  ELSE.

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

    PERFORM busca_sequencial .

    /pws/zycie006-nrseq_pgfat =  /pws/zycbt119-nrseq.

    CLEAR /pws/zycbt119.

* << Fim da inclusão

    IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.

      SELECT SINGLE * FROM /pws/zycbt131

        WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.  "#EC CI_NOFIRST

      SELECT SINGLE * FROM /pws/zycbt119

           INTO wa_zycbt119

           WHERE nrseq = /pws/zycie006-nrseq_pgfat.

    ENDIF.

  ENDIF.

  IF NOT /pws/zycbt131 IS INITIAL.

    EXIT.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

             eliminado   = space.

        IF sy-subrc NE 0.

          itab_zycit006-eliminado = 'X'.

          MODIFY itab_zycit006 INDEX v_tabix.

        ENDIF.

      ENDLOOP.

      MODIFY /pws/zycit006 FROM TABLE itab_zycit006 .

      DELETE itab_zycit006 WHERE eliminado = 'X'.

      DELETE itab_zycit263 WHERE eliminado = 'X'.

    ENDIF.

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

    CLEAR: itab_zycit006, itab_zycit263.

* << Fim da inclusão

    LOOP AT itab_zycit003.

      READ TABLE itab_matuse WITH KEY ebeln = itab_zycit003-ebeln

                                    ebelp = itab_zycit003-ebelp.

      READ TABLE itab_mara WITH KEY matnr = itab_matuse-matnr.

      IF sy-subrc EQ 0.

        IF itab_zycit003-mfrpn IS INITIAL.

          MOVE itab_mara-mfrpn TO itab_zycit003-mfrpn.

          MODIFY itab_zycit003.

        ENDIF.

      ENDIF.

...

...

            IF itab_zycit132[] IS INITIAL.

              screen-invisible = '0'.

            ENDIF.

          ELSEIF screen-name = '/PWS/ZYCIE006-NRSEQRE' OR

            screen-name  = '/PWS/ZYCIE006-NRSEQRETX'.

            screen-invisible = '1'.

          ENDIF.

          IF screen-name EQ 'BOT1'.

            screen-input = 1.

          ENDIF.

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

        IF ( screen-name EQ '/PWS/ZYCIE006-NRSEQ_PGFAT'  or

             screen-name eq '/PWS/ZYCIE006-NRSEQ_PGFATX' ) AND

            /pws/zycit000-sem_cambio EQ 'X'.

          screen-input = 0.

          screen-invisible = 1.

        ENDIF.

* << Fim da inclusão

          MODIFY SCREEN.

        ENDIF.

        IF ( screen-name EQ '/PWS/ZYCIE006-VLMERC' OR

             screen-name EQ '/PWS/ZYCIE003-VLREAL' OR

             screen-name EQ '/PWS/ZYCIE036-VLDIF' ) AND

             /pws/zycie006-tpfatura EQ '01'.

          READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.

          SELECT SINGLE *

            FROM /pws/zycit042

            WHERE nrseq  EQ /pws/zycit003-nrseq

...