Sintoma

Ao emitir a nota de Variação Cambial, o programa não estava criando a mesma com referência.

Solução

Preencher o campo Documento Original, assim como retirar preenchimento de campos não-editáveis.

Informações Complementares

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

Nota Número 01024 Data: 14/03/2006 Hora: 14:55:22

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

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

Nota Número              : 01024

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00105

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EMISSÃO DE NOTAS EM VARIAÇÃO CAMBIAL COM REFERÊNCIA

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

Palavras Chave:

REFERÊNCIA; CAMBIAL; VARIAÇÃO; NOTAS; EMISSÃO

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

Objetos da nota:

FUNC /PWS/ZYCE_TRANSACAO_J1B1N

FUNC /PWS/ZYCE_TRANSACAO_J1B1N_B

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N

FUNCTION /pws/zyce_transacao_j1b1n.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  IMPORTING

*"     REFERENCE(V_MODO) LIKE  /PWS/ZYCBT039-MODO

*"  TABLES

*"      T_DADOS STRUCTURE  /PWS/ZYCEE005

*"      T_CAMPOS STRUCTURE  /PWS/ZYCET004

*"      T_ZYCET005 STRUCTURE  /PWS/ZYCET005

*"      T_MESSAGE STRUCTURE  /PWS/ZYCEE006

*"  EXCEPTIONS

*"      CAMPO_EM_BRANCO

*"      PERIODO_FECHADO

*"----------------------------------------------------------------------

  DATA:

    v_data-doc(10)   TYPE c,

    v_data-pst(10)   TYPE c,

    v_bukrs          LIKE t001-bukrs,

    v_refer          LIKE j_1bam-sconrf VALUE '0005',

...

    v_transacao(5)   TYPE c,

    v_mode           TYPE c,

    v_update         TYPE c,

    v_msgid          LIKE t100-arbgb,

    v_msgno          LIKE t100-msgnr,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    v_campo(250)     TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    v_campo          TYPE J_1BDYFTX-MESSAGE,

* << Fim da inclusão

    v_cfop(06)       TYPE c,

    v_netbase(16)    TYPE c,

    v_cont           TYPE n,

    v_cont1          TYPE i,

    v_text(16)       TYPE c,

...

    REFRESH itab_oculto.

    PERFORM trata_campo_obrigatorio TABLES t_dados

                                           t_campos

                                           itab_oculto

                                    USING  v_string.

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    CLEAR : v_text, v_cont.

* << Fim da exclusão

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    CLEAR : v_text, v_cont, v_text_aux.

* << Fim da inclusão

    WRITE t_dados-netpr TO v_text.

    SHIFT v_text LEFT DELETING LEADING space.

    v_cont1 = strlen( v_text ).

    DO v_cont1 TIMES.

      IF  v_text(1) EQ '.'.

...

           'J_1BDYLIN-MAKTX(01)'   t_dados-maktx,

           'J_1BDYLIN-MATKL(01)'   t_dados-matkl,

           'J_1BDYLIN-MENGE(01)'   v_menge,

           'J_1BDYLIN-MEINS(01)'   t_dados-meins,

           'J_1BDYLIN-NETPR(01)'   v_netpr,

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYDOC-DOCREF'      t_dados-docnum,

* << Fim da inclusão

           'BDC_OKCODE'            '/00'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING:

           'BDC_OKCODE'            '=TAB4'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

...

                                       v_msgid

                                       v_msgno

                              CHANGING v_nrmsg.

  ENDLOOP.

ENDFUNCTION.

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N_B

FUNCTION /pws/zyce_transacao_j1b1n_b.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  IMPORTING

*"     REFERENCE(V_MODO) LIKE  /PWS/ZYCBT039-MODO

*"  TABLES

*"      T_DADOS STRUCTURE  /PWS/ZYCEE005

*"      T_CAMPOS STRUCTURE  /PWS/ZYCET004

*"      T_ZYCET005 STRUCTURE  /PWS/ZYCET005

*"      T_MESSAGE STRUCTURE  /PWS/ZYCEE006

*"  EXCEPTIONS

*"      CAMPO_EM_BRANCO

*"      PERIODO_FECHADO

*"----------------------------------------------------------------------

  DATA:

    v_data-doc(10)   TYPE c,

    v_data-pst(10)   TYPE c,

    v_bukrs          LIKE t001-bukrs,

    v_refer          LIKE j_1bam-sconrf VALUE '0005',

...

    v_transacao(5)   TYPE c,

    v_mode           TYPE c,

    v_update         TYPE c,

    v_msgid          LIKE t100-arbgb,

    v_msgno          LIKE t100-msgnr,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N_B

    v_campo(250)     TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    v_campo          TYPE j_1bdyftx-message,

* << Fim da inclusão

    v_cfop(06)       TYPE c,

    v_netbase(16)    TYPE c,

    v_cont           TYPE n,

    v_cont1          TYPE i,

    v_text(16)       TYPE c,

...

    REFRESH itab_oculto.

    PERFORM trata_campo_obrigatorio TABLES t_dados

                                           t_campos

                                           itab_oculto

                                    USING  v_string.

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    CLEAR : v_text, v_cont.

* << Fim da exclusão

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

    CLEAR: v_text, v_cont, v_text_aux.

* << Fim da inclusão

    WRITE t_dados-netpr TO v_text.

    SHIFT v_text LEFT DELETING LEADING space.

    v_cont1 = strlen( v_text ).

    DO v_cont1 TIMES.

      IF  v_text(1) EQ '.'.

...

           'J_1BDYDOC-BUKRS'     v_bukrs,

           'J_1BDYDOC-BRANCH'    t_dados-branch,

           'J_1BDYDOC-PARVW'     t_dados-parvw,

           'J_1BDYDOC-PARID'     t_dados-parid,

           'J_1BDYLIN-INCLTX'    'X',

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'BDC_OKCODE'          '/00'.

* << Fim da exclusão

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'BDC_OKCODE'          'RENF'.

* << Fim da inclusão

    PERFORM bdc_tela USING 'SAPMJ1B1' '0950'.

    PERFORM bdc_campo  USING:

           'J_1BDYDOC-COP_DOCNUM'    t_dados-docnum,

           'BDC_OKCODE'              '=CORE'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING:

           'J_1BDYDOC-DOCDAT'      v_data-doc,

           'J_1BDYDOC-PSTDAT'      v_data-pst,

           'J_1BDYLIN-ITMTYP(01)'  t_dados-itmtyp,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYLIN-MAKTX(01)'   t_dados-maktx,

           'J_1BDYLIN-MATKL(01)'   t_dados-matkl,

* << Fim da exclusão

           'J_1BDYLIN-MENGE(01)'   v_menge,

           'J_1BDYLIN-MEINS(01)'   t_dados-meins,

           'J_1BDYLIN-NETPR(01)'   v_netpr,

* >> Início da inclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYDOC-DOCREF'      t_dados-docnum,

* << Fim da inclusão

           'BDC_OKCODE'            '/00'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING:

           'BDC_OKCODE'            '=TAB4'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

...

           'BDC_CURSOR'          'J_1BDYLIN-ITMTYP(01)',

           'BDC_OKCODE'          '=LIDE'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.

    PERFORM bdc_campo USING:

           'J_1BDYLIN-ITMTYP'   t_dados-itmtyp,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYLIN-MAKTX'    t_dados-maktx,

           'J_1BDYLIN-MATKL'    t_dados-matkl,

* << Fim da exclusão

           'J_1BDYLIN-MENGE'    v_menge,

           'J_1BDYLIN-MEINS'    t_dados-meins,

           'J_1BDYLIN-NETPR'    v_netpr,

           'BDC_OKCODE'         '=BACK'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

...

                OTHERS = 1.

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.

    PERFORM bdc_campo USING:

           'J_1BDYLIN-ITMTYP'     t_dados-itmtyp,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYLIN-MAKTX'      t_dados-maktx,

           'J_1BDYLIN-MATKL'      t_dados-matkl,

* << Fim da exclusão

           'J_1BDYLIN-MENGE'      v_menge,

           'J_1BDYLIN-MEINS'      t_dados-meins,

           'J_1BDYLIN-NETPR'      v_netpr,

           'J_1BDYLIN-CFOP'       v_cfop,

           'J_1BDYLIN-TAXLW1'     t_dados-taxlw1,

           'J_1BDYLIN-TAXLW2'     t_dados-taxlw2,

* >> Início da exclusão: FUNÇÃO /PWS/ZYCE_TRANSACAO_J1B1N

           'J_1BDYLIN-MATORG'     t_dados-matorg,

           'J_1BDYLIN-MATUSE'     t_dados-matuse2,

* << Fim da exclusão

           'J_1BDYLIN-NBM'        t_dados-nbm,

           'BDC_OKCODE'         '=TAX'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.

    PERFORM bdc_campo USING:

           'J_1BDYSTX-TAXTYP(01)'      t_dados-taxtyp,

...

                              CHANGING v_nrmsg.

  ENDLOOP.

  FREE:

    itab_bdc,

    itab_msg.

ENDFUNCTION.