Visualização da Nota 6798

CE PLUS - Nota 006798

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 18/06/2008 00:00:00

Data/Hora Última Alteração: 22/02/2011 11:00:58

Descrição da Nota: AJUSTE NOS PROGRAMAS DE EXPORTAÇÃO PARA ATENDER A NOTA FISCAL ELETRÔNICA

Sintoma

Necessários ajustes nos programas da Documentação Exportação para atender cenários que utilizem Nota

Fiscal Eletrônica (NF-e).

Solução

Ajustes nos programas da Documentação Exportação para atender cenários que utilizem Nota Fiscal

Eletrônica (NF-e).

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 5850

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETUADAS

Nota 5413

CRIAÇÃO DA FUNCIONALIDADE EMBARQUE COM FORNECIMENTO

Nota 5134

AJUSTE NA SELEÇÃO DE DADOS RELATÓRIO FOLLOW UP EXPORTAÇÃO

Nota 5679

PADRONIZAÇÃO - CODE INSPECTOR DO PROGRAMA DE VARIAÇÃO CAMBIAL

Nota 5744

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA IMPRESSÃO NOTAS FISCAIS

Nota 5851

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA MEMORANDO DE EXPORTAÇÃO

Nota 5947

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETUADAS

Nota 5230

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.

Nota 5807

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA FOLLOW UP EXPORTACAO

Nota 6719

COMPRIMENTO DO CAMPO NFNMUM (/PWS/ZYCIL864)

Nota 1653

AJUSTE DE PERFORMANCE NA SELEÇÃO DE NOTAS FISCAIS

Nota 5841

CODE INSPECTOR GRUPO FUNC /PWS/ZYCEGF2

Nota 5054

MENSAGEM INCORRETA NA VARIAÇÃO CAMBIAL

Informações Complementares

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

Nota Número 06798 Data: 18/06/2008 Hora: 10:59:44

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

Nota Número : 06798

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 7.0

Pacote : 00006

Agrupamento : 00053

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

Referência às notas relacionadas:

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

01653 - 00001 - 6.0 - 00024 - AJUSTE DE PERFORMANCE NA SELEÇÃO DE NOTAS FISCAIS

05054 - 00002 - 7.0 - 00003 - MENSAGEM INCORRETA NA VARIAÇÃO CAMBIAL

05134 - 00003 - 7.0 - 00003 - AJUSTE NA SELEÇÃO DE DADOS RELATÓRIO FOLLOW UP EXPORTAÇÃO

05230 - 00004 - 7.0 - 00003 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.

05413 - 00005 - 7.0 - 00003 - CRIAÇÃO DA FUNCIONALIDADE EMBARQUE COM FORNECIMENTO

05679 - 00006 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR DO PROGRAMA DE VARIAÇÃO CAMBIAL

05744 - 00007 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA IMPRESSÃO NOTAS F

05807 - 00008 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA FOLLOW UP EXPORTA

05841 - 00009 - 7.0 - 00004 - CODE INSPECTOR GRUPO FUNC /PWS/ZYCEGF2

05850 - 00010 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETU

05851 - 00011 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA MEMORANDO DE EXPO

05947 - 00012 - 7.0 - 00004 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETU

06719 - 00013 - 7.0 - 00005 - COMPRIMENTO DO CAMPO NFNMUM (/PWS/ZYCIL864)

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

AJUSTE NOS PROGRAMAS DE EXPORTAÇÃO PARA ATENDER A NOTA FISCAL ELETRÔNICA

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

Palavras Chave:

NOTA FISCA, ELETRÔNICA, NF-E, EXPORTAÇÃO,

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

Objetos da nota:

DTEL /PWS/ZYCEL719

DYNP /PWS/SAPMZYCE003 0102

DYNP /PWS/SAPMZYCE003 0200

DYNP /PWS/SAPMZYCE107 0103

FUNC /PWS/ZYCE_BUSCA_NUMERO_NF

FUNC /PWS/ZYCE_SEARCH_ACCOUNT

FUNC /PWS/ZYCE_TRANSACAO_J1B1N_A

REPS /PWS/LZYCEGF2TOP

REPS /PWS/LZYCEGF6UXX

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003F02

REPS /PWS/MZYCE003X01

REPS /PWS/MZYCE107F01

REPS /PWS/MZYCE107TOP

REPS /PWS/ZYCER007

REPS /PWS/ZYCER017

REPS /PWS/ZYCER018

REPS /PWS/ZYCER213

REPS /PWS/ZYCER214

REPS /PWS/ZYCER282

REPS /PWS/ZYCER305

TABD /PWS/ZYCEE002

TABD /PWS/ZYCEE005

TABD /PWS/ZYCEE006

TABD /PWS/ZYCEE123

TABD /PWS/ZYCET002

TABD /PWS/ZYCET009

TABD /PWS/ZYCET123

TABD /PWS/ZYCET173

TABD /PWS/ZYCET221

TABD /PWS/ZYCET222

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

Modificações efetuadas em DTEL /PWS/ZYCEL719

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

Elemento de dados incluído: /PWS/ZYCEL719

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

Descrição breve incluída: (26 caracteres), idioma: PT

"CE - Número de Nota Fiscal"

Categoria de dados: Domínio

Domínio: NUM9

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (5 caracteres), idioma: PT

"Nº NF"

Comprimento máximo do denominador médio: 15

Denominador médio incluído (14 caracteres), idioma: PT

"Nº Nota Fiscal"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (14 caracteres), idioma: PT

"Nº Nota Fiscal"

Comprimento máximo do título: 14

Título incluído (14 caracteres), idioma: PT

"Nº Nota Fiscal"

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0102

MODIFICAR TEXTO "/PWS/ZYCEE002-NFNUM" em tbl.contr./tabstr.

Alterar características:

Comprimento Visível 9

Comprimento Def. 11

MODIFICAR CAMPO I/O "/PWS/ZYCEE002-NFNUM" em tbl.contr./tabstr.

Alterar características:

Comprimento Visível 9

Comprimento Def. 9

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0200

MODIFICAR TEXTO "*/PWS/ZYCEE002-NFNUM"

Alterar características:

Linha 1

Coluna 46

Comprimento Visível 16

Comprimento Def. 16

MODIFICAR CAMPO I/O "/PWS/ZYCEE002-NFNUM"

Linha 1

Coluna 64

Comprimento Visível 9

Comprimento Def. 9

MODIFICAR CAMPO I/O "/PWS/ZYCEE002-DOCNUM"

Linha 1

Coluna 74

Comprimento Visível 10

Comprimento Def. 10

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE107 0103

MODIFICAR CAMPO I/O "/PWS/ZYCEE123-NFNUMDE" em tbl.contr./tabstr.

Linha 1

Coluna 2

Comprimento Visível 9

Comprimento Def. 11

MODIFICAR CAMPO I/O "/PWS/ZYCEE123-NFNUMATE" em tbl.contr./tabstr.

Linha 1

Coluna 4

Comprimento Visível 9

Comprimento Def. 11

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

Modificações efetuadas em FUNC /PWS/ZYCE_BUSCA_NUMERO_NF

CRIAR a função /PWS/ZYCE_BUSCA_NUMERO_NF:

GRUPO DE FUNÇÕES: /PWS/ZYCEGF6

TEXTO BREVE: "CE - Busca Número Nota Fiscal"

TIPO DE EXECUÇÃO:

(X)Módulo de Função Normal

(X)Início Imediato

IMPORTAÇÃO:

Nome Parâmetro Atrib. Tipo: Tipo Referência:

I_DOCNUM TYPE J_1BNFDOC-DOCNU

EXPORTAÇÃO:

Nome Parâmetro Atrib. Tipo: Tipo Referência:

E_NFNUM TYPE /PWS/ZYCET002-NFNUM

E_SERIES TYPE J_1BNFDOC-SERIES

E_SUBSER TYPE J_1BNFDOC-SUBSER

E_NFE

EXCEÇÕES:

Exceção: Texto breve:

DOCUMENTO_INVALIDO Documento inválido (docnum)

DOCUMENTO_NAO_PREENCHIDO Documento não preenchido

TEXTO FONTE:

* >> Início da inclusão:

FUNCTION /pws/zyce_busca_numero_nf.

TYPES: BEGIN OF t_destino_c,

nfenum(9) TYPE c,

series TYPE j_1bnfdoc-series,

subser TYPE j_1bnfdoc-subser,

nfe(1) TYPE c,

END OF t_destino_c.

TYPES: BEGIN OF t_destino_n,

nfenum(9) TYPE n,

series TYPE j_1bnfdoc-series,

subser TYPE j_1bnfdoc-subser,

nfe(1) TYPE c,

END OF t_destino_n.

DATA: wa_destino_c TYPE t_destino_c,

wa_destino_n TYPE t_destino_n.

DATA:

itab_campos LIKE abapsource OCCURS 100 WITH HEADER LINE,

wa_j1bnfdoc TYPE j_1bnfdoc,

it_dd03l TYPE STANDARD TABLE OF dd03l,

wa_dd03l TYPE dd03l.

IF i_docnum IS INITIAL.

RAISE documento_nao_preenchido.

ENDIF.

SELECT SINGLE *

FROM j_1bnfdoc

INTO wa_j1bnfdoc

WHERE docnum = i_docnum.

IF sy-subrc NE 0.

RAISE documento_invalido.

ENDIF.

SELECT *

FROM dd03l

UP TO 1 ROWS

INTO wa_dd03l

WHERE tabname = 'J_1BNFDOC' AND

fieldname = 'NFENUM'.

ENDSELECT.

IF sy-subrc EQ 0 AND NOT

wa_j1bnfdoc-nftype IS INITIAL.

SELECT *

FROM dd03l

INTO TABLE it_dd03l[]

WHERE ( tabname = 'J_1BNFDOC' AND

fieldname EQ 'NFENUM' ) OR

( tabname = 'J_1BNFDOC' AND

fieldname EQ 'SERIES' ) OR

( tabname = 'J_1BNFDOC' AND

fieldname EQ 'SUBSER' ) OR

( tabname = 'J_1BNFDOC' AND

fieldname EQ 'NFE' ).

IF sy-subrc IS INITIAL.

SORT it_dd03l BY tabname position.

LOOP AT it_dd03l INTO wa_dd03l.

MOVE wa_dd03l-fieldname TO itab_campos.

APPEND itab_campos.

ENDLOOP.

CLEAR wa_dd03l.

READ TABLE it_dd03l INTO wa_dd03l

WITH KEY tabname = 'J_1BNFDOC'

fieldname = 'NFENUM'.

IF wa_dd03l-datatype = 'CHAR'.

SELECT (itab_campos)

FROM j_1bnfdoc

INTO CORRESPONDING FIELDS OF wa_destino_c

WHERE docnum = i_docnum AND

nftype = wa_j1bnfdoc-nftype.

ENDSELECT.

IF sy-subrc IS INITIAL.

e_nfnum = wa_destino_c-nfenum.

e_series = wa_destino_c-series.

e_subser = wa_destino_c-subser.

e_nfe = wa_destino_c-nfe.

ENDIF.

ELSE.

SELECT (itab_campos)

FROM j_1bnfdoc

INTO CORRESPONDING FIELDS OF wa_destino_n

WHERE docnum = i_docnum AND

nftype = wa_j1bnfdoc-nftype.

ENDSELECT.

IF sy-subrc IS INITIAL.

e_nfnum = wa_destino_n-nfenum.

e_series = wa_destino_n-series.

e_subser = wa_destino_n-subser.

e_nfe = wa_destino_n-nfe.

ENDIF.

IF e_nfe IS INITIAL.

e_nfnum = wa_j1bnfdoc-nfnum.

e_series = wa_j1bnfdoc-series.

e_subser = wa_j1bnfdoc-subser.

ENDIF.

ENDFUNCTION.

* << Fim da inclusão

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

Modificações efetuadas em FUNC /PWS/ZYCE_SEARCH_ACCOUNT

FUNCTION /pws/zyce_search_account.

* >> Início da exclusão: FUNCTION /PWS/ZYCE_SEARCH_ACCOUNT

TABLES: dd03l.

* << Fim da exclusão

DATA: itab_tab LIKE dd03l-tabname OCCURS 0 WITH HEADER LINE.

DATA: itab_where LIKE abapsource OCCURS 100 WITH HEADER LINE.

FIELD-SYMBOLS <valor>.

SELECT kotab

FROM t681

INTO TABLE itab_tab

WHERE kvewe EQ 'C'

AND kappl EQ 'V'

AND ( gesta EQ '6' OR gesta EQ '3' ).

LOOP AT itab_tab.

...

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N_A

...

v_transacao(5) TYPE c,

v_mode TYPE c,

v_update TYPE c,

v_msgid LIKE t100-arbgb,

v_msgno LIKE t100-msgnr,

v_cfop(06) TYPE c,

v_netbase(16) TYPE c,

v_cont1 TYPE i,

v_text(16) TYPE c,

v_text_aux(16) TYPE c.

* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

DATA: t_where(50) OCCURS 0 WITH HEADER LINE.

DATA v_nfe.

CONSTANTS C_X VALUE 'X'.

* << Fim da inclusão

LOOP AT t_dados.

CHECK t_dados-tcode = 'J1B1N_A'.

IF ( t_dados-docdat = space ).

t_campos-mandt = t_dados-mandt.

t_campos-campo = 'J_1BDYDOC-DOCDAT'.

t_campos-descricao = text-001.

APPEND t_campos.

RAISE campo_em_branco.

ENDIF.

IF ( t_dados-pstdat = space ).

...

APPEND t_campos.

RAISE campo_em_branco.

ENDIF.

IF ( t_dados-itmtyp = space ).

t_campos-mandt = t_dados-mandt.

t_campos-campo = 'J_1BDYLIN-ITMTYP'.

t_campos-descricao = text-004.

APPEND t_campos.

RAISE campo_em_branco.

ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

CLEAR v_nfe.

SELECT *

FROM dd03l

UP TO 1 ROWS

WHERE tabname = 'J_1BAA' AND

fieldname = 'NFE'.

ENDSELECT.

IF sy-subrc = 0.

CLEAR t_where.

REFRESH t_where.

t_where = 'nftype = t_dados-nftype and nfe = C_X.'.

APPEND t_where.

SELECT COUNT(*)

FROM j_1baa

WHERE (t_where).

IF sy-subrc = 0.

v_nfe = 'X'.

ENDIF.

* << Fim da inclusão

PERFORM determina_string1 USING v_refer

CHANGING v_string.

CLEAR itab_oculto.

REFRESH itab_oculto.

PERFORM trata_campo_obrigatorio TABLES t_dados

t_campos

itab_oculto

USING v_string.

CLEAR : v_text.

WRITE t_dados-netpr TO v_text.

...

PERFORM bdc_tela USING 'SAPMJ1B1' '0900'.

PERFORM bdc_campo USING:

'J_1BDYDOC-NFTYPE' t_dados-nftype,

'J_1BDYDOC-BUKRS' v_bukrs,

'J_1BDYDOC-BRANCH' t_dados-branch,

'J_1BDYDOC-PARVW' t_dados-parvw,

'J_1BDYDOC-PARID' t_dados-parid,

'J_1BDYLIN-INCLTX' ' ',

'BDC_OKCODE' '/00'.

PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

IF v_nfe = 'X'.

PERFORM bdc_campo USING:

'J_1BDYDOC-NFENUM' t_dados-nfnum.

ELSE.

PERFORM bdc_campo USING:

'J_1BDYDOC-NFNUM' t_dados-nfnum.

ENDIF.

* << Fim da inclusão

PERFORM bdc_campo USING:

* >> Início da exclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

'J_1BDYDOC-NFNUM' t_dados-nfnum,

* << Fim da exclusão

'J_1BDYDOC-SERIES' t_dados-series,

'J_1BDYDOC-SUBSER' t_dados-subser,

'J_1BDYDOC-DOCDAT' v_data_doc,

* >> Início da exclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

'J_1BDYDOC-PSTDAT' v_data_pst,

'BDC_OKCODE' '=TAB6'.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_A

'J_1BDYDOC-PSTDAT' v_data_pst.

PERFORM bdc_campo USING: 'BDC_OKCODE' '=TAB6'.

* << Fim da inclusão

PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

PERFORM bdc_campo USING:

'J_1BDYDOC-GJAHR' t_dados-gjahr,

'BDC_OKCODE' '=TAB1'.

PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

PERFORM bdc_campo USING:

'J_1BDYLIN-ITMTYP(01)' t_dados-itmtyp,

'J_1BDYLIN-MAKTX(01)' t_dados-maktx,

'J_1BDYLIN-MATKL(01)' t_dados-matkl,

'J_1BDYLIN-MENGE(01)' v_menge,

...

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

Modificações efetuadas em REPS /PWS/LZYCEGF2TOP

FUNCTION-POOL /pws/zycegf2 .

TABLES: /pws/zycet037,

/pws/zycbt033,

/pws/zycbt007,

lfb1,

j_1batl1t,

* >> Início da exclusão:

j_1batl2t.

* << Fim da exclusão

* >> Início da inclusão:

j_1batl2t,

dd03l.

* << Fim da inclusão

TYPES: BEGIN OF msg_struc,

tcode LIKE bdcmsgcoll-tcode,

dyname LIKE bdcmsgcoll-dyname,

dynumb LIKE bdcmsgcoll-dynumb,

msgtyp LIKE bdcmsgcoll-msgtyp,

msgspra LIKE bdcmsgcoll-msgspra,

msgid LIKE bdcmsgcoll-msgid,

msgnr LIKE bdcmsgcoll-msgnr,

msgv1 LIKE balm-msgv1,

msgv2 LIKE balm-msgv2,

...

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

Modificações efetuadas em REPS /PWS/LZYCEGF6UXX

**==> A inclusão neste programa é automática, ao criar a função.

...

INCLUDE /PWS/LZYCEGF6U15.

INCLUDE /PWS/LZYCEGF6U16.

INCLUDE /PWS/LZYCEGF6U17.

INCLUDE /PWS/LZYCEGF6U18.

INCLUDE /PWS/LZYCEGF6U20.

INCLUDE /PWS/LZYCEGF6U19.

INCLUDE /PWS/LZYCEGF6U21.

INCLUDE /PWS/LZYCEGF6U22.

INCLUDE /PWS/LZYCEGF6U24.

INCLUDE /PWS/LZYCEGF6U25.

* >> Início da inclusão:

INCLUDE /PWS/LZYCEGF6U23.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

ENDIF.

LOOP AT itab_j_1bnflin.

itab_nf-docnum = itab_j_1bnflin-docnum.

COLLECT itab_nf.

ENDLOOP.

ENDIF.

CHECK NOT itab_nf[] IS INITIAL.

SELECT docnum

docdat

pstdat

* >> Início da exclusão: FORM SELECIONA_NOTAS_FISCAIS

series

nfnum

* << Fim da exclusão

FROM j_1bnfdoc

INTO TABLE itab_j_1bnfdoc

FOR ALL ENTRIES IN itab_nf

WHERE docnum = itab_nf-docnum.

IF sy-subrc NE 0.

CALL FUNCTION 'MESSAGE_STORE'

EXPORTING

arbgb = '/PWS/ZYCEM'

msgty = 'W'

msgv1 = text-513

...

itab_vbrp-vrkme TO itab_zycet002-vrkme,

itab_vbrp-kokrs TO itab_zycet002-kokrs,

itab_vbrp-spara TO itab_zycet002-spara,

itab_vbrp-gsber TO itab_zycet002-gsber.

MOVE: itab_vbrp-vtweg_auft TO itab_zycet002-vtweg_auft,

itab_vbrp-vkorg_auft TO itab_zycet002-vkorg_auft.

READ TABLE itab_j_1bnflin

WITH KEY refkey = itab_zycet002-vbeln_vf

reftyp = 'BI'.

IF sy-subrc EQ 0.

* >> Início da exclusão: FORM MOVE_DADOS_SAP_PARA_ITENS

READ TABLE itab_j_1bnfdoc

WITH KEY docnum = itab_j_1bnflin-docnum.

* << Fim da exclusão

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

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_j_1bnflin-docnum

IMPORTING

e_nfnum = itab_zycet002-nfnum

EXCEPTIONS

DOCUMENTO_INVALIDO = 1

DOCUMENTO_NAO_PREENCHIDO = 2.

* << Fim da inclusão

IF sy-subrc EQ 0.

* >> Início da exclusão: FORM MOVE_DADOS_SAP_PARA_ITENS

itab_zycet002-docnum = itab_j_1bnfdoc-docnum.

itab_zycet002-nfnum = itab_j_1bnfdoc-nfnum.

* << Fim da exclusão

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

itab_zycet002-docnum = itab_j_1bnflin-docnum.

* << Fim da inclusão

ELSE.

CALL FUNCTION 'MESSAGE_STORE'

...

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

itab_zycet118-ntgew TO itab_zycit248-ntgew,

v_waersa TO itab_zycit248-waerscomis,

itab_zycit247-nritem TO itab_zycit248-nritem,

itab_zycit247-codmat TO itab_zycit248-codmat,

itab_zycit282-meins_e TO itab_zycit248-meins,

itab_zycit282-qtd_mexp TO itab_zycit248-qtd_iten,

itab_zycit282-um_ncm TO itab_zycit248-um_ncm,

itab_zycit282-qtd_ncm TO itab_zycit248-qtd_ncm,

itab_zycit282-matnr_exp TO itab_zycit248-matnr,

itab_mvke-mvgr1 TO itab_zycit248-mvgr1,

* >> Início da exclusão: FORM SALVA_ATO_CONCESSORIO

itab_j_1bnfdoc-nfnum TO itab_zycit248-nfnum,

itab_j_1bnfdoc-series TO itab_zycit248-serie,

itab_j_1bnfdoc-docdat TO itab_zycit248-dtnf,

* << Fim da exclusão

itab_zycet002-werks TO itab_zycit248-werks.

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

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_zycet002-docnum

IMPORTING

e_nfnum = itab_zycit248-nfnum

e_series = itab_zycit248-serie

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MOVE: itab_j_1bnfdoc-docdat TO itab_zycit248-dtnf.

ENDIF.

* << Fim da inclusão

IF /pws/zycee001-tipo_emb EQ 'F'.

READ TABLE itab_lips INTO itab_lips

WITH KEY vbeln = itab_zycet002-vbeln_vl

posnr = itab_zycet002-posnr

BINARY SEARCH.

MOVE itab_lips-j_1btaxlw2 TO itab_zycit248-taxlaw.

ELSE.

READ TABLE itab_vbap INTO itab_vbap

WITH KEY vbeln = itab_zycet002-vbeln_va

posnr = itab_zycet002-aupos

...

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

Modificações efetuadas em REPS /PWS/MZYCE003X01

...

DATA: BEGIN OF itab_j_1bnflin OCCURS 0,

docnum TYPE j_1bnflin-docnum,

itmnum TYPE j_1bnflin-itmnum,

reftyp TYPE j_1bnflin-reftyp,

refkey TYPE j_1bnflin-refkey,

END OF itab_j_1bnflin.

DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0,

docnum TYPE j_1bnfdoc-docnum,

docdat TYPE j_1bnfdoc-docdat,

pstdat TYPE j_1bnfdoc-pstdat,

* >> Início da exclusão:

series TYPE j_1bnfdoc-series,

nfnum TYPE j_1bnfdoc-nfnum,

* << Fim da exclusão

END OF itab_j_1bnfdoc.

DATA: BEGIN OF itab_kna1 OCCURS 0,

kunnr TYPE kna1-kunnr,

land1 TYPE kna1-land1,

name1 TYPE kna1-name1,

name2 TYPE kna1-name2,

ort01 TYPE kna1-ort01,

pstlz TYPE kna1-pstlz,

regio TYPE kna1-regio,

stras TYPE kna1-stras,

...

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

Modificações efetuadas em REPS /PWS/MZYCE107F01

FORM data_select.

SET PARAMETER ID '/PWS/ZYCEP001' FIELD /pws/zycee120-nrseq.

DATA v_werks TYPE i.

PERFORM carrega_zyglt100.

SELECT COUNT( DISTINCT werks )

FROM /pws/zycet002

INTO v_werks

WHERE nrseq = /pws/zycee120-nrseq.

/pws/zycee120-qtdpart = v_werks.

* >> Início da exclusão: FORM DATA_SELECT

SELECT *

* << Fim da exclusão

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

SELECT * "#EC CI_NOFIELD

* << Fim da inclusão

INTO /pws/zycee120

FROM /pws/zycet120 UP TO 1 ROWS

WHERE nrseq = /pws/zycee120-nrseq.

ENDSELECT.

IF sy-subrc EQ 0.

IF sy-tcode = c_code_c.

MESSAGE a001 WITH text-007 /pws/zycee120-nrseqsd.

ENDIF.

SELECT waers

...

nrseq = /pws/zycee120-nrseq.

ENDIF.

SORT itab_zycet002 BY vbeln_va

aupos

vbeln_vl

posnl

vbeln_vf

posnr

docnum.

PERFORM trata_nota_estorno_estornada.

* >> Início da exclusão: FORM LOAD_NFISCAL

IF NOT itab_zycet002[] IS INITIAL.

SELECT nfnum series docnum

FROM j_1bnfdoc INTO TABLE itab_nfiscal

FOR ALL ENTRIES IN itab_zycet002

WHERE docnum = itab_zycet002-docnum.

* << Fim da exclusão

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

LOOP AT itab_zycet002.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_zycet002-docnum

IMPORTING

e_nfnum = itab_nfiscal-nfnum

e_series = itab_nfiscal-series

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

itab_nfiscal-docnum = itab_zycet002-docnum.

APPEND itab_nfiscal.

* << Fim da inclusão

ENDIF.

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

ENDLOOP.

* << Fim da inclusão

SORT itab_nfiscal BY nfnum series.

DELETE ADJACENT DUPLICATES FROM itab_nfiscal.

CLEAR: v_index, v_nfiscal.

LOOP AT itab_nfiscal.

IF v_nfiscal EQ 0 OR

v_nfiscal NE itab_nfiscal-nfnum.

...

SORT itab_centro.

DELETE ADJACENT DUPLICATES FROM itab_centro.

DESCRIBE TABLE itab_centro LINES v_total_centro.

ENDFORM.

FORM load_all_nfiscal.

DATA: v_branch LIKE t001w-j_1bbranch,

v_cgc LIKE j_1bwfield-cgc_number.

DATA: BEGIN OF itab_series OCCURS 10,

docnum LIKE j_1bnfdoc-docnum,

series LIKE j_1bnfdoc-series,

* >> Início da exclusão: FORM LOAD_ALL_NFISCAL

nfnum LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

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

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

END OF itab_series.

v_cont = 1.

CHECK sy-tcode = c_code_c.

CLEAR: itab_zycet123.

REFRESH: itab_zycet123.

IF NOT itab_centro[] IS INITIAL.

SELECT *

FROM /pws/zycet002

INTO CORRESPONDING FIELDS OF TABLE itab_zycet002

FOR ALL ENTRIES IN itab_centro

...

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

Modificações efetuadas em REPS /PWS/MZYCE107TOP

...

codnrseq LIKE /pws/zycet066-codnrseq,

vlcond1 LIKE /pws/zycet066-vlcond1,

ntgew LIKE /pws/zycet066-ntgew,

END OF itab_zycet066.

DATA: itab_vbfa LIKE vbfa OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_zycet122 OCCURS 5.

INCLUDE STRUCTURE /pws/zycet122.

DATA: marc,

END OF itab_zycet122.

DATA: BEGIN OF itab_nfiscal OCCURS 10,

* >> Início da exclusão:

nfnum LIKE j_1bnfdoc-nfnum,

series LIKE j_1bnfdoc-series,

docnum LIKE j_1bnfdoc-docnum,

* << Fim da exclusão

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

series TYPE j_1bnfdoc-series,

docnum TYPE j_1bnfdoc-docnum,

* << Fim da inclusão

END OF itab_nfiscal.

DATA: BEGIN OF itab_obrig OCCURS 10,

id LIKE /pws/zycet031-id,

texto LIKE /pws/zycet031-name,

titulo LIKE /pws/zycet031-id,

END OF itab_obrig.

DATA: BEGIN OF itab_zycet258 OCCURS 5.

INCLUDE STRUCTURE /pws/zycet258.

DATA: marc,

END OF itab_zycet258.

...

v_init,

v_changed,

v_erro,

v_modo_pri,

v_dyn(4) TYPE c VALUE '0101',

v_cont TYPE /pws/zycet123-nrcont VALUE '001',

v_lines TYPE i,

v_countfi(10) TYPE n,

v_nrseq LIKE /pws/zycee001-nrseq,

v_text LIKE /pws/zycet031-name,

* >> Início da exclusão:

v_nfiscal LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

* >> Início da inclusão:

v_nfiscal TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

v_index LIKE sy-tabix,

v_tab LIKE sy-ucomm VALUE 'FC_CAB',

v_flag_dde TYPE c,

v_nrsd LIKE /pws/zycet120-nrsd,

v_peso_out LIKE coep-megbtr,

v_conv LIKE coka-hrkft,

v_total_centro,

v_branch LIKE t001w-j_1bbranch,

v_agrupado LIKE /pws/zycet116-agrupado,

v_marca LIKE /pws/zycee122-marca1,

...

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

Modificações efetuadas em REPS /PWS/ZYCER007

* >> Início da exclusão:

REPORT /pws/zycer007 LINE-SIZE 170

* << Fim da exclusão

* >> Início da inclusão:

REPORT /pws/zycer007 LINE-SIZE 173

* << Fim da inclusão

LINE-COUNT 65

MESSAGE-ID /pws/zycem

NO STANDARD PAGE HEADING.

INCLUDE: /pws/zycei007,

/pws/zycex007.

DATA: itab_zycet079 LIKE /pws/zycet079 OCCURS 10 WITH HEADER LINE.

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

SELECT-OPTIONS: s_emb FOR /pws/zycet002-nrseq MEMORY ID

/pws/zycep001.

SELECTION-SCREEN END OF BLOCK a1.

...

002(010) text-001,

012(010) wa_relat-nrseq,

027(009) text-032,

036(010) wa_relat-dtbl,

050(006) text-033.

IF NOT wa_relat-dtbl IS INITIAL.

WRITE: 056(010) wa_relat-kurrf_bl.

ELSE.

WRITE: 056(010) v_kurrf.

ENDIF.

* >> Início da exclusão: FORM IMPRIME_EMBARQUE

WRITE: 170 '|' .

* << Fim da exclusão

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

WRITE: 173 '|' .

* << Fim da inclusão

ULINE.

WRITE: /001 '|' , 002(006) text-009 CENTERED,

008 '|' , 009(006) text-010 CENTERED,

* >> Início da exclusão: FORM IMPRIME_EMBARQUE

015 '|' , 016(010) text-011 CENTERED,

026 '|' , 027(009) text-021 CENTERED,

036 '|' , 037(010) text-022 CENTERED,

047 '|' , 048(018) text-059 CENTERED,

066 '|' , 067(010) text-012 CENTERED,

077 '|' , 078(007) text-018 CENTERED,

085 '|' , 086(010) text-016 CENTERED,

096 '|' , 097(005) text-013 CENTERED,

102 '|' , 103(016) text-020 CENTERED,

119 '|' , 120(016) text-023 CENTERED,

136 '|' , 137(016) text-026 CENTERED,

153 '|' , 154(016) text-027 CENTERED,

170 '|' .

* << Fim da exclusão

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

018 '|' , 019(010) text-011 CENTERED,

029 '|' , 030(009) text-021 CENTERED,

039 '|' , 040(010) text-022 CENTERED,

050 '|' , 051(018) text-059 CENTERED,

069 '|' , 070(010) text-012 CENTERED,

080 '|' , 081(007) text-018 CENTERED,

088 '|' , 089(010) text-016 CENTERED,

099 '|' , 100(005) text-013 CENTERED,

105 '|' , 106(016) text-020 CENTERED,

122 '|' , 123(016) text-023 CENTERED,

139 '|' , 140(016) text-026 CENTERED,

156 '|' , 157(016) text-027 CENTERED,

173 '|' .

* << Fim da inclusão

WRITE: /001 '|' ,

008 '|' ,

* >> Início da exclusão: FORM IMPRIME_EMBARQUE

015 '|' , 016(010) text-036 CENTERED,

026 '|' ,

036 '|' , 037(010) text-005 CENTERED,

047 '|' ,

066 '|' , 067(010) text-025 CENTERED,

077 '|' ,

085 '|' , 086(010) text-034 CENTERED,

096 '|' ,

102 '|' ,

119 '|' ,

136 '|' ,

153 '|' , 154(016) text-035 CENTERED,

170 '|' .

* << Fim da exclusão

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

018 '|' , 019(010) text-036 CENTERED,

029 '|' ,

039 '|' , 040(010) text-005 CENTERED,

050 '|' ,

069 '|' , 070(010) text-025 CENTERED,

080 '|' ,

088 '|' , 089(010) text-034 CENTERED,

099 '|' ,

105 '|' ,

122 '|' ,

139 '|' ,

156 '|' , 157(016) text-035 CENTERED,

173 '|' .

* << Fim da inclusão

ULINE.

ENDFORM.

FORM imprime_itens_embarque.

WRITE: /001 '|' , 002(006) wa_relat-branch,

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

008 '|' , 009(006) wa_relat-nfnum,

015 '|' , 016(010) wa_relat-docdat,

026 '|' , 027(009) wa_relat-kurrf,

036 '|' , 037(010) wa_relat-vbeln_vf,

047 '|' , 048(018) wa_relat-matnr,

066 '|' , 067(010) wa_relat-prctr,

077 '|' , 078(007) wa_relat-gsber,

085 '|' , 086(010) wa_relat-sakn1,

096 '|' , 097(005) wa_relat-waers.

* << Fim da exclusão

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

008 '|' , 009(009) wa_relat-nfnum,

018 '|' , 019(010) wa_relat-docdat,

029 '|' , 030(009) wa_relat-kurrf,

039 '|' , 040(010) wa_relat-vbeln_vf,

050 '|' , 051(018) wa_relat-matnr,

069 '|' , 070(010) wa_relat-prctr,

080 '|' , 081(007) wa_relat-gsber,

088 '|' , 089(010) wa_relat-sakn1,

099 '|' , 100(005) wa_relat-waers.

* << Fim da inclusão

IF wa_relat-land1 <> 'AR'.

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

WRITE: 102 '|' , 103(016) wa_relat-vlme

* << Fim da exclusão

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

WRITE: 105 '|' , 106(016) wa_relat-vlme

* << Fim da inclusão

CURRENCY wa_relat-waers,

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

119 '|' , 120(016) wa_relat-netwr

* << Fim da exclusão

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

122 '|' , 123(016) wa_relat-netwr

* << Fim da inclusão

CURRENCY wa_relat-waersb.

ELSE.

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

WRITE: 102 '|' , 103(016) wa_relat-wrbtr

* << Fim da exclusão

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

WRITE: 105 '|' , 106(016) wa_relat-wrbtr

* << Fim da inclusão

CURRENCY wa_relat-waers,

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

119 '|' , 120(016) wa_relat-dmbtr

* << Fim da exclusão

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

122 '|' , 123(016) wa_relat-dmbtr

* << Fim da inclusão

CURRENCY wa_relat-waersb.

ENDIF.

WRITE:

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

136 '|' , 137(016) wa_relat-vlmi

* << Fim da exclusão

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

139 '|' , 140(016) wa_relat-vlmi

* << Fim da inclusão

CURRENCY wa_relat-waersb,

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

153 '|' , 154(016) wa_relat-difer

* << Fim da exclusão

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

156 '|' , 157(016) wa_relat-difer

* << Fim da inclusão

CURRENCY wa_relat-waersb,

* >> Início da exclusão: FORM IMPRIME_ITENS_EMBARQUE

170 '|' .

* << Fim da exclusão

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

173 '|' .

* << Fim da inclusão

ENDFORM.

FORM imprime_totais_embarque.

ULINE.

LOOP AT it_emb_tot.

WRITE: /001 '|' , 002 text-043.

IF it_emb_tot-land1 EQ 'AR'.

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

WRITE: 102 '|' , 103(016) it_emb_tot-wrbtr

* << Fim da exclusão

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

WRITE: 105 '|' , 106(016) it_emb_tot-wrbtr

* << Fim da inclusão

CURRENCY wa_relat-waers,

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

119 '|' , 120(016) it_emb_tot-dmbtr

* << Fim da exclusão

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

122 '|' , 123(016) it_emb_tot-dmbtr

* << Fim da inclusão

CURRENCY wa_relat-waersb.

ELSE.

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

WRITE: 102 '|' , 103(016) it_emb_tot-vlme

* << Fim da exclusão

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

WRITE: 105 '|' , 106(016) it_emb_tot-vlme

* << Fim da inclusão

CURRENCY wa_relat-waers,

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

119 '|' , 120(016) it_emb_tot-netwr

* << Fim da exclusão

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

122 '|' , 123(016) it_emb_tot-netwr

* << Fim da inclusão

CURRENCY wa_relat-waersb.

ENDIF.

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

WRITE: 136 '|' , 137(016) it_emb_tot-vlmi

* << Fim da exclusão

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

WRITE: 139 '|' , 140(016) it_emb_tot-vlmi

* << Fim da inclusão

CURRENCY wa_relat-waersb,

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

153 '|' , 154(016) it_emb_tot-difer

* << Fim da exclusão

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

156 '|' , 157(016) it_emb_tot-difer

* << Fim da inclusão

CURRENCY wa_relat-waersb,

* >> Início da exclusão: FORM IMPRIME_TOTAIS_EMBARQUE

170 '|' .

* << Fim da exclusão

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

173 '|' .

* << Fim da inclusão

ULINE.

SKIP.

ENDLOOP.

ENDFORM.

FORM imprime_resumo_embarque.

SORT it_contabil BY branch prctr gsber sakn1.

LOOP AT it_contabil.

AT NEW branch.

ULINE AT /001(048).

WRITE: /001 '|' ,

...

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

OTHERS = 1. "#EC *

ULINE.

WRITE: 001 '|', sy-datlo, v_dia_sem,

* >> Início da exclusão: FORM CABECALHO

158 text-007, sy-pagno, '|'.

* << Fim da exclusão

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

161 text-007, sy-pagno, '|'.

* << Fim da inclusão

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.

* >> Início da exclusão: FORM CABECALHO

WRITE: /001 '|', 002(168) v_empresa CENTERED, 170 '|',

/001 '|', 002(168) v_dtate_char CENTERED, 170 '|'.

* << Fim da exclusão

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

WRITE: /001 '|', 002(168) v_empresa CENTERED, 173 '|',

/001 '|', 002(168) v_dtate_char CENTERED, 173 '|'.

* << Fim da inclusão

ULINE.

ENDFORM.

FORM popup.

DATA: v_autoriza(1) TYPE c.

CLEAR: it_modo.

REFRESH: it_modo.

CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'

EXPORTING

codmod = 'X'

usuario = sy-uname

...

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

Modificações efetuadas em REPS /PWS/ZYCER017

REPORT /pws/zycer017 LINE-SIZE 123

NO STANDARD PAGE HEADING

MESSAGE-ID /pws/zycem.

TABLES : /pws/zycet002,

* >> Início da exclusão:

/pws/zycet009,

* << Fim da exclusão

j_1bnfdoc.

DATA : BEGIN OF it_zycet002 OCCURS 10.

INCLUDE STRUCTURE /pws/zycet002.

DATA : END OF it_zycet002.

DATA : BEGIN OF it_zycet002_aux OCCURS 10.

INCLUDE STRUCTURE /pws/zycet002.

DATA : END OF it_zycet002_aux.

DATA : BEGIN OF it_relat OCCURS 10,

nrseq LIKE /pws/zycet002-nrseq,

nfdoc LIKE j_1bnfdoc-docnum,

* >> Início da exclusão:

nfnum LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

pstdat LIKE j_1bnfdoc-pstdat,

belnr LIKE /pws/zycet002-belnr5.

DATA : END OF it_relat.

DATA : BEGIN OF itab_zycet009 OCCURS 10.

INCLUDE STRUCTURE /pws/zycet009.

DATA : END OF itab_zycet009.

DATA :

v_cursor(20),

v_tabix LIKE sy-tabix.

* >> 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:

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

* << Fim da inclusão

SELECT-OPTIONS: s_emb FOR /pws/zycet002-nrseq.

* >> 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 start.

* << Fim da inclusão

START-OF-SELECTION.

PERFORM z_seleciona_dados.

PERFORM z_imprime_dados.

TOP-OF-PAGE.

* >> Início da exclusão:

WRITE: /01(64) sy-uline.

* << Fim da exclusão

* >> Início da inclusão:

WRITE: /01(68) sy-uline.

* << Fim da inclusão

FORMAT COLOR 4 INVERSE OFF INTENSIFIED OFF.

WRITE : /01 sy-vline, text-003,

17 sy-vline, text-004,

29 sy-vline, text-005,

* >> Início da exclusão:

37 sy-vline, text-006,

49 sy-vline, text-007,

64 sy-vline.

* << Fim da exclusão

* >> Início da inclusão:

41 sy-vline, text-006,

53 sy-vline, text-007,

68 sy-vline.

* << Fim da inclusão

FORMAT COLOR COL_BACKGROUND.

* >> Início da exclusão:

WRITE: /01(64) sy-uline.

* << Fim da exclusão

* >> Início da inclusão:

WRITE: /01(68) sy-uline.

* << Fim da inclusão

FORMAT COLOR OFF.

AT LINE-SELECTION.

PERFORM carrega_tela.

FORM z_seleciona_dados.

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

DATA: v_nfnum TYPE /pws/zycet002-nfnum.

* << Fim da inclusão

SELECT * FROM /pws/zycet002

INTO TABLE it_zycet002

WHERE nrseq IN s_emb.

IF sy-subrc EQ 0.

LOOP AT it_zycet002.

ON CHANGE OF it_zycet002-bukrs.

PERFORM verifica_autorizacao USING it_zycet002-bukrs

'01'.

ENDON.

ENDLOOP.

...

SELECT *

INTO TABLE itab_zycet009

FROM /pws/zycet009

FOR ALL ENTRIES IN it_zycet002

WHERE nrseq EQ it_zycet002-nrseq.

SORT itab_zycet009 BY nrseq.

ENDIF.

LOOP AT it_zycet002.

LOOP AT itab_zycet009 WHERE nrseq EQ it_zycet002-nrseq.

CLEAR : j_1bnfdoc.

* >> Início da exclusão: FORM Z_SELECIONA_DADOS

SELECT SINGLE * FROM j_1bnfdoc

WHERE docnum EQ itab_zycet009-docnum2.

* << Fim da exclusão

IF itab_zycet009-docnum2 IS INITIAL AND

it_zycet002-belnr5 IS INITIAL.

CONTINUE.

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

ELSE.

CLEAR v_nfnum.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_zycet009-docnum2

IMPORTING

e_nfnum = v_nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc IS INITIAL.

MOVE v_nfnum TO it_relat-nfnum.

SELECT SINGLE *

FROM j_1bnfdoc

WHERE docnum EQ itab_zycet009-docnum2.

it_relat-pstdat = j_1bnfdoc-pstdat.

* << Fim da inclusão

ELSE.

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

CLEAR it_relat-nfnum.

ENDIF.

* << Fim da inclusão

it_relat-nrseq = it_zycet002-nrseq.

it_relat-nfdoc = itab_zycet009-docnum2.

* >> Início da exclusão: FORM Z_SELECIONA_DADOS

it_relat-nfnum = j_1bnfdoc-nfnum.

it_relat-pstdat = j_1bnfdoc-pstdat.

* << Fim da exclusão

it_relat-belnr = it_zycet002-belnr5.

APPEND it_relat.

ENDIF.

CLEAR : j_1bnfdoc.

ENDLOOP.

IF sy-subrc <> 0.

CHECK NOT it_zycet002-belnr5 IS INITIAL.

CLEAR it_relat.

it_relat-nrseq = it_zycet002-nrseq.

it_relat-belnr = it_zycet002-belnr5.

...

LOOP AT it_relat.

FORMAT RESET.

WRITE : /00 sy-vline, it_relat-nrseq,

17 sy-vline, it_relat-nfdoc.

IF v_tabix = 1.

ELSE.

CLEAR v_tabix.

ENDIF.

WRITE:

29 sy-vline, it_relat-nfnum,

* >> Início da exclusão: FORM Z_IMPRIME_DADOS

37 sy-vline, it_relat-pstdat.

* << Fim da exclusão

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

41 sy-vline, it_relat-pstdat.

* << Fim da inclusão

WRITE:

* >> Início da exclusão: FORM Z_IMPRIME_DADOS

49 sy-vline, it_relat-belnr,

64 sy-vline.

* << Fim da exclusão

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

53 sy-vline, it_relat-belnr,

68 sy-vline.

* << Fim da inclusão

HIDE it_relat-nfdoc.

HIDE it_relat-belnr.

ENDLOOP.

* >> Início da exclusão: FORM Z_IMPRIME_DADOS

WRITE: /01(64) sy-uline.

* << Fim da exclusão

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

WRITE: /01(68) sy-uline.

* << Fim da inclusão

ELSE.

WRITE : /00 text-002.

ENDIF.

ENDFORM.

FORM carrega_tela.

GET CURSOR FIELD v_cursor.

IF v_cursor = 'IT_RELAT-NFDOC'.

SET PARAMETER ID 'JEF' FIELD it_relat-nfdoc.

AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'J1B3'.

IF sy-subrc EQ 0.

...

OR v_emb1 = '98'

OR v_emb1 = '97'.

DELETE it_zycet002 INDEX sy-tabix.

ENDIF.

ENDLOOP.

ENDIF.

LOOP AT it_zycet002.

v_emb1 = it_zycet002-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 >= s_emb-low+8(2). "#EC PORTABLE

* << Fim da inclusão

DELETE it_zycet002 INDEX sy-tabix.

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 > s_emb-high+8(2). "#EC PORTABLE

* << Fim da inclusão

DELETE it_zycet002 INDEX sy-tabix.

ENDIF.

ENDLOOP.

ENDFORM.

FORM verifica_autorizacao USING p_bukrs LIKE /pws/zycet002-bukrs

p_actvt TYPE n.

AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD p_bukrs

ID 'ACTVT' FIELD p_actvt.

...

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

Modificações efetuadas em REPS /PWS/ZYCER018

REPORT /pws/zycer018 MESSAGE-ID /pws/zycem.

* >> Início da exclusão:

TABLES : /pws/zycet009, j_1bnfdoc.

* << Fim da exclusão

* >> Início da inclusão:

TABLES : /pws/zycet009.

* << Fim da inclusão

DATA :

it_zycet009 LIKE /pws/zycet009 OCCURS 10 WITH HEADER LINE,

it_j1bnfdoc LIKE j_1bnfdoc OCCURS 10 WITH HEADER LINE.

DATA : BEGIN OF it_zycet009_aux OCCURS 10.

INCLUDE STRUCTURE /pws/zycet009.

DATA : linha.

DATA : END OF it_zycet009_aux.

DATA: BEGIN OF itab_lista OCCURS 100,

linha,

nrseq LIKE /pws/zycet009-nrseq,

...

WHERE docnum = it_zycet009-docnum2

AND nfnum = ' '.

IF sy-subrc NE 0.

MESSAGE i001 WITH text-015.

ENDIF.

ENDFORM.

FORM z_contabiliza_j1b3.

DATA:

v_cpochv LIKE /pws/zycee005-cpochv.

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

DATA: v_nfnum TYPE /pws/zycet002-nfnum.

* << Fim da inclusão

LOOP AT it_j1bnfdoc.

READ TABLE it_zycet009 WITH KEY docnum2 = it_j1bnfdoc-docnum.

IF sy-subrc EQ 0.

READ TABLE itab_lista WITH KEY nrseq = it_zycet009-nrseq

docnum2 = it_zycet009-docnum2

linha = 'X'.

IF sy-subrc EQ 0.

MOVE-CORRESPONDING it_zycet009 TO it_zycet009_aux.

it_zycet009_aux-linha = itab_lista-linha.

APPEND it_zycet009_aux.

...

IF sy-subrc EQ 0.

PERFORM z_print_relat_final.

ELSE.

READ TABLE it_zycet005 WITH KEY tcode = text-002

tabela = text-005

cpochv = v_cpochv

tpmsg = 'E'.

MESSAGE i016 WITH it_zycet005-msg+0(50)

it_zycet005-msg+50(50).

ENDIF.

* >> Início da exclusão: FORM Z_CONTABILIZA_J1B3

SELECT SINGLE * FROM j_1bnfdoc

WHERE docnum = it_zycet009_aux-docnum2.

* << Fim da exclusão

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

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = it_zycet009_aux-docnum2

IMPORTING

e_nfnum = v_nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

* << Fim da inclusão

IF sy-subrc EQ 0.

* >> Início da exclusão: FORM Z_CONTABILIZA_J1B3

UPDATE /pws/zycet009 SET nfnum = j_1bnfdoc-nfnum

WHERE nrseq =

it_zycet009_aux-nrseq

AND docnum2 =

it_zycet009_aux-docnum2.

* << Fim da exclusão

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

UPDATE /pws/zycet009 SET nfnum = v_nfnum

WHERE nrseq = it_zycet009_aux-nrseq

AND docnum2 = it_zycet009_aux-docnum2.

ELSE.

CONTINUE.

* << Fim da inclusão

ENDIF.

ENDLOOP.

ENDIF.

PERFORM limpa_tabelas.

ENDFORM.

FORM limpa_tabelas.

CLEAR: it_zycee005,

it_zycet005,

it_zycet004,

it_zycee005.

...

IF sy-subrc EQ 0.

WRITE : /02 v_check AS CHECKBOX,

05 it_zycet009-nrseq ,

22 it_zycet009-branch,

30 it_zycet009-docnum2,

43 it_j1bnfdoc-pstdat.

ENDIF.

ENDLOOP.

ENDFORM.

FORM z_print_relat_final.

* >> Início da exclusão: FORM Z_PRINT_RELAT_FINAL

WRITE : /00 text-012,"#EC

* << Fim da exclusão

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

WRITE : /00 text-012, "#EC

* << Fim da inclusão

13 text-013,

25 text-014.

* >> Início da exclusão: FORM Z_PRINT_RELAT_FINAL

WRITE : /00 it_zycet009_aux-nrseq,"#EC

* << Fim da exclusão

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

WRITE : /00 it_zycet009_aux-nrseq, "#EC

* << Fim da inclusão

13 it_zycet009_aux-docnum,

25 text-011.

ENDFORM.

FORM popup.

CLEAR: v_modo_bi.

SELECT * FROM /pws/zycbt039

* >> Início da exclusão: FORM POPUP

INTO CORRESPONDING FIELDS OF TABLE it_modo."#EC CI_NOWHERE

* << Fim da exclusão

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

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-016

textline2 = text-017

titel = text-018

IMPORTING

answer = v_modo_bi

TABLES

t_spopli = it_modo

...

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

Modificações efetuadas em REPS /PWS/ZYCER213

...

dtenvcamb TYPE /pws/zycet001-dtenvcamb,

dtcruze TYPE /pws/zycet001-dtcruze,

END OF t_seq_embarque,

t_seq_embarques TYPE STANDARD TABLE OF t_seq_embarque.

DATA: BEGIN OF itab_notas OCCURS 0,

docnum LIKE j_1bnflin-docnum,

itmnum LIKE j_1bnflin-itmnum,

reftyp LIKE j_1bnflin-reftyp,

refkey LIKE j_1bnflin-refkey,

refitm LIKE j_1bnflin-refitm,

* >> Início da exclusão:

nfnum LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

docdat LIKE j_1bnfdoc-docdat,

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

vbeln_vf LIKE /pws/zycet002-vbeln_vf,

vbeln_va LIKE /pws/zycet002-vbeln_va,

vbeln_vl LIKE /pws/zycet002-vbeln_vl,

aupos LIKE /pws/zycet002-aupos,

posnl LIKE /pws/zycet002-posnl,

END OF itab_notas.

...

icon_1(10) TYPE c,

bldat LIKE likp-bldat,

lfimg LIKE lips-lfimg,

vrkme LIKE lips-vrkme,

btgew LIKE likp-btgew,

gewei LIKE likp-gewei,

werks LIKE vbap-werks,

icon_2(10) TYPE c,

dtsolfat LIKE /pws/zycet265-dtsolfat,

dtlibemb LIKE /pws/zycet265-dtlibemb,

* >> Início da exclusão:

nfnum LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

vlnota LIKE vbrp-netwr,

icon_3(10) TYPE c,

docdat LIKE j_1bnfdoc-docdat,

nrseq LIKE /pws/zycet001-nrseq,

nremb LIKE /pws/zycet001-nremb,

dt_eiv LIKE /pws/zycet068-data_emis,

netwr LIKE vbap-netwr,

waers LIKE /pws/zycet002-waers,

viatrans LIKE /pws/zycet001-viatrans,

inco1 LIKE /pws/zycet002-inco1,

...

READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'M'.

MOVE: itab_vbfa_aux-vbeln TO itab_ordem-vbeln_vf,

itab_vbfa_aux-posnn TO itab_ordem-posnf,

itab_vbfa_aux-vbeln TO itab_ordem-refkey.

MODIFY itab_ordem INDEX v_index.

CLEAR itab_vbfa_aux.

REFRESH itab_vbfa_aux.

ENDLOOP.

ENDIF.

IF NOT itab_ordem[] IS INITIAL.

* >> Início da exclusão: FORM SELECIONA_ORDEM

SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

* << Fim da exclusão

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

SELECT b~docnum b~itmnum

b~reftyp b~refkey

b~refitm a~docdat

FROM j_1bnfdoc AS a

INNER JOIN j_1bnflin AS b

* << Fim da inclusão

ON a~docnum = b~docnum

INTO TABLE itab_notas

FOR ALL ENTRIES IN itab_ordem

WHERE b~refkey EQ itab_ordem-refkey

AND b~refitm EQ itab_ordem-posnf

AND b~reftyp EQ 'BI'

AND a~docdat IN s_docdat

AND a~nfnum IN s_nfnum.

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

LOOP AT itab_notas INTO itab_notas.

v_index = sy-tabix.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_notas-docnum

IMPORTING

e_nfnum = itab_notas-nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MODIFY itab_notas INDEX v_index TRANSPORTING nfnum.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

* << Fim da inclusão

IF NOT s_docdat IS INITIAL.

IF NOT itab_notas[] IS INITIAL.

LOOP AT itab_ordem.

v_index = sy-tabix.

READ TABLE itab_notas WITH KEY refkey = itab_ordem-refkey

refitm = itab_ordem-posnf.

IF sy-subrc NE 0.

DELETE itab_ordem INDEX v_index.

ENDIF.

ENDLOOP.

...

INTO TABLE itab_zycet047

FOR ALL ENTRIES IN itab_embarque

WHERE nrseq EQ itab_embarque-nrseq

AND matnr EQ itab_embarque-matnr.

PERFORM seleciona_dados_embarque.

ENDIF.

ENDFORM.

FORM seleciona_nota.

DATA it_seq_embarque TYPE t_seq_embarques.

* >> Início da exclusão: FORM SELECIONA_NOTA

SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

* << Fim da exclusão

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

SELECT b~docnum b~itmnum

b~reftyp b~refkey

b~refitm a~docdat

* << Fim da inclusão

FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

ON a~docnum = b~docnum

INTO TABLE itab_notas

WHERE a~docdat IN s_docdat

AND a~nfnum IN s_nfnum

AND b~refkey NE space

AND a~nfnum NE space.

CHECK NOT itab_notas[] IS INITIAL.

LOOP AT itab_notas.

v_index = sy-tabix.

MOVE itab_notas-refkey TO itab_notas-vbeln_vf.

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

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_notas-docnum

IMPORTING

e_nfnum = itab_notas-nfnum

EXCEPTIONS

documento_invalido = 0

documento_nao_preenchido = 0.

* << Fim da inclusão

MODIFY itab_notas INDEX v_index.

ENDLOOP.

SELECT vbrp~vbeln vbrp~posnr vbrp~kursk vbrp~netwr

vbrk~exnum vbrk~fkart vbrk~inco1 vbrk~bukrs

vbrk~waerk

FROM vbrk INNER JOIN vbrp

ON vbrk~vbeln = vbrp~vbeln

INTO TABLE itab_fatura

FOR ALL ENTRIES IN itab_notas

WHERE vbrp~vbeln EQ itab_notas-vbeln_vf

...

IF sy-subrc EQ 0.

MOVE: itab_nast-datvr TO itab_relat-dt_analise.

ENDIF.

IF NOT itab_ordem[] IS INITIAL.

READ TABLE itab_ordem WITH KEY

vbeln = itab_embarque-vbeln_va

posnr = itab_embarque-aupos

vbeln_vl = itab_embarque-vbeln_vl

posnl = itab_embarque-posnl.

PERFORM atribui_dados_ov

* >> Início da exclusão: FORM PROCESSA_DADOS

USING itab_ordem CHANGING itab_relat.

* << Fim da exclusão

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

USING itab_ordem itab_embarque CHANGING itab_relat.

* << Fim da inclusão

ENDIF.

IF NOT itab_pedido[] IS INITIAL.

READ TABLE itab_pedido WITH KEY

ebeln = itab_embarque-ebeln

ebelp = itab_embarque-ebelp

vbeln_vl = itab_embarque-vbeln_vl

posnl = itab_embarque-posnl.

PERFORM atribui_dados_pc

USING itab_pedido CHANGING itab_relat.

ENDIF.

...

IF sy-subrc NE 0.

DELETE itab_embarque INDEX v_index.

ENDIF.

ENDLOOP.

ELSE.

REFRESH itab_embarque.

ENDIF.

IF NOT itab_embarque[] IS INITIAL.

* >> Início da exclusão: FORM SELECIONA_ORDEM_EMB

SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

* << Fim da exclusão

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

SELECT b~docnum b~itmnum

b~reftyp b~refkey

b~refitm a~docdat

FROM j_1bnfdoc AS a

INNER JOIN j_1bnflin AS b

* << Fim da inclusão

ON a~docnum = b~docnum

INTO TABLE itab_notas

FOR ALL ENTRIES IN itab_embarque

WHERE b~docnum EQ itab_embarque-docnum

AND a~docdat IN s_docdat.

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

LOOP AT itab_notas INTO itab_notas.

v_index = sy-tabix.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = itab_notas-docnum

IMPORTING

e_nfnum = itab_notas-nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MODIFY itab_notas INDEX v_index TRANSPORTING nfnum.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

* << Fim da inclusão

IF NOT s_docdat IS INITIAL.

IF NOT itab_notas[] IS INITIAL.

LOOP AT itab_embarque.

v_index = sy-tabix.

READ TABLE itab_notas WITH KEY docnum = itab_embarque-docnum.

IF sy-subrc NE 0.

DELETE itab_embarque INDEX v_index.

ENDIF.

ENDLOOP.

ELSE.

...

p_relat-canal = text-075.

WHEN 'VM'.

p_relat-canal = text-076.

WHEN 'CZ'.

p_relat-canal = text-077.

ENDCASE.

ENDFORM.

FORM atribui_dados_ov

USING

p_ordem LIKE itab_ordem

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

p_embarque LIKE itab_embarque

* << Fim da inclusão

CHANGING p_relat LIKE itab_relat.

READ TABLE itab_zycet265 WITH KEY vbeln_va = p_ordem-vbeln

vbeln_vl = p_ordem-vbeln_vl

IF sy-subrc EQ 0.

MOVE: itab_zycet265-dtrecped TO p_relat-dtrecped,

itab_zycet265-dtembsol TO p_relat-dtembsol,

itab_zycet265-dtsolov TO p_relat-dtsolov,

itab_zycet265-dtlibven TO p_relat-dtlibven,

itab_zycet265-dtsolrem TO p_relat-dtsolrem,

...

p_ordem-erdat TO p_relat-erdat.

READ TABLE itab_fatura WITH KEY vbeln = p_ordem-vbeln_vf

posnr = p_ordem-posnf.

IF sy-subrc EQ 0.

IF itab_fatura-waerk EQ 'BRL'.

p_relat-vlnota = itab_fatura-kursk * itab_fatura-netwr.

ELSE.

p_relat-vlnota = itab_fatura-netwr.

ENDIF.

* >> Início da exclusão: FORM ATRIBUI_DADOS_OV

READ TABLE itab_notas WITH KEY refkey = p_ordem-refkey

refitm = p_ordem-posnf.

* << Fim da exclusão

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

READ TABLE itab_notas WITH KEY refkey = p_embarque-vbeln_vf

refitm = p_embarque-posnr.

* << Fim da inclusão

IF sy-subrc EQ 0.

MOVE: itab_notas-nfnum TO p_relat-nfnum,

itab_notas-docdat TO p_relat-docdat.

ENDIF.

PERFORM atribui_dados_ov_r3

USING p_ordem CHANGING p_relat.

ENDFORM.

FORM atribui_dados_pc

USING

p_pedido LIKE itab_pedido

...

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

Modificações efetuadas em REPS /PWS/ZYCER214

...

INCLUDE /pws/z_rel_alv.

TYPES: BEGIN OF ty_cab_ordem,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

vkgrp TYPE vbak-vkgrp,

auart TYPE vbak-auart,

bukrs_vf TYPE vbak-bukrs_vf,

END OF ty_cab_ordem,

BEGIN OF ty_cab_notas,

docnum TYPE j_1bnfdoc-docnum,

* >> Início da exclusão:

nfnum TYPE j_1bnfdoc-nfnum,

* << Fim da exclusão

docdat TYPE j_1bnfdoc-docdat,

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

END OF ty_cab_notas,

BEGIN OF ty_cab_faturam,

vbeln TYPE vbrk-vbeln,

fkart TYPE vbrk-fkart,

inco1 TYPE vbrk-inco1,

bukrs TYPE vbrk-bukrs,

...

dtlibemb LIKE /pws/zycet265-dtlibemb,

vkgrp LIKE vbak-vkgrp,

importador LIKE kna1-name1,

country LIKE adrc-country,

werks LIKE vbap-werks,

viatrans LIKE /pws/zycet001-viatrans,

dtprev LIKE /pws/zycet001-dtprev,

icon_2(10) TYPE c,

dtsolfat LIKE /pws/zycet265-dtsolfat,

dtemb LIKE /pws/zycet001-dtemb,

* >> Início da exclusão:

nfnum LIKE j_1bnfdoc-nfnum,

* << Fim da exclusão

* >> Início da inclusão:

nfnum TYPE /pws/zycet002-nfnum,

* << Fim da inclusão

icon_3(10) TYPE c,

docdat LIKE j_1bnfdoc-docdat,

nrre LIKE /pws/zycet003-nrre,

dt_re LIKE /pws/zycet183-dtlog,

nrsd LIKE /pws/zycet001-nrsd,

icon_4(10) TYPE c,

dtlibanu LIKE /pws/zycet003-dtlibanu,

icon_6(10) TYPE c,

dtdesembaraco LIKE /pws/zycet102-dtdesembaraco,

icon_5(10) TYPE c,

...

BINARY SEARCH.

IF sy-subrc NE 0.

DELETE itab_embarque INDEX v_index.

ENDIF.

ENDLOOP.

ELSE.

REFRESH itab_embarque.

ENDIF.

SELECT docnum

* >> Início da exclusão: FORM SELECIONA_EMBARQUE

nfnum

* << Fim da exclusão

docdat

FROM j_1bnfdoc

INTO TABLE itab_cab_notas

FOR ALL ENTRIES IN itab_embarque

WHERE docnum EQ itab_embarque-docnum.

IF sy-subrc IS INITIAL.

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

LOOP AT itab_cab_notas INTO wa_cab_notas.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = wa_cab_notas-docnum

IMPORTING

e_nfnum = wa_cab_notas-nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MODIFY itab_cab_notas FROM wa_cab_notas.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

* << Fim da inclusão

SELECT docnum

itmnum

reftyp

refkey

refitm

FROM j_1bnflin

INTO TABLE itab_notas

FOR ALL ENTRIES IN itab_cab_notas

WHERE docnum EQ itab_cab_notas-docnum.

ENDIF.

...

itmnum

reftyp

refkey

refitm

FROM j_1bnflin

INTO TABLE itab_notas

FOR ALL ENTRIES IN itab_fatura

WHERE refkey EQ itab_fatura-vbeln.

IF sy-subrc IS INITIAL.

SELECT docnum

* >> Início da exclusão: FORM SELECIONA_ORDEM

nfnum

* << Fim da exclusão

docdat

FROM j_1bnfdoc

INTO TABLE itab_cab_notas

FOR ALL ENTRIES IN itab_notas

WHERE docnum EQ itab_notas-docnum.

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

ENDIF.

IF NOT itab_cab_notas[] IS INITIAL.

LOOP AT itab_cab_notas INTO wa_cab_notas.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = wa_cab_notas-docnum

IMPORTING

e_nfnum = wa_cab_notas-nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MODIFY itab_cab_notas FROM wa_cab_notas.

ELSE.

CONTINUE.

* << Fim da inclusão

ENDIF.

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

ENDLOOP.

* << Fim da inclusão

ENDIF.

PERFORM trata_ordem_ord.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = 100

text = text-004.

ENDFORM.

FORM seleciona_nota.

FIELD-SYMBOLS: <notas> LIKE itab_notas,

<ordem> LIKE itab_ordem.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = 10

text = text-004.

SELECT docnum

* >> Início da exclusão: FORM SELECIONA_NOTA

nfnum

* << Fim da exclusão

docdat

FROM j_1bnfdoc

INTO TABLE itab_cab_notas

WHERE docdat IN s_docdat

AND nfnum IN s_nfnum.

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

IF NOT itab_cab_notas[] IS INITIAL.

LOOP AT itab_cab_notas INTO wa_cab_notas.

CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'

EXPORTING

i_docnum = wa_cab_notas-docnum

IMPORTING

e_nfnum = wa_cab_notas-nfnum

EXCEPTIONS

documento_invalido = 1

documento_nao_preenchido = 2.

IF sy-subrc EQ 0.

MODIFY itab_cab_notas FROM wa_cab_notas.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

ENDIF.

* << Fim da inclusão

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = 30

text = text-004.

IF NOT itab_cab_notas[] IS INITIAL.

SELECT docnum

itmnum

reftyp

refkey

refitm

...

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

Modificações efetuadas em REPS /PWS/ZYCER282

...

EXPORTING

percentage = 20

text = text-004.

SELECT nrseqsd

nrsd

FROM /pws/zycet120

INTO TABLE itab_zycet120

FOR ALL ENTRIES IN itab_j1bt001wv

WHERE bukrs EQ itab_j1bt001wv-bukrs

AND bukrs EQ p_bukrs

* >> Início da exclusão: FORM SELECIONA_DADOS

AND werks EQ itab_j1bt001wv-werks.

* << Fim da exclusão

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

AND werks EQ itab_j1bt001wv-werks. "#EC CI_NOFIELD

* << Fim da inclusão

SELECT nrseq

nrseqdse

nrdse

FROM /pws/zycet208

INTO TABLE itab_zycet208

FOR ALL ENTRIES IN itab_j1bt001wv

WHERE bukrs EQ itab_j1bt001wv-bukrs

AND bukrs EQ p_bukrs

AND werks EQ itab_j1bt001wv-werks. "#EC CI_NOFIELD

SELECT tp_doc

...

WHERE nrseqre EQ itab_zycet116-nrseqre. "#EC CI_NOFIRST

ENDIF.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = 20

text = text-004.

SELECT nrseqsd

nrsd

FROM /pws/zycet120

INTO TABLE itab_zycet120

* >> Início da exclusão: FORM SELECIONA_DADOS

WHERE bukrs EQ p_bukrs.

* << Fim da exclusão

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

WHERE bukrs EQ p_bukrs. "#EC CI_NOFIELD

* << Fim da inclusão

SELECT nrseq

nrseqdse

nrdse

FROM /pws/zycet208

INTO TABLE itab_zycet208

WHERE bukrs EQ p_bukrs. "#EC CI_NOFIELD

SELECT tp_doc

nrchave

nremb

dtlog

...

WHERE nrseq EQ itab_zycet183-nremb.

CHECK sy-subrc IS INITIAL.

SELECT /pws/zycet002~nrseq

/pws/zycet002~waers

/pws/zycet002~bukrs

/pws/zycet002~nfnum

j_1bnfdoc~docdat

/pws/zycet002~vlfob

FROM /pws/zycet002

INNER JOIN j_1bnfdoc

* >> Início da exclusão: FORM SELECIONA_DADOS

ON /pws/zycet002~docnum EQ j_1bnfdoc~docnum AND

/pws/zycet002~nfnum EQ j_1bnfdoc~nfnum

* << Fim da exclusão

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

ON /pws/zycet002~docnum EQ j_1bnfdoc~docnum

* << Fim da inclusão

INTO TABLE itab_zycet002

FOR ALL ENTRIES IN itab_zycet001

WHERE nrseq EQ itab_zycet001-nrseq.

DELETE itab_zycet002 WHERE nfnum IS initial.

IF itab_zycet002[] IS INITIAL.

MESSAGE s016 WITH text-019 text-020.

STOP.

ENDIF.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

...

END-OF-DEFINITION.

preenche_campo:

1 'NRSEQSD' '' 10 'X' text-021 '' 'X',

2 'NRSD' '' 12 '' text-006 '' '',

3 'NRSEQDSE' '' 10 'X' text-022 '' 'X',

4 'NRDSE' '' 12 '' text-007 '' '',

5 'NRSEQRE' '' 10 'X' text-023 '' 'X',

6 'NRRE' '' 12 '' text-008 '' '',

7 'DT_DDE' '' 10 '' text-009 '' '',

8 'DT_DSE' '' 10 '' text-010 '' '',

* >> Início da exclusão: FORM PRENCHIMENTO_CAMPOS_ALV

9 'NFNUM' '' 6 '' text-011 '' 'X',

* << Fim da exclusão

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

9 'NFNUM' '' 9 '' text-011 '' 'X',

* << Fim da inclusão

10 'DOCDAT' '' 10 '' text-012 '' '',

11 'VLFOB' '' 15 '' text-013 'X' '',

12 'PORIGEM' '' 15 '' text-014 '' '',

13 'PFINAL' '' 15 '' text-015 '' '',

14 'CANAL' '' 2 '' text-016 '' ''.

preenche_agrupamento: 1 'NRSEQSD' 'X' 'X',

3 'NRSEQDSE' 'X' 'X',

5 'NRSEQRE' 'X' 'X',

9 'NFNUM' 'X' 'X'.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/ZYCER305

...

FROM /pws/zycet020

INTO TABLE itab_zycet020

WHERE tipodoc EQ 'SC'. "#EC CI_NOFIELD

SELECT *

FROM /pws/zycet002

INTO TABLE itab_zycet002

FOR ALL ENTRIES IN itab_zycet001

WHERE st_vd NE 'ES'

AND st_vd NE 'DT'

AND nrseq EQ itab_zycet001-nrseq

* >> Início da exclusão: FORM SELECIONA_DADOS

AND nfnum NE '000000'.

* << Fim da exclusão

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

AND nfnum NE '000000000'.

* << Fim da inclusão

ENDIF.

IF NOT itab_zycet002[] IS INITIAL.

SELECT a~vbeln a~bupla

b~adrnr b~state_insc

c~name1 c~street c~city1 c~city2 c~region

FROM vbrk AS a

INNER JOIN j_1bbranch AS b

ON a~bupla EQ b~branch

INNER JOIN adrc AS c "#EC CI_BUFFJOIN

ON b~adrnr EQ c~addrnumber

...

itab_zycet173-nfnum = itab_zycet002-nfnum.

itab_zycet173-modelo = itab_doc-model.

itab_zycet173-serie = itab_doc-series.

itab_zycet173-dtnf = itab_doc-docdat.

ENDIF.

READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet002-nrseq.

IF sy-subrc EQ 0.

SELECT *

FROM /pws/zycet120

UP TO 1 ROWS

* >> Início da exclusão: FORM SELECIONA_DADOS

WHERE nrseq = itab_zycet001-nrseq.

* << Fim da exclusão

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

WHERE nrseq = itab_zycet001-nrseq. "#EC CI_NOFIELD

* << Fim da inclusão

ENDSELECT.

IF sy-subrc EQ 0.

itab_zycet173-dtsd = /pws/zycet120-dtincl.

itab_zycet173-nrsd = /pws/zycet120-nrsd.

ENDIF.

CLEAR: v_seqagrup, v_seqagrup_aux.

SORT itab_nrre BY seqagrupado DESCENDING.

LOOP AT itab_nrre WHERE vbeln_vl EQ itab_zycet002-vbeln_vl.

IF itab_nrre-agrupado EQ 'S'.

...

READ TABLE itab_zycet031 WITH KEY id = '0007'.

WRITE: /001 '|',

002 itab_zycet031-name,

100 '|'.

ULINE AT /1(100).

READ TABLE itab_zycet031 WITH KEY id = '0008'.

WRITE: /001 '|',

002 itab_zycet031-name,

018 itab_zycet173-nfnum.

READ TABLE itab_zycet031 WITH KEY id = '0009'.

* >> Início da exclusão: FORM PRINT_REPORT

WRITE: 026 '|',

027 itab_zycet031-name,

033 itab_zycet173-modelo.

* << Fim da exclusão

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

WRITE: 028 '|',

029 itab_zycet031-name,

035 itab_zycet173-modelo.

* << Fim da inclusão

READ TABLE itab_zycet031 WITH KEY id = '0010'.

WRITE: 054 '|',

055 itab_zycet031-name,

062 itab_zycet173-serie.

READ TABLE itab_zycet031 WITH KEY id = '0011'.

WRITE: 078 '|',

079 itab_zycet031-name,

085 itab_zycet173-dtnf,

100 '|'.

ULINE AT /1(100).

...

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

Modificações efetuadas em TABD /PWS/ZYCEE002

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

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

Modificações efetuadas em TABD /PWS/ZYCEE005

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

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

Modificações efetuadas em TABD /PWS/ZYCEE006

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM /PWS/ZYCEL433 NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

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

Modificações efetuadas em TABD /PWS/ZYCEE123

Alterar o elemento de dados dos campos NFNUMDE e NFNUMATE:

DE:

NFNUMDE CHAR6 CHAR 6

NFNUMATE CHAR6 CHAR 6

PARA:

NFNUMDE CHAR9 CHAR 9

NFNUMATE CHAR9 CHAR 9

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

Modificações efetuadas em TABD /PWS/ZYCET002

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

Após modificação, ajustar o banco de dados.

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

Modificações efetuadas em TABD /PWS/ZYCET009

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

Após modificação, ajustar o banco de dados.

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

Modificações efetuadas em TABD /PWS/ZYCET123

Alterar o elemento de dados dos campos NFNUMDE e NFNUMATE:

DE:

NFNUMDE CHAR6 CHAR 6

NFNUMATE CHAR6 CHAR 6

PARA:

NFNUMDE CHAR9 CHAR 9

NFNUMATE CHAR9 CHAR 9

Após modificação, ajustar o banco de dados.

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

Modificações efetuadas em TABD /PWS/ZYCET173

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

Após modificação, ajustar o banco de dados.

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

Modificações efetuadas em TABD /PWS/ZYCET221

Alterar o elemento de dados do campo NFNUM:

DE:

NR_NFS J_1BNFNUMB NUMC 6

PARA:

NR_NFS /PWS/ZYCEL719 NUMC 9

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

Modificações efetuadas em TABD /PWS/ZYCET222

Alterar o elemento de dados do campo NFNUM:

DE:

NFNUM J_1BNFNUMB NUMC 6

PARA:

NFNUM /PWS/ZYCEL719 NUMC 9

Após modificação, ajustar o banco de dados.