CE PLUS - Nota 006431
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 18/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:53:50
Descrição da Nota: CRIADO NOVOS CAMPOS NO SISCOMEX E DI PARA ATUALIZAÇÃO DE TRANSMISSÃO
Sintoma
Foram criados novos campos no siscomex para tratamento de Mercosul e é necessário que seja
atualizado nosso programa da DI
Solução
Criar tabelas e telas para tratamento de Mercosul.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06431 Data: 18/04/2008 Hora: 17:18:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06431
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00043
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00373 - 00001 - 6.0 - 00021 - DUMP NA ADIÇÃO DA DI
00427 - 00002 - 6.0 - 00022 - PROBLEMAS NA SELEÇÃO DE DOCUMENTOS DE CE REPORTS
00992 - 00003 - 6.0 - 00022 - DI ESTÁ DUPLICANDO O VALOR DO FRETE .
01716 - 00004 - 6.0 - 00024 - AJUSTES NO DETALHE DO ITEM / ADIÇÃO DA DI
01861 - 00005 - 6.0 - 00024 - NA DI, O CAMPO FUNDAMENTO LEGAL (CODFUNLEG),.
01883 - 00006 - 6.0 - 00024 - DESCRIÇÃO DO TEXTO INCORRETA NA DI E VALORES ERRADOS NA TRANSMISS
02592 - 00007 - 6.0 - 00025 - AO ALTERAR VALOR DA DI APÓS CRIAÇÃO DE NF DÁ DIFERENÇA
03146 - 00008 - 6.0 - 00026 - CRIAÇÃO DE TRATAMENTO PARA REG. TIB. NÃO INCIDENCIA
03633 - 00009 - 7.0 - 00001 - DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM
05409 - 00010 - 7.0 - 00003 - AO ALTERAR DI NÃO INCLUI TAXA SISCOMEX NA BASE DE ICMS
05621 - 00011 - 7.0 - 00004 - A DESCRIÇÃO DO PRIMEIRO ITEN DA ADIÇÃO É COPIADA PARA OS DEMAIS I
05819 - 00012 - 7.0 - 00004 - HABILITAR CAMPOS DECLARAÇÃO E DATA DE REGISTRO SENÃO HOUVER RECEB
06111 - 00013 - 7.0 - 00005 - O EXTRATO DA LI NÃO APARECE O NR DO MATERIAL E DESCRIÇÃO NO DETAL
06156 - 00014 - 7.0 - 00005 - AJUSTE PARA PREENCHER VALOR NA PASTA CAMBIO PARA 360 DIAS
----------------------------------------------------------------------------------------------------
CRIADO NOVOS CAMPOS NO SISCOMEX E DI PARA ATUALIZAÇÃO DE TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOVOS CAMPOS - SISCOMEX - DI - TRANSMISSÃO - MERCOSUL
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYGLD578
DTEL /PWS/ZYCIL860
DYNP /PWS/SAPMZYCI023 0130
DYNP /PWS/SAPMZYCI023 0134
DYNP /PWS/SAPMZYCI023 0300
DYNP /PWS/SAPMZYCI023 0320
DYNP /PWS/SAPMZYCI023 0324
DYNP /PWS/SAPMZYCI023 0340
DYNP /PWS/SAPMZYCI023 0354
DYNP /PWS/SAPMZYCI023 0410
DYNP /PWS/SAPMZYCI023 0413
FUNC /PWS/ZYCI_TRANSFER_DI
REPS /PWS/LZYCIGF5X01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
REPS /PWS/SAPMZYCI023
TABD /PWS/ZYCIE085
TABD /PWS/ZYCIE100A
TABD /PWS/ZYCIE100T
TABD /PWS/ZYCIT085
TABD /PWS/ZYCIT100
TABL /PWS/ZYCIE485
TABL /PWS/ZYCIE486
TABL /PWS/ZYCIT485
TABL /PWS/ZYCIT486
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD578
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYGLD578
Descrição breve incluída (18 caracteres), idioma: PT
"GL - Tipo Mercosul"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "1"
Texto incluído, idioma: PT (15 caracteres):
"Sem Certificado"
Incluído valor fixo "2"
Texto incluído, idioma: PT (5 caracteres):
"CCPTC"
Incluído valor fixo "3"
Texto incluído, idioma: PT (5 caracteres):
"CCROM"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL860
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL860
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (18 caracteres), idioma: PT
"GL - Tipo Mercosul"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD578
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (8 caracteres), idioma: PT
"Tp.Merc."
Comprimento máximo do denominador médio: 15
Denominador médio incluído (12 caracteres), idioma: PT
"Tp. Mercosul"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (13 caracteres), idioma: PT
"Tipo Mercosul"
Comprimento máximo do título: 13
Título incluído (13 caracteres), idioma: PT
"Tipo Mercosul"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0130
INCLUIR BOTÃO "CARGA4" em tbl.contr./tabstr.
Comprimento Visível 33
Linha 1
Coluna 4
Formato CHAR
Campo referência SS_4
Texto . 4 .
Código função FC_4
INCLUIR ÁREA DE SUB-TELA "SS_4" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 115
Linha 3
Coluna 3
Linhas mínimas 3
Colunas mínimas 3
MODIFICAR TABSTRIP "TS_CARGA"
Linhas mínimas 19
Colunas mínimas 117
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0130
PROCESS BEFORE OUTPUT.
* >> Início da inclusão:
module set_screen_padrao.
* << Fim da inclusão
call subscreen: ss_1 including syst-cprog '0131',
ss_2 including syst-cprog '0132',
* >> Início da exclusão:
ss_3 including syst-cprog '0133'.
* << Fim da exclusão
* >> Início da inclusão:
ss_3 including syst-cprog '0133',
ss_4 including syst-cprog '0134'.
* << Fim da inclusão
PROCESS AFTER INPUT.
call subscreen: ss_1,
ss_2,
* >> Início da exclusão:
ss_3.
* << Fim da exclusão
* >> Início da inclusão:
ss_3,
ss_4.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0134
INCLUIR SUB-TELA 0134
Descrição DI - Carga 4ªPasta
Tela seguinte 0134
Altura atual (linhas) 26
Largura atual (colunas) 64
INCLUIR FRAME "QD_CARGA4"
Altura 18
Comprimento Visível 60
Linha 1
Coluna 2
Formato CHAR
Texto Declaração de Exportação Estrangeira
INCLUIR CAMPO TEXTO "V_PROC"
Comprimento Visível 5
Linha 3
Coluna 11
Formato CHAR
Texto _____
INCLUIR CAMPO TEXTO "T_COD"
Comprimento Visível 9
Linha 3
Coluna 18
Formato CHAR
Texto _________
INCLUIR CAMPO TEXTO "T_DESC"
Comprimento Visível 25
Linha 3
Coluna 29
Formato CHAR
Texto _________________________
INCLUIR BOTÃO "BTN_MMAL"
Altura 2
Comprimento Visível 6
Linha 5
Coluna 11
Formato CHAR
Grupo 1 AC
Texto @4B@
Código função MMAL
INCLUIR BOTÃO "BTN_MDAL"
Altura 2
Comprimento Visível 6
Linha 5
Coluna 14
Formato CHAR
Grupo 1 AC
Texto @4D@
Código função MDAL
INCLUIR BOTÃO "BTN_MDEL"
Altura 2
Comprimento Visível 4
Linha 5
Coluna 17
Formato CHAR
Grupo 1 AC
Texto @18@
Código função MDEL
INCLUIR CONTROLE DE TABELA "TC_CAB_MERC"
Altura 12
Comprimento Visível 33
Linha 6
Coluna 11
INCLUIR TEXTO "T_CAB_NUM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 12
Linha 1
Coluna 1
Formato CHAR
Texto Número da DE
INCLUIR TEXTO "T_CAB_INI" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 2
Formato CHAR
Texto Início
INCLUIR TEXTO "T_CAB_FIM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto Fim
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ZYCIT486-MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "/PWS/ZYCIE486-DE_MERCOSUL" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE486-RE_INICIAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE486-RE_FINAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0134
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE: set_screen_padrao,
screen_lines.
LOOP AT itab_zycit486 WITH CONTROL tc_cab_merc.
MODULE carrega_estrutura.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_zycit486.
MODULE carrega_itab.
ENDLOOP.
MODULE user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0300
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0300
process before output.
module: load_adic,
status0300,
* >> Início da exclusão:
init_editor_adi_compl.
* << Fim da exclusão
* >> Início da inclusão:
init_editor_adi_compl,
set_screen_adicao.
* << Fim da inclusão
call subscreen: ss_forn including syst-cprog '0310',
ss_merc including syst-cprog '0320',
ss_valo including syst-cprog '0330',
ss_trib including syst-cprog '0340',
ss_camb including syst-cprog '0350'.
process after input.
call subscreen: ss_forn,
ss_merc,
ss_valo,
ss_trib,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0320
MODIFICAR ÁREA DE SUB-TELA "SS_MERC1" em tbl.contr./tabstr.
Coluna 4
MODIFICAR ÁREA DE SUB-TELA "SS_MERC2" em tbl.contr./tabstr.
Coluna 4
MODIFICAR ÁREA DE SUB-TELA "SS_MERC3" em tbl.contr./tabstr.
Coluna 4
INCLUIR ÁREA DE SUB-TELA "SS_MERC4" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 108
Linha 3
Coluna 4
Linhas mínimas 3
Colunas mínimas 3
INCLUIR BOTÃO "TAB_MERC4" em tbl.contr./tabstr.
Comprimento Visível 31
Linha 1
Coluna 4
Formato CHAR
Campo referência SS_MERC4
Texto . 4 .
Código função FC_M4
MODIFICAR TABSTRIP "TS_AMERC"
Coluna 3
Colunas mínimas 11
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0320
process before output.
call subscreen: ss_merc1 including syst-cprog '0321',
ss_merc2 including syst-cprog '0322',
* >> Início da exclusão:
ss_merc3 including syst-cprog '0323'.
* << Fim da exclusão
* >> Início da inclusão:
ss_merc3 including syst-cprog '0323',
ss_merc4 including syst-cprog '0324'.
* << Fim da inclusão
process after input.
call subscreen: ss_merc1,
ss_merc2,
* >> Início da exclusão:
ss_merc3.
* << Fim da exclusão
* >> Início da inclusão:
ss_merc3,
ss_merc4.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0324
INCLUIR SUB-TELA 0324
Descrição Adi - Merc 4ª Pasta
Tela seguinte 0324
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR FRAME "SS_QD_AD"
Altura 19
Comprimento Visível 91
Linha 1
Coluna 2
Formato CHAR
Texto Declaração de Exportação Estrangeira
INCLUIR CAMPO TEXTO "WA_IT-TP_CERTIF"
Altura 22
Comprimento Visível 1
Linha 3
Coluna 5
Formato CHAR
Texto _
Código função
INCLUIR CONTROLE DE TABELA "TC_MERC_AD"
Altura 12
Comprimento Visível 83
Linha 6
Coluna 4
Código função
INCLUIR TEXTO "T_NDE" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 9
Linha 1
Coluna 1
Formato CHAR
Texto Número DE
INCLUIR TEXTO "T_ADINI" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 6
Linha 1
Coluna 2
Formato CHAR
Texto Início
Código função
INCLUIR TEXTO "T_ADFIM" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto Fim
INCLUIR TEXTO "T_ADPAIS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 4
Linha 1
Coluna 4
Formato CHAR
Texto País
INCLUIR TEXTO "T_ADCERT" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 11
Linha 1
Coluna 5
Formato CHAR
Texto Certificado
INCLUIR TEXTO "T_ADITEM" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 4
Linha 1
Coluna 6
Formato CHAR
Texto Item
INCLUIR TEXTO "T_ADQT" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 15
Linha 1
Coluna 7
Formato CHAR
Texto Qtd.Estatística
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-DE_MERCOSUL" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-RE_INICIAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-RE_FINAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-PAIS_CERTIF" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-DI_CERTIF" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 5
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-ITEM_CERTIF" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 6
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-QTD_MERCOSUL" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 19
Linha 1
Coluna 7
Formato DEC
Linhas mínimas 15
Colunas mínimas 5
Texto _.___.___.___,_____
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0324
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
loop at itab_mercosul with control tc_merc_ad .
module carrega_estrutura.
endloop.
PROCESS AFTER INPUT.
loop at itab_mercosul.
endloop.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0340
INCLUIR ÁREA DE SUB-TELA "SS_TRIB7" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 54
Linha 3
Coluna 3
Linhas mínimas 3
Colunas mínimas 3
INCLUIR BOTÃO "TAB_MERCOSUL" em tbl.contr./tabstr.
Comprimento Visível 8
Linha 1
Coluna 6
Formato CHAR
Campo referência SS_TRIB7
Texto Mercosul
Código função FC_MER
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0340
process before output.
* >> Início da inclusão:
module set_screen_adicao.
* << Fim da inclusão
call subscreen: ss_trib1 including syst-cprog '0341',
ss_trib2 including syst-cprog '0342',
ss_trib4 including syst-cprog '0344',
ss_trib5 including syst-cprog '0345',
ss_trib6 including syst-cprog '0346'.
process after input.
call subscreen: ss_trib1,
ss_trib2,
ss_trib4,
ss_trib5,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0354
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE116-VALTOT"
Comprimento Visível 21
Texto __.___.___.___,_____V
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0354
process before output.
module: set_screen_padrao.
process after input.
* >> Início da inclusão:
CHAIN.
FIELD /pws/zycie116-valtot MODULE modi_tl354 ON CHAIN-REQUEST.
ENDCHAIN.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0410
MODIFICAR ÁREA DE SUB-TELA "SS_ITM1" em tbl.contr./tabstr.
Coluna 4
MODIFICAR ÁREA DE SUB-TELA "SS_ITM2" em tbl.contr./tabstr.
Coluna 4
INCLUIR ÁREA DE SUB-TELA "SS_ITM3" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 116
Linha 3
Coluna 4
Linhas mínimas 3
Colunas mínimas 3
INCLUIR BOTÃO "TAB_MERCO" em tbl.contr./tabstr.
Comprimento Visível 8
Linha 1
Coluna 3
Formato CHAR
Campo referência SS_ITM3
Texto Mercosul
Código função FC_ITM3
MODIFICAR TABSTRIP "TS_IMERC"
Coluna 3
Linhas mínimas 20
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0410
process before output.
* >> Início da inclusão:
module define_tab.
* << Fim da inclusão
call subscreen: ss_itm1 including syst-cprog '0411',
* >> Início da exclusão:
ss_itm2 including syst-cprog '0412'.
* << Fim da exclusão
* >> Início da inclusão:
ss_itm2 including syst-cprog '0412',
ss_itm3 including syst-cprog '0413'.
* << Fim da inclusão
process after input.
call subscreen: ss_itm1,
* >> Início da exclusão:
ss_itm2.
* << Fim da exclusão
* >> Início da inclusão:
ss_itm2,
ss_itm3.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0413
INCLUIR SUB-TELA 0413
Descrição DI - Itens - Merc.Mercosul
Tela seguinte 0413
Altura atual (linhas) 28
Largura atual (colunas) 137
INCLUIR FRAME "SS_QD_MERC"
Altura 18
Comprimento Visível 105
Linha 1
Coluna 2
Formato CHAR
Texto Declaração de Exportação Estrangeira
Código função FC_T2
INCLUIR CAMPO TEXTO "/PWS/ZYCIE100A-TP_CERTIF"
Altura 22
Comprimento Visível 1
Linha 3
Coluna 4
Formato CHAR
Grupo 1 TPC
Linhas mínimas 1
Texto _
Código função FC_T2
INCLUIR BOTÃO "BTN_MRMAL"
Altura 2
Comprimento Visível 6
Linha 5
Coluna 4
Formato CHAR
Grupo 1 AC
Texto @4B@
Código função MRMAL
INCLUIR BOTÃO "BTN_MRDAL"
Altura 2
Comprimento Visível 6
Linha 5
Coluna 7
Formato CHAR
Grupo 1 AC
Texto @4D@
Código função MRDAL
INCLUIR BOTÃO "BTN_MRDEL"
Altura 2
Comprimento Visível 7
Linha 5
Coluna 10
Formato CHAR
Grupo 1 AC
Texto @18@
Código função MRDEL
INCLUIR CONTROLE DE TABELA "TC_MERCOSUL"
Altura 12
Comprimento Visível 94
Linha 6
Coluna 3
INCLUIR TEXTO "T_NUMDE" em tbl.contr./tabstr.
Altura 21
Comprimento Visível 9
Linha 1
Coluna 1
Formato CHAR
Texto Número DE
INCLUIR TEXTO "T_INI" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 6
Linha 1
Coluna 2
Formato CHAR
Texto Início
INCLUIR TEXTO "T_FIM" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto Fim
INCLUIR TEXTO "T_PA" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 4
Formato CHAR
Texto País
INCLUIR TEXTO "T_CERT" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 11
Linha 1
Coluna 5
Formato CHAR
Texto Certificado
INCLUIR TEXTO "T_ITEM" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 4
Linha 1
Coluna 6
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE485-QTD_MERCOSUL" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 10
Linha 1
Coluna 7
Formato CHAR
Texto Quantidade
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_MERCOSUL-MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-DE_MERCOSUL" em tbl.contr./tabstr.
Altura 21
Comprimento Visível 16
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-RE_INICIAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-RE_FINAL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-PAIS_CERTIF" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-DI_CERTIF" em tbl.contr./tabstr.
Altura 24
Comprimento Visível 16
Linha 1
Coluna 5
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-ITEM_CERTIF" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 4
Linha 1
Coluna 6
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE485-QTD_MERCOSUL" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 19
Linha 1
Coluna 7
Formato DEC
Linhas mínimas 15
Colunas mínimas 5
Texto _.___.___.___,_____
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0413
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
module: screen_lines,
set_screen.
loop at itab_mercosul WITH CONTROL tc_mercosul.
module: carrega_estrutura,
set_screen_lines.
endloop.
PROCESS AFTER INPUT.
loop at itab_mercosul .
module carrega_itab.
endloop.
MODULE USER_COMMAND.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_READ_FILAD
...
DATA : v_branch LIKE t001w-j_1bbranch.
DATA : v_multiplas_filas TYPE /pws/zycet320-multiplas_filas,
v_cgc LIKE j_1bwfield-cgc_number.
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
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
AND stasis EQ i_stasis
AND cpf EQ cpf2. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
AND stasis EQ i_stasis.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM /pws/zycit285
INTO t_fila
WHERE tp_doc EQ i_tp_doc
AND stasis EQ i_stasis. "#EC CI_NOFIRST
ENDIF.
IF sy-subrc EQ 0.
APPEND t_fila.
ENDIF.
IF NOT t_fila[] IS INITIAL.
...
...
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
IF sy-subrc <> 1.
cgc_number = v_cgc.
ENDIF.
MODIFY t_fila INDEX 1.
ENDIF.
CLEAR v_branch.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
SELECT SINGLE uname cpf INTO (uname, cpf)
FROM /pws/zycet184
WHERE uname = t_fila-uname.
SELECT SINGLE usu_main INTO usu_main
FROM /pws/zycet184
WHERE uname = t_fila-uname.
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.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
DELETE /pws/zycit288.
READ TABLE t_fila INDEX 1.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING t_fila TO /pws/zycit288.
ENDIF.
MOVE: sy-datum TO /pws/zycit288-data,
sy-uzeit TO /pws/zycit288-hora.
INSERT /pws/zycit288.
* << Fim da exclusão
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RETURN_FILAD
...
v_lines LIKE sy-tabix ,
v_data LIKE sy-datum ,
v_datalog(10) TYPE c ,
usu_main LIKE /pws/zycit285-usu_main ,
uname LIKE sy-uname ,
cpf LIKE /pws/zycet184-cpf ,
bukrs LIKE /pws/zycit285-bukrs ,
werks LIKE /pws/zycit285-werks .
DATA: wa_zycit285 LIKE /pws/zycit285.
DATA: wa_zycit288 LIKE /pws/zycit288.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
DATA: itab_zycet184 LIKE /pws/zycet184 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
DATA : BEGIN OF itab_zycit285 OCCURS 10 ,
nrseqd LIKE /pws/zycit285-nrseqd ,
uname LIKE /pws/zycit285-uname ,
usu_main LIKE /pws/zycit285-usu_main ,
END OF itab_zycit285 .
IF i_stasis = text-013.
SELECT SINGLE uname
FROM /pws/zycit285
INTO (uname)
WHERE nrseqd = i_nrseqd
AND tp_doc = i_tp_doc.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
SELECT SINGLE cpf
FROM /pws/zycet184
INTO (cpf)
WHERE uname = uname.
SELECT a~nrseqd a~uname
FROM /pws/zycit285 AS a
INNER JOIN /pws/zycet184 AS b
ON a~uname = b~uname
INTO TABLE itab_zycit285
WHERE b~cpf = cpf AND
a~stasis = 'A'.
* << Fim da exclusão
DELETE ADJACENT DUPLICATES FROM itab_zycit285 COMPARING uname.
LOOP AT itab_zycit285.
UPDATE /pws/zycit285
SET stasis = 'P'
log = i_log
WHERE uname = itab_zycit285-uname AND
stasis = 'A'. "#EC CI_NOFIELD
COMMIT WORK.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet184
SET flag = 'X'
WHERE cpf = cpf.
* << Fim da exclusão
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet098
SET flag = 'X'
WHERE cpf = cpf.
* << Fim da exclusão
COMMIT WORK.
IF sy-subrc NE 0.
return = '4'.
EXIT.
...
...
ELSEIF i_stasis = text-016.
SELECT SINGLE usu_main
FROM /pws/zycit285
INTO usu_main
WHERE nrseqd = i_nrseqd.
UPDATE /pws/zycit285
SET stasis = 'PL'
log = i_log
WHERE usu_main = usu_main AND
stasis = 'A'. "#EC CI_NOFIELD
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet184
SET flag = 'X'
WHERE usu_main = usu_main.
* << Fim da exclusão
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet097 SET flag = 'X'
WHERE usu_main = usu_main.
* << Fim da exclusão
IF sy-subrc NE 0.
return = '4'.
EXIT.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
*Acrescentar nos parâmetros de tabelas:
nome Parâmetro Atrib.Tipo Tipo Referência
IT_MERC_CAB LIKE /PWS/ZYCIT486
IT_MERC_AD LIKE /PWS/ZYCIT485
...
it_adicao_di-baseipi = it_adicao_di-baseipi +
it_itens_di-baseipi.
it_adicao_di-vlfre = it_adicao_di-vlfre +
it_itens_di-vlfre.
it_adicao_di-vlseg = it_adicao_di-vlseg +
it_itens_di-vlseg.
it_adicao_di-basepis = it_adicao_di-basepis +
it_itens_di-basepis.
it_adicao_di-basecofi = it_adicao_di-basecofi +
it_itens_di-basecofins.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_adicao_di-tp_certif = it_itens_di-tp_certif.
* << Fim da inclusão
ENDLOOP.
READ TABLE it_det_itens_di WITH KEY
nrseq = it_itens_di-nrseq
ebeln = it_itens_di-ebeln
ebelp = it_itens_di-ebelp.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING it_det_itens_di TO it_adicao_di.
MOVE : it_det_itens_di-advalicms TO it_adicao_di-aliqicms.
CLEAR: it_adicao_di-qtd_iten,
it_adicao_di-ntgew,
...
...
it_adicao_di-codregtriipi = '0'.
ENDIF.
IF it_adicao_di-codregtriipi EQ '4'.
it_adicao_di-codregtriipi = '2'.
ENDIF.
IF it_adicao_di-codregtriipi EQ '3'.
it_adicao_di-codregtriipi = '4'.
ENDIF.
MODIFY it_adicao_di.
ENDLOOP.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SELECT * FROM /pws/zycit486 INTO TABLE
it_merc_cab WHERE nrseqdi EQ i_nrseqdi.
SELECT * FROM /pws/zycit485 INTO TABLE
it_merc_ad WHERE nrseqdi EQ i_nrseqdi.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'TDI001' BINARY SEARCH.
IF sy-subrc = 0
AND NOT itab_zyglt100-programa IS INITIAL
AND NOT itab_zyglt100-formulario IS INITIAL.
it_cabecalho_di2[] = it_cabecalho_di[].
it_itens_di2[] = it_itens_di[].
it_det_itens_di2[] = it_det_itens_di[].
it_inst_desp_di2[] = it_inst_desp_di[].
it_proc_vinc_di2[] = it_proc_vinc_di[].
it_volumes_di2[] = it_volumes_di[].
...
...
it_t005_di2[] = it_t005_di[].
it_urf_desp_di2[] = it_urf_desp_di[].
it_resumoit_di2[] = it_resumoit_di[].
it_bl_di2[] = it_bl_di[].
it_faturas_di2[] = it_faturas_di[].
it_ag_faturas2[] = it_ag_faturas[].
it_compl_di2[] = it_compl_di[].
it_destncm2[] = it_destncm[].
it_forn2[] = it_forn[].
it_destaque2[] = it_destaque[].
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_merc_cab2[] = it_merc_cab[] .
it_merc_ad2[] = it_merc_ad[] .
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
IF e_subrc EQ 0 .
it_cabecalho_di[] = it_cabecalho_di2[] .
it_itens_di[] = it_itens_di2[] .
it_det_itens_di[] = it_det_itens_di2[] .
it_inst_desp_di[] = it_inst_desp_di2[] .
it_proc_vinc_di[] = it_proc_vinc_di2[] .
it_volumes_di[] = it_volumes_di2[] .
...
...
it_t005_di[] = it_t005_di2[] .
it_urf_desp_di[] = it_urf_desp_di2[] .
it_resumoit_di[] = it_resumoit_di2[] .
it_bl_di[] = it_bl_di2[] .
it_faturas_di[] = it_faturas_di2[] .
it_ag_faturas[] = it_ag_faturas2[] .
it_compl_di[] = it_compl_di2[] .
it_destncm[] = it_destncm2[] .
it_forn[] = it_forn2[] .
it_destaque[] = it_destaque2[] .
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_merc_cab[] = it_merc_cab2[] .
it_merc_ad[] = it_merc_ad2[] .
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF5X01
...
* >> Início da inclusão:
data: it_destaque2 TYPE /pws/zycie114 OCCURS 0 ,
it_merc_cab2 type /pws/zycie486 occurs 0 ,
it_merc_ad2 type /pws/zycie485 occurs 0 .
* << Fim da inclusão
DATA END OF COMMON PART k.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit115 FROM TABLE itab_zycit115.
DELETE FROM /pws/zycit116 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit116 FROM TABLE itab_zycit116.
DELETE FROM /pws/zycit118 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit118 FROM TABLE itab_zycit118.
DELETE FROM /pws/zycit121 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit121 FROM TABLE itab_zycit121.
DELETE FROM /pws/zycit124 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit124 FROM TABLE itab_zycit124.
* >> Início da inclusão: FORM SAVE_DATA
DELETE FROM /pws/zycit485 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit485 FROM TABLE itab_zycit485.
DELETE FROM /pws/zycit486 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit486 FROM TABLE itab_zycit486.
* << Fim da inclusão
REFRESH: itab_zycit049di2, itab_zycit049di.
LOOP AT itab_zycit049.
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di2.
APPEND itab_zycit049di2.
ENDLOOP.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit049 FROM TABLE itab_zycit049di2.
ENDIF.
DELETE FROM /pws/zycit200 WHERE id = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit200 FROM TABLE itab_zycit200.
...
...
itab_zycit095a,
itab_zycit096a,
itab_zycit100a,
itab_zycit003a,
itab_zycit114a,
itab_zycit115a,
itab_zycit116a,
itab_zycit118a,
itab_zycit121a,
itab_zycit124a,
* >> Início da exclusão: FORM SAVE_DATA
itab_zycit200a.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
itab_zycit200a,
itab_zycit485a,
itab_zycit486a.
* << Fim da inclusão
REFRESH: itab_zycit086a,
itab_zycit087a,
itab_zycit095a,
itab_zycit096a,
itab_zycit100a,
itab_zycit003a,
itab_zycit114a,
itab_zycit115a,
itab_zycit116a,
itab_zycit118a,
itab_zycit121a,
itab_zycit124a,
* >> Início da exclusão: FORM SAVE_DATA
itab_zycit200a.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
itab_zycit200a,
itab_zycit485a,
itab_zycit486a.
* << Fim da inclusão
MOVE: itab_zycit086[] TO itab_zycit086a[],
itab_zycit087[] TO itab_zycit087a[],
itab_zycit095[] TO itab_zycit095a[],
itab_zycit096[] TO itab_zycit096a[],
itab_zycit100[] TO itab_zycit100a[],
itab_zycit003[] TO itab_zycit003a[],
itab_zycit114[] TO itab_zycit114a[],
itab_zycit115[] TO itab_zycit115a[],
itab_zycit116[] TO itab_zycit116a[],
itab_zycit118[] TO itab_zycit118a[],
itab_zycit121[] TO itab_zycit121a[],
itab_zycit124[] TO itab_zycit124a[],
itab_zycit200[] TO itab_zycit200a[],
itab_zycit049di2[] TO itab_zycit049di[],
itab_it[] TO itab_ita[],
* >> Início da exclusão: FORM SAVE_DATA
/pws/zycie085 TO wa_zycit085.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
/pws/zycie085 TO wa_zycit085,
itab_zycit485[] TO itab_zycit485a[],
itab_zycit486[] TO itab_zycit486a[].
* << Fim da inclusão
PERFORM save_especificacao.
...
...
itab_zycit095[] NE itab_zycit095a[] OR
itab_zycit096[] NE itab_zycit096a[] OR
itab_zycit114[] NE itab_zycit114a[] OR
itab_zycit115[] NE itab_zycit115a[] OR
itab_zycit116[] NE itab_zycit116a[] OR
itab_zycit118[] NE itab_zycit118a[] OR
itab_zycit121[] NE itab_zycit121a[] OR
itab_zycit124[] NE itab_zycit124a[] OR
itab_zycit200[] NE itab_zycit200a[] OR
itab_zycit100[] NE itab_zycit100a[] OR
* >> Início da exclusão: FORM VERIFY_CHANGES
itab_zycit003[] NE itab_zycit003a[].
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
itab_zycit003[] NE itab_zycit003a[] OR
itab_zycit485[] NE itab_zycit485a[] OR
itab_zycit486[] NE itab_zycit486a[] .
* << Fim da inclusão
IF sy-tcode NE '/PWS/ZYCI023_E'.
v_changed = '1'.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FORM VERIFY_CHANGES
IF /pws/zycie085 NE wa_zycit085 OR itab_zycit049di[] NE
itab_zycit049di2[]
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
IF /pws/zycie085 NE wa_zycit085
OR itab_zycit049di[] NE itab_zycit049di2[]
* << Fim da inclusão
OR itab_zycit095[] NE itab_zycit095a[]
OR itab_zycit100[] NE itab_zycit100a[]
OR itab_zycit003[] NE itab_zycit003a[]
* >> Início da exclusão: FORM VERIFY_CHANGES
OR itab_zycit200[] NE itab_zycit200a[].
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
OR itab_zycit200[] NE itab_zycit200a[]
OR itab_zycit485[] NE itab_zycit485a[]
OR itab_zycit486[] NE itab_zycit486a[].
* << Fim da inclusão
IF sy-tcode NE '/PWS/ZYCI023_E'.
v_changed = '1'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit087 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit096 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit114 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit116 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit118 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit121 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit124 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
* >> Início da inclusão: FORM DATA_DELE
DELETE FROM /pws/zycit485 WHERE nrseqdi = /pws/zycie085-nrseqdi.
* << Fim da inclusão
PERFORM delete_text.
ENDIF.
COMMIT WORK.
LEAVE PROGRAM.
ENDFORM.
...
...
MODIFY itab_it INDEX v_ip.
ENDIF.
DELETE itab_zycit115 WHERE
nrseq = wa_it-nrseq AND
ebeln = wa_it-ebeln AND
ebelp = wa_it-ebelp.
LOOP AT itab_zycit115b.
MOVE itab_zycit115b TO itab_zycit115.
APPEND itab_zycit115.
ENDLOOP.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
DELETE itab_zycit485 WHERE
ebeln = wa_it-ebeln AND
ebelp = wa_it-ebelp.
LOOP AT itab_mercosul.
MOVE itab_mercosul TO itab_zycit485.
APPEND itab_zycit485.
ENDLOOP.
* << Fim da inclusão
READ TABLE rtexti INDEX 1.
MOVE itab_it-especificacao TO rtexti-tdline.
MODIFY rtexti INDEX 1.
CONCATENATE /pws/zycie085-nrseqdi
itab_it-nrseq
itab_it-ebeln
itab_it-ebelp
INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
...
...
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit049[] TO itab_zycit049a[],
itab_zycit086[] TO itab_zycit086a[],
itab_zycit087[] TO itab_zycit087a[],
itab_zycit096[] TO itab_zycit096a[],
itab_zycit114[] TO itab_zycit114a[],
itab_zycit115[] TO itab_zycit115a[],
itab_zycit116[] TO itab_zycit116a[],
itab_zycit118[] TO itab_zycit118a[],
itab_zycit121[] TO itab_zycit121a[],
* >> Início da exclusão: FORM LOADING_ALL
itab_zycit124[] TO itab_zycit124a[].
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
itab_zycit124[] TO itab_zycit124a[],
itab_zycit485[] TO itab_zycit485a[],
itab_zycit486[] TO itab_zycit486a[].
SELECT * FROM /pws/zycit485 INTO TABLE itab_zycit485
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit485[] TO itab_zycit485a[].
SELECT * FROM /pws/zycit486 INTO TABLE itab_zycit486
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit486[] TO itab_zycit486a[].
* << Fim da inclusão
SELECT * FROM /pws/zycit200 INTO TABLE itab_zycit200
WHERE id = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit095 INTO TABLE itab_zycit095
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit095[] TO itab_zycit095a[],
itab_zycit200[] TO itab_zycit200a[].
CLEAR: v_calci.
IF NOT /pws/zycie085-nrbl IS INITIAL.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycie093
WHERE nrseqce = /pws/zycie085-nrbl.
...
...
itab_it_aux-ad_numero NE itab_itb-ad_numero OR
itab_it_aux-ad_anoemiss NE itab_itb-ad_anoemiss OR
itab_it_aux-aladi NE itab_itb-aladi OR
itab_it_aux-tribipi NE itab_itb-tribipi OR
itab_it_aux-advalicms NE itab_itb-advalicms OR
itab_it_aux-vlantid NE itab_itb-vlantid OR
itab_it_aux-meinsantid NE itab_itb-meinsantid OR
itab_it_aux-qtdeantid NE itab_itb-qtdeantid OR
itab_it_aux-codcambial NE itab_itb-codcambial OR
itab_it_aux-inco_item NE itab_itb-inco_item OR
* >> Início da exclusão: FORM ADIC_LIST
itab_it_aux-paisfab NE itab_itb-paisfab.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
itab_it_aux-paisfab NE itab_itb-paisfab OR
itab_it_aux-tp_certif NE itab_itb-tp_certif .
* << Fim da inclusão
PERFORM adic_next.
ELSE.
IF itab_zycit001-flag_adicao EQ 'X'.
PERFORM adic_next.
ENDIF.
ENDIF.
IF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ENDIF.
itab_it-adicao = itab_it_aux-adicao = v_adic.
...
...
FORM adic_load.
CLEAR: itab_itb, itab_zycit114b, itab_zycit115b,
itab_zycit118b, itab_zycit121b, itab_zycit121c,
itab_zycit124b, itab_zycit049b, itab_zycit049c,
itab_zycit195, itab_zycit200b,
a_vlrtot, a_qtdeest, a_uqtde,
* >> Início da exclusão: FORM ADIC_LOAD
a_vmler, a_adbase, rtextx,
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
a_vmler, a_adbase, rtextx, itab_mercosul,
* << Fim da inclusão
a_vladu ,
v_ttad_plan, v_itad_plan,
v_qtd_pis, v_qtd_cof.
REFRESH: itab_itb, itab_zycit114b, itab_zycit115b,
itab_zycit118b, itab_zycit121b, itab_zycit121c,
itab_zycit124b, itab_zycit049b, itab_zycit049c,
* >> Início da exclusão: FORM ADIC_LOAD
itab_zycit195, itab_zycit200b,
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
itab_zycit195, itab_zycit200b, itab_mercosul,
* << Fim da inclusão
rtextx.
LOOP AT itab_it WHERE adicao = wa_it-adicao.
CASE s_inco1_ci.
WHEN 'C&F'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_iten ) + itab_it-vldiffob +
itab_it-vlfre_me ) / itab_it-qtd_iten ) -
( itab_it-frn / itab_it-qtd_iten ) .
WHEN 'CIF'.
itab_it-vlreal_aux2 =
...
...
ebeln = itab_itb-ebeln AND
ebelp = itab_itb-ebelp.
APPEND itab_zycit115 TO itab_zycit115b.
ENDLOOP.
PERFORM text_adic_fill.
IF NOT itab_itb-qtd_itend IS INITIAL.
v_qtd_pis = v_qtd_cof = v_qtd_pis + itab_itb-qtd_itend .
ELSE.
v_qtd_pis = v_qtd_cof = v_qtd_pis + itab_itb-qtd_iten .
ENDIF.
* >> Início da inclusão: FORM ADIC_LOAD
LOOP AT itab_zycit485 WHERE ebeln = itab_itb-ebeln AND
ebelp = itab_itb-ebelp.
APPEND itab_zycit485 TO itab_mercosul.
ENDLOOP.
* << Fim da inclusão
ENDLOOP.
READ TABLE rtextx INDEX 1.
a_espe2 = rtextx-tdline.
LOOP AT itab_zycit114 WHERE adicao = wa_it-adicao.
APPEND itab_zycit114 TO itab_zycit114b.
ENDLOOP.
LOOP AT itab_zycit118 WHERE adicao = wa_it-adicao.
APPEND itab_zycit118 TO itab_zycit118b.
ENDLOOP.
IF itab_zycit118b[] IS INITIAL.
...
...
APPEND ittxt.
ENDLOOP.
CALL METHOD editor->set_text_as_r3table EXPORTING
table = ittxt[].
ENDIF.
REFRESH: it_adir.
LOOP AT it_alist WHERE adicao NE wa_it-adicao.
MOVE it_alist TO it_adir.
APPEND it_adir.
ENDLOOP.
* >> Início da inclusão: FORM ADIC_LOAD
LOOP AT itab_zycit485 WHERE adicao EQ wa_it-adicao.
MOVE itab_zycit485 TO itab_zycit485ad.
APPEND itab_zycit485ad.
ENDLOOP.
* << Fim da inclusão
IF sy-dynnr EQ '0050' AND sy-ucomm EQ 'ENTE'.
CLEAR: sy-ucomm.
CALL SCREEN '0300'.
ENDIF.
ENDIF.
ENDFORM.
...
...
t_ivfre, t_ivmle, t_ivseg, a_itfre, a_itseg,
a_iicalc, a_iiredu, a_iidevi, a_baseii,
a_ipicalc, a_ipiredu, a_ipidevi,
a_iitcalc, a_iitredu, a_iitdevi, a_iitreco,
a_ipitdevi, a_ipitreco, v_tot_seg, v_tseg,
a_pistcalc, a_pistredu, a_pistdevi, a_pistreco,
a_coftcalc, a_coftredu, a_coftdevi, a_coftreco,
v_tfre, v_tot_fre, v_tfrefat,
a_addevi, a_adreco, a_icdevi, a_icreco,
/pws/zycie116-baseii, v_tot_plan,
* >> Início da exclusão: FORM CALC_ITAB_ADIC
a_basepc.
.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB_ADIC
a_basepc,
a_qtd_mercosul .
* << Fim da inclusão
LOOP AT itab_it.
IF NOT itab_it-qtd_itend IS INITIAL.
v_tntgew = v_tntgew + itab_it-ntgewd.
ELSE.
v_tntgew = v_tntgew + itab_it-ntgew.
ENDIF.
ENDLOOP.
LOOP AT itab_itb.
v_idx = itab_itb-seq.
MOVE itab_itb TO wa_it.
...
...
WHERE nrseqdi = v_nrseq_ant.
itab_zycit124-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit124 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
ENDIF.
itab_it-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_it TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit100-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit100 TRANSPORTING nrseqdi
* >> Início da inclusão: FORM FILL_NRSEQ
WHERE nrseqdi = v_nrseq_ant.
itab_zycit485-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit485 TRANSPORTING nrseqdi
* << Fim da inclusão
WHERE nrseqdi = v_nrseq_ant.
* >> Início da inclusão: FORM FILL_NRSEQ
itab_zycit486-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit486 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
ENDIF.
ENDIF.
MOVE itab_it TO wa_it.
MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,
itab_it TO /pws/zycie003.
v_idx = v_ip.
v_tipop = 'T' .
PERFORM: load_ifre USING v_tipop,
load_itax USING v_tipop.
PERFORM calcula_impostos USING v_tipop .
* >> Início da exclusão: FORM LOAD_DATA_BLITEM
IF v_dit = 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA_BLITEM
CLEAR: itab_mercosul[].
REFRESH: itab_mercosul[].
LOOP AT itab_zycit485 WHERE
ebeln = wa_it-ebeln AND
ebelp = wa_it-ebelp.
MOVE itab_zycit485 TO itab_mercosul.
APPEND itab_mercosul.
ENDLOOP.
* << Fim da inclusão
PERFORM fill_it115b.
CLEAR: itab_zycit116, /pws/zycie085-ntimp.
READ TABLE itab_zycit116 WITH KEY
adicao = itab_it-adicao.
s_advl = /pws/zycie100a-vlantid.
s_adbs = /pws/zycie100a-baseantid.
PERFORM: load_cncm USING wa_it-j_1bnbm,
load_mval USING /pws/zycie100a-codmat,
load_inco,
load_itwa USING /pws/zycie100a-waersbem,
...
...
load_fund USING /pws/zycie100a-codfunleg,
load_regt USING /pws/zycie100a-codregtriicms
/pws/zycie085-ntimp
'4' CHANGING t_regde3,
load_fun_icms ,
load_alad USING /pws/zycie100a-aladi,
load_unit USING /pws/zycie003-meins CHANGING s_umped,
load_um USING /pws/zycie003-meinsest CHANGING
s_umestt,
load_umad.
* >> Início da exclusão: FORM LOAD_DATA_BLITEM
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA_BLITEM
PERFORM load_admerc.
* << Fim da inclusão
CLEAR: rtexti, xtheadi.
REFRESH: rtexti.
CONCATENATE /pws/zycie085-nrseqdi
itab_it-nrseq
itab_it-ebeln
itab_it-ebelp
INTO v_txtki.
IF sy-dynnr EQ '0400'.
PERFORM fill_desc.
PERFORM read_text_blitem CHANGING /pws/zycie100a-especificacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
MOVE itab_it[] TO itab_ita[].
DESCRIBE TABLE itab_zycit116 LINES v_line.
PERFORM: fill_taxasiscomex USING v_line.
* >> Início da inclusão: FORM LOAD_INIT
v_proc = /pws/zycie085-land.
t_cod = s_ppais.
t_desc = s_pdesc.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
DATA: v_mat(18) TYPE c.
* << Fim da inclusão
IF /pws/zycie085-dtuserc IS INITIAL AND
sy-tcode EQ '/PWS/ZYCI023_C' .
/pws/zycie085-dtuserc = sy-datum .
ENDIF.
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
...
...
* >> Início da inclusão: FORM LOAD_IICMS
READ TABLE itab_zycit485 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
itab_zycit485-adicao = itab_it-adicao .
MODIFY itab_zycit485 TRANSPORTING adicao
where ebeln = itab_it-ebeln
and ebelp = itab_it-ebelp.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
ELSEIF sy-dynnr = '0434'.
IF /pws/zycie100a-antidrate IS INITIAL AND
screen-name = 'S_ADBS'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0110
IF sy-tcode = '/PWS/ZYCI023_E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
IF ( screen-name EQ '/PWS/ZYCIE085-DTREG' OR
screen-name EQ '/PWS/ZYCIE085-NRDI' ).
IF NOT itab_zycit041-dt_mr1m IS INITIAL.
screen-input = 0.
ELSE.
screen-input = 1.
* >> Início da inclusão: FORM SET_SCREEN_0110
ENDIF.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0110
IF sy-tcode = '/PWS/ZYCI023_E'.
screen-input = 0.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
...
...
* >> Início da inclusão:
FORM define_tab.
IF screen-name EQ 'TAB_MERCO'.
READ TABLE itab_zycit107 WITH KEY
land1 = itab_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ELSE.
LOOP AT tc_mercosul-cols INTO v_cols.
IF v_acto EQ 'E'.
v_cols-screen-input = 0.
ELSE.
IF /pws/zycie100a-tp_certif EQ '2' OR
/pws/zycie100a-tp_certif EQ '3' .
v_cols-screen-input = 1.
ELSE.
DELETE itab_zycit485 WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
v_cols-screen-input = 0.
ENDIF.
ENDIF.
MODIFY tc_mercosul-cols FROM v_cols.
ENDLOOP.
ENDIF.
ENDFORM. " define_tab
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
* >> Início da inclusão:
FORM load_mercosul.
IF itab_zycit107[] IS INITIAL.
IF NOT itab_it[] IS INITIAL.
SELECT ebeln bsart lifnr FROM ekko
INTO TABLE itab_ekko_aux[]
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln.
IF sy-subrc EQ 0.
SELECT lifnr land1 ktokk FROM lfa1
INTO TABLE itab_lfa1_aux
FOR ALL ENTRIES IN itab_ekko_aux[]
WHERE lifnr = itab_ekko_aux-lifnr.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit107
INTO TABLE itab_zycit107
FOR ALL ENTRIES IN itab_lfa1_aux
WHERE land1 = itab_lfa1_aux-land1
AND mercosul = 'X'.
IF sy-subrc = 0.
v_mercosul = 'X'.
ELSE.
CLEAR v_mercosul.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM set_screen_0430.
LOOP AT SCREEN.
IF screen-name EQ 'TAB_MERCOSUL'.
READ TABLE itab_zycit107 WITH KEY
land1 = itab_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_adicao.
LOOP AT SCREEN.
IF screen-name EQ 'TAB_MERCOSUL'.
READ TABLE itab_zycit107 WITH KEY
land1 = wa_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM load_admerc.
LOOP AT itab_zycit485 WHERE
ebeln = wa_it-ebeln AND
ebelp = wa_it-ebelp.
MOVE itab_zycit485 TO itab_zycit485ad.
APPEND itab_zycit485ad.
ENDLOOP.
ENDFORM.
FORM user_command_0134.
CASE okcode.
WHEN 'MMAL'.
LOOP AT itab_zycit486 .
itab_zycit486-mark = 'X'.
MODIFY itab_zycit486.
ENDLOOP.
WHEN 'MDAL'.
LOOP AT itab_zycit486 .
itab_zycit486-mark = ' '.
MODIFY itab_zycit486.
ENDLOOP.
WHEN 'MDEL'.
DELETE itab_zycit486 WHERE mark = 'X'.
WHEN 'P+'.
tc_cab_merc-top_line = tc_cab_merc-top_line - 10.
WHEN 'P-'.
tc_cab_merc-top_line = tc_cab_merc-top_line + 10.
ENDCASE.
ENDFORM.
FORM user_command_0413.
CASE sy-ucomm.
WHEN 'MRMAL'.
LOOP AT itab_mercosul.
itab_mercosul-mark = 'X'.
MODIFY itab_mercosul.
ENDLOOP.
WHEN 'MRDAL'.
LOOP AT itab_mercosul .
itab_mercosul-mark = ' '.
MODIFY itab_mercosul.
ENDLOOP.
WHEN 'MRDEL'.
DELETE itab_mercosul WHERE mark = 'X'.
WHEN 'P+'.
tc_mercosul-top_line = tc_mercosul-top_line - 10.
WHEN 'P-'.
tc_mercosul-top_line = tc_mercosul-top_line + 10.
ENDCASE.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
IF sy-binpt IS INITIAL.
CALL METHOD editcontainer2->free.
ENDIF.
PERFORM unlock_record.
CLEAR: s_cnpj, v_changed,s_regdescr,s_urf.
CLEAR: itab_zycit095, itab_zycit095a,
itab_zycit086, itab_zycit086a, itab_zycit087,
itab_zycit087a, itab_zycit096, itab_zycit096a,
itab_it, itab_ita, itab_zycit003,
itab_zycit013, itab_zycit100, wa_it, wa_ad, wa_lfa1,
* >> Início da exclusão: MODULE USER_COMMAND_0050
/pws/zycie100a, it_adi, it_alist.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
/pws/zycie100a, it_adi, it_alist,
itab_zycit485, itab_zycit485a.
* << Fim da inclusão
REFRESH:itab_zycit086, itab_zycit086a, itab_zycit087,
itab_zycit087a,itab_zycit096, itab_zycit096a,
itab_it, itab_ita, itab_zycit003,
itab_zycit013, itab_zycit100, it_adi,
* >> Início da exclusão: MODULE USER_COMMAND_0050
it_alist.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
it_alist, itab_zycit485, itab_zycit485a.
* << Fim da inclusão
IF v_comm = 'LEAV'.
LEAVE PROGRAM.
ELSE.
IF sy-tcode NE '/PWS/ZYCI023_C' AND
sy-tcode NE '/PWS/ZYCI023_I' AND
v_nrseqdi IS INITIAL.
LEAVE TO SCREEN '0010'.
ELSE.
LEAVE PROGRAM.
ENDIF.
...
...
* >> Início da inclusão: MODULE USER_COMMAND
MODULE user_command INPUT.
IF sy-dynnr EQ '0160'.
PERFORM user_command_0160.
ELSEIF sy-dynnr EQ '0134'.
PERFORM user_command_0134.
ELSEIF sy-dynnr EQ '0413'.
PERFORM user_command_0413.
ENDIF.
ENDMODULE.
* << Fim da inclusão
...
...
* >> Início da inclusão:
MODULE modi_tl354 INPUT.
v_valtot_alt = /pws/zycie116-valtot.
ENDMODULE.
MODULE carrega_itab INPUT.
IF sy-dynnr EQ '0134'.
itab_zycit486-mandt = sy-mandt.
itab_zycit486-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit486-de_mercosul = /pws/zycie486-de_mercosul .
itab_zycit486-re_inicial = /pws/zycie486-re_inicial .
itab_zycit486-re_final = /pws/zycie486-re_final .
IF NOT itab_zycit486-de_mercosul IS INITIAL.
MODIFY itab_zycit486 INDEX tc_cab_merc-current_line.
IF sy-subrc NE 0.
APPEND itab_zycit486.
ENDIF.
ENDIF.
ELSEIF sy-dynnr EQ '0413' .
itab_mercosul-mandt = sy-mandt.
itab_mercosul-nrseqdi = itab_it-nrseqdi.
itab_mercosul-ebeln = itab_it-ebeln .
itab_mercosul-ebelp = itab_it-ebelp .
itab_mercosul-adicao = itab_it-adicao.
itab_mercosul-de_mercosul = /pws/zycie485-de_mercosul.
itab_mercosul-re_inicial = /pws/zycie485-re_inicial .
itab_mercosul-re_final = /pws/zycie485-re_final .
itab_mercosul-di_certif = /pws/zycie485-di_certif .
itab_mercosul-item_certif = /pws/zycie485-item_certif.
itab_mercosul-qtd_mercosul = /pws/zycie485-qtd_mercosul.
itab_mercosul-pais_certif = /pws/zycie485-pais_certif .
IF NOT itab_mercosul IS INITIAL.
MODIFY itab_mercosul INDEX tc_mercosul-current_line.
IF sy-subrc NE 0.
APPEND itab_mercosul.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
* >> Início da inclusão: MODULE LOAD_DATA
PERFORM load_mercosul.
* << Fim da inclusão
ENDMODULE.
...
...
DESCRIBE TABLE itab_zycit095 LINES v_line.
tc_pag-lines = v_line + 6.
WHEN '0142'.
DESCRIBE TABLE itab_zycit095 LINES v_line.
tc_pg2-lines = v_line + 6.
WHEN '0131'.
DESCRIBE TABLE itab_zycit014 LINES v_line.
tc_vol-lines = v_line + 5.
DESCRIBE TABLE itab_zycit096 LINES v_line.
tc_arm-lines = v_line + 5.
* >> Início da inclusão: MODULE SCREEN_LINES
WHEN '0134' .
DESCRIBE TABLE itab_zycit486 LINES v_line.
tc_cab_merc-lines = v_line + 11.
* << Fim da inclusão
WHEN '0150'.
DESCRIBE TABLE itab_it LINES v_line.
tc_item-lines = v_line.
SORT itab_it BY nrseq ebeln ebelp.
WHEN '0160'.
DESCRIBE TABLE itab_zycit049 LINES v_line.
tc_desp-lines = v_line.
WHEN '0170'.
DESCRIBE TABLE it_alist LINES v_line.
tc_adic-lines = v_line.
...
...
tc_apgv-lines = v_line + 6.
WHEN '0353'.
DESCRIBE TABLE itab_zycit124b LINES v_line.
tc_apar-lines = v_line + 3.
WHEN '0360'.
DESCRIBE TABLE it_adir LINES v_line.
tc_arep-lines = v_line.
WHEN '0412'.
DESCRIBE TABLE itab_zycit115b LINES v_line.
tc_idoc-lines = v_line + 5.
* >> Início da inclusão: MODULE SCREEN_LINES
WHEN '0413'.
DESCRIBE TABLE itab_mercosul LINES v_line.
tc_mercosul-lines = v_line + 10.
* << Fim da inclusão
WHEN '0440'.
DESCRIBE TABLE itab_itc LINES v_line.
tc_irep-lines = v_line.
ENDCASE.
ENDMODULE.
...
...
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '0413'.
PERFORM define_tab.
IF v_acto EQ 'E'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDCASE.
CLEAR v_existe_li.
ENDMODULE.
...
...
MODULE set_screen_lines OUTPUT.
* >> Início da inclusão: MODULE SET_SCREEN_LINES
IF sy-dynnr EQ '0413'.
LOOP AT tc_mercosul-cols INTO v_cols.
IF v_acto EQ 'E'.
v_cols-screen-input = 0.
ELSE.
IF /pws/zycie100a-tp_certif EQ '2' OR
/pws/zycie100a-tp_certif EQ '3' .
v_cols-screen-input = 1.
ELSE.
DELETE itab_zycit485 WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
v_cols-screen-input = 0.
ENDIF.
ENDIF.
MODIFY tc_mercosul-cols FROM v_cols.
ENDLOOP.
ELSE.
* << Fim da inclusão
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF v_nf041 EQ 'S'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN_LINES
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
...
MODULE set_screen_padrao OUTPUT.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-name = 'T_VLII' OR
screen-name = 'T_VLIPI' OR
screen-name = 'T_TOT' OR
screen-name = 'T_VLICMS' AND
/pws/zycie093-meiotransp NE 'PS'.
screen-input = 0.
ENDIF.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF screen-name EQ '/PWS/ZYCIE003-ADVALICMS'.
/pws/zycie003-advalicms = itab_it-advalicms.
screen-input = '1'.
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
CASE sy-dynnr.
WHEN '0132'.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0132' .
* << Fim da exclusão
IF /pws/zycie093-meiotransp EQ 'PS'.
IF screen-name = '/PWS/ZYCIE085-DTTAX' OR
screen-name = '/PWS/ZYCIE085-VLFRE' OR
screen-name = '/PWS/ZYCIE085-WAERSSEG' OR
screen-name = '/PWS/ZYCIE085-VLSEG'.
screen-input = 1.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF screen-name = '/PWS/ZYCIE085-DTTAX'.
IF v_nf041 EQ 'S'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF NOT /pws/zycie085-belnr_0 IS INITIAL OR
NOT /pws/zycie085-belnr_1 IS INITIAL OR
NOT /pws/zycie085-belnr_2 IS INITIAL OR
NOT /pws/zycie085-belnr_3 IS INITIAL OR
NOT /pws/zycie085-belnr_0_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_1_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_2_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_3_f05 IS INITIAL .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0133' AND /pws/zycie093-meiotransp EQ 'PS'.
CLEAR: s_wicreco, s_wsisco.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
WHEN '0133'.
IF /pws/zycie093-meiotransp EQ 'PS'.
CLEAR: s_wicreco, s_wsisco.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0141'.
IF itab_zycit001-meioemba EQ 'PS'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
IF itab_zycit001-meioemba EQ 'PS'.
LOOP AT tc_pag-cols INTO v_cols.
IF v_cols-screen-name EQ '/PWS/ZYCIE095-VALOR' OR
v_cols-screen-name EQ '/PWS/ZYCIE095-RECEITA'.
v_cols-screen-input = 0.
ENDIF.
MODIFY tc_pag-cols FROM v_cols.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0221'.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE085-RECALF'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = 1.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-SETOR'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
WHEN '0221'.
IF itab_zycit001-meioemba EQ 'PS'.
IF screen-name EQ '/PWS/ZYCIE085-RECALF' OR
screen-name EQ '/PWS/ZYCIE085-SETOR'.
screen-input = 1.
ENDIF.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0240'.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE095A-LIFNR'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = 0.
ENDIF.
IF screen-name EQ 'T_VLICMS'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
WHEN '0240'.
IF itab_zycit001-meioemba EQ 'PS'.
IF screen-name EQ '/PWS/ZYCIE095A-LIFNR' OR
screen-name EQ 'T_VLICMS'.
screen-input = 0.
ENDIF.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0435'.
LOOP AT SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
WHEN '0435'.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZPC' OR
screen-name EQ '/PWS/ZYCIE100A-CODREDPISCOFI'.
IF /pws/zycie100a-redpiscofi EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
...
...
IF /pws/zycie100a-codregtripiscofi EQ 1 OR
/pws/zycie100a-codregtripiscofi EQ 3 OR
/pws/zycie100a-codregtripiscofi EQ 5 .
screen-input = 1.
ELSE.
screen-input = 0.
CLEAR: /pws/zycie100a-aliqpis ,
/pws/zycie100a-aliqcof.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
MODIFY SCREEN.
* << Fim da exclusão
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' .
IF NOT /pws/zycie100a-aliqpis IS INITIAL.
CLEAR /pws/zycie100a-advalpis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQPIS' .
IF NOT /pws/zycie100a-advalpis IS INITIAL.
CLEAR /pws/zycie100a-aliqpis.
...
...
screen-name EQ '/PWS/ZYCIE100A-BASREDCOF'.
screen-input = 0.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' OR
screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS'.
IF /pws/zycie100a-codregtripiscofi EQ '6'.
screen-input = 0.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF v_acto EQ 'E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDCASE.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0141'.
IF itab_zycit001-meioemba EQ 'PS'.
LOOP AT tc_pag-cols INTO v_cols.
IF v_cols-screen-name EQ '/PWS/ZYCIE095-VALOR' OR
v_cols-screen-name EQ '/PWS/ZYCIE095-RECEITA'.
v_cols-screen-input = 0.
ENDIF.
MODIFY tc_pag-cols FROM v_cols.
ENDLOOP.
ENDIF.
ELSEIF sy-dynnr = '0134' AND v_acto EQ 'E'.
LOOP AT tc_cab_merc-cols INTO v_cols.
v_cols-screen-input = 0.
MODIFY tc_cab_merc-cols FROM v_cols.
ENDLOOP.
ENDIF.
IF screen-name EQ 'CARGA4' .
READ TABLE itab_zycit107 WITH KEY
land1 = itab_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
/pws/zycie116-periodic = a_1periodic.
/pws/zycie116-indice = a_1indice.
/pws/zycie116-valtot = a_1valtot.
WHEN '2'.
/pws/zycie116-taxajuros = a_check2.
/pws/zycie116-codtxjuros = a_2codtxjuros.
/pws/zycie116-taxarate = a_2taxarate.
/pws/zycie116-parcnum = a_2parcnum.
/pws/zycie116-periodic = a_2periodic.
/pws/zycie116-indice = a_2indice.
* >> Início da inclusão: MODULE RADIO_INIT1
/pws/zycie116-valtot = a_2valtot.
WHEN '3'.
/pws/zycie116-taxajuros = a_check2.
/pws/zycie116-codtxjuros = a_2codtxjuros.
/pws/zycie116-taxarate = a_2taxarate.
/pws/zycie116-parcnum = a_2parcnum.
/pws/zycie116-periodic = a_2periodic.
IF /pws/zycie116-valtot IS INITIAL.
* << Fim da inclusão
/pws/zycie116-valtot = a_2valtot.
* >> Início da inclusão: MODULE RADIO_INIT1
ENDIF.
IF NOT v_valtot_alt IS INITIAL.
/pws/zycie116-valtot = v_valtot_alt.
ENDIF.
* << Fim da inclusão
WHEN '4'.
IF /pws/zycie006-motivo EQ '32'.
/pws/zycie116-taxajuros = a_check3.
...
...
* >> Início da inclusão:
MODULE set_screen_adicao OUTPUT.
PERFORM set_screen_adicao.
ENDMODULE.
MODULE
carrega_estrutura OUTPUT.
IF sy-dynnr EQ '0134'.
/pws/zycie486-de_mercosul = itab_zycit486-de_mercosul .
/pws/zycie486-re_inicial = itab_zycit486-re_inicial .
/pws/zycie486-re_final = itab_zycit486-re_final .
elseif sy-dynnr eq '0324' .
move itab_mercosul to /pws/zycie485.
ELSEIF sy-dynnr EQ '0413'.
move itab_mercosul to /pws/zycie485.
ENDIF.
ENDMODULE.
MODULE define_tab OUTPUT.
PERFORM define_tab.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
* >> Início da exclusão:
tc_doc1 TYPE TABLEVIEW USING SCREEN 0002.
* << Fim da exclusão
* >> Início da inclusão:
tc_doc1 TYPE TABLEVIEW USING SCREEN 0002,
tc_cab_merc type tableview using screen 0134,
tc_mercosul type tableview using screen 0413,
tc_merc_ad type tableview using screen 0324.
* << Fim da inclusão
TABLES:
/pws/zycit001,
/pws/zycie085a,
/pws/zycie086,
/pws/zycie087,
/pws/zycie088,
/pws/zycit094,
/pws/zycie095, /pws/zycie095a,
/pws/zycie096,
/pws/zycit107,
...
...
a_1parcnum LIKE /pws/zycie116-parcnum,
a_1periodic LIKE /pws/zycie116-periodic,
a_1indice LIKE /pws/zycie116-indice,
a_1valtot LIKE /pws/zycie116-valtot,
a_2codtxjuros LIKE /pws/zycie116-codtxjuros,
a_2taxarate LIKE /pws/zycie116-taxarate,
a_2parcnum LIKE /pws/zycie116-parcnum,
a_2periodic LIKE /pws/zycie116-periodic,
a_2indice LIKE /pws/zycie116-indice,
a_2valtot LIKE /pws/zycie116-valtot,
* >> Início da inclusão:
v_valtot_alt LIKE /pws/zycie116-valtot,
* << Fim da inclusão
a_3codtxjuros LIKE /pws/zycie116-codtxjuros,
a_3taxarate LIKE /pws/zycie116-taxarate,
a_3parcnum LIKE /pws/zycie116-parcnum,
a_3periodic LIKE /pws/zycie116-periodic,
a_3indice LIKE /pws/zycie116-indice,
a_3valtot LIKE /pws/zycie116-valtot,
rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',
rimc2 LIKE indx-srtfd VALUE 'NRBL',
rimc4 LIKE indx-srtfd VALUE 'WA085',
rimc7 LIKE indx-srtfd VALUE 'NRSEQ',
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_lfa1_AUX OCCURS 0,
lifnr LIKE lfa1-lifnr,
land1 like lfa1-land1,
ktokk LIKE lfa1-ktokk,
END OF itab_lfa1_aux.
DATA: BEGIN OF itab_ekko_aux OCCURS 0,
ebeln LIKE ekko-ebeln,
bsart LIKE ekko-bsart,
lifnr like ekko-lifnr,
END OF itab_ekko_aux.
* << Fim da inclusão
DATA wa_zycbt011 LIKE /pws/zycbt011.
DATA:
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
v_datum LIKE sy-datum,
v_blart LIKE /pws/zycbt011-blart,
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
TABLES: /pws/zycit000,
/pws/zycie085,
/pws/zycit085,
/pws/zycie093,
/pws/zycie003,
/pws/zycie100a,
/pws/zycit062,
/pws/zycit438,
* >> Início da exclusão:
/pws/zycit078.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit078,
/pws/zycit485,
/pws/zycie485,
/pws/zycit486,
/pws/zycie486.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
DATA:
t_icms LIKE /pws/zycie085-vlfob,
a_vlrtot LIKE t_icms,
a_vladu LIKE t_icms,
a_vmler LIKE t_icms,
a_itfre LIKE t_icms,
a_itseg LIKE t_icms,
a_baseii LIKE /pws/zycie116-baseii,
a_basepc LIKE /pws/zycie116-basepis,
...
...
DATA v_ntgewd LIKE /pws/zycit003-ntgew.
DATA: v_dele.
DATA: v_pisred LIKE t_icms,
v_cofred LIKE t_icms,
v_calcpc LIKE itab_it-basepis.
DATA: v_difgran LIKE /pws/zycie085-vlfob.
DATA: v_diftern TYPE /pws/zycit085-vlfob.
DATA: v_cgc LIKE j_1bwfield-cgc_number.
DATA v_tipop.
DATA : v_transm.
* >> Início da inclusão:
DATA: v_mercosul,
a_qtd_mercosul LIKE /pws/zycie485-qtd_mercosul.
DATA: t_de_merc TYPE /pws/zycit085-de_mercosul ,
t_re_inicial TYPE /pws/zycit085-re_inicial ,
t_re_final TYPE /pws/zycit085-re_final .
DATA: itab_zycit485 LIKE /pws/zycit485 OCCURS 0 WITH HEADER LINE,
itab_zycit485a LIKE /pws/zycit485 OCCURS 0 WITH HEADER LINE,
itab_zycit485ad LIKE /pws/zycit485 OCCURS 0 WITH HEADER LINE,
itab_zycit486a LIKE /pws/zycit486 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_mercosul OCCURS 0.
INCLUDE STRUCTURE /pws/zycit485 .
DATA mark.
DATA END OF itab_mercosul.
DATA: BEGIN OF itab_zycit486 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit486 .
DATA mark.
DATA END OF itab_zycit486.
DATA: t_desc LIKE t005t-landx,
t_cod LIKE t005-/pws/codpa,
v_proc LIKE /pws/zycie085-land .
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI023
INCLUDE /pws/mzyci023top .
INCLUDE /pws/mzyci023o01.
INCLUDE /pws/mzyci023i01.
INCLUDE /pws/mzyci023f01.
INCLUDE /pws/mzyci023f02.
INCLUDE /pws/mzyci023f03.
INCLUDE /pws/mzyci023f04.
* >> Início da inclusão:
INCLUDE /PWS/MZYCI023F05.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE085
MODIFICAR ESTRUTURA: /PWS/ZYCIE085
DESCRIÇÃO BREVE: CI - DI 2
*COMPONENTES NOVOS INCLUÍDOS NO FINAL DA ESTRUTURA
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
*<<Início Inclusão
DE_MERCOSUL CHAR16 CHAR 16 0 Campo de comprimento 16
RE_INICIAL CHAR4 CHAR 4 0 Campo de comprimento 4
RE_FINAL CHAR4 CHAR 4 0 Campo de comprimento 4
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE100A
MODIFICAR ESTRUTURA: /PWS/ZYCIE100a
DESCRIÇÃO BREVE: CI - Itens da DSI
*COMPONENTES NOVOS INCLUÍDOS NO FINAL DA ESTRUTURA
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
*<<Início Inclusão
TP_CERTIF /PWS/ZYCIL860 CHAR 1 0 GL - Tipo Mercosul
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE100T
MODIFICAR ESTRUTURA: /PWS/ZYCIE100T
DESCRIÇÃO BREVE: CI - Itens da DSI
*COMPONENTES NOVOS INCLUÍDOS NO FINAL DA ESTRUTURA
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
*<<Início Inclusão
DE_MERCOSUL CHAR16 CHAR 16 0 Campo de comprimento 16
RE_INICIAL CHAR4 CHAR 4 0 Campo de comprimento 4
RE_FINAL CHAR4 CHAR 4 0 Campo de comprimento 4
TP_CERTIF /PWS/ZYCIL860 CHAR 1 0 GL - Tipo Mercosul
PAIS_CERTIF LAND1 CHAR 3 0 Código do país
DI_CERTIF CHAR16 CHAR 16 0 Campo de comprimento 16
ITEM_CERTIF CHAR4 CHAR 4 0 Campo de comprimento 16
QTD_MERCOSUL /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE116A
MODIFICAR ESTRUTURA: /PWS/ZYCIE116A
DESCRIÇÃO BREVE: CI - Adição - Envio de dados ao SISCOMEX
*COMPONENTES NOVOS INCLUÍDOS NO FINAL DA ESTRUTURA
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
*<<Início Inclusão
TP_CERTIF /PWS/ZYCIL860 CHAR 1 0 GL - Tipo Mercosul
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT085
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT085
DESCRIÇÃO BREVE: CI - DI 2
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
*<<Início Inclusão
DE_MERCOSUL CHAR16 CHAR 16 0 Campo de comprimento 16
RE_INICIAL CHAR4 CHAR 4 0 Campo de comprimento 4
RE_FINAL CHAR4 CHAR 4 0 Campo de comprimento 4
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT100
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT100
DESCRIÇÃO BREVE: CI - Itens da DSI
CAMPOS NOVOS INCLUÍDOS NO FINAL DA TABELA
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
*<<Início Inclusão
TP_CERTIF /PWS/ZYCIL860 CHAR 1 0 GL - Tipo Mercosul
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE485
MODIFICAR ESTRUTURA: /PWS/ZYCIE485
DESCRIÇÃO BREVE: CI - DI Mercosul
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
.INCLUDE /PWS/ZYCIT485 0 0 CI - DI Mercosul
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE486
MODIFICAR ESTRUTURA: /PWS/ZYCIE486
DESCRIÇÃO BREVE: CI - DI Mercosul Cabeçalho
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
.INCLUDE /PWS/ZYCIT486 0 0 CI - DI Mercosul Cabeçalho
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT485
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT485
DESCRIÇÃO BREVE: CI - DI Mercosul
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela Transparente
CLASSE DE ENTREGA: A Tabela de aplicação (dados mestre e de movimento)
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: CHV IN TP.CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT X X MANDT CLNT 3 0 Mandante
NRSEQDI X X /PWS/ZYCIL230 CHAR 10 0 GL - Número Sequencial de Desembaraço
EBELN X X EBELN CHAR 10 0 Nº documento de compra
EBELP EBELP NUMC 5 0 Nº item do documento de compra
ADICAO /PWS/ZYCIL267 NUMC 3 0 GL - Adição
DE_MERCOSUL CHAR16 CHAR 16 0 Campo de comprimento 16
RE_INICIAL CHAR4 CHAR 4 0 Campo de comprimento 4
RE_FINAL CHAR4 CHAR 4 0 Campo de comprimento 4
PAIS_CERTIF LAND1 CHAR 3 0 Código do país
DI_CERTIF CHAR16 CHAR 16 0 Campo de comprimento 16
ITEM_CERTIF CHAR4 CHAR 4 0 Campo de comprimento 4
QTD_MERCOSUL /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0 Dados mestre, tabelas transparentes
CATEGOR. TAMANHO: 4 Registros dados esperados: 450.000 Até 36.0
(X) - AR. BUFFER NÃO PERMITIDO
CAMPOS: TAB.VALORES
MANDT T000
EBELN EKKO
EBELP EKPO
PAIS_CERTIF T005
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT486
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT486
DESCRIÇÃO BREVE: CI - DI Mercosul Cabeçalho
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: CHV IN TP.CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT X X MANDT CLNT 3 0 Mandante
NRSEQDI X X /PWS/ZYCIL230 CHAR 10 0 GL - Número Sequencial de Desembaraço
DE_MERCOSUL X X CHAR16 CHAR 16 0 Campo de comprimento 16
RE_INICIAL CHAR4 CHAR 4 0 Campo de comprimento 4
RE_FINAL CHAR4 CHAR 4 0 Campo de comprimento 4
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0 Dados mestre, tabelas transparentes
CATEGOR. TAMANHO: 4 Registros dados esperados: 450.000 Até 36.0
(X) - AR. BUFFER NÃO PERMITIDO