CE PLUS - Nota 009660
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/01/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:51
Descrição da Nota: AJUSTE PARA UTILIZAR A DATA LOCAL NA CRIAÇÃO DA NOTA FISCAL
Sintoma
Ao criar a nota fiscal o programa está levando para a data de lançamento a data do dia seguinte.
Solução
Ajustado montagem dos dados para a criação da nota fiscal.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09660 Data: 07/01/2010 Hora: 15:20:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09660
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04831 - 00001 - 7.0 - 00003 - DESENVOLVER FUNCIONALIDADE FUNDAP NA NF E NA DI
08449 - 00002 - 7.0 - 00009 - CRIADA EXIT NFR004
----------------------------------------------------------------------------------------------------
AJUSTE PARA UTILIZAR A DATA LOCAL NA CRIAÇÃO DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA - SERVIDOR - NOTA - FISCAL - GLOBAL - COMPLEMENTAR - REMESSA -
/PWS/SAPMZYCI016 - /PWS/SAPMZYCI029 - SY-DATUM - SY-DATLO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016O01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
MOVE:
/pws/zycie041-embarca TO /pws/zycie043-embarca,
/pws/zycie041-nrseq TO /pws/zycie043-nrseq,
/pws/zycie041-bukrs TO /pws/zycie043-bukrs,
/pws/zycie041-werks TO /pws/zycie043-werks,
/pws/zycie041-nrdi TO /pws/zycie043-nrdi,
/pws/zycie041-nfglobal TO /pws/zycie043-nfglobal,
/pws/zycie041-nfexterna TO /pws/zycie043-nfexterna,
/pws/zycie041-j_1bbranch TO /pws/zycie043-j_1bbranch,
v_valor TO /pws/zycie043-docnumnfg,
* >> Início da exclusão: FORM NFISCAL_REMESSA
sy-datum TO /pws/zycie043-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM NFISCAL_REMESSA
sy-datlo TO /pws/zycie043-dtincl.
* << Fim da inclusão
SELECT * FROM /pws/zycit043
INTO TABLE itab_zycit043_lista
WHERE nrseq EQ /pws/zycie043-nrseq
AND nfglobal EQ /pws/zycie043-nfglobal
AND docnumnfg EQ /pws/zycie043-docnumnfg
AND cancel EQ space.
MOVE /pws/zycie043 TO /pws/zycie043a.
IF sy-subrc NE 0.
PERFORM find_nrseqc_nfr.
v_status_s_nfr = 1.
...
...
FORM verifica_data.
* >> Início da exclusão: FORM VERIFICA_DATA
IF sy-datum+6(2) = '31'.
v_data = sy-datum - 1 + 30.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
IF sy-datlo+6(2) = '31'.
v_data = sy-datlo - 1 + 30.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM VERIFICA_DATA
v_data = sy-datum + 30.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
v_data = sy-datlo + 30.
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
...
...
/pws/zycie001-tpdecl EQ 'DI'.
READ TABLE itab_ekpa WITH KEY ebeln = itab_zycit042_aux-ebeln
parvw = 'FU'.
IF sy-subrc EQ 0.
it_zycee005-parid = itab_ekpa-lifn2.
ENDIF.
ENDIF.
it_zycee005-docdat = sy-datlo.
PERFORM verifica_data.
IF wa_zycit048-pstdat = '1'.
* >> Início da exclusão: FORM CABECALHO_NF
it_zycee005-pstdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF
it_zycee005-pstdat = sy-datlo.
* << Fim da inclusão
ELSEIF wa_zycit048-pstdat = '2'.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
* >> Início da exclusão: FORM CABECALHO_NF
day_in = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF
day_in = sy-datlo
* << Fim da inclusão
IMPORTING
...
...
WHERE ebeln = itab_zycit003_aux-ebeln
AND ebelp = itab_zycit003_aux-ebelp.
MOVE ekpo TO itab_ekpo.
APPEND itab_ekpo.
ENDLOOP.
PERFORM montar_custo_di USING /pws/zycie043-nrseq.
it_zycee005-bukrs = /pws/zycie043-bukrs.
it_zycee005-branch = itab_zycit044-j_1bbranch.
it_zycee005-parvw = text-015.
it_zycee005-parid = itab_zycit044-lifnr.
* >> Início da exclusão: FORM CABECALHO_NF_R
it_zycee005-docdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_R
it_zycee005-docdat = sy-datlo.
* << Fim da inclusão
PERFORM verifica_data.
IF wa_zycit048-pstdat = '1'.
* >> Início da exclusão: FORM CABECALHO_NF_R
it_zycee005-pstdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_R
it_zycee005-pstdat = sy-datlo.
* << Fim da inclusão
ELSEIF wa_zycit048-pstdat = '2'.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
* >> Início da exclusão: FORM CABECALHO_NF_R
day_in = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_R
day_in = sy-datlo
* << Fim da inclusão
IMPORTING
last_day_of_month = v_last_date
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
it_zycee005-pstdat = v_last_date.
ELSEIF wa_zycit048-pstdat = '3'.
it_zycee005-pstdat = wa_zycit048-budat.
ELSE.
it_zycee005-pstdat = v_last_date.
...
...
WHERE ebeln = itab_zycit003_aux-ebeln
AND ebelp = itab_zycit003_aux-ebelp.
MOVE ekpo TO itab_ekpo.
APPEND itab_ekpo.
ENDLOOP.
PERFORM montar_custo_di USING /pws/zycie041a-nrseq.
it_zycee005-bukrs = /pws/zycie041a-bukrs.
it_zycee005-branch = itab_zycit042_c-j_1bbranch.
it_zycee005-parvw = text-015.
it_zycee005-parid = itab_zycit042_c-lifnr.
* >> Início da exclusão: FORM CABECALHO_NF_C
it_zycee005-docdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_C
it_zycee005-docdat = sy-datlo.
* << Fim da inclusão
* >> Início da exclusão: FORM CABECALHO_NF_C
it_zycee005-pstdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_C
it_zycee005-pstdat = sy-datlo.
* << Fim da inclusão
ENDFORM.
...
...
ELSE.
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042_c3-tpnf
regio = space.
PERFORM lancamentos.
ENDIF.
ENDLOOP.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCIT041'.
itab_zycbe033-cpochv = /pws/zycie041a-nrseq.
* >> Início da exclusão: FORM CONTABILIZA_IMPOSTO_C
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTO_C
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-waers = wa_zycbt007-waersb.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = /pws/zycie041-nrseq
v_codeven = v_codeven
IMPORTING
v_xblnr = itab_zycbe033-xblnr
v_zuonr = v_zuorn
v_sgtxt = v_sgtxt
...
...
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_trans
tabela = '/PWS/ZYCIT041'
cpochv = /pws/zycie041a-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
MESSAGE i057 WITH itab_zycbt032-belnr.
/pws/zycie041a-belnr_f_02_c = itab_zycbt032-belnr.
/pws/zycie041a-dt_f_02_c = sy-datlo.
UPDATE /pws/zycit041 SET belnr_f_02_c = itab_zycbt032-belnr
* >> Início da exclusão: FORM CONTABILIZA_IMPOSTO_C
dt_f_02_c = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTO_C
dt_f_02_c = sy-datlo
* << Fim da inclusão
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
COMMIT WORK.
ELSE.
erro_bi = 'X'.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
...
...
ebelp = itab_zycit036-ebelp
origem = 'NF'.
IF sy-subrc EQ 0.
DELETE itab_zycit036.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit036 WHERE origem = 'DI' OR
origem = 'FAT'.
itab_zycit036-origem = 'NF'.
itab_zycit036-usernamec = sy-uname.
* >> Início da exclusão: FORM MONTAR_CUSTO_DI
itab_zycit036-dtuserc = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTAR_CUSTO_DI
itab_zycit036-dtuserc = sy-datlo.
* << Fim da inclusão
itab_zycit036-hruserc = sy-uzeit.
MODIFY itab_zycit036.
ENDLOOP.
ELSE.
IF v_modalidade = '99'.
PERFORM visualiza_rateio.
IF v_resp NE 'S'.
EXIT.
ENDIF.
ELSE.
...
...
FORM contabiliza_impostos.
IF /pws/zycie041-statusp_f_02 EQ 'C'.
EXIT.
ENDIF.
PERFORM lancamento_impostos.
PERFORM get_parameters_f-02.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = v_ntabela.
itab_zycbe033-cpochv = /pws/zycie041-nrseq.
* >> Início da exclusão: FORM CONTABILIZA_IMPOSTOS
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTOS
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
v_nrseq = /pws/zycie041-nrseq.
SHIFT v_nrseq LEFT DELETING LEADING '0'.
CONCATENATE /pws/zycie041-embarca '-' v_nrseq
INTO v_bktxt.
itab_zycbe033-bktxt = v_bktxt.
itab_zycbe033-brnch = /pws/zycie041-j_1bbranch.
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt.
v_nfnum = /pws/zycie041-nfnum.
itab_zycbe033-xblnr = v_nfnum.
...
...
FORM reverse_documento_impos_fb08.
DATA: v_belnr_ant LIKE /pws/zycie006-belnr_p.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCIT041'.
itab_zycbe033-cpochv = /pws/zycie041-nrseq.
itab_zycbe033-belnr = /pws/zycie041-belnr_f_02.
itab_zycbe033-bukrs = /pws/zycie041-bukrs.
itab_zycbe033-bldat = /pws/zycie041-dt_f_02.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-gjahs = itab_zycbe033-bldat+0(4).
v_belnr_ant = /pws/zycie041-belnr_f_02.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'
EXPORTING
v_data = /pws/zycie041-dtincl
v_bukrs = /pws/zycie041-bukrs
v_koart = 'K'
IMPORTING
v_subrc = v_subrc
v_gjahr = itab_zycbe033-gjahr.
IF v_subrc = 0.
itab_zycbe033-budat = /pws/zycie041-dtincl.
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
ELSE.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-stgrd = /pws/zycbt007-perencer .
ENDIF.
APPEND it_zycbe033.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycbe033
t_campo = it_zycbt034
t_zycbt032 = it_zycbt032
...
...
itab_zycit036-ebelp = itab_zycit003_aux2-ebelp.
itab_zycit036-werks = itab_zycit003_aux2-werks.
itab_zycit036-nrseqori = itab_zycit006-nrseq.
itab_zycit036-embarca = /pws/zycie001-embarca.
itab_zycit036-codigo = /pws/zycit031-inco1_ci.
itab_zycit036-netpr =
itab_zycit003_aux2-netpr * itab_zycit003_aux2-qtd_iten.
itab_zycit036-waers = itab_zycit003_aux2-waers.
itab_zycit036-waers_real = itab_zycit006-waers.
itab_zycit036-usernamec = sy-uname.
* >> Início da exclusão: FORM ATUALIZA_CUSTOS
itab_zycit036-dtuserc = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_CUSTOS
itab_zycit036-dtuserc = sy-datlo.
* << Fim da inclusão
itab_zycit036-hruserc = sy-uzeit.
PERFORM trata_decimais USING itab_zycit036-waers
CHANGING itab_zycit036-vlreal.
itab_zycit036-vlreal =
( itab_zycit003_aux2-vlreal * itab_zycit263-qtd_iten ) +
itab_zycit003_aux2-vlfre_fat + itab_zycit003_aux2-vlseg_fat.
itab_zycit036-bukrs = itab_zycit006-bukrs.
itab_zycit036-codmod = 'D'.
itab_zycit036-status = 'M'.
itab_zycit036-vlreal_emb = itab_zycit006-vltotal.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016O01
...
SELECT SINGLE * FROM /pws/zycit048
INTO wa_zycit048
WHERE bukrs EQ /pws/zycit085-bukrs.
ENDIF.
ENDIF.
MOVE:
/pws/zycit085-nrseqdi TO /pws/zycie041-nrseq,
/pws/zycit085-identify TO /pws/zycie041-nrdi,
/pws/zycit085-bukrs TO /pws/zycie041-bukrs,
/pws/zycit085-j_1bbranch TO /pws/zycie041-j_1bbranch,
* >> Início da exclusão: MODULE LOAD_DATA_0100
sy-datum TO /pws/zycie041-dtincl.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0100
sy-datlo TO /pws/zycie041-dtincl.
* << Fim da inclusão
IF NOT /pws/zycit085 IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseqdi = /pws/zycit085-nrseqdi.
ENDIF.
IF /pws/zycie041-nfexterna IS INITIAL AND v_ok = space
AND /pws/zycie041-docnum IS INITIAL.
MOVE:
wa_zycit048-nfext TO /pws/zycie041-nfexterna.
ENDIF.
IF /pws/zycie041-nfglobal IS INITIAL.
...
...
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit048
INTO wa_zycit048
WHERE bukrs EQ /pws/zycit085-bukrs.
ENDIF.
ENDIF.
MOVE:
/pws/zycit085-nrseqdi TO /pws/zycie041-nrseq ,
/pws/zycit085-identify TO /pws/zycie041-nrdi ,
/pws/zycit085-bukrs TO /pws/zycie041-bukrs ,
* >> Início da exclusão: MODULE LOAD_DATA_0100
sy-datum TO /pws/zycie041-dtincl.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0100
sy-datlo TO /pws/zycie041-dtincl.
* << Fim da inclusão
LOOP AT itab_zycit041 WHERE cancel = 'X'.
PERFORM seleciona_itens_nfg.
ENDLOOP.
PERFORM seleciona_despesas.
SORT itab_zycit042 BY tpnf j_1bbranch lifnr nrseq ebeln ebelp.
MOVE itab_zycit042[] TO itab_zycit042_aux[].
v_status_s = 0.
ELSE.
MESSAGE s015 WITH text-063. LEAVE PROGRAM.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
SELECT SINGLE * FROM /pws/zycit048
WHERE bukrs EQ /pws/zycie041a-bukrs
AND branch EQ space.
ENDIF.
ENDIF.
IF /pws/zycie264 IS INITIAL.
PERFORM find_sequencial.
/pws/zycie264-nrseqc = v_nrseqc_aux.
/pws/zycie264-nrseqnf = /pws/zycie041a-nrseq.
/pws/zycie264-bukrs = /pws/zycie041a-bukrs.
* >> Início da exclusão: FORM COLLECT_DESPESAS
/pws/zycie264-dtincl = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM COLLECT_DESPESAS
/pws/zycie264-dtincl = sy-datlo.
* << Fim da inclusão
/pws/zycie264-j_1bbranch = /pws/zycie041a-j_1bbranch.
/pws/zycie264-nfexterna = /pws/zycit048-nfext.
ENDIF.
LOOP AT itab_zycit042.
MOVE:
itab_zycit042-nrseqnf TO itab_zycit265_c-nrseqnf,
itab_zycit042-nrseq TO itab_zycit265_c-nrseq,
/pws/zycie264-nrseqc TO itab_zycit265_c-nrseqc,
itab_zycit042-ebeln TO itab_zycit265_c-ebeln,
itab_zycit042-ebelp TO itab_zycit265_c-ebelp,
...
...
FORM cabecalho_nf_c.
it_zycee005-tcode = text-003.
it_zycee005-tabela = text-004.
it_zycee005-nrseq = /pws/zycie264-nrseqc.
it_zycee005-branch = /pws/zycie264-j_1bbranch.
it_zycee005-cpochv = /pws/zycie264-nrseqc.
it_zycee005-bukrs = /pws/zycie264-bukrs.
it_zycee005-branch = /pws/zycie264-j_1bbranch.
it_zycee005-parvw = text-005.
it_zycee005-parid = itab_zycit265_c3-lifnr.
* >> Início da exclusão: FORM CABECALHO_NF_C
it_zycee005-docdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_C
it_zycee005-docdat = sy-datlo.
* << Fim da inclusão
CLEAR wa_zycit048.
SELECT SINGLE * FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit048
INTO wa_zycit048
WHERE bukrs EQ wa_zyglt369-bukrs
...
...
WHERE bukrs EQ /pws/zycie041a-bukrs
AND branch EQ space.
ENDIF.
ENDIF.
PERFORM verifica_data.
IF /pws/zycit048-pstdatc = '1'.
it_zycee005-pstdat = v_last_date.
ELSEIF /pws/zycit048-pstdatc = '2'.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
* >> Início da exclusão: FORM CABECALHO_NF_C
day_in = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_C
day_in = sy-datlo
* << Fim da inclusão
IMPORTING
last_day_of_month = v_last_date
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
it_zycee005-pstdat = v_last_date.
ELSEIF /pws/zycit048-pstdatc = '3'.
it_zycee005-pstdat = /pws/zycit048-budatc.
ELSE.
* >> Início da exclusão: FORM CABECALHO_NF_C
it_zycee005-pstdat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF_C
it_zycee005-pstdat = sy-datlo.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
FORM find_sequencial.
DATA:
v_nrseqc LIKE /pws/zycit264-nrseqc,
v_count(7) TYPE n,
v_ano(4).
* >> Início da exclusão: FORM FIND_SEQUENCIAL
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_SEQUENCIAL
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
* << Fim da inclusão
SELECT MAX( nrseqc ) INTO (v_nrseqc) FROM /pws/zycit264
WHERE nrseqc LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
* >> Início da exclusão: FORM FIND_SEQUENCIAL
CONCATENATE v_count+0(7) 'I' sy-datum+2(2) INTO v_nrseqc_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_SEQUENCIAL
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO v_nrseqc_aux.
* << Fim da inclusão
ENDFORM.
...
...
APPEND itab_zycbt035.
ENDLOOP.
LOOP AT itab_zycbt035_b.
MOVE itab_zycbt035_b TO itab_zycbt035.
APPEND itab_zycbt035.
ENDLOOP.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCIT264'.
itab_zycbe033-cpochv = /pws/zycie264-nrseqc.
* >> Início da exclusão: FORM CONTABILIZA_IMPOSTO
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTO
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-waers = /pws/zycbt007-waersb.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
READ TABLE itab_zycit001 INDEX 1.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = itab_zycit001-nrseq
v_codeven = v_codeven
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
...
...
DATA: v_doccont LIKE /pws/zycie264-belnr_f_02_c.
CHECK NOT /pws/zycie264-belnr_f_02_c IS INITIAL.
CLEAR v_doccont.
v_doccont = /pws/zycie264-belnr_f_02_c.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-004.
itab_zycbe033-cpochv = /pws/zycie264-nrseqc.
itab_zycbe033-belnr = /pws/zycie264-belnr_f_02_c.
itab_zycbe033-bukrs = /pws/zycie264-bukrs.
* >> Início da exclusão: FORM BI_FB08
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-gjahs = /pws/zycie264-dt_f_02_c(4).
itab_zycbe033-stgrd = '02'.
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...
...
IF NOT /pws/zycie264-belnr_f_02_c IS INITIAL.
it_zycit270-mandt = sy-mandt.
it_zycit270-belnr = /pws/zycie264-belnr_f_02_c.
it_zycit270-bukrs = /pws/zycie264-bukrs.
it_zycit270-gjahr = /pws/zycie264-dt_f_02_c(4).
it_zycit270-programa = sy-repid.
it_zycit270-nrseq = /pws/zycie265-nrseqc.
it_zycit270-compl = text-022.
it_zycit270-nrseqemb = /pws/zycie265-nrseq.
it_zycit270-tcode = sy-tcode.
* >> Início da exclusão: FORM HIST_CONTABIL
it_zycit270-dtestorno = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM HIST_CONTABIL
it_zycit270-dtestorno = sy-datlo.
* << Fim da inclusão
SELECT SINGLE embarca FROM /pws/zycit001 INTO it_zycit270-embarca
WHERE nrseq = /pws/zycie265-nrseq.
APPEND it_zycit270.
ENDIF.
ENDFORM.
...
...
FORM verifica_data.
DATA: v_data LIKE /pws/zycit004-dtemiss.
* >> Início da exclusão: FORM VERIFICA_DATA
IF sy-datum+6(2) = '31'.
v_data = sy-datum - 1 + 30.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
IF sy-datlo+6(2) = '31'.
v_data = sy-datlo - 1 + 30.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM VERIFICA_DATA
v_data = sy-datum + 30.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
v_data = sy-datlo + 30.
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
...
...
FORM fill_data_j1b2n.
DATA: v_data(10) TYPE c.
REFRESH: it_bdc, it_msg.
CLEAR: it_bdc, it_msg.
* >> Início da exclusão: FORM FILL_DATA_J1B2N
WRITE: sy-datum USING EDIT MASK '__.__.____' TO v_data.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B2N
WRITE: sy-datlo USING EDIT MASK '__.__.____' TO v_data.
* << Fim da inclusão
PERFORM fill_bdc USING: 'X' 'SAPMJ1B1' '1100',
' ' 'BDC_CURSOR' 'J_1BDYDOC-DOCNUM',
' ' 'J_1BDYDOC-DOCNUM' v_valor,
' ' 'BDC_OKCODE' '/00'.
PERFORM fill_bdc USING: 'X' 'SAPLJ1BB2' '2000' ,
' ' 'BDC_CURSOR' 'J_1BDYDOC-PSTDAT',
' ' 'BDC_OKCODE' '/00' ,
' ' 'J_1BDYDOC-PSTDAT' v_data .
PERFORM fill_bdc USING: 'X' 'SAPLJ1BB2' '2000' ,
' ' 'BDC_OKCODE' '=SAVE'.
...