Le 18/09/2017 à 18:45, Andres Carranza a écrit :
Hello,Damned, my program crashed Gambas that way : *access to data base sql3 lite* Public Sub Ok_Click() Dim sql As String 'Dim i As Integer Me.mouse = 3 If Val(cargo.Text) = 0 Then cargo.Text = "0" If Val(abono.Text) = 0 Then abono.Text = "0" cta.Text = UCase(LTrim(RTrim(cta.Text))) tasa.Text = UCase(tasa.Text) ValidaCampos If lastXML <> FileChooser1.Value Then Print "RefDuplica2() 0k 1" If RefDuplica2() = 2 Then Return Endif If Val(c2.text) = 0 Then 'If RefDuplicada() = 1 Then'sql = "insert into movimientos values (null,'" & doc.text & "','" & cta.text & "','" & nombre.text & "','" & concepto.text & "'," & cargo.text & "," & abono.text & ",'" & rfc.text & "','" & tasa.text & "'," & importe.text & ", '" & fecha.text & "'," & MES.TEXT & ")" 'sql = "insert into movimientos values (null,'" & doc.text & "','" & cta.text & "','" & nombre.text & "','" & concepto.text & "'," & cargo.text & "," & abono.text & ",'" & rfc.text & "','" & tasa.text & "'," & importe.text & ", '" & fecha.text & "'," & MES.TEXT & ", '" & ref.text & "')" 'sql = "insert into movimientos values (null,'" & doc.text & "','" & cta.text & "','" & nombre.text & "','" & concepto.text & "'," & cargo.text & "," & abono.text & ",'" & rfc.text & "','" & tasa.text & "','" & monto.text & "', '" & fecha.text & "'," & MES.TEXT & ", '" & ref.text & "')" '"create table movimientos (id INTEGER PRIMARY KEY, doc TEXT, cta TEXT, nombre TEXT, concepto TEXT, cargo FLOAT, abono FLOAT, rfc TEXT, tasa TEXT, importe FLOAT, fecha TEXT, mes integer, ref TEXT, ctaO TEXT, bcoO TEXT, monedaP TEXT, TCp TEXT, ctaD TEXT, bcoD TEXT, moneda TEXT, TC TEXT)" 'sql = "insert into movimientos values (null,'" & doc.text & "','" & cta.text & "','" & nombre.text & "','" & concepto.text & "'," & cargo.text & "," & abono.text & ",'" & rfc.text & "','" & tasa.text & "','" & monto.text & "', '" & fecha.text & "'," & MES.TEXT & ", '" & ref.text & "','" & ctaO.text & "','" & bcoO.text & "','" & monedaP.text & "','" & TCp.text & "','" & ctaD.text & "','" & bcoD.text & "','" & moneda.text & "','" & TC.text & "')" sql = "insert into movimientos values (null,'" & doc.text & "','" & cta.text & "','" & nombre.text & "','" & concepto.text & "'," & cargo.text & "," & abono.text & ",'" & rfc.text & "','" & tasa.text & "','" & monto.text & "', '" & fecha.text & "'," & MES.TEXT & ", '" & ref.text & "','" & ctaO.text & "','" & bcoO.text & "','" & monedaP.text & "','" & TCp.text & "','" & ctaD.text & "','" & bcoD.text & "','" & moneda.text & "','" & TC.text & "'," & Left(MetPagoPol.TEXT, 2) & ")"Try $hconn2.Exec(sql) If Error Then Message.Error("No se pudo Guardar") sal.Text = sql Endif 'Endif 'RefDuplicada = 1 Else 'Val(c2.text) = 0'sql = "update movimientos SET cta='" & cta.Text & "', nombre='" & nombre.Text & "', concepto='" & concepto.Text & "', cargo=" & cargo.Text & ", abono=" & abono.Text & ", rfc='" & rfc.Text & "', tasa='" & tasa.Text & "' WHERE id=" & c2.Text 'sql = "update movimientos SET cta='" & cta.Text & "', nombre='" & nombre.Text & "', concepto='" & concepto.Text & "', cargo=" & cargo.Text & ", abono=" & abono.Text & ", rfc='" & rfc.Text & "', tasa='" & tasa.Text & "', ref='" & ref.Text & "' WHERE id=" & c2.Text '"update movimientos SET nombre='" & nombre1.Text & "', rfc='" & rfc1.Text & "', concepto='" & concepto1.Text & "', importe=" & importe.Text & ", fecha='" & fecha.Text & "', ctaO=" & ctaO.Text & "', bcoO=" & bcoO.Text & "', monedaP=" & monedaP.Text & "', TCp=" & TCp.Text & "' WHERE id=" & c1.Text 'sql = "update movimientos SET cta='" & cta.Text & "', nombre='" & nombre.Text & "', concepto='" & concepto.Text & "', cargo=" & cargo.Text & ", abono=" & abono.Text & ", rfc='" & rfc.Text & "', tasa='" & tasa.Text & "', ref='" & ref.Text & "', ctaO='" & ctaO.Text & "', bcoO='" & bcoO.Text & "', moneda='" & moneda.Text & "', TC='" & TC.Text & "' WHERE id=" & c2.Text sql = "update movimientos SET cta='" & cta.Text & "', nombre='" & nombre.Text & "', concepto='" & concepto.Text & "', cargo=" & cargo.Text & ", abono=" & abono.Text & ", rfc='" & rfc.Text & "', tasa='" & tasa.Text & "', ref='" & ref.Text & "', ctaO='" & ctaO.Text & "', bcoO='" & bcoO.Text & "', moneda='" & moneda.Text & "', TC='" & TC.Text & "', MetPagoPol=" & Left(MetPagoPol.TEXT, 2) & " WHERE id=" & c2.TextTry $hconn2.Exec(sql) If Error Then Message.Error("No se pudo Actualizar") sal.Text = sql Else c2.text = "0" Endif Endif 'Val(c2.text) = 0 reajusta() recarga() ColumnView1.Columns[0].Width = 1 cta.SelectAll cta.SetFocus Me.Mouse = 0 End -- *Saludos y Buen día ! :D* C.P. Andrés Carranza S. [email protected] <mailto:[email protected]> Fundador de AztecOS.org WWW.AZTECOS.COM <http://WWW.AZTECOS.COM> Sistema Operativo con Office Libre y Gratuito.El Ubuntu para México y América Latina completamente en español con codecs y muchos programas y herramientas.
Please open a bug report on the bugtracker, and join a project that reproduces the crash. Don't forget to provide information about your system, the Gambas version in use, and so on.
Regards, -- Benoît Minisini ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
