Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 15/07/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:09:58
Descrição da Nota: TRATAMENTO DE FATURA LIVRE DE DÉBITO NA CRIAÇÃO DA ANA
Sintoma
Ao tentar criar a ANA para um processo que possua fatura livre de débito o programa exibe a mensagem
"ATENÇÃO !!! Não existe taxa de conversão de para ARS no dia 00000000 " e não trás os itens para a
ANA.
Solução
Ajustada programa para não buscar as faturas livres de débito durante a verificação das faturas de
mercadoria.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10400 Data: 15/07/2010 Hora: 16:54:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10400
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10040 - 00001 - 8.0 - 00003 - PERMITIR CRIAR A ANA COM FATURA SEM CONTABILIZAÇÃO.
----------------------------------------------------------------------------------------------------
TRATAMENTO DE FATURA LIVRE DE DÉBITO NA CRIAÇÃO DA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - LIVRE - DÉBITO - CRIAR - ANA
/PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
INTO TABLE it_verbl
FROM /pws/zycit094 INNER JOIN /pws/zycit003
ON /pws/zycit094~nrseq = /pws/zycit003~nrseq
WHERE /pws/zycit094~nrseqce = /pws/zycie085-nrbl
AND servico NE 'X'.
IF sy-subrc EQ 0.
CLEAR: itab_zycit006. REFRESH itab_zycit006.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycie085-nrbl
AND eliminado = space
* >> Início da inclusão: FORM VERIFY_BL
AND frpagto NE 'A'
* << Fim da inclusão
AND frpagto NE 'P'
AND belnr_p = space. "#EC CI_NOFIELD
LOOP AT itab_zycit006 WHERE tpfatura = '01'.
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
WHERE nrseq = itab_zycit006-nrseq
AND eliminado = space.
IF sy-subrc EQ 0.
LOOP AT itab_zycit132 WHERE belnr_p EQ space.
p_v_bl = 'C'.
EXIT.
...