1
CRM / Re:Documentacion de Web CRM
« en: 29 de Mayo de 2018, 04:39:45 pm »
podias publicarlos aqui para tener aceso todos.
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
CLEAR lv_xml_error.
lo_xml->parse_xstring( EXPORTING stream = iv_xml_string ).
lo_error = lo_xml->get_last_parse_error( ).
IF lo_error IS BOUND.
lv_xml_error = lo_error->get_reason( ).
ENDIF.
at selection-screen output.
perform f_selection_screen.
form f_selection_screen .
data itab type table of sy-ucomm.
append 'GET' to itab.
append 'VSHO' to itab.
append 'VDEL' to itab.
append 'SPOS ' to itab.
call function 'RS_SET_SELSCREEN_STATUS'
exporting
p_status = sy-pfkey
tables
p_exclude = itab.
endform. " F_SELECTION_SCREEN
message text-e01 type 'S' display like 'E'." INTO lv_error_txt.
data: gs_edocumentfile type edocumentfile,
lo_xml type ref to cl_xml_document,
lo_error type ref to if_ixml_parse_error,
lv_xml_error type string,
lv_error_txt type string,
iv_xml_string type xstring.
parameter gv_key(32) type c.
select single *
from edocumentfile
into gs_edocumentfile
where edoc_guid = gv_key and
file_type = 'RESPONSE' .
iv_xml_string = gs_edocumentfile-file_raw.
check not iv_xml_string is initial.
create object lo_xml.
if lo_xml is bound.
try.
clear lv_xml_error.
lo_xml->parse_xstring( exporting stream = iv_xml_string ).
lo_error = lo_xml->get_last_parse_error( ).
if lo_error is bound.
lv_xml_error = lo_error->get_reason( ).
endif.
if lv_xml_error is initial.
******************************************
lo_xml->display( ).
lo_xml->export_to_file( 'C:\Users\fernandt\Documents\SAP\TEM.xml' ).
******************************************
else.
message e071(edocument) into lv_error_txt.
cl_edocument=>raise_edoc_exception( ).
endif.
catch cx_root.
message e071(edocument) into lv_error_txt.
cl_edocument=>raise_edoc_exception( ).
endtry.
endif.
catch cx_root.
message e071(edocument) into lv_error_txt.
cl_edocument=>raise_edoc_exception( ).
IF gs_datos_xls-sueldo CA '0123456789'.
SHIFT gs_datos_xls-sueldo RIGHT DELETING TRAILING space.
IF gs_datos_xls-sueldo+12(1) = ','.
DO 2 TIMES.
REPLACE '.' IN gs_datos_xls-sueldo WITH '' .
ENDDO.
SHIFT gs_datos_xls-sueldo RIGHT DELETING TRAILING space.
REPLACE ',' IN gs_datos_xls-sueldo+12(1) WITH '.' .
IF gs_datos_xls-sueldo+8(1) = ','.
gv_nerror = 5.
gs_datos-sueldo = ''.
ELSE.
gv_nerror = 3.
gs_datos-sueldo = gs_datos_xls-sueldo.
ENDIF.
ELSEIF gs_datos_xls-sueldo+12(1) = '.'.
DO 2 TIMES.
REPLACE ',' IN gs_datos_xls-sueldo WITH '' .
ENDDO.
SHIFT gs_datos_xls-sueldo RIGHT DELETING TRAILING space.
IF gs_datos_xls-sueldo+8(1) = '.'.
gv_nerror = 5.
gs_datos-sueldo = ''.
ELSE.
gv_nerror = 0.
gs_datos-sueldo = gs_datos_xls-sueldo.
ENDIF.
ELSE.
IF gs_datos_xls-sueldo = 0.
gv_nerror = 4.
gs_datos-sueldo = gs_datos_xls-sueldo.
ELSE.
gv_nerror = 0.
gs_datos-sueldo = gs_datos_xls-sueldo.
ENDIF.
ENDIF.
ELSE.
IF gs_datos_xls-sueldo = ''.
gv_nerror = 2.
ELSE.
gv_nerror = 1.
ENDIF.
gs_datos-sueldo = ''.
ENDIF.
FORM verificar_datos .
CLEAR gs_datos_xls.
LOOP AT gt_datos_xls INTO gs_datos_xls.
REPLACE ',' WITH '.' INTO gs_datos_xls-sueldo.
IF gs_datos_xls-sueldo CA '0123456789' "AND gs_datos_xls-sueldo NS ','
.
gs_datos-nombre = gs_datos_xls-nombre.
gs_datos-apellidos = gs_datos_xls-apellidos.
gs_datos-direccion = gs_datos_xls-direccion.
gs_datos-sueldo = gs_datos_xls-sueldo.
ELSE.
gs_datos-nombre = gs_datos_xls-nombre.
gs_datos-apellidos = gs_datos_xls-apellidos.
gs_datos-direccion = gs_datos_xls-direccion.
gs_datos-sueldo = ''.
gs_datos-incorrecto = 'X'.
ENDIF.
APPEND gs_datos TO gt_datos.
CLEAR: gs_datos, gs_datos_xls.
ENDLOOP.
ENDFORM. " VERIFICAR_DATOS