PROCESO

TIPO DE DOCUMENTO Status: Abierto

Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 1 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

PROYECTO SAP R/3

TESORERÍA

DISEÑO TÉCNICO DE PROGRAMAS

Anulación cuenta compensatoria pagaré

ZCOMP_PAGARE

13/01/22 Página 1 de 8 DT Anulación cuenta

Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 2 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

1.- DESCRIPCIÓN DEL PROGRAMA

Se realizan contra-apuntes automáticos relacionados con el vencimiento de los

pagarés. Se utilizan las cuentas del proveedor y la del banco compensatoria
relacionada con el apunte,

2.- DIAGRAMA DEL PROGRAMA

Se seleccionan las partidas pendientes de compensar que pertenezcan a operaciones

CME de la sociedad y la fecha obtenidos de la pantalla de selección. Se recupera la
cuenta compensatoria del banco asociada al apunte contable.

Con toda la información se realiza un contrra-apunte contable para las cuentas del
proveedor y la cuenta del banco.

3.- ENTRADAS

3.1 Pantalla de selección

Parámetro Tipo Descripción Comentarios

p_bukrs P Sociedad Obligatorio

Valor por defecto ‘CGAL’

p_zfbft P Fecha pagarés Obligatorio

Valor por defecto la fecha del día

P: Parámetro; S: Select-options, F: Checkbox (flag), R: Radiobutton

3.2 Tablas

TABLA DESCRIPCIÓN ACTIV (*)

T001 Sociedades I
BSIK Contabilidad: índice secundario para acreedores I
BSEG Segmento de documento de Contabilidad I
(*) Uso de la tabla I Input
O Output
W De trabajo
A Actualización

13/01/22 Página 2 de 8 DT Anulación cuenta

Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 3 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

5.- PROCESO

5.1 Esquema de la lógica del programa

1. Se presenta la pantalla de selección con los datos: Sociedad y Fecha base de

pagarés. El valor de sociedad se carga con el valor predeterminado ‘CGAL’.
Se valida que la sociedad esté declarada en el sistema mediante la tabla T001.

2. Se seleccionan los apuntes contables pendientes de compensar que pertenecen

a operaciones CME. Los apuntes seleccionados se guardan en una tabla
interna para realizar posteriormente el contra-apunte. Para ello se utiliza la
rutina f_selecionar_apuntes.

3. Una vez se tiene la tabla interna con la relación de apuntes contables se realiza
el contra-apunte mediante BAPI’s del sistema. Para ello se utiliza la rutina
f_realizar_apuntes.

4. Finalizado todo el proceso se muestra el mensaje: Proceso finalizado

5.3 Subrutinas
Form f_selecionar_apuntes

Se buscan las partidas pendientes de compensar en la tabla BSIK para cargar la

tabla interna i_pagares. Los datos a guardar son los necesarios para recuperar la
información del apunte contable. Los criterios a utilizar son:
▪ Pertenecer a operaciones CME (umskz = ‘D’)
▪ La sociedad (bukrs) debe coincidir con el valor de la pantalla de
selección
▪ La fecha de pagaré (zfbdt) también debe coincidir con el valor de la
pantalla de selección

* Seleccionar los pagarés correspondientes pendientes de compensar a la

* fecha de proceso
SELECT * FROM bsik
INTO CORRESPONDING FIELDS OF TABLE i_pagares
WHERE bukrs = p_bukrs "Sociedad
AND umskz = dc_umskz_d "Ind. CME
AND zfbdt = p_zfbdt. "F. Pagaré

Para cada entrada de la tabla interna i_pagares se busca la posición dentro del
documento que tiene la cuenta compensatoria del banco. Si se encuentra la
cuenta este dato se debe actualizar en la tabla interna que estamos trabajando.
Los criterios de selección a utilizar son:
▪ Sociedad (bukrs) – dato de la tabla interna
▪ N. Documento (blenr) - dato de la tabla interna
13/01/22 Página 3 de 8 DT Anulación cuenta
Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 4 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

▪ Ejercicio (gjahr) - dato de la tabla interna

▪ La cuenta de compensación del banco (hkont) debe tener la máscara
‘572++9’ dónde ++ corresponde al número de entidad bancaria dentro de
la instalación.

* Obtener datos del apunte contable

SELECT * INTO bseg
FROM bseg
WHERE bukrs = i_pagares-bukrs "Sociedad
AND belnr = i_pagares-belnr "Documento
AND gjahr = i_pagares-gjahr. "Ejercicio

* Se actualizan los datos si se encuentra la cuenta compensatoria

* del banco
IF bseg-hkont CP dc_cta_banco. "Máscara de cuenta 572++9
MOVE bseg-hkont TO i_pagares-ctabanco.
MODIFY i_pagares INDEX l_index
TRANSPORTING ctabanco. "Cta.compensat.
EXIT.
ENDIF.
ENDSELECT.

Form f_realizar_apuntes

Para cada entrada de la tabla interna i_pagares se realiza el contra-apunte, se

debe haber encontrado los datos del proveedor (bsik) y los datos de la cuenta
bancaria de compensación (bseg). Si no están los dos datos no se realiza el
contra-apunte necesario.

El contra-apunte se realiza mediante la función BAPI_ACC_DOCUMENT_POST. Se

cargan los valores de cabecera, del proveedor, de la cuenta del banco y los
importes de las cuentas. Si los datos son correctos se confirma el apunte
mediante la función BAPI_TRANSACTION_COMMIT.

Relación de datos necesarios para la BAPI:

▪ Estructura DOCUMENTHEADER

Dato Valor
BUS_ACT ‘RFBU’
USERNAME Dato sy-uname
HEADER_TXT ‘Anul.cta.compensa. Pagaré’
COMP_CODE Dato bsik-bukrs
DOC_DATE Dato p_zfbdt (pantalla selección)
PSTNG_DATE Dato p_zfbdt (pantalla selección)
DOC_TYPE ‘AB’

13/01/22 Página 4 de 8 DT Anulación cuenta

Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 5 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

▪ Tabla ACCOUNTGL (crear una entrada)

Dato Valor
ITEMNO_ACC ‘2’
GL_ACCOUNT Dato bseg-hkont (cuenta banco
compensatoria 572**9)
VALUE_DATE Dato p_zfbdt (pantalla selección)

▪ Tabla ACCOUNTPAYABLE (crear una entrada)

Dato Valor
ITEMNO_ACC ‘1’
VENDOR_NO Dato bsik-lifnr
SP_GL_IND ‘D’

▪ Tabla CURRENCYAMOUNT (crear dos entradas)

Dato (1ra. Entrada) Valor

ITEMNO_ACC ‘1’
CURRENCY_ISO Dato bsik-waers
AMT_DOCCUR Dato bsik-wrbtr

Dato (2da. Entrada) Valor

ITEMNO_ACC ‘2’
CURRENCY_ISO Dato bsik-waers
AMT_DOCCUR Dato bsik-wrbtr en negativo

* Realiza el apunte contable

CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = d_cabecera
* CUSTOMERCPD =
* CONTRACTHEADER =
IMPORTING
OBJ_TYPE = d_type
OBJ_KEY = d_key
OBJ_SYS = d_sys
TABLES
ACCOUNTGL = i_ctagl
* ACCOUNTRECEIVABLE =
ACCOUNTPAYABLE = i_ctaprov
* ACCOUNTTAX =
CURRENCYAMOUNT = i_currency
* CRITERIA =
13/01/22 Página 5 de 8 DT Anulación cuenta
Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 6 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

* VALUEFIELD =
* EXTENSION1 =
RETURN = i_return.
* PAYMENTCARD =
* CONTRACTITEM =

* Si todo es correcto se realiza el COMMIT

IF d_key <> dc_key_dolar.
CLEAR i_return. REFRESH i_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING
WAIT = dc_x
IMPORTING
RETURN = i_return.
ENDIF.

5.4 Funciones

FUNCIÓN DESCRIPCIÓN

BAPI_ACC_DOCUMENT_POST Finanzas: Contabilizar documento

BAPI_TRANSACTION_COMMIT Execute external Commit when using BAPIs

5.5 Descripción de tablas y registros de trabajo

************************************************************************
* Definición de tablas internas
************************************************************************
* Tabla interna con la lista de pagarés seleccionados
DATA:
BEGIN OF i_pagares OCCURS 0,
bukrs LIKE bsik-bukrs, "Sociedad
belnr LIKE bsik-belnr, "N.Documento FI
gjahr LIKE bsik-gjahr, "Ejercicio
buzei LIKE bsik-buzei, "Posición
lifnr LIKE bsik-lifnr, "Proveedor
ctabanco LIKE bseg-hkont, "Cta.Banco compensat.
waers LIKE bsik-waers, "Moneda
wrbtr LIKE bsik-wrbtr, "Importe documento
END OF i_pagares.

* Tablas para realizar los apuntes contables

DATA BEGIN OF i_ctagl OCCURS 0.
INCLUDE STRUCTURE bapiacgl09.
DATA END OF i_ctagl.

DATA BEGIN OF i_ctaprov OCCURS 0.

INCLUDE STRUCTURE bapiacap09.
DATA END OF i_ctaprov.

DATA BEGIN OF i_currency OCCURS 0.

INCLUDE STRUCTURE bapiaccr09.
DATA END OF i_currency.
13/01/22 Página 6 de 8 DT Anulación cuenta
Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 7 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

DATA BEGIN OF i_return OCCURS 0.

INCLUDE STRUCTURE bapiret2.
DATA END OF i_return.

5.6. Menús
Detalle de todos los menús utilizados por el programa especificando:
* estructura de la barra de menús
* iconos y funciones de la barra de símbolos
* iconos y funciones de la barra de pulsadores
* definición de las teclas de función

5.7 Dynpros
Detalle de los atributos de los dynpros y de los módulos implicados en la lógica de
proceso. Si la edición de las pantallas es compleja o tiene ciertas características
especiales, es conveniente adjuntar la estructura de la pantalla deseada y sus principales
particularidades.

6.- SALIDAS

6.1 Tablas

Aquí se listarán las Tablas de BD que actualiza el programa directamente.

6.2 Ficheros de salida

6.3 Mensajes

CLASE MENSAJE DESCRIPCIÓN

ZX 000 Sociedad incorrecta
ZX 000 Proceso finalizado

7.- INCLUDES

NOMBRE DESCRIPCIÓN

13/01/22 Página 7 de 8 DT Anulación cuenta

Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc
 PROCESO
TIPO DE DOCUMENTO Status: Abierto
Fecha de modificación 13/01/2022
Diseño técnico 0:47:00
Fecha de impresión 13/01/2022 0:47:00
Autor: Joan I. Vázquez Página 8 de 8
ZCOMP_PAGARE – Anulación cuenta compensatoria Pagaré

8.- LAYOUT

13/01/22 Página 8 de 8 DT Anulación cuenta

Borrador sujeto a cambios compensatoria pagaré -
ZCOMP_PAGARE.doc