Dim strSaleSp As String = "PA_S100.SP_TA_S100_INSERT"
Dim parmsSale As New DBParameterCollection()
Dim parms As New DBParameterCollection
Dim intErrorCode As Integer = 0
Dim strErrorText As String = ""
parmsSale.Clear()
parms.Clear()
parmsSale.Add("v_sale_date", dr("SALE_DATE"))
parmsSale.Add("v_part_div", dr("PART_DIV"))
parmsSale.Add("v_part_no", dr("PART_NO"))
parmsSale.Add("v_part_type", dr("PART_TYPE"))
parmsSale.Add("v_slip_no", dr("SLIP_NO"))
parmsSale.Add("v_slip_seq", dr("SLIP_SEQ"))
parmsSale.Add("v_floor_corner", dr("FLOOR_CORNER"))
parmsSale.Add("v_season", dr("SEASON"))
parmsSale.Add("v_season_year", dr("SEASON_YEAR"))
parmsSale.Add("v_brand", dr("BRAND"))
parmsSale.Add("v_item_l", dr("ITEM_L"))
parmsSale.Add("v_item_s", dr("ITEM_S"))
parmsSale.Add("v_sale_month", dr("SALE_MONTH"))
parmsSale.Add("v_order_gb", dr("ORDER_GB"))
parmsSale.Add("v_style_no", dr("STYLE_NO"))
parmsSale.Add("v_color_code", dr("COLOR_CODE"))
parmsSale.Add("v_size_code", dr("SIZE_CODE"))
parmsSale.Add("v_sale_qty", Func.NVL(dr("SALE_QTY"), 0))
parmsSale.Add("v_tag_price", Func.NVL(dr("TAG_PRICE"), 0))
parmsSale.Add("v_current_price", Func.NVL(dr("CURRENT_PRICE"), 0))
parmsSale.Add("v_rsale_price", Func.NVL(dr("RSALE_PRICE"), 0))
parmsSale.Add("v_tag_amt", Func.NVL(dr("TAG_AMT"), 0))
parmsSale.Add("v_current_amt", Func.NVL(dr("CURRENT_AMT"), 0))
parmsSale.Add("v_rsale_amt", Func.NVL(dr("RSALE_AMT"), 0))
parmsSale.Add("v_dc_rate", Func.NVL(dr("DC_RATE"), 0))
parmsSale.Add("v_out_rate", Func.NVL(dr("OUT_RATE"), 0))
parmsSale.Add("v_out_amt", Func.NVL(dr("OUT_AMT"), 0))
parmsSale.Add("v_sale_collect_rate", Func.NVL(dr("SALE_COLLECT_RATE"), 0))
parmsSale.Add("v_sale_collect_amt", Func.NVL(dr("SALE_COLLECT_AMT"), 0))
parmsSale.Add("v_sale_vat", Func.NVL(dr("SALE_VAT"), 0))
parmsSale.Add("v_sale_reduction_amt", Func.NVL(dr("SALE_REDUCTION_AMT"), 0))
parmsSale.Add("v_sale_reduction_vat", Func.NVL(dr("SALE_REDUCTION_VAT"), 0))
parmsSale.Add("v_price_gb", dr("PRICE_GB"))
parmsSale.Add("v_return_yn", dr("RETURN_YN"))
parmsSale.Add("v_return_origin_sale_date", dr("RETURN_ORIGIN_SALE_DATE"))
parmsSale.Add("v_return_origin_slip_no", dr("RETURN_ORIGIN_SLIP_NO"))
parmsSale.Add("v_return_origin_slip_seq", dr("RETURN_ORIGIN_SLIP_SEQ"))
parmsSale.Add("v_add_dc_charge_gb", dr("ADD_DC_CHARGE_GB"))
parmsSale.Add("v_cust_name", dr("CUST_NAME"))
parmsSale.Add("v_user_id", dr("INPUT_EMP_NO"))
Dim rtnParmErrorCodeReturn As New DataOutParameter("v_error_code", DbType.Int32)
Dim rtnParmErrorTextReturn As New DataOutParameter("v_error_text", DbType.String, 500)
parmsSale.Add(rtnParmErrorCodeReturn)
parmsSale.Add(rtnParmErrorTextReturn)
dbAgent.ExecuteSQL(strSaleSp, parmsSale, CommandType.StoredProcedure)
intErrorCode = CType(Func.NVL(parmsSale("v_error_code").Value, 0), Integer)
strErrorText = CType(Func.NVL(parmsSale("v_error_text").Value, ""), String)
If intErrorCode <> 0 Then
parms.Clear()
parms.Add("v_error_code", intErrorCode)
parms.Add("v_error_text", strErrorText)
Me.dbAgent.Rollback()
Return parms.ToBase64String()
End If