CE PLUS - Nota 003043
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/02/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 17:05:02
Descrição da Nota: DUMP AO GERAR ARQUIVO TEXTO DA NF .
Sintoma
Está dando erro ao clicar no botão para fazer download e gerar arquivo texto da nota fiscal.
Solução
alterar variável do programa para que fique igual ao da função.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03043 Data: 07/02/2007 Hora: 10:05:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03043
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DUMP AO GERAR ARQUIVO TEXTO DA NF .
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - ARQUIVO TEXTO - NF - FUNÇÃO DE DOWNLOAD
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016TOP
REPT /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
itmnum = itab_j_1bnflin-itmnum
taxtyp(3) = 'IPI'.
IF sy-subrc = 0.
MOVE: itab_1bnfstx-taxval TO itab_itens_txt-taxval.
ENDIF.
APPEND itab_itens_txt.
ENDLOOP.
PERFORM executa_download_itens.
ENDFORM.
FORM executa_download_itens.
* >> Início da exclusão: FORM EXECUTA_DOWNLOAD_ITENS
DATA: v_tamanho(2).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_DOWNLOAD_ITENS
DATA: v_tamanho type I.
* << Fim da inclusão
CLEAR v_dir.
SELECT SINGLE path FROM /pws/zycbt007
INTO v_dir
WHERE bukrs EQ /pws/zycie041-bukrs.
MOVE '10' TO v_tamanho.
CONCATENATE v_dir itab_zycit042-docnum 'I' '.txt' INTO v_dir.
MOVE v_dir TO v_arquivo.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = v_arquivo
...
...
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
* >> Início da inclusão: FORM EXECUTA_DOWNLOAD_ITENS
if sy-subrc eq 0 .
concatenate v_caminho ',' v_arquivo into v_caminho
separated by space.
else.
clear v_caminho.
endif.
* << Fim da inclusão
CLEAR itab_itens_txt.
FREE itab_itens_txt.
ENDFORM.
FORM gera_arquivos.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
READ TABLE itab_zycit042 WITH KEY docnum = v_valor.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
WHERE nrseq EQ itab_zycit042-nrseq.
...
...
IF NOT itab_j_1bnflin[] IS INITIAL.
SELECT * FROM j_1bnfstx
INTO TABLE itab_1bnfstx
FOR ALL ENTRIES IN itab_j_1bnflin
WHERE docnum = itab_j_1bnflin-docnum
AND itmnum = itab_j_1bnflin-itmnum
AND stattx = space.
ENDIF.
PERFORM gera_arq_cabecalho.
PERFORM gera_arq_itens.
* >> Início da inclusão: FORM GERA_ARQUIVOS
if not v_caminho is initial.
message s015 with text-098 v_caminho text-099 .
endif.
* << Fim da inclusão
ELSE.
MESSAGE e039 WITH text-052.
ENDIF.
FREE itab_zycit003.
ENDFORM.
FORM executa_download_cabecalho.
* >> Início da exclusão: FORM EXECUTA_DOWNLOAD_CABECALHO
DATA: v_tamanhoc(2).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_DOWNLOAD_CABECALHO
DATA: v_tamanhoc type I.
* << Fim da inclusão
CLEAR v_dir.
SELECT SINGLE path FROM /pws/zycbt007
INTO v_dir
WHERE bukrs EQ /pws/zycie041-bukrs.
MOVE '10' TO v_tamanhoc.
CONCATENATE v_dir itab_zycit042-docnum 'C.txt' INTO v_dir.
CLEAR v_arquivo.
MOVE v_dir TO v_arquivo.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
...
...
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
* >> Início da inclusão: FORM EXECUTA_DOWNLOAD_CABECALHO
if sy-subrc eq 0.
move v_arquivo to v_caminho.
else.
clear v_caminho.
endif.
* << Fim da inclusão
CLEAR itab_cabecalho_txt.
FREE itab_cabecalho_txt.
ENDFORM.
FORM fill_data_j1b2n.
DATA: v_data(10) TYPE c.
REFRESH: it_bdc, it_msg.
CLEAR: it_bdc, it_msg.
WRITE: sy-datum USING EDIT MASK '__.__.____' TO v_data.
PERFORM fill_bdc USING: 'X' 'SAPMJ1B1' '1100',
' ' 'BDC_CURSOR' 'J_1BDYDOC-DOCNUM',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
v_bktxt like bkpf-bktxt,
v_zuonr like bseg-zuonr,
v_forn like /pws/zycit001-lifnr,
v_sgtxt like bseg-sgtxt,
VAUX_BELNR LIKE RBKP-BELNR,
V_apaga,
v_subrc,
v_urf2(1) type c,
v_dir like rlgrap-filename ,
v_arquivo type string,
* >> Início da inclusão:
v_caminho type string,
* << Fim da inclusão
v_tot like /pws/zycit003-vlreal ,
v_libera,
V_sisco1 like /pws/zycit049-vldp,
V_sisco2 like /pws/zycit049-vldp,
V_sisco3 like /pws/zycit049-vldp,
v_sisco_item like /pws/zycit049-vldp,
v_sisco_tot like /pws/zycit049-vldp,
v_basedif(15) type c value space ,
v_dificms(15) type c value space ,
v_zuorn like BSEG-ZUONR,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI016
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 098
Texto: (8 caracteres)
"Arquivos"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 099
Texto: (8 caracteres)
"gerados."
Comprimento máximo: 8