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.Text
Try $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.
cpandrescarra...@gmail.com <mailto:cpandrescarra...@gmail.com>
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
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user