Sintoma

Inclusão de um parâmetro na tabela /pws/zycet035 para determinar a transação que será utilizada no

batch-input para criação da Nota Fiscal de Variação Cambial.

Solução

Inclusão de novo parâmetro na tabela /pws/zycet035. Ajustes no programa da Variação Cambial para

determinar a transação a ser utilizada no batch-input da criação da Nota Fiscal de acordo com o

parâmetro informado na tabela /pws/zycet035.

Informações Complementares

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

Nota Número 07825 Data: 22/12/2008 Hora: 15:59:00

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

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

Nota Número              : 07825

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00078

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

VARIAÇÃO CAMBIAL INCLUSÃO DE PARÂMETRO P/ DETERMINAR TRANSAÇÃO NF WRITER

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

Palavras Chave:

VARIAÇÃO CAMBIAL, PARÂMETRO, NOTA FISCAL, WRITER, J1B1N

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

Objetos da nota:

DOMA /PWS/ZYCED711

DTEL /PWS/ZYCEL854

FUGR /PWS/ZYCEGF1

REPS /PWS/ZYCER007

TABD /PWS/ZYCET035

TABU TDDAT

TABU TVDIR

TOBJ /PWS/ZYCET035S

TOBJ /PWS/ZYCEV035V

TRAN /PWS/ZYCET035

VIEW /PWS/ZYCEV035

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

Modificações efetuadas em DOMA /PWS/ZYCED711

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

Domínio incluído: /PWS/ZYCED711

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

"DE - Transação NF Writer"

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

Categoria de dados: NUMC

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

-Valores individuais

Incluído valor fixo "0"

Texto incluído, idioma: PT (5 caracteres):

"J1B1N"

Incluído valor fixo "1"

Texto incluído, idioma: PT (4 caracteres):

"J1B1"

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

Modificações efetuadas em DTEL /PWS/ZYCEL854

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

Elemento de dados incluído: /PWS/ZYCEL854

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

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

"DE - Transação NF Writer"

Categoria de dados: Domínio

Domínio: /PWS/ZYCED711

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 (9 caracteres), idioma: PT

"NF Writer"

Comprimento máximo do denominador médio: 19

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

"Transação NF Writer"

Comprimento máximo do denominador longo: 20

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

"Transação NF Writer"

Comprimento máximo do título: 19

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

"Transação NF Writer"

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

Modificações efetuadas em REPS /PWS/ZYCER007

...

  SET PF-STATUS '001'.

TOP-OF-PAGE.

  PERFORM cabecalho.

END-OF-PAGE.

  ULINE.

AT USER-COMMAND.

  CASE sy-ucomm.

    WHEN 'POPUP'.

      PERFORM popup.

    WHEN 'NOTE'.

* >> Início da exclusão:

      IF NOT it_zycet035-nfcref IS INITIAL.

* << Fim da exclusão

* >> Início da inclusão:

      IF NOT it_zycet035-nfcref IS INITIAL AND

         it_zycet035-tcode EQ '0'.

* << Fim da inclusão

        PERFORM contabiliza_j1b1_ref.

      ELSE.

        PERFORM contabiliza_j1b1.

      ENDIF.

      IF p_reimp NE 'X'.

        IF v_rvr IS INITIAL.

          PERFORM contabiliza_f_05.

        ELSE.

          READ TABLE it_relat INDEX 1.

          CLEAR it_zyglt338.

...

...

      MOVE: it_relat-nrseq    TO it_emitenf-nrseq,

            it_relat-branch   TO it_emitenf-branch,

            it_relat-docnum   TO it_emitenf-docnum,

            it_relat-itmnum   TO it_emitenf-itmnum,

            it_relat-difer    TO it_emitenf-difer.

    ELSE.

      MOVE: it_relat-nrseq    TO it_emitenf-nrseq,

            it_relat-branch   TO it_emitenf-branch,

            it_relat-difer    TO it_emitenf-difer.

    ENDIF.

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

    IF NOT it_zycet035-flagfunc IS INITIAL

      AND NOT it_zycet035-nfcref IS INITIAL.

* << Fim da exclusão

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

    IF it_zycet035-tcode  EQ '0' AND NOT

       it_zycet035-nfcref IS INITIAL.

* << Fim da inclusão

      MOVE it_relat-docnum TO it_emitenf-docnum.

    ENDIF.

    COLLECT it_emitenf.

    AT END OF nrseq.

      PERFORM imprime_totais_embarque.

      PERFORM imprime_resumo_embarque.

      CLEAR: it_emb_tot,

             it_contabil.

      REFRESH: it_emb_tot,

               it_contabil.

...

...

      v_executa_j1b1 = 'X'.

      READ TABLE itab_zyglt100 WITH KEY zexit = 'VRC001' BINARY SEARCH.

      IF sy-subrc EQ 0                           AND

         NOT itab_zyglt100-programa IS INITIAL   AND

         NOT itab_zyglt100-formulario IS INITIAL .

        PERFORM (itab_zyglt100-formulario)

                IN PROGRAM (itab_zyglt100-programa) IF FOUND.

      ENDIF.

      IF it_zycet004[]  IS INITIAL AND

         v_executa_j1b1 EQ 'X'.

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

        IF it_zycet035-flagfunc IS INITIAL.

* << Fim da exclusão

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

        IF it_zycet035-tcode EQ '1'.

* << Fim da inclusão

          IF NOT it_zycet035-nfcref IS INITIAL.

            CALL FUNCTION '/PWS/ZYCE_TRANSACAO_J1B1_A'

                 EXPORTING

                      v_modo          = v_modo_bi

                 TABLES

                      t_dados =

                         it_zycee005

                      t_campos        = it_zycet004

                      t_zycet005      = it_zycet005

                      t_message       = it_zycee006

...

...

                      campo_em_branco = 1

                      periodo_fechado = 2

                      OTHERS          = 3.                  "#EC *

          ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF it_zycet004[] IS INITIAL AND

  v_executa_j1b1 EQ 'X'.

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

    IF it_zycet035-tcode EQ '1'.

* << Fim da inclusão

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

    IF it_zycet035-flagfunc IS INITIAL.

* << Fim da exclusão

      IF it_zycet035-nfcref IS INITIAL.

        CALL FUNCTION '/PWS/ZYCE_TRANSACAO_J1B1'

             EXPORTING

                  v_modo          = v_modo_bi

             TABLES

                  t_dados         = it_zycee005

                  t_campos        = it_zycet004

                  t_zycet005      = it_zycet005

                  t_message       = it_zycee006

             EXCEPTIONS

...

...

      ENDIF.

      IF NOT v_execute IS INITIAL.

        MOVE: it_relat-nrseq  TO r_nrseq1,

              it_relat-branch TO r_branch1,

              it_relat-docnum TO r_docnum1.

        LOOP AT it_emitenf WHERE nrseq  = it_relat-nrseq

                             AND branch = it_relat-branch.

          CONCATENATE it_emitenf-nrseq it_emitenf-branch

                      it_emitenf-docnum INTO v_cpochv.

          CLEAR it_zycet005.

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

          IF it_zycet035-flagfunc IS INITIAL.

* << Fim da exclusão

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

          IF it_zycet035-tcode EQ '1'.

* << Fim da inclusão

            LOOP AT it_zycet005 WHERE tcode  EQ text-050

                                  AND tabela EQ text-006

                                  AND cpochv EQ v_cpochv

                                  AND tpmsg  EQ 'S'.

              PERFORM atualiza_tabelas_j1b1.

              it_doccont-nrseq    = it_relat-nrseq.

              it_doccont-branch   = it_relat-branch.

              it_doccont-belnr5   = it_zycet005-belnr.

              it_doccont-controle = 'N'.

              APPEND it_doccont.

...

...

                                       text-052.

      it_zycee005-parid = it_relat-codportd.

    ELSE.

      PERFORM verify_null_field USING it_relat-kunag

                                      'KUNAG'

                                       text-052.

      it_zycee005-parid = it_relat-kunag.

    ENDIF.

  ENDIF.

  it_zycee005-waers = 'BRL'.

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

  IF it_zycet035-flagfunc IS INITIAL AND

     it_zycet035-nfcref   IS INITIAL.

* << Fim da exclusão

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

   IF it_zycet035-tcode  EQ '1' AND

      it_zycet035-nfcref IS INITIAL.

* << Fim da inclusão

    it_zycee005-tcode = text-050.

    it_zycee005-maktx = it_zycee005-observat = text-055.

    it_zycee005-matorg = text-056.

    it_zycee005-taxtyp = text-063.

    it_zycee005-taxtyp2 = text-061.

  ELSE.

    it_zycee005-tcode = text-097.

    it_zycee005-maktx = it_zycee005-observat = it_zycet035-txtdesc.

    it_zycee005-matorg = it_zycet035-origmat.

    it_zycee005-matuse2 = it_zycet035-utilmat.

    it_zycee005-taxtyp = it_zycet035-tpcod1.

    it_zycee005-taxtyp2 = it_zycet035-tpcod2.

  ENDIF.

  it_zycee005-docdat = sy-datlo.

  it_zycee005-pstdat = sy-datlo.

  PERFORM verify_null_field USING it_relat-docnum

                                  'DOCNUM'

                                   text-051.

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

  IF NOT it_zycet035-nfcref IS INITIAL.

* << Fim da inclusão

  it_zycee005-docref = it_relat-docnum.

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

  ENDIF.

* << Fim da inclusão

  it_zycee005-itmref = it_relat-posnr.

  it_zycee005-menge = 1.

  CLEAR it_zycee005-netpr.

  IF it_zycet035-nfcref IS INITIAL.

   LOOP AT it_emitenf INTO wa_emitenf WHERE nrseq  = it_relat-nrseq AND

                                               branch = it_relat-branch.

...

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

Modificações efetuadas em TABD /PWS/ZYCET035

Incluir campo:

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

     FLAGFUNC       /PWS/ZYGLL1305              CHAR     1

     MENGE          MENGE_D                     QUAN    13

     MEINS          J_1BNETUNT     T006         UNIT     3

     MATORG         J_1BMATORG                  CHAR     1

     TAXTYP         J_1BTAXTYP     J_1BAJ       CHAR     4

     TAXTYP2        J_1BTAXTYP     J_1BAJ       CHAR     4

     REGIO          REGIO          T005S        CHAR     3

     NFCREF         /PWS/ZYCEL573               CHAR     1

* >> Início da inclusão: TABD /PWS/ZYCET035

     TCODE          /PWS/ZYCEL854               NUMC     1

* << Fim da inclusão

Após a inclusão do campo, ir em MENU "Utilitários \ Gerador de Atualização de Tabelas" e Eliminar o

Diálogo de atualização, selecionando todos os objetos.

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

Modificações efetuadas em VIEW /PWS/ZYCEV035

Criar visão de atualização /PWS/ZYCEV035:

Descrição Breve: "CE - Parâm. Tipo de Nota Fiscal"

Classe de Desenvolvimento: /PWS/ZYCE

Tabelas: /PWS/ZYCET035

Incluir campos:

Observação: Selecionar "Campos Tabela" todos os campos da tabela /pws/zycet035 MENOS o campo

"FLAGFUNC", conforme lista abaixo:

Campo    Elem.Dados      Cat.Dados  Compr. Descrição Breve

MANDT    MANDT           CLNT       3      Mandante

TPNF     J_1BDIRECT      CHAR       1      Sentido de movimento

BUKRS    /PWS/ZYCEL446   CHAR       4      GL - Empresa

FILIAL   J_1BBRANC_      CHAR       4      Local negócio

NFTYPE   J_1BNFTYPE      CHAR       2      Ctg.de nota fiscal

CFOP     J_1BCFOP        CHAR       7      Código CFOP e extensão

CTMOED   /PWS/ZYCEL479   CHAR       4      GL - Categoria de taxa de câmbio

ITMTYP   J_1BITMTYP      CHAR       2      Ctg.regiostro nota fiscal

PARVW    /PWS/ZYCEL464   CHAR       2      GL - Função do parceiro

TAXLW1   J_1BTAXLW1      CHAR       3      Direito fiscal: ICMS

TAXLW2   J_1BTAXLW2      CHAR       3      Direito fiscal: IPI

TXTDESC  /PWS/ZYCEL027   CHAR       60     GL - Descrição.

KSCHL    KSCHC           CHAR       4      Tipo de condição para determinação de contas

PLCONTAS /PWS/ZYCEL480   CHAR       4      GL - Plano de contas

KVSL1    KVSL1           CHAR       3      Chave de conta

NBM      STEUC           CHAR       16     Código de controle p/imposto sobre consumo em

com.exterior

MATKL    /PWS/ZYCEL471   CHAR       9      GL - Grupo de mercadorias

ORIGMAT  /PWS/ZYGLL1301  CHAR       1      GL - Origem do Material

UTILMAT  /PWS/ZYGLL1302  CHAR       1      GL - Utilização do Material - consumo

TPCOD1   /PWS/ZYGLL1303  CHAR       4      GL - Tipo de Imposto ICMS

TPCOD2   /PWS/ZYGLL1304  CHAR       4      GL - Tipo de Imposto IPI

EMITDTBL /PWS/ZYCEL060   CHAR       1      GL - Emite Nota Fiscal na Data do BL

CONTDTBL /PWS/ZYCEL061   CHAR       1      GL - Contabiliza Nota Fiscal na Data do BL

EMITFMES /PWS/ZYCEL062   CHAR       1      GL - Emite Nota Fiscal no Final do Mês

CONTFMES /PWS/ZYCEL063   CHAR       1      GL - Contabiliza Nota Fiscal no Final do Mês

MENGE    MENGE_D         QUAN       13     Quantidade

MEINS    J_1BNETUNT      UNIT       3      Unidade de medida básica

MATORG   J_1BMATORG      CHAR       1      Origem de material

TAXTYP   J_1BTAXTYP      CHAR       4      Tipo de imposto

TAXTYP2  J_1BTAXTYP      CHAR       4      Tipo de imposto

REGIO    REGIO           CHAR       3      Região (país, estado, província, condado)

NFCREF   /PWS/ZYCEL573   CHAR       1      GL - Criar NF Complementar com Referência

TCODE    /PWS/ZYCEL854   NUMC       1      DE - Transação NF Writer

Status Atualização:

(X) Ler, modificar, eliminar e inserir

Classe de entrega: C - Tab.customizing, atualização só por cliente, s/import.SAP

Após criar e ativar a visão, ir para:

"Utilitários \ Gerador de Atualização de Tabelas" e Criar o Diálogo de atualização:

Grupo de funções: /PWS/ZYCEGF1

Classe de Desenvolvimento: /PWS/ZYCE

Telas de atualização: (X) 2 Níveis

Nº tela atualização:

Tela de síntese: 35

Tela Individual: 1035

(X)Rotina de Registro Standard

Código de Ajuste: Ajustável Automaticamente.

Após gerar o diálodo de atualização editar tela 0035 e modificar característica:

Linhas/Colunas - Ocupado: 61 - 240

                 Atual.:  61 - 240

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

Modificações efetuadas em TRAN /PWS/ZYCET035

Modificar transação /PWS/ZYCET035.

Alterar em "Nome do Campo da Tela" - VIEWNAME.

DE: /PWS/ZYCET035

PARA: /PWS/ZYCEV035