Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 17/02/2011 00:00:00
Data/Hora Última Alteração: 20/06/2011 11:57:28
Descrição da Nota: OBRIGATORIEDADE DE DADOS DE FABRICANTE NA FATURA DE MERCADORIA
Sintoma
Desenvolvimento Adicional
Na criação da Fatura de Mercadoria (tipo 01) tornar obrigatório o preenchimento do campo ¿Tipo
Fabricante¿.
O não preenchimento destas informações atualmente impactam na NFE.
Solução
Novo tratamento para obrigar preenchimento dos dados do fabricante na fatura conforme tipo de
fabricante selecionado.
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10962 Data: 17/02/2011 Hora: 10:15:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10962
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00060
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
OBRIGATORIEDADE DE DADOS DE FABRICANTE NA FATURA DE MERCADORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATUA DE MERCADORIA - DADOS DO FABRICANTE - OBRIGATÓRIO
PREENCHER DADOS DO FABRICANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI003 0101
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0101
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101
PROCESS BEFORE OUTPUT.
MODULE: load_param,
set_screen,
descricoes,
exit_tela.
PROCESS AFTER INPUT.
MODULE atualiza_zycie006.
* >> Início da exclusão:
FIELD: /pws/zycie006-ntgew MODULE verifica_peso.
FIELD: /pws/zycie006-dtd_conta MODULE consiste_dtd_conta,
/pws/zycie006-banco MODULE consiste_banco,
/pws/zycie006-lifnr MODULE consiste_fornecedor,
/pws/zycie006-ntgew MODULE calcula_peso,
/pws/zycie006-dtvencto MODULE consiste_vencto,
/pws/zycie006-ebene MODULE busca_nivel_tsr ON REQUEST,
/pws/zycie006-zterm MODULE consiste_zterm ,
/pws/zycie006-frpagto MODULE consiste_cobertura_cambial,
/pws/zycie006-local MODULE consiste_local ,
/pws/zycie006-lifnr MODULE consiste_tpnf ON REQUEST,
/pws/zycie006-tpfatura MODULE verifica_tpfatura,
* << Fim da exclusão
* >> Início da inclusão:
FIELD: /pws/zycie006-ntgew MODULE verifica_peso,
/pws/zycie006-dtd_conta MODULE consiste_dtd_conta,
/pws/zycie006-banco MODULE consiste_banco,
/pws/zycie006-lifnr MODULE consiste_fornecedor,
/pws/zycie006-ntgew MODULE calcula_peso,
/pws/zycie006-dtvencto MODULE consiste_vencto,
/pws/zycie006-ebene MODULE busca_nivel_tsr ON REQUEST,
/pws/zycie006-zterm MODULE consiste_zterm ,
/pws/zycie006-frpagto MODULE consiste_cobertura_cambial,
/pws/zycie006-local MODULE consiste_local ,
/pws/zycie006-lifnr MODULE consiste_tpnf ON REQUEST,
/pws/zycie006-tpfatura MODULE verifica_tpfatura,
* << Fim da inclusão
/pws/zycie006-fabricante MODULE atualiza_pais ON REQUEST ,
/pws/zycie006-lifnrfabr MODULE atualiza_dados ON REQUEST .
* >> Início da exclusão:
FIELD /pws/zycie006-frpagto
MODULE verifica_frpagto ON CHAIN-REQUEST.
* << Fim da exclusão
* >> Início da inclusão:
CHAIN.
FIELD: /pws/zycie006-lifnrfabr,
/pws/zycie006-descfab,
/pws/zycie006-paisfab MODULE verifica_obrigatoriedade.
ENDCHAIN.
FIELD /pws/zycie006-frpagto MODULE verifica_frpagto ON CHAIN-REQUEST.
* << Fim da inclusão
MODULE: user_command_0101,
atualiza_zycie006,
check_total.
PROCESS ON VALUE-REQUEST.
FIELD /pws/zycie006-zterm MODULE valuerequest_zterm.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycit003-descfab = /pws/zycie003-descfab .
itab_zycit003-paisfab = /pws/zycie003-paisfab.
IF /pws/zycie006-fabricante EQ '3' .
/pws/zycie003-porigem = itab_zycit003-porigem =
/pws/zycie003-paisfab.
ENDIF.
ENDIF.
PERFORM carrega_descr.
CLEAR v_paisfab.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_FORNECEDOR
IF sy-ucomm EQ 'SAVE' AND
/pws/zycie006-fabricante EQ '2' AND
/pws/zycie006-tpfatura EQ '01'.
IF /pws/zycie003-lifnrfabr IS INITIAL OR
/pws/zycie003-descfab IS INITIAL OR
/pws/zycie003-paisfab IS INITIAL.
MESSAGE e015 WITH text-205.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
v_peso2 = '00'.
ENDIF.
IF v_peso1 IS INITIAL.
v_peso1 = '0'.
ENDIF.
CLEAR tdynpread-fieldvalue.
CONCATENATE v_peso1 '.' v_peso2 INTO tdynpread-fieldvalue.
MOVE tdynpread-fieldvalue TO /pws/zycie006-ntgew.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE ATUALIZA_ZYCIE006
IF ( /pws/zycie006-tpfatura = '02' OR
/pws/zycie006-tpfatura = '03' OR
/pws/zycie006-tpfatura = '04' ) AND
v_forn IS INITIAL
AND /pws/zycie006-eliminado NE 'X'.
ENDIF.
* << Fim da exclusão
IF t001-land1 = 'CL'.
/pws/zycie006-waers_clp = /pws/zycbt007-waersb.
ENDIF.
IF /pws/zycie006-vlfre_clp GT 0.
v_freteclp = 'S'.
ENDIF.
IF /pws/zycie006-fabricante EQ '0' AND
/pws/zycie006-lifnrfabr IS INITIAL.
LOOP AT itab_zycit003.
v_tabix = sy-tabix.
...
...
IF /pws/zycie006-fabricante EQ '0'.
itab_zycit003-fabric = '2'.
itab_zycit003-flagfabr = 'S' .
ELSE.
itab_zycit003-fabric = /pws/zycie006-fabricante.
ENDIF.
MODIFY itab_zycit003 .
ENDLOOP .
IF /pws/zycie006-fabricante EQ '2'.
v_flaglif = 'X'.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
ENDIF.
IF /pws/zycie006-tpfatura EQ '01' AND
/pws/zycie006-fabricante IS INITIAL.
MESSAGE e015 WITH text-201.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE verifica_obrigatoriedade INPUT.
IF sy-ucomm EQ 'SAVE' AND
/pws/zycie006-tpfatura EQ '01' AND
/pws/zycie006-fabricante EQ '0'.
IF /pws/zycie006-lifnrfabr IS INITIAL.
MESSAGE e015 WITH text-202.
ENDIF.
IF /pws/zycie006-descfab IS INITIAL.
MESSAGE e015 WITH text-203.
ENDIF.
IF /pws/zycie006-paisfab IS INITIAL.
MESSAGE e015 WITH text-204.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 201
Texto: (29 caracteres)
"Informe o Tipo de Fabricante."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 202
Texto: (21 caracteres)
"Informe o Fabricante."
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 203
Texto: (29 caracteres)
"Informe o Nome do Fabricante."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 204
Texto: (29 caracteres)
"Informe o País do Fabricante."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 205
Texto: (46 caracteres)
"Informe os dados do Fabricante para cada item."
Comprimento máximo: 46