CE PLUS - Nota 010211
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 28/05/2010 00:00:00
Data/Hora Última Alteração: 31/05/2010 16:25:49
Descrição da Nota: SOCIEDADE PARCEIRA ROTINA MENSAL DE IMPORTAÇÃO
Sintoma
Necessidade de tratamento sociedade parceira na rotina mensal de importação.
Solução
Tratamento sociedade parceira na rotina mensal de importação.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10211 Data: 28/05/2010 Hora: 10:56:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10211
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
10210 - 00011 - SOCIEDADE PARCEIRA FINANCIAMENTO
10188 - 00010 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
09936 - 00009 - FINANCIAMENTO IMPORTAÇÃO, CONTABILIZAÇÃO
09923 - 00008 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NEWGL
09825 - 00007 - ROTINA MENSAL IMPORTAÇÃO / EXPORTAÇÃO / FINANCEIRO MENSAGENS DE RETORNO
09327 - 00006 - EMPRÉSTIMO - ROTINAS MENSAIS - CONSIDERAR DE-PARA CATEGORIA DA MOEDA
08727 - 00005 - ROTINA MENSAL IMPORTAÇÃO - VALOR SUBTOTAL COMISSÃO INCORRETO
07611 - 00004 - ROTINA MENSAL - NÃO BUSCA CORRETAMENTE DADOS TAB.PARAMETRO /PWS/ZYCBT011
07408 - 00003 - ROTINA MENSAL IMPORTAÇÃO - ESTORNO MENSAL - DATA MOTIVO 02
01217 - 00002 - PADRONIZAÇÃO CLASSE /PWS/ZYCM PORTUGUÊS / INGLÊS
00585 - 00001 - ROTINA MENSAL IMPORTAÇÃO DIAS TRANSFERENCIA CP/LP
----------------------------------------------------------------------------------------------------
Texto Rápido:
SOCIEDADE PARCEIRA ROTINA MENSAL DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SOCIEDADE PARCEIRA ROTINA MENSAL IMPORTACAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI112
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI112
...
itab_zycbe033-xblnr = itab_contabil-nrseq.
endcase.
endcase.
endloop.
itab_zycbe033-d_zuonr = itab_zycbt112-nrfinanc.
itab_zycbe033-c_zuonr = itab_zycbt112-nrfinanc.
else.
itab_zycbe033-d_zuonr = itab_contabil-bco.
itab_zycbe033-c_zuonr = itab_contabil-bco.
endif.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
itab_zycbe033-vbund = itab_zycbt112-vbund.
* << Fim da inclusão
itab_zycbe033-kursf = itab_contabil-kursf.
itab_zycbe033-blart = itab_contabil-blart.
itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxt.
itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxt.
itab_zycbe033-ps_posid = itab_contabil-ps_posid.
itab_zycbe033-d_newko = itab_contabil-d_newko.
itab_zycbe033-d_gsber = itab_contabil-gsber.
itab_zycbe033-d_kostl = itab_contabil-kostl.
itab_zycbe033-d_prctr = itab_contabil-prctr.
itab_zycbe033-d_fipos = itab_contabil-fipos.
...
...
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCM_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
rotina_mensal = 'X'
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
if sy-subrc = 0.
if itab_contabil-tpcontab is initial.
concatenate 'JU' itab_contabil-codint itab_contabil-bco
...
...
itab_zycbe033-bukrs = itab_contabil-bukrs.
perform verify_null_field using itab_contabil-waers
'WAERS'
text-035.
itab_zycbe033-waers = itab_contabil-waers.
itab_zycbe033-kursf = itab_contabil-kursf.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-103.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
itab_zycbe033-vbund = itab_zycbt112-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCM_TRANSACAO_F_51T'
...
...
p_monat = v_periodo2.
endform.
form determina_ano using p_budat
p_bukrs
changing p_ano. "#EC *
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = p_bukrs
v_date = p_budat
importing
* >> Início da exclusão: FORM DETERMINA_ANO
v_year = p_ano "#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
v_year = p_ano "#EC *
* << Fim da inclusão
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
if sy-subrc = 0.
else.
...