CE PLUS - Nota 013381
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 06/12/2013 08:51:45
Data/Hora Última Alteração: 06/12/2013 08:58:52
Descrição da Nota: AUTOMATIZAÇÃO DO TIPO DE NOTA NO EMBARQUE E NA NOTA GLOBAL
Sintoma
Desenvolvimento Adicional.
Nova tabela de parametro para configurar o tipo de nota fiscal.
Solução
Criar uma nova tabela para parametrizar o tipo de nota de acordo com a Utilização do Material,
regime do embarque, IPI, PIS, COFINS, ICMS, DRAWBACK, FUNDAP, Cobertura cambial e Crédito de ICMS.
Se esta tabela novo tiver somente um registro, significa que o programa deve buscar a configuração
nela, se ela estiver vazia fazer a busca antiga - pela tabela /pws/zycit012.
No embarque utilizar a configuração nova somente depois que a DI estiver criada.
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13381 Data: 05/11/2013 Hora: 13:45:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13381
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
AUTOMATIZAÇÃO DO TIPO DE NOTA NO EMBARQUE E NA NOTA GLOBAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIT537 - DETERM. AUTOMÁTICA DO TIPO DE NF AMPLIADA
TPNF - TIPO DE NOTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCID961
DOMA /PWS/ZYCID962
DOMA /PWS/ZYCID960
DOMA /PWS/ZYCID959
DTEL /PWS/ZYCIL963
DTEL /PWS/ZYCIL962
DTEL /PWS/ZYCIL959
DTEL /PWS/ZYCIL960
DTEL /PWS/ZYCIL966
DTEL /PWS/ZYCIL965
DTEL /PWS/ZYCIL964
DTEL /PWS/ZYCIL961
TABL /PWS/ZYCIT537
SHLP /PWS/ZYCIA665
FUGR /PWS/ZYCIGF1
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI016X01
REPS /PWS/MZYCI001X01
REPS /PWS/MZYCI016F01
TRAN /PWS/ZYCIT537
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID961
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID961
Descrição breve incluída (5 caracteres), idioma: EN
"Taxes"
Descrição breve incluída (8 caracteres), idioma: PT
"Impostos"
Descrição breve incluída (9 caracteres), idioma: ES
"Impuestos"
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: EN (6 caracteres):
"Normal"
Texto incluído, idioma: PT (6 caracteres):
"Normal"
Texto incluído, idioma: ES (6 caracteres):
"Normal"
Incluído valor fixo "2"
Texto incluído, idioma: EN (4 caracteres):
"Zero"
Texto incluído, idioma: PT (4 caracteres):
"Zero"
Texto incluído, idioma: ES (4 caracteres):
"Zero"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID962
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID962
Descrição breve incluída (4 caracteres), idioma: EN
"ICMS"
Descrição breve incluída (4 caracteres), idioma: PT
"ICMS"
Descrição breve incluída (4 caracteres), idioma: ES
"ICMS"
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: EN (6 caracteres):
"Normal"
Texto incluído, idioma: PT (6 caracteres):
"Normal"
Texto incluído, idioma: ES (6 caracteres):
"Normal"
Incluído valor fixo "2"
Texto incluído, idioma: EN (4 caracteres):
"Zero"
Texto incluído, idioma: PT (4 caracteres):
"Zero"
Texto incluído, idioma: ES (4 caracteres):
"Zero"
Incluído valor fixo "3"
Texto incluído, idioma: EN (8 caracteres):
"Differed"
Texto incluído, idioma: PT (8 caracteres):
"Diferido"
Texto incluído, idioma: ES (8 caracteres):
"Diferido"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID960
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID960
Descrição breve incluída (8 caracteres), idioma: EN
"Drawback"
Descrição breve incluída (8 caracteres), idioma: PT
"Drawback"
Descrição breve incluída (8 caracteres), idioma: ES
"Drawback"
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: EN (10 caracteres):
"Suspension"
Texto incluído, idioma: PT (9 caracteres):
"Suspensão"
Texto incluído, idioma: ES (10 caracteres):
"Suspensión"
Incluído valor fixo "2"
Texto incluído, idioma: EN (6 caracteres):
"Exempt"
Texto incluído, idioma: PT (7 caracteres):
"Isenção"
Texto incluído, idioma: ES (8 caracteres):
"Exención"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID959
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID959
Descrição breve incluída (33 caracteres), idioma: EN
"Tax Options and Exchange Coverage"
Descrição breve incluída (39 caracteres), idioma: PT
"Opções dos Impostos e Cobertura Cambial"
Descrição breve incluída (32 caracteres), idioma: ES
"Opciones fiscales y de cobertura"
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: EN (4 caracteres):
"With"
Texto incluído, idioma: PT (3 caracteres):
"Com"
Texto incluído, idioma: ES (3 caracteres):
"Con"
Incluído valor fixo "2"
Texto incluído, idioma: EN (7 caracteres):
"Without"
Texto incluído, idioma: PT (3 caracteres):
"Sem"
Texto incluído, idioma: ES (2 caracteres):
"No"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL963
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL963
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (4 caracteres), idioma: EN
"ICMS"
Descrição breve incluída: (4 caracteres), idioma: PT
"ICMS"
Descrição breve incluída: (4 caracteres), idioma: ES
"ICMS"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID962
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 (4 caracteres), idioma: EN
"ICMS"
Denominador breve incluído (4 caracteres), idioma: PT
"ICMS"
Denominador breve incluído (4 caracteres), idioma: ES
"ICMS"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (4 caracteres), idioma: EN
"ICMS"
Denominador médio incluído (4 caracteres), idioma: PT
"ICMS"
Denominador médio incluído (4 caracteres), idioma: ES
"ICMS"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (4 caracteres), idioma: EN
"ICMS"
Denominador longo incluído (4 caracteres), idioma: PT
"ICMS"
Denominador longo incluído (4 caracteres), idioma: ES
"ICMS"
Comprimento máximo do título: 04
Título incluído (4 caracteres), idioma: EN
"ICMS"
Título incluído (4 caracteres), idioma: PT
"ICMS"
Título incluído (4 caracteres), idioma: ES
"ICMS"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL962
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL962
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: EN
"COFINS"
Descrição breve incluída: (6 caracteres), idioma: PT
"COFINS"
Descrição breve incluída: (6 caracteres), idioma: ES
"COFINS"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID961
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: EN
"COFINS"
Denominador breve incluído (6 caracteres), idioma: PT
"COFINS"
Denominador breve incluído (6 caracteres), idioma: ES
"COFINS"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: EN
"COFINS"
Denominador médio incluído (6 caracteres), idioma: PT
"COFINS"
Denominador médio incluído (6 caracteres), idioma: ES
"COFINS"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: EN
"COFINS"
Denominador longo incluído (6 caracteres), idioma: PT
"COFINS"
Denominador longo incluído (6 caracteres), idioma: ES
"COFINS"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: EN
"COFINS"
Título incluído (6 caracteres), idioma: PT
"COFINS"
Título incluído (6 caracteres), idioma: ES
"COFINS"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL959
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL959
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (3 caracteres), idioma: EN
"IPI"
Descrição breve incluída: (3 caracteres), idioma: PT
"IPI"
Descrição breve incluída: (3 caracteres), idioma: ES
"IPI"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID961
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: EN
"IPI"
Denominador breve incluído (3 caracteres), idioma: PT
"IPI"
Denominador breve incluído (3 caracteres), idioma: ES
"IPI"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (3 caracteres), idioma: EN
"IPI"
Denominador médio incluído (3 caracteres), idioma: PT
"IPI"
Denominador médio incluído (3 caracteres), idioma: ES
"IPI"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (3 caracteres), idioma: EN
"IPI"
Denominador longo incluído (3 caracteres), idioma: PT
"IPI"
Denominador longo incluído (3 caracteres), idioma: ES
"IPI"
Comprimento máximo do título: 03
Título incluído (3 caracteres), idioma: EN
"IPI"
Título incluído (3 caracteres), idioma: PT
"IPI"
Título incluído (3 caracteres), idioma: ES
"IPI"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL960
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL960
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (8 caracteres), idioma: EN
"Drawback"
Descrição breve incluída: (8 caracteres), idioma: PT
"Drawback"
Descrição breve incluída: (8 caracteres), idioma: ES
"Drawback"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID960
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: EN
"Drawback"
Denominador breve incluído (8 caracteres), idioma: PT
"Drawback"
Denominador breve incluído (8 caracteres), idioma: ES
"Drawback"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (8 caracteres), idioma: EN
"Drawback"
Denominador médio incluído (8 caracteres), idioma: PT
"Drawback"
Denominador médio incluído (8 caracteres), idioma: ES
"Drawback"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (8 caracteres), idioma: EN
"Drawback"
Denominador longo incluído (8 caracteres), idioma: PT
"Drawback"
Denominador longo incluído (8 caracteres), idioma: ES
"Drawback"
Comprimento máximo do título: 08
Título incluído (8 caracteres), idioma: EN
"Drawback"
Título incluído (8 caracteres), idioma: PT
"Drawback"
Título incluído (8 caracteres), idioma: ES
"Drawback"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL966
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL966
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: EN
"Fundap"
Descrição breve incluída: (6 caracteres), idioma: PT
"Fundap"
Descrição breve incluída: (6 caracteres), idioma: ES
"Fundap"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID959
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: EN
"Fundap"
Denominador breve incluído (6 caracteres), idioma: PT
"Fundap"
Denominador breve incluído (6 caracteres), idioma: ES
"Fundap"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: EN
"Fundap"
Denominador médio incluído (6 caracteres), idioma: PT
"Fundap"
Denominador médio incluído (6 caracteres), idioma: ES
"Fundap"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: EN
"Fundap"
Denominador longo incluído (6 caracteres), idioma: PT
"Fundap"
Denominador longo incluído (6 caracteres), idioma: ES
"Fundap"
Comprimento máximo do título: 06
Título incluído (6 caracteres), idioma: EN
"Fundap"
Título incluído (6 caracteres), idioma: PT
"Fundap"
Título incluído (6 caracteres), idioma: ES
"Fundap"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL965
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL965
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (17 caracteres), idioma: EN
"Exchange Covering"
Descrição breve incluída: (17 caracteres), idioma: PT
"Cobertura Cambial"
Descrição breve incluída: (17 caracteres), idioma: ES
"Cobertura Cambial"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID959
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: EN
"Ex.Cover."
Denominador breve incluído (10 caracteres), idioma: PT
"C. Cambial"
Denominador breve incluído (10 caracteres), idioma: ES
"C. Cambial"
Comprimento máximo do denominador médio: 17
Denominador médio incluído (17 caracteres), idioma: EN
"Exchange Covering"
Denominador médio incluído (17 caracteres), idioma: PT
"Cobertura Cambial"
Denominador médio incluído (17 caracteres), idioma: ES
"Cobertura Cambial"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (17 caracteres), idioma: EN
"Exchange Covering"
Denominador longo incluído (17 caracteres), idioma: PT
"Cobertura Cambial"
Denominador longo incluído (17 caracteres), idioma: ES
"Cobertura Cambial"
Comprimento máximo do título: 17
Título incluído (17 caracteres), idioma: EN
"Exchange Covering"
Título incluído (17 caracteres), idioma: PT
"Cobertura Cambial"
Título incluído (17 caracteres), idioma: ES
"Cobertura Cambial"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL964
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL964
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (6 caracteres), idioma: EN
"Credit"
Descrição breve incluída: (12 caracteres), idioma: PT
"Crédito ICMS"
Descrição breve incluída: (7 caracteres), idioma: ES
"Crédito"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID959
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: EN
"Credit"
Denominador breve incluído (10 caracteres), idioma: PT
"Créd. ICMS"
Denominador breve incluído (7 caracteres), idioma: ES
"Crédito"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (6 caracteres), idioma: EN
"Credit"
Denominador médio incluído (12 caracteres), idioma: PT
"Crédito ICMS"
Denominador médio incluído (7 caracteres), idioma: ES
"Crédito"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (6 caracteres), idioma: EN
"Credit"
Denominador longo incluído (12 caracteres), idioma: PT
"Crédito ICMS"
Denominador longo incluído (7 caracteres), idioma: ES
"Crédito"
Comprimento máximo do título: 12
Título incluído (6 caracteres), idioma: EN
"Credit"
Título incluído (12 caracteres), idioma: PT
"Crédito ICMS"
Título incluído (7 caracteres), idioma: ES
"Crédito"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL961
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL961
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Descrição breve incluída: (3 caracteres), idioma: EN
"PIS"
Descrição breve incluída: (3 caracteres), idioma: PT
"PIS"
Descrição breve incluída: (3 caracteres), idioma: ES
"PIS"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID961
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: EN
"PIS"
Denominador breve incluído (3 caracteres), idioma: PT
"PIS"
Denominador breve incluído (3 caracteres), idioma: ES
"PIS"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (3 caracteres), idioma: EN
"PIS"
Denominador médio incluído (3 caracteres), idioma: PT
"PIS"
Denominador médio incluído (3 caracteres), idioma: ES
"PIS"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (3 caracteres), idioma: EN
"PIS"
Denominador longo incluído (3 caracteres), idioma: PT
"PIS"
Denominador longo incluído (3 caracteres), idioma: ES
"PIS"
Comprimento máximo do título: 03
Título incluído (3 caracteres), idioma: EN
"PIS"
Título incluído (3 caracteres), idioma: PT
"PIS"
Título incluído (3 caracteres), idioma: ES
"PIS"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em Include: /PWS/LZYCIGF1TOP
FUNCTION-POOL /pws/zycigf1 MESSAGE-ID sv.
INCLUDE lsvimdat . "general data decl.
INCLUDE /pws/lzycigf1t00 . "view rel. data dcl.
* >> Início da inclusão
TYPES: BEGIN OF s_zycit537_total_line,
zycit537 TYPE /pws/zycit537,
vimflagtab TYPE vimflagtab,
END OF s_zycit537_total_line.
DATA: it_zycit537_total TYPE STANDARD TABLE OF s_zycit537_total_line.
* >> Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em Include: /PWS/LZYCIGF1OBS
* >> Início da inclusão
FORM grava_log_zycit537_del.
FIELD-SYMBOLS: <total_line> TYPE s_zycit537_total_line.
CHECK NOT v_log_trilha IS INITIAL.
LOCAL /pws/zycit537.
REFRESH it_zycit537_total[].
CHECK NOT total[] IS INITIAL.
LOOP AT total[] INTO total.
ASSIGN total TO <total_line> CASTING.
CASE <total_line>-vimflagtab-action.
WHEN'D'.
/pws/zycit537 = <total_line>-zycit537.
PERFORM carrega_log
USING
'/PWS/ZYCIT537'
'D'
'/PWS/ZYCIT537'
'/PWS/ZYCIT537'
space.
WHEN'U' OR'N'.
APPEND <total_line> TO it_zycit537_total[].
ENDCASE.
ENDLOOP.
ENDFORM.
FORM grava_log_zycit537_upd_ins.
FIELD-SYMBOLS: <total_line> TYPE s_zycit537_total_line.
CHECK NOT v_log_trilha IS INITIAL.
LOCAL /pws/zycit537.
CHECK NOT it_zycit537_total[] IS INITIAL.
LOOP AT it_zycit537_total[] ASSIGNING <total_line>.
CASE <total_line>-vimflagtab-action.
WHEN'N'.
/pws/zycit537 = <total_line>-zycit537.
PERFORM carrega_log
USING
'/PWS/ZYCIT537'
'I'
'/PWS/ZYCIT537'
'/PWS/ZYCIT537'
space.
WHEN'U'.
/pws/zycit537 = <total_line>-zycit537.
PERFORM carrega_log
USING
'/PWS/ZYCIT537'
'U'
'/PWS/ZYCIT537'
'/PWS/ZYCIT537'
space.
ENDCASE.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCIA665
* Criar a ajuda de pesquisa /PWS/ZYCIA665
Ajuda p/pesq.elem.: /PWS/ZYCIA665
Descrição breve: Tipo de nota
Classe de desenvolvimento: /PWS/ZYCI
Método de seleção: /PWS/ZYCIT018 Tipo de diálogo: Exibição de valores imediata
* Parametro EXP Posl Isel Elementos de dados
TPNF X 1 1 /PWS/ZYCIL108
DESCR X 2 2 /PWS/ZYCIL213
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT537
* Criar a tabela /PWS/ZYCIT537
Tabela transparente: /PWS/ZYCIT537
Descrição breve: Determ. Automática do Tipo de NF Amp
Classe desenvolvimento: /PWS/ZYCI
Classe de entrega: C
* Campos Chv Inic. Tipo de campo Tabela de Verificação Ajuda de pesquisa
MANDT X X MANDT T000 /PWS/ZYCIA665
TPNF X X /PWS/ZYCIL108 /PWS/ZYCIT018
J_1BMATUSE X X J_1BMATUSE
REGIME X X /PWS/ZYCIL062 /PWS/ZYCIT024
TPDECL X X /PWS/ZYCIL279
DESCR /PWS/ZYCIL213
IPI /PWS/ZYCIL959
PIS /PWS/ZYCIL961
COFINS /PWS/ZYCIL962
ICMS /PWS/ZYCIL963
CREDITO /PWS/ZYCIL964
COBERCAMB /PWS/ZYCIL965
DRAWBACK /PWS/ZYCIL960
FUNDAP /PWS/ZYCIL966
* Opções técnicas
Tipo de dados: APPL2
Categor.tamanho: 0
* Gerador de atualização de tabela
Grupo de autorização: ZYCE
Grupo de funções: /PWS/ZYCIGF1
Ctg.atualizacão: Nível único
Nº tela atualização: Tela de síntese: 537
* Ambiente/Modificação/Horas
01 GRAVA_LOG_ZYCIT537_DEL
02 GRAVA_LOG_ZYCIT537_UPD_INS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
SELECT SINGLE tpnf tpnf_ld tpnf_db tpnf_icms tpnf_fd INTO
CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
* >> Início da inclusão: FORM PROPOE_TIPONF
CLEAR: itab_zycit537, itab_zycit537[].
SELECT * FROM /pws/zycit537
INTO TABLE itab_zycit537.
IF NOT itab_zycit100[] IS INITIAL AND
NOT itab_zycit537[] IS INITIAL.
PERFORM tpnf_new.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
...
...
IF itab_zycit003-tpnf IS INITIAL.
itab_zycit003-tpnf = /pws/zycit012-tpnf.
* >> Início da inclusão: FORM PROPOE_TIPONF
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
* >> Início da inclusão:
FORM tpnf_new.
DATA : v_anln1 LIKE ekkn-anln1,
v_kostl LIKE anlz-kostl.
CLEAR: ekpo.
SELECT SINGLE * FROM ekpo
WHERE ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
CLEAR: mbew.
SELECT SINGLE * FROM mbew
WHERE matnr = ekpo-matnr
AND bwkey = ekpo-werks.
ENDIF.
READ TABLE itab_zycit100 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
CLEAR: v_tpnf_pis, v_tpnf_cof, v_tpnf_ipi, v_tpnf_icms,
v_tpnf_fundap, /pws/zycit085.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi = itab_zycit100-nrseqdi.
PERFORM dados_pis_cof CHANGING v_tpnf_pis
v_tpnf_cof
v_tpnf_ipi
v_tpnf_icms
v_tpnf_fundap.
ENDIF.
CLEAR v_tpnf_cambial.
PERFORM cobertura_cambial CHANGING v_tpnf_cambial.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit003-nrseqli.
IF sy-subrc EQ 0.
PERFORM trata_drawback CHANGING v_tpnf_drawback.
ENDIF.
CLEAR: /pws/zycit537.
IF mbew-mtuse EQ 3.
SELECT SINGLE anln1
FROM ekkn
INTO v_anln1
WHERE ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
IF NOT v_anln1 IS INITIAL.
SELECT SINGLE kostl
INTO v_kostl
FROM anlz
WHERE anln1 = v_anln1.
ENDIF.
IF v_kostl+2(1) EQ 'P'.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
credito = 'N'.
IF sy-subrc = 0.
itab_zycit003-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit003-tpnf.
ENDIF.
ELSE.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
regime = /pws/zycie001-regime.
IF sy-subrc = 0.
itab_zycit003-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit003-tpnf.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
regime = /pws/zycie001-regime.
IF sy-subrc = 0.
itab_zycit003-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit003-tpnf.
ENDIF.
ENDIF.
ENDFORM.
FORM dados_pis_cof CHANGING v_tpnf_pis
v_tpnf_cof
v_tpnf_ipi
v_tpnf_icms
v_tpnf_fundap.
IF itab_zycit100-codregtripiscofi = '2' OR
itab_zycit100-codregtripiscofi = '3' OR
itab_zycit100-codregtripiscofi = '5' OR
itab_zycit100-codregtripiscofi = '6' .
v_tpnf_pis = 2.
ELSE.
IF itab_zycit100-vlpis > 0.
v_tpnf_pis = 1.
ELSE.
v_tpnf_pis = 2.
ENDIF.
ENDIF.
IF itab_zycit100-codregtripiscofi = '2' OR
itab_zycit100-codregtripiscofi = '3' OR
itab_zycit100-codregtripiscofi = '5' OR
itab_zycit100-codregtripiscofi = '6' .
v_tpnf_cof = 2.
ELSE.
IF itab_zycit100-vlcofins > 0.
v_tpnf_cof = 1.
ELSE.
v_tpnf_cof = 2.
ENDIF.
ENDIF.
IF itab_zycit100-codregtriipi = '1' OR
itab_zycit100-codregtriipi = '5' .
v_tpnf_ipi = 2.
ELSE.
IF itab_zycit100-vlipi > 0.
v_tpnf_ipi = 1.
ELSE.
v_tpnf_ipi = 2.
ENDIF.
ENDIF.
IF NOT itab_zycit100-icms_dif IS INITIAL.
v_tpnf_icms = 3.
ELSE.
IF itab_zycit100-codregtriicms = '2' OR
itab_zycit100-codregtriicms = '3' OR
itab_zycit100-codregtriicms = '5' OR
itab_zycit100-codregtriicms = '6' .
v_tpnf_icms = 2.
ELSE.
IF itab_zycit100-vlicms > 0.
v_tpnf_icms = 1.
ELSE.
v_tpnf_icms = 2.
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycit085-opfundap IS INITIAL.
v_tpnf_fundap = 1.
ELSE.
v_tpnf_fundap = 2.
ENDIF.
ENDFORM.
FORM cobertura_cambial CHANGING v_tpnf_cambial.
CLEAR /pws/zycit263.
SELECT SINGLE *
FROM /pws/zycit263
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp
AND eliminado NE 'X'.
CHECK sy-subrc = 0.
CLEAR /pws/zycit006.
SELECT SINGLE *
FROM /pws/zycit006
WHERE nrseq_pgfat = /pws/zycit263-nrseq_pgfat.
CHECK sy-subrc = 0.
CASE /pws/zycit006-frpagto.
WHEN 'A'.
v_tpnf_cambial = '2'.
WHEN OTHERS.
v_tpnf_cambial = '1'.
ENDCASE.
ENDFORM.
FORM trata_drawback CHANGING v_tpnf_drawback.
IF itab_zycit078-modalidade IS INITIAL.
v_tpnf_drawback = ' '.
EXIT.
ENDIF.
IF itab_zycit078-modalidade EQ 'S'.
v_tpnf_drawback = '1'.
EXIT.
ENDIF.
IF itab_zycit078-modalidade EQ 'I'.
v_tpnf_drawback = '2'.
EXIT.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
TABLES:
* >> Início da inclusão:
/pws/zycit263,
mbew,
/pws/zycit537,
* << Fim da inclusão
...
...
* >> Início da inclusão:
DATA: itab_zycit537 TYPE /pws/zycit537 OCCURS 0 WITH HEADER LINE.
DATA: v_tpnf_ipi TYPE c,
v_tpnf_icms TYPE c,
v_tpnf_pis TYPE c,
v_tpnf_cof TYPE c,
v_tpnf_cambial TYPE c,
v_tpnf_drawback TYPE c,
v_tpnf_fundap type c.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
* >> Início da exclusão:
TABLES: /pws/zycit526,
* << Fim da exclusão
* >> Início da inclusão:
TABLES:
mbew,
/pws/zycit537,
/pws/zycit526,
* << Fim da inclusão
/pws/zycit527 .
...
...
* >> Início da inclusão:
DATA: itab_zycit537 TYPE /pws/zycit537 OCCURS 0 WITH HEADER LINE.
DATA: v_tpnf_ipi TYPE c,
v_tpnf_icms TYPE c,
v_tpnf_pis TYPE c,
v_tpnf_cof TYPE c,
v_tpnf_cambial TYPE c,
v_tpnf_drawback TYPE c,
v_tpnf_fundap TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM gera_itab_zycit042.
DATA: v_fat.
CLEAR:
ekpo, /pws/zycit012,
itab_zycit042-nfnum, itab_zycit042-series.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
CLEAR: itab_zycit537, itab_zycit537[].
SELECT * FROM /pws/zycit537
INTO TABLE itab_zycit537.
IF NOT itab_zycit537[] IS INITIAL.
PERFORM tpnf_new.
ELSE.
* << Fim da inclusão
IF NOT itab_zycit003-tpnf IS INITIAL.
IF itab_zycit042-tpnf IS INITIAL.
SELECT SINGLE j_1bmatuse INTO ekpo-j_1bmatuse
FROM ekpo
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
...
...
IF sy-subrc EQ 0.
IF /pws/zycit006-frpagto EQ 'A'.
itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.
ENDIF.
ENDIF.
itab_zycit042-waersb = /pws/zycbt007-waersb.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF wa_zycit048-nfext EQ 'X' AND v_ok EQ space.
itab_zycit042-nfnum = wa_zycit048-nfprov.
itab_zycit042-series = wa_zycit048-series.
ENDIF.
...
...
* >> Início da inclusão:
FORM tpnf_new.
DATA : v_anln1 LIKE ekkn-anln1,
v_kostl LIKE anlz-kostl.
CLEAR: ekpo.
SELECT SINGLE * FROM ekpo
WHERE ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
IF sy-subrc = 0.
CLEAR: mbew.
SELECT SINGLE * FROM mbew
WHERE matnr = ekpo-matnr
AND bwkey = ekpo-werks.
ENDIF.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ itab_zycit003-nrseq.
READ TABLE itab_zycit100 WITH KEY
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc = 0.
CLEAR: v_tpnf_pis, v_tpnf_cof, v_tpnf_ipi, v_tpnf_icms,
v_tpnf_fundap.
PERFORM dados_pis_cof CHANGING v_tpnf_pis
v_tpnf_cof
v_tpnf_ipi
v_tpnf_icms
v_tpnf_fundap.
ENDIF.
CLEAR v_tpnf_cambial.
PERFORM cobertura_cambial CHANGING v_tpnf_cambial.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit003-nrseqli.
IF sy-subrc EQ 0.
PERFORM trata_drawback CHANGING v_tpnf_drawback.
ENDIF.
CLEAR: /pws/zycit537.
IF mbew-mtuse EQ 3.
SELECT SINGLE anln1
FROM ekkn
INTO v_anln1
WHERE ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
IF NOT v_anln1 IS INITIAL.
SELECT SINGLE kostl
INTO v_kostl
FROM anlz
WHERE anln1 = v_anln1.
ENDIF.
IF v_kostl+2(1) EQ 'P'.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
credito = 'N'.
IF sy-subrc = 0.
itab_zycit042-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit042-tpnf.
ENDIF.
ELSE.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
regime = /pws/zycit001-regime.
IF sy-subrc = 0.
itab_zycit042-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit042-tpnf.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE *
FROM /pws/zycit537
WHERE j_1bmatuse = mbew-mtuse AND
ipi = v_tpnf_ipi AND
pis = v_tpnf_pis AND
cofins = v_tpnf_cof AND
icms = v_tpnf_icms AND
cobercamb = v_tpnf_cambial AND
drawback = v_tpnf_drawback AND
fundap = v_tpnf_fundap AND
regime = /pws/zycit001-regime.
IF sy-subrc = 0.
itab_zycit042-tpnf = /pws/zycit537-tpnf.
ELSE.
CLEAR: itab_zycit042-tpnf.
ENDIF.
ENDIF.
ENDFORM.
FORM dados_pis_cof CHANGING v_tpnf_pis
v_tpnf_cof
v_tpnf_ipi
v_tpnf_icms
v_tpnf_fundap.
IF itab_zycit100-codregtripiscofi = '2' OR
itab_zycit100-codregtripiscofi = '3' OR
itab_zycit100-codregtripiscofi = '5' OR
itab_zycit100-codregtripiscofi = '6' .
v_tpnf_pis = 2.
ELSE.
IF itab_zycit100-vlpis > 0.
v_tpnf_pis = 1.
ELSE.
v_tpnf_pis = 2.
ENDIF.
ENDIF.
IF itab_zycit100-codregtripiscofi = '2' OR
itab_zycit100-codregtripiscofi = '3' OR
itab_zycit100-codregtripiscofi = '5' OR
itab_zycit100-codregtripiscofi = '6' .
v_tpnf_cof = 2.
ELSE.
IF itab_zycit100-vlcofins > 0.
v_tpnf_cof = 1.
ELSE.
v_tpnf_cof = 2.
ENDIF.
ENDIF.
IF itab_zycit100-codregtriipi = '1' OR
itab_zycit100-codregtriipi = '5' .
v_tpnf_ipi = 2.
ELSE.
IF itab_zycit100-vlipi > 0.
v_tpnf_ipi = 1.
ELSE.
v_tpnf_ipi = 2.
ENDIF.
ENDIF.
IF NOT itab_zycit100-icms_dif IS INITIAL.
v_tpnf_icms = 3.
ELSE.
IF itab_zycit100-codregtriicms = '2' OR
itab_zycit100-codregtriicms = '3' OR
itab_zycit100-codregtriicms = '5' OR
itab_zycit100-codregtriicms = '6' .
v_tpnf_icms = 2.
ELSE.
IF itab_zycit100-vlicms > 0.
v_tpnf_icms = 1.
ELSE.
v_tpnf_icms = 2.
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycit085-opfundap IS INITIAL.
v_tpnf_fundap = 1.
ELSE.
v_tpnf_fundap = 2.
ENDIF.
ENDFORM.
FORM cobertura_cambial CHANGING v_tpnf_cambial.
CLEAR /pws/zycit263.
SELECT SINGLE *
FROM /pws/zycit263
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND eliminado NE 'X'.
CHECK sy-subrc = 0.
itab_zycit042-waersb = /pws/zycbt007-waersb.
CLEAR /pws/zycit006.
SELECT SINGLE *
FROM /pws/zycit006
WHERE nrseq_pgfat = /pws/zycit263-nrseq_pgfat.
CHECK sy-subrc = 0.
CASE /pws/zycit006-frpagto.
WHEN 'A'.
v_tpnf_cambial = '2'.
WHEN OTHERS.
v_tpnf_cambial = '1'.
ENDCASE.
ENDFORM.
FORM trata_drawback CHANGING v_tpnf_drawback.
IF itab_zycit078-modalidade IS INITIAL.
v_tpnf_drawback = ' '.
EXIT.
ENDIF.
IF itab_zycit078-modalidade EQ 'S'.
v_tpnf_drawback = '1'.
EXIT.
ENDIF.
IF itab_zycit078-modalidade EQ 'I'.
v_tpnf_drawback = '2'.
EXIT.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT537
* Criar a transação /PWS/ZYCIT537
Código de transação /PWS/ZYCIT537
Cl.desenvolvimento /PWS/ZYCI
Texto da transação Determ. Automática NF Ampliada
Transação: SM30
Omitir 1° tela: X
Valores Proposto:
VIEWNAME /PWS/ZYCIT537
UPDATE_LTD X
----------------------------------------------------------------------------------------------------
Modificações efetuadas no Menu /PWS/ZYCI
* INCLUIR A TRANSAÇÃO NO MENU /PWS/ZYCI NO SEGUINTE CAMINHO:
Parâmetros / Importação / Nota Fiscal:
/PWS/ZYCIT537 - Determ. Automática NF Ampliada