CE PLUS - Nota 001683
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento Contábil
Data/Hora da Publicação: 06/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:35:56
Descrição da Nota: CRIAÇÃO DE BOTÃO NA DA PARA F-51 MANUALMENTE.
Sintoma
Criação de um botão na Declaração de Admissão para que o usuário possa fazer manualmente a F-51 na
última nacionalização do Entreposto Aduaneiro.
Solução
Criação de um botão na Declaração de Admissão para que o usuário possa fazer manualmente a F-51 na
última nacionalização do Entreposto Aduaneiro.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01683 Data: 06/07/2006 Hora: 09:55:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01683
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00121
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIAÇÃO DE BOTÃO NA DA PARA F-51 MANUALMENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
F-51; COMPENSAÇÃO; CONTA IA; DÉBITO EM CONTA DA;
PRESTAÇÃO DE CONTAS DA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI070
REPS /PWS/MZYCI070F02
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070I01
REPS /PWS/MZYCI070TOP
REPS /PWS/MZYCI070X01
REPT /PWS/SAPMZYCI070
TABD /PWS/ZYCIE459
TABD /PWS/ZYCIE466
TABD /PWS/ZYCIT459
TABD /PWS/ZYCIT466
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI070
Novo botão "COMPEN" para execução da transação F-51.
Status GUI: 0100 - CI - Desembaraço - DI
Texto de função: "Compensar" (CTRL-F11)
Ícone: ICON_BIW_REPORT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F02
...
FROM lfa1
INTO lfa1
WHERE lifnr = /pws/zycie093-transp.
IF sy-subrc EQ 0.
/pws/zycie093-descrtransp = lfa1-name1.
* >> Início da inclusão: FORM LOAD_LFA
SET LOCALE LANGUAGE sy-langu.
* << Fim da inclusão
TRANSLATE /pws/zycie093-descrtransp TO UPPER CASE.
/pws/zycie093-bandtransp = lfa1-land1.
PERFORM load_ban.
ENDIF.
ENDIF.
...
...
FROM lfa1
INTO lfa1
WHERE lifnr = /pws/zycie442-transp.
IF sy-subrc EQ 0.
/pws/zycie442-descrtransp = lfa1-name1.
* >> Início da inclusão: FORM LOAD_LFA
SET LOCALE LANGUAGE sy-langu.
* << Fim da inclusão
TRANSLATE /pws/zycie442-descrtransp TO UPPER CASE.
/pws/zycie442-bandtransp = lfa1-land1.
PERFORM load_ban.
ENDIF.
ENDIF.
...
...
ENDIF.
SELECT SINGLE * FROM /pws/zycit000 INTO wa_it000
WHERE land1 EQ t001-land1.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-031 /pws/zycie442-bukrs.
* >> Início da inclusão: FORM LOAD_PARA
ENDIF.
CLEAR itab_zycbt011.
REFRESH itab_zycbt011.
SELECT *
INTO TABLE itab_zycbt011
FROM /pws/zycbt011
WHERE codeven EQ c_codeven_dc
AND codmod EQ c_codmod_d
OR codeven EQ c_codeven_pc
AND codmod EQ c_codmod_d.
CLEAR itab_zycbt012.
REFRESH itab_zycbt012.
SELECT *
INTO TABLE itab_zycbt012
FROM /pws/zycbt012
WHERE codeven EQ c_codeven_dc
AND codmod EQ c_codmod_d
OR codeven EQ c_codeven_pc
AND codmod EQ c_codmod_d.
CLEAR itab_matuse.
REFRESH itab_matuse.
IF NOT itab_zycit003[] IS INITIAL.
SELECT ebeln
ebelp
matnr
bwtar
j_1bmatuse
knttp
werks
FROM ekpo INTO TABLE itab_matuse
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
* << Fim da inclusão
ENDIF.
IF it_status[] IS INITIAL.
MOVE 'CHECK' TO it_status-fcode.
APPEND it_status.
MOVE 'UNCHECK' TO it_status-fcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
FORM solicita_custo.
CHECK sy-ucomm EQ 'CUSTO'.
SET PARAMETER ID '/PWS/ZYCIP442' FIELD /pws/zycie442-nrseqda.
PERFORM valida_trans USING '/PWS/ZYCIR253' 'skip'.
ENDFORM.
* >> Início da inclusão:
FORM compensa_conta_ia.
CLEAR itab_zycit466.
REFRESH itab_zycit466.
SELECT *
INTO TABLE itab_zycit466
FROM /pws/zycit466
WHERE nrseq EQ itab_zycit443-nrseqda
AND statusp EQ c_status_c.
CLEAR itab_zycit459.
REFRESH itab_zycit459.
SELECT *
INTO TABLE itab_zycit459
FROM /pws/zycit459
WHERE nrseqda EQ itab_zycit443-nrseqda
AND status EQ c_status_a.
IF itab_zycit466[] IS INITIAL AND
itab_zycit459[] IS INITIAL.
MESSAGE i015 WITH text-470.
EXIT.
ENDIF.
CLEAR itab_zycit467.
REFRESH itab_zycit467.
SELECT *
INTO TABLE itab_zycit467
FROM /pws/zycit467
WHERE nrseqda EQ itab_zycit443-nrseqda.
itab_zycit467_aux[] = itab_zycit467[].
SORT itab_zycit467_aux BY nrseq.
DELETE ADJACENT DUPLICATES FROM itab_zycit467_aux
COMPARING nrseq.
CLEAR itab_zycit202.
REFRESH itab_zycit202.
IF NOT itab_zycit467[] IS INITIAL.
SELECT *
INTO TABLE itab_zycit202
FROM /pws/zycit202
FOR ALL ENTRIES IN itab_zycit467_aux
WHERE nrseq EQ itab_zycit467_aux-nrseq.
SORT itab_zycit202 BY nrseq.
ENDIF.
CLEAR itab_zycit442.
READ TABLE itab_zycit442 WITH KEY
nrseqda = itab_zycit443-nrseqda.
IF itab_zycit442-statusfin IS INITIAL.
CLEAR: v_qtd_nac,
v_sdo_da.
LOOP AT itab_zycit467.
v_qtd_nac = v_qtd_nac + itab_zycit467-qtd_nac.
ENDLOOP.
IF NOT sy-subrc IS INITIAL.
MESSAGE i013 WITH text-480.
EXIT.
ENDIF.
v_sdo_da = v_qtd_da - v_qtd_nac.
IF NOT v_sdo_da IS INITIAL.
MESSAGE i013 WITH text-480.
EXIT.
ELSE.
CLEAR v_f51.
LOOP AT itab_zycit467_aux.
LOOP AT itab_zycit202 WHERE
nrseq = itab_zycit467_aux-nrseq.
IF itab_zycit202-belnr_f51_mt0 IS INITIAL AND
itab_zycit202-belnr_f51_mt1 IS INITIAL AND
itab_zycit202-belnr_f51_mt2 IS INITIAL AND
itab_zycit202-belnr_f51_mt3 IS INITIAL.
v_f51 = c_n.
MESSAGE i013 WITH text-481.
CONTINUE.
ELSE.
CLEAR v_f51.
EXIT.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDIF.
CHECK v_f51 NE c_n.
PERFORM contabiliza_debito_conta.
PERFORM contabiliza_prestacao_contas.
IF v_f51 IS INITIAL.
MESSAGE i015 WITH text-483.
EXIT.
ENDIF.
ENDFORM.
FORM contabiliza_debito_conta.
LOOP AT itab_zycit466.
CHECK itab_zycit466-belnr_f51 IS INITIAL.
itab_zycbe033-tcode = text-471.
itab_zycbe033-tabela = text-472.
CONCATENATE itab_zycit466-nrseq itab_zycit466-nradto INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-bldat = itab_zycit466-dtlanc.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
itab_zycbe033-monat = sy-datlo+4(2).
PERFORM verify_null_field USING itab_zycit466-bukrs
'BUKRS'
text-473.
itab_zycbe033-bukrs = itab_zycit466-bukrs.
CLEAR itab_zycbt011.
READ TABLE itab_zycbt011 WITH KEY
codeven = text-477
codmod = text-478.
PERFORM verify_null_field USING itab_zycbt011-blart
'BLART'
text-474.
itab_zycbe033-blart = itab_zycbt011-blart.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-waers = itab_zycit466-waers.
itab_zycbe033-newbs = '40'.
CLEAR itab_matuse.
READ TABLE itab_matuse WITH KEY
ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
CLEAR itab_zycbt012.
READ TABLE itab_zycbt012 WITH KEY
codeven = text-477
codmod = text-478
codaux2 = itab_matuse-j_1bmatuse.
itab_zycbe033-d_newko = itab_zycbt012-saknr1.
itab_zycbe033-d_sgtxt = text-476.
itab_zycbe033-wrbtr = abs( itab_zycit466-vldp ).
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_gsber = wa_zycbt007-gsber.
itab_zycbe033-c_gsber = wa_zycbt007-gsber.
APPEND itab_zycbe033.
FREE itab_zycbt036.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-471.
itab_zycbt036-tabela = text-472.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycit466-belnr_f02.
APPEND itab_zycbt036.
itab_zycbe035-mandt = sy-mandt.
itab_zycbe035-tcode = text-471.
itab_zycbe035-tabela = text-472.
itab_zycbe035-cpochv = itab_zycbt012-saknr1.
itab_zycbe035-d_gsber = wa_zycbt007-gsber.
itab_zycbe035-bschl = '40'.
itab_zycbe035-wrbtr = abs( itab_zycit466-vldp ).
itab_zycbe035-d_newko = itab_zycbt012-saknr1.
APPEND itab_zycbe035.
PERFORM call_transaction_f51_dc.
v_f51 = c_s.
PERFORM limpa_tabelas_transacao.
ENDLOOP.
ENDFORM.
FORM call_transaction_f51_dc.
DATA: v_zuonr LIKE bseg-zuonr.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao '(Embarque/Adiantamento:'
itab_zycbt034-conteudo ')' INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
v_zuonr = itab_zycit466-nradto.
itab_contas[] = itab_zycbe035[].
v_belnr = itab_zycit466-belnr_f02.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_51C'
EXPORTING
v_modo = v_modo_bi
v_belnr = v_belnr
v_totline = v_totline
v_rec = 'X'
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_contas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc IS INITIAL.
PERFORM atualiza_doc_tab_debito_conta.
ELSE.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao '(Embarque/Adiantamento:'
itab_zycbt034-conteudo ')' INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao text-485
itab_zycbt034-conteudo text-486 INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
ENDIF.
CLEAR v_belnr.
ENDFORM.
FORM limpa_tabelas_transacao.
CLEAR: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbe035.
REFRESH: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbe035.
ENDFORM.
FORM contabiliza_prestacao_contas.
LOOP AT itab_zycit459.
CHECK itab_zycit459-belnr_f51 IS INITIAL.
itab_zycbe033-tcode = text-471.
itab_zycbe033-tabela = text-479.
CONCATENATE itab_zycit459-nrseqda
itab_zycit459-nrpres
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-bldat = itab_zycit459-dtaprov.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
itab_zycbe033-monat = sy-datlo+4(2).
PERFORM verify_null_field USING itab_zycit459-bukrs
'BUKRS'
text-473.
itab_zycbe033-bukrs = itab_zycit459-bukrs.
CLEAR itab_zycbt011.
READ TABLE itab_zycbt011 WITH KEY
codeven = text-484
codmod = text-478.
PERFORM verify_null_field USING itab_zycbt011-blart
'BLART'
text-474.
itab_zycbe033-blart = itab_zycbt011-blart.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-waers = itab_zycit459-waers.
itab_zycbe033-newbs = '50'.
CLEAR itab_matuse.
READ TABLE itab_matuse WITH KEY
ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
CLEAR itab_zycbt012.
READ TABLE itab_zycbt012 WITH KEY
codeven = text-484
codmod = text-478
codaux2 = itab_matuse-j_1bmatuse.
itab_zycbe033-d_newko = itab_zycbt012-saknr1.
itab_zycbe033-d_sgtxt = text-482.
itab_zycbe033-wrbtr = abs( itab_zycit459-totdep ).
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_gsber = wa_zycbt007-gsber.
itab_zycbe033-c_gsber = wa_zycbt007-gsber.
APPEND itab_zycbe033.
FREE itab_zycbt036.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-471.
itab_zycbt036-tabela = text-479.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycit459-docfat.
APPEND itab_zycbt036.
PERFORM call_transaction_f51_pc.
v_f51 = c_s.
PERFORM limpa_tabelas_transacao.
ENDLOOP.
ENDFORM.
FORM atualiza_doc_tab_debito_conta.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = text-471
tabela = '/PWS/ZYCIT466'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc IS INITIAL.
UPDATE /pws/zycit466 SET
belnr_f51 = itab_zycbt032-belnr
budat_f51 = sy-datlo
WHERE nrseq EQ itab_zycit466-nrseq
AND nradto EQ itab_zycit466-nradto
AND tpdesp EQ itab_zycit466-tpdesp.
COMMIT WORK.
MESSAGE i104 WITH text-487 itab_zycbt032-belnr.
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY tpmsg = 'E'.
IF sy-subrc IS INITIAL.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM call_transaction_f51_pc.
DATA: v_zuonr LIKE bseg-zuonr.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao '(Embarque/Adiantamento:'
itab_zycbt034-conteudo ')' INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
v_zuonr = itab_zycit466-nradto.
itab_contas[] = itab_zycbe035[].
v_belnr = itab_zycit459-docfat.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_51C'
EXPORTING
v_modo = v_modo_bi
v_belnr = v_belnr
v_totline = v_totline
v_rec = 'X'
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_contas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc IS INITIAL.
PERFORM atualiza_doc_tab_prestacao_cta.
ELSE.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao '(Embarque/Adiantamento:'
itab_zycbt034-conteudo ')' INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CONCATENATE itab_zycbt034-descricao '(Embarque/Adiantamento:'
itab_zycbt034-conteudo ')' INTO v_descricao.
MESSAGE i016 WITH v_descricao.
ENDLOOP.
ENDIF.
CLEAR v_belnr.
ENDFORM.
FORM atualiza_doc_tab_prestacao_cta.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = text-471
tabela = '/PWS/ZYCIT466'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc IS INITIAL.
UPDATE /pws/zycit459 SET
belnr_f51 = itab_zycbt032-belnr
budat_f51 = sy-datum
WHERE nrseqda EQ itab_zycit459-nrseqda
AND nradto EQ itab_zycit459-nradto
AND nrpres EQ itab_zycit459-nrpres
AND j_1bbranch EQ itab_zycit459-j_1bbranch.
COMMIT WORK.
MESSAGE i104 WITH text-487 itab_zycbt032-belnr.
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY tpmsg = 'E'.
IF sy-subrc IS INITIAL.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
WHEN 'ADIANT'.
PERFORM: atualiza_variaveis,
solicita_adiantamento.
WHEN 'CUSTO'.
PERFORM: solicita_custo.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'COMPEN'.
PERFORM compensa_conta_ia.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: sy-ucomm, r_okcode.
ENDMODULE.
MODULE load_urf INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
v_ternacion TYPE /pws/zycie442-ternacion,
v_descforn TYPE lfa1-name1,
v_prazo TYPE numc4,
v_mark TYPE char1,
d_waersbem LIKE /pws/zycie443a-dttaxbem.
* >> Início da inclusão:
data:
v_f51(1) type c.
* << Fim da inclusão
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
DATA: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0100',
...
...
END OF ittxt.
DATA: BEGIN OF ittxt1 OCCURS 50,
line(66),
END OF ittxt1.
DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão:
CONSTANTS:
c_n(1) TYPE c VALUE 'N',
c_s(1) TYPE c VALUE 'S',
c_status_a LIKE /pws/zycit459-status VALUE 'A',
c_status_c LIKE /pws/zycit466-statusp VALUE 'C',
c_codmod_d LIKE /pws/zycbt011-codmod VALUE 'D',
c_codeven_dc LIKE /pws/zycbt011-codeven VALUE '002EA',
c_codeven_pc LIKE /pws/zycbt011-codeven VALUE '010EA'.
* << Fim da inclusão
TABLES: /pws/zycbt012.
DATA: BEGIN OF itab_matuse OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
...
...
belnr LIKE bsis-belnr ,
buzei LIKE bsis-buzei ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis_aux1.
DATA wa_zycbt011 LIKE /pws/zycbt011.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt011 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt011.
DATA: END OF itab_zycbt011.
DATA: BEGIN OF itab_zycit467 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit467.
DATA: END OF itab_zycit467.
DATA: BEGIN OF itab_zycit467_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit467.
DATA: END OF itab_zycit467_aux.
DATA: BEGIN OF itab_zycit202 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit202.
DATA: END OF itab_zycit202.
* << Fim da inclusão
DATA:
vl_variacao LIKE /pws/zycit442-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
...
...
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
v_required,
v_salvo.
* >> Início da inclusão:
DATA:
v_cpochv(80),
v_descricao(50),
v_qtd_nac LIKE /pws/zycit467-qtd_nac,
v_sdo_da LIKE /pws/zycit467-qtd_nac.
* << Fim da inclusão
DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
dynpro_values TYPE TABLE OF dynpread,
field_value LIKE LINE OF dynpro_values,
mod_tab TYPE TABLE OF /pws/zycit025.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070X01
...
DATA: END OF itab_contas_aux.
DATA: itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycit034 LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
* >> Início da inclusão:
itab_zycbe035 LIKE /pws/zycbe035 OCCURS 0 WITH HEADER LINE,
* << Fim da inclusão
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit438 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit438.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI070
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 470
Texto: (44 caracteres)
"Não há Prestação de Contas e Débito em Conta"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 471
Texto: (4 caracteres)
"F-51"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 472
Texto: (13 caracteres)
"/PWS/ZYCIT466"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 473
Texto: (25 caracteres)
"Documento não encontrado!"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 474
Texto: (1 caracteres)
"X"
Comprimento máximo: 1
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 475
Texto: (12 caracteres)
"Código Razão"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 476
Texto: (35 caracteres)
"Fatura gerada p/ Débito em Conta DA"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 477
Texto: (5 caracteres)
"002EA"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 478
Texto: (1 caracteres)
"D"
Comprimento máximo: 1
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 479
Texto: (13 caracteres)
"/PWS/ZYCIT459"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 480
Texto: (38 caracteres)
"DA não foi nacionalizada completamente"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 481
Texto: (32 caracteres)
"Existem Embarques não encerrados"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 482
Texto: (39 caracteres)
"Fatura gerada p/ Prestação de Contas DA"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 483
Texto: (53 caracteres)
"Todas os Débitos e Prestações já foram contabilizados"
Comprimento máximo: 53
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 484
Texto: (5 caracteres)
"010EA"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 485
Texto: (4 caracteres)
"(DA:"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 486
Texto: (1 caracteres)
")"
Comprimento máximo: 1
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 487
Texto: (31 caracteres)
"Documento de compensação criado"
Comprimento máximo: 31
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE459
Novos campos para guardar Documento e Data da execução da F-51:
BELNR_F51 BELNR_D CHAR 10 0 Nº documento de um documento contábil
BUDAT_F51 BUDAT DATS 8 0 Data de lançamento no documento
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE466
Novos campos para guardar Documento e Data da execução da F-51:
BELNR_F51 BELNR_D CHAR 10 0 Nº documento de um documento contábil
BUDAT_F51 BUDAT DATS 8 0 Data de lançamento no documento
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT459
Novos campos para guardar Documento e Data da execução da F-51:
BELNR_F51 BELNR_D CHAR 10 0 Nº documento de um documento contábil
BUDAT_F51 BUDAT DATS 8 0 Data de lançamento no documento
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT466
Novos campos para guardar Documento e Data da execução da F-51:
BELNR_F51 BELNR_D CHAR 10 0 Nº documento de um documento contábil
BUDAT_F51 BUDAT DATS 8 0 Data de lançamento no documento
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
Modificados os Textos de Seleção:
PA_BUK Empresa
PA_BUKRS Empresa
SO_ADICA Adição
SO_AEDAT Data da Criacao
SO_BEDNR No. Acompanhamento
SO_BELN Pedido
SO_BELP Item
SO_DTDE Data Desembaraço
SO_EBELN Pedido
SO_EBELP Item
SO_FILIA Filial
SO_IEMB Instrução de Embarque
SO_INCO1 Incoterms
SO_ITADI Item da Adição
SO_LIFN Fornecedor
SO_LIFNR Fornecedor
SO_MATN Material
SO_MATNR Material
SO_MATRI Empresa
SO_NRDA Número da DA
SO_NRSEQ Sequencial DA
SO_NUMDA Número da DA
SO_WAERS Moeda
SO_WERKS Centro