Numerazione Documento Di Trasporto

venerdì 27 ottobre 2006 - 08.16

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: ven 27 ott 2006 - 08:16

221_fattura.zip

Salve a tutto il forum, avrei il seguente problema:
In un form faccio i D.D.T. (Documento di Trasporto) i quali hanno 2 numerazioni:
La numerazione del D.D.T. (che è una numerazione progressiva) e la numerazione per serie, visto che possono essere ad esempio

1,2,3,4, a1, a2, a3, a4, b1, b2, b3, b4, ecc...

Per prima cosa faccio la numerazione del D.D.T. sull' evento load della form, facendo:

Me.TDDTTableAdapter.Fill(Me.AziendaleDataSet.TDDT)
Dim nrighe As Integer
nrighe = AziendaleDataSet.TDDT.Rows.Count()
TextBox2.Text = nrighe + 1

poi faccio la numerazione per serie

TDDTBindingSource.Filter = "Serie = '" & TextBox1.Text & "'"
TDDTBindingSource.Position = AziendaleDataSet.TDDT.Rows.Count - 1
If NumeroTextBox.Text = "" Then
TextBox3.Text = "1"
Else
TextBox3.Text = NumeroTextBox.Text + 1
End If

quindi, appena premo, in D.D.T. il tasto +, si apre ques' altra form e mi fa la cosa appena descritta.
poi, premendo un button faccio:

Dim dr As DataRow = AziendaleDataSet.TDDT.NewRow()
dr("DDT") = TextBox2.Text
dr("SERIE") = TextBox1.Text
dr("NUMERO") = TextBox3.Text
AziendaleDataSet.TDDT.Rows.Add(dr)
Me.TDDTBindingSource.MoveLast()
Me.Validate()
Me.TDDTBindingSource.EndEdit()
Me.TDDTTableAdapter.Update(Me.AziendaleDataSet.TDDT)
Form1.TDDTTableAdapter.Fill(Form1.AziendaleDataSet.TDDT)
Form1.TDDTBindingSource.MoveLast()
Me.Close()

adesso, se ripremo +, la numerazione non me la fa +, devo riavviare l' applicazione (la numerazione per la serie), forse devo fare qualche refresh?

Se qualcuno può aiutarmi.....!!!!

Distinti Saluti Fabio Messina

Allego anche il file.....

RedStripe Profilo | Newbie

31 messaggi | Data Invio: ven 27 ott 2006 - 11:50

puoi provare a fare la numerazione delle righe in una routine Sub
perchè l' evento load del form viene lanciato solo al caricamento del form
una volta che il form è in memoria finchè non lo scarichi (unload) il codice
dell' evento non passa più.
se fai una Sub puoi chiamarla tu quando devi reincrementare il conteggio delle righe
ogni volta che ti serve

Sub IncrementaRighe()

Me.TDDTTableAdapter.Fill(Me.AziendaleDataSet.TDDT)
Dim nrighe As Integer
nrighe = AziendaleDataSet.TDDT.Rows.Count()
TextBox2.Text = nrighe + 1

end sub

spero di aver capito il tuo problema.. ,
CIAO

jekisi Profilo | Senior Member

460 messaggi | Data Invio: ven 27 ott 2006 - 13:01

Beh!!! ogni volta che premo + per aggiungere un documento, apro il form2, quindi dall' evento load del form ci passo sempre, e poi la parte che non va e la medesima
If NumeroTextBox.Text = "" Then
TextBox3.Text = "1"
Else
TextBox3.Text = NumeroTextBox.Text + 1
End If

cioè, non mi fa la somma
TextBox3.Text = NumeroTextBox.Text + 1

So benissimo che sembrta al quanto strano, però è così

Comunque, se tu o qualche altro può contattarmi via messenger in modo tale di discuterne meglio gli e ne sarei grato.

Fabiointernational@msn.com

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 !