CE PLUS - Nota 000971
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 03/03/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:59:49
Descrição da Nota: DUMP AO INFORMAR CAMINHO DO ARQUIVO ELETRÔNICO - SAP VERSÃO 5.0
Sintoma
Ao salvar a saída de pagamento (utilizando a opção ``Gerar Arquivo Eletrônico``), a contabilização é
feita corretamente, porém é aberta a tela de Intercâmbio eletrônico onde eu informo o nome do
arquivo e o diretório, mas após informar o nome do arquivo e executar está dando DUMP, não
apresentando o relatório da saída de pagamento.
Solução
Incluso tratamento para a versão 5.0 do SAP.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00971 Data: 03/03/2006 Hora: 08:08:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00971
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DUMP AO INFORMAR CAMINHO DO ARQUIVO ELETRÔNICO - SAP VERSÃO 5.0
----------------------------------------------------------------------------------------------------
Palavras Chave:
SAÍDA DE PAGAMENTO ARQUIVO ELETRÔNICO NOME DO ARQUIVO DUMP UNICODE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYGLR025
REPS /PWS/ZYGLR026
REPS /PWS/ZYGLR027
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR025
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_header_arq. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_HEADER_ARQUIVO
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_HEADER_ARQUIVO
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_header_lote. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_HEADER_LOTE
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_HEADER_LOTE
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_detalhe_a. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_detalhe_b. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_detalhe_c. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_DETALHE_C
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_C
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_trailer_lote. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_TRAILER_LOTE
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TRAILER_LOTE
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_trailer_arq. ' TO t_prog.
* >> Início da exclusão: FORM GRAVA_TRAILER_ARQUIVO
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TRAILER_ARQUIVO
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
APPEND ' END OF itab_saida_serv.' TO t_prog.
APPEND
'form f_exec_open tables p_itab_saida_serv structure itab_saida_serv'
TO t_prog.
APPEND ' using p_dir_unix.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND
'open dataset p_dir_unix for output in text mode encoding default.'
TO t_prog.
ELSE.
APPEND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR026
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_header_arq. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_HEADER_DE_ARQUIVO
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_HEADER_DE_ARQUIVO
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_header_lote. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_HEADER_DE_LOTE
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_HEADER_DE_LOTE
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_det_segto_a_341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_det_segto_a_341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND ' report sy-repid. ' TO t_prog.
APPEND ' form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_det_segto_a_n341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND ' report sy-repid. ' TO t_prog.
APPEND ' form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_det_segto_a_n341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND ' report sy-repid. ' TO t_prog.
APPEND ' form quebra_linha using itab_final ' TO t_prog.
APPEND ' itab_det_segto_a_n341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND ' report sy-repid. ' TO t_prog.
APPEND ' form quebra_linha using itab_final_da2 ' TO t_prog.
APPEND ' itab_det_segto_a_n341.' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_det_segto_b. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_B
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_B
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using itab_final_db ' TO t_prog.
APPEND ' itab_det_segto_b. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_B
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_B
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004
'SCMS_XSTRING_TO_BINARY' text-004
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_trailer_lote. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_TRAILER_DE_LOTE
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRAILER_DE_LOTE
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
CLEAR t_prog.
REFRESH t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form quebra_linha using wa_saida ' TO t_prog.
APPEND ' itab_trailer_arq. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_TRAILER_DE_ARQUIVO
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRAILER_DE_ARQUIVO
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND ' DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
CONCATENATE 'call function' text-004 'SCMS_XSTRING_TO_BINARY'
text-004 INTO t_prog.
...
...
APPEND ' END OF itab_final_serv.' TO t_prog.
APPEND
'form f_exec_open tables p_itab_final_serv structure itab_final_serv'
TO t_prog.
APPEND ' using p_dir_unix.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl(3) EQ '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl(3) ge '620' OR sy-saprl(2) EQ '47'.
* << Fim da inclusão
APPEND
'open dataset p_dir_unix for output in text mode encoding default.'
TO t_prog.
ELSE.
APPEND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR027
...
APPEND ' campo(1000) TYPE c,' TO t_prog.
APPEND ' END OF itab_final.' TO t_prog.
APPEND 'form f_exec_open tables p_itab_final structure itab_final'
TO t_prog.
APPEND ' using p_dir_unix.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl+0(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
IF sy-saprl+0(2) EQ '47' or
sy-saprl(3) ge '620'.
* << Fim da inclusão
APPEND
'open dataset p_dir_unix for output in text mode encoding default.'
TO t_prog.
ELSE.
APPEND
...