CE PLUS - Nota 006344
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 08/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:52:51
Descrição da Nota: AO ALTERAR CNPJ DO ADQUIRENTE DEIXA SALVAR MAS ALTERA AO MODIFICAR DI
Sintoma
AO ALTERAR CNPJ DO ADQUIRENTE DEIXA SALVAR MAS ALTERA AO MODIFICAR DI
Solução
Atualização do programa de DI para propor o CNPJ do adquirente da mercadoria somente quando o campo
estiver vazio.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06344 Data: 08/04/2008 Hora: 11:31:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06344
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04831 - 00001 - 7.0 - 00003 - DESENVOLVER FUNCIONALIDADE FUNDAP NA NF E NA DI
----------------------------------------------------------------------------------------------------
AO ALTERAR CNPJ DO ADQUIRENTE DEIXA SALVAR MAS ALTERA AO MODIFICAR DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CNPJ - ADQUIRENTE - DI - ALTERAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
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 OR
/pws/zycie085-contropcb EQ '2'.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CNPJ
IF /pws/zycie085-cgc IS INITIAL.
* << Fim da inclusão
CLEAR: v_cnpj_findap, v_desc_findap, /pws/zycie085-fundapiana.
/pws/zycie085-cnpjestab = v_cgc.
* >> Início da inclusão: FORM LOAD_CNPJ
/pws/zycie085-cgc = v_cgc.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM LOAD_CNPJ
/pws/zycie085-cgc = v_cgc.
WRITE: v_cgc TO p_cnpj.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CNPJ
WRITE: /pws/zycie085-cgc TO p_cnpj.
* << Fim da inclusão
ENDIF.
ENDFORM.
...