CE PLUS - Nota 005679
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Variação Cambial
Data/Hora da Publicação: 17/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:50:24
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR DO PROGRAMA DE VARIAÇÃO CAMBIAL
Sintoma
Erros/Warnings no Code Inspector e na Verificação Ampliada no Programa do /PWS/ZYCER007 'Variação
Cambial'.
Solução
Correção dos Erros e Warnings Apresentados no Code Inspector e na Verificação Ampliada.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05679 Data: 17/01/2008 Hora: 16:54:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05679
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04825 - 00001 - 7.0 - 00003 - PARAMETRIZAÇÃO DA VARIAÇÃO CAMBIAL
05179 - 00002 - 7.0 - 00003 - CONSISTÊNCIA NA IMPRESSÃO DA NOTA DE VARIAÇÃO CAMBIAL DE AVERBAÇÃ
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO - CODE INSPECTOR DO PROGRAMA DE VARIAÇÃO CAMBIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO, CODE INSPECTOR, VARIAÇÃO CAMBIAL, VARIAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER007
REPT /PWS/ZYCER007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER007
REPORT /pws/zycer007 LINE-SIZE 170
LINE-COUNT 65
MESSAGE-ID /pws/zycem
NO STANDARD PAGE HEADING.
INCLUDE: /pws/zycei007,
/pws/zycex007.
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet079 LIKE /pws/zycet079 OCCURS 10 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
* << Fim da inclusão
SELECT-OPTIONS: s_emb FOR /pws/zycet002-nrseq MEMORY ID
/pws/zycep001.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 1.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a1.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-002.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-002.
* << Fim da inclusão
PARAMETERS: p_nffmes RADIOBUTTON GROUP proc,
p_nfaver RADIOBUTTON GROUP proc,
p_dtate LIKE /pws/zycet001-dtaverb.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 2.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a2.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE text-086.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a3 WITH FRAME TITLE text-086.
* << Fim da inclusão
PARAMETERS: p_reimp AS CHECKBOX.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 3.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a3.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 4 WITH FRAME TITLE text-124.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a4 WITH FRAME TITLE text-124.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_land1 LIKE t001-land1.
SELECTION-SCREEN END OF LINE.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 4.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a4.
* << Fim da inclusão
* >> Início da exclusão:
AT SELECTION-SCREEN ON BLOCK 2.
* << Fim da exclusão
* >> Início da inclusão:
AT SELECTION-SCREEN ON BLOCK a2.
* << Fim da inclusão
IF p_nffmes IS INITIAL AND p_nfaver IS INITIAL.
MESSAGE e001 WITH text-030.
ELSEIF NOT p_nffmes IS INITIAL AND p_dtate IS INITIAL.
MESSAGE e001 WITH text-031.
ELSEIF NOT p_nfaver IS INITIAL AND p_nffmes IS INITIAL
AND p_dtate IS INITIAL.
MESSAGE e001 WITH text-031.
ENDIF.
INITIALIZATION.
* >> Início da exclusão:
DATA: itab_zycet079 LIKE /pws/zycet079 OCCURS 10 WITH HEADER LINE,
v_func LIKE /pws/zycet079-func.
* << Fim da exclusão
SELECT * FROM /pws/zycet079
INTO TABLE itab_zycet079
WHERE codmod EQ 'X'.
READ TABLE itab_zycet079 WITH KEY func = 'VAR'.
IF sy-subrc EQ 0 AND itab_zycet079-transacao NE '/PWS/ZYCER007'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
itab_zycet079-transacao.
IF sy-subrc EQ 0.
CALL TRANSACTION itab_zycet079-transacao.
LEAVE PROGRAM.
...
...
ELSE.
PERFORM contabiliza_nf_varc.
ENDIF.
ENDIF.
ENDIF.
PERFORM mensagem.
SET PF-STATUS '001' EXCLUDING 'NOTE' IMMEDIATELY.
ENDCASE.
FORM seleciona_dados.
DATA: it_002_aux LIKE it_zycet002 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão: FORM SELECIONA_DADOS
DATA: BEGIN OF itab_t005x OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
DATA: BEGIN OF itab_t005x OCCURS 0, "#EC *
* << Fim da inclusão
land LIKE t005x-land,
END OF itab_t005x.
SELECT SINGLE xcodaux1
FROM /pws/zyglt314
INTO /pws/zyglt314-xcodaux1
WHERE ktosl EQ 'VRC'.
CLEAR v_rvr.
SELECT COUNT(*)
FROM /pws/zyglt312
WHERE grupp EQ text-114
AND ktosl EQ text-115.
IF sy-subrc EQ 0.
v_rvr = 'X'.
ENDIF.
IF NOT p_land1 IS INITIAL.
SELECT a~nrseq a~averbacao a~bukrs a~dtaverb a~dtemb
a~kurrf_bl a~nremb a~viatrans a~werks a~codportd a~dtcruze
b~butxt b~land1
FROM /pws/zycet001 AS a INNER JOIN t001 AS b
* >> Início da exclusão: FORM SELECIONA_DADOS
ON a~bukrs = b~bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
ON a~bukrs = b~bukrs "#EC CI_BUFFJOIN
* << Fim da inclusão
INTO TABLE it_zycet001
WHERE nrseq IN s_emb
AND land1 EQ p_land1.
ELSE.
SELECT a~nrseq a~averbacao a~bukrs a~dtaverb a~dtemb
a~kurrf_bl a~nremb a~viatrans a~werks a~codportd a~dtcruze
b~butxt b~land1
FROM /pws/zycet001 AS a INNER JOIN t001 AS b
* >> Início da exclusão: FORM SELECIONA_DADOS
ON a~bukrs = b~bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
ON a~bukrs = b~bukrs "#EC CI_BUFFJOIN
* << Fim da inclusão
INTO TABLE it_zycet001
WHERE nrseq IN s_emb.
ENDIF.
PERFORM trata_emb.
IF NOT it_zycet001[] IS INITIAL.
LOOP AT it_zycet001.
ON CHANGE OF it_zycet001-bukrs.
PERFORM verifica_autorizacao USING it_zycet001-bukrs
'01'.
ENDON.
...
...
INTO TABLE it_t001
FOR ALL ENTRIES IN it_002_aux
WHERE bukrs EQ it_002_aux-bukrs.
SELECT land
FROM t005x
INTO TABLE itab_t005x.
SELECT a~land1 a~curha
FROM t005 AS a
INNER JOIN t005t AS b ON a~land1 = b~land1
INNER JOIN t002 AS c ON a~spras = c~spras
* >> Início da exclusão: FORM SELECIONA_DADOS
INNER JOIN t002t AS d ON c~spras = d~sprsl
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
INNER JOIN t002t AS d ON c~spras = d~sprsl "#EC CI_BUFFJOIN
* << Fim da inclusão
INTO TABLE itab_vt005
FOR ALL ENTRIES IN itab_t005x
WHERE a~curha NE space AND
a~land1 = itab_t005x-land.
SELECT codeven codmod bukrs ctmoed FROM /pws/zycbt011
INTO TABLE itab_zycbt011
FOR ALL ENTRIES IN it_002_aux
WHERE codeven = '009'
AND codmod = 'X'
AND bukrs = it_002_aux-bukrs.
SELECT *
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM SELECIONA_DADOS
FROM /pws/zyglt321.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
FROM /pws/zyglt321. "#EC CI_NOWHERE
* << Fim da inclusão
it_002_aux[] = it_zycet002[].
SORT it_002_aux BY docnum.
DELETE ADJACENT DUPLICATES FROM it_002_aux COMPARING docnum.
SELECT * FROM j_1bnfdoc
INTO TABLE it_j1bnfdoc
FOR ALL ENTRIES IN it_002_aux
WHERE docnum EQ it_002_aux-docnum.
IF NOT it_j1bnfdoc[] IS INITIAL.
SELECT * FROM j_1bnflin
INTO TABLE it_j1bnflin
FOR ALL ENTRIES IN it_j1bnfdoc
WHERE docnum EQ it_j1bnfdoc-docnum.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT *
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven EQ text-039
AND codmod EQ text-040.
* >> Início da inclusão: FORM SELECIONA_DADOS
ENDSELECT.
* << Fim da inclusão
it_002_aux[] = it_zycet002[].
SORT it_002_aux BY bukrs auart.
DELETE ADJACENT DUPLICATES FROM it_002_aux COMPARING bukrs auart.
...
...
FOR ALL ENTRIES IN it_zycet002
WHERE vbeln EQ it_zycet002-vbeln_vf
AND posnr EQ it_zycet002-posnr.
ENDIF.
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
* >> Início da exclusão: FORM SELECIONA_DADOS
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
itab_zyglt100 = itab_zyglt100.
* << Fim da inclusão
ENDIF.
IF it_zycet002[] IS INITIAL.
MESSAGE s001 WITH text-049.
STOP.
ENDIF.
ENDFORM.
FORM processa_dados.
SORT it_zycet001 BY bukrs.
LOOP AT it_zycet001.
ON CHANGE OF it_zycet001-bukrs.
...
...
CHANGING v_dtate.
ELSE.
v_dtate = p_dtate.
ENDIF.
CONCATENATE v_dtate(6) '01' INTO v_dtde.
IF p_reimp NE 'X'.
IF p_nfaver EQ 'X' AND p_nffmes NE 'X'.
LOOP AT it_zycet002.
v_index = sy-tabix.
READ TABLE it_zycet001 WITH KEY nrseq = it_zycet002-nrseq.
* >> Início da exclusão: FORM ITENS_EMBARQUE
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_EMBARQUE
SELECT *
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycit054
INTO /pws/zycit054
WHERE vktra_ci EQ it_zycet001-viatrans.
* >> Início da inclusão: FORM ITENS_EMBARQUE
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_mt = /pws/zycit054-vktra.
ENDIF.
SELECT SINGLE *
...
...
DELETE it_zycet002 INDEX v_index.
CONTINUE.
ELSEIF it_zycet001-dtaverb GT v_dtate.
DELETE it_zycet002 INDEX v_index.
CONTINUE.
ELSE.
it_zycet002-nfaver = 'X'.
MODIFY it_zycet002 INDEX v_index.
ENDIF.
ELSEIF /pws/zycet048-dtvrc EQ 'DTBL'.
* >> Início da exclusão: FORM ITENS_EMBARQUE
SELECT SINGLE dtbl
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_EMBARQUE
SELECT dtbl
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet047
INTO /pws/zycet047-dtbl
WHERE nrseq EQ it_zycet001-nrseq.
* >> Início da inclusão: FORM ITENS_EMBARQUE
ENDSELECT.
* << Fim da inclusão
IF /pws/zycet047-dtbl IS INITIAL.
MOVE: it_zycet002-nrseq TO itab_erro-nrseq,
/pws/zycet048-dtvrc TO itab_erro-dtvrc.
APPEND itab_erro.
...
...
ENDLOOP.
ELSEIF p_nffmes EQ 'X' AND p_nfaver NE 'X'.
LOOP AT it_zycet002.
v_index = sy-tabix.
READ TABLE it_zycet001 WITH KEY nrseq = it_zycet002-nrseq.
SELECT SINGLE *
FROM /pws/zycet048
INTO /pws/zycet048
WHERE vktrt = ( SELECT vktra
FROM /pws/zycit054
* >> Início da exclusão: FORM ITENS_EMBARQUE
WHERE vktra_ci EQ it_zycet001-viatrans ).
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_EMBARQUE
WHERE vktra_ci EQ it_zycet001-viatrans )."#EC CI_BUFFSUBQ
* << Fim da inclusão
IF sy-subrc <> 0.
CLEAR /pws/zycet048-dtvrc.
ENDIF.
CASE /pws/zycet048-dtvrc.
WHEN 'DTEMB'.
v_databl = it_zycet001-dtemb.
WHEN 'DTBL'.
* >> Início da exclusão: FORM ITENS_EMBARQUE
SELECT SINGLE dtbl
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_EMBARQUE
SELECT dtbl
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet047
INTO v_databl
WHERE nrseq EQ it_zycet001-nrseq.
* >> Início da inclusão: FORM ITENS_EMBARQUE
ENDSELECT.
* << Fim da inclusão
IF sy-subrc <> 0.
CLEAR v_databl.
ENDIF.
WHEN 'DTAVERB'.
...
...
ENDFORM.
FORM datas USING p_date1
CHANGING p_date2.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
day_in = p_date1
IMPORTING
last_day_of_month = p_date2
EXCEPTIONS
day_in_no_date = 1
* >> Início da exclusão: FORM DATAS
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DATAS
OTHERS = 2. "#EC *
* << Fim da inclusão
ENDFORM.
FORM busca_taxa.
CLEAR: v_kurrf,
v_defator,
v_parafator.
READ TABLE it_t001 WITH KEY bukrs = it_zycet002-bukrs.
CHECK sy-subrc IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
...
...
OTHERS = 9.
IF sy-subrc IS INITIAL.
v_kurrf = ( v_kurrf / v_defator ) * v_parafator.
ELSE.
CONCATENATE 'de' it_zycet002-waers 'para' it_t001-waers
INTO v_msg SEPARATED BY space.
MESSAGE e016 WITH text-037 v_msg text-038.
ENDIF.
ENDFORM.
FORM preenche_it_relat.
* >> Início da exclusão: FORM PREENCHE_IT_RELAT
DATA: v_date LIKE sy-datum,
v_moeda LIKE t001-waers,
v_ctmoed LIKE /pws/zycbt011-ctmoed.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_IT_RELAT
DATA: v_date LIKE sy-datum, "#EC NEEDED
v_moeda LIKE t001-waers, "#EC NEEDED
v_ctmoed LIKE /pws/zycbt011-ctmoed. "#EC NEEDED
* << Fim da inclusão
CLEAR: it_relat,
it_zycet001,
it_zycet037,
it_vbrp,
v_taxa.
IF it_zycet002-vbeln_vf IS INITIAL.
EXIT.
ENDIF.
READ TABLE it_zycet001 WITH KEY nrseq = it_zycet002-nrseq.
READ TABLE it_zycet037 WITH KEY bukrs = it_zycet002-bukrs.
...
...
it_zycet002-nfaver TO it_relat-nfaver,
it_zycet002-ktgrd TO it_relat-ktgrd,
it_zycet002-ktgrm TO it_relat-ktgrm,
it_zycet002-spara TO it_relat-spara,
it_zycet002-vkorg_auft TO it_relat-vkorg_auft,
it_zycet002-vtweg_auft TO it_relat-vtweg_auft.
MOVE: it_zycet001-averbacao TO it_relat-averbacao,
it_zycet001-codportd TO it_relat-codportd,
it_zycet001-nremb TO it_relat-nremb.
CLEAR v_mt.
* >> Início da exclusão: FORM PREENCHE_IT_RELAT
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_IT_RELAT
SELECT *
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycit054
INTO /pws/zycit054
WHERE vktra_ci EQ it_zycet001-viatrans.
* >> Início da inclusão: FORM PREENCHE_IT_RELAT
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_mt = /pws/zycit054-vktra.
ENDIF.
SELECT SINGLE *
...
...
WHERE vktrt EQ v_mt.
IF /pws/zycet048-dtvrc IS INITIAL.
MOVE it_zycet001-dtemb TO it_relat-dtbl.
ELSEIF /pws/zycet048-dtvrc EQ 'DTEMB'.
MOVE it_zycet001-dtemb TO it_relat-dtbl.
ELSEIF /pws/zycet048-dtvrc EQ 'DTCRUZE'.
MOVE it_zycet001-dtcruze TO it_relat-dtbl.
ELSEIF /pws/zycet048-dtvrc EQ 'DTAVERB'.
MOVE it_zycet001-dtaverb TO it_relat-dtbl.
ELSEIF /pws/zycet048-dtvrc EQ 'DTBL'.
* >> Início da exclusão: FORM PREENCHE_IT_RELAT
SELECT SINGLE dtbl
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_IT_RELAT
SELECT dtbl
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet047
INTO /pws/zycet047-dtbl
WHERE nrseq EQ it_zycet001-nrseq.
* >> Início da inclusão: FORM PREENCHE_IT_RELAT
ENDSELECT.
* << Fim da inclusão
MOVE /pws/zycet047-dtbl TO it_relat-dtbl.
ENDIF.
IF p_nffmes EQ 'X'.
PERFORM encontra_taxa USING p_dtate.
...
...
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = p_bukrs
ktosl = p_ktosl
codaux1 = p_codaux1
TABLES
account = it_account
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
* >> Início da exclusão: FORM READ_ACCOUNT_NUMBER
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM READ_ACCOUNT_NUMBER
OTHERS = 3. "#EC *
* << Fim da inclusão
READ TABLE it_account INDEX 1.
ENDFORM.
FORM imprime_embarque.
SKIP.
ULINE.
WRITE: /001 '|' ,
002(010) text-001,
012(010) wa_relat-nrseq,
027(009) text-032,
036(010) wa_relat-dtbl,
...
...
ENDFORM.
FORM cabecalho.
DATA: v_dia_sem(20) TYPE c,
v_dtate_char(100) TYPE c.
CALL FUNCTION '/PWS/ZYCB_DIA_DA_SEMANA'
EXPORTING
datum = sy-datlo
IMPORTING
dia_da_semana = v_dia_sem
EXCEPTIONS
* >> Início da exclusão: FORM CABECALHO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO
OTHERS = 1. "#EC *
* << Fim da inclusão
ULINE.
WRITE: 001 '|', sy-datlo, v_dia_sem,
158 text-007, sy-pagno, '|'.
ULINE.
CONCATENATE v_dtate+6(2) '.' v_dtate+4(2) '.' v_dtate(4)
INTO v_dtate_char.
CONCATENATE text-008 v_dtate_char
INTO v_dtate_char SEPARATED BY space.
WRITE: /001 '|', 002(168) v_empresa CENTERED, 170 '|',
/001 '|', 002(168) v_dtate_char CENTERED, 170 '|'.
...
...
TABLES
t_dados =
it_zycee005
t_campos = it_zycet004
t_zycet005 = it_zycet005
t_message = it_zycee006
t_itensnf = it_itmnf
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
* >> Início da exclusão: FORM CONTABILIZA_J1B1
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_J1B1
OTHERS = 3. "#EC *
* << Fim da inclusão
ENDIF.
ELSE.
IF NOT it_zycet035-nfcref IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_J1B1N_B'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados =
it_zycee005
t_campos = it_zycet004
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
* >> Início da exclusão: FORM CONTABILIZA_J1B1
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_J1B1
OTHERS = 3. "#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF it_zycet004[] IS INITIAL AND
v_executa_j1b1 EQ 'X'.
IF it_zycet035-flagfunc IS INITIAL.
IF it_zycet035-nfcref IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_J1B1'
...
...
it_zycee005-meins = it_relat-vrkme.
IF it_emitenf-difer LT 0.
it_zycee005-nfnum = 0.
ELSE.
it_zycee005-nfnum = it_relat-nfnum.
ENDIF.
ELSE.
it_zycee005-meins = text-057.
ENDIF.
CLEAR: v_kunnr, v_lifnr.
* >> Início da exclusão: FORM FILL_DATA_J1B1
SELECT SINGLE kunnr lifnr
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
SELECT kunnr lifnr
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_kunnr, v_lifnr)
FROM vbpa
WHERE vbeln EQ it_relat-vbeln_vf
AND parvw EQ it_zycet035-parvw.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ENDSELECT.
* << Fim da inclusão
IF sy-subrc IS INITIAL.
IF NOT v_kunnr IS INITIAL.
PERFORM verify_null_field USING v_kunnr
...
...
IMPORTING
v_year = v_year
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
* >> Início da inclusão: FORM FILL_DATA_FB08
CHECK sy-subrc = 0.
* << Fim da inclusão
it_zycee005-gjahs = v_year.
it_zycee005-stgrd = '02'.
APPEND it_zycee005.
ENDFORM.
FORM estorna_doctos.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
OR v_emb1 = '98'
OR v_emb1 = '97'.
DELETE it_zycet001 INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT it_zycet001.
v_emb1 = it_zycet001-nrseq+8(2).
IF NOT v_emb1 = s_emb-high+8(2).
IF NOT s_emb-low IS INITIAL.
* >> Início da exclusão: FORM TRATA_EMB
IF NOT v_emb1 >= s_emb-low+8(2).
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EMB
IF NOT v_emb1 GE s_emb-low+8(2). "#EC PORTABLE
* << Fim da inclusão
DELETE it_zycet001 INDEX sy-tabix.
ENDIF.
ENDIF.
IF NOT s_emb-high IS INITIAL.
* >> Início da exclusão: FORM TRATA_EMB
IF v_emb1 > s_emb-high+8(2).
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EMB
IF v_emb1 GT s_emb-high+8(2). "#EC PORTABLE
* << Fim da inclusão
DELETE it_zycet001 INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM busca_incoterm TABLES p_it_zycet002 STRUCTURE it_zycet002
CHANGING p_it_zycee005_inco1 LIKE it_zycee005-inco1
p_it_zycee005_inco2 LIKE it_zycee005-inco2.
READ TABLE p_it_zycet002 INDEX 1 TRANSPORTING inco1.
...
...
FORM verifica_autorizacao USING p_bukrs LIKE /pws/zycet001-bukrs
p_actvt TYPE n.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD p_bukrs
ID 'ACTVT' FIELD p_actvt.
IF NOT sy-subrc IS INITIAL.
MESSAGE e016 WITH text-003 sy-uname text-127 p_bukrs.
ENDIF.
ENDFORM.
FORM executa_shiftf9.
SELECT * FROM /pws/zycbt039
* >> Início da exclusão: FORM EXECUTA_SHIFTF9
INTO CORRESPONDING FIELDS OF TABLE it_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
INTO CORRESPONDING FIELDS OF TABLE it_modo. "#EC CI_NOWHERE
* << Fim da inclusão
SORT it_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-092
textline2 = text-093
titel = text-094
IMPORTING
answer = v_modo_bi
TABLES
* >> Início da exclusão: FORM EXECUTA_SHIFTF9
t_spopli = it_modo
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
t_spopli = it_modo "#EC *
* << Fim da inclusão
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
IF sy-subrc = 0.
* << Fim da inclusão
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM contabiliza_j1b1_ref.
DATA: r_nrseq LIKE /pws/zycet002-nrseq,
r_branch LIKE j_1bnfdoc-branch,
r_docnum LIKE /pws/zycet002-docnum,
r_itmnum LIKE j_1bnflin-itmnum,
v_execute TYPE i,
r_nrseq1 LIKE /pws/zycet002-nrseq,
r_branch1 LIKE j_1bnfdoc-branch,
r_docnum1 LIKE /pws/zycet002-docnum.
...
...
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
t_campos = it_zycet004
t_zycet005 = it_zycet005
t_message = it_zycee006
t_itensnf = it_itmnf
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
* >> Início da exclusão: FORM CONTABILIZA_J1B1_REF
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_J1B1_REF
OTHERS = 3. "#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDON.
ENDLOOP.
IF NOT it_zycee005_aux[] IS INITIAL.
APPEND LINES OF it_zycee005_aux[] TO it_zycee005[].
ENDIF.
IF sy-subrc = 0.
* >> Início da exclusão: FORM CONTABILIZA_J1B1_REF
CALL CUSTOMER-FUNCTION '002'.
* << Fim da exclusão
LOOP AT it_relat.
CLEAR v_execute.
IF NOT it_zycet035-nfcref IS INITIAL.
IF it_relat-nrseq NE r_nrseq1 OR
it_relat-branch NE r_branch1 OR
it_relat-docnum NE r_docnum1.
MOVE 1 TO v_execute.
ENDIF.
ELSEIF it_relat-nrseq NE r_nrseq1 OR
it_relat-branch NE r_branch1.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
ELSE.
PERFORM limpa_tabelas.
ENDIF.
PERFORM limpa_tabelas.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_MONTANTES_IMPOSTO
FORM verifica_montantes_imposto.
TYPES: BEGIN OF ty_impostos,
taxtyp TYPE j_1bnfstx-taxtyp,
excbas TYPE j_1bnfstx-excbas,
othbas TYPE j_1bnfstx-othbas,
END OF ty_impostos.
DATA: itab_impostos TYPE TABLE OF ty_impostos,
wa_impostos TYPE ty_impostos.
REFRESH itab_impostos.
CLEAR wa_impostos.
SELECT taxtyp
excbas
othbas
FROM j_1bnfstx
INTO TABLE itab_impostos
WHERE docnum EQ it_emitenf-docnum
AND itmnum EQ it_emitenf-itmnum.
CHECK sy-subrc IS INITIAL.
LOOP AT itab_impostos INTO wa_impostos.
CASE sy-tabix.
WHEN 1.
IF NOT wa_impostos-excbas IS INITIAL.
it_zycee005-c_excbas = wa_impostos-excbas.
ELSE.
it_zycee005-othbas = wa_impostos-othbas.
ENDIF.
WHEN 2.
IF NOT wa_impostos-excbas IS INITIAL.
it_zycee005-p_excbas = wa_impostos-excbas.
ELSE.
it_zycee005-othbas2 = wa_impostos-othbas.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDFORM.
* << Fim da exclusão
FORM determinar_preenchimento USING p_chave
p_evento
p_parametro
CHANGING
p_campo.
CLEAR itab_zyglt321.
READ TABLE itab_zyglt321 WITH KEY ktosl = p_chave
codeven = p_evento
cpor3 = p_parametro
TRANSPORTING cpocb
...
...
DATA: it_zycet009 TYPE STANDARD TABLE OF /pws/zycet009,
wa_zycet009 LIKE LINE OF it_zycet009[].
DATA: v_index TYPE sy-tabix.
LOOP AT p_t_zycet001 INTO wa_zycet001.
CALL FUNCTION '/PWS/ZYCE_SEPARA_ITENS_EMB'
EXPORTING
nrseq = wa_zycet001-nrseq
TABLES
tab_saida = it_itens[]
EXCEPTIONS
* >> Início da exclusão: FORM SELECIONA_ITENS_EMBARQUE
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_EMBARQUE
OTHERS = 1. "#EC *
* << Fim da inclusão
APPEND LINES OF it_itens[] TO p_t_zycet002[].
CLEAR: it_itens[].
ENDLOOP.
IF p_reimpressao IS INITIAL AND NOT
p_t_zycet002[] IS INITIAL.
SELECT *
FROM /pws/zycet009
INTO TABLE it_zycet009
FOR ALL ENTRIES IN p_t_zycet002[]
WHERE nrseq = p_t_zycet002-nrseq AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCER007
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 107
Texto: (5 caracteres)
"SGTXT"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 108
Texto: (5 caracteres)
"NRSEQ"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 109
Texto: (5 caracteres)
"NREMB"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 117
Texto: (63 caracteres)
"Nota Fiscal Complementar de Variação Cambial ref. a Nota Fiscal"
Comprimento máximo: 68
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 118
Texto: (11 caracteres)
"de Venda nº"
Comprimento máximo: 11