Fatturazione - formattazione campi

domenica 27 agosto 2006 - 14.02

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: dom 27 ago 2006 - 14:02

Salve a tutto il forum, avrei il seguente problema:

Sto realizzando un programma di fatturazione con vb 2005 e ho la necessità di formattare alcuni campi (Imponibile e Iva) mettendo il simbolo dell' € davanti l' importo.

Ho messo questo codice quando premo il tasto calcola:
Me.RfattureBindingSource.MoveFirst()
If PrezzoTextBox.Text = "" Then
MsgBox("Impossibile effettuare il calcolo, il campo Prezzo non contiene nessun valore.", MsgBoxStyle.Information)
End If
Dim somma As Double = 0.0
'---PER SOMMA IVA------------
Dim SOMMA1 As Double = 0.0
'---FINE PRIMA PARTE PER SOMMA IVA------------
Dim i As Integer
For i = 0 To Me.RfattureBindingSource.Count - 1
Me.RfattureBindingSource.Position = i
If TimponibileTextBox.Text = "" Then TimponibileTextBox.Text = 0
If TIVATextBox.Text = "" Then TIVATextBox.Text = 0
If QtaTextBox.Text = "" Then QtaTextBox.Text = 0
If PrezzoTextBox.Text = "" Then PrezzoTextBox.Text = 0
'-------------
If Iva2TextBox.Text = "" Then Iva2TextBox.Text = 0
TimponibileTextBox.Text = CDbl(QtaTextBox.Text) * (PrezzoTextBox.Text)
Iva1TextBox.Text = CDbl(TimponibileTextBox.Text) / 100 * (TIVATextBox.Text)
If TimponibileTextBox.Text <> "" Then
somma += CDbl(TimponibileTextBox.Text)
End If
'---PER SOMMA IVA 2-------------
If Iva2TextBox.Text <> "" Then
SOMMA1 += CDbl(Iva1TextBox.Text)
End If
'---FINE PER SOMMA IVA 2-------------
Next
'--------------------------
Me.RfattureBindingSource.EndEdit()
Me.Validate()
Me.RfattureTableAdapter.Update(Me.AziendaleDataSet1.Rfatture)
'---------
Impo1TextBox.Text = somma
'---PER SOMMA IVA 3-----------------
Iva2TextBox.Text = SOMMA1
'---FINE SOMMA IVA 3-----------------
Impo3TextBox.Text = CDbl(Impo1TextBox.Text) + CDbl(Iva2TextBox.Text)
'---------
'Err:

'Exit Sub
'---------
'---formattazione celle-----------
'For i = 0 To Me.RfattureBindingSource.Count - 1
'Me.RfattureBindingSource.Position = i
TimponibileTextBox.Text = String.Format("€ {0:0.000}", Convert.ToDecimal(TimponibileTextBox.Text))
Iva1TextBox.Text = String.Format("€ {0:0.000}", Convert.ToDecimal(Iva1TextBox.Text))
Impo1TextBox.Text = String.Format("€ {0:0.000}", Convert.ToDecimal(Impo1TextBox.Text))
Iva2TextBox.Text = String.Format("€ {0:0.000}", Convert.ToDecimal(Iva2TextBox.Text))
Impo3TextBox.Text = String.Format("€ {0:0.000}", Convert.ToDecimal(Impo3TextBox.Text))
'Next
Me.RfattureBindingSource.EndEdit()
Me.Validate()
Me.RfattureTableAdapter.Update(Me.AziendaleDataSet1.Rfatture)
RfattureDataGridView.Refresh()
TFattureBindingNavigatorSaveItem.Enabled = True
End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Me.Validate()
Me.RfattureBindingSource.EndEdit()
Me.RfattureTableAdapter.Update(Me.AziendaleDataSet1.Rfatture)
TFattureBindingNavigatorSaveItem.Enabled = True

Ciò che mi succede e la segueente:
Se tengo solo una riga allora la formattazione la fa correttamente, se tengo 2 o + righe mi formatta solo l' ultima riga.
I campi in questione sono:
Timponibile
Iva1TextBox

Questi 2 stanno nella griglia e nelle text, formatto le text per poi aggiornare la griglia

Gli altri 3 campi stanno solo nelle text e funzionano benissimo

Se qualcuno può 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 !