Sintoma

Inserir as transações da DAI no menu /pws/zyci

Solução

Inserir as transações da DAI no menu /pws/zyci

Informações Complementares

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

Nota Número 12172 Data: 08/05/2012 Hora: 15:00:04

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

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

Nota Número              : 12172

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00113

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

Referência às notas relacionadas:

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

12154  - 00001 - 8.0    - 00011  - DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO

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

INSERIR AS TRANSAÇÕES DA DAI NO MENU /PWS/ZYCI

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

Palavras Chave:

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

Objetos da nota:

FUNC /PWS/ZYCI_CARREGA_DAI

REPS /PWS/LZYCIGF11F01

REPS /PWS/SAPLZYCIGF11

MENU /PWS/ZYCI

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

Modificações efetuadas em FUNC /PWS/ZYCI_CARREGA_DAI

...

  ELSEIF it_001-regime EQ '13'.

    e_di-regime = '07'.

  ENDIF.

  e_di-nrdi = it_cabecalho_di-nrdi.

  e_di-dtreg = it_cabecalho_di-dtreg.

  IF it_cabecalho_di-retif IS INITIAL.

    e_di-retif = '0'.

  ELSE.

    e_di-retif = '1'.

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

  PERFORM load_waers USING it_cabecalho_di-waersfob

                  CHANGING it_cabecalho_di-waersfob.

* << Fim da inclusão

  IF it_cabecalho_di-waersfob EQ wa_zycbt007-waersa.

    e_di-vlfob = it_cabecalho_di-vlfob * 100.

  ELSE.

    CLEAR: v_vlusd.

    v_vlusd = it_cabecalho_di-vlfob.

    PERFORM calc_conv_moeda(/pws/sapmzyci023)

             USING it_cabecalho_di-waersfob

                   wa_zycbt007-waersa

             CHANGING v_vlusd.

    e_di-vlfob = v_vlusd * 100.

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

  PERFORM load_waers USING it_cabecalho_di-waersfre

                  CHANGING it_cabecalho_di-waersfre.

* << Fim da inclusão

  IF it_cabecalho_di-waersfre EQ wa_zycbt007-waersa.

    e_di-vlfre = it_cabecalho_di-vlfre * 100.

  ELSE.

    CLEAR: v_vlusd.

    v_vlusd = it_cabecalho_di-vlfre.

    PERFORM calc_conv_moeda(/pws/sapmzyci023)

             USING it_cabecalho_di-waersfre

                   wa_zycbt007-waersa

             CHANGING v_vlusd.

    e_di-vlfre = v_vlusd * 100.

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

  PERFORM load_waers USING it_cabecalho_di-waersseg

                  CHANGING it_cabecalho_di-waersseg.

* << Fim da inclusão

  IF it_cabecalho_di-waersseg EQ wa_zycbt007-waersa.

    e_di-vlseg = it_cabecalho_di-vlseg * 100.

  ELSE.

    CLEAR: v_vlusd.

    v_vlusd = it_cabecalho_di-vlseg.

    PERFORM calc_conv_moeda(/pws/sapmzyci023)

             USING it_cabecalho_di-waersseg

                   wa_zycbt007-waersa

             CHANGING v_vlusd.

    e_di-vlseg = v_vlusd * 100.

...

...

              wa_adicao-suframa = wa_289-codprod.

              SELECT SINGLE * FROM /pws/zycit218 INTO wa_218

                 WHERE codigo = wa_289-codprod.

              IF sy-subrc EQ 0.

                wa_adicao-ncm = wa_218-steuc.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

      PERFORM load_waers USING it_itens_di-waersbem

                      CHANGING it_itens_di-waersbem.

* << Fim da inclusão

      IF it_itens_di-waersbem EQ wa_zycbt007-waersa.

        wa_adicao-vlfob = wa_adicao-vlfob + ( it_itens_di-vlfob * 100 ).

      ELSE.

        CLEAR: v_vlusd.

        v_vlusd = it_itens_di-vlfob.

        PERFORM calc_conv_moeda(/pws/sapmzyci023)

                 USING it_itens_di-waersbem

                       wa_zycbt007-waersa

                 CHANGING v_vlusd.

        wa_adicao-vlfob = wa_adicao-vlfob + ( v_vlusd * 100 ).

...

...

    ENDIF.

    wa_adicao-vlicms = ( wa_adicao-vlbc_icms * wa_adicao-vlcm ) * 100.

    IF e_di-regime = '07'.

    ENDIF.

    CLEAR: v_vlusd, wa_adicao_item.

    LOOP AT it_itens_di WHERE nrseqdi = it_adicao_di-nrseqdi

                          AND adicao  = it_adicao_di-adicao.

      wa_adicao_item-numitem = it_itens_di-item_adi_sisc.

      wa_adicao_item-adicao  = it_itens_di-adicao.

      wa_adicao_item-descr_m = it_itens_di-especificacao.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

      PERFORM load_waers USING it_itens_di-waersbem

                      CHANGING it_itens_di-waersbem.

* << Fim da inclusão

      IF it_itens_di-waersbem EQ wa_zycbt007-waersa.

        v_vlusd = it_itens_di-vlfob.

        wa_adicao_item-vltotal =

                   wa_adicao_item-vltotal + ( it_itens_di-vlfob * 100 ).

      ELSE.

        v_vlusd = it_itens_di-vlfob.

        PERFORM calc_conv_moeda(/pws/sapmzyci023)

                 USING it_itens_di-waersbem

                       wa_zycbt007-waersa

                 CHANGING v_vlusd.

        wa_adicao_item-vltotal = wa_adicao_item-vltotal +

                                                      ( v_vlusd * 100 ).

      ENDIF.

      READ TABLE it_det_itens_di WITH KEY nrseq = it_itens_di-nrseq

                                          ebeln = it_itens_di-ebeln

                                          ebelp = it_itens_di-ebelp.

      IF sy-subrc EQ 0.

        IF it_det_itens_di-qtd_itend IS INITIAL.

          it_det_itens_di-qtd_itend = it_det_itens_di-qtd_iten.

        ENDIF.

        wa_adicao_item-ncm    = it_det_itens_di-j_1bnbm.

        wa_adicao_item-qtde   = wa_adicao_item-qtde +

                                 ( it_det_itens_di-qtd_itend * 100000 ).

        CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

             EXPORTING

                  input          = it_det_itens_di-meins

                  language       = 'P'

             IMPORTING

                  output         = wa_adicao_item-un

             EXCEPTIONS

                  unit_not_found = 1

                  OTHERS         = 2.

        wa_adicao_item-vlunit = wa_adicao_item-vlunit +

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF11F01

* >> Início da inclusão:

FORM load_waers USING    p_de

                CHANGING p_para.

  SELECT SINGLE waers FROM tcurc INTO p_para

     WHERE /pws/codmo = p_de.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/SAPLZYCIGF11

  INCLUDE /PWS/LZYCIGF11TOP.

  INCLUDE /PWS/LZYCIGF11UXX.

* >> Início da inclusão:

INCLUDE /PWS/LZYCIGF11F01.

* << Fim da inclusão

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

Alterar o menu /PWS/ZYCI

INSERIR A SEGUINTE TRANSAÇÃO NO MENU /PWS/ZYCI - SUFRAMA

DEPOIS DA TRANSAÇÃO: /PWS/ZYCIR112 - DCR Eletrônico

INSERIR A TRANSAÇÃO: /PWS/ZYCIR353 - DAI - Gerar XML da Ident. da Matriz

INSERIR AS SEGUINTES TRANSAÇÕES NO MENU /PWS/ZYCI - Parâmetros - Suframa

CRIAR UMA PASTA CHAMADA: DAI

DENTRO DA PASTA DAI COLOCAR AS SEGUINTES TRANSAÇÕES:

/PWS/ZYCIT520 - Despesas X Layout

/PWS/ZYCIT521 - Destinação

/PWS/ZYCIT522 - Utilização

/PWS/ZYCIT523 - Tributação