[Gambas-user] [CRASH REPORT] Conta2 Andresoft

[Benoît Minisini]

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.
> cpandrescarranza at ...626... <mailto:cpandrescarranza at ...626...>
> 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