CE PLUS - Nota 004889
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 03/10/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:36:48
Descrição da Nota: AO TRANSMITIR A DSI PELO PROGRAMA DÁ ERRO
Sintoma
AO TRANSMITIR A DSI PELO PROGRAMA DÁ ERRO DE PARAMETRIZAÇÃO
Solução
AJUSTAR PARA PEGAR O ENDEREÇO DO PROGRAMA PELO PARÂMETRO
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04889 Data: 03/10/2007 Hora: 10:16:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04889
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO TRANSMITIR A DSI PELO PROGRAMA DÁ ERRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANMISSÃO SISCOMEX - DSI - ERRO PARAMETRIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
FORM send.
* >> Início da inclusão: FORM SEND
data: v_aux type i.
* << Fim da inclusão
IF wa_zycit136-nrseq IS INITIAL.
MESSAGE s015 WITH text-023 text-134.
EXIT.
ENDIF.
CASE wa_zycit136-stasis.
WHEN text-126.
MESSAGE s061 WITH text-131 text-030 text-132.
WHEN text-128.
MESSAGE s061 WITH text-131 text-030 text-133.
WHEN text-129.
...
...
wa_zycet050-router ','
INTO v_param.
MOVE wa_zycit136-tp_doc TO v_tpdoc.
IF wa_zycit136-tp_doc EQ v_tpdoc.
CONCATENATE v_param
wa_zycit136-tp_doc '_'
wa_zycit136-nrseq
'|'
INTO v_param.
ENDIF.
* >> Início da exclusão: FORM SEND
CASE wa_zycit136-tp_doc.
WHEN 'PLI'.
MOVE: text-138 TO v_string_ex.
WHEN OTHERS.
MOVE: text-139 TO v_string_ex.
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM SEND
v_aux = strlen( wa_zycet050-path_sisc_imp ) - 1.
if wa_zycet050-path_sisc_imp+v_aux(1) = '\'.
concatenate wa_zycet050-path_sisc_imp text-223 into v_string_ex.
else.
concatenate wa_zycet050-path_sisc_imp text-223
into v_string_ex separated by '\'.
endif.
* << Fim da inclusão
CONCATENATE v_param
',' 'E'
',' sy-sysid ','
wa_zycet050-logonbsrv ','
wa_zycet050-grpname ','
wa_zycet050-tplogonb
INTO v_param.
IF v_string_ex IS INITIAL.
MESSAGE s061 WITH text-140 text-141 text-142 text-137.
EXIT.
ENDIF.
DATA: v_tam TYPE i.
CLEAR: v_tam.
* >> Início da exclusão: FORM SEND
IF v_string_ex = text-139.
* << Fim da exclusão
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
* >> Início da exclusão: FORM SEND
fname = text-139
* << Fim da inclusão
* >> Início da inlusão: FORM SEND
fname = v_string_ex
* << Fim da inclusão
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
OTHERS = 2.
IF v_tam LT 0.
MESSAGE i015 WITH text-143 text-144 text-145 text-146.
* >> Início da exclusão: FORM SEND
LEAVE TO SCREEN '0100'.
ELSE.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
ENDIF.
ELSEIF v_string_ex = text-138.
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
fname = text-138
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
OTHERS = 2 .
IF v_tam LT 0.
MESSAGE i015 WITH text-145 text-146.
* << Fim da exclusão
LEAVE TO SCREEN '0100'.
ELSE.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
* >> Início da exclusão: FORM SEND
ENDIF.
wa_zycit136-stasis = text-127.
* << Fim da exclusão
ENDIF.
ENDFORM.
...