Fatturazione documenti di trasporto

venerdì 17 novembre 2006 - 10.41

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: ven 17 nov 2006 - 10:41

Salve a tutto il forum, avrei il seguente problema:
Sto facendo la fatturazione dei DDT (Documenti Di Trasporto) e li faccio nel seguente modo.
Ho 3 form, nel primo tengo la Fattura, nel secondo dei dati relativi ai documenti (Serie, Numero e Data).
Per ogni campo ho 10 textbox, Serie, Serie1, Serie2, ecc., e tantomeno, le caselle della Serie stanno all' interno di un Panel, quelle del Numero all' interno di un altro.
Passando a form3, ho 3 Datagridview.
Nella prima mi spuntano tutti i documenti di trasporto del cliente selezionato a form1 e che come campo Fatturata hanno N, passando la riga al Datagridview2, il campo si modifica a S.
Per ogni riga che passo alla datagridview, mi vado a ricavare tutte le righe che appartengono a quel documento, e riga per riga li passo alle righe della fattura.

Dim i As Integer
Dim i1 As Integer
' esempio matrice
For Each ctrl As Control In Form3.Panel1.Controls
DirectCast(ctrl, TextBox).Text = ""
Next
For Each ctrl As Control In Form3.Panel2.Controls
DirectCast(ctrl, TextBox).Text = ""
Next
For Each ctrl As Control In Form3.Panel3.Controls
DirectCast(ctrl, TextBox).Text = ""
Next
'--------------
Form3.Validate()
Form3.TFattureBindingSource.EndEdit()
Form3.TFattureTableAdapter.Update(Form3.AziendaleDataSet1.TFatture)

Cn.Open() 'apro la connessione al database
sql = "delete * from rfatture where fattura=" & Form2.NumeroTextBox.Text.ToString 'query
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()
Form2.RfattureTableAdapter.Fill(Form2.AziendaleDataSet2.Rfatture)

Form2.RfattureDataGridView.Refresh()
'Dim i2 As Integer
For i1 = 0 To Me.TDDTBindingSource1.Count - 1

'TDDTBindingSource1.MoveNext()
For i = 0 To Me.RDDTBindingSource.Count - 1

Dim dr1 As DataRow = Form2.AziendaleDataSet2.Rfatture.NewRow()
dr1("fattura") = Form2.NumeroTextBox.Text
Form2.AziendaleDataSet2.Rfatture.Rows.Add(dr1)
Form2.RfattureBindingSource.MoveLast()
Form2.ArticoloTextBox.Text = ArticoloTextBox.Text

Form2.Validate()
Form2.RfattureBindingSource.EndEdit()
Form2.RfattureTableAdapter.Update(Form2.AziendaleDataSet2.Rfatture)
RDDTBindingSource.MoveNext()

'For i1 = 0 To Me.TDDTBindingSource1.Count - 1

TDDTBindingSource1.MoveNext()

Next

Next

adesso, oltre a questo, dovrei inserire i valori Serie, Numero e Data in form3.
Se passo un DDT, allora si dovrebbero inserire nelle prime tre text, (Serie1, Bolla1, Databolla1), se passo due DDT si dovrebbero andare ad inserire nella prime 6 text (Serie1, Bolla1, Databolla1, Serie2, Bolla2, Databolla2)
Le text della serie, numerobolla, e databolla sono 10, (da serie1 a serie10, da numerobolla1 a numerobolla10 e da databolla1 a databolla10) stanno all' interno dei panel.

In vb 6 facevo:

Data2.Recordset.MoveFirst
For iCounter = 0 To 9
With Data2.Recordset
' Nel caso in cui fossimo già arrivati alla fine del recordset lasci la for/next
If Data2.Recordset.EOF = True Then Exit For
Form29.Text1(iCounter).Text = CStr(.Fields("serie").Value)
Form29.Text2(iCounter).Text = .Fields("numero").Value
Form29.Text21(iCounter).Text = .Fields("data").Value

.MoveNext
End With
Next

ma questo in net, come dovrebbe diventare?

Spero che qualcuno possa aiutarmi

Distinti Saluti Fabio Messina

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !