Sintoma

Atualmente o programa permite apenas as liquidações das captações do tipo ACC ou Trava.

Solução

Foi necessário para possibilitar que todas as operações de adiantamento de recursos, antes dos

embarques das mercadorias sejam liquidados mediante a antecipação de pagamentos por parte dos

clientes.

Informações Complementares

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

Nota Número 08935 Data: 01/09/2009 Hora: 16:37:58

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

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

Nota Número              : 08935

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00112

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

Referência às notas relacionadas:

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

08930  - 00001 - 7.0    - 00010  - CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZA

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

LIQUIDAÇÃO DE ACC COM PRÉ - CAPTAÇÕES

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

Palavras Chave:

LIQUIDAÇÃO DE ACC COM PRÉ - CAPTAÇÕES

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

Objetos da nota:

REPS /PWS/MZYCB001F01

REPS /PWS/MZYCB001F02

REPS /PWS/MZYCB001F04

REPS /PWS/MZYCB001O01

REPS /PWS/MZYCB001TOP

REPT /PWS/SAPMZYCB001

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

  check p_okcode ne 'DELE'.

  perform refresh_zycbt004.

endform.

form refresh_zycbt004.

  update /pws/zycbt004 set nrcontr  = /pws/zycbe001-nrcontr

                      tpcontr  = /pws/zycbe001-tpcontr

                      bconegoc = /pws/zycbe001-bconegoc

                      bcofinan = /pws/zycbe001-bcofinan

                where nrseqc   = /pws/zycbe001-nrseqc.

  if sy-subrc = 0.

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

    message i032.

* << Fim da exclusão

  endif.

endform.

form select_zycbt005.

  select nrinvoic into (/pws/zycbt005-nrinvoic)

                  from /pws/zycbt005 up to 1 rows

                  where nrseqc   = /pws/zycbe001-nrseqc.

  endselect.

  if sy-subrc = 0.

    if not v_nrseqc is initial and

         v_status_s = '1'.

...

...

     /pws/zycbe001-waers      ne wa_zycbt001-waers    or

     /pws/zycbe001-txcneg     ne wa_zycbt001-txcneg   or

     /pws/zycbe001-fdtlanc    ne wa_zycbt001-fdtlanc  or

     /pws/zycbe001-vlme       ne wa_zycbt001-vlme     or

     /pws/zycbe001-txcneg     ne wa_zycbt001-txcneg   or

     /pws/zycbe001-fdtjuros   ne wa_zycbt001-fdtjuros ) and

     /pws/zycbe001-status   eq 'C'.

    v_alterado = 'X'.

    perform refresh_dependent_tables using v_ok 'SAVE'.

    clear v_alterado.

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

   select single *

   from /PWS/ZYCBT060

   where NRSEQ = /pws/zycbe001-NRSEQC.

   if sy-subrc = 0.

       message i015 with text-503 text-504.

      leave to screen 0.

   endif.

* << Fim da inclusão

    if v_ok ne 'N'.

      perform altera_cab_pt.

      if v_answer = 'A'.

        exit.

      endif.

      perform save_zycbt002.

      perform save_zycbt003.

      /pws/zycbe001-slvinc = /pws/zycbe001-slpagar =

                            /pws/zycbe001-slreserv = /pws/zycbe001-vlme.

      modify /pws/zycbt001 from /pws/zycbe001.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

* >> Início da inclusão:

form popup_message1 using value(p_textline1)

                         value(p_textline2)

                         value(p_titel) .

  call function 'POPUP_TO_CONFIRM_STEP'

       exporting

            defaultoption = 'Y'

            textline1     = p_textline1

            textline2     = p_textline2

            titel         = p_titel

       importing

            answer        = v_answer

       exceptions

            others        = 1.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB001TOP

...

  /pws/zycbt115,

  /pws/zycbt216,

  /pws/zycbe216,

  /pws/zycbe226,

  /pws/zycbt226,

  /pws/zycbe227,

  /pws/zycbt227,

  /pws/zycbe241,

  /pws/zycbt241,

  /pws/zycbt067,

* >> Início da inclusão:

  /PWS/ZYCBT060,

* << Fim da inclusão

  /pws/zyglt340,

  /pws/zyglt343,

  /pws/zyglt364,

  rm06b,

  t16fe,

  j_1bbranch,

  /pws/zycet001,

  /pws/zycet002,

  /pws/zycbt222,

  /pws/zycbe223,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB001

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 503

Texto: (32 caracteres)

"Parta efetuar modificações, este"

Comprimento máximo: 41

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 504

Texto: (29 caracteres)

"contrato deverá ser ESTORNADO"

Comprimento máximo: 29