CE PLUS - Nota 011408
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 25/08/2011 00:00:00
Data/Hora Última Alteração: 31/08/2011 14:58:00
Descrição da Nota: MIRO - PRESTAÇÃO DE CONTAS - FATURA - ARGENTINA
Sintoma
Alterar a MIRO feita na PC da Argentina, para que utilize o parâmetro da /pws/zycit399 (opções
Garanted e Paid) para que a pasta GL/Account seja preenchida.
Atualmente só a Garanted abre esta pasta na MIRO.
Obs.: Fazer alteração também na MIRO da fatura dos processos da Argentina.
Solução
Novo tratamento para preencher a pasta GL/ACCOUNT da MIRO quando a
despesa for garantizado e pagado na /pws/zycit399
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11408 Data: 25/08/2011 Hora: 14:20:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11408
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00083
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
MIRO - PRESTAÇÃO DE CONTAS - FATURA - ARGENTINA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREENCHER A PASTA GL/ACCOUNT DA MIRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI004F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDIF.
ELSE.
CONTINUE.
ENDIF.
CLEAR: v_vlaux, v_indice.
LOOP AT itab_zycit403 WHERE codigo = itab_zycit019-codigo.
v_indice = v_indice + 1.
READ TABLE itab_zycit003
WITH KEY ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
* >> Início da exclusão: FORM MIRO_AM_LA
IF itab_zycit403-condicoes EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
IF itab_zycit403-condicoes EQ 'G' OR
itab_zycit403-condicoes EQ 'P'.
* << Fim da inclusão
READ TABLE itab_ivaped
WITH KEY ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
CLEAR: itab_account, itab_zyglt316.
READ TABLE itab_zyglt316
WITH KEY codaux1 = itab_zycit403-codigo.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-195 itab_zycit403-codigo.
v_erro = 'X'.
EXIT.
...
...
FORM imposto_d.
DATA: itab_t059p TYPE t059p OCCURS 0 WITH HEADER LINE.
DATA: itab_zyglt378 TYPE /pws/zyglt378 OCCURS 0 WITH HEADER LINE,
itab_lfbw TYPE lfbw OCCURS 0 WITH HEADER LINE.
SELECT * FROM lfbw INTO TABLE itab_lfbw
WHERE lifnr EQ /pws/zycie006-lifnr
AND bukrs EQ /pws/zycie006-bukrs
AND wt_subjct NE space.
* >> Início da inclusão: FORM IMPOSTO_D
if sy-subrc = 0.
* << Fim da inclusão
READ TABLE itab_zycit003 INDEX 1.
LOOP AT itab_lfbw WHERE wt_withcd IS initial.
SELECT SINGLE wt_withcd
FROM /pws/zycit353
INTO itab_lfbw-wt_withcd
WHERE werks EQ itab_zycit003-werks
AND witht EQ itab_lfbw-witht.
IF sy-subrc EQ 0.
MODIFY itab_lfbw.
ENDIF.
...
...
ENDLOOP.
ENDLOOP.
CLEAR: itab_withtaxdata-wi_tax_base.
LOOP AT itab_t059p.
READ TABLE itab_lfbw
WITH KEY witht = itab_t059p-witht.
itab_withtaxdata-wi_tax_type = itab_lfbw-witht.
itab_withtaxdata-wi_tax_code = itab_lfbw-wt_withcd.
APPEND itab_withtaxdata.
ENDLOOP.
* >> Início da inclusão: FORM IMPOSTO_D
endif.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI004F01
...
ENDIF.
ELSE.
CONTINUE.
ENDIF.
CLEAR: v_vlaux, v_indice.
LOOP AT itab_zycit403 WHERE codigo = itab_zycit019-codigo.
v_indice = v_indice + 1.
READ TABLE it_zycit003
WITH KEY ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
* >> Início da exclusão: FORM MIRO
IF itab_zycit403-condicoes EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO
IF itab_zycit403-condicoes EQ 'G' OR
itab_zycit403-condicoes EQ 'P'.
* << Fim da inclusão
READ TABLE itab_ivaped
WITH KEY ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
CLEAR: itab_account, itab_zyglt316.
READ TABLE itab_zyglt316
WITH KEY codaux1 = itab_zycit403-codigo.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-127 itab_zycit403-codigo.
v_erro = 'X'.
EXIT.
...