CE PLUS - Nota 007172
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 20/08/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:09:10
Descrição da Nota: DESENVOLVIMENTO DO RELATÓRIO DE RETIFICAÇÃO DE DI
Sintoma
Desenvolvimento do relatório de retificação de DI
Solução
Desenvolvimento do relatório de retificação de DI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07172 Data: 20/08/2008 Hora: 11:55:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07172
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00061
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO DO RELATÓRIO DE RETIFICAÇÃO DE DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO - RETIFICAÇÃO - DI - DESENVOLVIMENTO
/PWS/ZYCIR519
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI023
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/ZYCIR519
REPT /PWS/ZYCIR519
TRAN /PWS/ZYCIR519
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI023
*Alterações no Status Gui 0100
*Adicionar Função:
Código de função: REL_RET
Texto de função: Relat. Retificações
Nome de ícone: ICON_SHOW_EVENTS
*Incluir o botão REL_RET após o botão RETI.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
LEAVE PROGRAM.
ELSE.
IF sy-tcode NE '/PWS/ZYCI023_C' AND
sy-tcode NE '/PWS/ZYCI023_I' AND
v_nrseqdi IS INITIAL.
LEAVE TO SCREEN '0010'.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'REL_RET'.
EXPORT /pws/zycie085-nrseqdi TO MEMORY ID 'NRSEQDI'.
CALL TRANSACTION '/PWS/ZYCIR519' AND SKIP FIRST SCREEN.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: sy-ucomm, r_okcode.
ENDMODULE.
MODULE load_urf INPUT.
IF /pws/zycie085-urfdesp IS INITIAL.
CLEAR: s_urf, /pws/zycie085-recalf, s_recalf, /pws/zycie085-setor,
s_setor.
ELSE.
PERFORM load_urf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
events = myevent_tab.
CREATE OBJECT evt_receiver.
SET HANDLER evt_receiver->on_sapevent
FOR html_control.
PERFORM load_home_page.
ENDIF.
ENDMODULE.
MODULE status_0050 OUTPUT.
DATA: v_nrseq LIKE /pws/zycit094-nrseq,
v_nrseqce LIKE /pws/zycit093-nrseqce.
* >> Início da inclusão: MODULE STATUS_0050
REFRESH: it_statu2,
it_statu4.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI023_C'.
SET PARAMETER ID 'FWS' FIELD ' ' .
v_textstat = text-057.
ENDIF.
SELECT SINGLE * FROM /pws/zycit494
WHERE land1 EQ t001-land1.
IF sy-tcode = '/PWS/ZYCI023_E' OR
/pws/zycie085-nrdi IS INITIAL OR
/pws/zycie085-dtreg IS INITIAL OR
/pws/zycit494-retif NE 'X'.
MOVE 'RETI' TO it_statu4-fcode.
APPEND it_statu4.
MOVE 'RETI' TO it_statu2-fcode.
APPEND it_statu2.
ENDIF.
IF gc_subscreen-prog NE '0200'.
* >> Início da inclusão: MODULE STATUS_0050
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.
* << Fim da inclusão
IF v_acto = 'A'.
SET PF-STATUS '0100' EXCLUDING it_statu4.
ELSE.
SET PF-STATUS '0100' EXCLUDING it_statu2.
ENDIF.
SET TITLEBAR '0100' WITH text-060 v_textstat.
ELSE.
MOVE: /pws/zycie093-nrseqce TO v_nrseqce.
SELECT SINGLE nrseq FROM /pws/zycit094 INTO v_nrseq
WHERE nrseqce EQ v_nrseqce.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR519
*Criar programa /PWS/ZYCIR519
Título: DI - Relatório de Retificação d
Categoria: Programa executável
Cl.desenvolvimento: /PWS/ZYCI
Aritmética em ponto fixo: X
*Codigo fonte:
REPORT /pws/zycir519 MESSAGE-ID /pws/zycim LINE-SIZE 125.
TABLES: /pws/zycit001,
/pws/zycit085,
/pws/zycie085,
/pws/zycit094,
/pws/zycit093,
/pws/zycbt007,
tcurx.
DATA: itab_zycit100 TYPE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
itab_zycit003 TYPE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit116 TYPE /pws/zycit116 OCCURS 0 WITH HEADER LINE,
itab_zycit487 TYPE /pws/zycit487 OCCURS 0 WITH HEADER LINE,
itab_zycit488 TYPE /pws/zycit488 OCCURS 0 WITH HEADER LINE,
itab_zycit489 TYPE /pws/zycit489 OCCURS 0 WITH HEADER LINE,
itab_zycit490 TYPE /pws/zycit490 OCCURS 0 WITH HEADER LINE,
itab_zycit491 TYPE /pws/zycit491 OCCURS 0 WITH HEADER LINE,
itab_zycit492 TYPE /pws/zycit492 OCCURS 0 WITH HEADER LINE,
itab_zycit493 TYPE /pws/zycit493 OCCURS 0 WITH HEADER LINE.
* Seleção de Dados (Tela: Critério de Seleção) -------------------------
SELECTION-SCREEN BEGIN OF BLOCK scr1 WITH FRAME TITLE text-000.
PARAMETERS: p_nrseq TYPE /pws/zycit001-nrseq,
p_seqdi TYPE /pws/zycit085-nrseqdi.
SELECTION-SCREEN END OF BLOCK scr1.
START-OF-SELECTION.
PERFORM sele.
IF NOT /pws/zycit001-nrseq IS INITIAL.
PERFORM exibe_relat.
ENDIF.
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form sele
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM sele.
DATA: v_nrseq TYPE RANGE OF /pws/zycit001-nrseq WITH HEADER LINE,
v_nrseqdi TYPE RANGE OF /pws/zycit085-nrseqdi WITH HEADER LINE.
PERFORM limpa_dados.
CLEAR: /pws/zycie085-nrseqdi.
IMPORT /pws/zycie085-nrseqdi FROM MEMORY ID 'NRSEQDI'.
IF NOT /pws/zycie085-nrseqdi IS INITIAL.
p_seqdi = /pws/zycie085-nrseqdi.
FREE MEMORY ID 'NRSEQDI'.
ENDIF.
IF p_nrseq IS INITIAL AND p_seqdi IS INITIAL.
MESSAGE i015 WITH text-089.
EXIT.
ENDIF.
*Monta critério de seleção.
IF NOT p_nrseq IS INITIAL.
v_nrseq-sign = 'I'.
v_nrseq-option = 'EQ'.
v_nrseq-low = p_nrseq.
APPEND v_nrseq.
ENDIF.
IF NOT p_seqdi IS INITIAL.
v_nrseqdi-sign = 'I'.
v_nrseqdi-option = 'EQ'.
v_nrseqdi-low = p_seqdi.
APPEND v_nrseqdi.
ENDIF.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseq IN v_nrseq
AND nrseqdi IN v_nrseqdi.
READ TABLE itab_zycit100 INDEX 1.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-087 .
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ itab_zycit100-nrseqdi
AND retif NE space.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-088.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseqce EQ /pws/zycit085-nrbl
AND nrseq EQ itab_zycit100-nrseq.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce EQ /pws/zycit085-nrbl.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ itab_zycit100-nrseq.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
WHERE nrseq EQ itab_zycit100-nrseq.
SELECT * FROM /pws/zycit116 INTO TABLE itab_zycit116
WHERE nrseqdi EQ itab_zycit100-nrseqdi.
SELECT * FROM /pws/zycit487 INTO TABLE itab_zycit487
WHERE nrseq EQ itab_zycit100-nrseq.
SELECT * FROM /pws/zycit488 INTO TABLE itab_zycit488
WHERE nrseq EQ itab_zycit100-nrseq.
SELECT * FROM /pws/zycit492 INTO TABLE itab_zycit492
WHERE nrseq EQ itab_zycit100-nrseq. "#EC CI_NOFIRST
IF NOT itab_zycit492[] IS INITIAL.
SELECT * FROM /pws/zycit491 INTO TABLE itab_zycit491
FOR ALL ENTRIES IN itab_zycit492
WHERE nrseqdi EQ itab_zycit492-nrseqdi
AND retif EQ itab_zycit492-retif.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit489 INTO TABLE itab_zycit489
FOR ALL ENTRIES IN itab_zycit491
WHERE nrseqce EQ itab_zycit491-nrbl
AND retif EQ itab_zycit491-retif.
SELECT * FROM /pws/zycit490 INTO TABLE itab_zycit490
FOR ALL ENTRIES IN itab_zycit491
WHERE nrseqce EQ itab_zycit491-nrbl
AND retif EQ itab_zycit491-retif.
ENDIF.
SELECT * FROM /pws/zycit493 INTO TABLE itab_zycit493
FOR ALL ENTRIES IN itab_zycit492
WHERE nrseqdi EQ itab_zycit492-nrseqdi
AND retif EQ itab_zycit492-retif.
ENDIF.
MOVE-CORRESPONDING: /pws/zycit001 TO itab_zycit487,
/pws/zycit085 TO itab_zycit491,
/pws/zycit093 TO itab_zycit489,
/pws/zycit094 TO itab_zycit490.
itab_zycit489-ntgew = /pws/zycit085-ntgew.
itab_zycit489-gewei_l = itab_zycit489-gewei_b.
itab_zycit487-retif = itab_zycit491-retif =
itab_zycit489-retif = itab_zycit490-retif = /pws/zycit085-retif.
APPEND: itab_zycit487,
itab_zycit491,
itab_zycit489,
itab_zycit490.
LOOP AT itab_zycit003.
MOVE-CORRESPONDING: itab_zycit003 TO itab_zycit488.
itab_zycit488-retif = /pws/zycit085-retif.
APPEND itab_zycit488.
ENDLOOP.
LOOP AT itab_zycit100.
MOVE-CORRESPONDING: itab_zycit100 TO itab_zycit492.
itab_zycit492-retif = /pws/zycit085-retif.
APPEND itab_zycit492.
ENDLOOP.
LOOP AT itab_zycit116.
MOVE-CORRESPONDING: itab_zycit116 TO itab_zycit493.
itab_zycit493-retif = /pws/zycit085-retif.
APPEND itab_zycit493.
ENDLOOP.
ENDFORM. " sele
*&---------------------------------------------------------------------*
*& Form limpa_dados
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM limpa_dados.
CLEAR: /pws/zycit001, /pws/zycit085, /pws/zycit094, /pws/zycit093,
itab_zycit100, itab_zycit003, itab_zycit116, itab_zycit487,
itab_zycit488, itab_zycit489, itab_zycit490, itab_zycit491,
itab_zycit492, itab_zycit493.
REFRESH: itab_zycit100, itab_zycit003, itab_zycit116, itab_zycit487,
itab_zycit488, itab_zycit489, itab_zycit490, itab_zycit491,
itab_zycit492, itab_zycit493.
ENDFORM. " limpa_dados
*&---------------------------------------------------------------------*
*& Form exibe_relat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM exibe_relat.
DATA: v_adicao TYPE /pws/zycit100-adicao. "numero de adições
DATA: wa_zycit488 TYPE /pws/zycit488,
wa_zycit489 TYPE /pws/zycit489,
wa_zycit491 TYPE /pws/zycit491,
wa_zycit493 TYPE /pws/zycit493,
wa_ender TYPE addr1_val .
DATA: BEGIN OF itab_zycit492b OCCURS 0.
INCLUDE STRUCTURE /pws/zycit492.
DATA: qtd_est TYPE /pws/zycit003-qtdeumest,
meinsest TYPE /pws/zycit003-meinsest.
DATA END OF itab_zycit492b.
DATA: BEGIN OF itab_zycit492a OCCURS 0.
INCLUDE STRUCTURE /pws/zycit492.
DATA: qtd_est TYPE /pws/zycit003-qtdeumest,
meinsest TYPE /pws/zycit003-meinsest.
DATA END OF itab_zycit492a.
DATA: wa_zycit492b LIKE itab_zycit492b,
itab_zycit492c TYPE /pws/zycit492 OCCURS 0.
DATA BEGIN OF itab_relat OCCURS 0.
DATA: campo(50) TYPE c,
de(30) TYPE c,
para(30) TYPE c,
retif TYPE /pws/zycit085-retif,
adicao TYPE /pws/zycit100-adicao.
DATA END OF itab_relat.
DATA: v_codab TYPE t005-/pws/codab,
v_codab2 TYPE t005-/pws/codab,
v_agent TYPE lfa1-stcd1,
v_agent2 TYPE lfa1-stcd1,
v_devido TYPE /pws/zycit085-vlfob,
v_devido2 TYPE /pws/zycit085-vlfob,
v_impr TYPE c,
v_cnpj TYPE j_1bwfield-cgc_number ,
v_cnpj2(19) TYPE c,
v_decimals TYPE i.
DEFINE linha.
*&1 - texto do campo modificado
*&2 - Campo com valor anterior
*&3 - Campo com valor atual
if &2 ne &3.
write: &1 to itab_relat-campo,
&2 to itab_relat-de ,
&3 to itab_relat-para ,
itab_zycit492b-adicao to itab_relat-adicao .
itab_relat-retif = itab_zycit491-retif.
append itab_relat.
endif.
END-OF-DEFINITION.
DEFINE valor.
*&1 - texto do campo modificado
*&2 - Campo com valor anterior
*&3 - Campo com valor atual
*&4 - Moeda de
*&5 - Moeda para
if &2 ne &3.
describe field &2 decimals v_decimals.
select single * from tcurx where currkey = &4.
if sy-subrc <> 0.
tcurx-currdec = 2.
endif.
&2 = &2 * ( 10 ** ( tcurx-currdec - v_decimals ) ).
if &5 ne &4.
select single * from tcurx where currkey = &5.
endif.
&3 = &3 * ( 10 ** ( tcurx-currdec - v_decimals ) ).
write: &1 to itab_relat-campo,
&2 to itab_relat-de currency &4 ,
&3 to itab_relat-para currency &5 ,
itab_zycit492b-adicao to itab_relat-adicao .
itab_relat-retif = itab_zycit491-retif.
if itab_relat-de ne itab_relat-para.
append itab_relat.
endif.
&3 = &3 / ( 10 ** ( tcurx-currdec - v_decimals ) ).
if &5 ne &4.
select single * from tcurx where currkey = &4.
endif.
&2 = &2 / ( 10 ** ( tcurx-currdec - v_decimals ) ).
endif.
END-OF-DEFINITION.
DEFINE quant.
*&1 - texto do campo modificado
*&2 - Campo com valor anterior
*&3 - Campo com valor atual
*&4 - unidade de
*&5 - unidade para
if &2 ne &3.
write: &1 to itab_relat-campo,
&2 to itab_relat-de unit &4 ,
&3 to itab_relat-para unit &5,
itab_zycit492b-adicao to itab_relat-adicao .
itab_relat-retif = itab_zycit491-retif.
if itab_relat-de ne itab_relat-para.
append itab_relat.
endif.
endif.
END-OF-DEFINITION.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycit001-bukrs.
SORT itab_zycit491 BY retif.
SORT itab_zycit492 BY adicao.
CLEAR: wa_zycit488, wa_zycit489,
wa_zycit491, wa_zycit492b,
wa_zycit493.
itab_zycit492c[] = itab_zycit492[].
LOOP AT itab_zycit491.
REFRESH: itab_zycit492b, itab_zycit492 .
itab_zycit492[] = itab_zycit492c[].
DELETE itab_zycit492 WHERE retif NE itab_zycit491-retif.
CLEAR: wa_zycit492b, v_adicao.
LOOP AT itab_zycit492.
IF v_adicao NE itab_zycit492-adicao.
IF NOT wa_zycit492b IS INITIAL.
APPEND wa_zycit492b TO itab_zycit492b.
CLEAR: wa_zycit492b.
ENDIF.
v_adicao = itab_zycit492-adicao.
ENDIF .
CLEAR: itab_zycit488.
READ TABLE itab_zycit488 WITH KEY ebeln = itab_zycit492-ebeln
ebelp = itab_zycit492-ebelp
retif = itab_zycit492-retif.
IF wa_zycit492b IS INITIAL.
wa_zycit492b = itab_zycit492.
wa_zycit492b-qtd_est = itab_zycit488-qtdeumest.
wa_zycit492b-meinsest = itab_zycit488-meinsest.
ELSE.
ADD: itab_zycit492-baseii TO wa_zycit492b-baseii ,
itab_zycit492-baseicms TO wa_zycit492b-baseicms ,
itab_zycit492-baseipi TO wa_zycit492b-baseipi ,
itab_zycit492-basecofins TO wa_zycit492b-basecofins ,
itab_zycit492-basepis TO wa_zycit492b-basepis ,
itab_zycit492-vlii TO wa_zycit492b-vlii ,
itab_zycit492-vlipi TO wa_zycit492b-vlipi ,
itab_zycit492-vlicms TO wa_zycit492b-vlicms ,
itab_zycit492-vlcofins TO wa_zycit492b-vlcofins ,
itab_zycit492-vlpis TO wa_zycit492b-vlpis ,
itab_zycit492-qtdeantid TO wa_zycit492b-qtdeantid ,
itab_zycit492-baseantid TO wa_zycit492b-baseantid ,
itab_zycit492-vlantid TO wa_zycit492b-vlantid,
itab_zycit488-qtdeumest TO wa_zycit492b-qtd_est.
ENDIF.
ENDLOOP.
APPEND wa_zycit492b TO itab_zycit492b.
READ TABLE itab_zycit487 WITH KEY retif = itab_zycit491-retif.
READ TABLE itab_zycit489 WITH KEY retif = itab_zycit491-retif.
READ TABLE itab_zycit490 WITH KEY retif = itab_zycit491-retif.
READ TABLE itab_zycit491 WITH KEY retif = itab_zycit491-retif.
READ TABLE itab_zycit493 WITH KEY retif = itab_zycit491-retif.
IF NOT wa_zycit491 IS INITIAL.
CLEAR: itab_zycit492b.
linha text-076 wa_zycit491-identify itab_zycit491-identify .
linha text-077 wa_zycit491-codreg itab_zycit491-codreg .
linha text-005 wa_zycit489-descrtransp itab_zycit489-descrtransp
.
linha text-006 wa_zycit489-bandtransp itab_zycit489-bandtransp .
linha text-007 wa_zycit489-embarca itab_zycit489-embarca .
linha text-008 wa_zycit489-tpdoccheg itab_zycit489-tpdoccheg .
linha text-009 wa_zycit489-identdcheg itab_zycit489-identdcheg .
linha text-010 wa_zycit489-tpconh itab_zycit489-tpconh .
linha text-011 wa_zycit489-utilizacao itab_zycit489-utilizacao .
linha text-012 wa_zycit489-identconh itab_zycit489-identconh .
linha text-013 wa_zycit489-identmaster itab_zycit489-identmaster
.
linha text-014 wa_zycit489-localemb itab_zycit489-localemb .
linha text-015 wa_zycit489-dtemb itab_zycit489-dtemb .
linha text-016 wa_zycit489-placa itab_zycit489-placa .
linha text-017 wa_zycit489-identconh itab_zycit489-identconh .
IF wa_zycit491-land NE itab_zycit491-land.
SELECT SINGLE /pws/codab FROM t005
INTO v_codab
WHERE land1 EQ wa_zycit491-land.
SELECT SINGLE /pws/codab FROM t005
INTO v_codab2
WHERE land1 EQ itab_zycit491-land.
linha text-018 v_codab v_codab2 .
ENDIF.
linha text-019 wa_zycit491-urfent itab_zycit491-urfent .
linha text-020 wa_zycit489-dtcheg itab_zycit489-dtcheg .
quant text-021 wa_zycit489-ntgew itab_zycit489-ntgew
wa_zycit489-gewei_l itab_zycit489-gewei_l.
quant text-022 wa_zycit489-brgew itab_zycit489-brgew
wa_zycit489-gewei_b itab_zycit489-gewei_b.
IF wa_zycit489-agente NE itab_zycit489-agente.
SELECT SINGLE stcd1 FROM lfa1 INTO v_agent WHERE
lifnr = wa_zycit489-agente.
SELECT SINGLE stcd1 FROM lfa1 INTO v_agent2 WHERE
lifnr = itab_zycit489-agente.
linha text-023 v_agent v_agent2 .
ENDIF.
linha text-024 wa_zycit491-waersfob itab_zycit491-waersfob .
valor text-025 wa_zycit491-vlfob itab_zycit491-vlfob
wa_zycit491-waersfob itab_zycit491-waersfob.
linha text-026 wa_zycit489-waersfre itab_zycit489-waersfre .
valor text-027 wa_zycit489-prepaid itab_zycit489-prepaid
wa_zycit489-waersfre itab_zycit489-waersfre.
valor text-028 wa_zycit489-collect itab_zycit489-collect
wa_zycit489-waersfre itab_zycit489-waersfre.
valor text-029 wa_zycit489-ternacion itab_zycit489-ternacion
wa_zycit489-waersfre itab_zycit489-waersfre.
linha text-030 wa_zycit491-waersseg itab_zycit491-waersseg .
valor text-031 wa_zycit491-vlseg itab_zycit491-vlseg
wa_zycit491-waersseg itab_zycit491-waersseg.
LOOP AT itab_zycit492b.
CLEAR: itab_zycit492a, itab_zycit488, wa_zycit488.
READ TABLE itab_zycit492a WITH KEY
adicao = itab_zycit492b-adicao.
READ TABLE itab_zycit488 WITH KEY
ebeln = itab_zycit492b-ebeln
ebelp = itab_zycit492b-ebelp
retif = itab_zycit492b-retif.
wa_zycit488-retif = itab_zycit488-retif - 1.
READ TABLE itab_zycit488 INTO wa_zycit488
WITH KEY
ebeln = itab_zycit492b-ebeln
ebelp = itab_zycit492b-ebelp
retif = wa_zycit488-retif.
READ TABLE itab_zycit493 WITH KEY
adicao = itab_zycit492b-adicao
retif = itab_zycit492b-retif.
READ TABLE itab_zycit493 INTO wa_zycit493
WITH KEY
adicao = itab_zycit492b-adicao
retif = wa_zycit488-retif.
linha text-032 wa_zycit488-j_1bnbm
itab_zycit488-j_1bnbm .
linha text-033 wa_zycit488-naladi
itab_zycit488-naladi .
linha text-034 wa_zycit488-naladincca
itab_zycit488-naladincca .
quant text-035 itab_zycit492a-qtd_est
itab_zycit492b-qtd_est
itab_zycit492a-meinsest
itab_zycit492b-meinsest.
linha text-036 itab_zycit492a-meinsest
itab_zycit492b-meinsest.
valor text-037 itab_zycit492a-baseii
itab_zycit492b-baseii
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-038 wa_zycit488-advalii
itab_zycit488-advalii .
linha text-039 itab_zycit492a-codregtri
itab_zycit492b-codregtri .
linha text-040 itab_zycit492a-codfunleg
itab_zycit492b-codfunleg .
valor text-041 itab_zycit492a-baseipi
itab_zycit492b-baseipi
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-042 wa_zycit488-advalipi
itab_zycit488-advalipi .
linha text-043 itab_zycit492a-codregtriipi
itab_zycit492b-codregtriipi .
linha text-044 wa_zycit488-advalicms
itab_zycit488-advalicms .
valor text-045 itab_zycit492a-basepis
itab_zycit492b-basepis
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
valor text-046 itab_zycit492a-basecofins
itab_zycit492b-basecofins
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-047 itab_zycit492a-advalpis
itab_zycit492b-advalpis .
linha text-048 itab_zycit492a-advalcofins
itab_zycit492b-advalcofins .
linha text-049 itab_zycit492a-codregtripiscofi
itab_zycit492b-codregtripiscofi .
linha text-050 itab_zycit492a-codfunlegpiscofi
itab_zycit492b-codfunlegpiscofi .
linha text-051 itab_zycit492a-redpiscofi
itab_zycit492b-redpiscofi .
linha text-052 itab_zycit492a-codredpiscofi
itab_zycit492b-codredpiscofi .
linha text-053 itab_zycit492a-percreduzpc
itab_zycit492b-percreduzpc .
linha text-054 itab_zycit492a-antidrate
itab_zycit492b-antidrate .
valor text-055 itab_zycit492a-baseantid
itab_zycit492b-baseantid
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
valor text-056 itab_zycit492a-vlantid
itab_zycit492b-vlantid
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-057 itab_zycit492a-meinsantid
itab_zycit492b-meinsantid .
quant text-058 itab_zycit492a-qtdeantid
itab_zycit492b-qtdeantid
itab_zycit492a-meinsantid
itab_zycit492b-meinsantid.
valor text-059 itab_zycit492a-vlii
itab_zycit492b-vlii
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
IF itab_zycit492b-codregtri CA '352'.
CLEAR: itab_zycit492b-vlii.
ENDIF.
IF itab_zycit492a-codregtri CA '352'.
CLEAR: itab_zycit492a-vlii.
ENDIF.
valor text-060 itab_zycit492a-vlii
itab_zycit492b-vlii
/pws/zycbt007-waersb
/pws/zycbt007-waersb .
valor text-061 itab_zycit492a-vlipi
itab_zycit492b-vlipi
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
IF itab_zycit492b-codregtriipi CA '15'.
CLEAR: itab_zycit492b-vlipi.
ENDIF.
IF itab_zycit492a-codregtriipi CA '15'.
CLEAR: itab_zycit492a-vlipi.
ENDIF.
valor text-062 itab_zycit492a-vlipi
itab_zycit492b-vlipi
/pws/zycbt007-waersb
/pws/zycbt007-waersb .
valor text-063 itab_zycit492a-vlpis
itab_zycit492b-vlpis
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
IF itab_zycit492b-codregtripiscofi CA '352'.
CLEAR: itab_zycit492b-vlpis.
ENDIF.
IF itab_zycit492a-codregtripiscofi CA '352'.
CLEAR: itab_zycit492a-vlpis.
ENDIF.
valor text-064 itab_zycit492a-vlpis
itab_zycit492b-vlpis
/pws/zycbt007-waersb
/pws/zycbt007-waersb .
valor text-065 itab_zycit492a-vlcofins
itab_zycit492b-vlcofins
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
IF itab_zycit492b-codregtripiscofi CA '352'.
CLEAR: itab_zycit492b-vlcofins.
ENDIF.
IF itab_zycit492a-codregtripiscofi CA '352'.
CLEAR: itab_zycit492a-vlcofins.
ENDIF.
valor text-066 itab_zycit492a-vlcofins
itab_zycit492b-vlcofins
/pws/zycbt007-waersb
/pws/zycbt007-waersb .
v_devido = ( itab_zycit492a-baseantid * (
itab_zycit492a-antidrate / 100 ) ) +
( itab_zycit492a-vlantid * itab_zycit492a-qtdeantid ).
v_devido2 = ( itab_zycit492b-baseantid * (
itab_zycit492b-antidrate / 100 ) ) +
( itab_zycit492b-vlantid * itab_zycit492b-qtdeantid ).
valor text-067 v_devido
v_devido2
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
valor text-068 v_devido
v_devido2
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-069 wa_zycit493-parcnum
itab_zycit493-parcnum .
linha text-070 wa_zycit493-periodic
itab_zycit493-periodic .
valor text-071 wa_zycit493-valtot
itab_zycit493-valtot
/pws/zycbt007-waersb
/pws/zycbt007-waersb.
linha text-072 wa_zycit493-indice
itab_zycit493-indice .
linha text-073 wa_zycit493-taxajuros
itab_zycit493-taxajuros .
linha text-074 wa_zycit493-codtxjuros
itab_zycit493-codtxjuros .
linha text-075 wa_zycit493-taxarate
itab_zycit493-taxarate .
ENDLOOP.
ENDIF.
wa_zycit489 = itab_zycit489.
wa_zycit491 = itab_zycit491.
wa_zycit493 = itab_zycit493.
REFRESH itab_zycit492a.
itab_zycit492a[] = itab_zycit492b[].
ENDLOOP.
IF itab_relat[] IS INITIAL.
EXIT.
ELSE.
CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
EXPORTING
branch = /pws/zycit001-j_1bbranch
bukrs = /pws/zycit001-bukrs
IMPORTING
address1 = wa_ender
cgc_number = v_cnpj.
WRITE v_cnpj TO v_cnpj2
USING EDIT MASK '__.___.___/____-__'.
SKIP.
WRITE: /2 text-078, /pws/zycit001-j_1bbranch,
/2 text-080, v_cnpj2,
50 text-079, wa_ender-name1.
ENDIF.
LOOP AT itab_zycit491.
CLEAR: v_impr, v_adicao.
LOOP AT itab_relat WHERE retif EQ itab_zycit491-retif.
IF v_impr IS INITIAL.
SKIP 2.
WRITE: /2 text-081, itab_zycit491-codreg,
/2 text-082, itab_zycit491-nrdi,
/2 text-083, itab_zycit491-retif,
50 text-084, itab_zycit491-dtretif,
/2 text-090, itab_zycit491-urfdesp.
SKIP 2.
WRITE: 15 text-001, 63 text-002.
SKIP.
v_impr = 'X'.
ENDIF.
IF itab_relat-adicao NE v_adicao.
CLEAR: itab_zycit488.
LOOP AT itab_zycit492 WHERE adicao EQ itab_relat-adicao
AND retif EQ itab_relat-retif .
READ TABLE itab_zycit488 WITH KEY retif = itab_zycit492-retif
ebeln = itab_zycit492-ebeln
ebelp = itab_zycit492-ebelp.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDLOOP.
SKIP.
WRITE: 2 text-085, itab_relat-adicao,
/2 text-086, itab_zycit488-nrli.
SKIP.
v_adicao = itab_relat-adicao.
ENDIF.
WRITE: /2 itab_relat-campo, /2 itab_relat-de CENTERED,
50 itab_relat-para CENTERED.
ENDLOOP.
ENDLOOP.
ENDFORM. " exibe_relat
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCIR519
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 000
Texto: (0 caracteres)
Comprimento máximo: 1
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (2 caracteres)
"De"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (4 caracteres)
"Para"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (13 caracteres)
"Transportador"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (21 caracteres)
"País do transportador"
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (10 caracteres)
"Embarcação"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 008
Texto: (26 caracteres)
"Tipo de documento de carga"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (35 caracteres)
"Identificação do documento de carga"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (34 caracteres)
"Tipo de conhecimento de transporte"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 011
Texto: (40 caracteres)
"Utilização do conhecimento de transporte"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (13 caracteres)
"Identificação"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (12 caracteres)
"Id do Master"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (17 caracteres)
"Local de embarque"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (16 caracteres)
"Data de embarque"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (5 caracteres)
"Placa"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (20 caracteres)
"Identificação do CRT"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (16 caracteres)
"Pais procedência"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (11 caracteres)
"URF entrada"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (12 caracteres)
"Data chegada"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (12 caracteres)
"Peso líquido"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (10 caracteres)
"Peso bruto"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (20 caracteres)
"Agente transportador"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (16 caracteres)
"Moeda mercadoria"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 025
Texto: (14 caracteres)
"Valor na moeda"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 026
Texto: (11 caracteres)
"Moeda frete"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (13 caracteres)
"Frete prepaid"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 028
Texto: (13 caracteres)
"Frete collect"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (28 caracteres)
"Frete em território nacional"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (15 caracteres)
"Moeda do seguro"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (21 caracteres)
"Valor na moeda seguro"
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (3 caracteres)
"NCM"
Comprimento máximo: 3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (9 caracteres)
"Naladi/SH"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (11 caracteres)
"Naladi/NCCA"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 035
Texto: (22 caracteres)
"Quantidade estatística"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (29 caracteres)
"Unidade na medida estatística"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (18 caracteres)
"Base de cálculo II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 038
Texto: (13 caracteres)
"Ad valorem II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 039
Texto: (17 caracteres)
"Reg tributário II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (19 caracteres)
"Fundamento legal II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (19 caracteres)
"Base de cálculo IPI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (14 caracteres)
"Ad valorem IPI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (18 caracteres)
"Reg tributário IPI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (15 caracteres)
"Ad valorem ICMS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 045
Texto: (19 caracteres)
"Base de cálculo PIS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 046
Texto: (22 caracteres)
"Base de cálculo COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (14 caracteres)
"Ad valorem PIS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (17 caracteres)
"Ad valorem COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (25 caracteres)
"Reg tributário PIS/COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (27 caracteres)
"Fundamento legal PIS/COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (37 caracteres)
"Redução da base de cálculo PIS/COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (38 caracteres)
"Fundamento legal da redução PIS/COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (23 caracteres)
"% da redução PIS/COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (22 caracteres)
"Ad valorem antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (27 caracteres)
"Base de cálculo antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 056
Texto: (30 caracteres)
"Específica - valor antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (42 caracteres)
"Específica - unidade de medida antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (35 caracteres)
"Específica - quantidade antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (15 caracteres)
"Valor devido II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (19 caracteres)
"Valor a recolher II"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 061
Texto: (16 caracteres)
"Valor devido IPI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 062
Texto: (20 caracteres)
"Valor a recolher IPI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (16 caracteres)
"Valor devido PIS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 064
Texto: (20 caracteres)
"Valor a recolher PIS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 065
Texto: (19 caracteres)
"Valor devido COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 066
Texto: (23 caracteres)
"Valor a recolher COFINS"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 067
Texto: (24 caracteres)
"Valor devido antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (28 caracteres)
"Valor a recolher antidumping"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (11 caracteres)
"N. parcelas"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 070
Texto: (13 caracteres)
"Periodicidade"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 071
Texto: (11 caracteres)
"Valor total"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 072
Texto: (20 caracteres)
"Índice periodicidade"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 073
Texto: (14 caracteres)
"Taxas de juros"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 074
Texto: (14 caracteres)
"Código da taxa"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 075
Texto: (7 caracteres)
"Vl taxa"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 076
Texto: (13 caracteres)
"Identificação"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 077
Texto: (20 caracteres)
"Regime de importação"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 078
Texto: (11 caracteres)
"Importador:"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 079
Texto: (5 caracteres)
"Nome:"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 080
Texto: (4 caracteres)
"CGC:"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 081
Texto: (21 caracteres)
"Regime de Importação:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 082
Texto: (11 caracteres)
"Declaração:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 083
Texto: (22 caracteres)
"Número da retificação:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 084
Texto: (20 caracteres)
"Data da Solicitação:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 085
Texto: (7 caracteres)
"Adição:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 086
Texto: (9 caracteres)
"Nº da LI:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 087
Texto: (18 caracteres)
"DI não encontrada!"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 088
Texto: (26 caracteres)
"DI não possui retificação!"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 089
Texto: (30 caracteres)
"Preencher critério de seleção!"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 090
Texto: (13 caracteres)
"URF Despacho:"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_NRSEQ
Texto: (30 caracteres)
"Sequencial do Embarque"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_SEQDI
Texto: (24 caracteres)
"Sequencial da DI"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído título de lista:
Idioma: PT
Texto: (30 caracteres)
"Relatório de Retificação da DI"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIR519
Criar Transação: /PWS/ZYCIR519
Tipo: Transação de Report
Código de transação: /PWS/ZYCIR519
Cl.desenvolvimento : /PWS/ZYCI
Texto da transação: Relat. retificação da Declaraç
Programa: /PWS/ZYCIR519
Tela de seleção: 1000