|
Asientos contables
Hola,
he puesto en marcha el programa, pero me da el siguiente error. me podrias ayudar a saber cual es el error. aqui abajo colocolo el codigo del programa que estoy utilizando, el cual fue el que me enviaste Garces. donde he colocado xxxxx tengo datos reales. pero me da un error :
E RW 609
Error en el documento: IDOC 1 0
E RW 014
Interfaz: Múltiple pos. de documento
*&---------------------------------------------------------------------*
*& Report ZFI_ASIENTO_OPINVE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report zfi_asiento_opinve.
constants: gc_awtyp like bkpf-awtyp value 'IDOC'. "Tipo de Documento que genera el asiento (Te recomiendo el valor IDOC)
constants: gc_awkey like bkpf-awkey value '1'. "Código del documento que genera el asiento a crear
constants: gc_awkey_r like bkpf-awkey value ''. "Codigo del documento que generó el asiento a reversar (para la BAPI_ACC_DOCUMENT_REV_POST)
constants: gc_awsys like bkpf-awsys value '0'. "Sistema que genera el asiento (Te recomiendo que lo dejes vacío si lo vas a generar desde SAP)
constants: gc_bukrs like bkpf-bukrs value 'xxxx'. "Sociedad
constants: gc_busact like bkpf-glvor value 'RFBU'. "Operación empresarial (Te recomiendo el valor RFBU)
start-of-selection.
perform ejecutar_bapi.
* PERFORM reversar_bapi.
************************************************************************
form ejecutar_bapi.
data: w_header like bapiache09.
data: w_accoun like bapiacgl09.
data: w_payabl like bapiacap09.
data: w_custom like bapiacar09.
data: w_taxes like bapiactx09.
data: w_curren like bapiaccr09.
data: w_return like bapiret2.
data: t_accoun like bapiacgl09 occurs 0.
data: t_payabl like bapiacap09 occurs 0.
data: t_custom like bapiacar09 occurs 0.
data: t_taxes like bapiactx09 occurs 0.
data: t_curren like bapiaccr09 occurs 0.
data: t_return like bapiret2 occurs 0.
* Cabecera del documento contable
w_header-obj_type = gc_awtyp.
w_header-obj_key = gc_awkey.
w_header-obj_sys = gc_awsys.
w_header-bus_act = gc_busact.
w_header-ac_doc_no = 'xxxxxxxxxx'.
w_header-username = sy-uname. "Usuario
w_header-comp_code = gc_bukrs.
w_header-doc_date = sy-datum. "Fecha del Documento
w_header-pstng_date = sy-datum. "Fecha de contabilización
w_header-trans_date = sy-datum. "Fecha de Conversión
w_header-fisc_year = sy-datum+0(4). "Ejercicio
w_header-fis_period = sy-datum+4(2). "Período Contable
w_header-doc_type = 'SA'. "Tipo de Documento Contable (Te recomiendo 'SA')
* Posición G/L
clear w_accoun.
w_accoun-itemno_acc = 1. "Primera posición en el documento contable
w_accoun-gl_account = 'xxxxxxxxxx'. "Cuenta de Mayor - Ingresos/Inversiones
append w_accoun to t_accoun.
* Posicion Deudor
clear w_custom.
w_custom-itemno_acc = 1.
w_custom-customer = 'xxxxxxxxxx'.
append w_custom to t_custom.
* Valores
clear w_curren.
w_curren-itemno_acc = 1. "Asocio con la primera posición del doc. contable
w_curren-currency = 'DOP'. "Moneda
w_curren-amt_doccur = 1000. "Monto
append w_curren to t_curren.
* Valores 2
clear w_curren.
w_curren-itemno_acc = 2. "Asocio con la primera posición del doc. contable
w_curren-currency = 'DOP'. "Moneda
w_curren-amt_doccur = -1000. "Monto (opuesto para que cuadre es debe/haber)
append w_curren to t_curren.
* Llamada a la BAPI
call function 'BAPI_ACC_DOCUMENT_POST'
exporting
documentheader = w_header
tables
accountgl = t_accoun
accountreceivable = t_custom
currencyamount = t_curren
return = t_return.
call function 'BAPI_TRANSACTION_COMMIT'.
loop at t_return into w_return.
write:/ w_return-type,
w_return-id,
w_return-number,
w_return-message.
endloop.
endform. "ejecutar_bapi
************************************************************************
form reversar_bapi.
data: w_reversal like bapiacrev.
data: w_return like bapiret2.
data: t_return like bapiret2 occurs 1.
w_reversal-obj_type = gc_awtyp.
w_reversal-obj_key = gc_awkey_r.
w_reversal-obj_sys = gc_awsys.
w_reversal-obj_key_r = gc_awkey.
w_reversal-pstng_date = sy-datum.
w_reversal-comp_code = gc_bukrs.
call function 'BAPI_ACC_DOCUMENT_REV_POST'
exporting
reversal = w_reversal
bus_act = gc_busact
tables
return = t_return.
call function 'BAPI_TRANSACTION_COMMIT'.
loop at t_return into w_return.
write:/ w_return-type,
w_return-id,
w_return-number,
w_return-message.
endloop.
endform. "reversar_bapi
|