Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 15/05/2007 00:00:00
Data/Hora Última Alteração: 03/03/2010 13:54:44
Descrição da Nota: CONSISTÊNCIA NO PROGRAMA ADIANTAMENTO E PRESTAÇÃO DE CONTAS
Sintoma
Deverá ser desenvolvida na Prestação de Contas e no Adiantamento uma consistência que traga na tela
somente as despesas cadastradas para o fornecedor do processo.
Para isso deverá ser feita a inclusão do campo Fornecedor na tabela de parâmetros de despesas.
A especificação segue por e-mail, pois não cabe como anexo.
Solução
Criado os campos TIPO DE FORNCEDOR e CÓD. DO FORNECEDOR.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03681 Data: 15/05/2007 Hora: 14:48:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03681
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CONSISTÊNCIA NO PROGRAMA ADIANTAMENTO E PRESTAÇÃO DE CONTAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE, ADIANTAMENTO, PRESTAÇÃO DE CONTAS, PARCEIROS, FORNECEDOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTED /PWS/ZYGLL158
DYNP /PWS/SAPMZYCE005 0100
DYNP /PWS/SAPMZYCE013 0001
PARA /PWS/ZYGLP158
REPS /PWS/MZYCE003F02
REPS /PWS/MZYCE005F01
REPS /PWS/MZYCE005O01
REPS /PWS/MZYCE005TOP
REPS /PWS/MZYCE005X01
REPS /PWS/MZYCE013F01
REPS /PWS/MZYCE013TOP
REPS /PWS/MZYCE013X01
SHLD /PWS/ZYCEA071
TABD /PWS/ZYCEE018
TABD /PWS/ZYCEE021
TABD /PWS/ZYCEE033
TABD /PWS/ZYCET018
TABD /PWS/ZYCET021
TABD /PWS/ZYCET033
TOBJ /PWS/ZYCET021S
TRAN /PWS/ZYCET021
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTED /PWS/ZYGLL158
MODIFICAR ELEMENTO DE DADOS: /PWS/ZYGLL158______________________________
DESCRIÇÃO BREVE: GL - Tipo do Fornecedor________________________________
DEFINIÇÃO
CATEGORIA DE DADOS:
(_) - CATEGORIA ELEMENTAR
(_) - DOMÍNIO ____________________________
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
ATRIBUTOS:
REDIMENS: (_) - VERTICAL (_) - HORIZONTAL
___ - LINHAS MIN. ___ - COLUNAS MIN.
CARACTERÍSTICAS:
ID PARÂMETRO: /PWS/ZYGLP158______
NOME COMPENENTE DEFAULT: ________________________
(_) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
BREVE : ___ __________________
MÉDIO : ___ ______________________________
LONGA : ___ _________________________________________
TÍTULO: ___ _______________________________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE005 0100
CRIAR CPO. TEXTO (LABEL): Tipo_do_Fornecedor
NOME : /PWS/ZYCEE015-TIPO
TEXTO: Tipo_do_Fornecedor
LINHA: 9 COLUNA: 2
COMPR.VIS.: 18 ALTURA: 1
COMPR.DEF.: 18
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: 3
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(X) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
CRIAR CPO. SELEÇÃO(LISTBOX): Tipo_do_Fornecedor
NOME : /PWS/ZYCEE018-TIPO
TEXTO: ___
LINHA: 9 COLUNA: 24
COMPR.VIS.: 22 ALTURA: 1
COMPR.DEF.: 3
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.:
ID PARÂMETRO: /PWS/ZYGLP158
(X) PARAMETRO SET
(X) PÀRAMETRO GET
PROGRAMA:
(X) - CAMPO DE ENTRADA
Input: REQUIRED
(X) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE013 0001
CRIAR CPO. Texto(LABEL): Tipo_do_Fornecedor
NOME :
TEXTO: Tipo_de_Fornecedor
LINHA: 9 COLUNA: 29
COMPR.VIS.: 18 ALTURA: 1
COMPR.DEF.: 18
DICIONÁRIO:
FORMATO: CHAR
(_) - DO DICT. MODIFIC.:
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(X) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
(_) - SENSIVEL AO CLIQUE DUPLO
CRIAR CPO. SELEÇÃO(LISTBOX): Tipo_do_Fornecedor
NOME : /PWS/ZYCEE018-TIPO
TEXTO: ___
LINHA: 9 COLUNA: 48
COMPR.VIS.: 18 ALTURA: 1
COMPR.DEF.: 3
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.:
ID PARÂMETRO: /PWS/ZYGLP158
(X) PARAMETRO SET
(X) PÀRAMETRO GET
PROGRAMA:
(X) - CAMPO DE ENTRADA
Input: REQUIRED
(X) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PARA /PWS/ZYGLP158
MODIFICAR ELEMENTO DE DADOS: ______________________________
DESCRIÇÃO BREVE: GL - Tipo do Fornecedor________________________________
DEFINIÇÃO
CATEGORIA DE DADOS:
(_) - CATEGORIA ELEMENTAR
(_) - DOMÍNIO ____________________________
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
ATRIBUTOS:
REDIMENS: (_) - VERTICAL (_) - HORIZONTAL
___ - LINHAS MIN. ___ - COLUNAS MIN.
CARACTERÍSTICAS:
ID PARÂMETRO: /PWS/ZYGLP158______
NOME COMPENENTE DEFAULT: GL - Tipo do Fornecedor
(_) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
BREVE : ___ __________________
MÉDIO : ___ ______________________________
LONGA : ___ _________________________________________
TÍTULO: ___ _______________________________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
PERFORM okcode_rvend CHANGING v_chamou.
WHEN 'SADIA'.
LOOP AT itab_parceiro WHERE mark = 'X' AND
koart = 'K' AND
tipo NE space.
EXIT.
ENDLOOP.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCEP003' FIELD itab_parceiro-kunnr.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycee001-nrseq.
* >> Início da inclusão: FORM TRATA_FUNCIONALIDADES
SET PARAMETER ID '/PWS/ZYGLP158' FIELD itab_parceiro-tipo.
* << Fim da inclusão
PERFORM okcode_funcao USING '/PWS/ZYCE005'
' '
' '
'X'
CHANGING v_chamou.
ELSE.
MESSAGE s250.
CLEAR v_chamou.
ENDIF.
WHEN 'SPCON'.
LOOP AT itab_parceiro WHERE mark = 'X' AND
koart = 'K' AND
tipo NE space.
EXIT.
ENDLOOP.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCEP003' FIELD itab_parceiro-kunnr.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycee001-nrseq.
* >> Início da inclusão: FORM TRATA_FUNCIONALIDADES
SET PARAMETER ID '/PWS/ZYGLP158' FIELD itab_parceiro-tipo.
* << Fim da inclusão
PERFORM okcode_funcao USING '/PWS/ZYCE013_C'
'PRE'
' '
'X'
CHANGING v_chamou.
ELSE.
MESSAGE s250.
CLEAR v_chamou.
ENDIF.
WHEN 'VCAMB'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE005F01
...
ON lfa1~lifnr = /pws/zycet015~despach
WHERE lfa1~lifnr = /pws/zycee001-despach.
MOVE wa_descdesp-name1 TO lfa1-name1.
IF sy-subrc NE 0.
MESSAGE w001 WITH text-001.
ENDIF.
ENDFORM.
FORM select_despachante.
SELECT /pws/zycet001~nrseq /pws/zycet015~despach /pws/zycet001~bukrs
/pws/zycet001~werks /pws/zycet001~nremb
* >> Início da inclusão: FORM SELECT_DESPACHANTE
/pws/zycet015~tipo
* << Fim da inclusão
INTO TABLE it_tab2
FROM /pws/zycet015 INNER JOIN /pws/zycet001
ON /pws/zycet015~nrseq = /pws/zycet001~nrseq
WHERE /pws/zycet015~despach = /pws/zycee001-despach
* >> Início da exclusão: FORM SELECT_DESPACHANTE
AND /pws/zycet001~nrseq IN it_nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPACHANTE
AND /pws/zycet001~nrseq IN it_nrseq
AND /pws/zycet015~tipo = /pws/zycee018-tipo.
* << Fim da inclusão
SELECT nrseq nradto vlmi dtaprov dtvencto dtacerto codmod
* >> Início da exclusão: FORM SELECT_DESPACHANTE
status dtincl tpgto area
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPACHANTE
status dtincl tpgto area tipo
* << Fim da inclusão
INTO TABLE it_tab3
FROM /pws/zycet018
WHERE despach = /pws/zycee001-despach
AND codmod = 'X'
AND status = /pws/zycee018-status
AND nrseq IN it_nrseq
* >> Início da exclusão: FORM SELECT_DESPACHANTE
AND tpgto = 'A'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPACHANTE
AND tpgto = 'A'
AND tipo = /pws/zycee018-tipo.
* << Fim da inclusão
PERFORM atualiza_it_tab.
v_codmod = 'X'.
LOOP AT it_tab.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ it_tab-bukrs.
MOVE-CORRESPONDING it_tab TO it_tab_aux.
it_tab_aux-waersb = wa_zycbt007-waersb.
APPEND it_tab_aux.
ENDLOOP.
...
...
ENDIF.
APPEND it_zycet045_aux.
ENDLOOP.
IF /pws/zycee018-dtincl EQ ' ' OR
/pws/zycee018-dtincl EQ '00000000' OR
/pws/zycee018-dtincl IS INITIAL.
/pws/zycee018-dtincl = sy-datlo.
ENDIF.
ENDFORM.
FORM select_tables.
* >> Início da exclusão: FORM SELECT_TABLES
DATA: tipo LIKE /pws/zycet015-tipo.
* << Fim da exclusão
SELECT SINGLE land1 FROM t001
INTO t001-land1
WHERE bukrs = /pws/zycee018-bukrs .
SELECT SINGLE regio FROM t001w
INTO t001w-regio
WHERE werks = /pws/zycee018-werks.
SELECT SINGLE tipo FROM /pws/zycet015
INTO tipo
WHERE nrseq = /pws/zycee018-nrseq
* >> Início da exclusão: FORM SELECT_TABLES
AND despach = /pws/zycee018-despach.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
AND despach = /pws/zycee018-despach
AND tipo = /pws/zycee018-tipo.
* << Fim da inclusão
* >> Início da exclusão: FORM SELECT_TABLES
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE werks = /pws/zycee018-werks AND
bukrs = /pws/zycee018-bukrs AND
regio = t001w-regio AND
land1 = t001-land1 AND
prestc = 'X' AND
tipo = tipo AND
lifnr = /pws/zycee018-despach.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE werks = /pws/zycee018-werks AND
bukrs = /pws/zycee018-bukrs AND
regio = t001w-regio AND
tipo = tipo AND
lifnr = /pws/zycee018-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE werks = /pws/zycee018-werks AND
bukrs = /pws/zycee018-bukrs AND
tipo = tipo AND
lifnr = /pws/zycee018-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE bukrs = /pws/zycee018-bukrs AND
tipo = tipo AND
lifnr = /pws/zycee018-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND prestc EQ 'X'
AND tipo = tipo
AND lifnr = /pws/zycee018-despach.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo = tipo
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo = tipo
AND lifnr EQ space
AND prestc EQ 'X'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr = /pws/zycee018-despach
AND prestc EQ 'X'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE it_despesa
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
PERFORM select_parameters
USING
t001-land1
/pws/zycee018-bukrs
t001w-regio
/pws/zycee018-werks
tipo
/pws/zycee018-despach
'X'
CHANGING
it_despesa[].
* << Fim da inclusão
IF NOT /pws/zycee018-dtincl IS INITIAL AND
NOT /pws/zycee018-vlmi IS INITIAL.
IF NOT it_despesa[] IS INITIAL.
SELECT * FROM /pws/zycet045 INTO TABLE it_zycet045
FOR ALL ENTRIES IN it_despesa
WHERE tpdesp = it_despesa-tpdesp
AND nradto = /pws/zycee018-nradto.
ENDIF.
ENDIF.
SELECT * FROM /pws/zyglt334 INTO TABLE itab_zyglt334
...
...
MOVE it_tab_aux-zlsch TO /pws/zycee018-zlsch.
MOVE it_tab_aux-zlspr TO /pws/zycee018-zlspr.
IF NOT it_tab_aux-dtincl IS INITIAL AND
NOT it_tab_aux-vlmi IS INITIAL AND
NOT it_tab_aux-dtvencto IS INITIAL.
MOVE: it_tab_aux-embarca TO /pws/zycee018-embarca,
it_tab_aux-nrseq TO /pws/zycee018-nrseq,
it_tab_aux-werks TO /pws/zycee018-werks,
it_tab_aux-bukrs TO /pws/zycee018-bukrs,
it_tab_aux-waersb TO /pws/zycee018-waers,
* >> Início da inclusão: FORM CRIAR_DOCUMENTO
it_tab_aux-tipo TO /pws/zycee018-tipo,
* << Fim da inclusão
it_tab_aux-despach TO /pws/zycee018-despach.
CLEAR: it_tab_aux-dtincl, it_tab_aux-vlmi, it_tab_aux-dtvencto,
/pws/zycee018-vlmi, /pws/zycee018-dtvencto.
IF it_tab_aux[] IS INITIAL.
APPEND it_tab_aux.
ENDIF.
PERFORM seleciona_dados.
IF sy-tcode EQ '/PWS/ZYCE005'.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
...
...
PERFORM busca_exit USING 'ADT002'.
CALL SCREEN '0300'.
ELSE.
MOVE: it_tab_aux-embarca TO /pws/zycee018-embarca,
it_tab_aux-nrseq TO /pws/zycee018-nrseq,
it_tab_aux-dtincl TO /pws/zycee018-dtincl,
it_tab_aux-vlmi TO /pws/zycee018-vlmi,
it_tab_aux-dtvencto TO /pws/zycee018-dtvencto,
it_tab_aux-werks TO /pws/zycee018-werks,
it_tab_aux-bukrs TO /pws/zycee018-bukrs,
* >> Início da inclusão: FORM CRIAR_DOCUMENTO
it_tab_aux-tipo TO /pws/zycee018-tipo,
* << Fim da inclusão
it_tab_aux-despach TO /pws/zycee018-despach.
MODIFY it_tab_aux INDEX sy-tabix.
SELECT SINGLE waers
FROM t001
INTO /pws/zycee018-waers
WHERE bukrs = it_tab_aux-bukrs.
IF sy-subrc <> 0.
CLEAR /pws/zycee018-waers.
ENDIF.
PERFORM seleciona_dados.
...
...
it_tab-nradto = it_tab3-nradto.
it_tab-vlmi = it_tab3-vlmi.
it_tab-dtaprov = it_tab3-dtaprov.
it_tab-dtvencto = it_tab3-dtvencto.
it_tab-dtacerto = it_tab3-dtacerto.
it_tab-codmod = it_tab3-codmod.
it_tab-status = it_tab3-status.
it_tab-dtincl = it_tab3-dtincl.
it_tab-tpgto = it_tab3-tpgto.
it_tab-area = it_tab3-area.
* >> Início da inclusão: FORM ATUALIZA_IT_TAB
it_tab-tipo = it_tab3-tipo.
* << Fim da inclusão
ENDIF.
APPEND it_tab.
ENDLOOP.
LOOP AT it_tab2.
READ TABLE it_tab WITH KEY nrseq = it_tab2-nrseq.
IF sy-subrc NE 0.
CLEAR:
it_tab-nradto ,
it_tab-vlmi ,
it_tab-dtaprov ,
...
...
it_tab-dtacerto,
it_tab-codmod ,
it_tab-status ,
it_tab-dtincl ,
it_tab-tpgto .
it_tab-nrseq = it_tab2-nrseq.
it_tab-despach = it_tab2-despach.
it_tab-bukrs = it_tab2-bukrs.
it_tab-werks = it_tab2-werks.
it_tab-embarca = it_tab2-nremb.
* >> Início da inclusão: FORM ATUALIZA_IT_TAB
it_tab-tipo = it_tab2-tipo.
* << Fim da inclusão
APPEND it_tab.
ENDIF.
ENDLOOP.
ENDFORM.
FORM chama_embarque.
DATA: v_campo2(50),
v_valor2(20),
v_emb1 LIKE /pws/zycet018-nrseq,
v_export(10) TYPE c.
GET CURSOR FIELD v_campo2 VALUE v_valor2.
...
...
EXIT.
ENDCASE.
ENDFORM.
FORM checar_prestacao CHANGING p_prestacao.
SELECT SINGLE nrpres
FROM /pws/zycet033
INTO p_prestacao
WHERE nrseq EQ /pws/zycee018-nrseq
AND nradto EQ /pws/zycee018-nradto.
ENDFORM.
* >> Início da inclusão:
FORM select_parameters
USING
p_land1 TYPE t001-land1
p_bukrs TYPE /pws/zycee018-bukrs
p_regio TYPE t001w-regio
p_werks TYPE /pws/zycee018-werks
p_tipo TYPE /pws/zycet015-tipo
p_lifnr TYPE /pws/zycee018-despach
p_prestc TYPE /pws/zycet021-prestc
CHANGING
p_it_despesa TYPE t_despesa.
DATA: BEGIN OF p_it_despesa_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet021.
DATA: END OF p_it_despesa_aux.
SELECT *
INTO TABLE p_it_despesa[]
FROM /pws/zycet021
WHERE land1 IN (p_land1, space)
AND bukrs IN (p_bukrs, space)
AND regio IN (p_regio, space)
AND werks IN (p_werks, space)
AND tipo IN (p_tipo, space)
AND lifnr IN (p_lifnr, space)
AND prestc IN (p_prestc).
CHECK sy-subrc = 0.
SORT p_it_despesa[] DESCENDING BY werks
bukrs
regio
land1
tipo
lifnr
prestc.
DATA: wa_despesa LIKE LINE OF p_it_despesa[].
LOOP AT p_it_despesa INTO wa_despesa.
READ TABLE p_it_despesa_aux WITH KEY wa_despesa-tpdesp.
IF sy-subrc NE 0.
APPEND wa_despesa TO p_it_despesa_aux[].
ENDIF.
ENDLOOP.
SORT p_it_despesa_aux[] BY tpdesp.
p_it_despesa[] = p_it_despesa_aux[].
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE005O01
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS0100'.
SET TITLEBAR '0100'.
/pws/zycee018-status = 'I'.
GET PARAMETER ID '/PWS/ZYCEP003' FIELD /pws/zycee001-despach.
* >> Início da inclusão: MODULE STATUS_0100
GET PARAMETER ID '/PWS/ZYGLP158' FIELD /pws/zycee018-tipo.
* << Fim da inclusão
ENDMODULE.
MODULE status_0200 OUTPUT.
SET PF-STATUS 'STATUS200'.
SET TITLEBAR '0200'.
ENDMODULE.
MODULE status_0300 OUTPUT.
PERFORM load_status.
IF /pws/zycee018-dtvencto IS INITIAL.
SET PF-STATUS 'STATUS0300'.
ELSE.
...
...
it_tab_aux-embarca TO /pws/zycee018-embarca,
it_tab_aux-nradto TO /pws/zycee018-nradto,
it_tab_aux-vlmi TO /pws/zycee018-vlmi,
it_tab_aux-dtaprov TO /pws/zycee018-dtaprov,
it_tab_aux-dtvencto TO /pws/zycee018-dtvencto,
it_tab_aux-dtincl TO /pws/zycee018-dtincl,
it_tab_aux-despach TO /pws/zycee018-despach,
it_tab_aux-dtacerto TO /pws/zycee018-dtacerto,
it_tab_aux-bukrs TO /pws/zycee018-bukrs,
it_tab_aux-werks TO /pws/zycee018-werks,
* >> Início da exclusão: MODULE DISPLAY
it_tab_aux-waersb TO /pws/zycee018-waers.
* << Fim da exclusão
* >> Início da inclusão: MODULE DISPLAY
it_tab_aux-waersb TO /pws/zycee018-waers,
it_tab_aux-tipo TO /pws/zycee018-tipo.
* << Fim da inclusão
tc1-lines = tc1-lines + 7.
MODIFY it_tab_aux INDEX tc1-current_line.
ENDMODULE.
MODULE display2 OUTPUT.
MOVE: it_zycet045_aux-tpdesp TO /pws/zycee045-tpdesp,
it_zycet045_aux-descr TO /pws/zycee045-descr,
it_zycet045_aux-vldp TO /pws/zycee045-vldp,
it_zycet045_aux-vlprovme TO /pws/zycee045-vlprovme,
it_zycet045_aux-waers_prov TO /pws/zycee045-waers_prov.
tc2-lines = tc2-lines + 7.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE005TOP
...
dtvencto LIKE /pws/zycet018-dtvencto,
dtacerto LIKE /pws/zycet018-dtacerto,
codmod LIKE /pws/zycet018-codmod,
status LIKE /pws/zycet018-status,
dtincl LIKE /pws/zycet018-dtincl,
tpgto LIKE /pws/zycet018-tpgto,
zlsch LIKE /pws/zycet018-zlsch,
zlspr LIKE /pws/zycet018-zlspr,
selforn LIKE /pws/zycit224-selforn,
area LIKE /pws/zycet018-area,
* >> Início da inclusão:
tipo LIKE /pws/zycet018-tipo,
* << Fim da inclusão
END OF it_tab.
DATA: BEGIN OF it_tab_aux OCCURS 0.
INCLUDE STRUCTURE it_tab.
DATA: waersb LIKE /pws/zycet045-waers,
marc.
DATA: END OF it_tab_aux.
DATA: BEGIN OF it_tab2 OCCURS 0,
nrseq LIKE /pws/zycet001-nrseq,
despach LIKE /pws/zycet015-despach,
bukrs LIKE /pws/zycet001-bukrs,
werks LIKE /pws/zycet001-werks,
nremb LIKE /pws/zycet001-nremb,
* >> Início da inclusão:
tipo LIKE /pws/zycet015-tipo,
* << Fim da inclusão
END OF it_tab2.
DATA: BEGIN OF it_tab3 OCCURS 0,
nrseq LIKE /pws/zycet018-nrseq,
nradto LIKE /pws/zycet018-nradto,
vlmi LIKE /pws/zycet018-vlmi,
dtaprov LIKE /pws/zycet018-dtaprov,
dtvencto LIKE /pws/zycet018-dtvencto,
dtacerto LIKE /pws/zycet018-dtacerto,
codmod LIKE /pws/zycet018-codmod,
status LIKE /pws/zycet018-status,
dtincl LIKE /pws/zycet018-dtincl,
tpgto LIKE /pws/zycet018-tpgto,
area LIKE /pws/zycet018-area,
* >> Início da inclusão:
tipo LIKE /pws/zycet018-tipo,
* << Fim da inclusão
END OF it_tab3.
DATA: BEGIN OF t_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF t_contas.
DATA: BEGIN OF it_despesa OCCURS 0.
INCLUDE STRUCTURE /pws/zycet021.
DATA: END OF it_despesa.
DATA: BEGIN OF it_zycet045_aux OCCURS 0.
INCLUDE STRUCTURE it_zycet045.
DATA: mark.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE005X01
TABLES: /pws/zycee001,
/pws/zycee018.
* >> Início da inclusão:
DATA: tipo LIKE /pws/zycet015-tipo.
TYPES: s_despesa TYPE /pws/zycet021,
t_despesa TYPE STANDARD TABLE OF s_despesa.
* << Fim da inclusão
TYPES:
BEGIN OF zcxtab_column,
screen LIKE screen,
index TYPE i,
selected(1) TYPE c,
vislength LIKE icon-oleng,
invisible(1) TYPE c,
END OF zcxtab_column.
data:
begin of common part c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013F01
...
IF sy-subrc NE 0.
MESSAGE s008.
ENDIF.
CLEAR itab_zycet015. REFRESH itab_zycet015.
SELECT a~nrseq b~nremb b~bukrs a~despach
FROM /pws/zycet015 AS a
INNER JOIN /pws/zycet001 AS b
ON a~nrseq = b~nrseq
INTO TABLE itab_zycet015
WHERE a~despach EQ /pws/zycee018-despach AND
* >> Início da exclusão: FORM SELECT_DATA
b~nrseq IN itab_nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA
b~nrseq IN itab_nrseq AND
a~tipo EQ /pws/zycee018-tipo.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE s008.
CALL SCREEN '0001'.
ENDIF.
CLEAR itab_zycet018. REFRESH itab_zycet018.
SELECT nrseq despach embarca nradto vlmi dtaprov
dtincl dtvencto dtacerto status waers
FROM /pws/zycet018
INTO TABLE itab_zycet018
WHERE codmod = c_module AND
status = 'A' AND
nrseq IN itab_nrseq AND
* >> Início da exclusão: FORM SELECT_DATA
despach EQ /pws/zycee018-despach.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA
despach EQ /pws/zycee018-despach AND
tipo EQ /pws/zycee018-tipo.
* << Fim da inclusão
CLEAR itab_zycet033_i. REFRESH itab_zycet033_i.
SELECT nrseq nradto despach nrpres embarca bukrs dtacerto
dtincl waers vlmi vldf status dtaprov dtvencto
observ
* >> Início da inclusão: FORM SELECT_DATA
tipo
* << Fim da inclusão
FROM /pws/zycet033
INTO TABLE itab_zycet033_i
WHERE codmod = c_module AND
status = /pws/zycee018-status.
CLEAR itab_zycet033_a. REFRESH itab_zycet033_a.
SELECT nrseq nradto despach nrpres embarca bukrs dtacerto
dtincl waers vlmi vldf status dtaprov dtvencto
observ
* >> Início da inclusão: FORM SELECT_DATA
tipo
* << Fim da inclusão
FROM /pws/zycet033
INTO TABLE itab_zycet033_a
WHERE codmod = c_module AND
status = 'A' .
IF NOT itab_zycet015[] IS INITIAL.
CLEAR itab_moeda. REFRESH itab_moeda.
SELECT nrseq waers FROM /pws/zycet002
INTO CORRESPONDING FIELDS OF TABLE itab_moeda
FOR ALL ENTRIES IN itab_zycet015
WHERE nrseq = itab_zycet015-nrseq.
...
...
LOOP AT itab_zycet033 WHERE marc = 'X'.
/pws/zycee033-codmod = itab_zycet033-codmod.
/pws/zycee033-nrseq = itab_zycet033-nrseq.
/pws/zycee033-nradto = itab_zycet033-nradto.
/pws/zycee033-despach = itab_zycet033-despach.
/pws/zycee033-embarca = itab_zycet033-embarca.
/pws/zycee033-werks = itab_zycet033-werks.
/pws/zycee033-bukrs = itab_zycet033-bukrs.
/pws/zycee033-waers = itab_zycet033-waers.
/pws/zycee033-status = itab_zycet033-status.
* >> Início da inclusão: FORM SELECT_DATA
/pws/zycee033-tipo = itab_zycet033-tipo.
* << Fim da inclusão
IF /pws/zycee033-bukrs IS INITIAL OR
/pws/zycee033-werks IS INITIAL.
SELECT SINGLE bukrs werks
INTO (/pws/zycee033-bukrs, /pws/zycee033-werks)
FROM /pws/zycet001
WHERE nrseq = /pws/zycee033-nrseq.
ENDIF.
PERFORM ajusta_empresa_iva CHANGING v_impiva.
PERFORM busca_nivel_str.
SELECT SINGLE land1 FROM t001
...
...
itab_zycet033-bukrs = itab_zycet033_i-bukrs.
itab_zycet033-dtincl = itab_zycet033_i-dtincl.
itab_zycet033-dtaprov = itab_zycet033_i-dtaprov.
itab_zycet033-dtvencto = itab_zycet033_i-dtvencto.
itab_zycet033-dtacerto = itab_zycet033_i-dtacerto.
itab_zycet033-vlmi = itab_zycet033_i-vlmi.
itab_zycet033-vldf = itab_zycet033_i-vldf.
itab_zycet033-waers = itab_zycet033_i-waers.
itab_zycet033-observ = itab_zycet033_i-observ.
itab_zycet033-status = itab_zycet033_i-status.
* >> Início da inclusão: FORM PRESTACAO_STATUS_INCLUIDO
itab_zycet033-tipo = itab_zycet033_i-tipo.
* << Fim da inclusão
APPEND itab_zycet033.
CLEAR itab_zycet033.
DELETE itab_zycet033_i WHERE nrseq = itab_zycet018-nrseq AND
nradto = itab_zycet018-nradto AND
nrpres = itab_zycet033-nrpres.
ENDFORM.
FORM prestacao_com_adiantamento.
itab_zycet033-codmod = c_module.
itab_zycet033-nrseq = itab_zycet015-nrseq.
itab_zycet033-embarca = itab_zycet015-nremb.
...
...
itab_zycet033-dtvencto = ' '.
itab_zycet033-dtacerto = itab_zycet018-dtacerto.
itab_zycet033-vlmi = itab_zycet018-vlmi.
itab_zycet033-vldf = ' '.
itab_zycet033-waers = itab_zycet018-waers.
itab_zycet033-observ = ' '.
itab_zycet033-status = 'I'.
SELECT SINGLE werks INTO itab_zycet033-werks
FROM /pws/zycet001
WHERE nrseq = itab_zycet015-nrseq.
* >> Início da inclusão: FORM PRESTACAO_COM_ADIANTAMENTO
itab_zycet033-tipo = itab_zycet018-tipo.
* << Fim da inclusão
APPEND itab_zycet033.
CLEAR itab_zycet033.
DELETE itab_zycet033_a WHERE nrseq = itab_zycet018-nrseq AND
nradto = itab_zycet018-nradto.
ENDFORM.
FORM prestacao_i_sem_adto.
itab_zycet033-codmod = c_module.
itab_zycet033-nrseq = itab_zycet033_i-nrseq.
itab_zycet033-embarca = itab_zycet033_i-embarca.
itab_zycet033-despach = itab_zycet033_i-despach.
...
...
itab_zycet033-bukrs = itab_zycet033_i-bukrs.
itab_zycet033-dtincl = itab_zycet033_i-dtincl.
itab_zycet033-dtaprov = itab_zycet033_i-dtaprov.
itab_zycet033-dtvencto = itab_zycet033_i-dtvencto.
itab_zycet033-dtacerto = itab_zycet033_i-dtacerto.
itab_zycet033-vlmi = itab_zycet033_i-vlmi.
itab_zycet033-vldf = itab_zycet033_i-vldf.
itab_zycet033-waers = itab_zycet033_i-waers.
itab_zycet033-observ = itab_zycet033_i-observ.
itab_zycet033-status = itab_zycet033_i-status.
* >> Início da inclusão: FORM PRESTACAO_I_SEM_ADTO
itab_zycet033-tipo = itab_zycet033_i-tipo.
* << Fim da inclusão
APPEND itab_zycet033.
CLEAR itab_zycet033.
ENDFORM.
FORM prestacao_nova_sem_adto.
itab_zycet033-codmod = c_module.
itab_zycet033-nrseq = itab_zycet015-nrseq.
itab_zycet033-embarca = itab_zycet015-nremb.
itab_zycet033-despach = /pws/zycee018-despach.
itab_zycet033-nradto = ' '.
itab_zycet033-nrpres = ' '.
...
...
itab_zycet033-dtvencto = ' '.
itab_zycet033-dtacerto = ' '.
itab_zycet033-vlmi = ' '.
itab_zycet033-vldf = ' '.
itab_zycet033-waers = itab_moeda-waers.
itab_zycet033-observ = ' '.
itab_zycet033-status = 'I'.
SELECT SINGLE werks INTO itab_zycet033-werks
FROM /pws/zycet001
WHERE nrseq = itab_zycet015-nrseq.
* >> Início da inclusão: FORM PRESTACAO_NOVA_SEM_ADTO
itab_zycet033-tipo = /pws/zycee018-tipo.
* << Fim da inclusão
APPEND itab_zycet033.
CLEAR itab_zycet033.
ENDFORM.
FORM carrega_estrutura.
CASE sy-dynnr.
WHEN '0002'.
CHECK NOT itab_zycet033-nrseq IS INITIAL.
MOVE-CORRESPONDING itab_zycet033 TO /pws/zycee033.
WHEN '0100'.
MOVE: itab_zycet043-tpdesp TO /pws/zycee043-tpdesp,
...
...
ENDIF.
IF /pws/zycee033-dtdcto IS INITIAL.
/pws/zycee033-dtdcto = sy-datlo.
ENDIF.
ENDIF.
PERFORM seleciona_conta.
ENDCASE.
PERFORM busca_exit USING 'PDC008'.
ENDFORM.
FORM select_despesas.
* >> Início da exclusão: FORM SELECT_DESPESAS
DATA: tipo LIKE /pws/zycet015-tipo.
* << Fim da exclusão
CLEAR itab_zycet002. REFRESH itab_zycet002.
SELECT * FROM /pws/zycet002
INTO TABLE itab_zycet002
WHERE nrseq = /pws/zycee033-nrseq.
IF NOT itab_zycet002[] IS INITIAL.
PERFORM trata_ordem_estornos.
IF NOT itab_zycet002[] IS INITIAL.
SELECT DISTINCT * FROM /pws/zycet016
APPENDING TABLE itab_zycet016
FOR ALL ENTRIES IN itab_zycet002
...
...
v_campo = itab_zyglt338-campo.
ENDLOOP.
SELECT SINGLE land1 FROM t001
INTO t001-land1
WHERE bukrs = /pws/zycee033-bukrs .
SELECT SINGLE regio FROM t001w
INTO t001w-regio
WHERE werks = /pws/zycee033-werks.
SELECT SINGLE tipo FROM /pws/zycet015
INTO tipo
* >> Início da exclusão: FORM SELECT_DESPESAS
WHERE nrseq = /pws/zycee018-nrseq
AND despach = /pws/zycee018-despach.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPESAS
WHERE nrseq = /pws/zycee033-nrseq
AND despach = /pws/zycee033-despach
AND tipo = /pws/zycee033-tipo.
* << Fim da inclusão
* >> Início da exclusão: FORM SELECT_DESPESAS
CLEAR itab_zycet021. REFRESH itab_zycet021.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPESAS
PERFORM select_parameters
USING
* << Fim da inclusão
* >> Início da exclusão: FORM SELECT_DESPESAS
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE werks = /pws/zycee033-werks AND
bukrs = /pws/zycee033-bukrs AND
regio = t001w-regio AND
land1 = t001-land1 AND
tipo = tipo AND
lifnr = /pws/zycee033-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE werks = /pws/zycee033-werks AND
bukrs = /pws/zycee033-bukrs AND
regio = t001w-regio AND
tipo = tipo AND
lifnr = /pws/zycee033-despach AND
prestc = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPESAS
t001-land1
/pws/zycee033-bukrs
t001w-regio
/pws/zycee033-werks
tipo
/pws/zycee033-despach
'X'
CHANGING
itab_zycet021[].
* << Fim da inclusão
* >> Início da exclusão: FORM SELECT_DESPESAS
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE werks = /pws/zycee033-werks AND
bukrs = /pws/zycee033-bukrs AND
tipo = tipo AND
lifnr = /pws/zycee033-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE bukrs = /pws/zycee033-bukrs AND
tipo = tipo AND
lifnr = /pws/zycee033-despach AND
prestc = 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE werks = space AND
bukrs = space AND
tipo = tipo AND
lifnr = /pws/zycee033-despach AND
prestc = 'X'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo = tipo
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo = tipo
AND lifnr EQ space
AND prestc EQ 'X'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr = /pws/zycee018-despach
AND prestc EQ 'X'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet021 APPENDING TABLE Itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021
WHERE land1 EQ space
AND bukrs EQ space
AND regio EQ space
AND werks EQ space
AND tipo EQ space
AND lifnr EQ space
AND prestc EQ 'X'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
IF NOT itab_zycet021[] IS INITIAL.
PERFORM busca_exit USING 'PDC009'.
SELECT *
FROM /pws/zycet043
APPENDING TABLE itab_zycet043
FOR ALL ENTRIES IN itab_zycet021
WHERE codmod = c_module AND
nrseq = /pws/zycee033-nrseq AND
despach = /pws/zycee033-despach AND
nrpres = /pws/zycee033-nrpres AND
...
...
WHEN 'ZTERMF'.
SELECT SINGLE zterm
FROM lfb1
INTO p_zterm
WHERE lifnr = p_lifnr
AND bukrs = p_bukrs.
WHEN space.
p_zterm = wa_zyglt321-descr.
ENDCASE.
ENDFORM.
* >> Início da inclusão:
FORM select_parameters
USING
p_land1 TYPE t001-land1
p_bukrs TYPE /pws/zycee033-bukrs
p_regio TYPE t001w-regio
p_werks TYPE /pws/zycee033-werks
p_tipo TYPE /pws/zycet015-tipo
p_lifnr TYPE /pws/zycee033-despach
p_prestc TYPE /pws/zycet021-prestc
CHANGING
p_it_despesa TYPE t_despesa.
DATA: BEGIN OF p_it_despesa_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet021.
DATA: END OF p_it_despesa_aux.
SELECT *
INTO TABLE p_it_despesa[]
FROM /pws/zycet021
WHERE land1 IN (p_land1, space)
AND bukrs IN (p_bukrs, space)
AND regio IN (p_regio, space)
AND werks IN (p_werks, space)
AND tipo IN (p_tipo, space)
AND lifnr IN (p_lifnr, space)
AND prestc IN (p_prestc).
CHECK sy-subrc = 0.
SORT p_it_despesa[] DESCENDING BY werks
bukrs
regio
land1
tipo
lifnr
prestc.
DATA: wa_despesa LIKE LINE OF p_it_despesa[].
LOOP AT p_it_despesa INTO wa_despesa.
READ TABLE p_it_despesa_aux WITH KEY wa_despesa-tpdesp.
IF sy-subrc NE 0.
APPEND wa_despesa TO p_it_despesa_aux[].
ENDIF.
ENDLOOP.
SORT p_it_despesa_aux[] BY tpdesp.
p_it_despesa[] = p_it_despesa_aux[].
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013TOP
...
despach LIKE /pws/zycet018-despach,
embarca LIKE /pws/zycet018-embarca,
nradto LIKE /pws/zycet018-nradto,
vlmi LIKE /pws/zycet018-vlmi,
dtaprov LIKE /pws/zycet018-dtaprov,
dtincl LIKE /pws/zycet018-dtincl,
dtvencto LIKE /pws/zycet018-dtvencto,
dtacerto LIKE /pws/zycet018-dtacerto,
status LIKE /pws/zycet018-status,
waers LIKE /pws/zycet018-waers,
* >> Início da inclusão:
tipo LIKE /pws/zycet033-tipo,
* << Fim da inclusão
END OF itab_zycet018.
DATA: BEGIN OF itab_zycet033_i OCCURS 10,
nrseq LIKE /pws/zycet033-nrseq,
nradto LIKE /pws/zycet033-nradto,
despach LIKE /pws/zycet033-despach,
nrpres LIKE /pws/zycet033-nrpres,
embarca LIKE /pws/zycet033-embarca,
bukrs LIKE /pws/zycet033-bukrs,
dtacerto LIKE /pws/zycet033-dtacerto,
dtincl LIKE /pws/zycet033-dtincl,
waers LIKE /pws/zycet033-waers,
vlmi LIKE /pws/zycet033-vlmi,
vldf LIKE /pws/zycet033-vldf,
status LIKE /pws/zycet033-status,
dtaprov LIKE /pws/zycet033-dtaprov,
dtvencto LIKE /pws/zycet033-dtvencto,
observ LIKE /pws/zycet033-observ,
* >> Início da inclusão:
tipo LIKE /pws/zycet033-tipo,
* << Fim da inclusão
END OF itab_zycet033_i.
DATA: BEGIN OF itab_zycet045 OCCURS 10,
nrseq LIKE /pws/zycet045-nrseq,
nradto LIKE /pws/zycet045-nradto,
tpdesp LIKE /pws/zycet045-tpdesp,
descr LIKE /pws/zycet045-descr,
vldp LIKE /pws/zycet045-vldp,
waers LIKE /pws/zycet045-waers,
END OF itab_zycet045.
DATA: BEGIN OF itab_zycet016 OCCURS 10.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013X01
TABLES: /pws/zycee033,
/pws/zyglt343.
* >> Início da inclusão:
DATA: tipo LIKE /pws/zycet015-tipo.
TYPES: s_despesa TYPE /pws/zycet021,
t_despesa TYPE STANDARD TABLE OF s_despesa.
* << Fim da inclusão
TYPES:
BEGIN OF zcxtab_column,
screen LIKE screen,
index TYPE i,
selected(1) TYPE c,
vislength LIKE icon-oleng,
invisible(1) TYPE c,
END OF zcxtab_column.
DATA: BEGIN OF COMMON PART c.
DATA: v_totdep LIKE /pws/zyglt342-valorinc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCEA071
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCEA071
DESCRIÇÃO BREVE: Código de imposto IVA
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: T007A
TABELA DE TEXTOS: T007S
COMPORTAMENTO DE DIÁLOGO: ____________________________
TIPO DE DIÁLOGO: EXIBIÇÃO DE VALORES IMEDIATA
HOT KEY: ____
EXIT AJUD. PESQUISA: _________________________________
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
KALSM 1 1 KALSM_D
MWSKZ X X 2 2 MWSKZ
TEXT1 3 3 TEXT1_007S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE018
MODIFICAR ESTRUTURA: /PWS/ZYCEE018
DESCRIÇÃO BREVE: CE - Adiantamento
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
TIPO /PWS/ZYGLL158
COMPONENTES EXCLUÍDOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE021
MODIFICAR ESTRUTURA: /PWS/ZYCEE021
DESCRIÇÃO BREVE: CE - Parâmetro De/Para Despesas
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
TIPO /PWS/ZYGLL158
COMPONENTES EXCLUÍDOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE033
MODIFICAR ESTRUTURA: /PWS/ZYCEE033
DESCRIÇÃO BREVE: CE - Cabeçalho do Acerto de Contas
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
TIPO /PWS/ZYGLL158
COMPONENTES EXCLUÍDOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET018
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET018
DESCRIÇÃO BREVE: CE - Adiantamento.
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: (A)Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
TIPO /PWS/ZYGLL158
CAMPOS EXCLUÍDOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
OPÇÕES TÉCNICAS
TIPO DE DADOS: CHAR
CATEGOR. TAMANHO: 3
(_) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET021
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET021
DESCRIÇÃO BREVE: CE - Param. DE/PARA Despesas.
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: (A)Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
TIPO /PWS/ZYGLL158 X X
LIFNR LIFNR X X LFA1
CAMPOS EXCLUÍDOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
OPÇÕES TÉCNICAS
(TIPO)
TIPO DE DADOS: CHAR
CATEGOR. TAMANHO: 3
(LIFNR)
TIPO DE DADOS: CHAR
CATEGOR. TAMANHO: 10
(_) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET033
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET033
DESCRIÇÃO BREVE: CE - Cabeçalho do Acerto de Contas.
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: (A)Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
TIPO /PWS/ZYGLL158
CAMPOS EXCLUÍDOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
OPÇÕES TÉCNICAS
TIPO DE DADOS: CHAR
CATEGOR. TAMANHO: 3
(_) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCET021S
Gerar Visão da tabela /PWS/ZYCET021
TABELA/VISÃO: /PWS/ZYCET021
INDICAÇÕES TÉCNICAS PARA DIÁLOGO
GRUPO DE AUTORIZAÇÃO: ZYCE
GRUPO DE FUNÇÕES: /PWS/ZYCEGF1
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE
TELAS DE ATUALIZAÇÃO
CATEGORIA ATUALIZAÇÃO: (X) NÍVEL ÚNICO
N°. TELA ATUALIZAÇÃO: TELA DE SÍNTESE 21
TELA INDIVIDUAL 0
INDICAÇÕES PARA TRANSPORTE DE DADOS DE DIÁLOGO
ROTINA DE REGISTRO: (X)ROTINA DE REGISTRO STANDARD
CÓDIGO DE AJUSTE: AJUSTÁVEL AUTOMATICAMENTE
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCET021
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET021
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Exibir parâmetros De/Para Despesas
OBJETO DE EXECUÇÃO
(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
(_) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)
TEXTO DA TRANSAÇÃO: Exibir parâmetros De/Para Despesas
VIEW: /PWS/ZYCET021
TELA(SELEÇÃO): ___________________________________________________
INÍCIO COM VARIANTE: _____________________________________________
OBJETO DE AUTORIZAÇÃO: ___________________________________________
(_) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
(_) - TRANSAÇÃO EASY WEB SERVIÇO: ___________________________
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
SHOW X
VIEWNAME /PWS/ZYCET021