Visualização da Nota 14099

CE PLUS - Nota 014099

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: SISCOSERV

Data/Hora da Publicação: 28/07/2014 14:59:33

Data/Hora Última Alteração: 28/07/2014 14:59:33

Descrição da Nota: ASSOCIAÇÃO RAS/RVS - CAMPO NÚMERO NOTA FISCAL OBRIGATÓRIO

Sintoma

Incluir obrigatoriedade no campo Nº Nota Fiscal da funcionalidade de Associação RAS/RVS. Campos Nº

da Nota Fiscal, Dt. Pgto/Rec., Moeda, Valor da Remessa. Pelo manual técnico esse campo é

obrigatório.

Solução

Transação /PWS/ZYCA012 Associação RAS/RVS - Atualizar, ajustada para consistir os seguintes campos:

1. Na pasta de Remessa o campos Remessa seja preenchido, tornar o campo Nº da Nota Fiscal

obrigatório;

2. Na pasta de Comis. Agenste o campo Fat. Comissão seja preenchido, tornar o campo Nº da Nota

Fiscal obrigatório;

3. Na pasta de Fat. Importação o campo Fat. Importação seja preenchido, tornar o campo Nº da Nota

Fiscal obrigatório;

4. Na pasta de Fat. Exportação o campo Fat. Exportação seja preenchido, tornar os campos Nº da Nota

Fiscal, Dt. Pgto/Rec., Valor da Remessa obrigatórios;

5. Na pasta de Outros o campo Numero da Fatura seja preenchido, tornar os campos Nº da Nota Fiscal,

Dt. Pgto/Rec., Moeda, Valor da Remessa obrigatórios;

Versões Tratadas

9.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 13790

SISCOSERV - ASSOCIAÇÃO

Nota 13178

SISCOSERV - ASSOCIAÇÃO SISCOSERV

Nota 13735

SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

Nota 13068

REQUEST COMPLETA SISCOSERV

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 14099 Data: 25/07/2014 Hora: 10:44:06

----------------------------------------------------------------------------------------------------

Nota Número : 14099

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 9.0

Pacote : 00008

Agrupamento : 00173

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

13068 - 00001 - 9.0 - 00005 - REQUEST COMPLETA SISCOSERV

13178 - 00002 - 9.0 - 00005 - SISCOSERV - ASSOCIAÇÃO SISCOSERV

13735 - 00003 - 9.0 - 00007 - SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

13790 - 00004 - 9.0 - 00007 - SISCOSERV - ASSOCIAÇÃO

----------------------------------------------------------------------------------------------------

ASSOCIAÇÃO RAS/RVS - CAMPO NÚMERO NOTA FISCAL OBRIGATÓRIO

----------------------------------------------------------------------------------------------------

Palavras Chave:

ASSOCIAÇÃO RAS/RVS - INCLUIR OBRIGATORIEDADE

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCA012TOP

REPS /PWS/MZYCA012O01

REPS /PWS/MZYCA012F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA012TOP

...

v_titulo(90) TYPE c,

v_ravs_pago VALUE 'X',

v_processo(20) TYPE c,

v_tpprocesso TYPE /pws/zycat030-tp_processo,

v_parceiro TYPE bsad-kunnr,

v_name TYPE kna1-name1,

wa_zycbt134 TYPE /pws/zycbt134,

v_dom_pgtorec TYPE /pws/zycal069,

v_saldo type /pws/zycat031-saldo.

data: itab_saldo_oper type table of ty_saldo_oper.

* >> Início da inclusão:

RANGES r_campos FOR dd03d-fieldname.

* << Fim da inclusão

CONTROLS: ts_assoc TYPE TABSTRIP,

tc_remessa TYPE TABLEVIEW USING SCREEN '0101',

tc_comag TYPE TABLEVIEW USING SCREEN '0102',

tc_fatimp TYPE TABLEVIEW USING SCREEN '0103',

tc_outros TYPE TABLEVIEW USING SCREEN '0105',

tc_fatexp TYPE TABLEVIEW USING SCREEN '0107',

tc_associacao TYPE TABLEVIEW USING SCREEN '0200',

tc_pgto_receb TYPE TABLEVIEW USING SCREEN '0300'.

SELECTION-SCREEN BEGIN OF SCREEN 0005 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA012O01

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

screen-name ne 'WA_ZYCAT039FE-STATUS' and

screen-name ne 'WA_ZYCAT039O-STATUS'.

if p_wa_zycat039-status = 'EP' or

p_wa_zycat039-status = 'EX' or

p_wa_zycat039-status = 'PS' or

p_wa_zycat039-status = 'ES'.

screen-input = '0'.

modify screen.

endif.

* >> Início da inclusão: FORM ATUALIZA_TELA

IF sy-tcode = '/PWS/ZYCA012'.

REFRESH r_campos.

CLEAR r_campos.

MOVE: 'I' TO r_campos-sign,

'EQ' TO r_campos-option.

CASE sy-dynnr.

WHEN '0101'.

MOVE 'WA_ZYCAT039R-NUM_NF' TO r_campos-low.

APPEND r_campos.

PERFORM campos_obrig TABLES r_campos

USING wa_zycat039r-remessa.

WHEN '0102'.

MOVE 'WA_ZYCAT039C-NUM_NF' TO r_campos-low.

APPEND r_campos.

PERFORM campos_obrig TABLES r_campos

USING wa_zycat039c-fat_comis.

WHEN '0103'.

MOVE 'WA_ZYCAT039F-NUM_NF' TO r_campos-low.

APPEND r_campos.

PERFORM campos_obrig TABLES r_campos

USING wa_zycat039f-fat_imp.

WHEN '0107'.

MOVE 'WA_ZYCAT039FE-NUM_NF' TO r_campos-low.

APPEND r_campos.

MOVE 'WA_ZYCAT039FE-DT_PG_REC' TO r_campos-low.

APPEND r_campos.

MOVE 'WA_ZYCAT039FE-VALOR' TO r_campos-low.

APPEND r_campos.

PERFORM campos_obrig TABLES r_campos

USING wa_zycat039fe-fat_exp.

WHEN '0105'.

MOVE 'WA_ZYCAT039O-NUM_NF' TO r_campos-low.

APPEND r_campos.

MOVE 'WA_ZYCAT039O-DT_PG_REC' TO r_campos-low.

APPEND r_campos.

MOVE 'WA_ZYCAT039O-MOEDA' TO r_campos-low.

APPEND r_campos.

MOVE 'WA_ZYCAT039O-VALOR' TO r_campos-low.

APPEND r_campos.

PERFORM campos_obrig TABLES r_campos

USING wa_zycat039o-fatura.

WHEN OTHERS.

ENDCASE.

ENDIF.

* << Fim da inclusão

endloop.

endif.

endform.

form verifica_associacao changing p_wa_zycat039 structure /pws/zycat039

p_pago.

data: v_bukrs type /pws/zycat030-bukrs,

v_bukext type /pws/zycat030-bukrs_ext.

if not p_wa_zycat039-remessa is initial and

p_wa_zycat039-dt_pg_rec is initial.

perform valida_remessa_2 changing p_wa_zycat039

...

set screen 0006.

leave screen.

endform.

form limpa_pgto_receb.

clear: v_dom_pgtorec, v_nrboleto, v_parceiro, v_processo,

v_name, v_saldo.

free: bkpf, /pws/zycbt124, bsad, /pws/zycbt031,

itab_zycat031_ass, itab_zycat030_ass,

itab_zycat039_ass, itab_saldo_oper.

endform.

* >> Início da inclusão:

FORM campos_obrig TABLES pf_campos

USING pf_valor.

CHECK NOT pf_valor IS INITIAL.

IF screen-name IN pf_campos.

IF sy-tcode = '/PWS/ZYCA012'.

screen-required = '1'.

ELSE.

screen-required = '0'.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDFORM.

* << Fim da inclusão