CE PLUS - Nota 001147
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 04/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:11:31
Descrição da Nota: TELA DO LOTE NÃO ABRIU NO MOMENTO DO RECEBIMENTO.
Sintoma
Tela do lote não abriu no momento do recebimento.
Solução
Código com o tratamento foi incluído no programa.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01147 Data: 04/04/2006 Hora: 16:57:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01147
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TELA DO LOTE NÃO ABRIU NO MOMENTO DO RECEBIMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
TELA -LOTE - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
ebeln = wa_zycie044-ebeln AND
ebelp = wa_zycie044-ebelp.
ENDIF.
IF sy-dynnr = '0100'.
v_remessa = ' '.
*PWS17195860 Início
* >> Início da inclusão: Form verifica_lote
*PWS287322 início
SELECT SINGLE * FROM ekpo WHERE
ebeln = wa_zycie042-ebeln AND
ebelp = wa_zycie042-ebelp.
IF sy-subrc = 0 AND NOT ekpo-zgtyp IS INITIAL.
* Campo é obrigatório
v_certificado = 'X'.
ELSE.
CLEAR v_certificado.
ENDIF.
ELSEIF sy-dynnr = '0200'.
SELECT SINGLE * FROM ekpo WHERE
ebeln = wa_zycie044-ebeln AND
ebelp = wa_zycie044-ebelp.
IF sy-subrc = 0 AND NOT ekpo-zgtyp IS INITIAL.
* Campo é obrigatório
v_certificado = 'X'.
ELSE.
CLEAR v_certificado.
ENDIF.
v_remessa = 'X'.
ENDIF.
*PWS287322 Fim
* >> Fim da inclusão: Form verifica_lote
*PWS17195860 Fim
ENDFORM. " VERIFICA_LOTE
*&---------------------------------------------------------------------*
*& Form atualiza_zycit036
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM atualiza_zycit036.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017O01
...
IF NOT v_validade IS INITIAL.
screen-input = '0'.
ELSE.
screen-input = 1.
* screen-required = '1'.
ENDIF.
*PWS239343 fim
*PWS17195860 - Inicio
* >> Início da inclusão: MODULE INIBE_LINHAS
ELSEIF screen-name = '/PWS/ZYCIE223-CERTIFICADO'.
IF v_certificado = 'X'.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
* << Fim da inclusão
* PWS17195860 - Fim
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSE.
* IF NOT /pws/zycie041-mblnr_mb01 IS INITIAL.
* LOOP AT SCREEN.
* screen-input = '0'.
...
IF NOT v_validade IS INITIAL.
screen-input = '0'.
ELSE.
screen-input = 1.
* screen-required = '1'.
ENDIF.
*PWS239343 fim
*PWS17195860 - Inicio
* >> Início da inclusão: MODULE INIBE_LINHAS
ELSEIF screen-name = '/PWS/ZYCIE223-CERTIFICADO'.
IF v_certificado = 'X'.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
* >> Fim da inclusão: MODULE INIBE_LINHAS
*PWS17195860 - Fim
* ELSE.
* screen-input = '1'.
* MODIFY SCREEN.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* ENDIF.
ENDIF.
v_validade_aux = v_validade.
IF NOT wa_zycie042 IS INITIAL.
...
LOOP AT tc_itens_nfg-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCIE042-LGORT'.
* >> Início da inclusão: MODULE set_screen OUTPUT.
SELECT SINGLE * FROM ekpo WHERE
ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp.
IF NOT ekpo-zgtyp IS INITIAL.
IF v_sdep = 'X' OR
NOT /pws/zycie041-mblnr_mb01 IS INITIAL.
wa_cols-screen-input = '0'.
MODIFY tc_itens_nfg-cols FROM wa_cols.
ENDIF.
* >> Fim da inclusão: MODULE set_screen OUTPUT.
ELSE.
wa_cols-screen-input = '0'.
MODIFY tc_itens_nfg-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.