CE PLUS - Nota 004175
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:46:57
Descrição da Nota: ALTERAÇÃO DO NOME DO CAMPO FUNDAPIANA NA DI
Sintoma
O Desenvolvimento Adicional criado para atender ao FUNDAP criou um campo na DI chamado:
"FUNDAPIANA" que traz o nome e o CNPJ da Empresa Fundapiana. Este campo está na Carga 1 da DI e é
habilitado quando flegarmos o campo "operação FUNDAP. Uma operação por conta e ordem também deve
habilitar o campo Fundapiana, porém este campo deveria ter outra denominação pois podemos realizar
uma operação por conta e ordem sem que ela seja FUNDAP. Favor habilitar o campo FUNDAPIANA que
deverá ter o nome alterado para "CONSIGNATÁRIO" no momento em que o usuário define o adquirente da
mercadoria como "IMPORTAÇÃO POR CONTA E ORDEM".
Solução
Atualização do programa da DI para alterar o nome do campo de Fundapiana para Consignatário e
habilitar este campo sempre que for uma importação por conta e ordem.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04175 Data: 13/07/2007 Hora: 17:04:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04175
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03036 - 00001 - 6.0 - 00026 - ADEQUAÇÃO DO PW.CE PARA ATENDER AO FUNDAP.
----------------------------------------------------------------------------------------------------
ALTERAÇÃO DO NOME DO CAMPO FUNDAPIANA NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNDAP
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0131
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
MODIFY itab_zycit096 INDEX tc_arm-current_line.
IF sy-subrc NE 0.
APPEND itab_zycit096.
ENDIF.
ENDMODULE.
MODULE fill_dinumber INPUT.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycie085-nrseqdi.
ENDMODULE.
MODULE load_opcb INPUT.
PERFORM load_opcb.
* >> Início da inclusão: MODULE LOAD_OPCB
PERFORM comm_fundap.
* << Fim da inclusão
ENDMODULE.
MODULE load_reca INPUT.
IF /pws/zycie085-recalf IS INITIAL.
CLEAR: s_recalf, /pws/zycie085-setor, s_setor.
ELSE.
PERFORM: load_reca.
ENDIF.
IF /pws/zycie085-setor IS INITIAL.
CLEAR: s_setor.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
cgc_number = v_cgc
branch_data = wa_j_1bbranch
EXCEPTIONS
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
IF sy-subrc EQ 1.
MESSAGE i015 WITH text-001 p_bbranch.
ENDIF.
* >> Início da exclusão: FORM LOAD_CNPJ
IF NOT /pws/zycie085-opfundap IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CNPJ
IF NOT /pws/zycie085-opfundap IS INITIAL or
/PWS/ZYCIE085-CONTROPCB eq '2'.
* << Fim da inclusão
IF /pws/zycie085-fundapiana IS INITIAL.
READ TABLE itab_it INDEX 1.
SELECT SINGLE a~lifn2
FROM ekpa AS a INNER JOIN /pws/zycet076 AS b ON
a~parvw EQ b~codigo_r3
INTO /pws/zycie085-fundapiana
WHERE b~codigo_ce EQ 'FD'
AND a~ebeln EQ itab_it-ebeln.
ENDIF.
IF v_cnpj_findap IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
IF sy-subrc EQ 0.
screen-required = '1'.
ELSE.
screen-required = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group3 EQ 'FD'.
* >> Início da exclusão: FORM SET_SCREEN_0131
IF /pws/zycie085-opfundap IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0131
IF NOT /pws/zycie085-opfundap IS INITIAL OR
/pws/zycie085-contropcb EQ '2'.
screen-invisible = 0.
ELSE.
* << Fim da inclusão
screen-invisible = 1.
* >> Início da exclusão: FORM SET_SCREEN_0131
ELSE.
screen-invisible = 0.
* << Fim da exclusão
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0131
IF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
/pws/zycie085-contropcb EQ '1'.
CLEAR: /pws/zycie085-opfundap,
/pws/zycie085-fundapiana.
screen-input = '0'.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE093-DTCHEG' AND
/pws/zycie085-codreg EQ '15'.
...