Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 25/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:13:18
Descrição da Nota: NO EMBARQUE REGIME 16 VERIFICAR SE A VINCULAÇÃO DA DA É MANUAL.
Sintoma
No embarque, somente para regime 16, quando a vinculação da DA for manual, deverá aparecer a
seguinte mensagem "vinculação manual da DA" com botões de "sim" e "não".
Após salvar o embarque com vinculação manual, o sistema deverá procurar a tabela 025. Caso exista a
tabela, o sistema deverá fazer a baixa da DA.
Solução
Diferenciar e emitir uma mensagem ao vincular pedidos de compra na DA em regime 16
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02314 Data: 25/10/2006 Hora: 17:37:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02314
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00137
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00774 - 00001 - 6.0 - 00022 - ENTREPOSTO ADUANEIRO
01282 - 00002 - 6.0 - 00023 - DESEMVOLVIMENTO DA DECLARAÇÃO DE ADMISSÃO (DA)
01353 - 00003 - 6.0 - 00023 - APÓS SALVAR O EMBARQUE COM REGIME 16, O SALDO DA DA E O VALOR PLA
----------------------------------------------------------------------------------------------------
NO EMBARQUE REGIME 16 VERIFICAR SE A VINCULAÇÃO DA DA É MANUAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA - EMBARQUE - RECOF - VINCULAÇÃO DE PEDIDO
VINCULAÇÃO MANUAL.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001X01
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
DESCRIBE TABLE itab_da LINES v_line.
IF itab_da[] IS INITIAL.
MESSAGE s015 WITH text-259 text-264.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_DA
IF v_manual EQ 'X'.
v_caller = 'SELECIONAR_RC'.
ELSE.
v_caller = 'SELECIONAR_DA'.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM SELECIONAR_DA
v_caller = 'SELECIONAR_DA'.
* << Fim da exclusão
CALL SCREEN '0003'.
ELSE.
MESSAGE s015 WITH text-259 text-264.
ENDIF.
ENDFORM.
...
...
WHERE ebeln = itab_zycit013-ebeln
AND ebelp = itab_zycit013-ebelp .
MODIFY itab_zycit013.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM verifica_rc.
CLEAR v_resposta.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-335
textline1 = text-336
titel = text-337
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
v_manual = 'X'.
EXIT.
ELSEIF v_resposta EQ 'N'.
v_manual = 'N'.
ELSE.
CLEAR v_manual.
ENDIF.
CLEAR v_resposta.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
SELECT SINGLE status
FROM /pws/zycit001
INTO /pws/zycie001-status
WHERE nrseq = /pws/zycie001-nrseq.
WHEN 'SELE_DA'.
* >> Início da inclusão: MODULE USER_COMMAND_0050
if /pws/zycie001-regime = '16'.
perform verifica_RC.
endif.
if v_manual eq 'N'.
CALL SELECTION-SCREEN '0701'.
else.
* << Fim da inclusão
CALL SELECTION-SCREEN '0700'.
* >> Início da inclusão: MODULE USER_COMMAND_0050
endif.
* << Fim da inclusão
WHEN 'SELE_RC'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
data: ebeln type ekpo-ebeln,
ebelp type ekpo-ebelp,
menge type ekpo-menge,
bstyp type ekpo-bstyp.
data: end of itab_pedido.
* >> Início da inclusão:
data: v_manual.
* << Fim da inclusão
DATA: END OF COMMON PART A.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 335
Texto: (30 caracteres)
"Opção de Seleção Manual de DA."
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 336
Texto: (17 caracteres)
"Deseja continuar?"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 337
Texto: (23 caracteres)
"Vinculação Manual de DA"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): PA_BUK
Texto: (15 caracteres)
"Empresa"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_ADICA
Texto: (14 caracteres)
"Adição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_BELN
Texto: (14 caracteres)
"Pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_BELP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DTDE
Texto: (24 caracteres)
"Data Desembaraço"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBELP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_FILIA
Texto: (14 caracteres)
"Filial"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_ITADI
Texto: (22 caracteres)
"Item da Adição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_LIFN
Texto: (18 caracteres)
"Fornecedor"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATN
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATNR
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATRI
Texto: (15 caracteres)
"Empresa"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRDA
Texto: (20 caracteres)
"Número da DA"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ
Texto: (21 caracteres)
"Sequencial DA"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NUMDA
Texto: (20 caracteres)
"Número da DA"
Referência ao Dictionary: NÃO