CE PLUS - Nota 002263
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 17/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:20:47
Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO - CAMPO FILIAL (BUPLA)
Sintoma
Ao efetuar os lançamentos contábeis da liquidação em andamento, o programa não estava levando para o
batch-input o campo filial.
Solução
O programa passou a buscar o campo filial de acordo com o parametrizado no SAP e a levá-lo para os
lançamentos contábeis.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02263 Data: 17/10/2006 Hora: 09:21:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02263
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00135
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO EM ANDAMENTO - CAMPO FILIAL (BUPLA)
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO ANDAMENTO CAMPO FILIAL BUPLA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
'BLART'
text-040.
itab_zycbe033-blart = /pws/zycbt011-blart.
itab_zycbe033-d_gsber = itab_zycbt209-gsberf.
itab_zycbe033-c_gsber = itab_zycbt209-gsberf.
* >> Início da inclusão: FORM PROC_INCLUSAO
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
SELECT SINGLE dtemb kurrf_bl viatrans dtaverb dtcruze nrseq
FROM /pws/zycet001
INTO (v_dtemb, v_kurrf_bl, v_viatrans, v_dtaverb2, v_dtcruze,
v_nrseq)
WHERE nrseq EQ itab_zycbt209-nrinvoic.
...
...
itab_zycbe033-newbs = '12'.
ENDIF.
itab_zycbe033-augtx = /pws/zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CONCATENATE 'Des.' itab_zycbt030-nrinvoic itab_zycbt030-nrparcf
INTO itab_zycbe033-d_zuonr
SEPARATED BY space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
...
...
itab_zycbe033-zumsk = itab_zycbt209-umskz.
itab_zycbe033-agkon = itab_zycbt209-hkont.
itab_zycbe033-agkoa = itab_zycbt209-koart.
itab_zycbe033-werks = itab_zycbt209-werks.
CLEAR itab_zycbe033-c_zuonr.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
PERFORM verifica_prorrogacao_est.
PERFORM executa_exit USING 'LIQ008'.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ009'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
...
...
'BLART'
text-040.
itab_zycbe033-blart = /pws/zycbt011-blart.
itab_zycbe033-d_gsber = itab_zycbt209-gsberf.
itab_zycbe033-c_gsber = itab_zycbt209-gsberf.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
PERFORM valida_campo_filial
USING
itab_zycbt209-bukrs
itab_zycbt209-werks
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
SELECT SINGLE dtemb kurrf_bl
FROM /pws/zycet001
INTO (v_dtemb, v_kurrf_bl)
WHERE nrseq EQ itab_zycbt209-nrinvoic.
v_desm = /pws/zycbt089-tx_est_liq_and.
...
...
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDFORM.
* >> Início da inclusão:
FORM valida_campo_filial
USING
value(p_bukrs) TYPE /pws/zycbt001-bukrs
value(p_werks) TYPE /pws/zycbt001-werks
CHANGING
p_j_1bbranch TYPE /pws/zycbt001-j_1bbranch.
DATA:
v_adrnr TYPE j_1bbranch-adrnr,
v_country TYPE adrc-country.
IF p_j_1bbranch IS INITIAL.
SELECT SINGLE j_1bbranch
FROM t001w
INTO p_j_1bbranch
WHERE werks = p_werks.
ENDIF.
SELECT SINGLE adrnr
FROM j_1bbranch
INTO v_adrnr
WHERE
bukrs = p_bukrs AND
branch = p_j_1bbranch.
IF sy-subrc = 0.
SELECT SINGLE country
FROM adrc
INTO v_country
WHERE addrnumber = v_adrnr.
IF sy-subrc = 0 AND
v_country NS 'BR' AND
v_country NS 'TW'.
CLEAR p_j_1bbranch.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão