|
hola,
estuve revisando el ejemplo y ajuste algunas cosas en el mio, pero ahora tengo este error:
"En caso de imputación, registre los datos de imputación para la posición",
sabes porq puede ser ??
** Poaccount
wa_account-po_item = w_pos.
wa_account-serial_no = w_serial.
wa_account-gl_account = cta.
wa_account-costcenter = cecos.
wa_account-quantity = '1'.
* wa_account-acttype = 'X'.
wa_account-co_area = 'TS01'. " Sociedad CO
append wa_account to t_account.
clear wa_account.
** Poaccount
wa_accountx-po_item = w_pos.
wa_accountx-serial_no = w_serial.
wa_accountx-gl_account = 'X'.
wa_accountx-costcenter = 'X'.
wa_accountx-quantity = '1'.
* wa_accountx-acttype = 'X'.
wa_accountx-co_area = 'X'.
append wa_accountx to t_accountx.
clear wa_accountx.
** Polimits
wa_limits-pckg_no = '0000000001'.
wa_limits-limit = value.
wa_limits-no_limit = true.
wa_limits-exp_value = value.
append wa_limits to t_limits.
clear wa_limits.
** Services
wa_services-pckg_no = w_packno.
wa_services-line_no = w_lineno.
wa_services-ext_line = '0000000000'.
wa_services-outl_level = '0'.
wa_services-outl_no = ' '.
wa_services-outl_ind = 'X'.
wa_services-subpckg_no = w_packno + 1.
wa_services-edition = '0000' .
wa_services-quantity = '0' .
wa_services-ovf_tol = '0' .
wa_services-gr_price = '0' .
wa_services-from_line = '1' .
wa_services-quantity = '1' .
append wa_services to t_services.
clear wa_services.
** Seriales
wa_posrvaccessvalues-pckg_no = w_packno.
wa_posrvaccessvalues-line_no = w_lineno.
wa_posrvaccessvalues-serno_line = w_serial.
wa_posrvaccessvalues-quantity = '1'.
wa_posrvaccessvalues-serial_no = w_serial.
append wa_posrvaccessvalues to t_posrvaccessvalues.
clear wa_posrvaccessvalues.
gracias.
__________________
 EVERA
|