CE PLUS - Nota 004098
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Siscomex Transmissão
Data/Hora da Publicação: 04/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:48:00
Descrição da Nota: FUNÇÃO PARA TRANSMISSÃO DO RV E RETORNO DOS DADOS
Sintoma
Funcionalidade não prevista
Solução
Desenvolvimento da Função /PWS/ZYCE_TRANSFER_RV e alteração na Função /PWS/ZYCE_RETURN_FILA.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04098 Data: 04/07/2007 Hora: 09:16:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04098
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03798 - 00001 - 7.0 - 00001 - MENSAGEM DO LOG DE TRANSMISSÃO DO RC
----------------------------------------------------------------------------------------------------
FUNÇÃO PARA TRANSMISSÃO DO RV E RETORNO DOS DADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNCTION FUNÇÃO RV SISCOMEX FILA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYCED017
FUNC /PWS/ZYCE_RETURN_FILA
FUNC /PWS/ZYCE_TRANSFER_RV
REPS /PWS/LZYCEGF4UXX
REPS /PWS/MZYCE200I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYCED017
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYCED017
-Valores individuais
Incluído valor fixo "RV"
Texto incluído, idioma: PT (17 caracteres):
"Registro de Venda"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RETURN_FILA
...
ENDIF.
ENDIF.
IF stasis = 'T'.
UPDATE /pws/zycet235 SET nrrc = nrsiscomex
status = statusisc
data = dtlog
dtval = dtvaldes
WHERE nrseqrc = nrchave.
COMMIT WORK.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
ELSEIF tp_doc = 'RV'.
UPDATE /pws/zycet183 SET nrsiscomex = nrsiscomex
stasis = stasis
dtlog = dtlog
log = log
WHERE nrchave = nrchave
AND tp_doc = tp_doc.
COMMIT WORK.
IF stasis = 'T'.
UPDATE /pws/zycet112 SET nrrv = nrsiscomex
WHERE nrseqrv = nrchave.
COMMIT WORK.
ENDIF.
* << Fim da inclusão
ELSEIF tp_doc = 'CO13-01'.
UPDATE /pws/zycet183 SET stasis = stasis
dtlog = dtlog
log = log
WHERE nrseq = nrseq
AND nrchave = nrchave
AND tp_doc = tp_doc.
COMMIT WORK.
IF NOT nrsd IS INITIAL.
SELECT SINGLE bukrs
...
...
OR ( stasis = 'T' AND tp_doc = 'RE12' )
OR ( stasis = 'RT' AND tp_doc = 'RE03' )
OR ( stasis = 'RT' AND tp_doc = 'RE12' )
OR ( stasis = 'RT' AND tp_doc = 'RE' ).
IF nrsiscomex NE space.
UPDATE /pws/zycet116 SET nrre = nrsiscomex
retrans = space
retificacao = space
WHERE nrseqre = nrchave.
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
UPDATE /pws/zycet117 SET nrre = nrsiscomex
WHERE nrseqre = nrchave.
COMMIT WORK.
* << Fim da exclusão
UPDATE /pws/zycet003 SET nrre = nrsiscomex
WHERE nrseq = nremb
AND nrseqre = nrchave.
COMMIT WORK.
ENDIF.
CLEAR itab_zycet077.
REFRESH itab_zycet077.
SELECT *
FROM /pws/zycet077
INTO TABLE itab_zycet077
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_TRANSFER_RV
Criar a Função: /PWS/ZYCE_TRANSFER_RV
Características:
---------------------------------------------------
Módulo de Função: /PWS/ZYCE_TRANSFER_RV
Grupo de Funções: /PWS/ZYCEGF4 - CE - Grupo de Função SISCOMEX
Texto Breve: RFC - RV
Tipo de Execução: Módulo de Acesso Remoto
Classe Desenvolvimento: /PWS/ZYCE
Nome do Programa: /PWS/SAPLZYCEGF4
Nome do Include: /PWS/LZYCEGF4U17
Interface da Função.
---------------------------------------------------
- Parâmetros de Importação(Opcional desflagado, Transferência de Valor Flagado).
I_NRSEQRV LIKE /PWS/ZYCET112-NRSEQRV
- Parâmetros Tabelas(opcional desflagado)
ITAB_RV LIKE /PWS/ZYCET112
ITAB_VINCULACAO LIKE /PWS/ZYCET113
ITAB_PRORROGACAO LIKE /PWS/ZYCET114
Código Fonte:
---------------------------------------------------
* --------------------------------------------------------------------
* PROCWORK Software
* Produto : pw.CE
* Módulo : DE - Documentação de Exportação
* Descrição: SISCOMEX - Transferência de Registro de Venda - RV
* Help Desk: (11) 5504-0360
* --------------------------------------------------------------------
* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA
* --------------------------------------------------------------------
* Chamado Data Descrição
* --------------------------------------------------------------------
* 384794 01/06/2007 Codificação Inicial
* --------------------------------------------------------------------
FUNCTION /pws/zyce_transfer_rv.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" VALUE(I_NRSEQRV) LIKE /PWS/ZYCET112-NRSEQRV
*" TABLES
*" ITAB_RV STRUCTURE /PWS/ZYCET112
*" ITAB_VINCULACAO STRUCTURE /PWS/ZYCET113
*" ITAB_PRORROGACAO STRUCTURE /PWS/ZYCET114
*"----------------------------------------------------------------------
* Verifica se o RV está na Fila de Transmissão e Aguardando Envio.
SELECT COUNT(*)
FROM /pws/zycet183
WHERE stasis EQ 'A'
AND tp_doc EQ 'RV'
AND nrchave EQ i_nrseqrv.
CHECK sy-subrc EQ 0.
* Seleciona os dados da Tabela /pws/zycet112 - Cabeçalho do RV.
SELECT *
FROM /pws/zycet112
INTO TABLE itab_rv
WHERE nrseqrv = i_nrseqrv.
* Seleciona os dados da Tabela /pws/zycet113 - Vinculação do RV.
SELECT *
FROM /pws/zycet113
INTO TABLE itab_vinculacao
WHERE nrseqrv = i_nrseqrv.
* Seleciona os dados da Tabela /pws/zycet114 - Prorrogações do RV.
SELECT *
FROM /pws/zycet114
INTO TABLE itab_prorrogacao
WHERE nrseqrv = i_nrseqrv.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCEGF4UXX
...
INCLUDE /PWS/LZYCEGF4U07.
INCLUDE /PWS/LZYCEGF4U08.
INCLUDE /PWS/LZYCEGF4U09.
INCLUDE /PWS/LZYCEGF4U10.
INCLUDE /PWS/LZYCEGF4U11.
INCLUDE /PWS/LZYCEGF4U12.
INCLUDE /PWS/LZYCEGF4U13.
INCLUDE /PWS/LZYCEGF4U14.
INCLUDE /PWS/LZYCEGF4U15.
INCLUDE /PWS/LZYCEGF4U16.
* >> Início da inclusão:
INCLUDE /PWS/LZYCEGF4U17.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE200I01
...
ENDIF.
ENDIF.
WHEN 'B_LOG'.
CLEAR okcode.
CLEAR itab_zycet183_aux.
GET CURSOR FIELD v_campo VALUE v_valor LINE v_linha.
v_pos = tbcontrol-top_line + v_linha - 1.
READ TABLE itab_zycet183_aux INDEX v_pos.
IF sy-subrc = 0.
CASE itab_zycet183_aux-tp_doc.
* >> Início da exclusão: MODULE USER_COMMAND_0100
WHEN 'DDE' OR 'DSE' OR 'CRE' OR 'RC'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'DDE' OR 'DSE' OR 'CRE' OR 'RC' OR 'RV'.
* << Fim da inclusão
IF NOT itab_zycet183_aux-log IS INITIAL.
v_texto2 = v_texto = itab_zycet183_aux-log.
v_txt = 95.
DO v_txt TIMES.
IF v_texto2(1) <> ' ' OR v_texto2(1) EQ ' '.
SHIFT v_texto2.
ENDIF.
ENDDO.
v_texto1 = v_texto2.
CALL SCREEN '0200' STARTING AT 25 6
...