CE PLUS - Nota 008668
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 14/07/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:06:08
Descrição da Nota: NÃO CONTABILIZAVA O RECEBIMENTO F-51 QUANDO O FORNECEDOR POSSUIA SEDE
Sintoma
Ao realizar o recebimento não estava contabilizando a F-51 quando o fornecedor possuia SEDE com
programa de remessa.
Solução
Verificar se a SEDE esta preenchida para fazer a contabilização
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08668 Data: 14/07/2009 Hora: 14:00:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08668
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00105
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO CONTABILIZAVA O RECEBIMENTO F-51 QUANDO O FORNECEDOR POSSUIA SEDE
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - SEDE - F-51 - FORNECEDOR - PEDIDO - REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
IF NOT v_sede IS INITIAL.
itab_zycbe033-d_newko = v_sede.
ENDIF.
SELECT SINGLE *
FROM /pws/zycet076
WHERE codigo_ce EQ 'PI'.
READ TABLE itab_itens_nf INDEX 1.
SELECT SINGLE lifn2 FROM ekpa INTO v_emissor
WHERE ebeln = itab_itens_nf-ebeln
AND parvw = /pws/zycet076-codigo_r3.
* >> Início da exclusão: FORM FILL_DATE_F_51
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
IF sy-subrc EQ 0 AND v_sede IS INITIAL.
* << Fim da inclusão
itab_zycbe033-d_newko = v_emissor.
ENDIF.
itab_zycbe033-agkoa = 'K'.
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt.
IF v_sgtxt NE space.
itab_zycbe033-d_sgtxt = v_sgtxt.
itab_zycbe033-c_sgtxt = v_sgtxt.
ELSE.
itab_zycbe033-d_sgtxt = text-031.
...