CE PLUS - Nota 010523

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Liquidação de Contrato

Data/Hora da Publicação: 20/08/2010 00:00:00

Data/Hora Última Alteração: 18/02/2011 16:58:51

Descrição da Nota: LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL

Sintoma

Liq. Acc c/ Pre - quando faz um contrato de ACC e um novo de DP parcial o BI pega conta e atribuição

incorretos na 1.e 2. contabilização

 

 

Solução

Para contrato de DP, pega a conta de cliente na primeira contab. e acerta a descriçao da atribuição.

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

PARAMETRO - CAPTAÇÃO - PROBLEMA CFM

CAPTAÇÃO DP C/C ME - DUMP AO SALVAR

Informações Complementares

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

Nota Número 10523 Data: 20/08/2010 Hora: 16:50:14

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

 

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

Nota Número              : 10523

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

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

 

10377  - 00002 - 8.0    - 00004  - PARAMETRO - CAPTAÇÃO - PROBLEMA CFM

10458  - 00001 - 8.0    - 00004  - CAPTAÇÃO DP C/C ME - DUMP AO SALVAR

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

LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL

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

Palavras Chave:

LIQ. ACC C/ PRE - QUANDO FAZ UM CONTRATO DE ACC E UM NOVO DE DP PARCIAL

O BI PEGA CONTA E ATRIBUIÇÃO INCORRETOS NA 1.E 2. CONTABILIZAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCB001F02

REPS /PWS/MZYCB001TOP

 

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

Modificações efetuadas em REPS /PWS/MZYCB001F02

 

...

  endif.

  if wa_zycbt001_pre-tpcontr = 'A'.

    itab_zycbe033-d_newko1 = conta_acc.

  elseif wa_zycbt001_pre-tpcontr ne 'A'.

    itab_zycbe033-d_newko1 = conta_pre.

  endif.

  if /pws/zycbt001-tpcontr(1) = 'D'.

    itab_zycbe033-newbs   = '19'.

    itab_zycbe033-agkoa   = 'D'.

    itab_zycbe033-umskz   =  cod_rze.

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

    itab_zycbe033-d_newko = conta_pre.

    v_dp1 = 'X'.

* << Fim da inclusão

  else.

    itab_zycbe033-newbs   = '50'.

    itab_zycbe033-agkoa   = 'S'.

  endif.

   concatenate text-467 itab_zycbt061-nrseq_c

             into itab_zycbe033-d_zuonr

             separated by space.

  itab_zycbt036-tcode   = itab_zycbe033-tcode.

  itab_zycbt036-tabela  = itab_zycbe033-tabela.

  itab_zycbt036-cpochv  = itab_zycbe033-cpochv.

...

 

...

  itab_zycbe033-d_gsber = /pws/zycbe001-gsber.

  itab_zycbe033-wrbtr   = /pws/zycbe001-vlme.

  itab_zycbe033-werks   = /pws/zycbe001-werks.

  itab_zycbe033-kursf = /pws/zycbe001-txcneg.

  perform verify_null_field using /pws/zycbe001-txcneg

                                  'TXCAMB'

                                  text-027.

  concatenate text-488 /pws/zycbe001-nrseqc

              into itab_zycbe033-c_zuonr

              separated by space.

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

  if v_dp = 'X'.

* << Fim da exclusão

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

  IF v_dp1 = 'X'.

* << Fim da inclusão

    if wa_zycbt001_pre-tpcontr = 'A'.

      itab_zycbe033-c_zuonr = wa_zycbt001_pre-dtcontr.

    endif.

  endif.

  itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.

  itab_zycbe033-vbund   = /pws/zycbe001-vbund.

  append itab_zycbe033.

  if itab_zycbt061-tpcontr_c(1) ca 'PS'.

    if  /pws/zycbe001-tpcontr eq 'A'.

      select *

...

 

...

        itab_partidas-agkoa   = 'D'.

        itab_partidas-agums   = cod_rze.

      else.

        itab_partidas-agkoa   = 'S'.

        itab_partidas-agums   = space.

      endif.

      itab_partidas-bukrs   = wa_zycbt001_pre-bukrs.

      itab_partidas-shkzg   = 'H'.

      if itab_zycbt061-baixa eq 'X'.

        itab_partidas-v_sinal = '-'.

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

        IF  /pws/zycbe001-tpcontr = 'DP'.

          CONCATENATE text-488 wa_zycbt001_pre-nrseqc

                      INTO itab_partidas-d_zuonr

                      SEPARATED BY space.

        ELSE.

* << Fim da inclusão

        concatenate text-488 /pws/zycbe001-nrseqc

                    into itab_partidas-d_zuonr

                    separated by space.

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

        ENDIF.

* << Fim da inclusão

      else.

        itab_partidas-v_sinal = '+'.

        clear itab_partidas-d_zuonr.

      endif.

...

 

...

  else.

    v_subrc = 4.

  endif.

  sy-subrc = v_subrc.

endform.

form campos_liquida_pt_acc.

  data wa_zycbt060 like /pws/zycbe060.

  select single *

    from /pws/zycbt060

    into wa_zycbt060

    WHERE nrseq EQ /pws/zycbe001-nrseqc.                    "#EC ENHOK

  select *

    from /pws/zyglt321

    into table itab_zyglt321

    where ktosl   eq 'LAP' and

          codeven eq v_codeven.

  loop at itab_zyglt321.

    case itab_zyglt321-cpor3.

      when 'XBLNR' or 'ZUONR'.

        case itab_zyglt321-cpocb.

          when 'NRCONTR'.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB001TOP

 

...

        v_bco_cab      type /pws/zycbe134-bcocred,

        v_codaux1      type /pws/zygle316-codaux1,

        v_codaux2      type /pws/zygle316-codaux2,

        v_banco(10)    type n,

        v_conta(10)    type c,

         v_volta_part_conta(1) type c,

        v_codaux3      type /pws/zygle316-codaux3.

constants: c_debito               type c value 'D',

           c_credito              type c value 'C'.

data:    v_mess        type c.

* >> Início da exclusão:

data: v_dp(1)    type c.

* << Fim da exclusão

* >> Início da inclusão:

data: v_dp1(1)    type c.

* << Fim da inclusão

data: v_cont_cambio(06) type c .

data: v_pass(1)  type c,

      v_erro_2 .

data: vg_tcode(15) type c,

      vg_origem    type c.

data: v_year  like  bkpf-gjahr,

v_repid       like sy-repid,

v_codmod      type c value 'E',

v_exit        like /pws/zyglt100-zexit value 'CPT002'.

data: v_capital,

...