Copy data between accounts on BPC 7.5 default logic

Hi gurus,

I have default logic code that does not work. I need to copy value from an account to another from real to budget data.

I have this code:

*XDIM_MEMBERSET PERIODO=%PERIODO_SET%

*XDIM_MEMBERSET ESCENARIO=REAL,PPTO

*XDIM_MEMBERSET SOCIEDAD=%SOCIEDAD_SET%

*XDIM_MEMBERSET GROUPS=LC

*XDIM_MEMBERSET FLOW=F_CIE

*CALC_DUMMY_ORG CUENTA = PARENTH1

*IGNORE_STATUS

*WHEN ESCENARIO

*IS PPTO

*WHEN CUENTA

*IS #BAI

*WHEN SIGNEDDATA

*IS<>0

*REC(EXPRESSION=GET(ESCENARIO="REAL",CUENTA="630"),NOADD,ESCENARIO="PPTO",CUENTA="630")

*ENDWHEN

*ENDWHEN

*ENDWHEN

*COMMIT

Where is my mistake???

Thanks a lot for your help!!!!

Have a nices day!