CE PLUS - Nota 007733
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 09/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:38
Descrição da Nota: PREENCHIMENTO AUTOMATICO DO TIPO DE FABRICANTE NA FATURA
Sintoma
Desenvolvimento para preenchimento automatico do tipo de fabricante na fatura.
Solução
Desenvolvimento para preenchimento automatico do tipo de fabricante na fatura.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07733 Data: 09/12/2008 Hora: 13:36:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07733
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04371 - 00001 - 7.0 - 00002 - ERROS AO NAVEGAR NO FORNECEDOR DA FATURA , TIPO 0 E TIPO 2.
07566 - 00002 - 7.0 - 00007 - PREENCHIMENTO DA AUTOMATICO DO FABRICANTE NA FATURA.
----------------------------------------------------------------------------------------------------
PREENCHIMENTO AUTOMATICO DO TIPO DE FABRICANTE NA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREENCHIMENTO - TIPO - FABRICANTE - AUTOMATICO - FATURA
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
MODULE altera_itab_zycit003 INPUT.
CHECK NOT itab_zycit003 IS INITIAL.
v_tabix = v_tabix + 1.
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie001-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
CHECK /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11'
OR /pws/zycie006-tpfatura = ' '.
itab_zycit003-vlreal = /pws/zycie003-vlreal.
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT003
itab_zycit003-fabric = /pws/zycie003-fabric.
* << Fim da exclusão
itab_zycit003-porigem = /pws/zycie003-porigem.
itab_zycit003-paquis = /pws/zycie003-paquis.
itab_zycit003-mfrpn = /pws/zycie003-mfrpn.
PERFORM atualiza_fornecedor.
IF /pws/zycie006-nrseq_pgfat IS INITIAL AND itab_zycit132[] IS
INITIAL.
vcalc2 = itab_zycit003-qtd_iten.
IF vcalc > vcalc2.
MESSAGE s015 WITH text-119.
itab_zycit003-toinv = itab_zycit003-qtd_iten - itab_zycit003-invoiced.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
MODULE load_param OUTPUT.
IF sy-tcode EQ '/PWS/ZYCI003_C' AND
v_fabr IS INITIAL AND
( /pws/zycie001-modalidade EQ '01' OR
/pws/zycie001-modalidade EQ '11' ).
v_fabr = 'X'.
* >> Início da inclusão: MODULE LOAD_PARAM
LOOP AT itab_zycit003 WHERE
lifnrfabr NE space.
ENDLOOP.
IF sy-subrc NE 0.
/pws/zycie006-fabricante = 3.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit003 INDEX 1.
LOOP AT itab_zycit003 WHERE
lifnrfabr NE itab_zycit003-lifnrfabr.
EXIT.
ENDLOOP.
IF sy-subrc NE 0 AND
NOT itab_zycit003-lifnrfabr IS INITIAL.
/pws/zycie006-lifnrfabr = itab_zycit003-lifnrfabr.
/pws/zycie006-fabricante = 0.
SELECT SINGLE *
FROM lfa1
WHERE lifnr = /pws/zycie006-lifnrfabr.
IF sy-subrc EQ 0.
/pws/zycie006-descfab = lfa1-name1.
/pws/zycie006-paisfab = lfa1-land1.
* >> Início da inclusão: MODULE LOAD_PARAM
ENDIF.
IF /pws/zycie006-lifnrfabr EQ /pws/zycie006-lifnr.
/pws/zycie006-fabricante = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE LOAD_PARAM
ELSE.
/pws/zycie006-fabricante = 2.
ENDIF.
ENDIF.
IF /pws/zycie006-fabricante EQ '0'.
itab_zycit003-fabric = 2.
ELSE.
itab_zycit003-fabric = /pws/zycie006-fabricante.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE LOAD_PARAM
MODIFY itab_zycit003 TRANSPORTING fabric
WHERE fabric NE itab_zycit003-fabric.
* << Fim da inclusão
ENDIF.
IF /pws/zycie006-dtbase IS INITIAL.
SELECT SINGLE dtemiss dtlanc FROM /pws/zycit093
INTO (/pws/zycit093-dtemiss, /pws/zycit093-dtlanc)
WHERE nrseqce EQ /pws/zycie006-nrseqce.
...