1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Private Function BuildCmdDetDist(ByVal connDist As SqlConnection) As SqlCommand
Dim sqlCmdDetDist As SqlCommand = Nothing
sqlCmdDetDist.CommandTimeout = Convert.ToInt32(App.Singleton.Timeout)
sqlCmdDetDist = connDist.CreateCommand()
sqlCmdDetDist.CommandText = "InventListeDetailMaj"
sqlCmdDetDist.CommandType = CommandType.StoredProcedure
sqlCmdDetDist.Parameters.Add(New SqlParameter("@codemaj", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@bEdit", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@utilisateur", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@datemaj", SqlDbType.DateTime))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@code", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@codeListe", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@typeItem", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@code1", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@code2", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@code3", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@libelle", SqlDbType.VarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@rattCode", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@rattOrigine", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@qteOrigine", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@qteSaisie", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@bmodifiable", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@baffectation", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin", SqlDbType.NVarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin1", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin2", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin3", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin4", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin5", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin6", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin7", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin8", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin9", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@chemin10", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@rattStock", SqlDbType.Int))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@codeStock", SqlDbType.NVarChar))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@prixAchat", SqlDbType.Decimal))
sqlCmdDetDist.Parameters.Add(New SqlParameter("@qteStock", SqlDbType.Int))
sqlCmdDetDist.Parameters("@codemaj").Value = "S"
sqlCmdDetDist.Parameters("@bEdit").Value = 0
sqlCmdDetDist.Parameters("@utilisateur").Value = App.Singleton.Login
Return sqlCmdDetDist
End Function |
Partager