#LOCAL("RegistrationSetHasItems",0)
#LOOP(#Shop.RegistrationSet)
#IF(#IsVisible AND NOT #IsShippingAddressVisible AND NOT #IsBillingAddressVisible)
#SET("RegistrationSetHasItems",1)
#ENDIF
#ENDLOOP
#IF(#RegistrationSetHasItems)
#SET("IsOneBoxVisible", 1)
#LOCAL("ErrorItemNo",0)
#LOOP(#Shop.RegistrationSet)
#IF(#IsVisible AND NOT #IsShippingAddressVisible AND NOT #IsBillingAddressVisible)
#INCLUDE("INC-Attributes")
#ENDIF
#ENDLOOP
#ENDLOCAL
#ENDIF
#ENDLOCAL