CE PLUS - Nota 012154
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 18/12/2013 13:29:00
Data/Hora Última Alteração: 18/12/2013 13:29:00
Descrição da Nota: DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO
Sintoma
DESENVOLVIMENTO ADICIONAL: CONFORME DECRETO ESTADUAL N° 32.128/2012 PUBLICADO NO DIÁRIO OFICIAL DO
ESTADO DO AMAZONAS NO DIA 16 DE FEVEREIRO DE 2012, DEVERÁ SER CRIADA A DECLARAÇÃO AMAZONENSE DE
IMPORTAÇÃO - DAI
Solução
DESENVOLVIMENTO ADICIONAL - DAI
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12154 Data: 02/05/2012 Hora: 11:35:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12154
Categoria : Consultoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CLAS /PWS/CL_ZYCI_RATEIO_DESPESAS
CLAS /PWS/CL_ZYCI_TRATA_MOEDAS
CUAD /PWS/SAPMZYCI023
DOMA /PWS/ZYCID902
DOMA /PWS/ZYCID903
DOMA /PWS/ZYCID916
DOMA /PWS/ZYCID919
DTEL /PWS/ZYCIL900
DTEL /PWS/ZYCIL901
DTEL /PWS/ZYCIL902
DTEL /PWS/ZYCIL903
DTEL /PWS/ZYCIL904
DTEL /PWS/ZYCIL905
DTEL /PWS/ZYCIL906
DTEL /PWS/ZYCIL907
DTEL /PWS/ZYCIL908
DTEL /PWS/ZYCIL909
DTEL /PWS/ZYCIL910
DTEL /PWS/ZYCIL911
DTEL /PWS/ZYCIL912
DTEL /PWS/ZYCIL913
DTEL /PWS/ZYCIL914
DTEL /PWS/ZYCIL915
DTEL /PWS/ZYCIL916
DTEL /PWS/ZYCIL917
DTEL /PWS/ZYCIL918
DTEL /PWS/ZYCIL919
DYNP /PWS/SAPMZYCI002 0105
DYNP /PWS/SAPMZYCI023 0300
DYNP /PWS/SAPMZYCI023 0370
FUGR /PWS/ZYCIGF11
REPS /PWS/MZYCI002F02
REPS /PWS/MZYCI002O01
REPS /PWS/MZYCI002X01
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/ZYCIR353
SHLP /PWS/ZYCIA500
SHLP /PWS/ZYCIA501
SHLP /PWS/ZYCIA502
TABD /PWS/ZYCIE055
TABD /PWS/ZYCIE116
TABD /PWS/ZYCIT055
TABD /PWS/ZYCIT116
TABD /PWS/ZYCIT218
TABL /PWS/ZYCIE123B
TABL /PWS/ZYCIE514
TABL /PWS/ZYCIE515
TABL /PWS/ZYCIE516
TABL /PWS/ZYCIE517
TABL /PWS/ZYCIE518
TABL /PWS/ZYCIE519
TABL /PWS/ZYCIT520
TABL /PWS/ZYCIT521
TABL /PWS/ZYCIT522
TABL /PWS/ZYCIT523
TRAN /PWS/ZYCIT520
TRAN /PWS/ZYCIT521
TRAN /PWS/ZYCIT522
TRAN /PWS/ZYCIT523
TRAN /PWS/ZYCIR353
TTYP /PWS/ZYCIE515T
TTYP /PWS/ZYCIE516T
----------------------------------------------------------------------------------------------------
CRIAR A CLASSE NA TRANSAÇÃO SE24: /PWS/CL_ZYCI_RATEIO_DESPESAS
Interface de classe: /PWS/CL_ZYCI_RATEIO_DESPESAS
* CARACTERÍSTICAS
Descrição: Trata Despesas
Geraç.instância: 2 Público
Final: X
Aritmét.ponto fixo: X
Categoria: 0 Categoria de objeto geral
Classe de desenvolvimento: /PWS/ZYCI
* DECLARAR OS TIPOS - DEFINIÇÕES DE CATEGORIA LOCAIS (ctrl+f5)
*"* local classes for public class /PWS/CL_ZYCI_RATEIO_DESPESAS
*"* use this source file for any type declarations you need
*"* in your method implementation
types:
l_zycit100 TYPE STANDARD TABLE OF /pws/zycit100,
l_zycit003 TYPE STANDARD TABLE OF /pws/zycit003,
l_zycit123 TYPE STANDARD TABLE OF /pws/zycie123b,
l_zycit049 TYPE STANDARD TABLE OF /pws/zycit049.
* MÉTODO
Método: RATEIO_DESPESAS
Tipo: Static Method
Visibilidade: Public
* Parâmetros
Parâmetros Tipo Transfer.valor Tp.atribuiç. Tipo referência
NRSEQDI Importing Type /PWS/ZYCIE085-NRSEQDI
DESPESAS Changing X Type ANY TABLE
* CÓDIGO FONTE
METHOD rateio_despesas.
DATA: wa_zycit085 TYPE /pws/zycit085,
wa_zycit100 TYPE /pws/zycit100,
wa_zycit003 TYPE /pws/zycit003.
DATA: wa_zycit019 TYPE /pws/zycit019,
wa_zycit020 TYPE /pws/zycit020,
wa_zycit039 TYPE /pws/zycit039,
wa_zycit049 TYPE /pws/zycit049,
wa_zycit000 TYPE /pws/zycit000,
wa_zycbt007 TYPE /pws/zycbt007,
wa_zycit062 TYPE /pws/zycit062.
DATA : v_tntgew TYPE /pws/zycie003-ntgew,
v_vlfobr TYPE /pws/zycit100-vlfob,
v_vltfrer TYPE /pws/zycit100-vlfre,
v_vltsegr TYPE /pws/zycit100-vlseg,
v_vlfrer TYPE /pws/zycit100-vlfre,
v_vlsegr TYPE /pws/zycit085-vlseg,
v_tot_plan TYPE /pws/zycit003-netpr,
v_tot_real TYPE /pws/zycit003-vlreal,
v_taxa TYPE /pws/zycit174-txconver,
v_lines TYPE sy-tabix.
DATA: t_zycit100 TYPE l_zycit100,
t_zycit003 TYPE l_zycit003,
t_zycit049 TYPE l_zycit049.
DATA: v_adrnr TYPE j_1bbranch-adrnr,
v_region TYPE adrc-region,
v_land1 TYPE t001-land1 .
DATA: t_zycit123 TYPE l_zycit123,
wa_zycit123 TYPE LINE OF l_zycit123.
SELECT SINGLE * FROM /pws/zycit085
INTO wa_zycit085
WHERE nrseqdi = nrseqdi.
SELECT SINGLE land1 FROM t001
INTO v_land1
WHERE bukrs = wa_zycit085-bukrs.
SELECT SINGLE adrnr FROM j_1bbranch
INTO v_adrnr
WHERE bukrs = wa_zycit085-bukrs
AND branch = wa_zycit085-j_1bbranch.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ wa_zycit085-bukrs.
SELECT SINGLE region FROM adrc
INTO v_region
WHERE addrnumber = v_adrnr.
SELECT SINGLE * FROM /pws/zycit000
INTO wa_zycit000
WHERE land1 EQ v_land1.
SELECT SINGLE * FROM /pws/zycit062
INTO wa_zycit062
WHERE regio = v_region.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit100
INTO TABLE t_zycit100
WHERE nrseqdi = nrseqdi .
IF sy-subrc EQ 0.
LOOP AT t_zycit100 INTO wa_zycit100.
EXIT.
ENDLOOP.
SELECT * FROM /pws/zycit003
INTO TABLE t_zycit003
WHERE nrseq = wa_zycit100-nrseq.
ENDIF.
SELECT * FROM /pws/zycit049
INTO TABLE t_zycit049
WHERE nrseq = nrseqdi.
ENDIF.
DESCRIBE TABLE t_zycit100 LINES v_lines.
LOOP AT t_zycit003 INTO wa_zycit003.
v_tot_plan = ( wa_zycit003-qtd_iten *
wa_zycit003-netpr ) + v_tot_plan .
v_tntgew = wa_zycit003-ntgew + v_tntgew.
v_tot_real = wa_zycit003-vlreal *
wa_zycit003-qtd_iten + v_tot_real.
ENDLOOP.
LOOP AT t_zycit003 INTO wa_zycit003.
LOOP AT t_zycit100 INTO wa_zycit100 WHERE nrseq = wa_zycit003-nrseq
AND ebeln = wa_zycit003-ebeln
AND ebelp = wa_zycit003-ebelp.
LOOP AT t_zycit049 INTO wa_zycit049.
SELECT SINGLE * FROM /pws/zycit019 INTO wa_zycit019
WHERE regio = v_region
AND tpdesp = wa_zycit049-tpdesp
AND land1 = v_land1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit020 INTO wa_zycit020
WHERE regio = wa_zycit019-regio
AND codigo = wa_zycit019-codigo
AND land1 = v_land1.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit020 INTO wa_zycit020
WHERE regio = space
AND codigo = wa_zycit019-codigo
AND land1 = v_land1.
ENDIF.
SELECT SINGLE * FROM /pws/zycit039 INTO wa_zycit039
WHERE codigo = wa_zycit020-codigo
AND land1 = v_land1.
ENDIF.
IF wa_zycit100-waersbem NE wa_zycit085-waersfob.
CALL METHOD /pws/cl_zyci_trata_moedas=>trata_decimais
EXPORTING
waers = wa_zycit100-waersbem
CHANGING
value = wa_zycit100-vlfob.
CALL METHOD /pws/cl_zyci_trata_moedas=>taxa_converte
EXPORTING
data = wa_zycit085-dttax
waers = wa_zycit100-waersbem
waersb = wa_zycbt007-waersb
land1 = v_land1
CHANGING
taxa = v_taxa.
IF sy-subrc EQ 0.
wa_zycit100-vlfob = wa_zycit100-vlfob * v_taxa .
ENDIF.
ENDIF.
IF wa_zycit039-divabs EQ 'X'.
IF NOT v_lines IS INITIAL.
wa_zycit123-vldp = ( 1 / v_lines ) * wa_zycit049-vldp.
ENDIF.
ELSEIF wa_zycit039-peso EQ 'X'.
IF NOT v_tntgew IS INITIAL.
wa_zycit123-vldp = ( wa_zycit003-ntgew / v_tntgew ) * wa_zycit049-vldp.
ENDIF.
ELSEIF wa_zycit039-proporplan EQ 'X'.
IF NOT v_tot_plan IS INITIAL.
IF wa_zycit085-waersfob NE wa_zycit003-waers.
CALL METHOD /pws/cl_zyci_trata_moedas=>calc_conv_moeda
EXPORTING
dttax = wa_zycit085-dttax
waersfrom = wa_zycit003-waers
waersto = wa_zycit085-waersfob
waersb = wa_zycbt007-waersb
land1 = v_land1
CHANGING
value = wa_zycit003-netpr.
ENDIF.
wa_zycit123-vldp =
( ( wa_zycit003-netpr * wa_zycit003-qtd_iten ) / v_tot_plan ) * wa_zycit049-vldp.
ENDIF.
ELSE.
IF wa_zycit062-bs_rat_icms EQ 'CIF'.
IF NOT wa_zycit085-vlfob IS INITIAL
AND NOT wa_zycit085-ukursfob IS INITIAL.
v_vltfrer = wa_zycit085-vlfre.
v_vltsegr = wa_zycit085-vlseg.
IF wa_zycit085-waersseg NE wa_zycit085-waersfob.
CALL METHOD /pws/cl_zyci_trata_moedas=>trata_decimais
EXPORTING
waers = wa_zycit085-waersseg
CHANGING
value = v_vltsegr.
v_vltsegr = ( v_vltsegr * wa_zycit085-ukursseg )
/ wa_zycit085-ukursfob.
ENDIF.
IF wa_zycit085-waersfre NE wa_zycit085-waersfob.
CALL METHOD /pws/cl_zyci_trata_moedas=>retorna_decimais
EXPORTING
waers = wa_zycit085-waersfob
CHANGING
value = v_vltfrer.
v_vltfrer = ( v_vltfrer * wa_zycit085-ukursfre )
/ wa_zycit085-ukursfob.
ENDIF.
v_vlfobr = wa_zycit100-vlfob.
v_vlfrer = wa_zycit100-vlfre /
wa_zycit085-ukursfob.
v_vlsegr = wa_zycit100-vlseg /
wa_zycit085-ukursfob.
CALL METHOD /pws/cl_zyci_trata_moedas=>retorna_decimais
EXPORTING
waers = wa_zycit085-waersfob
CHANGING
value = v_vlfrer.
CALL METHOD /pws/cl_zyci_trata_moedas=>retorna_decimais
EXPORTING
waers = wa_zycit085-waersfob
CHANGING
value = v_vlsegr.
wa_zycit123-vldp = ( wa_zycit049-vldp *
( v_vlfobr + v_vlfrer + v_vlsegr ) )
/ ( wa_zycit085-vlfob + v_vltfrer + v_vltsegr ) .
ENDIF.
ELSE.
IF NOT v_tot_real IS INITIAL.
IF wa_zycit085-waersfob NE wa_zycit003-waers.
CALL METHOD /pws/cl_zyci_trata_moedas=>calc_conv_moeda
EXPORTING
dttax = wa_zycit085-dttax
waersfrom = wa_zycit003-waers
waersto = wa_zycit085-waersfob
waersb = wa_zycbt007-waersb
land1 = v_land1
CHANGING
value = wa_zycit003-vlreal.
ENDIF.
wa_zycit123-vldp = ( wa_zycit003-vlreal *
wa_zycit003-qtd_iten
/ v_tot_real ) * wa_zycit049-vldp.
ENDIF.
ENDIF.
ENDIF.
wa_zycit123-nrseqdi = wa_zycit100-nrseqdi.
wa_zycit123-adicao = wa_zycit100-adicao.
wa_zycit123-codigo = wa_zycit049-tpdesp.
wa_zycit123-waers = wa_zycit049-waers .
APPEND wa_zycit123 TO t_zycit123.
ENDLOOP.
ENDLOOP.
ENDLOOP.
despesas = t_zycit123[].
ENDMETHOD.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI023
* INSERIR O BOTÃO ABAIXO NO STATUS GUI 0100
Código de função: DAI
Categoria de função: Função de aplicação
Modificação: Original
Texto de função: DAI
Nome de ícone: ICON_REPORT_CALL
Texto informativo: Transmissão DAI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID902
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID902
Descrição breve incluída (20 caracteres), idioma: PT
"Identificação na DAI"
Classe de desenvolvimento: /PWS/ZYCI
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 (4 caracteres):
"CIDE"
Incluído valor fixo "2"
Texto incluído, idioma: PT (14 caracteres):
"Multas / Juros"
Incluído valor fixo "3"
Texto incluído, idioma: PT (5 caracteres):
"Taxas"
Incluído valor fixo "4"
Texto incluído, idioma: PT (9 caracteres):
"Capatazia"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID903
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID903
Descrição breve incluída (6 caracteres), idioma: PT
"Código"
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Categoria de dados: NUMC
Número de posições: 2
Comprimento de saída: 2
Rotina de conversão:
-Valores individuais
Incluído valor fixo "01"
Texto incluído, idioma: PT (13 caracteres):
"Uso e Consumo"
Incluído valor fixo "02"
Texto incluído, idioma: PT (47 caracteres):
"Ativo permanente aplicado no processo produtivo"
Incluído valor fixo "03"
Texto incluído, idioma: PT (51 caracteres):
"Ativo permanente não aplicado no processo produtivo"
Incluído valor fixo "04"
Texto incluído, idioma: PT (15 caracteres):
"Comercialização"
Incluído valor fixo "05"
Texto incluído, idioma: PT (16 caracteres):
"Industrialização"
Incluído valor fixo "06"
Texto incluído, idioma: PT (22 caracteres):
"Corredor de importação"
Incluído valor fixo "07"
Texto incluído, idioma: PT (6 caracteres):
"PEXPAM"
Incluído valor fixo "08"
Texto incluído, idioma: PT (9 caracteres):
"Petrobrás"
Incluído valor fixo "09"
Texto incluído, idioma: PT (6 caracteres):
"Outras"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID916
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID916
Descrição breve incluída (20 caracteres), idioma: PT
"Documento Concessivo"
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Categoria de dados: NUMC
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
-Valores individuais
Incluído valor fixo "1"
Texto incluído, idioma: PT (13 caracteres):
"Laudo Técnico"
Incluído valor fixo "2"
Texto incluído, idioma: PT (16 caracteres):
"Ato Declaratório"
Incluído valor fixo "3"
Texto incluído, idioma: PT (29 caracteres):
"Certificado de Credenciamento"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID919
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID919
Descrição breve incluída (6 caracteres), idioma: PT
"Status"
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Categoria de dados: NUMC
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
-Valores individuais
Incluído valor fixo "0"
Texto incluído, idioma: PT (10 caracteres):
"Não gerado"
Incluído valor fixo "1"
Texto incluído, idioma: PT (16 caracteres):
"Gerado / Enviado"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL900
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL900
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (26 caracteres), idioma: PT
"Número do Documento - NRDI"
Categoria de dados: Entrada direta de categoria
Categoria de dados: CHAR
Comprimento: 10
Decimais: 10
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 (7 caracteres), idioma: PT
"Nr.Doc."
Comprimento máximo do denominador médio: 19
Denominador médio incluído (19 caracteres), idioma: PT
"Número do Documento"
Comprimento máximo do denominador longo: 26
Denominador longo incluído (26 caracteres), idioma: PT
"Número do Documento - NRDI"
Comprimento máximo do título: 26
Título incluído (26 caracteres), idioma: PT
"Número do Documento - NRDI"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL901
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL901
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (11 caracteres), idioma: PT
"Retificação"
Categoria de dados: Entrada direta de categoria
Categoria de dados: CHAR
Comprimento: 1
Decimais: 1
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 (6 caracteres), idioma: PT
"Retif."
Comprimento máximo do denominador médio: 15
Denominador médio incluído (11 caracteres), idioma: PT
"Retificação"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (11 caracteres), idioma: PT
"Retificação"
Comprimento máximo do título: 11
Título incluído (11 caracteres), idioma: PT
"Retificação"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL902
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL902
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (20 caracteres), idioma: PT
"Identificação na DAI"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID902
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 (10 caracteres), idioma: PT
"Identific."
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Identificação na DAI"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (20 caracteres), idioma: PT
"Identificação na DAI"
Comprimento máximo do título: 20
Título incluído (20 caracteres), idioma: PT
"Identificação na DAI"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL903
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL903
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: PT
"Código"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID903
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 (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: PT
"Código"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL904
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL904
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (3 caracteres), idioma: PT
"NCM"
Categoria de dados: Domínio
Domínio: STEUC
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 (3 caracteres), idioma: PT
"NCM"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (3 caracteres), idioma: PT
"NCM"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (3 caracteres), idioma: PT
"NCM"
Comprimento máximo do título: 16
Título incluído (3 caracteres), idioma: PT
"NCM"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL905
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL905
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (9 caracteres), idioma: PT
"Descrição"
Categoria de dados: Domínio
Domínio: CHAR50
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 (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do título: 50
Título incluído (9 caracteres), idioma: PT
"Descrição"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL906
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL906
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: PT
"Código"
Categoria de dados: Domínio
Domínio: NUMC2
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 (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: PT
"Código"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL907
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL907
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: PT
"Código"
Categoria de dados: Domínio
Domínio: CHAR4
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 (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: PT
"Código"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: PT
"Código"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL908
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL908
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (10 caracteres), idioma: PT
"Destinação"
Categoria de dados: Domínio
Domínio: CHAR40
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 (10 caracteres), idioma: PT
"Destinação"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (10 caracteres), idioma: PT
"Destinação"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (10 caracteres), idioma: PT
"Destinação"
Comprimento máximo do título: 40
Título incluído (10 caracteres), idioma: PT
"Destinação"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL909
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL909
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (9 caracteres), idioma: PT
"Descrição"
Categoria de dados: Domínio
Domínio: CHAR80
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 (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (9 caracteres), idioma: PT
"Descrição"
Comprimento máximo do título: 80
Título incluído (9 caracteres), idioma: PT
"Descrição"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL910
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL910
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (3 caracteres), idioma: PT
"MVA"
Categoria de dados: Domínio
Domínio: NUMC3
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 (3 caracteres), idioma: PT
"MVA"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (3 caracteres), idioma: PT
"MVA"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (3 caracteres), idioma: PT
"MVA"
Comprimento máximo do título: 03
Título incluído (3 caracteres), idioma: PT
"MVA"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL911
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL911
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (7 caracteres), idioma: PT
"Redução"
Categoria de dados: Domínio
Domínio: NUMC3
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 (7 caracteres), idioma: PT
"Redução"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (7 caracteres), idioma: PT
"Redução"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (7 caracteres), idioma: PT
"Redução"
Comprimento máximo do título: 07
Título incluído (7 caracteres), idioma: PT
"Redução"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL912
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL912
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (8 caracteres), idioma: PT
"Alíquota"
Categoria de dados: Domínio
Domínio: NUMC3
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
"Alíquota"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (8 caracteres), idioma: PT
"Alíquota"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (8 caracteres), idioma: PT
"Alíquota"
Comprimento máximo do título: 08
Título incluído (8 caracteres), idioma: PT
"Alíquota"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL913
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL913
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (2 caracteres), idioma: PT
"CM"
Categoria de dados: Entrada direta de categoria
Categoria de dados: DEC
Comprimento: 8
Decimais: 5
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 (2 caracteres), idioma: PT
"CM"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (2 caracteres), idioma: PT
"CM"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (2 caracteres), idioma: PT
"CM"
Comprimento máximo do título: 09
Título incluído (2 caracteres), idioma: PT
"CM"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL914
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL914
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (3 caracteres), idioma: PT
"Lei"
Categoria de dados: Entrada direta de categoria
Categoria de dados: DEC
Comprimento: 8
Decimais: 5
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 (3 caracteres), idioma: PT
"Lei"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (3 caracteres), idioma: PT
"Lei"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (3 caracteres), idioma: PT
"Lei"
Comprimento máximo do título: 09
Título incluído (3 caracteres), idioma: PT
"Lei"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL915
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL915
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (18 caracteres), idioma: PT
"Decreto Concessivo"
Categoria de dados: Entrada direta de categoria
Categoria de dados: NUMC
Comprimento: 9
Decimais: 9
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 (7 caracteres), idioma: PT
"Decreto"
Comprimento máximo do denominador médio: 18
Denominador médio incluído (18 caracteres), idioma: PT
"Decreto Concessivo"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (18 caracteres), idioma: PT
"Decreto Concessivo"
Comprimento máximo do título: 18
Título incluído (18 caracteres), idioma: PT
"Decreto Concessivo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL916
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL916
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (20 caracteres), idioma: PT
"Documento Concessivo"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID916
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 (9 caracteres), idioma: PT
"Documento"
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Documento Concessivo"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (20 caracteres), idioma: PT
"Documento Concessivo"
Comprimento máximo do título: 20
Título incluído (20 caracteres), idioma: PT
"Documento Concessivo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL917
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL917
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (30 caracteres), idioma: PT
"Número do Documento Concessivo"
Categoria de dados: Entrada direta de categoria
Categoria de dados: NUMC
Comprimento: 9
Decimais: 9
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 (9 caracteres), idioma: PT
"Doc.Conc."
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Documento Concessivo"
Comprimento máximo do denominador longo: 30
Denominador longo incluído (30 caracteres), idioma: PT
"Número do Documento Concessivo"
Comprimento máximo do título: 30
Título incluído (30 caracteres), idioma: PT
"Número do Documento Concessivo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL918
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL918
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (15 caracteres), idioma: PT
"Número do Lacre"
Categoria de dados: Domínio
Domínio: CHAR20
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 (10 caracteres), idioma: PT
"Nro. Lacre"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (15 caracteres), idioma: PT
"Número do Lacre"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (15 caracteres), idioma: PT
"Número do Lacre"
Comprimento máximo do título: 20
Título incluído (15 caracteres), idioma: PT
"Número do Lacre"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL919
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL919
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: PT
"Status"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID919
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 (6 caracteres), idioma: PT
"Status"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: PT
"Status"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: PT
"Status"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: PT
"Status"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI002 0105
INCLUIR CAMPO TEXTO "/PWS/ZYCIE055-LACRE" em tbl.contr./tabstr.
Altura 20
Comprimento Visível 20
Linha 1
Coluna 17
Formato CHAR
Linhas mínimas 20
Texto ____________________
INCLUIR TEXTO "/PWS/ZYCIE055-LACRE" em tbl.contr./tabstr.
Altura 20
Comprimento Visível 15
Linha 1
Coluna 17
Formato CHAR
Texto Número do Lacre
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE055-NRCONTAINER" em tbl.contr./tabstr.
Comprimento Visível 25
Linhas mínimas 25
Texto _________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0300
INCLUIR ÁREA DE SUB-TELA "SS_DAI" em tbl.contr./tabstr.
Altura 20
Comprimento Visível 116
Linha 8
Coluna 4
Linhas mínimas 3
Colunas mínimas 3
INCLUIR BOTÃO "TAB_DAI" em tbl.contr./tabstr.
Comprimento Visível 3
Linha 1
Coluna 6
Formato CHAR
Campo referência SS_DAI
Texto DAI
Código função FC_DAI
MODIFICAR TABSTRIP "TS_ADIC"
Linhas mínimas 23
Colunas mínimas 118
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0300
process before output.
module: load_adic,
status0300,
init_editor_adi_compl,
set_screen_adicao.
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',
* >> Início da exclusão:
ss_camb including syst-cprog '0350'.
* << Fim da exclusão
* >> Início da inclusão:
ss_camb including syst-cprog '0350',
ss_dai including syst-cprog '0370'.
* << Fim da inclusão
process after input.
call subscreen: ss_forn,
ss_merc,
ss_valo,
ss_trib,
* >> Início da exclusão:
ss_camb.
* << Fim da exclusão
* >> Início da inclusão:
ss_camb,
ss_dai .
* << Fim da inclusão
module: atualiza_zycit116,
user_command_0300,
user_command_exit at exit-command.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0370
INCLUIR SUB-TELA 0370
Descrição CI - DAI
Tela seguinte 0370
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR TEXTO "/PWS/ZYCIE116-DESTINACAO"
Comprimento Visível 10
Linha 2
Coluna 5
Formato CHAR
Texto Destinação
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE116-DESTINACAO"
Comprimento Visível 2
Linha 2
Coluna 21
Formato NUMC
Linhas mínimas 2
Texto __
Código função
INCLUIR TEXTO "/PWS/ZYCIE116-UTILIZACAO"
Comprimento Visível 10
Linha 3
Coluna 5
Formato CHAR
Texto Utilização
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE116-UTILIZACAO"
Comprimento Visível 2
Linha 3
Coluna 21
Formato NUMC
Linhas mínimas 2
Texto __
INCLUIR TEXTO "/PWS/ZYCIE116-TRIBUTACAO"
Comprimento Visível 14
Linha 4
Coluna 5
Formato CHAR
Texto Cód.Tributação
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE116-TRIBUTACAO"
Comprimento Visível 4
Linha 4
Coluna 21
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0370
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
PROCESS AFTER INPUT.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCIGF11
* CRIAR O GRUPO DE FUNÇÃO
Grupo funções /PWS/ZYCIGF11
Texto breve DAI -Declaração Amazonense de Importação
Cl.desenvolvimento /PWS/ZYCI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT520
CRIAR TABELA TRANSPARENTE: /PWS/ZYCIT520
DESCRIÇÃO BREVE: DAI - Despesas X Layout
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: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X
TPDESP /PWS/ZYCIL036 X X /PWS/ZYCIT019
IDENTIFIC /PWS/ZYCIL902
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 1
* GERADOR DE ATUALIZAÇÃO DE TABELA
Tabela/visão /PWS/ZYCIT520
Grupo de autorização &NC& Sem grp.autorização
Objeto autorização S_TABU_DIS
Grupo de funções /PWS/ZYCIT520 Txt.grpFunç.
Cl.desenvolvimento /PWS/ZYCI pw.CE - Documentação Importação
Ctg.atualização Nível único
Nº tela atualização Tela de síntese 333
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT521
CRIAR TABELA TRANSPARENTE: /PWS/ZYCIT521
DESCRIÇÃO BREVE: DAI - Destinação
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: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X
STEUC /PWS/ZYCIL904 X X
CODIGO /PWS/ZYCIL903 X X
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
* GERADOR DE ATUALIZAÇÃO DE TABELA
Tabela/visão /PWS/ZYCIT521
Grupo de autorização &NC& Sem grp.autorização
Objeto autorização S_TABU_DIS
Grupo de funções /PWS/ZYCIT521 Txt.grpFunç.
Cl.desenvolvimento /PWS/ZYCI pw.CE - Documentação Importação
Ctg.atualização Nível único
Nº tela atualização Tela de síntese 444
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT522
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT522
DESCRIÇÃO BREVE: Utilização
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: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X
CODIGO /PWS/ZYCIL906 X X
DESCRICAO /PWS/ZYCIL905
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 1
* GERADOR DE ATUALIZAÇÃO DE TABELA
Tabela/visão /PWS/ZYCIT522
Grupo de autorização &NC& Sem grp.autorização
Objeto autorização S_TABU_DIS
Grupo de funções /PWS/ZYCIT522 Txt.grpFunç.
Cl.desenvolvimento /PWS/ZYCI pw.CE - Documentação Importação
Ctg.atualização Nível único
Nº tela atualização Tela de síntese 555
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT523
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT523
DESCRIÇÃO BREVE: Código Tributação
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: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X T000
CODIGO /PWS/ZYCIL907 X X
DESTINACAO /PWS/ZYCIL908
DESCRICAO /PWS/ZYCIL909
MVA /PWS/ZYCIL910
REDUCAO /PWS/ZYCIL911
ALIQ /PWS/ZYCIL912
CM /PWS/ZYCIL913
LEI /PWS/ZYCIL914
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
* GERADOR DE ATUALIZAÇÃO DE TABELA
Tabela/visão /PWS/ZYCIT523
Grupo de autorização &NC& Sem grp.autorização
Objeto autorização S_TABU_DIS
Grupo de funções /PWS/ZYCIT523 Txt.grpFunç.
Cl.desenvolvimento /PWS/ZYCI pw.CE - Documentação Importação
Ctg.atualização Nível único
Nº tela atualização Tela de síntese 100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
FORM seleciona_pais.
IF NOT /pws/zycie093 IS INITIAL.
MOVE-CORRESPONDING /pws/zycie093 TO itab_zycit093.
SELECT bukrs land1
FROM t001
INTO TABLE itab_t001
FOR ALL ENTRIES IN itab_zycit093
WHERE bukrs = itab_zycit093-bukrs.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_PAIS
IF /pws/zycit001 IS INITIAL.
READ TABLE itab_zycit094s INDEX 1.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ itab_zycit094s-nrseq.
ENDIF.
SELECT SINGLE adrnr FROM j_1bbranch INTO v_adrn
WHERE bukrs = /pws/zycit001-bukrs AND
branch = /pws/zycit001-j_1bbranch.
IF sy-subrc EQ 0.
SELECT SINGLE region FROM adrc INTO v_region WHERE
addrnumber = v_adrn.
IF sy-subrc NE 0.
CLEAR v_region.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002O01
...
MODULE enche_tabctrl1 OUTPUT.
CLEAR: v_pesobruto.
* >> Início da exclusão: MODULE ENCHE_TABCTRL1
/pws/zycie055-nrcontainer = itab_zycit055-nrcontainer.
/pws/zycie055-tp_cont = itab_zycit055-tp_cont.
/pws/zycie055-mod_cont = itab_zycit055-mod_cont.
/pws/zycie055-desova = itab_zycit055-desova.
/pws/zycie055-dtdesova = itab_zycit055-dtdesova.
/pws/zycie055-dtidacont = itab_zycit055-dtidacont.
/pws/zycie055-dtvoltacont = itab_zycit055-dtvoltacont.
/pws/zycie055-dtentrada = itab_zycit055-dtentrada.
/pws/zycie055-dtsaidaarm = itab_zycit055-dtsaidaarm.
/pws/zycie055-dtdevcont = itab_zycit055-dtdevcont.
/pws/zycie055-perarmaz = itab_zycit055-perarmaz.
/pws/zycie055-armazen = itab_zycit055-armazen.
/pws/zycie055-pesobruto = itab_zycit055-pesobruto.
/pws/zycie055-dtforzoso = itab_zycit055-dtforzoso.
/pws/zycie055-gewei = itab_zycit055-gewei.
* << Fim da exclusão
* >> Início da inclusão: MODULE ENCHE_TABCTRL1
MOVE-CORRESPONDING itab_zycit055 TO /pws/zycie055.
* << Fim da inclusão
IF NOT itab_zycit055-nrcontainer IS INITIAL.
IF v_nrcontainer <> itab_zycit055-nrcontainer.
ENDIF.
ENDIF.
IF NOT /pws/zycie055 IS INITIAL.
CLEAR itab_zycet133.
READ TABLE itab_zycet133
WITH KEY codarmad = /pws/zycie093-armador
codagente = /pws/zycie093-agente.
IF sy-subrc = 0.
...
...
MOVE: itab_zycit055-dtatrac TO /pws/zycie055-dtatrac.
IF ts_bl-activetab EQ 'FC_CONT'.
tabctrl1-lines = tabctrl1-lines + 15.
ENDIF.
PERFORM seleciona_pais.
READ TABLE itab_t001 WITH KEY bukrs = itab_zycit093-bukrs.
IF itab_t001-land1 = 'BR'.
LOOP AT tabctrl1-cols INTO wa_cols2.
IF wa_cols2-screen-name = '/PWS/ZYCIE055-DTFORZOSO'.
wa_cols2-invisible = 1.
* >> Início da inclusão: MODULE TRATA_TABCTRL1
MODIFY tabctrl1-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-name = '/PWS/ZYCIE055-LACRE'.
IF v_region NE 'AM' .
wa_cols2-invisible = 1 .
ELSE.
wa_cols2-invisible = 0 .
ENDIF.
* << Fim da inclusão
MODIFY tabctrl1-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002X01
...
* >> Início da inclusão:
DATA: v_adrn TYPE j_1bbranch-adrnr,
v_region TYPE adrc-region.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM set_screen_adicao.
LOOP AT SCREEN.
* >> Início da inclusão: FORM SET_SCREEN_ADICAO
IF screen-name EQ 'TAB_DAI'.
IF v_region EQ 'AM' .
IF /pws/zycie085-nrdi IS INITIAL.
screen-invisible = '1'.
ELSE.
screen-invisible = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
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.
IF sy-tcode EQ '/PWS/ZYCI023_E'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
WHEN 'DECRESCD'.
CLEAR: v_ordena.
LOOP AT tc_item-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 DESCENDING BY (v_ordena).
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'DAI' .
CALL FUNCTION '/PWS/ZYCI_CARREGA_DAI'
EXPORTING
i_nrseqdi = /pws/zycie085-nrseqdi
i_tpdi = /pws/zycie085-tpdi.
* << Fim da inclusão
ENDCASE.
ENDIF.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI009'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI009' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
APPEND it_statu4.
MOVE 'RETI' TO it_statu2-fcode.
APPEND it_statu2.
ENDIF.
IF /pws/zycit000-flag_rateio IS INITIAL.
MOVE 'VISUA' TO it_statu4-fcode.
APPEND it_statu4.
MOVE 'VISUA' TO it_statu2-fcode.
APPEND it_statu2.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0050
IF v_region NE 'AM'.
IF /pws/zycie085-nrdi IS INITIAL.
MOVE: 'DAI' TO it_statu4-fcode,
'DAI' TO it_statu2-fcode.
APPEND : it_statu4,
it_statu2 .
ENDIF.
ENDIF.
* << Fim da inclusão
IF gc_subscreen-prog NE '0200'.
IF /pws/zycie085-retif IS INITIAL
OR itab_zycit100a[] IS INITIAL.
MOVE: 'REL_RET' TO it_statu4-fcode,
'REL_RET' TO it_statu2-fcode.
APPEND: it_statu2,
it_statu4.
ENDIF.
IF v_acto = 'A'.
SET PF-STATUS '0100' EXCLUDING it_statu4.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR353
CRIAR O PROGRAMA UTILIZANDO A TRANSAÇÃO SE38
Título DAI - Gerar XML da Identificação da
Categoria 1 Programa executável
Cl.desenvolvimento /PWS/ZYCI pw.CE - Documentação Importação
* SÍMBOLOS DE TEXTOS
001 Critérios de Seleção:
002 Atenção:
003 Cód.Suframa já foi gerado. Gerar novamente?
004 Sim
005 Não
006 XML gerado com sucesso.
007 Erro ao gerar o XML.
* TEXTOS DE SELEÇÃO
P_BRANCH Local de Negócio
P_BUKRS Empresa
SO_COD Código Suframa
*CÓDIGO FONTE
* >> Início da inclusão:
REPORT /pws/zycir353 MESSAGE-ID /pws/zycim.
TABLES: /pws/zycit218.
DATA: itab_zycit218 TYPE /pws/zycit218 OCCURS 0 WITH HEADER LINE,
itab_item TYPE /pws/zycie519 OCCURS 0 WITH HEADER LINE,
itab_cab TYPE /pws/zycie518 OCCURS 0 WITH HEADER LINE.
DATA: wa_j_1bbranch LIKE j_1bbranch.
DATA: v_resposta TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS: p_bukrs TYPE j_1bbranch-bukrs OBLIGATORY,
p_branch TYPE j_1bbranch-branch OBLIGATORY.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: so_cod FOR /pws/zycit218-codigo OBLIGATORY.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK bl1.
START-OF-SELECTION.
PERFORM selecionar_registros.
FORM selecionar_registros.
SELECT * FROM /pws/zycit218 INTO TABLE itab_zycit218
WHERE codigo IN so_cod.
IF sy-subrc EQ 0.
READ TABLE itab_zycit218 WITH KEY status = '1'.
IF sy-subrc EQ 0.
CLEAR: v_resposta.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-002
text_question = text-003
text_button_1 = text-004
text_button_2 = text-005
default_button = '2'
display_cancel_button = ' '
start_column = 25
start_row = 6
IMPORTING
answer = v_resposta
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
IF v_resposta EQ '2'.
EXIT.
ELSEIF v_resposta EQ '1'.
PERFORM gerar_xml.
ENDIF.
ENDIF.
ELSE.
PERFORM gerar_xml.
ENDIF.
ENDIF.
ENDFORM.
FORM gerar_xml.
CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
EXPORTING
branch = p_branch
bukrs = p_bukrs
IMPORTING
branch_data = wa_j_1bbranch
EXCEPTIONS
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
itab_cab-tp_doc = '1'.
itab_cab-cod_import = wa_j_1bbranch-state_insc.
APPEND itab_cab.
LOOP AT itab_zycit218.
itab_item-ncm = itab_zycit218-steuc.
itab_item-suframa = itab_zycit218-codigo.
itab_item-destinacao = itab_zycit218-destinacao.
itab_item-utilizacao = itab_zycit218-utilizacao.
itab_item-cod_trib = itab_zycit218-tributacao.
itab_item-nr_decreto = itab_zycit218-numdecreto.
itab_item-tp_doc = itab_zycit218-tpdoc.
itab_item-nr_doc = itab_zycit218-numdoc.
itab_item-dt_ini = itab_zycit218-dtinicio.
itab_item-dt_fim = itab_zycit218-dtfim.
APPEND itab_item.
itab_zycit218-dtenvio = sy-datum.
itab_zycit218-status = '1'.
MODIFY itab_zycit218.
ENDLOOP.
CALL FUNCTION '/PWS/ZYCI_TRANSFER_DAI_MATRIZ'
DESTINATION 'ZYCIENVIAMATRIZDAI'
TABLES
t_matriz = itab_cab
t_matriz_item = itab_item
EXCEPTIONS
call_function_remote_error = 1
OTHERS = 2.
MODIFY /pws/zycit218 FROM TABLE itab_zycit218.
COMMIT WORK AND WAIT.
MESSAGE i015 WITH text-006.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCIA500
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA500
DESCRIÇÃO BREVE: Tipo de Despesas
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCIT019
COMPORTAMENTO DE DIÁLOGO
TIPO DE DIÁLOGO: A - DIÁLOGO EM FUNÇÃO DO CONJUNTO DE VALORES
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
REGIO 1 1
TPDESP X 2 2
LAND1 3 3
DESCR 4 4
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCIA501
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA501
DESCRIÇÃO BREVE: Utilização
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCIT522
COMPORTAMENTO DE DIÁLOGO
TIPO DE DIÁLOGO: A - DIÁLOGO EM FUNÇÃO DO CONJUNTO DE VALORES
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
CODIGO X 1 1
DESCRICAO 2 2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCIA502
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA502
DESCRIÇÃO BREVE: Tributação
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCIT523
COMPORTAMENTO DE DIÁLOGO
TIPO DE DIÁLOGO: A - DIÁLOGO EM FUNÇÃO DO CONJUNTO DE VALORES
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
CODIGO X 1 1
DESTINACAO 2 2
DESCRICAO 3 3
MVA 4 4
REDUCAO 5 5
ALIQ 6 6
CM 7 7
LEI 8 8
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE055
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
LACRE /PWS/ZYCIL918
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE116
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
DESTINACAO /PWS/ZYCIL903
UTILIZACAO /PWS/ZYCIL906
TRIBUTACAO /PWS/ZYCIL907
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT055
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
LACRE /PWS/ZYCIL918
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT116
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
DESTINACAO /PWS/ZYCIL903
UTILIZACAO /PWS/ZYCIL906
TRIBUTACAO /PWS/ZYCIL907
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT218
CAMPOS NOVOS
CAMPOS: TP. CAMPO Tab.verificação Tab.valores Ajuda de pesquisa
STEUC /PWS/ZYCIL904 /PWS/ZYCIT521 T604F
DESTINACAO /PWS/ZYCIL903
UTILIZACAO /PWS/ZYCIL906 /PWS/ZYCIT522 /PWS/ZYCIA501
TRIBUTACAO /PWS/ZYCIL907 /PWS/ZYCIT523 /PWS/ZYCIA502
NUMDECRETO /PWS/ZYCIL915
TPDOC /PWS/ZYCIL916
NUMDOC /PWS/ZYCIL917
DTINICIO SYDATUM
DTFIM SYDATUM
DTENVIO SYDATUM
STATUS /PWS/ZYCIL919
*GERAR A TELA DE ATUALIZAÇÃO NOVAMENTE
*MODIFICAR A TELA DE ATUALIZAÇÃO UTILIZANDO O SCREEN PAINTER - LAYOUT
CAMPO/NOME DESCRIÇÃO/TEXTO
*/PWS/ZYCIT218-DESTINACAO Destinação
*/PWS/ZYCIT218-UTILIZACAO Utilização
*/PWS/ZYCIT218-TRIBUTACAO Tributação
*/PWS/ZYCIT218-NUMDECRETO Decreto
*/PWS/ZYCIT218-TPDOC Documento
*/PWS/ZYCIT218-NUMDOC Doc.Conc.
*/PWS/ZYCIT218-DTINICIO Dt.início
*/PWS/ZYCIT218-DTFIM Dt.fim
*/PWS/ZYCIT218-DTENVIO Dt.envio
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE123B
CRIAR ESTRUTURA: /PWS/ZYCIE123B
DESCRIÇÃO BREVE: CI - Rateio das despesas DAI
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
MANDT MANDT
NRSEQDI /PWS/ZYCIL230
ADICAO /PWS/ZYCIL267
CODIGO /PWS/ZYCIL036
VLDP /PWS/ZYCIL093
WAERS WAERS
VLDPR /PWS/ZYCIL093
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE514
CRIAR ESTRUTURA: /PWS/ZYCIE514
DESCRIÇÃO BREVE: Registro tipo 01 - Dados da DI
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
REGIME /PWS/ZYCIL062 CHAR 2 GL - Regime
NRDI /PWS/ZYCIL900 CHAR 10 Número do Documento - NRDI
DTREG NUMC 8 Data do documento
RETIF /PWS/ZYCIL901 CHAR 1 Retificação
VLFOB NUMC 17 Valor FOB
VLFRE NUMC 17 Valor Frete
VLSEG NUMC 17 Valor Seguro
VLII NUMC 17 Valor II a recolher
VLIPI NUMC 17 Valor IPI a recolher
VLPIS_COFINS NUMC 17 Valor PIS + COFINS a recolher
VLCIDE NUMC 17 Valor CIDE
VLANTID NUMC 17 Valor Antidumping
VLMULTA_JUR NUMC 17 Valor Multas + Juros
VLTAXASD NUMC 17 Valor Taxas Diversas
VLTAXASC NUMC 17 Valor Taxas Capatazia
UF NUMC 2 UF do Importador
UKURSFOB NUMC 13 Taxa do Dólar
PESO NUMC 17 Peso Líquido em KG
RECALF NUMC 7 Código do Recinto Aduaneiro SEFAZ-AM
LAND NUMC 5 Código do País de Procedência
ADICAO /PWS/ZYCIL267 NUMC 3 GL - Adição
INFO_COMPL CHAR 4000 Informações Complementares
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE515
CRIAR ESTRUTURA: /PWS/ZYCIE515
DESCRIÇÃO BREVE: Registro tipo 02 - Dados das Adições da DI
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
ADICAO /PWS/ZYCIL267 NUMC 3 GL - Adição
TP_IMP NUMC 1 Tipo do Importador
COD_IMP NUMC 14 Código do Importador
N_IMP CHAR 60 Nome do Importador
FORNECEDOR CHAR 30 Nome do Fornecedor
DESTINACAO NUMC 2 Destinação
UTILIZACAO NUMC 2 Utilização
NCM NUMC 8 NCM do Produto a ser Fabricado
SUFRAMA NUMC 4 Código Suframa do Produto a ser Fabricado
VLFOB NUMC 17 Valor FOB
VLFRE NUMC 17 Valor Frete
VLSEG NUMC 17 Valor Seguro
VLII NUMC 17 Valor II a recolher
VLIPI NUMC 17 Valor IPI a recolher
VLPIS_COFINS NUMC 17 Valor PIS + COFINS a recolher
VLCIDE NUMC 17 Valor CIDE
VLANTID NUMC 17 Valor Antidumping
VLMULTA_JUR NUMC 17 Valor Multas + Juros
VLTAXASD NUMC 17 Valor Taxas Diversas
VLTAXASC NUMC 17 Valor Taxas Capatazia
UKURSFOB NUMC 13 Taxa do Dólar
PESO NUMC 17 Peso Líquido em KG
COD_TRIB CHAR 4 Código Tributação
VLBC_ICMS NUMC 17 BC ICMS
VLCM NUMC 6 CM - Coeficiente de Multiplicação
VLICMS NUMC 17 ICMS
NR_DI_ADT NUMC 10 Número da DI de Admissão Temporária
NR_DI_EIZOF NUMC 10 Número da DI de Entrada na EIZOF
ITEM /PWS/ZYCIE516T 0 Itens da Adição
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE516
CRIAR ESTRUTURA: /PWS/ZYCIE516
DESCRIÇÃO BREVE: Registro tipo 03 - Dados do Item da Adição da DI
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
ADICAO /PWS/ZYCIL267 NUMC 3 0 GL - Adição
NUMITEM NUMC 3 0 Número do Item da Adição
NCM NUMC 8 0 NCM do Item da Adição
DESTNCM /PWS/ZYCIL416 NUMC 4 0 GL - NCM Destaque
DESCR_S CHAR 255 0 Descrição SUFRAMA da Mercadoria
DESCR_M CHAR 3723 0 Descrição Detalhada a Mercadoria
QTDE NUMC 17 0 Quantidade da Mercadoria
UN CHAR 10 0 Unidade de Medida
VLUNIT NUMC 17 0 Valor Unitário
VLTOTAL NUMC 17 0 Valor Total
PEXPAM NUMC 9 0 Número do PEXPAM
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE517
CRIAR ESTRUTURA: /PWS/ZYCIE517
DESCRIÇÃO BREVE: Lacre
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
TP_VEICULO NUMC 1 0 Tipo de Veículo
ID_VEICULO CHAR 20 0 Identificação do Veículo
LACRE /PWS/ZYCIL918 CHAR 20 0 Número do Lacre
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE518
CRIAR ESTRUTURA: /PWS/ZYCIE518
DESCRIÇÃO BREVE: Identificação da Matriz
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
TP_DOC NUMC 1 0 Tipo Documento
COD_IMPORT NUMC 14 0 Inscrição Estadual
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE519
CRIAR ESTRUTURA: /PWS/ZYCIE519
DESCRIÇÃO BREVE: Tag Item - Matriz
COMPONENTES NOVOS
COMPONENTE: TP. COMP:
NCM NUMC 8 0 NCM do Produto a ser Fabricado
SUFRAMA NUMC 4 0 Código SUFRAMA do Produto a ser Fabricado
DESTINACAO NUMC 2 0 Destinação
UTILIZACAO NUMC 2 0 Utilização
COD_TRIB CHAR 4 0 Código Tributação
NR_DECRETO NUMC 9 0 Decreto Concessivo
TP_DOC NUMC 1 0 Documento Concessivo
NR_DOC NUMC 9 0 Número do Documento Concessivo
DT_INI NUMC 8 0 Data Inicial do Benefício
DT_FIM NUMC 8 0 Vigência do Benefício - Data Fim do Benefício
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT520
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT520
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: DAI - Despesas X Layout
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: DAI - Despesas X Layout
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(X) - HERDAR CARACTERÍSTICAS GUI
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
VIEWNAME /PWS/ZYCIT520
UPDATE X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT521
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT521
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: DAI - Destinação
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: DAI - DAI - Destinação
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(X) - HERDAR CARACTERÍSTICAS GUI
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
VIEWNAME /PWS/ZYCIT521
UPDATE X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT522
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT522
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: DAI - Utilização
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: DAI - Utilização
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(X) - HERDAR CARACTERÍSTICAS GUI
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
VIEWNAME /PWS/ZYCIT522
UPDATE X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT523
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT523
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: DAI - Tributação
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: DAI - Tributação
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(X) - HERDAR CARACTERÍSTICAS GUI
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
VIEWNAME /PWS/ZYCIT523
UPDATE X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIR353
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIR353
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: DAI - Gerar XML da Ident. da Matriz
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)
TEXTO DA TRANSAÇÃO: Gerar XML da Ident. da Matriz
PROGRAMA: /PWS/ZYCIR353
TELA(SELEÇÃO): 1000
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCIE515T
Categoria tabela /PWS/ZYCIE515T
Descrição breve CI - ADIÇÃO
Tipo de linha /PWS/ZYCIE515
(X) Tabela standard
(X) Chave standard (X) nonunique
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TTYP /PWS/ZYCIE516T
Categoria tabela /PWS/ZYCIE516T
Descrição breve Itens da Adição
Tipo de linha /PWS/ZYCIE516
(X) Tabela standard
(X) Chave standard (X) nonunique
----------------------------------------------------------------------------------------------------
CRIAR A CLASSE NA TRANSAÇÃO SE24: /PWS/CL_ZYCI_TRATA_MOEDAS
Interface de classe: /PWS/CL_ZYCI_TRATA_MOEDAS
* CARACTERÍSTICAS
Descrição: CI - Trata moedas
Geraç.instância: 2 Público
Final: X
Aritmét.ponto fixo: X
Categoria: 0 Categoria de objeto geral
Classe de desenvolvimento: /PWS/ZYCI
* MÉTODO TIPO VISIBILIDADE
BUSCA_TAXA Static Method Public
* Parâmetros
Parâmetros Tipo Tp.atribuiç. Tipo referência
KURST Importing Type KURST_CURR
WAERSA Importing Type /PWS/ZYCBL087
WAERS Importing Type WAERS
TAXA Changing Type TCURR-UKURS
* MÉTODO TIPO VISIBILIDADE
LOAD_WAERS Static Method Public
* Parâmetros
Parâmetros Tipo Transfer.valor Tp.atribuiç. Tipo referência
WAERS Importing Type WAERS
CODIGO Changing Type TCURC-/PWS/CODMO
DESCR Changing Type CHAR40
* MÉTODO TIPO VISIBILIDADE
TRATA_DECIMAIS Static Method Public
* Parâmetros
Parâmetros Tipo Tp.atribuiç. Tipo referência
WAERS Importing Type WAERS
VALUE Changing Type ANY
* MÉTODO TIPO VISIBILIDADE
RETORNA_DECIMAIS Static Method Public
* Parâmetros
Parâmetros Tipo Tp.atribuiç. Tipo referência
WAERS Importing Type WAERS
VALUE Changing Type ANY
* MÉTODO TIPO VISIBILIDADE
CALC_CONV_MOEDA Static Method Public
* Parâmetros
Parâmetros Tipo Tp.atribuiç. Tipo referência
DTTAX Importing Type DATUM
WAERSFROM Importing Type WAERS
WAERSTO Importing Type WAERS
WAERSB Importing Type /PWS/ZYCBT007-WAERSB
LAND1 Importing Type T001-LAND1
VALUE Changing Type ANY
* MÉTODO TIPO VISIBILIDADE
TAXA_CONVERTE Static Method Public
* Parâmetros
Parâmetros Tipo Transfer.valor Tp.atribuiç. Tipo referência
DATA Importing X Type /PWS/ZYCIT085-DTTAX
WAERS Importing X Type WAERS
WAERSB Importing Type /PWS/ZYCBT007-WAERSB
LAND1 Importing Type T001-LAND1
TAXA Changing Type ANY
* Exceção
NOT_FOUND Não encontrado
MULTIPLE_LINES Parâmetros inconsistentes
NO_PARAMETER_DATE Não foi encontrada parâmetro nessa data
* CÓDIGO FONTE
* BUSCA_TAXA
method BUSCA_TAXA.
DATA: v_tax type tcurr-ukurs,
v_kurst type /pws/zycit000-kurst.
IF kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = kurst.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = waers
i_paramoeda = waersa
i_ctmoeda = v_kurst
i_dtbase = sy-datlo
IMPORTING
e_txc = taxa
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
IF sy-subrc <> 0.
CLEAR taxa.
ENDIF.
endmethod.
* LOAD_WAERS
method LOAD_WAERS.
SELECT SINGLE /pws/codmo FROM tcurc INTO codigo
WHERE waers = waers.
IF sy-subrc EQ 0.
SELECT SINGLE ltext FROM tcurt INTO descr
WHERE spras = sy-langu AND
waers = waers.
ELSE.
CLEAR : codigo, descr.
ENDIF.
endmethod.
* TRATA_DECIMAIS
method TRATA_DECIMAIS.
DATA v_currdec TYPE tcurx-currdec.
FIELD-SYMBOLS: <value> TYPE ANY.
ASSIGN value TO <value>.
SELECT SINGLE currdec INTO v_currdec
FROM tcurx WHERE currkey = waers.
IF sy-subrc <> 0.
v_currdec = 2.
ENDIF.
<value> = <value> / ( 10 ** ( v_currdec - 2 ) ).
endmethod.
* RETORNA_DECIMAIS
method RETORNA_DECIMAIS.
DATA v_currdec TYPE tcurx-currdec.
FIELD-SYMBOLS: <value> TYPE ANY.
ASSIGN value TO <value>.
SELECT SINGLE currdec INTO v_currdec
FROM tcurx WHERE currkey = waers.
IF sy-subrc <> 0.
v_currdec = 2.
ENDIF.
<value> = <value> * ( 10 ** ( v_currdec - 2 ) ).
endmethod.
* CALC_CONV_MOEDA
METHOD calc_conv_moeda .
DATA: v_taxa TYPE /pws/zycie085-ukursfob VALUE 1.
DATA v_currdec TYPE tcurx-currdec.
FIELD-SYMBOLS: <value> TYPE ANY.
ASSIGN value TO <value>.
CALL METHOD taxa_converte
EXPORTING
data = dttax
waers = waersfrom
waersb = waersb
land1 = land1
CHANGING
taxa = v_taxa
EXCEPTIONS
not_found = 1
multiple_lines = 2
no_parameter_date = 3
OTHERS = 4.
IF sy-subrc <> 0.
v_taxa = 1.
ELSE.
<value> = <value> * v_taxa.
CALL METHOD taxa_converte
EXPORTING
data = dttax
waers = waersto
waersb = waersb
land1 = land1
CHANGING
taxa = v_taxa
EXCEPTIONS
not_found = 1
multiple_lines = 2
no_parameter_date = 3
OTHERS = 4.
ENDIF.
<value> = <value> / v_taxa.
ENDMETHOD.
* TAXA_CONVERTE
method TAXA_CONVERTE .
DATA: itab_zycit174 TYPE TABLE OF /pws/zycit174,
wa_zycit174 TYPE /pws/zycit174 .
DATA: v_moeda TYPE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
IF NOT waers IS INITIAL.
IF waers EQ waersb.
taxa = 1.
EXIT.
ENDIF.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_moeda WHERE
waers = waers.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit174 "#EC PORTABLE
INTO TABLE itab_zycit174 WHERE
codconver = v_moeda AND
vigen_inicio <= data AND
vigen_fim >= data AND
land1 = land1.
DESCRIBE TABLE itab_zycit174 LINES v_linhas.
IF v_linhas EQ 1.
LOOP AT itab_zycit174 INTO wa_zycit174.
taxa = wa_zycit174-txconver.
exit.
ENDLOOP.
ELSEIF v_linhas EQ 0.
RAISE not_found.
ELSEIF v_linhas > 1.
RAISE multiple_lines.
ENDIF.
ELSE.
RAISE no_parameter_date.
ENDIF.
ENDIF.
endmethod.
----------------------------------------------------------------------------------------------------
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCI_CARREGA_DAI
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCIGF11
TEXTO BREVE: Carrega a Função transfer_dai
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(X) - INÍCIO IMEDIATO
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA
I_NRSEQDI TYPE /PWS/ZYCIE085-NRSEQDI
I_TPDI TYPE /PWS/ZYCIE085-TPDI
* TEXTO FONTE:
FUNCTION /pws/zyci_carrega_dai.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(I_NRSEQDI) TYPE /PWS/ZYCIE085-NRSEQDI
*" REFERENCE(I_TPDI) TYPE /PWS/ZYCIE085-TPDI
*"----------------------------------------------------------------------
* Estruturas e Tabelas para a RFC
*"----------------------------------------------------------------------
DATA: t_adicao TYPE /pws/zycie515t,
t_adicao_item TYPE /pws/zycie516t,
t_lacre TYPE /pws/zycie517 OCCURS 0 WITH HEADER LINE.
DATA: wa_adicao TYPE LINE OF /pws/zycie515t,
wa_adicao_item TYPE LINE OF /pws/zycie516t,
e_di TYPE /pws/zycie514.
*"----------------------------------------------------------------------
* TABELAS
*"----------------------------------------------------------------------
DATA: it_001 TYPE /pws/zycie001 OCCURS 0 WITH HEADER LINE,
it_049 TYPE /pws/zycie049 OCCURS 0 WITH HEADER LINE,
it_520 TYPE /pws/zycit520 OCCURS 0 WITH HEADER LINE,
it_523 TYPE /pws/zycit523 OCCURS 0 WITH HEADER LINE,
itab_116 TYPE /pws/zycit116 OCCURS 0 WITH HEADER LINE,
it_055 TYPE /pws/zycit055 OCCURS 0 WITH HEADER LINE,
it_078 TYPE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
t_despesas TYPE /pws/zycie123b OCCURS 0 WITH HEADER LINE.
*"----------------------------------------------------------------------
* WORK-AREA
*"----------------------------------------------------------------------
DATA: wa_t001w LIKE t001w,
wa_j_1bbranch LIKE j_1bbranch,
wa_197 LIKE /pws/zycit197,
wa_198 LIKE /pws/zycit198,
wa_289 LIKE /pws/zycit289,
wa_218 LIKE /pws/zycit218,
wa_219 LIKE /pws/zycit219,
wa_079 TYPE /pws/zycit079.
*"----------------------------------------------------------------------
* VARIÁVEIS
*"----------------------------------------------------------------------
DATA: s_tax TYPE /pws/zycie085-ukursfob,
v_vlantid TYPE /pws/zycit100-vlantid,
v_lin TYPE i,
v_cide TYPE /pws/zycit049-vlreal,
v_multas TYPE /pws/zycit049-vlreal,
v_diversas TYPE /pws/zycit049-vlreal,
v_capataz TYPE /pws/zycit049-vlreal,
v_cgc LIKE j_1bwfield-cgc_number,
v_vlusd LIKE /pws/zycie085-vlfob.
*"----------------------------------------------------------------------
CALL FUNCTION '/PWS/ZYCI_TRANSFER_DI'
EXPORTING
i_nrseqdi = i_nrseqdi
i_tpdi = i_tpdi
TABLES
it_cabecalho_di = it_cabecalho_di
it_itens_di = it_itens_di
it_det_itens_di = it_det_itens_di
it_inst_desp_di = it_inst_desp_di
it_proc_vinc_di = it_proc_vinc_di
it_volumes_di = it_volumes_di
it_armazens_di = it_armazens_di
it_deb_cta_di = it_deb_cta_di
it_doc_vinc_di = it_doc_vinc_di
it_prest_cta_di = it_prest_cta_di
it_acresc_sisco = it_acresc_sisco
it_deduc_sisco = it_deduc_sisco
it_adicao_di = it_adicao_di
it_pagtos_di = it_pagtos_di
it_parc_var_di = it_parc_var_di
it_nomencl_di = it_nomencl_di
it_t005_di = it_t005_di
it_urf_desp_di = it_urf_desp_di
it_resumoit_di = it_resumoit_di
it_bl_di = it_bl_di
it_faturas_di = it_faturas_di
it_ag_faturas = it_ag_faturas
it_compl_di = it_compl_di
it_destncm = it_destncm
it_forn = it_forn
it_destaque = it_destaque
it_200 = it_200
it_merc_cab = it_merc_cab
it_merc_ad = it_merc_ad.
* Seleciona os embarques
IF NOT it_itens_di[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE it_001
FOR ALL ENTRIES IN it_itens_di
WHERE nrseq EQ it_itens_di-nrseq.
ENDIF.
* PEXPAM
IF NOT it_det_itens_di[] IS INITIAL.
SELECT * FROM /pws/zycit078 INTO TABLE it_078
FOR ALL ENTRIES IN it_det_itens_di
WHERE flagpli = 'X'
AND nrpli = it_det_itens_di-nrli.
ENDIF.
* CI - Cab. Adições
IF NOT it_adicao_di IS INITIAL.
SELECT * FROM /pws/zycit116 INTO TABLE itab_116
FOR ALL ENTRIES IN it_adicao_di
WHERE nrseqdi = it_adicao_di-nrseqdi
AND adicao = it_adicao_di-adicao.
ENDIF.
* Código Tributação
IF NOT itab_116[] IS INITIAL.
SELECT * FROM /pws/zycit523 INTO TABLE it_523
FOR ALL ENTRIES IN itab_116
WHERE codigo = itab_116-tributacao.
ENDIF.
* Seleciona as despesas
SELECT * FROM /pws/zycit049 INTO TABLE it_049
WHERE nrseq EQ i_nrseqdi AND
vldp NE 0.
* DAI - Despesas X Layout
SELECT * FROM /pws/zycit520 INTO TABLE it_520.
* Centros/filiais
READ TABLE it_det_itens_di INDEX 1.
SELECT SINGLE * FROM t001w INTO wa_t001w
WHERE werks EQ it_det_itens_di-werks.
READ TABLE it_001 INDEX 1.
READ TABLE it_cabecalho_di INDEX 1.
CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
EXPORTING
branch = it_cabecalho_di-j_1bbranch
bukrs = it_cabecalho_di-bukrs
IMPORTING
cgc_number = v_cgc
branch_data = wa_j_1bbranch
EXCEPTIONS
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
* GL - Parâmetros Gerais Câmbio
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ it_cabecalho_di-bukrs.
* Rateio das Despesas
CALL METHOD /pws/cl_zyci_rateio_despesas=>rateio_despesas
EXPORTING
nrseqdi = i_nrseqdi
CHANGING
despesas = t_despesas[].
*"----------------------------------------------------------------------
* Registro tipo 01 - Dados da DI
*"----------------------------------------------------------------------
* Tipo de DI
IF it_001-tpdecl EQ 'DSI'.
e_di-regime = '08'.
ELSEIF it_001-regime EQ '06'.
e_di-regime = '01'.
ELSEIF it_001-regime EQ '01'.
e_di-regime = '02'.
ELSEIF it_001-regime EQ '03'.
e_di-regime = '03'.
ELSEIF it_001-regime EQ '15'.
e_di-regime = '04'.
ELSEIF it_001-regime EQ '05'.
e_di-regime = '05'.
ELSEIF it_001-regime EQ '12'.
e_di-regime = '06'.
ELSEIF it_001-regime EQ '13'.
e_di-regime = '07'.
ENDIF.
* Número do Documento
e_di-nrdi = it_cabecalho_di-nrdi.
* Data do Documento
e_di-dtreg = it_cabecalho_di-dtreg.
* Retificação
IF it_cabecalho_di-retif IS INITIAL.
e_di-retif = '0'.
ELSE.
e_di-retif = '1'.
ENDIF.
* Valor FOB
IF it_cabecalho_di-waersfob EQ wa_zycbt007-waersa.
e_di-vlfob = it_cabecalho_di-vlfob * 100.
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_cabecalho_di-vlfob.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_cabecalho_di-waersfob
wa_zycbt007-waersa
CHANGING v_vlusd.
e_di-vlfob = v_vlusd * 100.
ENDIF.
* Valor FRETE
IF it_cabecalho_di-waersfre EQ wa_zycbt007-waersa.
e_di-vlfre = it_cabecalho_di-vlfre * 100.
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_cabecalho_di-vlfre.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_cabecalho_di-waersfre
wa_zycbt007-waersa
CHANGING v_vlusd.
e_di-vlfre = v_vlusd * 100.
ENDIF.
* Valor SEGURO
IF it_cabecalho_di-waersseg EQ wa_zycbt007-waersa.
e_di-vlseg = it_cabecalho_di-vlseg * 100.
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_cabecalho_di-vlseg.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_cabecalho_di-waersseg
wa_zycbt007-waersa
CHANGING v_vlusd.
e_di-vlseg = v_vlusd * 100.
ENDIF.
* Valor II
e_di-vlii = it_cabecalho_di-vlii * 100.
* Valor IPI
e_di-vlipi = it_cabecalho_di-vlipi * 100.
* Valor PIS + COFINS
e_di-vlpis_cofins = ( it_cabecalho_di-vlpis + it_cabecalho_di-vlcofins
) * 100.
* Valor Antidumping
CLEAR: v_vlantid.
LOOP AT it_itens_di.
v_vlantid = v_vlantid + ( it_itens_di-baseantid *
( it_itens_di-antidrate / 100 ) ) + ( it_itens_di-vlantid *
it_itens_di-qtdeantid ).
ENDLOOP.
e_di-vlantid = v_vlantid * 100.
* Valor CIDE, Multas/Juros, Taxas diversas e Capatazia
CLEAR: v_cide, v_multas, v_diversas, v_capataz.
LOOP AT it_049.
READ TABLE it_520 WITH KEY tpdesp = it_049-tpdesp.
IF sy-subrc EQ 0.
CASE it_520-identific.
WHEN '1'. "CIDE
v_cide = v_cide + it_049-vlreal.
WHEN '2'. "Multas / Juros
v_multas = v_multas + it_049-vlreal.
WHEN '3'. "Taxas
v_diversas = v_diversas + it_049-vlreal.
WHEN '4'. "Capatazia
v_capataz = v_capataz + it_049-vlreal.
ENDCASE.
ENDIF.
ENDLOOP.
e_di-vlcide = v_cide * 100.
e_di-vlmulta_jur = v_multas * 100.
e_di-vltaxasd = v_diversas * 100.
e_di-vltaxasc = v_capataz * 100.
* UF
* Código IBGE
SELECT SINGLE counc FROM t005e INTO t005e-counc
WHERE land1 = wa_t001w-land1
AND regio = wa_t001w-regio.
IF sy-subrc = 0.
e_di-uf = t005e-counc.
ELSE.
e_di-uf = wa_t001w-regio.
ENDIF.
* Taxa do Dólar
e_di-ukursfob = it_cabecalho_di-ukursfob * 10000.
* Peso Líquido
e_di-peso = it_cabecalho_di-ntgew * 100000.
* Código do Recinto Aduaneiro SEFAZ-AM
e_di-recalf = it_cabecalho_di-recalf.
* Código do País de procedência
e_di-land = it_cabecalho_di-land.
* Quantidade de adições
DESCRIBE TABLE it_adicao_di LINES v_lin.
e_di-adicao = v_lin.
* Informações Complementares
SORT it_200 BY seq.
LOOP AT it_200.
CONCATENATE e_di-info_compl it_200-linha INTO e_di-info_compl
SEPARATED BY space.
ENDLOOP.
*"----------------------------------------------------------------------
* Registro tipo 02 - Dados das Adições da DI
*"----------------------------------------------------------------------
LOOP AT it_adicao_di.
CLEAR: wa_adicao.
READ TABLE itab_116 WITH KEY nrseqdi = it_adicao_di-nrseqdi
adicao = it_adicao_di-adicao.
* Número da Adição
wa_adicao-adicao = it_adicao_di-adicao.
* Tipo do Importador
wa_adicao-tp_imp = '1'.
* Código do importador - inscrição estadual
wa_adicao-cod_imp = wa_j_1bbranch-state_insc.
* Nome do importador
wa_adicao-n_imp = wa_j_1bbranch-name.
* Fornecedor
READ TABLE it_forn WITH KEY nrseqdi = it_adicao_di-nrseqdi
adicao = it_adicao_di-adicao.
IF sy-subrc EQ 0.
wa_adicao-fornecedor = it_forn-forn_name1.
ENDIF.
* Destinação
wa_adicao-destinacao = itab_116-destinacao.
* Utilização
wa_adicao-utilizacao = itab_116-utilizacao.
LOOP AT it_itens_di WHERE nrseqdi = it_adicao_di-nrseqdi
AND adicao = it_adicao_di-adicao.
* Código Suframa e NCM do produto a ser fabricado
READ TABLE it_078 WITH KEY nrpli = it_det_itens_di-nrli.
IF sy-subrc EQ 0 AND it_078-aplicpli EQ '4'.
SELECT SINGLE * FROM /pws/zycit197 INTO wa_197
WHERE nrproc = it_078-numpexpam
AND anoproc = it_078-anopexpam.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit198 INTO wa_198
WHERE nrseqp = wa_197-nrseqp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit289 INTO wa_289
WHERE matcod = wa_198-codmat
AND plant = wa_198-werks
AND bom_usage = wa_198-stlan
AND bom = wa_198-stlnr
AND altbom = wa_198-stlal.
IF sy-subrc EQ 0.
wa_adicao-suframa = wa_289-codprod.
SELECT SINGLE * FROM /pws/zycit218 INTO wa_218
WHERE codigo = wa_289-codprod.
IF sy-subrc EQ 0.
wa_adicao-ncm = wa_218-steuc.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* Valor FOB
IF it_itens_di-waersbem EQ wa_zycbt007-waersa.
wa_adicao-vlfob = wa_adicao-vlfob + ( it_itens_di-vlfob * 100 ).
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_itens_di-vlfob.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_itens_di-waersbem
wa_zycbt007-waersa
CHANGING v_vlusd.
wa_adicao-vlfob = wa_adicao-vlfob + ( v_vlusd * 100 ).
ENDIF.
* Valor FRETE
IF it_cabecalho_di-waersfre EQ wa_zycbt007-waersa.
wa_adicao-vlfre = wa_adicao-vlfre + ( it_itens_di-vlfre * 100 ).
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_itens_di-vlfre.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_cabecalho_di-waersfre
wa_zycbt007-waersa
CHANGING v_vlusd.
wa_adicao-vlfre = wa_adicao-vlfre + ( v_vlusd * 100 ).
ENDIF.
* Valor SEGURO
IF it_cabecalho_di-waersseg EQ wa_zycbt007-waersa.
wa_adicao-vlseg = wa_adicao-vlseg + ( it_itens_di-vlseg * 100 ).
ELSE.
CLEAR: v_vlusd.
v_vlusd = it_itens_di-vlseg.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_cabecalho_di-waersseg
wa_zycbt007-waersa
CHANGING v_vlusd.
wa_adicao-vlseg = wa_adicao-vlseg + ( v_vlusd * 100 ).
ENDIF.
* Valor Antidumping
IF NOT it_itens_di-baseantid IS INITIAL.
wa_adicao-vlantid = wa_adicao-vlantid +
( ( it_itens_di-baseantid * ( it_itens_di-antidrate / 100 ) ) *
100 ).
ELSEIF NOT it_itens_di-qtdeantid IS INITIAL.
wa_adicao-vlantid = wa_adicao-vlantid +
( ( it_itens_di-vlantid * it_itens_di-qtdeantid ) * 100 ).
ENDIF.
* Peso Líquido
READ TABLE it_det_itens_di WITH KEY ebeln = it_itens_di-ebeln
ebelp = it_itens_di-ebelp.
IF sy-subrc EQ 0.
wa_adicao-peso = ( it_det_itens_di-ntgew * 100000 ) +
wa_adicao-peso.
ENDIF.
ENDLOOP.
* Valor do II a recolher
wa_adicao-vlii = it_adicao_di-ii_recolher * 100.
* Valor do IPI a recolher
wa_adicao-vlipi = it_adicao_di-ipi_recolher * 100.
* Valor do PIS + COFINS a recolher
wa_adicao-vlpis_cofins = ( it_adicao_di-pis_recolher +
it_adicao_di-cofi_recolher ) * 100.
* Valor CIDE, Multas/Juros, Taxas diversas e Capatazia
CLEAR: v_cide, v_multas, v_diversas, v_capataz.
LOOP AT t_despesas WHERE nrseqdi = it_adicao_di-nrseqdi
AND adicao = it_adicao_di-adicao.
READ TABLE it_520 WITH KEY tpdesp = t_despesas-codigo.
IF sy-subrc EQ 0.
CASE it_520-identific.
WHEN '1'. "CIDE
v_cide = v_cide + t_despesas-vldp.
WHEN '2'. "Multas / Juros
v_multas = v_multas + t_despesas-vldp.
WHEN '3'. "Taxas
v_diversas = v_diversas + t_despesas-vldp.
WHEN '4'. "Capatazia
v_capataz = v_capataz + t_despesas-vldp.
ENDCASE.
ENDIF.
ENDLOOP.
wa_adicao-vlcide = v_cide * 100.
wa_adicao-vlmulta_jur = v_multas * 100.
wa_adicao-vltaxasd = v_diversas * 100.
wa_adicao-vltaxasc = v_capataz * 100.
* Taxa do Dólar
wa_adicao-ukursfob = it_cabecalho_di-ukursfob * 10000.
* Código Tributação
wa_adicao-cod_trib = itab_116-tributacao.
* BC_ICMS
wa_adicao-vlbc_icms = wa_adicao-vlfob + wa_adicao-vlfre +
wa_adicao-vlseg +
wa_adicao-vlii + wa_adicao-vlipi +
wa_adicao-vlpis_cofins +
wa_adicao-vlcide + wa_adicao-vlantid +
wa_adicao-vlmulta_jur +
wa_adicao-vltaxasd.
* CM - coeficiente de multiplicação
READ TABLE it_523 WITH KEY codigo = itab_116-tributacao.
IF sy-subrc EQ 0.
wa_adicao-vlcm = it_523-cm * 100000.
ENDIF.
* ICMS
wa_adicao-vlicms = ( wa_adicao-vlbc_icms * wa_adicao-vlcm ) * 100.
* Número da DI de Admissão Temporária
IF e_di-regime = '07'.
* WA_ADICAO-NR_DI_ADT = ???
ENDIF.
* EIZOF - não tratamos EIZOF no PWCE
* WA_ADICAO-NR_DI_EIZOF = ???
*"----------------------------------------------------------------------
* Registro tipo 03 - Dados do item das Adições da DI
*"----------------------------------------------------------------------
CLEAR: v_vlusd, wa_adicao_item.
LOOP AT it_itens_di WHERE nrseqdi = it_adicao_di-nrseqdi
AND adicao = it_adicao_di-adicao.
wa_adicao_item-numitem = it_itens_di-item_adi_sisc.
wa_adicao_item-adicao = it_itens_di-adicao.
wa_adicao_item-descr_m = it_itens_di-especificacao.
IF it_itens_di-waersbem EQ wa_zycbt007-waersa.
v_vlusd = it_itens_di-vlfob.
wa_adicao_item-vltotal = wa_adicao_item-vltotal + (
it_itens_di-vlfob * 100 ).
ELSE.
v_vlusd = it_itens_di-vlfob.
PERFORM calc_conv_moeda(/pws/sapmzyci023)
USING it_itens_di-waersbem
wa_zycbt007-waersa
CHANGING v_vlusd.
wa_adicao_item-vltotal = wa_adicao_item-vltotal + ( v_vlusd *
100 ).
ENDIF.
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.
IF it_det_itens_di-qtd_itend IS INITIAL.
it_det_itens_di-qtd_itend = it_det_itens_di-qtd_iten.
ENDIF.
wa_adicao_item-ncm = it_det_itens_di-j_1bnbm.
wa_adicao_item-qtde = wa_adicao_item-qtde + (
it_det_itens_di-qtd_itend * 100000 ).
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = it_det_itens_di-meins
language = 'P'
IMPORTING
output = wa_adicao_item-un
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
wa_adicao_item-vlunit = wa_adicao_item-vlunit +
( v_vlusd / it_det_itens_di-qtd_itend ) * 10000000.
READ TABLE it_078 WITH KEY nrpli = it_det_itens_di-nrli.
IF sy-subrc EQ 0.
CONCATENATE it_078-numpexpam+1(7) it_078-anopexpam+2(2)
INTO wa_adicao_item-pexpam.
IF it_078-aplicpli EQ '4'.
SELECT SINGLE * FROM /pws/zycit079 INTO wa_079
WHERE nrseqli = it_078-nrseqli
AND tpli = it_078-tpli
AND ebeln = it_itens_di-ebeln
AND ebelp = it_itens_di-ebelp.
IF sy-subrc EQ 0.
wa_adicao_item-destncm = wa_079-destaque.
SELECT SINGLE * FROM /pws/zycit219 INTO wa_219
WHERE codigo = wa_079-codsufra
AND ncm = wa_079-ncm
AND destaque = wa_079-destaque.
IF sy-subrc EQ 0.
wa_adicao_item-descr_s = wa_219-descricao.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
APPEND wa_adicao_item TO t_adicao_item.
ENDLOOP.
wa_adicao-item = t_adicao_item.
CLEAR t_adicao_item.
APPEND wa_adicao TO t_adicao.
ENDLOOP.
*"----------------------------------------------------------------------
* Registro tipo 04 - Dados do Lacre
*"----------------------------------------------------------------------
* Tipo de Veículo / Identificação do Veículo / Número do Lacre
IF it_001-meioemba EQ 'RD'.
t_lacre-tp_veiculo = 1.
t_lacre-id_veiculo = it_bl_di-placa.
APPEND t_lacre.
ELSE.
t_lacre-tp_veiculo = 2.
IF NOT it_bl_di[] IS INITIAL.
SELECT * FROM /pws/zycit055 INTO TABLE it_055
FOR ALL ENTRIES IN it_bl_di
WHERE nrseq = it_bl_di-nrseqce.
LOOP AT it_055.
t_lacre-id_veiculo = it_055-nrcontainer.
t_lacre-lacre = it_055-lacre.
APPEND t_lacre.
ENDLOOP.
ENDIF.
ENDIF.
*"----------------------------------------------------------------------
* RFC
*"----------------------------------------------------------------------
CALL FUNCTION '/PWS/ZYCI_TRANSFER_DAI'
DESTINATION 'ZYCIENVIADAI'
EXPORTING
i_di = e_di
t_adicao = t_adicao
TABLES
t_lacre = t_lacre
EXCEPTIONS
call_function_remote_error = 1
OTHERS = 2.
ENDFUNCTION.
* DECLARAR AS SEGUINTES TABELAS NO INCLUDE /PWS/LZYCIGF11TOP
FUNCTION-POOL /pws/zycigf11. "MESSAGE-ID ..
TABLES t005e.
DATA: wa_zycbt007 LIKE /pws/zycbt007.
DATA BEGIN OF it_cabecalho_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie085.
DATA END OF it_cabecalho_di.
DATA BEGIN OF it_itens_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycit100.
DATA END OF it_itens_di.
DATA BEGIN OF it_det_itens_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie003.
DATA END OF it_det_itens_di.
DATA BEGIN OF it_inst_desp_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie086.
DATA END OF it_inst_desp_di.
DATA BEGIN OF it_proc_vinc_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie087.
DATA END OF it_proc_vinc_di.
DATA BEGIN OF it_volumes_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie014.
DATA END OF it_volumes_di.
DATA BEGIN OF it_armazens_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie096.
DATA END OF it_armazens_di.
DATA BEGIN OF it_deb_cta_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie095.
DATA END OF it_deb_cta_di.
DATA BEGIN OF it_doc_vinc_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie115a.
DATA END OF it_doc_vinc_di.
DATA BEGIN OF it_prest_cta_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie049.
DATA END OF it_prest_cta_di.
DATA BEGIN OF it_acresc_sisco OCCURS 10.
INCLUDE STRUCTURE /pws/zycie122a.
DATA END OF it_acresc_sisco.
DATA BEGIN OF it_deduc_sisco OCCURS 10.
INCLUDE STRUCTURE /pws/zycie123a.
DATA END OF it_deduc_sisco.
DATA BEGIN OF it_adicao_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie116a.
DATA END OF it_adicao_di.
DATA BEGIN OF it_pagtos_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie121.
DATA END OF it_pagtos_di.
DATA BEGIN OF it_parc_var_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie124.
DATA END OF it_parc_var_di.
DATA BEGIN OF it_nomencl_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie118.
DATA END OF it_nomencl_di.
DATA BEGIN OF it_t005_di OCCURS 10.
INCLUDE STRUCTURE t005.
DATA END OF it_t005_di.
DATA BEGIN OF it_urf_desp_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycet132.
DATA END OF it_urf_desp_di.
DATA BEGIN OF it_resumoit_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie100t.
DATA END OF it_resumoit_di.
DATA BEGIN OF it_bl_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie093.
DATA END OF it_bl_di.
DATA BEGIN OF it_faturas_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie006.
DATA END OF it_faturas_di.
DATA BEGIN OF it_ag_faturas OCCURS 10.
INCLUDE STRUCTURE /pws/zycie126.
DATA END OF it_ag_faturas.
DATA BEGIN OF it_compl_di OCCURS 10.
INCLUDE STRUCTURE /pws/zycie085t.
DATA END OF it_compl_di.
DATA BEGIN OF it_destncm OCCURS 10.
INCLUDE STRUCTURE /pws/zycie100b.
DATA END OF it_destncm.
DATA BEGIN OF it_forn OCCURS 10.
INCLUDE STRUCTURE /pws/zycie080t.
DATA END OF it_forn.
DATA BEGIN OF it_destaque OCCURS 10.
INCLUDE STRUCTURE /pws/zycie114.
DATA END OF it_destaque.
DATA BEGIN OF it_200 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit200.
DATA END OF it_200.
DATA BEGIN OF it_merc_cab OCCURS 10.
INCLUDE STRUCTURE /pws/zycit486.
DATA END OF it_merc_cab.
DATA BEGIN OF it_merc_ad OCCURS 10.
INCLUDE STRUCTURE /pws/zycit485.
DATA END OF it_merc_ad.
----------------------------------------------------------------------------------------------------
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCI_TRANSFER_DAI
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCIGF11
TEXTO BREVE: DAI - Declaração Amazonense de Importação
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE ACESSO REMOTO
(X) - INÍCIO IMEDIATO
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA
I_DI TYPE /PWS/ZYCIE514
T_ADICAO TYPE /PWS/ZYCIE515T
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
T_LACRE LIKE /PWS/ZYCIE517
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
CALL_FUNCTION_REMOTE_ERROR
* TEXTO FONTE
FUNCTION /PWS/ZYCI_TRANSFER_DAI.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" VALUE(I_DI) TYPE /PWS/ZYCIE514
*" VALUE(T_ADICAO) TYPE /PWS/ZYCIE515T
*" TABLES
*" T_LACRE STRUCTURE /PWS/ZYCIE517
*" EXCEPTIONS
*" CALL_FUNCTION_REMOTE_ERROR
*"----------------------------------------------------------------------
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCI_TRANSFER_DAI_MATRIZ
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCIGF11
TEXTO BREVE: DAI - XML do Arquivo Matriz
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE ACESSO REMOTO
(X) - INÍCIO IMEDIATO
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
T_MATRIZ LIKE /PWS/ZYCIE518
T_MATRIZ_ITEM LIKE /PWS/ZYCIE519
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
CALL_FUNCTION_REMOTE_ERROR
* TEXTO FONTE
FUNCTION /PWS/ZYCI_TRANSFER_DAI_MATRIZ.
*"----------------------------------------------------------------------
*"*"Interface local:
*" TABLES
*" T_MATRIZ STRUCTURE /PWS/ZYCIE518
*" T_MATRIZ_ITEM STRUCTURE /PWS/ZYCIE519
*" EXCEPTIONS
*" CALL_FUNCTION_REMOTE_ERROR
*"----------------------------------------------------------------------
ENDFUNCTION.