CE PLUS - Nota 002858
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 11/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:05:16
Descrição da Nota: FATURA DE SERVIÇO COM PAGAMENTO APÓS DI
Sintoma
Embarque está vinculando todos as faturas com PGFAT = vazio.
Isto ocorre quando, por algum motivo, o sistema não grava o PGFAT da fatura, aí ao entrar na lista
de faturas deste embarque, o sistema exibe todas as fatura que também estão com PGFAT = vazio.
Erro ocorria quando era fatura de serviço tipo P.
Não pode ser feita fatura de serviço tipo P, porque ao criar a fatura de serviço gera uma remessa no
câmbio, e a fatura tipo P`não tem o documento contábil, pois só é gerado na DI, e a remessa não pode
ser feita sem o documento contábil da importação.
Solução
Atualizado o programa de fatura para não deixar gravar fatura de serviço com pagamento após DI.
ao fazer fatura de serviço não permite que seja tipo P.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02858 Data: 11/01/2007 Hora: 13:39:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02858
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00148
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00811 - 00001 - 6.0 - 00022 - SISTEMA NÃO REALIZA A FATURA EM ALGUNS EMBARQUES.
01113 - 00002 - 6.0 - 00023 - PROGRAMA CHECA CATEGORIA DE MOEDA EQUIVOCADAMENTE.
01256 - 00003 - 6.0 - 00023 - ERRO NAS FATURAS DE SERVIÇO, QUANDO GERAMOS A REMESSA PARA O MÓDU
01363 - 00004 - 6.0 - 00023 - QUANDO O REGIME DE EMBARQUE FOR 16, NÃO HAVERÁ CRIAÇÃO MANUAL DE
01986 - 00005 - 6.0 - 00024 - ERRO NO CUSTO EFETIVO E FATURA DO TIPO P
02415 - 00006 - 6.0 - 00025 - AJUSTE EXIT DA FATURA, DE CONTABILIZAÇÃO
02505 - 00007 - 6.0 - 00025 - EM FATURA JPY APÓS A CRIAÇÃO DA DI, OS VALORES ESTÃO DIVIDIDOS PO
02700 - 00008 - 6.0 - 00025 - CUSTO EFETIVO FATURA P PARCELADA NÃO GRAVA NO CUSTO E FRETEI COLU
----------------------------------------------------------------------------------------------------
FATURA DE SERVIÇO COM PAGAMENTO APÓS DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - SERVIÇO - PAGAMENTO P
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI003 0100
DYNP /PWS/SAPMZYCI003 0101
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0101
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.
PERFORM verify_null_field USING /pws/zycie006-bukrs 'BUKRS' text-010.
itab_zycbe033-bukrs = /pws/zycie006-bukrs.
PERFORM verify_null_field USING /pws/zycie006-waers 'WAERS' text-011.
itab_zycbe033-waers = /pws/zycie006-waers.
IF t001-land1 EQ 'CL' AND /pws/zycie006-tpfatura EQ '02'.
CLEAR itab_zycbe033-kursf.
itab_zycbe033-dmbtr = /pws/zycie006-vlfre_clp .
ELSE.
IF /pws/zycie006-frpagto = 'P'.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
IF /pws/zycie006-tpfatura = '01' .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
IF /pws/zycie006-tpfatura = '01'.
* << Fim da inclusão
READ TABLE itab_zycit003 INDEX 1.
READ TABLE itab_zycit100 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
v_ukurs = itab_zycit100-dttaxbem.
ELSEIF /pws/zycie006-tpfatura = '02'.
v_ukurs = /pws/zycit085-ukursfre.
ELSEIF /pws/zycie006-tpfatura = '03'.
v_ukurs = /pws/zycit085-ukursseg.
ENDIF.
ELSE.
...
...
AND /pws/zycie006-frpagto EQ 'P' ).
v_parcela = 'X'.
CLEAR v_idx.
IF NOT /pws/zycie006-tpfatura EQ '11'.
LOOP AT itab_zycit132 WHERE status = 'C' OR status = space.
v_idx = sy-tabix.
PERFORM gravar_cambio.
ENDLOOP.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
IF NOT /pws/zycie006-tpfatura EQ '11'.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF NOT /pws/zycie006-tpfatura EQ '11'
AND e_subrc NE '8'.
* << Fim da inclusão
IF /pws/zycie006-fhcambio = ' '.
PERFORM gravar_cambio.
ELSEIF /pws/zycie006-fhcambio = 'X'.
ENDIF.
ENDIF.
ENDIF.
IF v_recebi NE 'X'.
IF /pws/zycie006-tpfatura EQ '11'
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
AND NOT /pws/zycie006-belnr_p IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
AND e_subrc NE '8'.
* << Fim da inclusão
PERFORM cria_remessa.
ENDIF.
ENDIF.
CLEAR v_par.
READ TABLE itab_zycit132_ini WITH KEY belnr_p = ' '
eliminado = ' '.
IF sy-subrc = 0.
v_par = 'X'.
ENDIF.
IF ( NOT v_contabilizou IS INITIAL AND
...
...
OR ( /pws/zycie006-frpagto = 'A' ).
PERFORM custeando_despesa_inco.
ELSEIF ( /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '11' ).
.
PERFORM fill_nrseq_pgfat.
PERFORM calc_vlreal.
ENDIF.
COMMIT WORK.
IF /pws/zycie006-tpfatura EQ '11'
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
AND NOT /pws/zycie006-belnr_p IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
AND e_subrc NE '8'.
* << Fim da inclusão
IF v_parcela NE 'X'.
PERFORM cria_remessa.
ELSE.
LOOP AT itab_zycit132 WHERE status = 'C' OR status = space.
v_idx = sy-tabix.
PERFORM cria_remessa.
MODIFY itab_zycit132 INDEX v_idx.
ENDLOOP.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
MODULE atualiza_pais INPUT.
PERFORM carrega_pais.
PERFORM consiste_fabr.
ENDMODULE.
MODULE consiste_fabr INPUT.
PERFORM consiste_fabr.
ENDMODULE.
MODULE verifica_tpfatura INPUT.
PERFORM tp_fatura.
ENDMODULE.
* >> Início da inclusão:
MODULE verifica_frpagto INPUT.
IF /pws/zycie006-frpagto EQ 'P'
AND /pws/zycie006-tpfatura EQ '11'.
MESSAGE e039 WITH text-170.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 168
Texto: (23 caracteres)
"To fill mode of payment"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 169
Texto: (54 caracteres)
"NF for the process exists, Invoice will not be entered"
Comprimento máximo: 56
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 170
Texto: (49 caracteres)
"Invoice of Seviço cannot have payment of type #P#"
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 170
Texto: (51 caracteres)
"Fatura de Seviço não pode ter pagamento do tipo 'P'"
Comprimento máximo: 60