CE PLUS - Nota 006692
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Registro de Crédito (RC)
Data/Hora da Publicação: 05/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:38:14
Descrição da Nota: AJUSTES NO REGISTRO DE CRÉDITO PARA INCLUSÃO MANUAL DE DADOS RC
Sintoma
Os campos "Status", "Data" e "Validade" não permitem inclusão manual. Para clientes cuja transmissão
para o Siscomex não seja automática via Pw.CE, não é possível o preenchimento destes campos.
Solução
Criação de um parâmetro na tabela /pws/zycet312 (transação /pws/zyce312) para informar se
transmissão de RC é automática ou Manual. Quando parâmetro for igual a 1 (SIM), os campos estarão
abertos para inclusão de dados, se parâmetro for igual a 0 (NÃO) ou vazio, os campos permanecerão
bloqueados.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06692 Data: 05/06/2008 Hora: 10:04:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06692
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00050
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05601 - 00001 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA PARÂMETROS BLOBAI
06566 - 00002 - 7.0 - 00005 - REMOVER USUARIO MAINFRAME DO SISCOMEX
----------------------------------------------------------------------------------------------------
AJUSTES NO REGISTRO DE CRÉDITO PARA INCLUSÃO MANUAL DE DADOS RC
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGISTRO DE CRÉDITO, RC, MANUAL, STATUS, DATA, VALIDADE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCEL718
DYNP /PWS/SAPMZYCE312 0100
DYNP /PWS/SAPMZYCE312 0101
DYNP /PWS/SAPMZYCE312 0102
DYNP /PWS/SAPMZYCE312 0103
REPS /PWS/MZYCE109F01
REPS /PWS/MZYCE109O01
REPS /PWS/MZYCE109TOP
REPS /PWS/MZYCE312F01
TABD /PWS/ZYCET312
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL718
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL718
Classe de desenvolvimento: /PWS/ZYCE
Descrição breve incluída: (24 caracteres), idioma: PT
"GL - Parâmetro RC Manual"
Categoria de dados: Domínio
Domínio: /PWS/ZYCED369
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
Comprimento máximo do denominador breve: 09
Denominador breve incluído (09 caracteres), idioma: PT
"RC Manual"
Comprimento máximo do denominador médio: 09
Denominador médio incluído (09 caracteres), idioma: PT
"RC Manual"
Comprimento máximo do denominador longo: 09
Denominador longo incluído (09 caracteres), idioma: PT
"RC Manual"
Título incluído (09 caracteres), idioma: PT
"RC Manual"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE312 0100
MODIFICAR TABSTRIP "REG_EMP"
Comprimento Visível 99
MODIFICAR ÁREA DE SUB-TELA "SS_EMB" em tbl.contr./tabstr.
Comprimento Visível 97
MODIFICAR ÁREA DE SUB-TELA "SS_PAR" em tbl.contr./tabstr.
Comprimento Visível 97
MODIFICAR ÁREA DE SUB-TELA "SS_PAR_EMP" em tbl.contr./tabstr.
Comprimento Visível 97
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE312 0101
MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0101
Altura atual (linhas) 25
Largura atual (colunas) 93
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-BOT_ESPEC"
Linha 16
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-BOT_ESPEC"
Linha 16
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-EMB_CONSIG"
Linha 4
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-EMB_CONSIG"
Linha 4
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-KURST_DSE"
Linha 12
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-KURST_DSE"
Linha 12
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-LOC_EMB"
Linha 2
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-LOC_EMB"
Linha 2
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-PART_LOTE"
Linha 18
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-PART_LOTE"
Linha 18
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-RATEIO_AUT"
Linha 8
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-RATEIO_AUT"
Linha 8
Coluna 4
INCLUIR CAMPO TEXTO "/PWS/ZYCET312-RC_MANUAL"
Altura 16
Comprimento Visível 3
Linha 23
Coluna 46
Formato CHAR
Linhas mínimas 3
Texto ___
Código função
INCLUIR TEXTO "/PWS/ZYCET312-RC_MANUAL"
Comprimento Visível 26
Linha 23
Coluna 4
Formato CHAR
Texto Registro de Crédito Manual
Código função
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-TPCALC"
Linha 7
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-TPCALC"
Linha 7
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-TP_EMB"
Linha 3
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-TP_EMB"
Linha 3
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-TP_EMB_TEMP"
Linha 5
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-TP_EMB_TEMP"
Linha 5
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-TRANSPORTE"
Linha 14
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-TRANSPORTE"
Linha 14
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-WAERS_DSE"
Linha 11
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-WAERS_DSE"
Linha 11
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCET312-WRBTR_DSE"
Linha 10
Coluna 46
MODIFICAR TEXTO "/PWS/ZYCET312-WRBTR_DSE"
Linha 10
Coluna 4
INCLUIR FRAME "FRM1"
Altura 19
Comprimento Visível 92
Linha 1
Coluna 2
Formato CHAR
Texto Embarque
INCLUIR FRAME "FRM2"
Altura 5
Comprimento Visível 92
Linha 21
Coluna 2
Formato CHAR
Texto Outros Dados
Os campos referentes à "/PWS/ZYCET312-RC_MANUAL" deverão estar dentro do frame "FRM2". Todos os
demais campos estarão dentro do frame "FRM1".
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE312 0102
MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0102
Largura atual (colunas) 93
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE312 0103
MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0103
Largura atual (colunas) 93
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE109F01
...
INTO TABLE itab_zycet239.
SELECT *
FROM /pws/zycet240
INTO TABLE itab_zycet240.
SELECT *
FROM /pws/zycet241
INTO TABLE itab_zycet241.
SELECT *
FROM /pws/zycet242
INTO TABLE itab_zycet242.
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
SELECT SINGLE *
FROM /pws/zycet312
INTO wa_zycet312.
* << Fim da inclusão
ENDFORM.
FORM unlock_record.
CALL FUNCTION 'DEQUEUE_/PWS/EZYCET235'
EXPORTING
nrseqrc = /pws/zycee235-nrseqrc.
ENDFORM.
FORM set_pf_status_0100.
CALL FUNCTION '/PWS/ZYGL_VERIFICA_BOTAO'
EXPORTING
grupp = 'DE'
...
...
ENDIF.
IF v_tab NE 'TAB_CRON' AND
v_tab NE 'TAB_INF'.
itab_status-fcode = 'SCTO'.
APPEND itab_status.
itab_status-fcode = 'SCPB'.
APPEND itab_status.
itab_status-fcode = 'SCPF'.
APPEND itab_status.
itab_status-fcode = 'SCBO'.
* >> Início da inclusão: FORM SET_PF_STATUS_0100
APPEND itab_status.
ENDIF.
IF wa_zycet312-rc_manual EQ '1'.
itab_status-fcode = 'TRANS'.
* << Fim da inclusão
APPEND itab_status.
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_status.
ENDFORM.
FORM find_nrseqrc.
DATA:
v_nrseq LIKE /pws/zycet235-nrseqrc,
v_count(6) TYPE n,
v_ano(5).
CONCATENATE '%' 'RC' sy-datum+2(2) INTO v_ano.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE109O01
...
ENDMODULE.
MODULE set_screen OUTPUT.
DATA: v_srepid LIKE sy-repid.
LOOP AT SCREEN.
IF screen-group1 EQ 'TAB'.
CONTINUE.
ENDIF.
IF screen-group1 EQ 'FEC' OR
screen-group1 EQ 'INV'.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
IF wa_zycet312-rc_manual EQ '1'.
IF screen-name EQ '/PWS/ZYCEE235-STATUS' OR
screen-name EQ '/PWS/ZYCEE235-DATA' OR
screen-name EQ '/PWS/ZYCEE235-DTVAL'.
screen-input = '1'.
ENDIF.
* << Fim da inclusão
ENDIF.
IF screen-group1 EQ 'ALT'.
screen-input = v_status.
IF screen-group2 EQ 'REQ'.
screen-required = v_status.
ENDIF.
IF screen-group2 EQ 'N01'.
IF /pws/zycee235-embarq1 NE 'N'.
screen-input = '0'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE109TOP
...
INCLUDE STRUCTURE /pws/zycet183.
DATA : END OF itab_zycet183_aux.
DATA : BEGIN OF itab_usuario OCCURS 1,
uname LIKE /pws/zycet184-uname,
cpf LIKE /pws/zycet184-cpf,
flagcpf LIKE /pws/zycet184-flag,
END OF itab_usuario.
DATA : BEGIN OF itab_zycet077 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet077.
DATA : END OF itab_zycet077.
* >> Início da inclusão:
DATA: wa_zycet312 TYPE /pws/zycet312.
* << Fim da inclusão
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF it_modo_pri OCCURS 10,
modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr,
END OF it_modo_pri.
DATA : it_modo_prin LIKE spopli OCCURS 3 WITH HEADER LINE.
CONSTANTS: v_transacao_c(14) VALUE '/PWS/ZYCE109_C',
v_transacao_a(14) VALUE '/PWS/ZYCE109_A',
v_transacao_e(14) VALUE '/PWS/ZYCE109_E',
v_parameter_1(13) VALUE '/PWS/ZYCEP018'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE312F01
...
waers_dse = /pws/zycet312-waers_dse
kurst_dse = /pws/zycet312-kurst_dse
transporte = /pws/zycet312-transporte
bot_espec = /pws/zycet312-bot_espec
part_lote = /pws/zycet312-part_lote
rateio_aut = /pws/zycet312-rateio_aut
username = /pws/zycet312-username
usernamec = /pws/zycet312-usernamec
dtuserc = /pws/zycet312-dtuserc
hruserc = /pws/zycet312-hruserc
* >> Início da exclusão: FORM SALVAR_REGISTROS
tpcalc = /pws/zycet312-tpcalc.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_REGISTROS
tpcalc = /pws/zycet312-tpcalc
rc_manual = /pws/zycet312-rc_manual.
* << Fim da inclusão
IF sy-subrc NE 0.
INSERT /pws/zycet312 FROM /pws/zycet312.
ENDIF.
DELETE FROM /pws/zycet316 CLIENT SPECIFIED WHERE mandt = sy-mandt.
MODIFY /pws/zycet316 FROM TABLE itab_zycet316.
DELETE FROM /pws/zycet317 CLIENT SPECIFIED WHERE mandt = sy-mandt.
MODIFY /pws/zycet317 FROM TABLE itab_zycet317.
COMMIT WORK.
IF sy-subrc EQ 0.
/pws/zycet312-username = v_name.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET312
Incluir campo (última entrada, após campo "TPCALC"):
Nome:
RC_MANUAL
Elemento de dados:
/PWS/ZYCEL718
Categoria de dados:
CHAR
Comprimento:
3