CE PLUS - Nota 005734

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 23/01/2008 00:00:00

Data/Hora Última Alteração: 10/11/2011 13:15:55

Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR

Sintoma

Padronização - Code Inspector - Nota Fiscal

 

 

Solução

Padronização - Code Inspector - Nota Fiscal

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

AO RATEAR O PESO BRUTO DOS ITENS, NÃO BATE COM O TOTAL DA NF

Informações Complementares

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

Nota Número 05734 Data: 23/01/2008 Hora: 16:28:44

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

 

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

Nota Número              : 05734

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

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

 

03512  - 00001 - 7.0    - 00001  - AO RATEAR O PESO BRUTO DOS ITENS, NÃO BATE COM O TOTAL DA NF

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

PADRONIZAÇÃO - CODE INSPECTOR

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

Palavras Chave:

PADRONIZAÇÃO - CODE INSPECTOR - NOTA FISCAL

 

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016I01

REPS /PWS/MZYCI016O01

REPS /PWS/MZYCI016OO

REPS /PWS/MZYCI016TOP

 

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

            ebelp    = /pws/zycie042-ebelp AND

            nfglobal = /pws/zycie042-nfglobal.

    ENDIF.

  ENDIF.

  IF v_embarca IS INITIAL.

    SELECT SINGLE embarca FROM /pws/zycit001

                  INTO v_embarca

                  WHERE nrseq EQ /pws/zycie042-nrseq.

    IF v_embarca EQ /pws/zycie001-embarca.

      UPDATE /pws/zycit042 SET embarca = /pws/zycie042-embarca

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

                      WHERE nrseq = /pws/zycie042-nrseq.

* << Fim da exclusão

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

                      WHERE nrseq = /pws/zycie042-nrseq."#EC CI_NOFIRST

* << Fim da inclusão

    ENDIF.

  ENDIF.

ENDFORM.

FORM seleciona_itens_nfg.

  DATA: v_nolin TYPE i VALUE IS INITIAL,

        wa_zycit042 LIKE /pws/zycit042 ,

        v_ternacion LIKE /pws/zycit093-ternacion,

        v_ntgew_tot LIKE itab_zycit003-ntgew.

  DATA: BEGIN OF itab_zycit049_fndp OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit049.

...

 

...

      itab_zycit042-embarca = /pws/zycit001-embarca.

      itab_zycit042-j_1bbranch = /pws/zycit001-j_1bbranch.

      itab_zycit042-nrseqnf = /pws/zycie041-nrseq.

      IF NOT itab_zycit003-waers IS INITIAL.

      ENDIF.

      IF NOT itab_zycit003-qtd_itend IS INITIAL.

        MOVE itab_zycit003-qtd_itend TO itab_zycit042-qtd_iten.

      ENDIF.

      CLEAR v_subrc.

      MOVE itab_zycit042 TO wa_zycit042.

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

      CALL CUSTOMER-FUNCTION '001'

        EXPORTING

         wa_zycit041 = /pws/zycie041

         v_parametro = '02'

        IMPORTING

          v_subrc = v_subrc

        CHANGING

          itab_zycit042 = wa_zycit042.

      IF v_subrc NE 'X'.

* << Fim da exclusão

        READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq

                                          ebeln = itab_zycit003-ebeln

                                          ebelp = itab_zycit003-ebelp.

        IF /pws/zycit085-ukursfob IS INITIAL.

          itab_zycit042-netpr  =

                   ( itab_zycit003-vlreal * itab_zycit100-dttaxbem ) .

          IF NOT itab_zycit003-vlfre_fat IS INITIAL.

            IF NOT itab_zycit003-qtd_itend IS INITIAL.

              itab_zycit042-netpr  = ( itab_zycit003-vlfre_fat /

              itab_zycit003-qtd_itend * itab_zycit100-dttaxbem ) +

...

 

...

            ENDIF.

          ENDIF.

        ENDIF.

        READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq

                                          ebeln = itab_zycit003-ebeln

                                          ebelp = itab_zycit003-ebelp.

        IF /pws/zycit031 IS INITIAL.

          SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.

          SELECT SINGLE * FROM /pws/zycit031

            WHERE inco1 = /pws/zycit001-inco1

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

              AND land1 EQ t001-land1.

* << Fim da exclusão

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

            AND land1 EQ t001-land1.                    "#EC CI_NOFIRST

* << Fim da inclusão

        ENDIF.

        IF /pws/zycit093 IS INITIAL.

          SELECT SINGLE * FROM /pws/zycit093

            WHERE nrseqce = /pws/zycit085-nrbl.

        ENDIF.

        IF /pws/zycit031-inco1_ci = 'C&F' AND

            NOT itab_zycit003-qtd_iten IS INITIAL AND

            NOT itab_zycit003-qtd_itend IS INITIAL .

          IF NOT itab_zycit100-vlfre IS INITIAL.

            itab_zycit042-netpr = itab_zycit042-netpr -

...

 

...

          ELSEIF NOT /pws/zycit085-vlfre IS INITIAL.

            itab_zycit042-netpr = itab_zycit042-netpr -

             ( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *

itab_zycit100-dttaxbem )

             / itab_zycit003-qtd_iten ) +

             ( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *

itab_zycit100-dttaxbem )

             / itab_zycit003-qtd_itend ) .

          ENDIF.

        ENDIF.

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

      ELSE.

        MOVE wa_zycit042 TO itab_zycit042.

      ENDIF.

* << Fim da exclusão

      IF sy-subrc = 0 AND /pws/zycit062-flag_icms = 'X'.

        PERFORM atualiza_icms_unitario.

      ENDIF.

      IF /pws/zycit041-nrseq IS INITIAL.

        /pws/zycit041-nrseq = /pws/zycie041-nrseq.

      ENDIF.

      SELECT SINGLE * FROM /pws/zycbt007

                      WHERE bukrs EQ /pws/zycie041-bukrs.

      IF sy-subrc NE 0.

        MESSAGE e120.

...

 

...

        AND   ebeln EQ itab_zycit003-ebeln

        AND   ebelp EQ itab_zycit003-ebelp.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM find_nrseqc.

  DATA:

    v_nfglobal LIKE /pws/zycit041-nfglobal,

    v_count(6) TYPE n.

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

  SELECT MAX( nfglobal ) INTO (v_nfglobal) FROM /pws/zycit041.

* << Fim da exclusão

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

  SELECT MAX( nfglobal ) INTO (v_nfglobal)

  FROM /pws/zycit041.                                   "#EC CI_NOWHERE

* << Fim da inclusão

  v_count = v_nfglobal+0(6) + 1.

  MOVE v_count TO /pws/zycie041-nfglobal.

ENDFORM.

FORM cria_nota_fiscal_g.

  CLEAR v_visualiza.

  LOOP AT itab_zycit042 WHERE ( docnum IS initial OR

                                docnum = '9999999999' OR

                                docnum = '8888888888' ) AND

                          NOT ebeln  IS initial.

  ENDLOOP.

...

 

...

    LEAVE TO SCREEN '0300'.

  ENDIF.

  MOVE itab_zycit042_c[] TO itab_zycit042_c2[].

  PERFORM fill_data_j1b1_c.

ENDFORM.

FORM find_nrseqc_nfr.

  DATA:

    v_nfremessa  LIKE /pws/zycit043-nfremessa,

    v_count(6) TYPE n,

    v_ano(3).

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

  SELECT MAX( nfremessa ) INTO (v_nfremessa) FROM /pws/zycit043.

* << Fim da exclusão

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

  SELECT MAX( nfremessa ) INTO (v_nfremessa)

  FROM /pws/zycit043.                                   "#EC CI_NOWHERE

* << Fim da inclusão

  v_count = v_nfremessa+0(6) + 1.

  MOVE v_count TO /pws/zycie043-nfremessa.

ENDFORM.

FORM carrega_zycie044.

  IF itab_zycit044-ebeln IS INITIAL.

    EXIT.

  ENDIF.

  MOVE-CORRESPONDING itab_zycit044 TO /pws/zycie044.

  /pws/zycie045-saldo = itab_zycit044-saldo.

  /pws/zycie045-menge = itab_zycit044-menge.

...

 

...

              itab_zycit042-processado = 'X'.

              MODIFY itab_zycit042 TRANSPORTING processado.

             READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.

              READ TABLE itab_zycit042_d WITH KEY

                  nrseq = itab_zycit042-nrseq

                  ebeln = itab_zycit042-ebeln

                  ebelp = itab_zycit042-ebelp.

              CLEAR v_subrc.

              MOVE: itab_zycit042 TO wa_zycit042_exit,

                    itab_zycit042_d TO wa_zycit042_exit_d.

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

              CALL CUSTOMER-FUNCTION '001'

                EXPORTING

                 wa_zycit042 = wa_zycit042_exit

                 wa_zycit042_d = wa_zycit042_exit_d

                 wa_zycit041 = /pws/zycie041

                 v_parametro = '01'

                IMPORTING

                  v_subrc = v_subrc

                TABLES

                  it_zycee007 = it_zycee007

                  itab_zycit036 = itab_zycit036

                  itab_zycit036_di = itab_zycit036_di.

              IF v_subrc NE 'X'.

* << Fim da exclusão

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

              READ TABLE itab_zycit033

              WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da inclusão

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

            READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da exclusão

                                               regio = itab_t001w-regio.

                IF sy-subrc EQ 0.

                  PERFORM itens_nf.

                ELSE.

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

            READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da exclusão

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

                READ TABLE itab_zycit033

                WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da inclusão

                                                          regio = space.

                  PERFORM itens_nf.

                ENDIF.

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

              ENDIF.

* << Fim da exclusão

              PERFORM peso_global_sep.

              CLEAR itab_zycit033.

              v_counter = v_counter + 1.

              v_qtditem = wa_zycit048-qtd_item.

...

 

...

                                AND ebeln    EQ itab_zycit042-ebeln

                                AND ebelp    EQ itab_zycit042-ebelp.

             READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.

              READ TABLE itab_zycit042_d WITH KEY

                  nrseq = itab_zycit042-nrseq

                  ebeln = itab_zycit042-ebeln

                  ebelp = itab_zycit042-ebelp.

              CLEAR v_subrc.

              MOVE: itab_zycit042 TO wa_zycit042_exit,

                    itab_zycit042_d TO wa_zycit042_exit_d.

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

              CALL CUSTOMER-FUNCTION '001'

                EXPORTING

                 wa_zycit042 = wa_zycit042_exit

                 wa_zycit042_d = wa_zycit042_exit_d

                 wa_zycit041 = /pws/zycie041

                 v_parametro = '01'

                IMPORTING

                  v_subrc = v_subrc

                TABLES

                  it_zycee007 = it_zycee007

                  itab_zycit036 = itab_zycit036

                  itab_zycit036_di = itab_zycit036_di.

              IF v_subrc NE 'X'.

* << Fim da exclusão

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

              READ TABLE itab_zycit033

              WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da inclusão

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

            READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da exclusão

                                               regio = itab_t001w-regio.

                IF sy-subrc EQ 0.

                  PERFORM itens_nf.

                ELSE.

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

            READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da exclusão

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

                READ TABLE itab_zycit033

                WITH KEY tpnf = itab_zycit042-tpnf

* << Fim da inclusão

                                                          regio = space.

                  PERFORM itens_nf.

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

                ENDIF.

* << Fim da exclusão

              ENDIF.

              CLEAR itab_zycit033.

              PERFORM peso_global_sep.

              v_counter = v_counter + 1.

              v_qtditem =  wa_zycit048-qtd_item.

...

 

...

    ENDIF.

  ENDIF.

  CLEAR: v_icms_dif, v_base_dif.

  LOOP AT itab_zycit044.

    READ TABLE itab_zycit042_d WITH KEY

       nrseq = itab_zycit044-nrseq

       ebeln = itab_zycit044-ebeln

       ebelp = itab_zycit044-ebelp.

    wa_zycit042_d =  itab_zycit042_d.

    wa_zycit044   =  itab_zycit044.

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

    CLEAR: v_subrc.

    CLEAR v_subrc.

    CALL CUSTOMER-FUNCTION '001'

      EXPORTING

        wa_zycit043 = /pws/zycie043

        wa_zycit044 = wa_zycit044

        wa_zycit042_d = wa_zycit042_d

        v_parametro = '03'

        IMPORTING

        v_subrc = v_subrc

       TABLES

        it_zycee007 = it_zycee007

        itab_zycit036 = itab_zycit036

        itab_zycit036_di = itab_zycit036_di.

    IF v_subrc NE 'X'.

* << Fim da exclusão

      READ TABLE itab_zycit033 WITH KEY tpnf  = itab_zycit044-tpnf

                                        regio = itab_t001w-regio.

      IF sy-subrc NE 0.

        READ TABLE itab_zycit033 WITH KEY tpnf  = itab_zycit044-tpnf

                                          regio = space.

      ENDIF.

      PERFORM itens_nf_r.

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

    ENDIF.

* << Fim da exclusão

    CLEAR itab_zycit033.

  ENDLOOP.

  it_zycee005-transpnac = /pws/zycie043-transpnac.

  APPEND it_zycee005.

  PERFORM mensagens_nf_r.

  LOOP AT it_zycet004.

    MESSAGE i019 WITH it_zycet004-descricao.

  ENDLOOP.

  IF it_zycet004 IS INITIAL.

    PERFORM verifica_exit USING 'D'

...

 

...

                itab_zycit044-qtd_item ).

      v_brgew = v_brgew + ( ( ( itab_zycit003-ntgew / local_tntgew ) *

                         /pws/zycit093-brgew ) / itab_zycit044-menge  *

                            itab_zycit044-qtd_item ) .

    ENDLOOP.

  ENDLOOP.

  it_zycee005-ntgew  = v_ntgew.

  it_zycee005-brgew  = v_brgew.

  it_zycee005-gewei  = text-038.

ENDFORM.

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

FORM verify_null_field USING    value(p_field)

                                value(p_fieldname)

                                value(p_description).

* << Fim da exclusão

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

FORM verify_null_field USING    p_field

                                p_fieldname

                                p_description.

* << Fim da inclusão

  IF p_field IS INITIAL.

    it_zycet004-campo = p_fieldname.

    it_zycet004-descricao = p_description.

    APPEND it_zycet004.

  ENDIF.

ENDFORM.

FORM modo_batch_input.

  CLEAR: /pws/zycbt039, itab_modo.

  REFRESH: itab_modo.

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

  SELECT * FROM /pws/zycbt039.

* << Fim da exclusão

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

  SELECT * FROM /pws/zycbt039.                          "#EC CI_NOWHERE

* << Fim da inclusão

    itab_modo-selflag   = /pws/zycbt039-modo.

    itab_modo-varoption = /pws/zycbt039-descr.

    APPEND itab_modo.

  ENDSELECT.

  SORT itab_modo DESCENDING.

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

       EXPORTING

            textline1          = text-016

            textline2          = text-017

            titel              = text-001

...

 

...

  it_zycee005-bukrs   = /pws/zycie041a-bukrs.

  it_zycee005-branch  = itab_zycit042_c-j_1bbranch.

  it_zycee005-parvw  = text-015.

  it_zycee005-parid  = itab_zycit042_c-lifnr.

  it_zycee005-docdat = sy-datum.

  it_zycee005-pstdat = sy-datum.

ENDFORM.

FORM itens_nf.

  DATA v_val_icms LIKE /pws/zycee007-netpr.

  SELECT SINGLE * FROM  /pws/zycet079

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

                  WHERE func = 'NFG'.

* << Fim da exclusão

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

                  WHERE func = 'NFG'.                   "#EC CI_NOFIRST

* << Fim da inclusão

  IF sy-subrc = 0.

    READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit042-ebeln

                                  ebelp = itab_zycit042-ebelp.

    READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit042-nrseq

                                      ebeln = itab_zycit042-ebeln

                                      ebelp = itab_zycit042-ebelp.

    READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit042-nrseq

                                      ebeln = itab_zycit042-ebeln

                                      ebelp = itab_zycit042-ebelp.

    SET PARAMETER ID '/PWS/ZYCIP001' FIELD itab_zycit042-nrseq   .

...

 

...

    SET PARAMETER ID 'BSP'           FIELD itab_zycit042-ebelp   .

    SET PARAMETER ID '/PWS/ZYCBP002' FIELD /pws/zycie041-nfglobal.

    READ TABLE itab_zycit042_d WITH KEY

         nrseq = itab_zycit042-nrseq

         ebeln = itab_zycit042-ebeln

         ebelp = itab_zycit042-ebelp.

    MOVE itab_zycit042 TO /pws/zycit042.

    EXPORT /pws/zycit042 TO MEMORY ID 'I016'.

    EXPORT itab_zycit036    TO MEMORY ID 'I016A'.

    EXPORT itab_zycit036_di TO MEMORY ID 'I016B'.

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

    SUBMIT (/pws/zycet079-transacao) AND RETURN.

* << Fim da exclusão

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

    SUBMIT (/pws/zycet079-transacao) AND RETURN.         "#EC CI_SUBMIT

* << Fim da inclusão

    SET PARAMETER ID '/PWS/ZYCIP001' FIELD space.

    SET PARAMETER ID 'BES'      FIELD space.

    SET PARAMETER ID 'BSP'      FIELD space.

    SET PARAMETER ID '/PWS/ZYCBP002' FIELD space.

    EXPORT space TO MEMORY ID 'I016A'.

    EXPORT space TO MEMORY ID 'I016B'.

  ELSE.

    PERFORM verifica_exit USING 'D'

                                '/PWS/SAPMZYCI016'

                                'DNF002'.

...

 

...

    MOVE itab_zycit042 TO /pws/zycit042.

    EXPORT /pws/zycit042 TO MEMORY ID 'I016'.

    MOVE itab_zycit042_d TO /pws/zycit042.

    EXPORT /pws/zycit042 TO MEMORY ID 'I016F'.

    EXPORT itab_zycit036    TO MEMORY ID 'I016A'.

    EXPORT itab_zycit036_di TO MEMORY ID 'I016B'.

    CLEAR itab_zyglt100 .

    READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF002'.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND

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

                                                      RETURN.

* << Fim da exclusão

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

      RETURN.                                            "#EC CI_SUBMIT

* << Fim da inclusão

      IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.

      MOVE /pws/zycee007 TO it_zycee007.

      APPEND it_zycee007.

      CLEAR it_zycee007.

    ELSE.

      REFRESH itab_zyglt100.

      PERFORM verifica_exit USING 'D'

                          '/PWS/SAPMZYCI016'

                          'DNF012'.

      e_subrc = 0.

...

 

...

        PERFORM itens_nfnew.

      ENDIF.

    ENDIF.

    EXPORT space TO MEMORY ID 'I016A'.

    EXPORT space TO MEMORY ID 'I016B'.

  ENDIF.

ENDFORM.

FORM itens_nf_r.

  DATA v_val_icms_r LIKE /pws/zycee007-netpr.

  SELECT SINGLE * FROM  /pws/zycet079

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

                  WHERE func = 'NFG'.

* << Fim da exclusão

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

                  WHERE func = 'NFG'.                   "#EC CI_NOFIRST

* << Fim da inclusão

  IF sy-subrc = 0 AND

     NOT /pws/zycet079-transacao IS INITIAL  .

    READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit044-ebeln

                                  ebelp = itab_zycit044-ebelp.

    READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit044-nrseq

                                      ebeln = itab_zycit044-ebeln

                                      ebelp = itab_zycit044-ebelp.

    READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit044-nrseq

                                      ebeln = itab_zycit044-ebeln

                                      ebelp = itab_zycit044-ebelp.

...

 

...

    SET PARAMETER ID 'BSP'      FIELD itab_zycit044-ebelp.

    SET PARAMETER ID '/pws/ZYCBP001' FIELD /pws/zycie043-nfremessa.

    MOVE itab_zycit044 TO /pws/zycit044.

    EXPORT /pws/zycit044 TO MEMORY ID 'I016C'.

    READ TABLE itab_zycit042_d WITH KEY

         nrseq = itab_zycit044-nrseq

         ebeln = itab_zycit044-ebeln

         ebelp = itab_zycit044-ebelp.

    MOVE itab_zycit042_d TO /pws/zycit042.

    EXPORT /pws/zycit042 TO MEMORY ID 'I016'.

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

    SUBMIT (/pws/zycet079-transacao) AND RETURN.

* << Fim da exclusão

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

    SUBMIT (/pws/zycet079-transacao) AND RETURN.         "#EC CI_SUBMIT

* << Fim da inclusão

    IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.

    MOVE /pws/zycee007 TO it_zycee007.

    APPEND it_zycee007.

    CLEAR it_zycee007.

    SET PARAMETER ID '/pws/ZYCIP001' FIELD space.

    SET PARAMETER ID 'BES'      FIELD space.

    SET PARAMETER ID 'BSP'      FIELD space.

    SET PARAMETER ID '/pws/ZYCBP001' FIELD space.

    EXPORT space TO MEMORY ID 'I016A'.

    EXPORT space TO MEMORY ID 'I016B'.

...

 

...

         ebeln = itab_zycit044-ebeln

         ebelp = itab_zycit044-ebelp.

    MOVE itab_zycit042   TO /pws/zycit042    .

    EXPORT /pws/zycit042 TO MEMORY ID 'I016' .

    MOVE itab_zycit042_d TO /pws/zycit042    .

    EXPORT /pws/zycit042 TO MEMORY ID 'I016F'.

    CLEAR itab_zyglt100 .

    READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF005'.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND

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

                                                          RETURN.

* << Fim da exclusão

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

      RETURN.                                            "#EC CI_SUBMIT

* << Fim da inclusão

      IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.

      MOVE /pws/zycee007 TO it_zycee007.

      APPEND it_zycee007.

      CLEAR it_zycee007.

      SET PARAMETER ID '/pws/ZYCIP001' FIELD space.

      SET PARAMETER ID 'BES'      FIELD space.

      SET PARAMETER ID 'BSP'      FIELD space.

      SET PARAMETER ID '/pws/ZYCBP001' FIELD space.

      EXPORT space TO MEMORY ID 'I016A'.

      EXPORT space TO MEMORY ID 'I016B'.

...

 

...

  it_zycee006-nrseq   = /pws/zycie041-nfglobal.

  it_zycee006-branch  = wa_zycit001-j_1bbranch.

  it_zycee006-indice  = '1'.

  READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.

  IF sy-subrc NE 0.

    CLEAR itab_zycit085.

  ENDIF.

  WRITE itab_zycit085-dtreg TO v_dtreg.

  IF wa_zycit001-meioemba EQ 'PS'.

    SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094

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

           WHERE nrseq = wa_zycit001-nrseq.

* << Fim da exclusão

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

           WHERE nrseq = wa_zycit001-nrseq.             "#EC CI_NOFIRST

* << Fim da inclusão

    IF sy-subrc EQ 0.

      SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093

             WHERE nrseqce = /pws/zycit094-nrseqce.

      CONCATENATE text-083 /pws/zycit093-identify '/'

                  itab_zycit085-nrseqdi text-066 v_dtreg

                  INTO it_zycee006-msg SEPARATED BY space.

    ENDIF.

  ELSE.

    CONCATENATE text-021  itab_zycit085-nrdi '/'

                itab_zycit085-nrseqdi text-066 v_dtreg

...

 

...

  it_zycee006-nrseq   = /pws/zycie043-nfremessa.

  it_zycee006-branch  = wa_zycit001-j_1bbranch.

  it_zycee006-indice  = v_cont.

  READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.

  IF sy-subrc NE 0.

    CLEAR itab_zycit085.

  ENDIF.

  WRITE itab_zycit085-dtreg TO v_dtreg.

  IF wa_zycit001-meioemba EQ 'PS'.

    SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094

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

           WHERE nrseq = wa_zycit001-nrseq.

* << Fim da exclusão

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

           WHERE nrseq = wa_zycit001-nrseq.             "#EC CI_NOFIRST

* << Fim da inclusão

    IF sy-subrc EQ 0.

      SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093

             WHERE nrseqce = /pws/zycit094-nrseqce.

      CONCATENATE text-083 /pws/zycit093-identify '/'

                  itab_zycit085-nrseqdi text-066 v_dtreg

                  INTO it_zycee006-msg SEPARATED BY space.

    ENDIF.

  ELSE.

    CONCATENATE text-021  itab_zycit085-nrdi '/'

                itab_zycit085-nrseqdi text-066 v_dtreg

...

 

...

      itab_zycit001-padest TO itab_zycit001_re-padest,

      itab_zycit001-bukrs  TO itab_zycit001_re-bukrs.

      APPEND itab_zycit001_re.

    ENDLOOP.

  ENDIF.

  IF NOT itab_zycit001_re[] IS INITIAL.

    SELECT *

      FROM /pws/zycit042

      INTO TABLE itab_zycit042_auxre

      FOR ALL ENTRIES IN itab_zycit001_re

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

      WHERE nrseq = itab_zycit001_re-nrseq.

* << Fim da exclusão

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

      WHERE nrseq = itab_zycit001_re-nrseq.             "#EC CI_NOFIRST

* << Fim da inclusão

    IF NOT itab_zycit042_auxre[] IS INITIAL.

      SELECT *

        FROM /pws/zycit041

        INTO TABLE itab_zycit041_aux

        FOR ALL ENTRIES IN itab_zycit042_auxre

        WHERE nrseq = itab_zycit042_auxre-nrseqnf.

      IF NOT itab_zycit041_aux[] IS INITIAL.

        SELECT *

          FROM j_1bnfdoc

          INTO TABLE itab_j1bnfdoc

...

 

...

        itab_zycit042-tpnf   = itab_zycit003-tpnf.

        REFRESH itab_zycit263.

        SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE

               nrseq = itab_zycit003-nrseq AND

               ebeln = itab_zycit003-ebeln AND

               ebelp = itab_zycit003-ebelp AND

               eliminado = space.

        IF sy-subrc EQ 0.

          READ TABLE itab_zycit263 INDEX 1.

          SELECT SINGLE frpagto INTO /pws/zycit006-frpagto

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

           FROM /pws/zycit006

* << Fim da exclusão

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

           FROM /pws/zycit006                           "#EC CI_NOFIELD

* << Fim da inclusão

           WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.

          IF sy-subrc EQ 0.

            IF /pws/zycit006-frpagto EQ 'A'.

              itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.

            ENDIF.

          ENDIF.

          itab_zycit042-waersb = /pws/zycbt007-waersb.

        ENDIF.

      ENDIF.

    ENDIF.

...

 

...

        itab_zycit042-tpnf   = /pws/zycit012-tpnf.

        REFRESH itab_zycit263.

        SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE

               nrseq = itab_zycit003-nrseq AND

               ebeln = itab_zycit003-ebeln AND

               ebelp = itab_zycit003-ebelp AND

               eliminado = space.

        IF sy-subrc EQ 0.

          READ TABLE itab_zycit263 INDEX 1.

          SELECT SINGLE frpagto INTO /pws/zycit006-frpagto

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

           FROM /pws/zycit006

* << Fim da exclusão

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

           FROM /pws/zycit006                           "#EC CI_NOFIELD

* << Fim da inclusão

           WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.

          IF sy-subrc EQ 0.

            IF /pws/zycit006-frpagto EQ 'A'.

              itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.

            ENDIF.

          ENDIF.

          itab_zycit042-waersb = /pws/zycbt007-waersb.

        ENDIF.

      ENDIF.

    ENDIF.

...

 

...

      ELSE.

        v_advicms = ( itab_zycit003-advalicms / 100 ).

      ENDIF.

      v_basred = ( v_advicms * 10000 / itab_zycit003-advalicms ).

    ELSE.

      v_basred    = itab_zycit003-basred.

    ENDIF.

  ENDIF.

ENDFORM.

FORM efetua_cancelamento_g.

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

  DATA v_subrc LIKE sy-subrc.

* << Fim da exclusão

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

  CLEAR v_subrc.

* << Fim da inclusão

  CLEAR v_apaga.

  GET CURSOR FIELD v_campo VALUE v_valor.

  IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND v_valor > 0.

    READ TABLE itab_zycit041 WITH KEY docnum = v_valor.

    IF itab_zycit041-statusp_mr1m = 'C' AND

       v_modalidade NE '99'.

      MESSAGE i032.

    ELSE.

      v_subrc = sy-subrc.

      SELECT SINGLE * FROM /pws/zycit264

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

        WHERE nrseqnf = /pws/zycie041-nrseq.

* << Fim da exclusão

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

        WHERE nrseqnf = /pws/zycie041-nrseq.            "#EC CI_NOFIELD

* << Fim da inclusão

      IF sy-subrc = 0.

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

        MESSAGE i037.

* << Fim da exclusão

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

        MESSAGE i037 WITH /pws/zycit264-nrseqc.

* << Fim da inclusão

      ELSE.

        SELECT SINGLE * FROM /pws/zycit043

          WHERE nrseq EQ /pws/zycie041-nrseq

...

 

...

                AND nfglobal = /pws/zycie041-nfglobal

                AND docnum   = v_valor.

            DELETE FROM /pws/zycit042

              WHERE nrseq    = itab_zycit042-nrseq

                AND nfglobal = itab_zycit042-nfglobal

                AND ebeln    = itab_zycit042-ebeln

                AND ebelp    = itab_zycit042-ebelp

                AND tpnf     = itab_zycit042-tpnf

                AND j_1bbranch = itab_zycit042-j_1bbranch

                AND lifnr    = itab_zycit042-lifnr

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

                AND docnum   = v_valor.

* << Fim da exclusão

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

                AND docnum   = v_valor.                 "#EC CI_NOFIRST

* << Fim da inclusão

            IF sy-subrc = 0.

              DELETE FROM /pws/zycit036

                WHERE nrseq   = itab_zycit042-nrseq

                 AND ebeln    = itab_zycit042-ebeln

                 AND ebelp    = itab_zycit042-ebelp

                 AND nrseqori = itab_zycit042-docnum

                 AND origem   = 'NF'.

              DELETE FROM /pws/zycit036

                WHERE nrseq = itab_zycit042-nrseq

                  AND ebeln = itab_zycit042-ebeln

...

 

...

                AND ebelp    = itab_zycit042-ebelp

                AND tpnf     = itab_zycit042-tpnf

                AND j_1bbranch = itab_zycit042-j_1bbranch

                AND lifnr    = itab_zycit042-lifnr

                AND docnum   = v_valor.

            DELETE FROM /pws/zycit223

              WHERE ebeln    = itab_zycit042-ebeln    AND

                    ebelp    = itab_zycit042-ebelp    AND

                    nfglobal = itab_zycit042-nfglobal AND

                    nrseq    = itab_zycit042-nrseq    AND

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

                    docnum   = v_valor.

* << Fim da exclusão

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

                    docnum   = v_valor.                 "#EC CI_NOFIRST

* << Fim da inclusão

            COMMIT WORK.

          ELSEIF v_apaga EQ 'X' AND v_modalidade = '99'.

            itab_zycit042-docnum = '9999999999'.

            UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum

                                series = itab_zycit042-series

                                nfnum = itab_zycit042-nfnum

              WHERE nrseq    = itab_zycit042-nrseq

                AND nfglobal = itab_zycit042-nfglobal

                AND ebeln    = itab_zycit042-ebeln

                AND ebelp    = itab_zycit042-ebelp

                AND tpnf     = itab_zycit042-tpnf

                AND j_1bbranch = itab_zycit042-j_1bbranch

                AND lifnr    = itab_zycit042-lifnr

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

                AND docnum   = v_valor.

* << Fim da exclusão

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

                AND docnum   = v_valor.                 "#EC CI_NOFIRST

* << Fim da inclusão

            MODIFY itab_zycit042.

            IF v_modalidade = '99'.

              /pws/zycie041-docnum = '9999999999'.

              CLEAR /pws/zycie041-cancel.

              MODIFY /pws/zycit041 FROM /pws/zycie041.

            ENDIF.

            DELETE FROM /pws/zycit041

             WHERE nrseq    = /pws/zycie041-nrseq

               AND nfglobal = /pws/zycie041-nfglobal

               AND docnum   = v_valor.

...

 

...

            UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum

                                series = itab_zycit042-series

                                nfnum = itab_zycit042-nfnum

              WHERE nrseq    = itab_zycit042-nrseq

                AND nfglobal = itab_zycit042-nfglobal

                AND ebeln    = itab_zycit042-ebeln

                AND ebelp    = itab_zycit042-ebelp

                AND tpnf     = itab_zycit042-tpnf

                AND j_1bbranch = itab_zycit042-j_1bbranch

                AND lifnr    = itab_zycit042-lifnr

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

                AND docnum   = v_valor.

* << Fim da exclusão

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

                AND docnum   = v_valor.                 "#EC CI_NOFIRST

* << Fim da inclusão

            MODIFY itab_zycit042.

            /pws/zycie041-docnum = '8888888888'.

            CLEAR /pws/zycie041-cancel.

            MODIFY /pws/zycit041 FROM /pws/zycie041.

            /pws/zycie041-cancel = 'X'.

            UPDATE /pws/zycit041 SET cancel = /pws/zycie041-cancel

             WHERE nrseq    = /pws/zycie041-nrseq

               AND nfglobal = /pws/zycie041-nfglobal

               AND docnum   = v_valor.

            UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum

...

 

...

              AND nfglobal = /pws/zycie041-nfglobal

              AND docnum   = v_valor.

      DELETE FROM /pws/zycit042

        WHERE nrseq    = itab_zycit042-nrseq

          AND nfglobal = itab_zycit042-nfglobal

          AND ebeln    = itab_zycit042-ebeln

          AND ebelp    = itab_zycit042-ebelp

          AND tpnf     = itab_zycit042-tpnf

          AND j_1bbranch = itab_zycit042-j_1bbranch

          AND lifnr    = itab_zycit042-lifnr

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

          AND docnum   = v_valor.

* << Fim da exclusão

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

          AND docnum   = v_valor.                       "#EC CI_NOFIRST

* << Fim da inclusão

      IF sy-subrc = 0.

        DELETE FROM /pws/zycit036

          WHERE nrseq = itab_zycit042-nrseq

           AND ebeln = itab_zycit042-ebeln

           AND ebelp = itab_zycit042-ebelp

           AND origem = 'NF'.

        DELETE FROM /pws/zycit036

          WHERE nrseq = itab_zycit042-nrseq

            AND ebeln = itab_zycit042-ebeln

            AND ebelp = itab_zycit042-ebelp

...

 

...

          AND ebelp    = itab_zycit042-ebelp

          AND tpnf     = itab_zycit042-tpnf

          AND j_1bbranch = itab_zycit042-j_1bbranch

          AND lifnr    = itab_zycit042-lifnr

          AND docnum   = v_valor.

      DELETE FROM /pws/zycit223

        WHERE ebeln    = itab_zycit042-ebeln    AND

              ebelp    = itab_zycit042-ebelp    AND

              nfglobal = itab_zycit042-nfglobal AND

              nrseq    = itab_zycit042-nrseq    AND

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

              docnum   = v_valor.

* << Fim da exclusão

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

              docnum   = v_valor.                       "#EC CI_NOFIRST

* << Fim da inclusão

      IF v_modalidade = '99' OR

      ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).

        CLEAR /pws/zycie045-saldo.

        UPDATE /pws/zycit045 SET saldo = /pws/zycie045-saldo

        WHERE nrseq    = itab_zycit042-nrseq

          AND nfglobal = itab_zycit042-nfglobal

          AND ebeln    = itab_zycit042-ebeln

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

          AND ebelp    = itab_zycit042-ebelp.

* << Fim da exclusão

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

          AND ebelp    = itab_zycit042-ebelp.           "#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

      COMMIT WORK.

    ENDLOOP.

    IF sy-subrc = 0 AND

      ( v_modalidade = '99'

      OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) )  AND NOT

       /pws/zycie041-belnr_f_02 IS INITIAL.

      PERFORM reverse_documento_impos_fb08.

    ENDIF.

  ENDIF.

...

 

...

        UPDATE /pws/zycit043 SET cancel = /pws/zycie043-cancel

          WHERE nrseq     = /pws/zycie043-nrseq

            AND nfglobal  = /pws/zycie043-nfglobal

            AND nfremessa = /pws/zycie043-nfremessa

            AND docnum    = v_valor.

        CLEAR: /pws/zycit045.

        SELECT SINGLE * FROM /pws/zycit045

          WHERE nrseq    = itab_zycit044-nrseq

            AND nfglobal = itab_zycit044-nfglobal

            AND ebeln    = itab_zycit044-ebeln

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

            AND ebelp    = itab_zycit044-ebelp.

* << Fim da exclusão

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

            AND ebelp    = itab_zycit044-ebelp.         "#EC CI_NOFIRST

* << Fim da inclusão

        /pws/zycit045-saldo = /pws/zycit045-saldo +

 itab_zycit044-qtd_item.

        MODIFY /pws/zycit045.

        DELETE FROM /pws/zycit044

          WHERE nrseq     = itab_zycit044-nrseq

            AND nfglobal  = itab_zycit044-nfglobal

            AND nfremessa = itab_zycit044-nfremessa

            AND ebeln     = itab_zycit044-ebeln

            AND ebelp     = itab_zycit044-ebelp

            AND tpnf      = itab_zycit044-tpnf

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

            AND docnum    = v_valor.

* << Fim da exclusão

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

            AND docnum    = v_valor.                    "#EC CI_NOFIRST

* << Fim da inclusão

        DELETE itab_zycit044

          WHERE nrseq     = itab_zycit044-nrseq

            AND nfglobal  = itab_zycit044-nfglobal

            AND nfremessa = itab_zycit044-nfremessa

            AND ebeln     = itab_zycit044-ebeln

            AND ebelp     = itab_zycit044-ebelp

            AND tpnf      = itab_zycit044-tpnf

            AND docnum    = v_valor.

        FREE  itab_zycit043_lista.

        CLEAR itab_zycit043_lista.

...

 

...

  IF /pws/zycbt007-waersb IS INITIAL.

    SELECT SINGLE * FROM /pws/zycbt007

                 WHERE bukrs EQ /pws/zycie041-bukrs.

  ENDIF.

  SELECT SINGLE land1

    FROM t001

    INTO t001-land1

    WHERE bukrs EQ /pws/zycie041-bukrs.

  SELECT * FROM /pws/zycit039

    INTO TABLE itab_zycit039

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

    WHERE land1 EQ t001-land1.

* << Fim da exclusão

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

    WHERE land1 EQ t001-land1.                          "#EC CI_NOFIRST

* << Fim da inclusão

  SORT itab_zycit036 BY nrseq ebeln ebelp origem.

  LOOP AT itab_zycit036 WHERE nrseq = itab_zycit042-nrseq

                           AND ebeln = itab_zycit042-ebeln

                           AND ebelp = itab_zycit042-ebelp

                           AND origem = 'NF' AND

                           ( codigo = 'FOB' OR

                           codigo = 'CIF' OR

                           codigo = 'C&F' ) .

    MOVE: itab_zycit036-nrseq TO itab_zycit036aux-nrseq,

          itab_zycit036-ebeln TO itab_zycit036aux-ebeln,

...

 

...

    SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020

         WHERE regio = space AND ( baseicms = 'X' OR

                 baseii = 'X' ) AND

                 land1 EQ t001-land1.

  ENDIF.

  IF NOT itab_zycit020[] IS INITIAL.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.

    SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019

      FOR ALL ENTRIES IN itab_zycit020

      WHERE codigo = itab_zycit020-codigo

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

      AND    land1 = t001-land1.

* << Fim da exclusão

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

      AND    land1 = t001-land1.                        "#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  IF NOT itab_zycit019[] IS INITIAL.

    SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049

      FOR ALL ENTRIES IN itab_zycit019

      WHERE nrseq = /pws/zycie041-nrseq

          AND tpdesp = itab_zycit019-tpdesp

          AND vldp > 0.

  ENDIF.

  LOOP AT itab_zycit049.

    v_tabix3 = sy-tabix.

...

 

...

  LOOP AT itab_zycit003_aux.

    v_tot_ntgew = v_tot_ntgew + itab_zycit003_aux-ntgew.

    v_tot_plan = v_tot_plan +

         ( itab_zycit003_aux-netpr * itab_zycit003_aux-qtd_iten ).

    v_tot_real = v_tot_real +

         ( itab_zycit003_aux-vlreal * itab_zycit003_aux-qtd_iten ).

  ENDLOOP.

  SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.

  SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc

    WHERE tpdesp = /pws/zycit000-cod_sisc AND

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

           land1 = t001-land1.

* << Fim da exclusão

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

           land1 = t001-land1.                          "#EC CI_NOFIRST

* << Fim da inclusão

  DESCRIBE TABLE itab_zycit042 LINES v_lines.

  SORT itab_zycit003 BY ebeln ebelp.

  LOOP AT itab_zycit049aux.

    IF itab_zycit049aux-codigo NE v_cod_sisc OR

       /pws/zycit000-flag_txsisc IS INITIAL.

      READ TABLE itab_zycit039 WITH KEY

                      codigo = itab_zycit049aux-codigo.

      IF itab_zycit049aux-waers NE /pws/zycbt007-waersb.

   PERFORM taxa_converte USING itab_zycit049aux-waers wa_zycit085-dttax

                                                   CHANGING v_taxa_desp.

...

 

...

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

        zexit = 'DNF016'  BINARY SEARCH.

  IF  NOT itab_zyglt100-zexit_ativa IS INITIAL.

    PERFORM (itab_zyglt100-formulario) IN PROGRAM

       (itab_zyglt100-programa) IF FOUND.

  ELSE.

    SELECT SINGLE * FROM /pws/zycit100

     WHERE nrseq = itab_zycit042-nrseq

       AND ebeln = itab_zycit042-ebeln

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

       AND ebelp = itab_zycit042-ebelp.

* << Fim da exclusão

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

       AND ebelp = itab_zycit042-ebelp.                 "#EC CI_NOFIRST

* << Fim da inclusão

    IF sy-subrc EQ 0.

      SELECT * UP TO 1 ROWS FROM /pws/zycit085

               WHERE   nrseqdi = /pws/zycit100-nrseqdi.

      ENDSELECT.

    ENDIF.

    IF /pws/zycit001-tpdecl IS INITIAL.

      SELECT SINGLE *

        FROM /pws/zycit001

        WHERE nrseq EQ itab_zycit042-nrseq.

    ENDIF.

...

 

...

     INTO it_zycee006-msg SEPARATED BY space.

    it_zycee006-indice = v_cont.

    APPEND it_zycee006.

  ENDIF.

  CLEAR v_dtreg.

  IF NOT itab_zycit001_msg[] IS INITIAL.

    SELECT *

       FROM /pws/zycit042

       INTO TABLE itab_zycit042_auxre

       FOR ALL ENTRIES IN itab_zycit001_msg

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

       WHERE nrseq = itab_zycit001_msg-nrseq.

* << Fim da exclusão

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

       WHERE nrseq = itab_zycit001_msg-nrseq.           "#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  IF NOT itab_zycit042_auxre[] IS INITIAL.

    SELECT *

      FROM /pws/zycit041

      INTO TABLE itab_zycit041_aux

      FOR ALL ENTRIES IN itab_zycit042_auxre

      WHERE nrseq = itab_zycit042_auxre-nrseqnf.

    IF NOT itab_zycit042_auxre[] IS INITIAL.

      SELECT *

        FROM j_1bnfdoc

...

 

...

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM chama_nfc_mult.

  LOOP AT itab_zycit042 WHERE docnum IS initial.

  ENDLOOP.

  IF sy-subrc = 0.

    MESSAGE i015 WITH text-068.

  ELSE.

    SELECT SINGLE * FROM /pws/zycit264

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

      WHERE nrseqnf = /pws/zycie041-nrseq.

* << Fim da exclusão

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

      WHERE nrseqnf = /pws/zycie041-nrseq.              "#EC CI_NOFIELD

* << Fim da inclusão

    IF sy-subrc = 0.

      GET CURSOR FIELD v_campo VALUE v_valor.

      IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

        /pws/zycie041a-docnum = v_valor.

        EXPORT /pws/zycie041a

          TO MEMORY ID 'IP016A'.

        SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycie041-nrseq.

        IF sy-tcode = '/PWS/ZYCI016_E'.

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

          CALL TRANSACTION '/PWS/ZYCI029_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

          CALL TRANSACTION '/PWS/ZYCI029_E'

          AND SKIP FIRST SCREEN.                         "#EC CI_CALLTA

* << Fim da inclusão

        ELSE.

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

          CALL TRANSACTION '/PWS/ZYCI029_L' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

          CALL TRANSACTION '/PWS/ZYCI029_L'

          AND SKIP FIRST SCREEN.                         "#EC CI_CALLTA

* << Fim da inclusão

        ENDIF.

      ELSE.

...

 

...

    ELSE.

      IF sy-tcode = '/PWS/ZYCI016_E'.

        MESSAGE s015 WITH text-062.

      ELSE.

        MOVE /pws/zycie041 TO /pws/zycie041a.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

          /pws/zycie041a-docnum = v_valor.

          EXPORT /pws/zycie041a

            TO MEMORY ID 'IP016A'.

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

          CALL TRANSACTION '/PWS/ZYCI029_C'.

* << Fim da exclusão

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

          CALL TRANSACTION '/PWS/ZYCI029_C'.             "#EC CI_CALLTA

* << Fim da inclusão

        ELSE.

          MESSAGE i015 WITH text-052.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM contabiliza_impostos.

  IF /pws/zycie041-statusp_f_02 EQ 'C'.

    EXIT.

...

 

...

    LOOP AT itab_zycbt034.

      MESSAGE i016 WITH itab_zycbt034-descricao.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM lancamento_impostos.

  DATA: v_montante   LIKE /pws/zycbe035-wrbtr     ,

        v_j_1bbranch LIKE /pws/zycit042-j_1bbranch.

  FREE itab_zycit033.

  SELECT * FROM /pws/zycit033 INTO TABLE itab_zycit033

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

         WHERE clnf  = 'G'.

* << Fim da exclusão

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

         WHERE clnf  = 'G'.                             "#EC CI_NOFIRST

* << Fim da inclusão

  FREE itab_global.

  MOVE itab_zycit042[] TO itab_global[].

  SELECT * FROM j_1baj INTO TABLE itab_j_1baj

         WHERE ( taxgrp = 'ICMS' OR taxgrp = 'IPI' ).

  FREE itab_j1bnfstx.

  IF NOT itab_global[] IS INITIAL.

    SELECT * FROM j_1bnfstx INTO TABLE itab_j1bnfstx

           FOR ALL ENTRIES IN itab_global

           WHERE docnum = /pws/zycie041-docnum

             AND itmnum = itab_global-itmnum.

...

 

...

  DATA: v_totprod LIKE itab_j_1bnflin-netwr,

        v_totfre  LIKE itab_j_1bnflin-netfre,

        v_totins  LIKE itab_j_1bnflin-netins,

        v_tototh  LIKE itab_j_1bnflin-netoth,

        v_totnota LIKE itab_j_1bnflin-netoth,

        v_empresa LIKE j_1bnfdoc-bukrs,

        v_filial  LIKE j_1bnfdoc-branch.

  SELECT SINGLE * FROM /pws/zycit033

                  INTO /pws/zycit033

                  WHERE clnf EQ 'G'

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

                  AND tpnf EQ itab_zycit042-tpnf.

* << Fim da exclusão

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

                  AND tpnf EQ itab_zycit042-tpnf.       "#EC CI_NOFIRST

* << Fim da inclusão

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM lfa1

             INTO TABLE itab_lfa1

             FOR ALL ENTRIES IN itab_zycit003

             WHERE lifnr EQ itab_zycit003-lifnr.

  ENDIF.

  IF NOT itab_zycit041[] IS INITIAL.

    SELECT * FROM lfa1

             INTO TABLE itab_transp

             FOR ALL ENTRIES IN itab_zycit041

...

 

...

  ENDIF.

  FREE itab_zycit003.

ENDFORM.

FORM executa_download_cabecalho.

  DATA: v_tamanhoc TYPE i.

  CLEAR v_dir.

  SELECT SINGLE path FROM /pws/zycbt007

                     INTO v_dir

                     WHERE bukrs EQ /pws/zycie041-bukrs.

  MOVE '10' TO v_tamanhoc.

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

  CONCATENATE v_dir itab_zycit042-docnum 'C.txt' INTO v_dir.

* << Fim da exclusão

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

  CONCATENATE v_dir itab_zycit042-docnum 'C.txt' INTO v_dir."#EC NOTEXT

* << Fim da inclusão

  CLEAR v_arquivo.

  MOVE v_dir TO v_arquivo.

  CALL FUNCTION 'GUI_DOWNLOAD'

       EXPORTING

            filename                = v_arquivo

            filetype                = 'ASC'

       IMPORTING

            filelength              = v_tamanhoc

       TABLES

            data_tab                = itab_cabecalho_txt

...

 

...

                          ' ' 'BDC_OKCODE'       '/00'             ,

                          ' ' 'J_1BDYDOC-PSTDAT' v_data            .

  PERFORM fill_bdc USING: 'X' 'SAPLJ1BB2'        '2000' ,

                          ' ' 'BDC_OKCODE'       '=SAVE'.

  IF v_modo_bi IS INITIAL.

    v_modo_bi = 'N'.

  ENDIF.

  CALL TRANSACTION 'J1B2N' USING it_bdc

                           MODE  v_modo_bi

                           UPDATE 'S'

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

                           MESSAGES INTO it_msg.

* << Fim da exclusão

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

                           MESSAGES INTO it_msg.         "#EC CI_CALLTA

* << Fim da inclusão

ENDFORM.

FORM fill_bdc USING   p_tipo

                      p_fnam

                      p_fval.

  CLEAR it_bdc.

  IF NOT p_tipo IS INITIAL.

    it_bdc-program = p_fnam.

    it_bdc-dynpro  = p_fval.

    it_bdc-dynbegin = 'X'.

  ELSE.

...

 

...

  DATA: END OF itab_zycbt035_aux.

  DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.

          INCLUDE STRUCTURE /pws/zycbe035.

  DATA: END OF itab_zycbt035_aux2.

  IF NOT itab_global[] IS INITIAL.

    CLEAR itab_zycit100. REFRESH itab_zycit100.

    SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100

           FOR ALL ENTRIES IN itab_global

           WHERE nrseq = itab_global-nrseq

             AND ebeln = itab_global-ebeln

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

             AND ebelp = itab_global-ebelp.

* << Fim da exclusão

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

             AND ebelp = itab_global-ebelp.             "#EC CI_NOFIRST

* << Fim da inclusão

    CLEAR: itab_ekkn. REFRESH: itab_ekkn.

    SELECT ebeln ebelp prctr kostl fistl fipos ps_psp_pnr kokrs aufnr

           FROM ekkn INTO TABLE itab_ekkn

           FOR ALL ENTRIES IN itab_global

           WHERE ebeln = itab_global-ebeln

             AND ebelp = itab_global-ebelp.

    CLEAR: itab_matuse. REFRESH: itab_matuse.

    SELECT ebeln ebelp matnr bwtar j_1bmatuse knttp

           werks umrez umren lmein

           FROM ekpo INTO CORRESPONDING FIELDS OF TABLE itab_matuse

...

 

...

    SELECT * FROM /pws/zycit263

      INTO TABLE itab_zycit263

    FOR ALL ENTRIES IN itab_zycit003

    WHERE nrseq EQ itab_zycit003-nrseq

    AND   ebeln EQ itab_zycit003-ebeln

    AND   ebelp EQ itab_zycit003-ebelp .

    IF NOT itab_zycit263[] IS INITIAL.

      SELECT * FROM /pws/zycit006

        INTO TABLE itab_zycit006

      FOR ALL ENTRIES IN itab_zycit263

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

      WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat .

* << Fim da exclusão

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

      WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat .  "#EC CI_NOFIELD

* << Fim da inclusão

      IF sy-subrc EQ

      0.

        SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132

        FOR ALL ENTRIES IN itab_zycit006

            WHERE nrseq = itab_zycit006-nrseq

              AND nrfat = itab_zycit006-nrfat

              AND eliminado NE 'X'.

      ENDIF.

    ENDIF.

  ENDIF.

...

 

...

      AND   parvw EQ 'FU' .

      LOOP AT itab_zycit003.

        READ TABLE itab_ekpa WITH KEY ebeln = itab_zycit003-ebeln.

        IF sy-subrc NE 0.

          MESSAGE i015 WITH text-101.

          v_ok = 'N'.

          EXIT .

        ELSE.

          IF itab_ekpa-lifn2 IS INITIAL.

            MESSAGE i015 WITH text-101.

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

            v_ok = 'N'.

* << Fim da inclusão

            EXIT .

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

            v_ok = 'N'.

* << Fim da exclusão

          ENDIF.

        ENDIF.

      ENDLOOP.

      IF NOT v_ok = 'N'.

        CLEAR /pws/zycit480.

        LOOP AT itab_zycit480.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

 

...

    IF sy-tcode EQ '/PWS/ZYCI016_C' OR sy-tcode EQ '/PWS/ZYCI016_A'.

      CASE okcode.

        WHEN 'SELE'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            SELECT SINGLE * FROM j_1bnfdoc

              WHERE docnum EQ v_valor.

            IF sy-subrc EQ 0.

              i_docnum = v_valor.

              SET PARAMETER ID 'JEF' FIELD i_docnum.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'J1B3N'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE i025.

            ENDIF.

          ELSEIF v_campo EQ '/PWS/ZYCIE042-NRSEQ' .

            /pws/zycie042-nrseq = v_valor.

            EXPORT  /pws/zycie042-nrseq TO MEMORY ID '002'.

            v_status_s = 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

            CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

            CALL TRANSACTION '/PWS/ZYCI001_E'

            AND SKIP FIRST SCREEN.                       "#EC CI_CALLTA

* << Fim da inclusão

          ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN' .

            i_ebeln = v_valor.

            SELECT SINGLE * FROM ekko

              INTO ekko

              WHERE ebeln = i_ebeln.

            IF sy-subrc EQ 0.

              i_ebeln = v_valor.

              IF ekko-bstyp = 'L'.

                SET PARAMETER ID 'VRT' FIELD i_ebeln.

                AUTHORITY-CHECK OBJECT 'S_TCODE'

                ID 'TCD' FIELD 'ME33'.

                IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

                  CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                  CALL TRANSACTION 'ME33'

                  AND SKIP FIRST SCREEN.                 "#EC CI_CALLTA

* << Fim da inclusão

                ELSE.

                  MESSAGE e261(sf) WITH 'ME33'.

                ENDIF.

              ELSE.

                SET PARAMETER ID 'BES' FIELD i_ebeln.

                AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ME23N'.

                IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

                  CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                  CALL TRANSACTION 'ME23N'

                  AND SKIP FIRST SCREEN.                 "#EC CI_CALLTA

* << Fim da inclusão

                ELSE.

                  MESSAGE e261(sf) WITH 'ME23N'.

                ENDIF.

              ENDIF.

            ENDIF.

          ENDIF.

          GET CURSOR FIELD v_campo VALUE v_belnr2.

          IF v_campo EQ '/PWS/ZYCIE041-BELNR_F_02'.

            v_ano2 = /pws/zycie041-dt_f_02+0(4).

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

...

 

...

            SET PARAMETER ID 'BUK' FIELD /pws/zycie041-bukrs.

            SET PARAMETER ID 'BLN' FIELD v_belnr2.

            SET PARAMETER ID 'GJR' FIELD v_ano2.

            SELECT SINGLE belnr FROM bkpf INTO vaux_belnr

              WHERE bukrs = /pws/zycie041-bukrs

                AND belnr = v_belnr2

                AND gjahr = v_ano2.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

                      ID 'TCD'  FIELD 'FB03'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'FB03'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'FB03'.

            ENDIF.

          ENDIF.

          CLEAR: okcode, v_modo_bi.

        WHEN 'NFR1'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND NOT v_valor = 0.

            READ TABLE itab_zycit041 WITH KEY docnum = v_valor.

            SELECT SINGLE * FROM j_1bnfdoc

...

 

...

        WHEN 'DRAFT'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            PERFORM verifica_exit USING 'D'

                                '/PWS/SAPMZYCI016'

                                'DNF001'.

            CLEAR itab_zyglt100 .

            READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.

            IF itab_zyglt100-zexit_ativa NE 'X'.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

              SUBMIT /pws/zycir005

              WITH pa_nrnot = v_valor AND RETURN.        "#EC CI_SUBMIT

* << Fim da inclusão

            ELSE.

* >> Início da exclusão: MODULE USER_COMMAND_0100

            SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND

                                                                 RETURN

* << Fim da exclusão

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

              SUBMIT (itab_zyglt100-programa)

              WITH pa_nrnot = v_valor AND RETURN         "#EC CI_SUBMIT

* << Fim da inclusão

                                                    .

...

 

...

        WHEN 'NFC'.

          PERFORM chama_nfc_mult.

        WHEN 'SELE'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            SELECT SINGLE * FROM j_1bnfdoc

              WHERE docnum EQ v_valor.

            IF sy-subrc EQ 0.

              i_docnum = v_valor.

              SET PARAMETER ID 'JEF' FIELD i_docnum.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'J1B3N'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE i025.

            ENDIF.

          ELSEIF v_campo EQ '/PWS/ZYCIE042-NRSEQ' .

            /pws/zycie042-nrseq = v_valor.

            EXPORT  /pws/zycie042-nrseq TO MEMORY ID '002'.

            v_status_s = 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

            CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

            CALL TRANSACTION '/PWS/ZYCI001_E'

            AND SKIP FIRST SCREEN.                       "#EC CI_CALLTA

* << Fim da inclusão

          ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN'.

            i_ebeln = v_valor.

            SELECT SINGLE * FROM ekko INTO ekko

                  WHERE ebeln = i_ebeln.

            IF sy-subrc EQ 0.

              IF ekko-bstyp = 'L'.

                SET PARAMETER ID 'VRT' FIELD i_ebeln.

                AUTHORITY-CHECK OBJECT 'S_TCODE'

                ID 'TCD' FIELD 'ME33'.

                IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

                  CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                  CALL TRANSACTION 'ME33'

                  AND SKIP FIRST SCREEN.                 "#EC CI_CALLTA

* << Fim da inclusão

                ELSE.

                  MESSAGE e261(sf) WITH 'ME33'.

                ENDIF.

              ELSE.

                SET PARAMETER ID 'BES' FIELD i_ebeln.

                AUTHORITY-CHECK OBJECT 'S_TCODE'

                ID 'TCD' FIELD 'ME23N'.

                IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

                  CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                  CALL TRANSACTION 'ME23N'

                  AND SKIP FIRST SCREEN.                 "#EC CI_CALLTA

* << Fim da inclusão

                ELSE.

                  MESSAGE e261(sf) WITH 'ME23N'.

                ENDIF.

              ENDIF.

            ENDIF.

          ENDIF.

          GET CURSOR FIELD v_campo VALUE v_belnr2.

          IF v_campo EQ '/PWS/ZYCIE041-BELNR_F_02'.

            v_ano2 = /pws/zycie041-dt_f_02+0(4).

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

...

 

...

            SET PARAMETER ID 'BUK' FIELD /pws/zycie041-bukrs.

            SET PARAMETER ID 'BLN' FIELD v_belnr2.

            SET PARAMETER ID 'GJR' FIELD v_ano2.

            SELECT SINGLE belnr FROM bkpf INTO vaux_belnr

              WHERE bukrs = /pws/zycie041-bukrs

                AND belnr = v_belnr2

                AND gjahr = v_ano2.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

                      ID 'TCD'  FIELD 'FB03'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'FB03'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'FB03'.

            ENDIF.

          ENDIF.

          CLEAR: okcode, v_modo_bi.

        WHEN 'DRAFT'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            PERFORM verifica_exit USING 'D'

                                '/PWS/SAPMZYCI016'

                                'DNF001'.

            CLEAR itab_zyglt100 .

            READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.

            IF itab_zyglt100-zexit_ativa NE 'X'.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

              SUBMIT /pws/zycir005

              WITH pa_nrnot = v_valor AND RETURN.        "#EC CI_SUBMIT

* << Fim da inclusão

            ELSE.

* >> Início da exclusão: MODULE USER_COMMAND_0100

              SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor

                                               AND RETURN.

* << Fim da exclusão

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

              SUBMIT (itab_zyglt100-programa)

              WITH pa_nrnot = v_valor AND RETURN.        "#EC CI_SUBMIT

* << Fim da inclusão

            ENDIF.

...

 

...

    WHEN 'DRAFT'.

      GET CURSOR FIELD v_campo VALUE v_valor.

      EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

      IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.

        PERFORM verifica_exit USING 'D'

                            '/PWS/SAPMZYCI016'

                            'DNF001'.

        CLEAR itab_zyglt100 .

        READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.

        IF itab_zyglt100-zexit_ativa NE 'X'.

* >> Início da exclusão: MODULE USER_COMMAND_0200

          SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

          SUBMIT /pws/zycir005

          WITH pa_nrnot = v_valor AND RETURN.            "#EC CI_SUBMIT

* << Fim da inclusão

        ELSE.

* >> Início da exclusão: MODULE USER_COMMAND_0200

          SUBMIT (itab_zyglt100-programa) WITH

                                        pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

          SUBMIT (itab_zyglt100-programa)

          WITH pa_nrnot = v_valor AND RETURN.            "#EC CI_SUBMIT

* << Fim da inclusão

        ENDIF.

...

 

...

    WHEN 'OBS'.

      CALL SCREEN '0210' STARTING AT 2 2.

    WHEN 'SELE'.

      GET CURSOR FIELD v_campo VALUE v_valor.

      IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.

        SELECT SINGLE * FROM j_1bnfdoc

          WHERE docnum EQ v_valor.

        IF sy-subrc EQ 0.

          i_docnum = v_valor.

          SET PARAMETER ID 'JEF' FIELD i_docnum.

* >> Início da exclusão: MODULE USER_COMMAND_0200

          CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

          CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN."#EC CI_CALLTA

* << Fim da inclusão

        ELSE.

          MESSAGE i025.

        ENDIF.

      ELSEIF v_campo EQ '/PWS/ZYCIE044-NRSEQ' .

        /pws/zycie042-nrseq = v_valor.

        EXPORT  /pws/zycie042-nrseq TO MEMORY ID '002'.

        v_status_s = 0.

* >> Início da exclusão: MODULE USER_COMMAND_0200

        CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

        CALL TRANSACTION '/PWS/ZYCI001_E'

        AND SKIP FIRST SCREEN.                           "#EC CI_CALLTA

* << Fim da inclusão

      ENDIF.

      GET CURSOR FIELD v_campo VALUE v_valor.

      IF v_campo EQ '/PWS/ZYCIE044-EBELN'.

        i_ebeln = v_valor.

        SELECT SINGLE * FROM ekko INTO ekko

               WHERE ebeln = i_ebeln.

        IF sy-subrc EQ 0.

          IF ekko-bstyp = 'L'.

            SET PARAMETER ID 'VRT' FIELD i_ebeln.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

            ID 'TCD' FIELD 'ME33'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0200

              CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'ME33'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'ME33'.

            ENDIF.

          ELSE.

            SET PARAMETER ID 'BES' FIELD i_ebeln.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

            ID 'TCD' FIELD 'ME23N'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0200

              CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'ME23N'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'ME23N'.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

    WHEN 'FUNDAP'.

      IF /pws/zycie001-modalidade EQ '05' AND

         /pws/zycie001-tpdecl EQ 'DI'.

        PERFORM call_fundap_r.

...

 

...

    itab_nrseqdi-low    = /pws/zycie085-nrseqdi.

    APPEND itab_nrseqdi.

  ENDIF.

  IF itab_nrseqdi[] IS INITIAL

 AND itab_nrdi[]    IS INITIAL.

    MESSAGE w015 WITH text-084.

    EXIT.

  ENDIF.

  IF itab_nrseqdi[] IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit085 INTO /pws/zycie085

* >> Início da exclusão: MODULE USER_COMMAND_0001

      WHERE nrdi IN itab_nrdi.

* << Fim da exclusão

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

      WHERE nrdi IN itab_nrdi.                          "#EC CI_NOFIELD

* << Fim da inclusão

    IF sy-subrc = 0 AND NOT /pws/zycie085-nrseqdi IS INITIAL.

      itab_nrseqdi-sign   = 'I'.

      itab_nrseqdi-option = 'EQ'.

      itab_nrseqdi-low    = /pws/zycie085-nrseqdi.

      APPEND itab_nrseqdi.

    ELSE.

      MESSAGE w015 WITH text-085.

      EXIT.

    ENDIF.

  ENDIF.

...

 

...

  IF sy-tcode EQ '/PWS/ZYCI016_C' OR sy-tcode EQ '/PWS/ZYCI016_A'.

    CASE okcode.

      WHEN 'SELE'.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.

          SELECT SINGLE * FROM j_1bnfdoc

            WHERE docnum EQ v_valor.

          IF sy-subrc EQ 0.

            i_docnum = v_valor.

            SET PARAMETER ID 'JEF' FIELD i_docnum.

* >> Início da exclusão: MODULE USER_COMMAND_0300

            CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

            CALL TRANSACTION 'J1B3N'

            AND SKIP FIRST SCREEN.                       "#EC CI_CALLTA

* << Fim da inclusão

          ELSE.

            MESSAGE i025.

          ENDIF.

        ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .

          /pws/zycie042-nrseq = v_valor.

          EXPORT  /pws/zycie042-nrseq TO MEMORY ID '002'.

          v_status_s = 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

          CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

          CALL TRANSACTION '/PWS/ZYCI001_E'

          AND SKIP FIRST SCREEN.                         "#EC CI_CALLTA

* << Fim da inclusão

        ENDIF.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.

          i_ebeln = v_valor.

          SELECT SINGLE * FROM ekko INTO ekko

                 WHERE ebeln = i_ebeln.

          IF sy-subrc EQ 0.

            IF ekko-bstyp = 'L'.

              SET PARAMETER ID 'VRT' FIELD i_ebeln.

              AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD' FIELD 'ME33'.

              IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

                CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                CALL TRANSACTION 'ME33'

                AND SKIP FIRST SCREEN.                   "#EC CI_CALLTA

* << Fim da inclusão

              ELSE.

                MESSAGE e261(sf) WITH 'ME33'.

              ENDIF.

            ELSE.

              SET PARAMETER ID 'BES' FIELD i_ebeln.

              AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD' FIELD 'ME23N'.

              IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

                CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                CALL TRANSACTION 'ME23N'

                AND SKIP FIRST SCREEN.                   "#EC CI_CALLTA

* << Fim da inclusão

              ELSE.

                MESSAGE e261(sf) WITH 'ME23N'.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

        IF v_campo EQ '/PWS/ZYCIE041A-BELNR_F_02_C'.

          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

               EXPORTING

                    input  = v_valor

...

 

...

            SET PARAMETER ID 'BUK' FIELD /pws/zycie041a-bukrs.

            SET PARAMETER ID 'BLN' FIELD i_belnr.

            SET PARAMETER ID 'GJR' FIELD v_year.

            SELECT SINGLE * FROM bkpf

              WHERE bukrs = /pws/zycie041a-bukrs

                AND belnr = i_belnr

                AND gjahr = v_year.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

                     ID 'TCD'  FIELD 'FB03'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

              CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'FB03'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'FB03'.

            ENDIF.

          ENDIF.

        ENDIF.

      WHEN 'ENTE'.

        IF /pws/zycie043a-nfexterna NE wa_zycit048-nfext.

         v_ok = 'A'.

        ENDIF.

        itab_zycit042_c-nfnum_c   =  /pws/zycie042a-nfnum_c.

        itab_zycit042_c-series_c  =  /pws/zycie042a-series_c.

        itab_zycit042_c-subser_c  =  /pws/zycie042a.

      WHEN 'MODO'.

        PERFORM modo_batch_input.

      WHEN 'CRIARNFC'.

        PERFORM cria_nota_fiscal_c.

      WHEN 'DRAFT'.

        GET CURSOR FIELD v_campo VALUE v_valor.

        EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

        IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.

* >> Início da exclusão: MODULE USER_COMMAND_0300

          SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

          SUBMIT /pws/zycir005

          WITH pa_nrnot = v_valor AND RETURN.            "#EC CI_SUBMIT

* << Fim da inclusão

        ELSE.

          MESSAGE i026.

        ENDIF.

      WHEN 'RESUM'.

        CALL SCREEN '0400'.

    ENDCASE.

  ELSEIF sy-tcode EQ '/PWS/ZYCI016_E'.

    CASE okcode.

      WHEN 'SELE'.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.

          SELECT SINGLE * FROM j_1bnfdoc

            WHERE docnum EQ v_valor.

          IF sy-subrc EQ 0.

            i_docnum = v_valor.

            SET PARAMETER ID 'JEF' FIELD i_docnum.

* >> Início da exclusão: MODULE USER_COMMAND_0300

            CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

            CALL TRANSACTION 'J1B3N'

            AND SKIP FIRST SCREEN.                       "#EC CI_CALLTA

* << Fim da inclusão

          ELSE.

            MESSAGE i025.

          ENDIF.

        ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .

          /pws/zycie042-nrseq = v_valor.

          EXPORT  /pws/zycie042-nrseq TO MEMORY ID '002'.

          v_status_s = 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

          CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

          CALL TRANSACTION '/PWS/ZYCI001_E'

          AND SKIP FIRST SCREEN.                         "#EC CI_CALLTA

* << Fim da inclusão

        ENDIF.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.

          i_ebeln = v_valor.

          SELECT SINGLE * FROM ekko INTO ekko

                 WHERE ebeln = i_ebeln.

          IF sy-subrc EQ 0.

            IF ekko-bstyp = 'L'.

              SET PARAMETER ID 'VRT' FIELD i_ebeln.

              AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD' FIELD 'ME33'.

              IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

                CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                CALL TRANSACTION 'ME33'

                AND SKIP FIRST SCREEN.                   "#EC CI_CALLTA

* << Fim da inclusão

              ELSE.

                MESSAGE e261(sf) WITH 'ME33'.

              ENDIF.

            ELSE.

              SET PARAMETER ID 'BES' FIELD i_ebeln.

              AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD' FIELD 'ME23N'.

              IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

                CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

                CALL TRANSACTION 'ME23N'

                AND SKIP FIRST SCREEN.                   "#EC CI_CALLTA

* << Fim da inclusão

              ELSE.

                MESSAGE e261(sf) WITH 'ME23N'.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

        IF v_campo EQ '/PWS/ZYCIE041A-BELNR_F_02_C'.

          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

               EXPORTING

                    input  = v_valor

...

 

...

            SET PARAMETER ID 'BUK' FIELD /pws/zycie041a-bukrs.

            SET PARAMETER ID 'BLN' FIELD i_belnr.

            SET PARAMETER ID 'GJR' FIELD v_year.

            SELECT SINGLE * FROM bkpf

              WHERE bukrs = /pws/zycie041a-bukrs

                AND belnr = i_belnr

                AND gjahr = v_year.

            AUTHORITY-CHECK OBJECT 'S_TCODE'

                      ID 'TCD'  FIELD 'FB03'.

            IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE USER_COMMAND_0300

              CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

* << Fim da exclusão

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

              CALL TRANSACTION 'FB03'

              AND SKIP FIRST SCREEN.                     "#EC CI_CALLTA

* << Fim da inclusão

            ELSE.

              MESSAGE e261(sf) WITH 'FB03'.

            ENDIF.

          ENDIF.

        ENDIF.

      WHEN 'DRAFT'.

        GET CURSOR FIELD v_campo VALUE v_valor.

        EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

        IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.

* >> Início da exclusão: MODULE USER_COMMAND_0300

          SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

          SUBMIT /pws/zycir005

          WITH pa_nrnot = v_valor AND RETURN.            "#EC CI_SUBMIT

* << Fim da inclusão

        ELSE.

          MESSAGE i026.

        ENDIF.

    ENDCASE.

  ENDIF.

  CLEAR: okcode.

ENDMODULE.

MODULE altera_itab_zycit042_c INPUT.

  IF /pws/zycie041a-nfexterna = space.

    itab_zycit042_c-nfnum_c  = space.

...

 

...

      WHERE docnum = itab_zycit042-docnum.

    IF sy-subrc EQ 0.

      itab_zycit042-nfnum  = j_1bnfdoc-nfnum.

      itab_zycit042-series = j_1bnfdoc-series.

      itab_zycit042-subser = j_1bnfdoc-subser.

    ENDIF.

    MODIFY itab_zycit042 INDEX sy-tabix.

    UPDATE /pws/zycit042 SET nfnum  = itab_zycit042-nfnum

                             series = itab_zycit042-series

                             subser = itab_zycit042-subser

* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT042

                       WHERE docnum = itab_zycit042-docnum.

* << Fim da exclusão

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

                     WHERE docnum = itab_zycit042-docnum."#EC CI_NOFIELD

* << Fim da inclusão

  ENDLOOP.

ENDMODULE.

MODULE atualiza_itab_zycit044 INPUT.

  LOOP AT itab_zycit044.

    itab_zycit044-nrseqnf     = /pws/zycie043-nrseq.

    itab_zycit044-nfglobal  = /pws/zycie043-nfglobal.

    itab_zycit044-nfremessa = /pws/zycie043-nfremessa.

    SELECT SINGLE * FROM j_1bnfdoc

      WHERE docnum = itab_zycit044-docnum.

    IF sy-subrc EQ 0.

...

 

...

            MESSAGE i015 WITH text-052 text-053.

          ENDIF.

        WHEN 'CRIARNF'.

          PERFORM cria_nota_fiscal_g.

        WHEN 'MODO'.

          PERFORM modo_batch_input.

        WHEN 'DRAFT'.

          GET CURSOR FIELD v_campo VALUE v_valor.

          EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

* >> Início da exclusão: MODULE USER_COMMAND_0050

            SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.

* << Fim da exclusão

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

            SUBMIT /pws/zycir005

            WITH pa_nrnot = v_valor AND RETURN.          "#EC CI_SUBMIT

* << Fim da inclusão

          ELSE.

            MESSAGE i015 WITH text-052 text-053.

          ENDIF.

        WHEN 'FUNDAP' .

          IF /pws/zycie001-modalidade EQ '05' AND

             /pws/zycie001-tpdecl EQ 'DI'.

            CALL SCREEN '0130' STARTING AT 5 2.

          ENDIF.

      ENDCASE.

    ENDIF.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

 

...

  ENDIF.

  SELECT SINGLE * FROM /pws/zycit041

    INTO /pws/zycie041

    WHERE nrseq = /pws/zycie041-nrseq.

  IF sy-subrc NE 0.

    MESSAGE e015 WITH text-001.

  ENDIF.

  SELECT * FROM /pws/zycit042

    INTO TABLE itab_zycit042

    WHERE nrseq   = /pws/zycie041-nrseq

* >> Início da exclusão: MODULE LOAD_DATA_0001

     AND nfglobal = /pws/zycie041-nfglobal.

* << Fim da exclusão

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

     AND nfglobal = /pws/zycie041-nfglobal.             "#EC CI_NOFIRST

* << Fim da inclusão

  MOVE itab_zycit042[] TO itab_zycit042_aux[].

ENDMODULE.

MODULE load_data_0200 OUTPUT.

  IF sy-tcode EQ '/PWS/ZYCI016_E' AND  /pws/zycie043-nfremessa IS

 INITIAL .

    MOVE: /pws/zycie041-embarca  TO /pws/zycie043-embarca,

          /pws/zycie041-nrseq    TO /pws/zycie043-nrseq  ,

          /pws/zycie041-bukrs    TO /pws/zycie043-bukrs  ,

          /pws/zycie041-werks    TO /pws/zycie043-werks  ,

          /pws/zycie041-nrdi     TO /pws/zycie043-nrdi   ,

...

 

...

  SELECT SINGLE land1

    FROM t001

    INTO t001-land1

    WHERE bukrs EQ /pws/zycie041-bukrs.

  IF NOT itab_resum2[] IS INITIAL.

    SELECT codigo descricao indice

           INTO TABLE itab_zycie029

           FROM /pws/zycit029

           FOR ALL ENTRIES IN itab_resum2

           WHERE codigo = itab_resum2-codigo

* >> Início da exclusão: MODULE CARREGA_ZYCIE053

             AND land1 EQ t001-land1.

* << Fim da exclusão

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

             AND land1 EQ t001-land1.                   "#EC CI_NOFIRST

* << Fim da inclusão

  ENDIF.

  LOOP AT itab_resum2.

    itab_resum-codigo   = itab_resum2-codigo.

    itab_resum-vlglobal = itab_resum2-vlreal.

    itab_resum-waers_global = itab_resum2-waers_real.

    itab_resum-vlcompl  = itab_resum2-vlcompl.

    itab_resum-waers_compl = itab_resum2-waers_real.

    READ TABLE itab_resum3 WITH KEY nrseq  = itab_resum2-nrseq

                                    codigo = itab_resum2-codigo

                                    ebeln  = itab_resum2-ebeln

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016OO

 

...

    CLEAR edaction.

    CLEAR edframe.

    CLEAR edgetdata.

    CLEAR edpostdataline.

    edaction       = action.

    edframe        = frame.

    edgetdata      = getdata.

    postdata_tab   = postdata.

    IF NOT edgetdata IS INITIAL.

      AUTHORITY-CHECK OBJECT 'S_TCODE'

* >> Início da exclusão:

      ID 'TCD'  FIELD edgetdata.

* << Fim da exclusão

* >> Início da inclusão:

      ID 'TCD'  FIELD edgetdata(40).

* << Fim da inclusão

      IF sy-subrc NE 0.

        MESSAGE i122 WITH  edgetdata.

      ELSE.

* >> Início da exclusão:

        CALL TRANSACTION edgetdata.

* << Fim da exclusão

* >> Início da inclusão:

        CALL TRANSACTION edgetdata.                      "#EC CI_CALLTA

* << Fim da inclusão

      ENDIF.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016TOP

 

...

  v_mes(2)    type c,

  v_ano(4)    type c,

  v_data2(10) type c,

  v_nf(10),

  v_bktxt like bkpf-bktxt,

  v_zuonr like bseg-zuonr,

  v_forn  like /pws/zycit001-lifnr,

  v_sgtxt like bseg-sgtxt,

  VAUX_BELNR LIKE RBKP-BELNR,

  V_apaga,

* >> Início da exclusão:

  v_subrc,

* << Fim da exclusão

* >> Início da inclusão:

  v_subrc     TYPE sy-subrc,

* << Fim da inclusão

  v_urf2(1)   type c,

  v_dir        like rlgrap-filename   ,

  v_arquivo    type string,

  v_caminho    type string,

  v_tot      like /pws/zycit003-vlreal   ,

  v_libera,

  V_sisco1 like /pws/zycit049-vldp,

  V_sisco2 like /pws/zycit049-vldp,

  V_sisco3 like /pws/zycit049-vldp,

  v_sisco_item like /pws/zycit049-vldp,

...