CE PLUS - Nota 001159
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 05/04/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:08:09
Descrição da Nota: DESENVOLVIMENTO PARA TRANSMISSÃO DOS DADOS DO ATO PARA O SISCOMEX
Sintoma
O programa de Drawback não realiza a transmissão da comprovação do ato concessório nem a baixa do
mesmo para o siscomex.
Solução
Desenvolver as funções para trasmissão dos dados para o siscomex e ajustar o programa de ato
concessório para realizar a inclusão dos dados na fila de transmissão.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01159 Data: 05/04/2006 Hora: 15:02:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01159
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00815 - 00001 - 6.0 - 00022 - MELHORIAS NO ROBÔ DE TRANSMISSÃO DO DRAWBACK
01126 - 00002 - 6.0 - 00023 - RELATÓRIO COMPROVAÇÃO DE EXPORTAÇÃO SISCOMEX
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO PARA TRANSMISSÃO DOS DADOS DO ATO PARA O SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRASNMISSÃO - ATO - CONCESSÓRIO - SISCOMEX - COMPROVAÇÃO - ADITIVO
/PWS/SAPMZYCI040 - FUNÇÕES - TRANSMISSÃO - DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI040
DOMD /PWS/ZYGLD089
DYNP /PWS/SAPMZYCI040 0207
DYNP /PWS/SAPMZYCI040 0212
FUNC /PWS/ZYCI_ADITIVO_DRAWBACK
FUNC /PWS/ZYCI_BAIXA_DRAWBACK
FUNC /PWS/ZYCI_COMPROV_DRAWBACK
REPS /PWS/LZYCIGF5UXX
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP2
REPT /PWS/SAPMZYCI040
TABD /PWS/ZYCIE248
TABD /PWS/ZYCIE248C
TABD /PWS/ZYCIE285
TABD /PWS/ZYCIE458
TABD /PWS/ZYCIT248
TABD /PWS/ZYCIT285
TABD /PWS/ZYCIT457
TABL /PWS/ZYCIE458
TABL /PWS/ZYCIT457
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD089
*Valores fixos:
Valor fixo |LimSuperior |Descrição breve
* >> Início da exclusão:
AC | |Ato Concessório
* >> Fim da exclusão:
* >> Início da inclusão:
AC | |Abertura do Ato Concessório
CAC | |Comprovação do Ato Concessório
BAC | |Aditivo do Ato Concessório
* >> Fim da inclusão:
------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0207
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- V_TSISCOMEX
I/O 1 2 4 4 1 CHAR Off
NEX
Elem.TC, Col.fixa TC
- /PWS/ZYCIE248-SEQCOMPV
I/O 1 31 5 10 1 CHAR X Off
NEX
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0212
* Inserir o botão:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
BT_ADITIVO
Push 20 1 23 21 1 CHAR
T_ADITIVO
Ícn.=ICON_OUTBOX
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_ADITIVO_DRAWBACK
*Criar a função: /PWS/ZYCI_ADITIVO_DRAWBACK
*Grupo de funções: /PWS/ZYCIGF5
*Cl.desenvolvimento: /PWS/ZYCI
*Texto breve: CI - Baixa Drawbac
*Codigo fonte:
FUNCTION /PWS/ZYCI_ADITIVO_DRAWBACK.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(I_NRSEQD) TYPE /PWS/ZYCIT244-NRSEQD
*" REFERENCE(I_NRADITIVO) TYPE /PWS/ZYCIT244-ADITIVO
*" TABLES
*" T_ADITIVOS STRUCTURE /PWS/ZYCIT457
*"----------------------------------------------------------------------
tables: /pws/zycit457.
select * from /pws/zycit457 into table T_ADITIVOS
where nrseqd eq i_nrseqd
and aditivo eq i_nraditivo.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_BAIXA_DRAWBACK
*Criar a função: /PWS/ZYCI_BAIXA_DRAWBACK
*Grupo de funções: /PWS/ZYCIGF5
*Cl.desenvolvimento: /PWS/ZYCI
*Texto breve: CI - Baixa Drawbac
*Codigo fonte:
FUNCTION /pws/zyci_baixa_drawback.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(I_NRSEQD) TYPE /PWS/ZYCIT244-NRSEQD
*" EXPORTING
*" REFERENCE(E_NRATOC) TYPE /PWS/ZYCIT244-NRATOC
*" REFERENCE(E_FRETE) TYPE /PWS/ZYCIT279-VLFRETE
*" REFERENCE(E_SEGURO) TYPE /PWS/ZYCIT279-VLSEG
*"----------------------------------------------------------------------
SELECT SINGLE nratoc FROM /pws/zycit244
INTO e_nratoc
WHERE nrseqd EQ i_nrseqd.
SELECT SINGLE SUM( vlfrete ) SUM( vlseg ) FROM /pws/zycit279
INTO (e_frete, e_seguro)
WHERE nrseqd EQ i_nrseqd.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_COMPROV_DRAWBACK
*Criar a função: /PWS/ZYCI_COMPROV_DRAWBACK
*Grupo de funções: /PWS/ZYCIGF5
*Cl.desenvolvimento: /PWS/ZYCI
*Texto breve: CI - Baixa Drawbac
*Codigo fonte:
FUNCTION /pws/zyci_comprov_drawback.
*"----------------------------------------------------------------------
*"*"Interface local:
*" IMPORTING
*" REFERENCE(I_NRSEQD) TYPE /PWS/ZYCIE244-NRSEQD
*" REFERENCE(I_SEQCOMPV) TYPE /PWS/ZYCIT248-SEQCOMPV
*" TABLES
*" T_COMPROV STRUCTURE /PWS/ZYCIE458
*"----------------------------------------------------------------------
* Tabelas
TABLES: /pws/zycit244.
DATA: BEGIN OF itab_zycit428 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit428 .
DATA: END OF itab_zycit428 .
DATA: BEGIN OF itab_zycit248 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit248 .
DATA: END OF itab_zycit248 .
DATA: BEGIN OF itab_zycit248c OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit248 .
DATA: stcd1 TYPE kna1-stcd1.
DATA: END OF itab_zycit248c .
*Tabela de clientes.
DATA: BEGIN OF itab_cliente OCCURS 0 .
DATA: vbeln TYPE vbpa-vbeln,
stcd1 TYPE kna1-stcd1.
DATA: END OF itab_cliente .
CLEAR: itab_zycit248, itab_zycit248c.
REFRESH: itab_zycit248, itab_zycit248c.
SELECT * FROM /pws/zycit428 INTO TABLE itab_zycit428
WHERE export EQ 'X'.
SELECT SINGLE * FROM /pws/zycit244
WHERE nrseqd = i_nrseqd.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* Materiais Exportados
SELECT * FROM /pws/zycit248
INTO TABLE itab_zycit248 WHERE
nrseqd = i_nrseqd AND
seqcompv = i_seqcompv AND
siscomex EQ space.
IF NOT itab_zycit248[] IS INITIAL.
itab_zycit248c[] = itab_zycit248[].
DELETE ADJACENT DUPLICATES FROM itab_zycit248c
COMPARING vbeln_va posnr.
SELECT a~vbeln b~stcd1
FROM ( vbpa AS a INNER JOIN kna1 AS b ON a~kunnr EQ b~kunnr )
INTO TABLE itab_cliente
FOR ALL ENTRIES IN itab_zycit248c
WHERE a~vbeln EQ itab_zycit248c-vbeln_va
AND a~kunnr NE space.
REFRESH itab_zycit248c.
IF /pws/zycit244-importacao IS INITIAL.
/pws/zycit244-importacao = 'S'.
ELSE.
/pws/zycit244-importacao = 'C'.
ENDIF.
LOOP AT itab_zycit248.
CLEAR: itab_zycit248c, itab_cliente.
READ TABLE itab_cliente WITH KEY vbeln = itab_zycit248-vbeln_va.
MOVE:
itab_zycit248-nrseqd TO itab_zycit248c-nrseqd ,
itab_cliente-stcd1 TO itab_zycit248c-stcd1 ,
itab_zycit248-nritem TO itab_zycit248c-nritem ,
itab_zycit248-nrre TO itab_zycit248c-nrre ,
itab_zycit248-dtemb TO itab_zycit248c-dtemb ,
itab_zycit248-dtaverb TO itab_zycit248c-dtaverb ,
itab_zycit248-nfnum TO itab_zycit248c-nfnum ,
itab_zycit248-serie TO itab_zycit248c-serie ,
itab_zycit248-dtnf TO itab_zycit248c-dtnf ,
itab_zycit248-taxlaw TO itab_zycit248c-taxlaw ,
itab_zycit248-um_ncm TO itab_zycit248c-um_ncm ,
itab_zycit248-qtd_ncm TO itab_zycit248c-qtd_ncm ,
itab_zycit248-waersfob TO itab_zycit248c-waersfob ,
itab_zycit248-vlcomis TO itab_zycit248c-vlcomis ,
itab_zycit248-vlfob TO itab_zycit248c-vlfob .
IF itab_zycit248-steuc IS INITIAL.
itab_zycit248c-steuc = itab_zycit248-j_1bnbm.
ELSE.
itab_zycit248c-steuc = itab_zycit248-steuc.
ENDIF.
TRANSLATE itab_zycit248c-steuc USING '. '.
CONDENSE itab_zycit248c-steuc NO-GAPS.
COLLECT itab_zycit248c.
ENDLOOP.
LOOP AT itab_zycit248c.
CLEAR: t_comprov.
MOVE:
itab_zycit248c-nrseqd TO t_comprov-nrseqd ,
/pws/zycit244-nratoc TO t_comprov-nratoc ,
/pws/zycit244-importacao TO t_comprov-cobcamb ,
itab_zycit248c-nritem TO t_comprov-nritem ,
itab_zycit248c-steuc TO t_comprov-ncm ,
itab_zycit248c-nrre TO t_comprov-nrre ,
itab_zycit248c-dtemb TO t_comprov-dtemb ,
itab_zycit248c-dtaverb TO t_comprov-dtaverb ,
itab_zycit248c-nfnum TO t_comprov-nfnum ,
itab_zycit248c-serie TO t_comprov-serie ,
itab_cliente-stcd1 TO t_comprov-cnpj ,
itab_zycit248c-dtnf TO t_comprov-dtnf ,
itab_zycit248c-um_ncm TO t_comprov-um_ncm ,
itab_zycit248c-qtd_ncm TO t_comprov-qtd_ncm ,
itab_zycit248c-waersfob TO t_comprov-waers ,
itab_zycit248c-vlfob TO t_comprov-vlfob .
READ TABLE itab_zycit428 WITH KEY taxlaw = itab_zycit248c-taxlaw.
IF sy-subrc EQ 0.
t_comprov-trading = 'X'.
ENDIF.
t_comprov-pagent = ( itab_zycit248c-vlcomis /
itab_zycit248c-vlfob ) * 100.
TRANSLATE t_comprov-cnpj USING '- / '.
CONDENSE t_comprov-cnpj NO-GAPS.
TRANSLATE t_comprov-nrre USING '- / '.
CONDENSE t_comprov-nrre NO-GAPS.
APPEND t_comprov.
ENDLOOP.
ENDIF.
SORT t_comprov BY nrre cnpj nfnum.
CLEAR : itab_zycit248.
REFRESH: itab_zycit248.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
APPEND itab_botoes2.
ENDIF.
IF v_tcode2_aux EQ 'X' .
DELETE itab_botoes2 WHERE bname EQ 'SAVE'.
ENDIF.
* >> Início da inclusão: FORM TRATA_BOTOES2
IF /pws/zycie244-modalidade NE 'S' OR
( /pws/zycie244-tipo NE 'C' AND
/pws/zycie244-tipo NE 'G' AND
/pws/zycie244-tipo NE 'N' ) .
itab_botoes2-bname = 'TRANS'.
APPEND itab_botoes2.
itab_botoes2-bname = 'COMPR'.
APPEND itab_botoes2.
ELSEIF /pws/zycie244-status NE 'D'.
itab_botoes2-bname = 'COMPR'.
APPEND itab_botoes2.
itab_botoes2-bname = 'ENCER'.
APPEND itab_botoes2.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM carrega_icone2.
IF /pws/zycie244-importacao EQ 'X'.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
...
...
node2-isfolder = 'X'.
node2-text = text-063.
node2-dragdropid = ' '.
APPEND node2 TO node_itab2.
v_cont1 = 0.
* >> Início da inclusão: FORM FILL_TREE2
IF ok_code2 NE 'T_ADITIVO'.
* << Fim da inclusão
DO /pws/zycie244-aditivo TIMES.
v_cont1 = v_cont1 + 1.
WRITE v_cont1 TO v_txcont1.
SHIFT v_txcont1 RIGHT DELETING TRAILING space.
v_tam = strlen( v_txcont1 ).
...
...
wa_stxl-tdspras
wa_stxl-srtf2
v_cont1.
ENDIF.
ENDDO.
* >> Início da inclusão: FORM FILL_TREE2
ENDIF.
* << Fim da inclusão
LOOP AT itab_aditivos.
CLEAR node2.
handle_tree2 = 1.
node2-node_key = itab_aditivos-nraditivo.
node2-relatkey = text-062.
node2-relatship = cl_gui_simple_tree=>relat_last_child.
* >> Início da inclusão: FORM FILL_TREE2
CLEAR itab_zycit285.
READ TABLE itab_zycit285 WITH KEY
nritem = itab_aditivos-tdname+10(5).
IF itab_zycit285-stasis EQ 'A'.
node2-n_image = '@09@'.
ELSEIF itab_zycit285-stasis EQ 'T'.
node2-n_image = '@08@'.
ELSEIF sy-subrc EQ 0.
node2-n_image = '@0A@'.
ELSE.
* << Fim da inclusão
node2-n_image = '@0Q@'.
* >> Início da inclusão: FORM FILL_TREE2
ENDIF.
* << Fim da inclusão
node2-text = itab_aditivos-tdname+10(58).
...
...
CALL METHOD tree2->delete_all_nodes.
CALL METHOD tree2->add_nodes EXPORTING node_table = node_itab2
table_structure_name = 'NODE_STR'.
CALL METHOD tree2->expand_node EXPORTING
node_key = text-062.
* >> Início da inclusão: FORM FILL_TREE2
IF ok_code2 NE 'T_ADITIVO'.
* << Fim da inclusão
LOOP AT itab_insert_ad.
CLEAR node2.
v_undcr2 = node2-node_key = itab_insert_ad-nraditivo.
CALL METHOD tree2->set_selected_node
EXPORTING node_key = node2-node_key.
...
...
CALL METHOD editor2->set_readonly_mode EXPORTING readonly_mode = 0.
CALL METHOD editor2->protect_lines EXPORTING from_line = 1
protect_mode = 1
to_line = 1.
ENDLOOP.
* >> Início da inclusão: FORM FILL_TREE2
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM trata_button_ente2.
CLEAR v_otheruser.
IF /pws/zycie244-nrseqd IS INITIAL.
MESSAGE s015 WITH text-033.
...
...
IF sy-subrc EQ 0.
v_verificp2 = 'S'.
DESCRIBE TABLE itab_zycit247 LINES v_verifiit2.
ENDIF.
SELECT * FROM /pws/zycit457 INTO TABLE itab_zycit457
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
WHERE nrseqd EQ /pws/zycie244-nrseqd.
CLEAR: itab_zycit285. REFRESH: itab_zycit285.
SELECT * FROM /pws/zycit285 INTO TABLE itab_zycit285
* << Fim da inclusão
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SELECT * FROM /pws/zycit248 INTO TABLE itab_zycit248_final
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SORT itab_zycit245 BY nritem codcomp ASCENDING.
SORT itab_zycit246_final BY nritem codcomp ASCENDING.
...
...
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-campo = text-301.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit457-tpalter = 'P'.
* << Fim da inclusão
itab_zycit457-aditivo = /pws/zycie244-aditivo.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
IF /pws/zycie244-tipo EQ 'I'.
itab_zycit457-de = v_data1.
itab_zycit457-para = v_data2.
ELSE.
* << Fim da inclusão
v_dias_p = /pws/zycie244-vcto_vg - wa_zycit244-vcto_vg.
itab_zycit457-para = v_dias_p.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
ENDIF.
* << Fim da inclusão
APPEND itab_zycit457.
ENDIF.
ENDIF.
itab_zycit245_vf[] = itab_zycit245[].
itab_zycit247_vf[] = itab_zycit247[].
...
...
itab_zycit247_save-nritem.
IF sy-subrc EQ 0.
IF itab_zycit247_vf-j_1bnbm NE itab_zycit247_save-j_1bnbm.
PERFORM preenche_alte USING text-168
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-j_1bnbm
itab_zycit247_vf-j_1bnbm
text-224.
ENDIF.
IF itab_zycit247_vf-meins NE itab_zycit247_save-meins.
PERFORM preenche_alte USING text-218
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-meins
itab_zycit247_vf-meins
text-224.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
IF itab_zycit247_vf-qtd_iten NE itab_zycit247_save-qtd_iten.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
IF itab_zycit247_vf-qtd_ncm NE itab_zycit247_save-qtd_ncm.
* << Fim da inclusão
PERFORM preenche_alte USING text-219
itab_zycit247_vf-nritem
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-qtd_iten
itab_zycit247_vf-qtd_iten
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
itab_zycit247_save-qtd_ncm
itab_zycit247_vf-qtd_ncm
* << Fim da inclusão
text-224.
ENDIF.
IF itab_zycit247_vf-waers NE itab_zycit247_save-waers.
PERFORM preenche_alte USING text-220
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-waers
itab_zycit247_vf-waers
text-224.
ENDIF.
IF itab_zycit247_vf-netpr NE itab_zycit247_save-netpr.
PERFORM preenche_alte USING text-221
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-netpr
itab_zycit247_vf-netpr
text-224.
ENDIF.
IF itab_zycit247_vf-netpr_t NE itab_zycit247_save-netpr_t.
PERFORM preenche_alte USING text-222
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-netpr_t
itab_zycit247_vf-netpr_t
text-224.
ENDIF.
IF itab_zycit247_vf-tolling NE itab_zycit247_save-tolling.
PERFORM preenche_alte USING text-223
itab_zycit247_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit247_save-tolling
itab_zycit247_vf-tolling
text-224.
ENDIF.
DELETE itab_zycit247_vf
WHERE nritem = itab_zycit247_save-nritem.
ELSE.
CLEAR: v_mensagem.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
CONCATENATE text-217 itab_zycit247_vf-nritem
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CONCATENATE text-217 itab_zycit247_save-nritem
* << Fim da inclusão
text-225 text-224 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit247_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'E'.
itab_zycit457-para = itab_zycit247_save-j_1bnbm.
APPEND itab_zycit457.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF NOT itab_zycit247_vf[] IS INITIAL.
LOOP AT itab_zycit247_vf.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
CLEAR: v_mensagem.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CLEAR: v_mensagem, itab_zycit247_save.
* << Fim da inclusão
CONCATENATE text-217 itab_zycit247_vf-nritem
text-225 text-224 text-231
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
PERFORM preenche_alte USING text-168
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-j_1bnbm
itab_zycit247_vf-j_1bnbm
text-224.
PERFORM preenche_alte USING text-218
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-meins
itab_zycit247_vf-meins
text-224.
PERFORM preenche_alte USING text-219
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-qtd_ncm
itab_zycit247_vf-qtd_ncm
text-224.
PERFORM preenche_alte USING text-220
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-waers
itab_zycit247_vf-waers
text-224.
PERFORM preenche_alte USING text-221
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-netpr
itab_zycit247_vf-netpr
text-224.
PERFORM preenche_alte USING text-222
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-netpr_t
itab_zycit247_vf-netpr_t
text-224.
PERFORM preenche_alte USING text-223
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-tolling
itab_zycit247_vf-tolling
text-224.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
IF itab_zycit245_save[] NE itab_zycit245[] .
LOOP AT itab_zycit245_save.
...
...
itab_zycit245_save-nritem.
IF sy-subrc EQ 0.
IF itab_zycit245_vf-j_1bnbm NE itab_zycit245_save-j_1bnbm.
PERFORM preenche_alte USING text-168
itab_zycit245_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit245_save-j_1bnbm
itab_zycit245_vf-j_1bnbm
text-207.
ENDIF.
IF itab_zycit245_vf-meins NE itab_zycit245_save-meins.
PERFORM preenche_alte USING text-218
itab_zycit245_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit245_save-meins
itab_zycit245_vf-meins
text-207.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
IF itab_zycit245_vf-qtd_tot NE itab_zycit245_save-qtd_tot.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
IF itab_zycit245_vf-qtd_ncm NE itab_zycit245_save-qtd_ncm.
* << Fim da inclusão
PERFORM preenche_alte USING text-219
itab_zycit245_vf-nritem
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-qtd_tot
itab_zycit245_vf-qtd_tot
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
itab_zycit245_save-qtd_ncm
itab_zycit245_vf-qtd_ncm
* << Fim da inclusão
text-207.
ENDIF.
IF itab_zycit245_vf-waers NE itab_zycit245_save-waers.
PERFORM preenche_alte USING text-220
itab_zycit245_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit245_save-waers
itab_zycit245_vf-waers
text-207.
ENDIF.
IF itab_zycit245_vf-netpr NE itab_zycit245_save-netpr.
PERFORM preenche_alte USING text-221
itab_zycit245_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit245_save-netpr
itab_zycit245_vf-netpr
text-207.
ENDIF.
IF itab_zycit245_vf-netpr_t NE itab_zycit245_save-netpr_t.
PERFORM preenche_alte USING text-222
itab_zycit245_vf-nritem
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
'A'
* << Fim da inclusão
itab_zycit245_save-netpr_t
itab_zycit245_vf-netpr_t
text-207.
ENDIF.
DELETE itab_zycit245_vf
WHERE nritem = itab_zycit245_save-nritem.
ELSE.
CLEAR: v_mensagem.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
CONCATENATE text-217 itab_zycit245_vf-nritem
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CONCATENATE text-217 itab_zycit245_save-nritem
* << Fim da inclusão
text-225 text-207 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit245_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'I'.
itab_zycit457-para = itab_zycit245_save-j_1bnbm.
APPEND itab_zycit457.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF NOT itab_zycit245_vf[] IS INITIAL.
LOOP AT itab_zycit245_vf.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
CLEAR: v_mensagem.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
CLEAR: v_mensagem, itab_zycit245_save.
* << Fim da inclusão
CONCATENATE text-217 itab_zycit245_vf-nritem
text-225 text-207 text-231
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
PERFORM preenche_alte USING text-168
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-j_1bnbm
itab_zycit245_vf-j_1bnbm
text-207.
PERFORM preenche_alte USING text-218
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-meins
itab_zycit245_vf-meins
text-207.
PERFORM preenche_alte USING text-219
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-qtd_ncm
itab_zycit245_vf-qtd_ncm
text-207.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
PERFORM preenche_alte USING text-220
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-waers
itab_zycit245_vf-waers
text-207.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
PERFORM preenche_alte USING text-221
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-netpr
itab_zycit245_vf-netpr
text-207.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
PERFORM preenche_alte USING text-222
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-netpr_t
itab_zycit245_vf-netpr_t
text-207.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da inclusão
LOOP AT node_itab2 INTO node2 .
ENDLOOP.
v_node2 = node2-node_key.
CALL METHOD tree2->set_selected_node EXPORTING node_key = v_node2.
DELETE src WHERE nraditivo EQ v_node2.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM preenche_alte USING p_campo
p_item
* >> Início da inclusão: FORM PREENCHE_ALTE
p_tp
* << Fim da inclusão
p_de
p_para
p_pasta.
DATA: v_mensagem(72),
v_de(30) ,
...
...
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-campo = p_campo.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-item = p_item.
* >> Início da inclusão: FORM PREENCHE_ALTE
itab_zycit457-tpalter = p_tp.
* << Fim da inclusão
itab_zycit457-pasta = p_pasta.
itab_zycit457-de = p_de.
itab_zycit457-para = p_para.
APPEND itab_zycit457.
CLEAR: v_mensagem.
...
...
v_um_rez2 = 1.
ENDIF.
p_qtd = p_qtd *
( ( v_um_rez / v_um_ren ) * ( v_um_ren2 / v_um_rez2 ) ).
ENDFORM.
* >> Início da inclusão:
FORM trans_aditivo.
DATA: v_resposta TYPE c.
CLEAR: itab_aditivos.
READ TABLE itab_aditivos WITH KEY nraditivo = v_aditivo2.
IF sy-subrc EQ 0.
READ TABLE itab_zycit457 WITH KEY
aditivo = itab_aditivos-tdname+10(5)
siscomex = space.
IF sy-subrc EQ 0.
CLEAR: it_zycit285. REFRESH: it_zycit285.
SELECT SINGLE * FROM /pws/zycit285 INTO it_zycit285
WHERE nrseqd = /pws/zycie244-nrseqd
AND tp_doc = 'AAC'
AND nritem = itab_zycit457-aditivo.
IF sy-subrc NE 0 OR
( sy-subrc EQ 0 AND
( it_zycit285-stasis NE 'T' AND
it_zycit285-stasis NE 'A' ) ).
.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-302
textline1 = ' '
titel = text-303
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
it_zycit285-nritem = itab_zycit457-aditivo.
it_zycit285-nrseqd = /pws/zycie244-nrseqd.
it_zycit285-tp_doc = 'AAC'.
it_zycit285-identify = /pws/zycie244-identify.
it_zycit285-werks = /pws/zycie244-werks.
it_zycit285-bukrs = /pws/zycie244-bukrs.
it_zycit285-dtenvf = sy-datum.
it_zycit285-uname = sy-uname.
it_zycit285-stasis = 'A'.
it_zycit285-cpf = /pws/zycet184-cpf.
APPEND it_zycit285.
MODIFY /pws/zycit285 FROM TABLE it_zycit285.
COMMIT WORK.
CLEAR: itab_zycit285. REFRESH: itab_zycit285.
SELECT * FROM /pws/zycit285 INTO TABLE itab_zycit285
WHERE nrseqd EQ /pws/zycie244-nrseqd.
PERFORM fill_tree2.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
DELETE itab_saida.
ENDLOOP.
ENDFORM.
FORM trata_button_encer2.
DATA:
* >> Início da exclusão: FORM TRATA_BUTTON_ENCER2
v_status_tf.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_ENCER2
v_status_tf,
v_confirm(1) TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
text_question = text-307
text_button_1 = text-041
text_button_2 = text-042
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_confirm EQ '2'.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR v_status_tf.
PERFORM transf_saldo USING v_status_tf.
IF v_status_tf NE 'S'.
EXIT.
ENDIF.
* >> Início da inclusão: FORM TRATA_BUTTON_ENCER2
it_zycit285-nrseqd = /pws/zycie244-nrseqd.
it_zycit285-tp_doc = 'BAC'.
it_zycit285-identify = /pws/zycie244-identify.
it_zycit285-werks = /pws/zycie244-werks.
it_zycit285-bukrs = /pws/zycie244-bukrs.
it_zycit285-dtenvf = sy-datum.
it_zycit285-uname = sy-uname.
it_zycit285-stasis = 'A'.
it_zycit285-cpf = /pws/zycet184-cpf.
APPEND it_zycit285.
MODIFY /pws/zycit285 FROM TABLE it_zycit285.
COMMIT WORK.
* << Fim da inclusão
CLEAR itab_zycit282. REFRESH itab_zycit282.
/pws/zycie244-fechado = 'X'.
/pws/zycie244-status = 'E'.
/pws/zycie244-dtencer = sy-datum.
* >> Início da inclusão: FORM TRATA_BUTTON_ENCER2
wa_zycit244-status = 'E'.
* << Fim da inclusão
.
LOOP AT itab_zycit246_final.
.
IF itab_zycit246_final-qtd_nacion = 0.
CLEAR: itab_zycit246_final-qtd_nacion ,
...
...
itab_zycit246_final-i_totmultic .
ENDIF.
v_ex_enc = 'X'.
MODIFY itab_zycit246_final .
ENDLOOP.
* >> Início da inclusão: FORM TRATA_BUTTON_ENCER2
PERFORM trata_button_save2 CHANGING v_erro2.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI040_A' AND /pws/zycie244-fechado EQ 'X'.
v_tcode2 = '/PWS/ZYCI040_E'.
v_tcode2_aux = 'X'.
ENDIF.
ENDFORM.
FORM envia_compr.
* >> Início da exclusão: FORM ENVIA_COMPR
DATA: v_mensagem(255) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_COMPR
DATA: v_mensagem(255) TYPE c,
v_confirm(1) TYPE c,
v_seqcompv(5) TYPE n.
* << Fim da inclusão
IF NOT ( /pws/zycie244-status = 'D' AND
/pws/zycie244-modalidade = 'S' ).
* >> Início da exclusão: FORM ENVIA_COMPR
MESSAGE i013 WITH text-185 text-193.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_COMPR
MESSAGE i013 WITH text-185.
* << Fim da inclusão
EXIT.
ENDIF.
* >> Início da inclusão: FORM ENVIA_COMPR
READ TABLE itab_zycit248_save WITH KEY siscomex = space
seqcompv = space.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-304.
EXIT.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
text_question = text-305
text_button_1 = text-041
text_button_2 = text-042
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_confirm EQ '2'.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR it_zycit285. REFRESH it_zycit285.
it_zycit285-nrseqd = /pws/zycie244-nrseqd.
it_zycit285-tp_doc = 'CAC'.
it_zycit285-stasis = 'A'.
it_zycit285-dtenvf = sy-datum.
* >> Início da inclusão: FORM ENVIA_COMPR
it_zycit285-cpf = /pws/zycet184-cpf.
* << Fim da inclusão
* >> Início da exclusão: FORM ENVIA_COMPR
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_COMPR
SELECT SINGLE MAX( nritem )
* << Fim da inclusão
FROM /pws/zycit285
* >> Início da inclusão: FORM ENVIA_COMPR
INTO it_zycit285-nritem
* << Fim da inclusão
WHERE nrseqd = /pws/zycie244-nrseqd AND
tp_doc = 'CAC'.
* >> Início da inclusão: FORM ENVIA_COMPR
v_seqcompv = it_zycit285-nritem.
* << Fim da inclusão
* >> Início da exclusão: FORM ENVIA_COMPR
IF sy-subrc EQ 0.
MODIFY /pws/zycit285 FROM TABLE it_zycit285.
MOVE text-195 TO v_mensagem.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_COMPR
ADD 1 TO v_seqcompv.
it_zycit285-nritem = v_seqcompv.
* << Fim da inclusão
it_zycit285-identify = /pws/zycie244-identify.
it_zycit285-bukrs = /pws/zycie244-bukrs.
it_zycit285-werks = /pws/zycie244-werks.
it_zycit285-nrsiscomex = /pws/zycie244-nratoc.
it_zycit285-uname = sy-uname.
APPEND it_zycit285.
INSERT INTO /pws/zycit285 VALUES it_zycit285.
* >> Início da inclusão: FORM ENVIA_COMPR
itab_zycit248_save-seqcompv = it_zycit285-nritem .
MODIFY itab_zycit248_save TRANSPORTING seqcompv
WHERE siscomex EQ space
AND seqcompv EQ space.
DELETE FROM /pws/zycit248 WHERE nrseqd EQ /pws/zycie244-nrseqd.
INSERT /pws/zycit248 FROM TABLE itab_zycit248_save.
* << Fim da inclusão
MOVE text-194 TO v_mensagem.
* >> Início da exclusão: FORM ENVIA_COMPR
ENDIF.
IF sy-subrc EQ 0.
MESSAGE i015 WITH v_mensagem(42) v_mensagem+42(50).
ELSE.
MESSAGE e015 WITH text-196.
ENDIF.
* << Fim da exclusão
ENDFORM.
FORM trata_sequencial.
WRITE /pws/zycie244-nrseqd TO /pws/zycie244-nrseqd RIGHT-JUSTIFIED.
OVERLAY /pws/zycie244-nrseqd WITH '0000000000'.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
WHEN 'FS_MERC'.
PERFORM trata_tab_imp2_merc.
pressed_tab_2a = ok_code2.
dynpronr2a = '0226'.
WHEN 'COMPR'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
* << Fim da inclusão
PERFORM envia_compr.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
* << Fim da inclusão
WHEN 'TRANS'.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
...
...
WHEN 'BTN3'.
PERFORM trata_button_btn3.
WHEN 'SITUAC'.
PERFORM trata_button_situac2.
WHEN 'ENCER'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF /pws/zycit321-siscotrans IS INITIAL.
PERFORM trata_button_encer2.
ELSE.
READ TABLE itab_zycit248_save WITH KEY siscomex = space.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-306.
ELSE.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
* << Fim da inclusão
PERFORM trata_button_encer2.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
WHEN 'AJUSTLT'.
CLEAR v_tlajust.
IF /pws/zycie244-fechado EQ 'X'.
PERFORM trata_button_encer2.
PERFORM trata_ajuste_lt.
...
...
PERFORM trata_button_doc.
WHEN 'VFALT'.
pressed_tab_2a = 'FS_ADITIVOS'.
dynpronr2a = '0212'.
PERFORM verifica_alteracoes.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'T_ADITIVO'.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trans_aditivo.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code2.
ENDMODULE.
MODULE user_command_0200_exit INPUT.
CASE ok_code2.
...
...
/pws/zycie244-dtatoc IS INITIAL.
MESSAGE e015 WITH text-209 text-210.
/pws/zycie244-status = v_status_dif.
EXIT.
ENDIF.
* >> Início da inclusão: MODULE VERIFICA_ATO
ELSEIF /pws/zycie244-status EQ 'E' AND
wa_zycit244-status NE 'E' AND
sy-ucomm NE 'ENCER'.
/pws/zycie244-status = wa_zycit244-status.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE altera_cliente INPUT.
IF NOT /pws/zycie244-kunnr IS INITIAL.
CLEAR: /pws/zycie244-name1, /pws/zycie244-stcd1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ELSEIF wa_cols2-screen-group4 EQ 'CAM'.
wa_cols2-invisible = 0.
MODIFY tc_realize-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN2
DESCRIBE TABLE itab_zycit248 LINES v_ilinhas2.
tc_realize-lines = v_ilinhas2.
* << Fim da inclusão
WHEN '0208'.
LOOP AT tc_centros2-cols INTO wa_cols2.
IF wa_cols2-screen-group1 NE 'NEX'.
IF NOT /pws/zycie244-nrforecast IS INITIAL.
wa_cols2-screen-input = 0.
...
...
/pws/zycie248-waerscif = itab_zycit248-waerscif .
/pws/zycie248-vlcif = itab_zycit248-vlcif .
/pws/zycie248-matnr = itab_zycit248-matnr .
/pws/zycie248-mvgr1 = itab_zycit248-mvgr1 .
/pws/zycie248-vl_scamb = itab_zycit248-vl_scamb .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0207
CLEAR: itab_zycit248_save.
READ TABLE itab_zycit248_save WITH KEY
vbeln_va = itab_zycit248-vbeln_va
vbeln_vl = itab_zycit248-vbeln_vl
vbeln_vf = itab_zycit248-vbeln_vf
posnl = itab_zycit248-posnl
aupos = itab_zycit248-aupos .
.
/pws/zycie248-seqcompv = itab_zycit248_save-seqcompv.
IF NOT itab_zycit248_save-siscomex IS INITIAL.
v_tsiscomex = '@3J@'.
ENDIF.
* << Fim da inclusão
ENDMODULE.
MODULE apura_totais_0207 OUTPUT.
PERFORM apura_totais_0207.
ENDMODULE.
MODULE load_text_0207 OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
v_sfrete_text(22) ,
v_sseg_text(22) ,
v_rfob_text(22) ,
v_rfrete_text(22) ,
v_rseg_text(22) ,
* >> Início da exclusão:
v_txtnetpr(20) .
* << Fim da exclusão
* >> Início da inclusão:
v_txtnetpr(20) ,
v_tsiscomex(4) type c .
* << Fim da inclusão
DATA: v_meins LIKE mara-meins,
v_gewei LIKE mara-gewei,
v_brgew LIKE mara-brgew,
v_ntgew LIKE mara-ntgew,
v_netpr_t LIKE mbew-stprs,
...
...
INCLUDE STRUCTURE /pws/zycit277 .
DATA: END OF itab_vencto2_save .
DATA: BEGIN OF it_zycit285 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit285.
DATA: END OF it_zycit285.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit285 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit285.
DATA: END OF itab_zycit285.
* << Fim da inclusão
DATA: BEGIN OF itab_zycit245 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245 .
DATA: markci(1) TYPE c .
DATA: END OF itab_zycit245 .
DATA: BEGIN OF itab_zycit245_aux OCCURS 0.
...
...
DATA: END OF itab_zycit279_ap_aux.
DATA: BEGIN OF itab_zycit282_ap OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF itab_zycit282_ap.
DATA: itab_zycit279_ap_s LIKE /pws/zycit279 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit457 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit457 .
DATA: mark(1) TYPE c .
DATA: END OF itab_zycit457 .
* << Fim da inclusão
DATA: BEGIN OF itab_data_di OCCURS 0.
DATA: data LIKE sy-datum.
DATA: END OF itab_data_di.
DATA: BEGIN OF itab_di_p OCCURS 0.
DATA: nrseq LIKE /pws/zycit003-nrseq,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 185
Texto: (47 caracteres)
"Ato Concessório não esta registrado no SISCOMEX"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 301
Texto: (11 caracteres)
"Prorrogação"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 302
Texto: (38 caracteres)
"Deseja realmente transmitir o Aditivo?"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 303
Texto: (23 caracteres)
"Transmissão do Aditivo."
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 304
Texto: (28 caracteres)
"Não exitem RE¿s à comprovar."
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 305
Texto: (49 caracteres)
"Deseja realmente enviar a comprovação ao SISCOMEX"
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 306
Texto: (33 caracteres)
"Existem RE¿s a serem comprovadas."
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 307
Texto: (46 caracteres)
"Deseja realmente dar baixa no Ato Concessório?"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 308
Texto: (18 caracteres)
"Frete provisionado"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 309
Texto: (19 caracteres)
"Seguro provisionado"
Comprimento máximo: 19
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE248
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
SISCOMEX | |/PWS/ZYCIL484 | | |CHAR | 1 |
* >> Início da inclusão:
SEQCOMPV | |CHAR05 | | |CHAR | 5 |
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE248C
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
SISCOMEX | |/PWS/ZYCIL484 | | |CHAR | 1 |
* >> Início da inclusão:
SEQCOMPV | |CHAR05 | | |CHAR | 5 |
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE285
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
TP_DOC | |/PWS/ZYGLL665 | | |CHAR | 10 |
* >> Início da inclusão:
NRITEM | |CHAR5 | | |CHAR | 5 |
* >> Fim da inclusão:
IDENTIFY | |/PWS/ZYCIL414 | | |CHAR | 15 |
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE458
Criar a estrutura: /PWS/ZYCIE458
Descrição breve: CI - ESTRUTURA PARA FUNÇÃO DE TRANSMISSÃO COMP. RE - DB
Nome campo |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
NRSEQD |/PWS/ZYCIL435 | | |CHAR | 10 |
NRATOC |CHAR13 | | |CHAR | 13 |
NRITEM |CHAR5 | | |CHAR | 5 |
NCM |STEUC | | |CHAR | 16 |
NRRE |/PWS/ZYCEL018 | | |CHAR | 14 |
DTEMB |DATUM | | |DATS | 8 |
DTAVERB |DATUM | | |DATS | 8 |
NFNUM |J_1BNFNUMB | | |NUMC | 6 |
SERIE |J_1BSERIES | | |CHAR | 3 |
DTNF |DATUM | | |DATS | 8 |
UM_NCM |MEINS | | |UNIT | 3 |
QTD_NCM |/PWS/ZYCIL473 | | |QUAN | 23 |
PAGENT |J_1BTXRATE | | |DEC | 6 |
WAERS |WAERS | | |CUKY | 5 |
VLFOB |WRBTV_FPM | | |CURR | 23 |
COBCAMB |CHAR1 | | |CHAR | 1 |
TRADING |CHAR1 | | |CHAR | 1 |
CNPJ |STCD1 | | |CHAR | 16 |
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT248
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
SISCOMEX | |/PWS/ZYCIL484 | | |CHAR | 1 |
* >> Início da inclusão:
SEQCOMPV | |CHAR05 | | |CHAR | 5 |
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT285
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
TP_DOC | X |/PWS/ZYGLL665 | |X |CHAR | 10 |
* >> Início da inclusão:
NRITEM | X |CHAR5 | |X |CHAR | 5 |
* >> Fim da inclusão:
IDENTIFY | |/PWS/ZYCIL414 | | |CHAR | 15 |
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT457
Criar a TEBELA: /PWS/ZYCIT457
Descrição breve: CI - Aditivos Ato Concessório
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
MANDT | X |MANDT | |X |CLNT | 3 |
NRSEQD | X |/PWS/ZYCIL435 | |X |CHAR | 10 |
ADITIVO | X |NUMC5 | |X |NUMC | 5 |
CAMPO | X |CHAR30 | |X |CHAR | 30 |
ITEM | X |CHAR05 | |X |CHAR | 5 |
PASTA | X |CHAR1 | |X |CHAR | 1 |
DE | |CHAR50 | | |CHAR | 50 |
PARA | |CHAR50 | | |CHAR | 50 |
SISCOMEX | |/PWS/ZYCIL484 | | |CHAR | 1 |
TPALTER | |CHAR1 | | |CHAR | 1 |
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE457
Criar a estrutura: /PWS/ZYCIE458
Descrição breve: CI - Aditivos Ato Concessório
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
MANDT | |MANDT | |X |CLNT | 3 |
NRSEQD | |/PWS/ZYCIL435 | |X |CHAR | 10 |
ADITIVO | |NUMC5 | |X |NUMC | 5 |
CAMPO | |CHAR30 | |X |CHAR | 30 |
ITEM | |CHAR05 | |X |CHAR | 5 |
PASTA | |CHAR1 | |X |CHAR | 1 |
DE | |CHAR50 | | |CHAR | 50 |
PARA | |CHAR50 | | |CHAR | 50 |
SISCOMEX | |/PWS/ZYCIL484 | | |CHAR | 1 |
TPALTER | |CHAR1 | | |CHAR | 1 |