CE PLUS - Nota 004815
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 25/09/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:39:22
Descrição da Nota: QUANDO USAMOS OPÇÃO 2 - FABRICANTE NA LI,DEVEMOS TÊ-LO CADASTRADO NO SAP
Sintoma
Na pasta fornecedores da LI quando utilizo a opção 2 - Fabricante/Produtor não é o Exportador o
programa exige que o fabricante seja cadastrado no SAP.
Solução
necessário tratar abertura dos campos dos dados do fabricante, de maneira que se possa informar
manualmente os dados (sem cadastro, assim como é na Fatura de mercadoria).
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04815 Data: 25/09/2007 Hora: 11:39:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04815
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
QUANDO USAMOS OPÇÃO 2 - FABRICANTE NA LI,DEVEMOS TÊ-LO CADASTRADO NO SAP
----------------------------------------------------------------------------------------------------
Palavras Chave:
OPÇÃO 2 - FABRICANTE/PRODUTOR NÃO É O EXPORTADOR - FATURA
LI -
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI020 0108
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0108
* Os seguintes campos foram modificados na tela 0108
*(Foi criado o screen-group1 = FAB para os dois campos)
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*PARA
/PWS/ZYCIE080A-NAME1
I/O 1 16 54 54 1 CHAR X X Off
FAB
*DE
/PWS/ZYCIE080A-NAME1
I/O 1 16 54 54 1 CHAR X X Off
*PARA
/PWS/ZYCIE080A-LANDA
I/O 2 16 3 3 1 CHAR X Off
FAB SPA GPA LND
*DE
/PWS/ZYCIE080A-LANDA
I/O 2 16 3 3 1 CHAR X Off
SPA GPA LND
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
/pws/zycie080-tipoforn = 'E'.
MODIFY /pws/zycit080 FROM /pws/zycie080.
MOVE-CORRESPONDING /pws/zycie080 TO wa_zycit080_aux.
ELSEIF /pws/zycie078-fabric EQ '2'.
MOVE: /pws/zycie078-nrseqli TO /pws/zycie080c-nrseqli,
/pws/zycie078-nrseqli TO /pws/zycie080a-nrseqli.
/pws/zycie080c-tipoforn = 'E'.
/pws/zycie080a-tipoforn = 'F'.
MODIFY /pws/zycit080 FROM /pws/zycie080c.
MOVE-CORRESPONDING /pws/zycie080c TO wa_zycit080_aux4.
* >> Início da exclusão: FORM SALVA_FORN
IF NOT /pws/zycie080a-lifnr IS INITIAL.
* << Fim da exclusão
MODIFY /pws/zycit080 FROM /pws/zycie080a.
MOVE-CORRESPONDING /pws/zycie080a TO wa_zycit080_aux2.
* >> Início da exclusão: FORM SALVA_FORN
ENDIF.
* << Fim da exclusão
ELSEIF /pws/zycie078-fabric EQ '3'.
MOVE: /pws/zycie078-nrseqli TO /pws/zycie080b-nrseqli.
/pws/zycie080b-tipoforn = 'E'.
MODIFY /pws/zycit080 FROM /pws/zycie080b.
MOVE-CORRESPONDING /pws/zycie080b TO wa_zycit080_aux3.
...
...
MOVE: /pws/zycie081-nranuente TO it_zycit081-nranuente,
/pws/zycie081-orgao TO it_zycit081-orgao.
it_zycit081-nrseqli = /pws/zycie078-nrseqli.
ENDFORM.
FORM modo_exib.
DATA: v_siscomex(1) TYPE c.
LOOP AT SCREEN.
IF v_tcode EQ '/PWS/ZYCI020_E' OR
v_tcode EQ '/PWS/ZYCI020_R' OR
v_tcode EQ '/PWS/ZYCI020_L'.
* >> Início da exclusão: FORM MODO_EXIB
IF screen-group1 EQ 'OC1'.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
IF screen-group1 EQ 'OC1' or
screen-group1 eq 'AC' .
* << Fim da inclusão
screen-input = '0'.
ENDIF.
ELSEIF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
v_tcode EQ '/PWS/ZYCI020_I' OR
v_tcode EQ '/PWS/ZYCI020_G'.
IF screen-group1 EQ 'OC1' AND
screen-group2 NE 'INV'.
...
...
v_tcode EQ '/PWS/ZYCI020_C' .
IF /pws/zycit000-flagdraw IS INITIAL.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE079-QTD_ITEN' .
IF NOT /pws/zycie078-nrseqd IS INITIAL.
* >> Início da inclusão: FORM MODO_EXIB
screen-input = '0'.
ENDIF.
ENDIF.
IF screen-group1 EQ 'FAB'.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_C' .
IF /pws/zycie078-fabric EQ '2'.
screen-input = '1' .
ENDIF.
ELSE.
* << Fim da inclusão
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
CASE sy-dynnr.
WHEN '0109'.
CLEAR: v_ncmdf.
LOOP AT it_zycit079.
READ TABLE itab_itens_aux WITH KEY ebelp = it_zycit079-ebelp
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
v_forn2 = /pws/zycie080a-lifnr.
PERFORM load_fornec_fabr.
/pws/zycie080a-name1 = wa_lfa12-name1.
/pws/zycie080a-landa = wa_lfa12-country.
/pws/zycie080a-logradouro = wa_lfa12-street.
/pws/zycie080a-nrlogr = wa_lfa12-house_num1.
/pws/zycie080a-city = wa_lfa12-city1.
/pws/zycie080a-regio = v_bezei.
/pws/zycie080a-compl = wa_lfa12-city2.
PERFORM descr_pais2.
* >> Início da exclusão: MODULE LOAD_FORNEC_FABR
ELSEIF /pws/zycie080a-lifnr IS INITIAL.
CLEAR /pws/zycie080a.
CLEAR: v_descr31,
v_descrpais2.
* << Fim da exclusão
ENDIF.
ENDIF.
IF it_zycit079 IS INITIAL.
CLEAR: wa_lfa12,
v_forn2.
ENDIF.
ENDMODULE.
MODULE find_dtvent OUTPUT.
IF /pws/zycie078-dtdef NE space AND
/pws/zycie078-dtdef NE '00000000'.
...
...
IF screen-group1 EQ 'CA1'.
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group1 EQ 'CA1'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_0101
IF v_tcode NE '/PWS/ZYCI020_E'.
* << Fim da exclusão
IF NOT /pws/zycie078-nrseqlisuba IS INITIAL.
IF screen-group2 EQ 'SUB'.
screen-input = '0'.
ENDIF.
IF screen-group1 EQ 'SB3'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 EQ 'SB5'.
screen-input = '1'.
ENDIF.
ELSE.
IF screen-group2 EQ 'SUB'.
screen-input = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
* >> Início da exclusão: MODULE SET_SCREEN_0101
ENDIF.
IF v_tcode NE '/PWS/ZYCI020_E'.
* << Fim da exclusão
IF NOT /pws/zycie078-nrseq IS INITIAL.
IF /pws/zycie078-status EQ 'VIN'.
IF screen-name EQ '/PWS/ZYCIE078-LAND1'.
IF v_bl IS INITIAL.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE078-URFDESP'.
IF v_di IS INITIAL.
screen-input = '0'.
...
...
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ELSEIF /pws/zycit000-siscomex IS INITIAL.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_0101
IF v_tcode eq '/PWS/ZYCI020_E'.
screen-input = '0'.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE set_screen_0401 OUTPUT.
LOOP AT SCREEN.
IF /pws/zycie078-nrseqlisub IS INITIAL.
IF screen-group1 EQ 'SB1'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
...