Sintoma

INCLUSÃO DO NÚMERO DA INVOICE, NÚMERO DA PARCELA E DIVISÃO DA INVOICE NA TELA DE SELEÇÃO DA

MODIFICAÇÃO E EXIBIÇÃO DA VINCULAÇÃO E LIQUIDAÇÃO

Solução

INCLUSÃO DO NÚMERO DA INVOICE, NÚMERO DA PARCELA E DIVISÃO DA INVOICE NA TELA DE SELEÇÃO DA

MODIFICAÇÃO E EXIBIÇÃO DA VINCULAÇÃO E LIQUIDAÇÃO

Informações Complementares

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

Nota Número 11979 Data: 28/02/2012 Hora: 13:45:35

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

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

Nota Número              : 11979

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00010

Agrupamento              : 00107

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

Referência às notas relacionadas:

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

02109  - 00001 - 6.0    - 00024  - DESVINCULAÇÃO DE VALORES NAS FATURAS NA VINCULAÇÃO

07760  - 00002 - 7.0    - 00007  - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO

09694  - 00003 - 8.0    - 00002  - VINCULAÇÃO FATURA EXPORTAÇÃO, FLAG DEDUZ JUROS

11204  - 00004 - 8.0    - 00007  - VINCULAÇÃO - ESTORNO DE FATURAS E CONTRATO DE CAPTAÇÃO PERIODO FE

11270  - 00005 - 8.0    - 00008  - LIQUIDAÇÃO ARBITRAGEM - VALORES MANTIDOS NO EXTERIOR

11413  - 00006 - 8.0    - 00008  - CONTRATOS DE NCE

11650  - 00007 - 8.0    - 00009  - VINCULAÇÃO - TRILHA AUDITORIA

11702  - 00008 - 8.0    - 00009  - LIQUIDAÇÃO EXPORTAÇÃO, TRILHA DE AUDITORIA

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

VINCULAÇÃO - LIQUIDAÇÃO

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

Palavras Chave:

VINCULAÇÃO - LIQUIDAÇÃO

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

Objetos da nota:

DYNP /PWS/SAPMZYCB004                        0002

DYNP /PWS/SAPMZYCB004                        0003

DYNP /PWS/SAPMZYCB009                        0001

DYNP /PWS/SAPMZYCB009                        0003

PARA /PWS/ZYGLP159

PARA /PWS/ZYGLP160

PARA /PWS/ZYGLP161

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004I01

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F10

REPS /PWS/MZYCB009I01

REPS /PWS/MZYCB009TOP

REPS /PWS/MZYCB009X01

SHLP /PWS/ZYCBA299

SHLP /PWS/ZYCBA300

SHLP /PWS/ZYCBA301

SHLP /PWS/ZYCBA302

SHLP /PWS/ZYCBA303

SHLP /PWS/ZYCBA304

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB004                        0002

Solicitar o download da tela junto a equipe de produto com as devidas alterações - (11)5504.0170

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB004                        0003

Solicitar o download da tela junto a equipe de produto com as devidas alterações - (11)5504.0170

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB009                        0001

Solicitar o download da tela junto a equipe de produto com as devidas alterações - (11)5504.0170

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB009                        0003

INCLUIR SUB-TELA 0003

Solicitar o download da tela junto a equipe de produto com a criação desta tela - (11)5504.0170

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

Modificações efetuadas em PARA /PWS/ZYGLP159

Criar Parameter SET/GET conforme abaixo:

ID parâmetro: /PWS/ZYGLP159

TxtBreve: Data de Vinculação

Classe Desenvolvimento: /PWS/ZYGL

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

Modificações efetuadas em PARA /PWS/ZYGLP160

Criar Parameter SET/GET:

ID parâmetro: /PWS/ZYGLP160

TxtBreve: Data de Liquidação

Classe Desenvolvimento: /PWS/ZYGL

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

Modificações efetuadas em PARA /PWS/ZYGLP161

Criar Parameter SET/GET:

ID parâmetro: /PWS/ZYGLP161

TxtBreve: Data Pgto Exterior

Classe Desenvolvimento: /PWS/ZYGL

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

       and b~dtvencto = a~dtvencto

      where a~nrseqc   eq v_nrseqc

        and a~dtvincul eq v_dtvincul

        and a~dtpagext eq v_dtpagext

        and a~dtpagto  eq v_dtpagto.

    if not v_vinculacao is initial.

      delete itab_zycbt005 where nrinvoic ne v_nrinvoic

                              or nrparcf  ne v_nrparcf

                              or gsberf   ne v_gsberf.

    endif.

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

    perform monta_range_t005.

* << Fim da inclusão

    loop at itab_zycbt005.

      move itab_zycbt005-txjtotal to itab_zycbt005-txjtotal2.

      if itab_zycbt005-waers ne /pws/zycbt001-waers.

        itab_zycbt005-v_armda = 'X'.

      endif.

      select single bukrs from /pws/zycbt017 into v_bukrs_fat

        where nrinvoic = itab_zycbt005-nrinvoic

          and nrparcf  = itab_zycbt005-nrparcf

          and gsberf   = itab_zycbt005-gsberf.

      if sy-subrc eq 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

      endloop.

    endif.

  else.

    loop at itab_zycbt034.

      itab_erro-vbeln = itab_zycbt006-belnr_d.

      itab_erro-msg   = itab_zycbt034-descricao.

      append itab_erro.

    endloop.

  endif.

endform.

* >> Início da inclusão:

form monta_range_t005.

  clear: r_invoic, r_nrparc, r_gsberf.

  refresh: r_invoic, r_nrparc, r_gsberf.

  if not v_nrinvoic is initial or

     not v_nrinv_to is initial.

    r_invoic-sign = 'I'.

    if not v_nrinvoic is initial.

      r_invoic-low = v_nrinvoic.

    endif.

    if not v_nrinv_to is initial.

      r_invoic-option = 'BT'.

      r_invoic-high = v_nrinv_to.

    else.

      r_invoic-option = 'EQ'.

    endif.

    append r_invoic.

  endif.

  if not v_nrparcf   is initial or

     not v_nrparc_to is initial.

    r_nrparc-sign = 'I'.

    if not v_nrparcf is initial.

      r_nrparc-low = v_nrparcf.

    endif.

    if not v_nrparc_to is initial.

      r_nrparc-option = 'BT'.

      r_nrparc-high = v_nrparc_to.

    else.

      r_nrparc-option = 'EQ'.

    endif.

    append r_nrparc.

  endif.

  if not v_gsberf    is initial or

     not v_gsberf_to is initial.

    r_gsberf-sign = 'I'.

    if not v_gsberf is initial.

      r_gsberf-low = v_gsberf.

    endif.

    if not v_gsberf_to is initial.

      r_gsberf-option = 'BT'.

      r_gsberf-high = v_gsberf_to.

    else.

      r_gsberf-option = 'EQ'.

    endif.

    append r_gsberf.

  endif.

  delete itab_zycbt005 where not nrinvoic in r_invoic.

  delete itab_zycbt005 where not nrparcf  in r_nrparc.

  delete itab_zycbt005 where not gsberf   in r_gsberf.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB004I01

...

      endif.

    when 'MARC'.

      perform marca_desmarca_tc using 'X'.

    when 'DESM'.

      perform marca_desmarca_tc using ''.

  endcase.

endmodule.

module consiste_fatura input.

  perform gravar_linha_selecionada.

endmodule.

* >> Início da inclusão:

MODULE matchcode_inv INPUT.

  DATA: v_field(30)     TYPE c,

        v_fieldname(30) TYPE c,

        v_tela          TYPE d020s-dnum,

        v_searchhelp    TYPE shlpname,

        l_display(1)    TYPE c.

  DATA: tdynpread    LIKE dynpread OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF itab_result OCCURS 0.

          INCLUDE STRUCTURE ddshretval.

  DATA: END OF itab_result.

  FIELD-SYMBOLS: <fs_field> TYPE ANY.

  v_tela = sy-dynnr.

  IF v_nrseqc IS INITIAL.

    CLEAR tdynpread.

    REFRESH tdynpread.

    tdynpread-fieldname = 'V_NRSEQC'.

    APPEND tdynpread.

    CALL FUNCTION 'DYNP_VALUES_READ'

         EXPORTING

              dyname     = '/PWS/SAPMZYCB004'

              dynumb     = v_tela

         TABLES

              dynpfields = tdynpread.

    v_nrseqc = tdynpread-fieldvalue.

  ENDIF.

  IF v_dtvincul IS INITIAL OR

     v_dtvincul EQ ' 0000000'.

    CLEAR tdynpread.

    REFRESH tdynpread.

    tdynpread-fieldname = 'V_DTVINCUL'.

    APPEND tdynpread.

    CALL FUNCTION 'DYNP_VALUES_READ'

         EXPORTING

              dyname     = '/PWS/SAPMZYCB004'

              dynumb     = V_TELA

         TABLES

              dynpfields = tdynpread.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    CONDENSE tdynpread-fieldvalue NO-GAPS.

    v_dtvincul(4) = tdynpread-fieldvalue+4(4).

    v_dtvincul+4(2) = tdynpread-fieldvalue+2(2).

    v_dtvincul+6(2) = tdynpread-fieldvalue(2).

  ENDIF.

  IF v_dtpagto IS INITIAL OR

     v_dtpagto EQ ' 0000000'.

    CLEAR tdynpread.

    REFRESH tdynpread.

    tdynpread-fieldname = 'V_DTVINCUL'.

    APPEND tdynpread.

    CALL FUNCTION 'DYNP_VALUES_READ'

         EXPORTING

              dyname     = '/PWS/SAPMZYCB004'

              dynumb     = V_TELA

         TABLES

              dynpfields = tdynpread.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    CONDENSE tdynpread-fieldvalue NO-GAPS.

    v_dtpagto(4) = tdynpread-fieldvalue+4(4).

    v_dtpagto+4(2) = tdynpread-fieldvalue+2(2).

    v_dtpagto+6(2) = tdynpread-fieldvalue(2).

  ENDIF.

  IF v_dtpagext IS INITIAL OR

     v_dtpagext EQ ' 0000000'.

    CLEAR tdynpread.

    REFRESH tdynpread.

    tdynpread-fieldname = 'V_DTVINCUL'.

    APPEND tdynpread.

    CALL FUNCTION 'DYNP_VALUES_READ'

         EXPORTING

              dyname     = '/PWS/SAPMZYCB004'

              dynumb     = V_TELA

         TABLES

              dynpfields = tdynpread.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '.' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    REPLACE '/' WITH space INTO tdynpread-fieldvalue.

    CONDENSE tdynpread-fieldvalue NO-GAPS.

    v_dtpagext(4) = tdynpread-fieldvalue+4(4).

    v_dtpagext+4(2) = tdynpread-fieldvalue+2(2).

    v_dtpagext+6(2) = tdynpread-fieldvalue(2).

  ENDIF.

  SET PARAMETER ID '/PWS/ZYCBP019' FIELD v_nrseqc.

  SET PARAMETER ID '/PWS/ZYGLP159' FIELD v_dtvincul.

  SET PARAMETER ID '/PWS/ZYGLT160' FIELD v_dtpagto.

  SET PARAMETER ID '/PWS/ZYGLT161' FIELD v_dtpagext.

  GET CURSOR FIELD v_field.

  IF v_field(7) = 'V_NRINV'.

    v_fieldname = 'NRINVOIC'.

    v_searchhelp = '/PWS/ZYCBA302'.

  ELSEIF v_field(8) = 'V_NRPARC'.

    v_fieldname = 'NRPARCF'.

    v_searchhelp = '/PWS/ZYCBA303'.

  ELSEIF v_field(8) = 'V_GSBERF'.

    v_fieldname = 'GSBERF'.

    v_searchhelp = '/PWS/ZYCBA304'.

  ENDIF.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

       EXPORTING

            tabname    = '/PWS/ZYCBT006'

            fieldname  = v_field

            searchhelp = v_searchhelp

            display    = l_display

       TABLES

            return_tab = itab_result

       EXCEPTIONS

            OTHERS     = 5.

  CHECK sy-subrc EQ 0 .

  READ TABLE itab_result INDEX 1.

  ASSIGN (v_field) TO <fs_field>.

  IF <fs_field> IS ASSIGNED.

    <fs_field> = itab_result-fieldval.

    UNASSIGN <fs_field>.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

data: begin of itab_zycbt006_ca occurs 0.

        include structure /pws/zycbt006.

data: end of itab_zycbt006_ca.

data: v_line type n.

data: v_vlme  type /pws/zycet013-vlme,

      v_belnr_cg type /pws/zycet013-belnr.

data: v_loop  type i .

data: v_total_liq like /pws/zycbt006-vlme.

data: v_ms(5)      type c.

data: v_identificador type /pws/zyglt390-identificador.

* >> Início da inclusão:

data: v_nrinv_to  type /pws/zycbt006-nrinvoic,

      v_nrparc_to type /pws/zycbt006-nrparcf,

      v_gsberf_to type /pws/zycbt006-gsberf.

ranges: r_invoic for /pws/zycbt006-nrinvoic,

        r_nrparc for /pws/zycbt006-nrparcf,

        r_gsberf for /pws/zycbt006-gsberf.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

  refresh: itab_zycbt005_ant.

  if sy-tcode = c_transacao_a or

     sy-tcode = c_transacao_e.

    refresh: itab_zycbt005.

    clear itab_zycbt005.

    select *

      from /pws/zycbt005

      into table itab_zycbt005

     where nrseqc   = /pws/zycbe005-nrseqc

       and dtvincul = /pws/zycbe005-dtvincul

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

       and tpdesp   = ' '.

* << Fim da exclusão

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

       AND tpdesp   = ' '

       AND nrinvoic IN r_invoic

       AND nrparcf  IN r_nrparc

       AND gsberf   IN r_gsberf.

* << Fim da inclusão

    loop at itab_zycbt005.

      move itab_zycbt005-vlvinc to itab_zycbt005-calcpar.

      modify itab_zycbt005.

    endloop.

  endif.

  clear: v_kostl, v_prctr,  v_fipos, v_frcont,

         v_ftxt,  v_txtinf, v_txtobs.

  read table itab_zycbt005 index 1.

  if not itab_zycbt005-bukrs_f is initial and

     sy-tcode eq c_transacao_a.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F10

...

        itab_zycbt005_aux,

        itab_zycbt017,

        itab_zycbt017_aux,

        itab_zycbt006.

  free:

        itab_zycbt001,

        itab_zycbt005_aux,

        itab_zycbt017,

        itab_zycbt017_aux,

        itab_zycbt006.

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

  clear: r_invoic, r_nrparc, r_gsberf, v_inv_from, v_inv_to,

         v_parc_from, v_parc_to, v_gsberf_from, v_gsberf_to.

  refresh: r_invoic, r_nrparc, r_gsberf.

* << Fim da inclusão

endform.

form verifica_prorrogacao.

  data: v_docto_belnr like /pws/zycbt030-belnr6.

  clear: v_buzei, v_zterm, v_zbd1t, v_ztag1.

  if v_doc_and is initial.

    if not itab_zycbt030-belnr6 is initial.

      v_docto_belnr = itab_zycbt030-belnr6.

    else.

      v_docto_belnr = itab_zycbt030-belnr.

    endif.

...

...

    where codeven = v_codeven

      and codmod  = 'E'

      and bukrs   = /pws/zycbe001-bukrs.

  check sy-subrc eq 0.

  perform define_cambio using /pws/zycbe001-dtcontr

                              itab_zycbt005-waers

                              /pws/zycbe001-waers

                              /pws/zycbe005-parid.

  itab_zycbt005-parid = /pws/zycbe005-parid.

endform.

* >> Início da inclusão:

form monta_range.

  clear: r_invoic, r_nrparc, r_gsberf.

  refresh: r_invoic, r_nrparc, r_gsberf.

  if not v_inv_from is initial or

     not v_inv_to   is initial.

    r_invoic-sign = 'I'.

    if not v_inv_from is initial.

      r_invoic-low = v_inv_from.

    endif.

    if not v_inv_to is initial.

      r_invoic-option = 'BT'.

      r_invoic-high = v_inv_to.

    else.

      r_invoic-option = 'EQ'.

    endif.

    append r_invoic.

  endif.

  if not v_parc_from is initial or

     not v_parc_to   is initial.

    r_nrparc-sign = 'I'.

    if not v_parc_from is initial.

      r_nrparc-low = v_parc_from.

    endif.

    if not v_parc_to is initial.

      r_nrparc-option = 'BT'.

      r_nrparc-high = v_parc_to.

    else.

      r_nrparc-option = 'EQ'.

    endif.

    append r_nrparc.

  endif.

  if not v_gsberf_from is initial or

     not v_gsberf_to   is initial.

    r_gsberf-sign = 'I'.

    if not v_gsberf_from is initial.

      r_gsberf-low = v_gsberf_from.

    endif.

    if not v_gsberf_to is initial.

      r_gsberf-option = 'BT'.

      r_gsberf-high = v_gsberf_to.

    else.

      r_gsberf-option = 'EQ'.

    endif.

    append r_gsberf.

  endif.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB009I01

...

        exit.

      endif.

      select single * from /pws/zycbt001 into /pws/zycbe001

                      where nrseqc = v_nrseqc.

      v_dtdocto = /pws/zycbe001-dtvincul.

      if sy-subrc eq 0.

        v_encontrou = 'S'.

        perform seleciona_parametros_gerais.

        v_slvinc = /pws/zycbe001-slvinc.

      endif.

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

      perform monta_range.

* << Fim da inclusão

      select single * from /pws/zycbt005

             into corresponding fields of /pws/zycbe005

             where nrseqc   = v_nrseqc

               and dtvincul = v_dtvincul

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

               and tpdesp   = ' '.

* << Fim da exclusão

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

               and tpdesp   = ' '

               and nrinvoic in r_invoic

               and nrparcf  in r_nrparc

               and gsberf   in r_gsberf.

* << Fim da inclusão

      if /pws/zycbt005-status eq 'I'.

        case /pws/zycbe001-fdtlanc.

          when 'D'.

            v_dtdocto = /pws/zycbe001-dtdesem.

          when 'O'.

            v_dtdocto = /pws/zycbe001-dtcontr.

          when others.

            v_dtdocto = /pws/zycbe001-dtcred.

        endcase.

      endif.

...

...

  if /pws/zycbe001-tpcontr(1) = 'P' or

     /pws/zycbe001-tpcontr(1) = 'S' or

     /pws/zycbe001-tpcontr(1) = 'N'.

    if not /pws/zycbe006-dtpagext is initial.

      /pws/zycbe005-deduz_juros = 'X'.

    else.

      clear /pws/zycbe005-deduz_juros.

    endif.

  endif.

endmodule.

* >> Início da inclusão:

module matchcode_inv input.

  data: v_field(30) type c,

        v_fieldname(30) type c.

  field-symbols: <fs_field> type any.

  if v_nrseqc is initial.

    clear tdynpread.

    refresh tdynpread.

    tdynpread-fieldname = 'V_NRSEQC'.

    append tdynpread.

    call function 'DYNP_VALUES_READ'

         exporting

              dyname     = '/PWS/SAPMZYCB009'

              dynumb     = '0001'

         tables

              dynpfields = tdynpread.

    v_nrseqc = tdynpread-fieldvalue.

  endif.

  if v_dtvincul is initial or

     v_dtvincul eq ' 0000000'.

    clear tdynpread.

    refresh tdynpread.

    tdynpread-fieldname = 'V_DTVINCUL'.

    append tdynpread.

    call function 'DYNP_VALUES_READ'

         exporting

              dyname     = '/PWS/SAPMZYCB009'

              dynumb     = '0001'

         tables

              dynpfields = tdynpread.

    replace '.' with space into tdynpread-fieldvalue.

    replace '.' with space into tdynpread-fieldvalue.

    replace '/' with space into tdynpread-fieldvalue.

    replace '/' with space into tdynpread-fieldvalue.

    condense tdynpread-fieldvalue no-gaps.

    v_dtvincul(4) = tdynpread-fieldvalue+4(4).

    v_dtvincul+4(2) = tdynpread-fieldvalue+2(2).

    v_dtvincul+6(2) = tdynpread-fieldvalue(2).

  endif.

  set parameter id '/PWS/ZYCBP019' field v_nrseqc.

  set parameter id '/PWS/ZYGLP159' field v_dtvincul.

  get cursor field v_field.

  if v_field(5) = 'V_INV'.

    v_fieldname = 'NRINVOIC'.

    v_searchhelp = '/PWS/ZYCBA299'.

  elseif v_field(6) = 'V_PARC'.

    v_fieldname = 'NRPARCF'.

    v_searchhelp = '/PWS/ZYCBA300'.

  elseif v_field(8) = 'V_GSBERF'.

    v_fieldname = 'GSBERF'.

    v_searchhelp = '/PWS/ZYCBA301'.

  endif.

  call function 'F4IF_FIELD_VALUE_REQUEST'

       exporting

            tabname    = '/PWS/ZYCBT005'

            fieldname  = v_field

            searchhelp = v_searchhelp

            display    = l_display

       tables

            return_tab = itab_result

       exceptions

            others     = 5.

  check sy-subrc eq 0 .

  read table itab_result index 1.

  assign (v_field) to <fs_field>.

  if <fs_field> is assigned.

    <fs_field> = itab_result-fieldval.

    unassign <fs_field>.

  endif.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB009TOP

 program  /pws/sapmzycb009 message-id /pws/zycbm.

 include /pws/zygli100.

 include /pws/mzycb009x01.

 data: itab_zyglt100 like /pws/zyglt100 occurs 0 with header line.

 include /pws/zygli101.

 data v_tela_help like sy-dynnr value '0052'.

* >> Início da inclusão:

 DATA v_tela_adic LIKE sy-dynnr VALUE '0003'.

* << Fim da inclusão

 tables:

   indx,

   bsid,

   lfa1,

   t001w,

   bkpf,

   /pws/zycbe035,

   /pws/zycbe053,

   /pws/zycbt003,

   /pws/zycbt004,

...

...

       wa_zycbt006_aud like /pws/zycbt006,

       wa_zycbt030_aud like /pws/zycbt030,

       wa_zycbt050_aud like /pws/zycbt050,

       wa_zycbt051_aud like /pws/zycbt051,

       wa_zycbt084_aud like /pws/zycbt084,

       wa_zycbt209_aud like /pws/zycbt209,

       wa_zycbt220_aud like /pws/zycbt220,

       wa_zycbt231_aud like /pws/zycbt231,

       v_identific(25) type c,

       v_operacao(1)   type c.

* >> Início da inclusão:

ranges: r_invoic for /pws/zycbt017-nrinvoic,

        r_nrparc for /pws/zycbt017-nrparcf,

        r_gsberf for /pws/zycbt017-gsberf.

* << Fim da inclusão

 selection-screen begin of screen 0301.

 select-options:

         nrin for /pws/zycbe017-nrinvoic modif id fat

              matchcode object /pws/zycba068,

         gsbe for /pws/zycbe017-gsberf   modif id div,

         dtbl for /pws/zycbe017-dtbl     modif id dbl,

         fkda for /pws/zycbe017-fkdat    modif id dft,

         kuna for /pws/zycbe017-kunag    modif id cli

                       matchcode object debia,

         dtve for /pws/zycbe017-dtvencto modif id dv,

...

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

Modificações efetuadas em REPS /PWS/MZYCB009X01

...

        include structure /pws/zyglt321.

data: end of itab_zyglt321.

data: begin of itab_doctos occurs 0.

        include structure /pws/zycbt036.

data: end of itab_doctos.

data: v_searchhelp type shlpname,

      v_nrseqc     type /pws/zycbt001-nrseqc,

      v_cliente    type /pws/zycbt001-kunnr.

data: v_aux_dtpagext type /pws/zycbt005-dtpagext.

data: v_aux_dtvincul type /pws/zycbt001-dtvincul.

* >> Início da inclusão:

data: v_inv_from    type /pws/zycbt005-nrinvoic,

      v_inv_to      type /pws/zycbt005-nrinvoic,

      v_parc_from   type /pws/zycbt005-nrparcf,

      v_parc_to     type /pws/zycbt005-nrparcf,

      v_gsberf_from type /pws/zycbt005-gsberf,

      v_gsberf_to   type /pws/zycbt005-gsberf.

* << Fim da inclusão

data: end of common part.

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

Modificações efetuadas em SHLP /PWS/ZYCBA299

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA299

DESCRIÇÃO BREVE: CB - Faturas Vinculadas a um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT005

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA: _________________________________

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       0     0       /PWS/ZYCBL019   X   /PWS/ZYCBP019

DTVINCUL   X       0     0       /PWS/ZYCBL035   X   /PWS/ZYGLP159

NRINVOIC       X   1     1       /PWS/ZYCBL084

NRPARCF            2     2       RATNR

GSBERF             3     3       GSBER

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

Modificações efetuadas em SHLP /PWS/ZYCBA300

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA300

DESCRIÇÃO BREVE: CB - Parcelas de Faturas Vinculadas a um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT005

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA: _________________________________

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       0     0       /PWS/ZYCBL019   X   /PWS/ZYCBP019

DTVINCUL   X       0     0       /PWS/ZYCBL035   X   /PWS/ZYGLP159

NRINVOIC           1     1       /PWS/ZYCBL084

NRPARCF        X   2     2       RATNR

GSBERF             3     3       GSBER

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

Modificações efetuadas em SHLP /PWS/ZYCBA301

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA301

DESCRIÇÃO BREVE: CB - Divisão de Faturas Vinculadas a um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT005

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA: _________________________________

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       0     0       /PWS/ZYCBL019   X   /PWS/ZYCBP019

DTVINCUL   X       0     0       /PWS/ZYCBL035   X   /PWS/ZYGLP159

NRINVOIC           1     1       /PWS/ZYCBL084

NRPARCF            2     2       RATNR

GSBERF         X   3     3       GSBER

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

Modificações efetuadas em SHLP /PWS/ZYCBA302

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA302

DESCRIÇÃO BREVE: CB - Faturas Liquidadas em um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT006

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA:

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       1     1       /PWS/ZYCBL019       /PWS/ZYCBP019

NRINVOIC       X   2     2       /PWS/ZYCBL084

NRPARCF            3     3       RATNR

GSBERF             4     4       GSBER

DTVINCUL   X       5     5       /PWS/ZYCBL035       /PWS/ZYGLP159

DTPAGTO    X       6     6       /PWS/ZYCBL036       /PWS/ZYGLP160

DTPAGEXT   X       7     7       /PWS/ZYCBL289       /PWS/ZYGLP161

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

Modificações efetuadas em SHLP /PWS/ZYCBA303

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA303

DESCRIÇÃO BREVE: CB - Parcelas de Faturas Liquidadas em um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT006

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA:

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       1     1       /PWS/ZYCBL019       /PWS/ZYCBP019

NRINVOIC           2     2       /PWS/ZYCBL084

NRPARCF        X   3     3       RATNR

GSBERF             4     4       GSBER

DTVINCUL   X       5     5       /PWS/ZYCBL035       /PWS/ZYGLP159

DTPAGTO    X       6     6       /PWS/ZYCBL036       /PWS/ZYGLP160

DTPAGEXT   X       7     7       /PWS/ZYCBL289       /PWS/ZYGLP161

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

Modificações efetuadas em SHLP /PWS/ZYCBA304

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA304

DESCRIÇÃO BREVE: CB - Divisão de Faturas Liquidadas em um Contrato

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT006

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA:

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

NRSEQC     X       1     1       /PWS/ZYCBL019       /PWS/ZYCBP019

NRINVOIC           2     2       /PWS/ZYCBL084

NRPARCF            3     3       RATNR

GSBERF         X   4     4       GSBER

DTVINCUL   X       5     5       /PWS/ZYCBL035       /PWS/ZYGLP159

DTPAGTO    X       6     6       /PWS/ZYCBL036       /PWS/ZYGLP160

DTPAGEXT   X       7     7       /PWS/ZYCBL289       /PWS/ZYGLP161