función zfm_erp_008.
* "------------------------------------------------ ----------------------
* "*" Interfaz local:
*" MESAS
* "ESTRUCTURA DE T_DATA ZFM_ERP_008_DATA
* "ESTRUCTURA T_SKAT ZFM_ERP_008_SKAT
* "T_RETURN ESTRUCTURA ZFI_RETURN
* "------------------------------------------------ ----------------------
datos:
ls_account_coa tipo glaccount_coa,
ls_account_coa_keyy tipo glaccount_coa_key,
ls_account_coa_data tipo glaccount_coa_data,
ls_account_coa_info tipo glaccount_coa_info,
lt_account_names escriba glaccount_name_table,
ls_account_names escriba glaccount_name,
ls_account_names_keyy tipo glaccount_name_key,
ls_account_names_data tipo glaccount_name_data,
lt_account_ccodes tipo glaccount_ccode_table,
ls_account_ccodes tipo glaccount_ccode,
ls_account_ccodes_keyy tipo glaccount_ccode_key,
ls_account_ccodes_data tipo glaccount_ccode_data,
ls_account_ccodes_info tipo glaccount_ccode_info,
Tabla de tipo lt_return de bapiret2 con línea de encabezado.
bucle en t_data.
llamar a la función 'CONVERSION_EXIT_ALPHA_INPUT'
exportador
input = t_data-saknr
importador
salida = t_data-saknr.
* Datos del sujeto
ls_account_coa_keyy-ktopl = t_data-ktopl. "Tabla de cuentas
ls_account_coa_keyy-saknr = t_data-saknr. "Cuenta del libro mayor
ls_account_coa_data-ktoks = t_data-ktoks. "Grupo de cuentas del libro mayor
ls_account_coa_data-xbilk = t_data-xbilk. "Tipo de cuenta de activos y pasivos
ls_account_coa_data-gvtyp = t_data-gvtyp. "Tipo de cuenta de estado de pérdidas y ganancias
ls_account_coa_info-erdat = sy-datum. "Fecha de creación del registro
ls_account_coa_info-ernam = sy-uname. "El nombre de la persona que creó el objeto
ls_account_coa_info-sakan = t_data-saknr. "Cuenta del libro mayor
ls_account_coa-action = 'I'. "Actividad de registro de datos: I / insertar; U / modificar; D / eliminar
ls_account_coa-keyy = ls_account_coa_keyy.
ls_account_coa-data = ls_account_coa_data.
ls_account_coa-info = ls_account_coa_info.
* Texto del asunto
bucle en t_skat donde saknr = t_data-saknr.
ls_account_names_keyy-ktopl = t_data-ktopl. "Tabla de cuentas
ls_account_names_keyy-saknr = t_data-saknr. "Cuenta del libro mayor
ls_account_names_keyy-spras = t_skat-spras. "Código de idioma
ls_account_names_data-txt20 = t_skat-txt20. "Nombre de la cuenta del libro mayor
ls_account_names_data-txt50 = t_skat-txt50. "Texto largo de la cuenta del libro mayor
ls_account_names-action = 'I'. "Actividad de registro de datos: I / insertar; U / modificar; D / eliminar
ls_account_names-keyy = ls_account_names_keyy.
ls_account_names-data = ls_account_names_data.
agregue ls_account_names a lt_account_names.
endloop.
*Codigo de compañia
ls_account_ccodes_keyy-bukrs = t_data-bukrs. "Código de la empresa
ls_account_ccodes_keyy-saknr = t_data-saknr. "Cuenta del libro mayor
ls_account_ccodes_data-waers = t_data-waers. "货币
ls_account_ccodes_data-fstag = t_data-fstag. "Grupo de estado del campo
ls_account_ccodes_data-xgkon = t_data-xgkon. "Relacionado con el flujo de caja
ls_account_ccodes_data-xsalh = t_data-xsalh. "Identificación: solo administra el saldo en moneda local
ls_account_ccodes_data-mitkz = t_data-mitkz. "El tema es un tema de reconciliación
ls_account_ccodes_data-mwskz = t_data-mwskz. "Código de impuestos sobre ventas / compras
ls_account_ccodes_data-xmwno = t_data-xmwno. "Identificador: el código fiscal no es un campo obligatorio
ls_account_ccodes_data-xopvw = t_data-xopvw. "Identificación: ¿Gestión de elementos abiertos?
ls_account_ccodes_data-xkres = t_data-xkres. "Identificación: ¿Es posible mostrar líneas de pedido por cuenta?
ls_account_ccodes_data-zuawa = t_data-zuawa. "Ordenar códigos según el número de asignación
ls_account_ccodes_data-fstag = t_data-fstag. "Grupo de estado del campo
ls_account_ccodes_data-xintb = t_data-xintb. "Identificación: ¿Es posible publicar en la cuenta automáticamente?
ls_account_ccodes_data-xgkon = t_data-xgkon. "Cuenta de ingresos en efectivo / cuenta de gastos en efectivo
ls_account_ccodes_info-erdat = sy-datum. "Fecha de creación del registro
ls_account_ccodes_info-ernam = sy-uname. "El nombre de la persona que creó el objeto
ls_account_ccodes-action = 'I'. "Actividad de registro de datos: I / insertar; U / modificar; D / eliminar
ls_account_ccodes-keyy = ls_account_ccodes_keyy.
ls_account_ccodes-data = ls_account_ccodes_data.
ls_account_ccodes-info = ls_account_ccodes_info.
agregue ls_account_ccodes a lt_account_ccodes.
llamar a la función 'GL_ACCT_MASTER_SAVE'
exportador
testmode = ''
no_save_at_warning = 'X'
* NO_AUTHORITY_CHECK =
* STORE_DATA_ONLY =
mesas
account_names = lt_account_names
* ACCOUNT_KEYWORDS =
account_ccodes = lt_account_ccodes
return = lt_return
cambiando
account_coa = ls_account_coa.
lea la tabla lt_return en lt_return con el tipo de clave = 'E'.
si sy-subrc = 0.
demás.
llamar a la función 'BAPI_TRANSACTION_COMMIT'
exportador
esperar = 'X'.
terminara si.
si lt_return no es inicial.
bucle en lt_return en lt_return.
t_return-saknr = t_data-saknr.
t_return-bukrs = t_data-bukrs.
t_return-rtype = lt_return-type.
t_return-rtmsg = lt_return-message.
añadir t_return.
claro: t_return.
endloop.
demás.
t_return-saknr = t_data-saknr.
t_return-bukrs = t_data-bukrs.
t_return-rtype = 'S'.
t_return-rtmsg = 'Éxito'.
añadir t_return.
claro: t_return.
terminara si.
* ACTUALIZAR: lt_ACCOUNT_NAMES, lt_ACCOUNT_CCODES, gt_carea, lt_RETURN, gt_coa.
* BORRAR: lt_account_names, lt_account_ccodes, gwa_carea, lt_return, lt_account_ccodes.
endloop.
función final.