CE PLUS - Nota 007566
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 13/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:25
Descrição da Nota: PREENCHIMENTO DA AUTOMATICO DO FABRICANTE NA FATURA.
Sintoma
Ajustado programa de fatura para trazer proposto o fabricante quando todos itens da fatura possuirem
o mesmo fabricante preenchido anteriormente no embarque.
Solução
Ajustado programa de fatura para trazer proposto o fabricante quando todos itens da fatura possuirem
o mesmo fabricante preenchido anteriormente no embarque.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07566 Data: 13/11/2008 Hora: 11:54:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07566
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03551 - 00001 - 7.0 - 00001 - ERROS NA FATURA AO UTILIZAR TIPOS DE FABRICANTE 0,2 E 3.
06491 - 00002 - 7.0 - 00005 - AO MUDAR O TIPO DE FABRICANTE P/ 2, CAMPOS FABRICANTE FICAM ERRAD
----------------------------------------------------------------------------------------------------
PREENCHIMENTO DA AUTOMATICO DO FABRICANTE NA FATURA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREENCHIMENTO - FABRICANTE - ÚNICO - CABEÇALHO - AUTOMATICO
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
CLEAR v_paisfab.
IF '023' CA /pws/zycie006-fabricante .
CLEAR : /pws/zycie006-lifnrfabr,
/pws/zycie006-descfab,
/pws/zycie006-paisfab.
CLEAR : itab_zycit006-lifnrfabr,
itab_zycit006-descfab,
itab_zycit006-paisfab.
MODIFY itab_zycit006 TRANSPORTING lifnrfabr descfab paisfab
WHERE nrseq EQ /pws/zycie006-nrseq.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF '03' CA /pws/zycie006-fabricante .
* << Fim da inclusão
v_paisfab = 'X' .
ENDIF.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit003.
* >> Início da exclusão: MODULE ATUALIZA_PAIS
IF '023' CA /pws/zycie006-fabricante .
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF '03' CA /pws/zycie006-fabricante .
* << Fim da inclusão
CLEAR : itab_zycit003-paisfab,
itab_zycit003-lifnrfabr,
itab_zycit003-descfab ,
itab_zycit003-porigem ,
/pws/zycie003-porigem .
CLEAR : /pws/zycie003-paisfab,
/pws/zycie003-lifnrfabr,
/pws/zycie003-descfab .
ENDIF.
IF /pws/zycie006-fabricante EQ '0'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
MOVE: itab_zycit003-total TO /pws/zycie036-vldif.
MOVE: /pws/zycie001-waers TO /pws/zycie036-waers_dif.
/pws/zycie003-lifnrfabr = itab_zycit003-lifnrfabr.
IF v_paisfab EQ 'X' .
CLEAR :
/pws/zycie003-descfab,
/pws/zycie003-paisfab,
/pws/zycie003-lifnrfabr .
CLEAR v_paisfab.
ENDIF.
* >> Início da exclusão: MODULE CARREGA_ZYCIE003
tc_itens-lines = tc_itens-lines + 10.
* << Fim da exclusão
ENDMODULE.
MODULE set_screen_tc_0106 OUTPUT.
CHECK ( /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '11' ) OR /pws/zycie006-tpfatura = ' '.
LOOP AT SCREEN.
IF ( /pws/zycie006-ratval = 2 OR /pws/zycie006-ratval = 1 OR
itab_zycit003-livre NE 'S' OR v_status_s = 0 OR
/pws/zycie006-ratval = 3 OR ( /pws/zycie006-ratval = 4
AND screen-name NE '/PWS/ZYCIE003-VLREAL' ) ) AND
screen-name NE 'ITAB_ZYCIT003-MARC' AND
...
...
PERFORM busca_taxa USING itab_zycit003-waers
CHANGING v_taxa.
ENDIF.
ELSE.
v_taxa = 1.
ENDIF.
v_val_plan_tot = v_val_plan_tot + ( itab_zycit003-netpr *
itab_zycit003-toinv * v_taxa ).
ENDLOOP.
CLEAR v_tabix.
* >> Início da inclusão: MODULE CALCULA_TOTAL_PLANEJADO
DESCRIBE TABLE itab_zycit003 LINES tc_itens-lines.
* << Fim da inclusão
ENDMODULE.
MODULE status_0500 OUTPUT.
SET PF-STATUS '0500'.
ENDMODULE.
MODULE carrega_zycbt117 OUTPUT.
MOVE itab_zycbt117 TO /pws/zycbe117.
ENDMODULE.
MODULE load_param OUTPUT.
* >> Início da inclusão: MODULE LOAD_PARAM
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'.
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.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
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.
SELECT SINGLE ztag1 zdart FROM t052
INTO (t052-ztag1, t052-zdart)
WHERE zterm EQ /pws/zycie006-zterm.
IF t052-zdart EQ 'B' .
/pws/zycie006-dtbase = /pws/zycit093-dtemiss .
ELSEIF t052-zdart EQ 'D'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
DATA :v_fabr TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART.