Personalization, Customization and Productivity Tools

[CMDorsey]

I am receiving the following error on the vbscript below, any suggestions?

error 1024

expected statement

vbscript

line 50

column 0

text end if

line 50 is highlighted in red

Dim Calc1

Dim Calc2

Dim Calc3

Dim UOM1

Dim UOM2

Dim var1

Calc1=(CI_Item.UDF_ITEM_WDTH/12*CI_Item.UDF_ITEM_LGTH*SO_SalesOrderDetail_bus_QuantityOrdered)/12 Calc2=CI_Item.UDF_ITEM_LGTH*SO_SalesOrderDetail_bus_QuantityOrdered Calc3=SO_SalesOrderDetail_bus_QuantityOrdered*1 UOM1="SF" UOM2=Array("BG","LF","PC","PT","RL","SET","TB")

If SO_SalesOrderDetail_bus_UDF_ITEM_UOM=UOM1 then SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc1 var1=int(SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF+.5) SO_SalesOrderDetail_bus_ExtensionAmt=SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC*var1 SO_SalesOrderDetail_bus_UnitPrice=SO_SalesOrderDetail_bus_ExtensionAmt/SO_SalesOrderDetail_bus_QuantityOrdered End if

If SO_SalesOrderDetail_bus_UDF_ITEM_UOM=UOM2 then SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc2 var1=int(SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF+.5) SO_SalesOrderDetail_bus_ExtensionAmt=SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC*var1 SO_SalesOrderDetail_bus_UnitPrice=SO_SalesOrderDetail_bus_ExtensionAmt/SO_SalesOrderDetail_bus_QuantityOrdered End if

If CI_Item.ProductLine="WALL" then SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc3

End If

[jepritch]

CMDorsey,

Hi, is this how your script appears within our Custom Office User-Defined Script editor?  I took this script and tried to compile it with similar errors.  Believe it or not when I split it out to have the If .. then on one line the assignments on separate lines and the end if on a separate line it compiled successfully for me.

Possibly there are strange characters embedded?

Dim Calc1

Dim Calc2

Dim Calc3

Dim UOM1

Dim UOM2

Dim var1



Calc1 = (CI_Item.UDF_ITEM_WDTH/12*CI_Item.UDF_ITEM_LGTH*SO_SalesOrderDetail_bus_QuantityOrdered)/12

Calc2 = CI_Item.UDF_ITEM_LGTH*SO_SalesOrderDetail_bus_QuantityOrdered

Calc3 = SO_SalesOrderDetail_bus_QuantityOrdered*1

UOM1  = "SF"

UOM2  = Array("BG","LF","PC","PT","RL","SET","TB")



If SO_SalesOrderDetail_bus_UDF_ITEM_UOM=UOM1 then

	SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc1

	var1=int(SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF+.5)

	SO_SalesOrderDetail_bus_ExtensionAmt=SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC*var1

	SO_SalesOrderDetail_bus_UnitPrice=SO_SalesOrderDetail_bus_ExtensionAmt/SO_SalesOrderDetail_bus_QuantityOrdered

End if



If SO_SalesOrderDetail_bus_UDF_ITEM_UOM=UOM2 then

	SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc2

	var1=int(SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF+.5)

	SO_SalesOrderDetail_bus_ExtensionAmt=SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC*var1

	SO_SalesOrderDetail_bus_UnitPrice=SO_SalesOrderDetail_bus_ExtensionAmt/SO_SalesOrderDetail_bus_QuantityOrdered

End if



If CI_Item.ProductLine="WALL" then

	SO_SalesOrderDetail_bus_UDF_ITEM_SF_LF_PRIC=Calc3

End If

 This seems to work for me.

Elliott