mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-17 21:06:18 +00:00
version 6.02.10
This commit is contained in:
cvaldes1201
@@ -630,7 +630,7 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
Tels.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
If Not(Starter.gps.GPSEnabled) Then
|
||||
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||
@@ -638,11 +638,35 @@ Sub B4XPage_Appear
|
||||
skmt.Initialize(ruta,"kmt.db", True)
|
||||
reqManager.Initialize(Me, Starter.server)
|
||||
|
||||
Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If fotomostrar.RowCount > 0 Then
|
||||
' Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If fotomostrar.RowCount > 0 Then
|
||||
' Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NULL")
|
||||
' If fotomostrar1.RowCount > 0 Then
|
||||
' ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
' Log("aqui no hay foto")
|
||||
' Else
|
||||
' fotomostrar.Position = 0
|
||||
' Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("foto")
|
||||
' Dim InputStream1 As InputStream
|
||||
' InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
' Dim Bitmap1 As Bitmap
|
||||
' Bitmap1.Initialize2(InputStream1)
|
||||
' InputStream1.Close
|
||||
' ImageView4.Bitmap = Bitmap1
|
||||
' Log("aqui si hay foto")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NOT NULL")
|
||||
If fotomostrar1.RowCount = 0 Then
|
||||
|
||||
Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If fotomostrar.RowCount > 0 Then
|
||||
|
||||
fotomostrar.Position = 0
|
||||
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("foto")
|
||||
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO")
|
||||
Dim InputStream1 As InputStream
|
||||
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
Dim Bitmap1 As Bitmap
|
||||
@@ -650,12 +674,28 @@ Sub B4XPage_Appear
|
||||
InputStream1.Close
|
||||
ImageView4.Bitmap = Bitmap1
|
||||
Log("aqui si hay foto")
|
||||
Else
|
||||
|
||||
Else
|
||||
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
Log("aqui no hay foto")
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
fotomostrar1.Position = 0
|
||||
Private fotomostrarfinal() As Byte = fotomostrar1.GetBlob("foto")
|
||||
Dim InputStream1 As InputStream
|
||||
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
Dim Bitmap1 As Bitmap
|
||||
Bitmap1.Initialize2(InputStream1)
|
||||
InputStream1.Close
|
||||
ImageView4.Bitmap = Bitmap1
|
||||
Log("aqui si hay foto")
|
||||
End If
|
||||
|
||||
' ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
' Log("aqui no hay foto")
|
||||
|
||||
|
||||
|
||||
l_tipocliente.Text = Subs.traeTipoCliente
|
||||
p_camara.Width = Root.Width
|
||||
p_camara.Height = Root.Height
|
||||
@@ -1970,6 +2010,8 @@ Sub JobDone(Job As HttpJob)
|
||||
p_transparenteTicketImpreso.Visible = False
|
||||
et_codigoAutorizacion.Text = ""
|
||||
teclado.HideKeyboard
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
ToastMessageShow("Listo, ya se puede modificar la venta.", True)
|
||||
Else
|
||||
ToastMessageShow("El codigo es incorrecto, por favor revise y vuelva a intentar!!", True)
|
||||
@@ -2110,7 +2152,37 @@ Sub gestionar
|
||||
compra
|
||||
End If
|
||||
Else
|
||||
p_transparenteTicketImpreso.Visible = True
|
||||
If Subs.traeAlmacen = 94 Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
If c.GetString("encuesta") = "0" Then
|
||||
Dim Intent1 As Intent
|
||||
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
|
||||
Log(enviorutas)
|
||||
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
|
||||
Try
|
||||
Starter.encuesta = 1
|
||||
Dim cmd As DBCommand
|
||||
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
|
||||
StartActivity(Intent1)
|
||||
compra
|
||||
Catch
|
||||
Starter.encuesta = 0
|
||||
' Dim cmd As DBCommand
|
||||
' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
|
||||
' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
|
||||
compra
|
||||
End Try
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
|
||||
' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
|
||||
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
|
||||
Else
|
||||
compra
|
||||
End If
|
||||
Else
|
||||
p_transparenteTicketImpreso.Visible = True
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
@@ -3084,9 +3156,58 @@ Sub B_IMP_Click
|
||||
Else If ALMACEN = 88 Then
|
||||
|
||||
Impresion4
|
||||
Else If ALMACEN = 81 Or ALMACEN = 102 Or ALMACEN = 6 Then
|
||||
Else If ALMACEN = 81 Or ALMACEN = 102 Or ALMACEN = 94 Then
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, IFNULL(CONFIRMADO,0) AS CONFIRMADO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
c.Position = 0
|
||||
|
||||
If c.GetString("CAT_CL_BCREDITO") = 0 Then
|
||||
Impresion4
|
||||
|
||||
Else If c.GetString("CAT_CL_BCREDITO") = 1 Then
|
||||
If c.GetString("CONFIRMADO") = 0 Then
|
||||
|
||||
Msgbox2Async("La entrega sera a credito o de contado?" , "Atención", "Credito", "Contado", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If creditocod.RowCount > 0 Then
|
||||
creditocod.Position = 0
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
|
||||
' 1. Iniciamos el constructor y definimos el tamaño general más grande (ej. 20)
|
||||
cs.Size(16).Append("Proporciona el siguiente codigo al cliente '")
|
||||
|
||||
' 2. Activamos Negrita (Bold) para el código
|
||||
cs.Bold.Append(creditocod.GetString("CODIGO")).Pop ' .Pop cierra la negrita
|
||||
|
||||
' 3. Continuamos con el texto normal y cerramos todo
|
||||
cs.Append("' para su entrega").PopAll
|
||||
|
||||
' 4. Pasamos el objeto 'cs' en lugar del texto plano
|
||||
Msgbox2Async(cs, "Atención", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 1 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
|
||||
Impresion4
|
||||
End If
|
||||
Else
|
||||
Impresion4
|
||||
End If
|
||||
|
||||
|
||||
Else If resultado = DialogResponse.CANCEL Then
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Impresion4
|
||||
End If
|
||||
Else
|
||||
Impresion4
|
||||
End If
|
||||
End If
|
||||
|
||||
Impresion4
|
||||
Else
|
||||
Impresion
|
||||
End If
|
||||
@@ -3217,9 +3338,11 @@ Sub Impresion4
|
||||
|
||||
Dim descpro As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_PD_RANGO, CAT_PD_DESCUENTO, CAT_PD_RANGO2 FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}') AND INSTR(',' || CAT_PD_TIER || ',' , ',${Subs.traeTipoCliente},') > 0 "$)
|
||||
descpro.Position = 0
|
||||
|
||||
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_RECALCULO") & " $" & s.GETSTRING("PE_COSTO_TOTREC") & eLINEFEED & eLINEFEED )
|
||||
|
||||
Log(s.GetString("PE_PRONOMBRE"))
|
||||
Log(descpro.GetDouble("CAT_PD_DESCUENTO"))
|
||||
Printer1.WriteString(BLANCO & "PL $" & s.GETSTRING("PE_COSTOU") & " Desc.: " & descpro.GetDouble("CAT_PD_DESCUENTO")&"%" & eLINEFEED & eLINEFEED)
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
@@ -3296,8 +3419,12 @@ Sub Impresion4
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
|
||||
|
||||
If Subs.traeTipoCliente= 5 Then
|
||||
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_LISTAPRECIO AS CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
|
||||
Else
|
||||
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
|
||||
End If
|
||||
|
||||
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
|
||||
If precioprom.RowCount > 0 Then
|
||||
precioprom.Position = 0
|
||||
Log (precioprom.GETSTRING("CAT_GP_PRECIO"))
|
||||
@@ -3351,16 +3478,27 @@ Sub Impresion4
|
||||
' Printer1.WriteString("Descuento %: " & NumberFormat2( (((Subs.calculaTotalConPromoXRango3(Subs.traeCliente) - Subs.calculaTotalConPromoXRango2(Subs.traeCliente))*100)/NumberFormat2(Subs.calculaTotalConPromoXRango3(Subs.traeCliente),0,2,2,False)),0,2,2,False)& eLINEFEED)
|
||||
End If
|
||||
Printer1.WriteString("Total Preventa: $" & NumberFormat2(Subs.calculaTotalConPromoXRango2(Subs.traeCliente),0,2,2,False)& eLINEFEED)
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
|
||||
Printer1.WriteString(la_Calle.Text & eLINEFEED)
|
||||
Printer1.WriteString("--------------ESTE TICKET NO ES UN--------------" & eLINEFEED)
|
||||
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
Private contadocredito As Cursor = Starter.skmt.ExecQuery($"SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) "$)
|
||||
If contadocredito.RowCount > 0 Then
|
||||
contadocredito.Position = 0
|
||||
If contadocredito.getstring("BANDERA") = "1" Then
|
||||
Printer1.WriteString("Tipo de entrega: CREDITO"&eLINEFEED)
|
||||
Else
|
||||
Printer1.WriteString("Tipo de entrega: CONTADO"& eLINEFEED)
|
||||
End If
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
|
||||
Printer1.WriteString(la_Calle.Text & eLINEFEED)
|
||||
Printer1.WriteString("--------------ESTE TICKET NO ES UN--------------" & eLINEFEED)
|
||||
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
@@ -6613,6 +6751,8 @@ Private Sub b_codigoAutorizacion_Click
|
||||
Starter.skmt.ExecNonQuery("delete from ticket_impreso where idCliente in (select cuenta from cuentaa)")
|
||||
p_transparenteTicketImpreso.Visible = False
|
||||
et_codigoAutorizacion.Text = ""
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
End If
|
||||
teclado.HideKeyboard
|
||||
' p_transparenteTicketImpreso.Visible = False
|
||||
@@ -7789,7 +7929,7 @@ Private Sub b_acepatiende_Click
|
||||
|
||||
If coord.RowCount = 0 Then
|
||||
skmt.ExecNonQuery2("INSERT INTO ATIENDE(ATIENDE,CLIENTE) VALUES (?,?)", Array As String (et_atiende.Text,Subs.traeCliente))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info3 set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
MsgboxAsync("Datos actualizados.","Atención")
|
||||
l_atiende.Text = et_atiende.Text
|
||||
ime.HideKeyboard
|
||||
@@ -7797,7 +7937,7 @@ Private Sub b_acepatiende_Click
|
||||
et_atiende.Text = ""
|
||||
Else
|
||||
skmt.ExecNonQuery2("UPDATE ATIENDE SET ATIENDE = ? where CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String (et_atiende.Text))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info3 set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
MsgboxAsync("Datos actualizados.","Atención")
|
||||
l_atiende.Text = et_atiende.Text
|
||||
ime.HideKeyboard
|
||||
@@ -7870,5 +8010,4 @@ End Sub
|
||||
|
||||
Private Sub p_telefono_Click
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user