mirror of
https://github.com/KeymonSoft/Guna_Reparto_BAT.git
synced 2026-04-20 14:19:17 +00:00
6.02.26
This commit is contained in:
cvaldes1201
@@ -170,6 +170,9 @@ Sub Class_Globals
|
||||
Private b_aceptarFD As Button
|
||||
Private et_passFinDia As EditText
|
||||
Private teclado As IME
|
||||
|
||||
Private P_Imagengrande As Panel
|
||||
Private I_fotogrande As ImageView
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -225,6 +228,10 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
|
||||
|
||||
|
||||
|
||||
iv_foto.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
reimpresion = 0
|
||||
banderaimp = 0
|
||||
@@ -276,6 +283,7 @@ Sub B4XPage_Appear
|
||||
m_lon_al = latlong(0)
|
||||
|
||||
End If
|
||||
Subs.centraPanel(P_Imagengrande,Root.Width)
|
||||
|
||||
barcode.Initialize
|
||||
qr.Initialize(B4XImageView1.mBase.Width)
|
||||
@@ -336,7 +344,7 @@ Sub B4XPage_Appear
|
||||
b_noEntrega.Visible = True
|
||||
gest.Visible = True
|
||||
Else If geo.GetInt("ACTIVA") = 1 Then
|
||||
HIST.Visible = False
|
||||
HIST.Visible = True
|
||||
' b_cxc.Visible = False
|
||||
b_noEntrega.Visible = False
|
||||
gest.Visible = False
|
||||
@@ -569,6 +577,10 @@ Sub B4XPage_Appear
|
||||
b_cxc_Click
|
||||
Impimir = 0
|
||||
End If
|
||||
HIST.Visible= True
|
||||
b_cxc.Visible= False
|
||||
b_noEntrega.Visible= False
|
||||
gest.Visible= False
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
@@ -594,6 +606,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
|
||||
End If
|
||||
|
||||
|
||||
If LATITUD.Length < 5 Then
|
||||
|
||||
Else
|
||||
@@ -612,12 +625,14 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
Log("DISTANCIA "&distance)
|
||||
|
||||
|
||||
l_montoefec.Text = 0
|
||||
l_montoefec.Text = distance
|
||||
Dim geo As Cursor = Starter.skmt.ExecQuery("SELECT ACTIVA FROM GEOCERCA")
|
||||
If geo.RowCount > 0 Then
|
||||
geo.Position = 0
|
||||
If geo.GetInt("ACTIVA") = 1 Then
|
||||
|
||||
If (almacen = 88 Or almacen = 92) Then
|
||||
If (almacen = 81 Or almacen = 94 Or almacen = 88 Or almacen = 92) Then
|
||||
|
||||
If distance2 < 100 Then
|
||||
HIST.Visible = True
|
||||
@@ -646,7 +661,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
b_noEntrega.Visible = True
|
||||
gest.Visible = True
|
||||
Else
|
||||
HIST.Visible = False
|
||||
HIST.Visible = True
|
||||
b_cxc.Visible = False
|
||||
b_noEntrega.Visible = False
|
||||
gest.Visible = False
|
||||
@@ -1252,12 +1267,16 @@ Sub Guardado
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
@@ -1279,11 +1298,15 @@ Sub Guardado
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
End If
|
||||
@@ -1386,7 +1409,8 @@ Sub NUEVO_Click
|
||||
End Sub
|
||||
|
||||
Sub HIST_Click
|
||||
|
||||
' If l_montoefec.Text <> 0 AND l_montoefec.Text < 100 Then
|
||||
|
||||
Dim pagacheca2 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If pagacheca2.RowCount > 0 Then
|
||||
Msgbox2Async("El pagare ya fue generdo, no se puede realizar modificación.","Atención","","","Ok",LoadBitmap(File.DirAssets,"alert2.png"),False)
|
||||
@@ -1469,7 +1493,7 @@ Sub HIST_Click
|
||||
'' B4XPages.MainPage.historico.clv_pedido.Clear
|
||||
' B4XPages.ShowPage("Historico")
|
||||
' B4XPages.MainPage.historico.clv_pedido.Clear
|
||||
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Sub B_IMP_Click
|
||||
@@ -1513,6 +1537,65 @@ Sub B_IMP_Click
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
|
||||
|
||||
|
||||
If escreditoono = "1" Then
|
||||
|
||||
Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
g5.Position = 0
|
||||
Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal2,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal2 = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"fue credito", "MONTO SI FUE A CREDITO",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"RECHAZO O NO",usuario,ruta,"entrega o rechazo", "parcial o total","efectivo o credito", "mts", L_CANT.text,la_cuenta.Text,fechaprev,almacen,rutaprev)
|
||||
' reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
Else
|
||||
|
||||
Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
g5.Position = 0
|
||||
Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False)
|
||||
g5.Close
|
||||
LogColor(totaltotal2,Colors.Red)
|
||||
LogColor(l_total.Text.Replace(",",""),Colors.Red)
|
||||
If totaltotal2 = l_total.Text.Replace(",","") Then
|
||||
Dim entregatotaloparial As String = "ENTREGA TOTAL"
|
||||
Else
|
||||
Dim entregatotaloparial As String = "ENTREGA PARCIAL"
|
||||
End If
|
||||
|
||||
Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$)
|
||||
cds.Position = 0
|
||||
' cds.GetString("HVD_RUTA")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
End If
|
||||
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
@@ -2114,7 +2197,7 @@ Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -5217,7 +5300,7 @@ Private Sub b_imprimesegun_Click
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
@@ -6994,7 +7077,7 @@ Sub imp
|
||||
Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -7773,4 +7856,28 @@ Sub imprime_abonopagare3
|
||||
|
||||
' mandaAbonosPANUEPendientes
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub iv_foto_Click
|
||||
Private 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")
|
||||
Dim InputStream1 As InputStream
|
||||
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
Dim Bitmap1 As Bitmap
|
||||
Bitmap1.Initialize2(InputStream1)
|
||||
InputStream1.Close
|
||||
I_fotogrande.Bitmap = Bitmap1
|
||||
Log("aqui si hay foto")
|
||||
Else
|
||||
I_fotogrande.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
Log("aqui no hay foto")
|
||||
End If
|
||||
P_Imagengrande.Visible = True
|
||||
End Sub
|
||||
|
||||
Sub P_Imagengrande_click
|
||||
P_Imagengrande.Visible = False
|
||||
End Sub
|
||||
Reference in New Issue
Block a user