CE PLUS - Nota 000815
Módulo: DRAWBACK
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 06/02/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:31:53
Descrição da Nota: MELHORIAS NO ROBÔ DE TRANSMISSÃO DO DRAWBACK
Sintoma
Melhorias diversas no robô de transmissão do Drawback.
Solução
Aplicar os ajustes constantes nessa nota de melhoria.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00815 Data: 06/02/2006 Hora: 15:11:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00815
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00747 - 00001 - 6.0 - 00022 - AJUSTE PARA PREENCHIMENTO DA QUANTIDADE COMPROVADA DO MERCADO INT
00768 - 00002 - 6.0 - 00022 - REAPURAÇÃO PARCIAL DOS ITENS DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
MELHORIAS NO ROBÔ DE TRANSMISSÃO DO DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO DRAWBACK ROBÔ TRANSMISSÃO SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCET320 0100
DYNP /PWS/SAPMZYCI043 0100
FUGR /PWS/ZYCEGF4
FUNC /PWS/ZYCE_MONITOR
FUNC /PWS/ZYCI_READ_FILAD
REPS /PWS/MZYCET320F01
REPS /PWS/MZYCET320TOP
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI043I02
REPS /PWS/MZYCI043O01
TABD /PWS/ZYCET320
TABD /PWS/ZYCIE285
TABD /PWS/ZYCIT285
TABL /PWS/ZYCEE333
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCET320 0100
Incluir um Quadro (Frame):
NOME: DOCUMENTOS
TEXTO: Documentos
LINHA: 11 COLUNA: 02
COMPR.VIS.: 35 COMPR.DEF.: 35
ALTURA: 09
CRIAR CPO. SELEÇÃO(CHECKBOX):
NOME : V_EXP
TEXTO: Exportação
LINHA: 0014 COLUNA: 0029 (CheckBox) / 0008 (Texto)
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
CRIAR CPO. SELEÇÃO(CHECKBOX):
NOME : V_DRW
TEXTO: Drawback
LINHA: 0015 COLUNA: 0029 (CheckBox) / 0008 (Texto)
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI043 0100
Incluir o campo /PWS/ZYCIE285-CPF na Table Control TBCONTROL, última coluna, com as seguintes
características:
NOME : /PWS/ZYCIE285-CPF
TEXTO: CPF
(X) - DO DICT.
(X) - CAMPO DE SAÍDA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_MONITOR
Criar o Módulo de Função /PWS/ZYCE_MONITOR
GRUPO DE FUNÇÕES: /PWS/ZYCEGF4
TEXTO BREVE: Monitor Siscomex
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE ACESSO REMOTO
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
T_CPF LIKE /PWS/ZYCEE333 CE - SISCOMEX - CPFs nas filas de transmissão
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
Código Fonte:
FUNCTION /pws/zyce_monitor.
*"----------------------------------------------------------------------
*"*"Interface local:
*" TABLES
*" T_CPF STRUCTURE /PWS/ZYCEE333
*"----------------------------------------------------------------------
*----------------------------------------------------------------------
* PROCWORK Software
* Produto : pw.CE
* Módulo : DE - Documentação Exportação
* Descrição: SISCOMEX - Leitura da Fila de Documento
* Help Desk: (11) 5504-0270
*----------------------------------------------------------------------
* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA
*-----------------------------------------------------------------------
* Declarações de dados -------------------------------------------------
DATA: v_exp LIKE /pws/zycet320-exportacao,
v_drw LIKE /pws/zycet320-drawback.
* Início do processamento ----------------------------------------------
* Carrega parâmetros que determinam transmissão de docs de Exportação e
* Drawback
SELECT SINGLE exportacao drawback
FROM /pws/zycet320
INTO (v_exp, v_drw).
* Seleciona os CPFS da fila de transmissão de exportação
IF NOT v_exp IS INITIAL.
SELECT mandt cpf
FROM /pws/zycet183
INTO TABLE t_cpf
WHERE stasis EQ 'A'
AND cpf NE ''.
ENDIF.
* Seleciona os CPFS da fila de transmissão de drawback
IF NOT v_drw IS INITIAL.
SELECT mandt cpf
FROM /pws/zycit285
APPENDING TABLE t_cpf
WHERE stasis EQ 'A'
AND cpf NE ''.
ENDIF.
SORT t_cpf BY cpf.
DELETE ADJACENT DUPLICATES FROM t_cpf
COMPARING cpf.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_READ_FILAD
...
t001w.
data: begin of it_zycit285 occurs 0 .
include structure /pws/zycit285.
data: end of it_zycit285 .
data : v_branch like t001w-j_1bbranch.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
data : v_multiplas_filas type /pws/zycet320-multiplas_filas.
SELECT SINGLE multiplas_filas
FROM /pws/zycet320
INTO v_multiplas_filas.
IF v_multiplas_filas EQ 'X'.
select single * from /pws/zycit285
into t_fila
where tp_doc eq i_tp_doc
and stasis eq i_stasis
and cpf eq cpf2.
else.
* << Fim da inclusão
select single * from /pws/zycit285
into t_fila
where tp_doc eq i_tp_doc
and stasis eq i_stasis.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
endif.
* << Fim da inclusão
if sy-subrc eq 0.
append t_fila.
endif.
if not t_fila[] is initial.
read table t_fila index 1.
...
...
call function 'J_1BREAD_BRANCH_DATA'
exporting
branch = v_branch
bukrs = t_fila-bukrs
importing
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
cgc_number = t_fila-cnpj
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
cgc_number = cgc_number
* << Fim da inclusão
exceptions
branch_not_found = 1
address_not_found = 2
company_not_found = 3
others = 4.
...
...
from /pws/zycet184
where uname = t_fila-uname.
select single usu_main into usu_main
from /pws/zycet184
where uname = t_fila-uname.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
select single cnpj into cgc_number
from /pws/zycit285
where uname = t_fila-uname.
* << Fim da exclusão
select single senha from /pws/zycet098 into senha
where cpf = cpf.
select single senha from /pws/zycet097 into senhalegado
where usu_main = t_fila-usu_main.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCET320F01
...
CLEAR v_multiplas.
ELSEIF /pws/zycet320-multiplas_filas = 'X'.
CLEAR v_simples .
v_multiplas = 'X'.
ENDIF.
* >> Início da inclusão: FORM SET_CAMPOS
IF /pws/zycet320-exportacao IS INITIAL.
CLEAR v_exp.
ELSE.
v_exp = 'X'.
ENDIF.
IF /pws/zycet320-drawback IS INITIAL.
CLEAR v_drw.
ELSE.
v_drw = 'X'.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM atualiza_campos.
IF v_simples = 'X'.
/pws/zycet320-multiplas_filas = ' '.
ELSEIF v_multiplas = 'X'.
/pws/zycet320-multiplas_filas = 'X'.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_CAMPOS
IF v_exp = 'X'.
/pws/zycet320-exportacao = 'X'.
ELSE.
/pws/zycet320-exportacao = ' '.
ENDIF.
IF v_drw = 'X'.
/pws/zycet320-drawback = 'X'.
ELSE.
/pws/zycet320-drawback = ' '.
ENDIF.
* << Fim da inclusão
clear v_controle.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCET320TOP
...
data: okcode like sy-ucomm,
v_simples,
v_multiplas,
v_controle,
v_save type c,
* >> Início da exclusão:
v_answer type c.
* << Fim da exclusão
* >> Início da inclusão:
v_answer type c,
v_exp,
v_drw.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
answer = v_resposta.
IF v_resposta EQ 'J'.
READ TABLE it_zycit285 INDEX 1.
it_zycit285-stasis = 'A'.
it_zycit285-dtenvf = sy-datum.
* >> Início da inclusão: FORM TRATA_BUTTON_TRANS2
it_zycit285-uname = sy-uname.
it_zycit285-cpf = /pws/zycet184-cpf.
* << Fim da inclusão
MODIFY it_zycit285 INDEX 1.
MODIFY /pws/zycit285 FROM TABLE it_zycit285.
COMMIT WORK.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-158.
...
...
it_zycit285-identify = /pws/zycie244-identify.
it_zycit285-werks = /pws/zycie244-werks.
* >> Início da inclusão: FORM TRATA_BUTTON_TRANS2
it_zycit285-bukrs = /pws/zycie244-bukrs.
* << Fim da inclusão
it_zycit285-dtenvf = sy-datum.
it_zycit285-uname = sy-uname.
it_zycit285-stasis = 'A'.
* >> Início da inclusão: FORM TRATA_BUTTON_TRANS2
it_zycit285-cpf = /pws/zycet184-cpf.
* << Fim da inclusão
APPEND it_zycit285.
MODIFY /pws/zycit285 FROM TABLE it_zycit285.
COMMIT WORK.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-158.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
pressed_tab_2a = ok_code2.
dynpronr2a = '0226'.
WHEN 'COMPR'.
PERFORM envia_compr.
WHEN 'TRANS'.
* >> Início da exclusão: MODULE USER_COMMAND_0200
SELECT SINGLE uname FROM /pws/zycet184
INTO /pws/zycet184-uname
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
* << Fim da inclusão
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trata_button_trans2.
ELSE.
MESSAGE i015 WITH text-293 text-294.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI043I02
...
/pws/zycie285-werks to itab_zycit285-werks ,
/pws/zycie285-dtenvf to itab_zycit285-dtenvf ,
/pws/zycie285-nrsiscomex to itab_zycit285-nrsiscomex ,
/pws/zycie285-dtlog to itab_zycit285-dtlog ,
/pws/zycie285-uname to itab_zycit285-uname ,
* >> Início da exclusão: MODULE ATUALIZA_ZYCIE285
/pws/zycie285-usu_main to itab_zycit285-usu_main .
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ZYCIE285
/pws/zycie285-usu_main to itab_zycit285-usu_main ,
/pws/zycie285-cpf to itab_zycit285-cpf.
* << Fim da inclusão
IF itab_zycit285-stasis EQ text-002.
icon_n1 = text-007.
ELSEIF itab_zycit285-stasis EQ text-003.
icon_n1 = text-008.
ELSEIF itab_zycit285-stasis EQ text-004.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI043O01
...
itab_zycit285-werks TO /pws/zycie285-werks ,
itab_zycit285-dtenvf TO /pws/zycie285-dtenvf ,
itab_zycit285-nrsiscomex TO /pws/zycie285-nrsiscomex ,
itab_zycit285-dtlog TO /pws/zycie285-dtlog ,
itab_zycit285-uname TO /pws/zycie285-uname ,
* >> Início da exclusão: MODULE CARREGA_ZYCIE285
itab_zycit285-usu_main TO /pws/zycie285-usu_main .
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE285
itab_zycit285-usu_main TO /pws/zycie285-usu_main ,
itab_zycit285-cpf TO /pws/zycie285-cpf.
* << Fim da inclusão
IF itab_zycit285-stasis EQ text-002.
icon_n1 = text-007.
ELSEIF itab_zycit285-stasis EQ text-003.
icon_n1 = text-008.
ELSEIF itab_zycit285-stasis EQ text-004.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET320
Campo Chv El.Dados
MANDT X MANDT
MULTIPLAS_FILAS X FLAG
* >> Início da Inclusão <<
EXPORTACAO FLAG
DRAWBACK FLAG
* >> Fim da Inclusão <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE285
Campo El.Dados
MANDT MANDT
NRSEQD /PWS/ZYCIL435
TP_DOC /PWS/ZYGLL665
IDENTIFY /PWS/ZYCIL414
BUKRS BUKRS
WERKS WERKS_D
CNPJ /PWS/ZYCIL024
DTENVF SYDATUM
NRSISCOMEX /PWS/ZYCEL093
DTLOG SYDATUM
UNAME SYUNAME
STASIS /PWS/ZYCEL094
LOG TEXT250
USU_MAIN SYUNAME
* >> Início da Inclusão <<
CPF STCD2
* >> Fim da Inclusão <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT285
Campo Chv El.Dados
MANDT X MANDT
NRSEQD X /PWS/ZYCIL435
TP_DOC X /PWS/ZYGLL665
IDENTIFY /PWS/ZYCIL414
BUKRS BUKRS
WERKS WERKS_D
CNPJ /PWS/ZYCIL024
DTENVF SYDATUM
NRSISCOMEX /PWS/ZYCEL093
DTLOG SYDATUM
UNAME SYUNAME
STASIS /PWS/ZYCEL094
LOG TEXT250
USU_MAIN SYUNAME
* >> Início da Inclusão <<
CPF STCD2
* >> Fim da Inclusão <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE333
CRIAR ESTRUTURA: /PWS/ZYCEE333
DESCRIÇÃO BREVE: CPFs ativos na fila de transmissão do Sicomex Exportação
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE
Campo El.Dados
MANDT MANDT
CPF STCD2