Ray,
Thank you for your patients. I don't think i'm getting it because i'm not applying it correctly to my code.
Especially to the xpost at the end.... (banging my head on the keyboard)
This is my actual xpost code in a subroutine in Global Code. I'm thinking I dont close the XResultSetClose(vRSSinv) untill the very end?
If (CallStatus = "COMPLETE") and (Not (JobType = "Estimate")) And (Not @IsBlank(qty1)) and (Not @IsBlank(brp_1)) and ((@IsBlank(Post1)) and (not @IsBlank(Location1)))
{
If Location1 = "Shop"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"Shopqty","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"shopsales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"SalesShop","ADD")
}
Else If Location1 = "2-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_2","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk2sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales2","ADD")
}
Else If Location1 = "3-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_3","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk3sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales3","ADD")
}
Else If Location1 = "4-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_4","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk4sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales4","ADD")
}
Else If Location1 = "5-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_5","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk5sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales5","ADD")
}
Else If Location1 = "6-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_6","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk6sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales6","ADD")
}
Else If Location1 = "7-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_7","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk7sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales7","ADD")
}
Else If Location1 = "8-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_8","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk8sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales8","ADD")
}
Else If Location1 = "9-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_9","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk9sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales9","ADD")
}
Else If Location1 = "10-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_10","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk10sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales10","ADD")
}
Else If Location1 = "11-T"
{
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_11","SUB")
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk11sales","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales11","ADD")
}
Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"QTYToDate","ADD")
Xpost(@fn,brp_1,"Inventory!brp_no",CallDate,"LastSold","")
Xpost(@fn,brp_1,"Inventory!brp_no",CallNumber,"WO","")
Xpost(@fn,brp_1,"Inventory!brp_no",CompanyName,"SoldTo","")
ReadOnly(Post1, 0)
Post1 = "X"
ReadOnly(Post1, 1)
Xpost(@fn,brp_1,"Inventory!brp_no",Post1,"ChangedForm","")
}
Please, feel free to criticize any of this, it would be appreciated. I have tons more just like it.