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
| Dim oAdapt As New OracleDataAdapter("SELECT XBQABR_0, XCODBANK_0, XBQNAM_0, XCODPRO_0, CLIP.XDOSCLI.XCOMDAT_0, CLIP.XDOSCLI.XDCNUM_0, CLIP.XDOSCLI2.XRECT1_0, CLIP.XDOSCLI2.XRECT2_0, CLIP.XDOSCLI2.XRECT3_0, CLIP.XDOSCLI2.XRECT4_0, CLIP.XDOSCLI2.XRECT5_0, CLIP.XDOSCLI2.XRECT6_0, CLIP.XDOSCLI2.XVERS1_0, CLIP.XDOSCLI2.XVERS2_0, CLIP.XDOSCLI2.XFONDCHQ_0, " & _
"XREFCLI_0, XDLIVDEM_0, DLVDAT_0, XBATDRET_0, SHIDAT_0, XQTEDEM_0, (QTY_0 * 1000) AS QTY_0, cast(XMONTANT_0 As Decimal (15,2)) As XMONTANT_0, NETWEI_0, CLIP.SDELIVERY.SDHNUM_0 FROM CLIP.XBANQUE, CLIP.SDELIVERY, CLIP.SINVOICED, CLIP.XDOSCLI, CLIP.XDOSCLI2 " & _
"WHERE CLIP.XBANQUE.XBQNUM_0=CLIP.SDELIVERY.XBQNUM_0 " & _
"AND CLIP.SDELIVERY.XDCNUM_0=CLIP.XDOSCLI.XDCNUM_0 " & _
"AND CLIP.SDELIVERY.XDCNUM_0=CLIP.XDOSCLI2.XDCNUM_0 " & _
"AND CLIP.SINVOICED.XDCNUM_0=CLIP.XDOSCLI.XDCNUM_0 " & _
"AND CLIP.SDELIVERY.SDHNUM_0=CLIP.SINVOICED.SDHNUM_0 ", oConnection)
Dim oDataset As DataSet = New DataSet("oDataset")
'Création d'une table contenat tous les champs requis
Dim oTable As DataTable = New DataTable()
'Remplissage de la datatable à partir de la requete sql
oAdapt.Fill(oTable)
oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"))
Dim myRow As DataRow
For Each myRow In oTable.Rows
myRow("NbCouleur") = FctCalcNbCoul(myRow("XRECT1_0"), myRow("XRECT2_0"), myRow("XRECT3_0"), myRow("XRECT4_0"), myRow("XRECT5_0"), myRow("XRECT6_0"), myRow("XVERS1_0"), myRow("XVERS2_0"), myRow("XFONDCHQ_0"))
'oTable.Rows.Add(myRow("NbCouleur")) cause message d'erreur index et compte...
Next myRow
oTable.Columns.Add("Ecart", Type.GetType("System.Double"))
Dim oRow As DataRow
For Each oRow In oTable.Rows
oRow("Ecart") = nbjourouvrable(oRow("XDLIVDEM_0"), oRow("DLVDAT_0"))
Next oRow
'Fermeture de la connexion afin de ne pas monopoliser les ressources
oConnection.Close()
Dim oDataview As DataView = New DataView(oTable)
oDataview.Table = oDataset.Tables("oTable")
oDataview = oTable.DefaultView
oDataview.Sort = "SHIDAT_0"
oDataview.RowFilter = "SHIDAT_0 > '" & DateDeb & "' AND SHIDAT_0 < '" & DateFin & "' AND XBQABR_0 = '" & ReportAutoBq.ComboBoxTrigram.SelectedItem & "'"
DataGridViewBq.DataSource = oDataview |
Partager