CE PLUS - Nota 001923
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração Simplificada Export. DSE
Data/Hora da Publicação: 11/08/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:39:23
Descrição da Nota: VALOR TOTAL E DE PESO BRUTO ERRADOS EM DSE
Sintoma
Para embarques com devolução ou nota de crédito, o programa de DSE não estava abatendo valores e
peso das devoluções ou notas de crédito, levando também as mesmas para a pasta de relação de
mercadorias.
Solução
Ajustar a verificação de ordens, abater valores de peso e total quando houver devoluções ou notas de
crédito e apenas manter na pasta de relação de mercadorias os itens que possuam saldo de peso e
valor.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01923 Data: 11/08/2006 Hora: 15:05:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01923
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00126
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01177 - 00001 - 6.0 - 00023 - CRIAÇÃO DE DSE SEGUNDO VALOR LIMITE PARAMETRIZADO
----------------------------------------------------------------------------------------------------
VALOR TOTAL E DE PESO BRUTO ERRADOS EM DSE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DSE; BRUTO; PESO; TOTAL; VALOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE022 1000
FUNC /PWS/ZYCE_DETERMINA_LIMITE_DSE
REPS /PWS/MZYCE022F01
REPS /PWS/MZYCE022I01
REPS /PWS/MZYCE022O01
REPS /PWS/MZYCE022TOP
REPS /PWS/MZYCE022X01
REPS /PWS/SAPMZYCE022
REPT /PWS/SAPMZYCE022
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE022 1000
* >> Alterações em lógica de processamento ---------------------------------------------------------
PROCESS BEFORE OUTPUT.
MODULE: carrega_exit,
load_data,
status_1000,
status_1000_custom,
set_screen,
define_tab,
soma_peso_valor.
* >> Início da exclusão: TELA 1000
CALL SUBSCREEN subs INCLUDING v_mod vdyn.
* << Fim da exclusão
* >> Início da inclusão: TELA 1000
CALL SUBSCREEN subs INCLUDING syst-cprog vdyn.
* << Fim da inclusão
CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.
PROCESS AFTER INPUT.
CHAIN.
FIELD: /pws/zycee208-bukrs.
FIELD: /pws/zycee208-werks.
MODULE load_cgc ON CHAIN-REQUEST.
ENDCHAIN.
FIELD: /pws/zycee208-nrdse MODULE fill_link_emb ON REQUEST.
CALL SUBSCREEN subs.
CALL SUBSCREEN ss_html.
MODULE: user_command_1000,
user_command_exit AT EXIT-COMMAND.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DETERMINA_LIMITE_DSE
...
CHECK NOT wa_zycet065-comissao IS INITIAL.
WHEN 'FRT'.
CHECK NOT wa_zycet065-frete IS INITIAL.
WHEN 'SEG'.
CHECK NOT wa_zycet065-seguro IS INITIAL.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DETERMINA_LIMITE_DSE
WHEN 'EST'.
CONTINUE.
* << Fim da inclusão
ENDCASE.
IF wa_zycet008-vlme_f IS INITIAL.
ADD wa_zycet008-vlme TO v_vlme.
ELSE.
ADD wa_zycet008-vlme_f TO v_vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022F01
FORM clean USING p_type.
CASE p_type.
WHEN '1'.
CLEAR: itab_209, itab_210, itab_211, itab_212, /pws/zycee208,
vinit,
* >> Início da exclusão: FORM CLEAN
v_primeira, itab_saida, itab_002, itab_zycee085.
REFRESH: itab_209, itab_210, itab_211, itab_212, itab_saida,
itab_002, itab_zycee085.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAN
v_primeira,
itab_002.
* << Fim da inclusão
* >> Início da exclusão: FORM CLEAN
FREE MEMORY ID 'ODOC'.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAN
REFRESH: itab_209,
itab_210,
itab_211,
itab_212,
itab_002.
* << Fim da inclusão
ENDCASE.
ENDFORM.
...
DATA: v_pais LIKE t005-land1.
SELECT SINGLE * FROM /pws/zycet001 INTO wa_zycee001
WHERE nrseq = /pws/zycee208-nrseq.
PERFORM verifica_autorizacao_empresa USING wa_zycee001-bukrs.
/pws/zycee208-navio = wa_zycee001-navio.
* >> Início da exclusão: FORM BUSCA_ORDENS
CLEAR itab_002. REFRESH itab_002.
SELECT * FROM /pws/zycet002 INTO TABLE itab_002
WHERE nrseq = /pws/zycee208-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ORDENS
CLEAR itab_002.
REFRESH itab_002.
* << Fim da inclusão
IF NOT /pws/zycee208-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycet001 INTO wa_zycee001
WHERE nrseq = /pws/zycee208-nrseq.
/pws/zycee208-bukrs = wa_zycee001-bukrs.
v_pais = wa_zycee001-paisdest.
* >> Início da inclusão: FORM BUSCA_ORDENS
SELECT auart
FROM /pws/zycet020
INTO TABLE itab_zycet020
WHERE bukrs EQ /pws/zycee208-bukrs
AND tipodoc EQ 'OV'.
* << Fim da inclusão
IF NOT wa_zycee001-werks IS INITIAL.
/pws/zycee208-werks = wa_zycee001-werks.
* >> Início da exclusão: FORM BUSCA_ORDENS
SELECT * FROM /pws/zycet002 INTO TABLE itab_002
WHERE nrseq = /pws/zycee208-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ORDENS
SELECT nrseq
vbeln_va
vbeln_vf
posnr
vbeln_vl
posnl
aupos
waers
fkimg_r
vrkme
matnr
werks
shkzg
vlemb
ntgew_r
brgew_r
arktx
steuc
FROM /pws/zycet002
INTO TABLE itab_002
FOR ALL ENTRIES IN itab_zycet020
WHERE nrseq = /pws/zycee208-nrseq
AND auart EQ itab_zycet020-auart
AND st_vd IN ('VD', 'DP').
* << Fim da inclusão
ELSE.
PERFORM verifica_centro_filial.
ENDIF.
SELECT SINGLE /pws/codpa
FROM t005
INTO /pws/zycee208-paisdest
WHERE land1 = v_pais.
SELECT SINGLE landx FROM t005t INTO (s_paisdest)
WHERE land1 = v_pais
AND spras = sy-langu.
* >> Início da exclusão: FORM BUSCA_ORDENS
SELECT * FROM /pws/zycet002 INTO TABLE itab_002
WHERE nrseq = /pws/zycee208-nrseq.
* << Fim da exclusão
ENDIF.
READ TABLE itab_002 INDEX 1.
SELECT SINGLE j_1bbranch FROM t001w
INTO v_branch
WHERE werks = /pws/zycee208-werks.
...
WHERE a~steuc EQ itab_002-steuc
AND a~land1 EQ 'BR'
AND c~land1 EQ 'BR'
AND c~spras EQ sy-langu.
ENDIF.
* >> Início da exclusão: FORM BUSCA_ORDENS
PERFORM trata_ordem.
* << Fim da exclusão
SELECT a~nrseq b~nrseqdse b~vbeln_va b~aupos b~vbeln_vf b~posnr
FROM /pws/zycet208 AS a
INNER JOIN /pws/zycet210 AS b
ON b~nrseqdse = a~nrseqdse
INTO TABLE itab_itemdse
...
ELSE.
PERFORM fill_rel_mercadorias.
ENDIF.
CALL SCREEN '1000'.
ENDFORM.
* >> Início da exclusão: FORM TRATA_ORDEM
FORM trata_ordem.
DATA: nrseq LIKE /pws/zycee085-nrseq.
IF NOT itab_002[] IS INITIAL.
SELECT vbeln posnr netwr waerk FROM vbap INTO TABLE itab_vbap
FOR ALL ENTRIES IN itab_002
WHERE vbeln EQ itab_002-vbeln_va
AND posnr EQ itab_002-aupos.
ENDIF.
IF NOT itab_002[] IS INITIAL.
SELECT vbeln posnr netwr FROM vbrp INTO TABLE itab_vbapf
FOR ALL ENTRIES IN itab_002
WHERE vbeln EQ itab_002-vbeln_vf
AND posnr EQ itab_002-posnr.
ENDIF.
LOOP AT itab_002.
nrseq = nrseq + 1.
WRITE nrseq TO nrseq RIGHT-JUSTIFIED.
OVERLAY nrseq WITH '0000000000'.
MOVE nrseq TO itab_zycee085-nrseq.
MOVE : itab_002-mandt TO itab_zycee085-mandt,
itab_002-vbeln_va TO itab_zycee085-vbeln_va,
itab_002-vbeln_vf TO itab_zycee085-vbeln_vf,
itab_002-posnr TO itab_zycee085-posnr,
itab_002-aupos TO itab_zycee085-aupos,
itab_002-ntgew TO itab_zycee085-ntgew,
itab_002-brgew TO itab_zycee085-brgew,
itab_002-shkzg TO itab_zycee085-shkzg,
itab_002-nfnum TO itab_zycee085-nfnum,
itab_002-auart TO itab_zycee085-auart,
itab_002-waers TO itab_zycee085-waers,
itab_002-gewei TO itab_zycee085-gewei,
itab_002-inco1 TO itab_zycee085-inco1,
itab_002-vbeln_vl TO itab_zycee085-vbeln_vl,
itab_002-posnl TO itab_zycee085-posnl,
itab_002-fkimg TO itab_zycee085-fkimg,
itab_002-vrkme TO itab_zycee085-vrkme,
itab_002-bukrs TO itab_zycee085-bukrs,
itab_002-fkart TO itab_zycee085-fkart.
READ TABLE itab_vbap WITH KEY vbeln = itab_002-vbeln_va
posnr = itab_002-aupos.
IF sy-subrc = 0.
MOVE : itab_vbap-netwr TO itab_zycee085-vlme.
ENDIF.
READ TABLE itab_vbapf WITH KEY vbeln = itab_002-vbeln_vf
posnr = itab_002-posnr.
IF sy-subrc = 0.
MOVE: itab_vbapf-netwr TO itab_zycee085-vlme.
ENDIF.
APPEND itab_zycee085.
ENDLOOP.
EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.
CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'
EXPORTING
nrseq = /pws/zycee001-nrseq
TABLES
t_saida = itab_saida.
FREE MEMORY ID 'ODOC'.
DELETE itab_saida WHERE vlme = space
AND ntgew = space
AND brgew = space.
IF NOT itab_saida[] IS INITIAL.
LOOP AT itab_002.
vindex = sy-tabix.
READ TABLE itab_saida WITH KEY vbeln_va = itab_002-vbeln_va
aupos = itab_002-aupos
vbeln_vf = itab_002-vbeln_vf
posnr = itab_002-posnr
vbeln_vl = itab_002-vbeln_vl
posnl = itab_002-posnl.
IF sy-subrc = 0.
MOVE :
itab_saida-vlme TO itab_002-vlme,
itab_saida-ntgew TO itab_002-ntgew,
itab_saida-brgew TO itab_002-brgew,
itab_saida-fkimg TO itab_002-fkimg,
itab_saida-vlcomis TO itab_002-vlagente.
MODIFY itab_002 INDEX vindex.
ELSE.
DELETE itab_002 INDEX vindex.
ENDIF.
ENDLOOP.
ELSE.
CLEAR itab_002. REFRESH itab_002. FREE itab_002.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM fill_rel_mercadorias.
DATA: codnrseq LIKE /pws/zycet210-codnrseqdse.
IF vnatureza = text-014.
LOOP AT itab_002.
codnrseq = codnrseq + 1.
...
itab_002-aupos TO itab_210-aupos,
itab_002-vbeln_vf TO itab_210-vbeln_vf,
itab_002-posnr TO itab_210-posnr,
itab_002-vbeln_vl TO itab_210-vbeln_vl,
itab_002-posnl TO itab_210-posnl,
* >> Início da exclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg TO itab_210-qtdncm,
itab_002-ntgew TO itab_210-ntgew,
itab_002-brgew TO itab_210-brgew,
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg_r TO itab_210-qtdncm,
itab_002-ntgew_r TO itab_210-ntgew,
itab_002-brgew_r TO itab_210-brgew,
* << Fim da inclusão
itab_002-vrkme TO itab_210-gewei,
* >> Início da exclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg TO itab_210-qtdcomum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg_r TO itab_210-qtdcomum.
* << Fim da inclusão
PERFORM converte_moeda_mercadoria
USING itab_002-nrseq
itab_002-waers
* >> Início da exclusão: FORM FILL_REL_MERCADORIAS
itab_002-vlme
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_REL_MERCADORIAS
itab_002-vlemb
* << Fim da inclusão
CHANGING itab_210-waers
itab_210-vlme.
READ TABLE itab_t604f WITH KEY steuc = itab_002-steuc.
IF sy-subrc = 0.
itab_210-umncm = itab_t604f-unit.
...
WRITE codnrseq TO codnrseq RIGHT-JUSTIFIED.
OVERLAY codnrseq WITH '000'.
MOVE codnrseq TO itab_211-codnrseqdse.
MOVE: sy-mandt TO itab_211-mandt,
/pws/zycee208-nrseqdse TO itab_211-nrseqdse,
* >> Início da exclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg TO itab_211-qtdbem,
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_REL_MERCADORIAS
itab_002-fkimg_r TO itab_211-qtdbem,
* << Fim da inclusão
itab_002-waers TO itab_211-waers,
* >> Início da exclusão: FORM FILL_REL_MERCADORIAS
itab_002-vlme TO itab_211-vlmer,
itab_002-brgew TO itab_211-brgew,
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_REL_MERCADORIAS
itab_002-vlemb TO itab_211-vlmer,
itab_002-brgew_r TO itab_211-brgew,
* << Fim da inclusão
itab_002-vbeln_va TO itab_211-vbeln_va,
itab_002-aupos TO itab_211-aupos,
itab_002-vbeln_vf TO itab_211-vbeln_vf,
itab_002-posnr TO itab_211-posnr,
itab_002-vbeln_vl TO itab_211-vbeln_vl,
...
FORM verifica_re_dde_dse.
* >> Início da exclusão: FORM VERIFICA_RE_DDE_DSE
SELECT SINGLE * FROM /pws/zycet117 INTO /pws/zycee117
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_RE_DDE_DSE
SELECT SINGLE COUNT(*)
FROM /pws/zycet117
* << Fim da inclusão
WHERE nrseq = /pws/zycee208-nrseq.
IF sy-subrc = 0.
MESSAGE s016 WITH text-011 text-015.
EXIT.
ENDIF.
...
ENDIF.
ELSE.
MESSAGE i016 WITH text-060 text-061.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM DSE_DELE_ITEM
FORM dse_dele_item.
DELETE itab_209 WHERE mark = 'X'.
PERFORM load_tot_esp.
ENDFORM.
* << Fim da exclusão
FORM dse_trans.
CLEAR: vlines.
PERFORM verify_changes.
IF vchanged NE '1'.
CLEAR itab_zycet183_aux.
FREE : itab_zycet183_aux.
SELECT SINGLE * FROM /pws/zycet208 INTO /pws/zycee208
WHERE nrseqdse = /pws/zycee208-nrseqdse.
IF sy-subrc = 0.
* >> Início da exclusão: FORM DSE_TRANS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM DSE_TRANS
SELECT SINGLE COUNT(*)
* << Fim da inclusão
FROM /pws/zycet184
* >> Início da exclusão: FORM DSE_TRANS
INTO /pws/zycet184
* << Fim da exclusão
WHERE uname = sy-uname.
...
input = v_cnpj1
IMPORTING
output = v_cnpj.
/pws/zycee208-cnpj = v_cnpj.
ENDFORM.
* >> Início da exclusão: FORM LOAD_CNPJ
FORM load_cnpj.
DATA: v_branch LIKE t001w-j_1bbranch,
v_cgc LIKE j_1bwfield-cgc_number.
IF /pws/zycee208-cnpj IS INITIAL.
IF NOT /pws/zycee208-werks IS INITIAL.
SELECT SINGLE j_1bbranch FROM t001w
INTO v_branch
WHERE werks = /pws/zycee208-werks.
IF sy-subrc EQ 0.
CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
EXPORTING
branch = v_branch
bukrs = /pws/zycee208-bukrs
IMPORTING
cgc_number = v_cgc
EXCEPTIONS
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
IF sy-subrc EQ 1.
MESSAGE s001 WITH text-047 /pws/zycee208-werks.
ENDIF.
WRITE v_cgc TO /pws/zycee208-cnpj.
ENDIF.
ENDIF.
MOVE /pws/zycee208 TO wa_zycee208.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
FORM verifica_centro_filial.
DATA: v_index LIKE sy-tabix.
REFRESH: itab_centro, itab_centro_aux, itab_locneg.
CLEAR: itab_centro, itab_centro_aux, itab_locneg.
* >> Início da exclusão: FORM VERIFICA_CENTRO_FILIAL
SELECT * FROM /pws/zycet002 INTO TABLE itab_002
WHERE nrseq = /pws/zycee208-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CENTRO_FILIAL
IF NOT itab_002[] IS INITIAL.
SELECT nrseq
vbeln_va
vbeln_vf
posnr
vbeln_vl
posnl
aupos
waers
fkimg_r
vrkme
matnr
werks
shkzg
vlemb
ntgew_r
brgew_r
arktx
steuc
FROM /pws/zycet002
INTO TABLE itab_002
FOR ALL ENTRIES IN itab_zycet020
WHERE nrseq EQ /pws/zycee208-nrseq
AND auart EQ itab_zycet020-auart
AND st_vd IN ('VD', 'DP').
* << Fim da inclusão
LOOP AT itab_002.
IF NOT itab_002-werks IS INITIAL.
SELECT SINGLE j_1bbranch FROM t001w
INTO itab_centro-j_1bbranch
WHERE werks EQ itab_002-werks.
...
APPEND itab_centro.
CLEAR itab_centro.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM VERIFICA_CENTRO_FILIAL
ENDIF.
* << Fim da inclusão
SORT itab_centro BY werks j_1bbranch.
DELETE ADJACENT DUPLICATES FROM itab_centro.
itab_centro_aux[] = itab_centro[].
SORT itab_centro BY werks j_1bbranch.
DELETE ADJACENT DUPLICATES FROM itab_centro.
...
WHERE nrseq = p_nrseq.
ENDIF.
p_merc_waers = wa_zycet312-waers_dse.
p_merc_vlme = p_item_vlme.
CHECK p_merc_vlme NE 0.
* >> Início da inclusão: FORM CONVERTE_MOEDA_MERCADORIA
CHECK p_item_waers NE wa_zycet312-waers_dse.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_MOEDA_MERCADORIA
IF p_item_waers NE wa_zycet312-waers_dse.
* << Fim da exclusão
IF p_item_waers NE 'BRL'.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = p_item_vlme
i_demoeda = p_item_waers
...
check sy-subrc ne 0.
p_merc_waers = p_item_waers.
p_merc_vlme = p_item_vlme.
* >> Início da exclusão: FORM CONVERTE_MOEDA_MERCADORIA
ENDIF.
* << Fim da exclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022I01
...
DELETE itab_209 WHERE mark = 'X'.
PERFORM load_tot_esp.
ENDCASE.
DELETE itab_209 WHERE mark2 EQ 'X'.
ENDMODULE.
* >> Início da exclusão: MODULE USER_COMMAND_0010
MODULE user_command_0010 INPUT.
CASE sy-ucomm.
WHEN 'OK'.
IF /pws/zycee208-natoper = '30' OR /pws/zycee208-natoper = '41' OR
/pws/zycee208-natoper = '71' OR /pws/zycee208-natoper = '72' OR
/pws/zycee208-natoper = '73' OR /pws/zycee208-natoper = '74'.
vnatureza = text-013.
ELSE.
vnatureza = text-014.
ENDIF.
CALL SCREEN '1000'.
WHEN 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
MODULE fill_cgc INPUT.
PERFORM load_cgc.
ENDMODULE.
* << Fim da exclusão
MODULE fill_natoper INPUT.
PERFORM load_natureza.
ENDMODULE.
MODULE fill_unidesp INPUT.
PERFORM load_unidesp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022O01
MODULE load_bens OUTPUT.
MOVE-CORRESPONDING itab_211 TO /pws/zycee211.
MOVE itab_211-smark TO smark.
ENDMODULE.
* >> Início da exclusão: MODULE STATUS_0010
MODULE status_0010 OUTPUT.
SET PF-STATUS '0010'.
ENDMODULE.
* << Fim da exclusão
MODULE set_screen_cols OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = 'EDT' AND sy-tcode NE '/PWS/ZYCE022_E'.
IF sy-dynnr EQ '1200'.
screen-input = '1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022TOP
...
tc_cambio TYPE TABLEVIEW USING SCREEN '1400',
tc_locneg TYPE TABLEVIEW USING SCREEN '0008'.
TABLES:
/pws/zycee001,
/pws/zycet001,
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
/pws/zycet184,
* << Fim da exclusão
/pws/zycee209,
/pws/zycee211,
/pws/zycee216,
/pws/zycee305,
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
/pws/zycet015,
/pws/zycee117,
/pws/zycee085,
* << Fim da exclusão
dd07t,
t001w.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
TABLES:
*t615t.
* << Fim da exclusão
* >> Início da inclusão: INCLUDE /PWS/MZYCE022TOP
TABLES:*t615t.
* << Fim da inclusão
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itstatus OCCURS 0,
fcode LIKE rsmpe-func,
...
vbeln_va LIKE /pws/zycet002-vbeln_va,
aupos LIKE /pws/zycee085-aupos,
vbeln_vf LIKE /pws/zycet002-vbeln_vf,
posnr LIKE /pws/zycet002-posnr,
END OF itab_itemdse.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
DATA: itab_209a LIKE itab_209 OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão: INCLUDE /PWS/MZYCE022TOP
DATA: itab_209a LIKE itab_209 OCCURS 10,
itab_211a LIKE itab_211 OCCURS 10,
itab_212a LIKE itab_212 OCCURS 10,
itab_216a LIKE itab_216 OCCURS 10,
itab_305a LIKE itab_zycet305 OCCURS 10.
* << Fim da inclusão
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
itab_211a LIKE itab_211 OCCURS 10 WITH HEADER LINE,
itab_212a LIKE itab_212 OCCURS 10 WITH HEADER LINE,
itab_216a LIKE itab_216 OCCURS 10 WITH HEADER LINE,
itab_305a LIKE itab_zycet305 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
DATA: BEGIN OF itab_especie OCCURS 10.
INCLUDE STRUCTURE /pws/zycet146.
DATA: END OF itab_especie.
DATA : BEGIN OF it_modo_pri OCCURS 10,
modo LIKE /pws/zycbt039-modo,
...
INCLUDE STRUCTURE /pws/zycet183.
DATA : END OF itab_zycet183.
DATA : BEGIN OF itab_zycet183_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycet183.
DATA : END OF itab_zycet183_aux.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
DATA : BEGIN OF itab_zycet184 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet184.
DATA : END OF itab_zycet184.
DATA : wa_zycet184 LIKE /pws/zycet184.
DATA : BEGIN OF itab_vbap OCCURS 10,
vbeln LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
netwr LIKE vbap-netwr,
waerk LIKE vbap-waerk,
END OF itab_vbap.
DATA : BEGIN OF itab_vbapf OCCURS 10,
vbeln LIKE vbrp-vbeln,
posnr LIKE vbrp-posnr,
netwr LIKE vbrp-netwr,
END OF itab_vbapf.
* << Fim da exclusão
DATA : BEGIN OF itab_t604f OCCURS 10,
steuc LIKE t604f-steuc,
codnaladi LIKE t604f-/pws/codnaladi,
percentagem LIKE t604f-/pws/percentagem,
zzum LIKE t604f-/pws/zum,
codncmre LIKE t604f-/pws/codncmre,
unit LIKE j_1btxip1-unit,
text1 LIKE t604n-text1,
END OF itab_t604f.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
* << Fim da exclusão
DATA: BEGIN OF wa_zycet305 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet305.
DATA: END OF wa_zycet305.
DATA: BEGIN OF itab_centro OCCURS 0,
werks LIKE /pws/zycet002-werks,
...
DATA: BEGIN OF itab_text OCCURS 0,
codnrseqdse LIKE /pws/zycet210-codnrseqdse,
linha2 LIKE /pws/zycet216-linha2,
linha3 LIKE /pws/zycet216-linha3,
END OF itab_text.
* >> Início da inclusão: INCLUDE /PWS/MZYCE022TOP
DATA: BEGIN OF itab_zycet020 OCCURS 10,
auart TYPE /pws/zycet020-auart,
END OF itab_zycet020.
* << Fim da inclusão
DATA: wa_zycee208 LIKE /pws/zycee208,
wa_zycee001 LIKE /pws/zycee001,
wa_zycet145 LIKE /pws/zycet145,
* >> Início da inclusão: INCLUDE /PWS/MZYCE022TOP
wa_zycet184 LIKE /pws/zycet184,
* << Fim da inclusão
wa_empresa LIKE /pws/zycet154,
wa_thead LIKE thead,
wa_cols TYPE cxtab_column.
DATA: BEGIN OF wa_despacho,
codesp LIKE /pws/zycet132-codesp,
...
END OF wa_despacho.
DATA : BEGIN OF itab_t001 OCCURS 1,
bukrs LIKE t001-bukrs,
land1 LIKE t001-land1,
END OF itab_t001.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022TOP
DATA: vmod(30) TYPE c VALUE '/PWS/SAPMZYCE022',
vdyn(4) TYPE c VALUE '1100',
* << Fim da exclusão
* >> Início da inclusão: INCLUDE /PWS/MZYCE022TOP
DATA: vdyn(4) TYPE c VALUE '1100',
* << Fim da inclusão
vtab LIKE sy-ucomm VALUE 'FC_CAB',
vvalue LIKE /pws/zycet208-nrseqdse,
vfield(30),
vmsg(20),
vinit,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022X01
TABLES: /pws/zycee208,
/pws/zycee210.
DATA: BEGIN OF COMMON PART a.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022X01
DATA: BEGIN OF itab_002 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF itab_002.
* << Fim da exclusão
* >> Início da inclusão: INCLUDE /PWS/MZYCE022X01
DATA: BEGIN OF itab_002 OCCURS 10,
nrseq TYPE /pws/zycee002-nrseq,
vbeln_va TYPE /pws/zycee002-vbeln_va,
vbeln_vf TYPE /pws/zycee002-vbeln_vf,
posnr TYPE /pws/zycee002-posnr,
vbeln_vl TYPE /pws/zycee002-vbeln_vl,
posnl TYPE /pws/zycee002-posnl,
aupos TYPE /pws/zycee002-aupos,
waers TYPE /pws/zycee002-waers,
fkimg_r TYPE /pws/zycee002-fkimg_r,
vrkme TYPE /pws/zycee002-vrkme,
matnr TYPE /pws/zycee002-matnr,
werks TYPE /pws/zycee002-werks,
shkzg type /pws/zycee002-shkzg,
vlemb TYPE /pws/zycee002-vlemb,
ntgew_r TYPE /pws/zycee002-ntgew_r,
brgew_r TYPE /pws/zycee002-brgew_r,
arktx TYPE /pws/zycee002-arktx,
steuc TYPE /pws/zycee002-steuc,
END OF itab_002.
* << Fim da inclusão
DATA: BEGIN OF itab_210 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet210.
DATA: marc,
marc2(1) TYPE c,
END OF itab_210.
DATA: itab_210a LIKE itab_210 OCCURS 10 WITH HEADER LINE.
* >> Início da exclusão: INCLUDE /PWS/MZYCE022X01
DATA: BEGIN OF itab_zycee208 OCCURS 1.
INCLUDE STRUCTURE /pws/zycee208.
DATA: END OF itab_zycee208.
* << Fim da exclusão
DATA: e_subrc LIKE sy-subrc.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE022
* >> Não houve alterações relevantes neste include <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE022
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: 010
Texto: (19 caracteres)
"No alteration done."
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (20 caracteres)
"Não houve alteração."
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: 010
Texto: (19 caracteres)
"No hubo alteración."
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: 012
Texto: (1 caracteres)
"D"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (1 caracteres)
"D"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: 012
Texto: (1 caracteres)
"D"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: 038
Texto: (28 caracteres)
"User password is incorrect!!"
Comprimento máximo: 32
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 038
Texto: (32 caracteres)
"Senha de usuário está incorreta."
Comprimento máximo: 32
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: 038
Texto: (32 caracteres)
"Seña de usuario esta incorrecta."
Comprimento máximo: 32
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: 047
Texto: (40 caracteres)
"CNPJ not found to Plant's Branch Office:"
Comprimento máximo: 40
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (40 caracteres)
"CNPJ não encontrado p/ Filial do Centro:"
Comprimento máximo: 40
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: 047
Texto: (38 caracteres)
"CNPJ no encontro p/ Filial del Centro:"
Comprimento máximo: 40
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: EN
Símbolo: 048
Texto: (33 caracteres)
"Document sent WAITING FOR RETURN."
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (37 caracteres)
"Documento enviado AGUARDANDO RETORNO."
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: ES
Símbolo: 048
Texto: (37 caracteres)
"Documento enviado AGUARDANDO RETORNO."
Comprimento máximo: 37