|
Yo he habilitado cuentas que no tienen partidas abiertas con el siguiente programa que baje de internet, lo unico que tienes que hacer antes de correr el programa es bloquear la cuenta de contabilizaciones y luego lo corres.
Lo que hace basicamente el programa es actualizar las tablas de datos de las partidas.
Prueba talvez te sirva.
Saludos,
REPORT ZRFI00015.
*EPORT Z_ACTIVA_GESTION_PAS.
* Título:
* Activa Gestión de Partidas Abiertas en Cuentas de Mayor.
* Textos de selección:
* CUENTA Cuenta Contable
* FECCONT Fecha Contabilidad
* SOCIEDAD Sociedad
* ESTE PROGRAMA SE BAJO DE INTERNET PARA CAMBIAR EL PARAMETRO DE GESTION DE PAS
TABLES: BSIS,
BSEG,
SKB1.
PARAMETERS: SOCIEDAD LIKE BSIS-BUKRS OBLIGATORY.
SELECT-OPTIONS: CUENTA FOR BSIS-HKONT OBLIGATORY,
FECCONT FOR BSIS-BUDAT OBLIGATORY.
SELECT * FROM SKB1 CLIENT SPECIFIED WHERE
MANDT = SY-MANDT AND
BUKRS = SOCIEDAD AND
SAKNR IN CUENTA.
IF NOT ( SKB1-MITKZ = 'A' OR
SKB1-MITKZ = 'D' OR
SKB1-MITKZ = 'K' ).
SKB1-XKRES = 'X'.
SKB1-XOPVW = 'X'.
MODIFY SKB1.
PERFORM ACTUALIZAR_MAYOR.
ELSE.
WRITE: / 'Cuenta ', SKB1-SAKNR, ' es cta asociada de ', SKB1-MITKZ.
ENDIF.
ENDSELECT.
FORM ACTUALIZAR_MAYOR.
SELECT * FROM BSIS CLIENT SPECIFIED WHERE
MANDT = SY-MANDT AND
BUKRS = SOCIEDAD AND
HKONT IN CUENTA AND
BUDAT IN FECCONT.
BSIS-XOPVW = 'X'.
MODIFY BSIS.
SELECT SINGLE * FROM BSEG CLIENT SPECIFIED WHERE
MANDT = SY-MANDT AND
BUKRS = BSIS-BUKRS AND
BELNR = BSIS-BELNR AND
GJAHR = BSIS-GJAHR AND
BUZEI = BSIS-BUZEI.
IF SY-SUBRC = 0.
BSEG-XKRES = 'X'.
BSEG-XOPVW = 'X'.
MODIFY BSEG.
ENDIF.
ENDSELECT.
ENDFORM.
|