cheveguerra/Medicomed_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Medicomed_Preventa.git synced 2026-04-20 22:39:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

v: 5.10.24

Browse Source 
Se hicieron invisibles normales de la venta, se agregaron 2 botones mas, uno indica que tieene venta y el otro que no tiene, tambien al boton que indica que tiene venta se le agrega una pequeña ventana para agregar la venta que se le indique.
This commit is contained in:
IsR0d
2024-10-07 10:14:24 -06:00
parent 7fe1d3059d
commit 65319638b4
1220 changed files with 160744 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/C_Principal.bas
View File

@@ -605,6 +605,28 @@ Sub Subir_Click
Log("MANDAMOS BITACORA")
'BITACORA (PROYECTO GPS)
Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from VENTA_No_VENTA"$)
Do While h.nextrow
cmd.Initialize
Private eventov As String = h.GetString("eventov")
cmd.Name = "insert_venta_no_venta_MEDICOMED"
Private clientev As String = h.GetString("clientev")
Private nombreClientev As String =Subs. traeNombreCliente(h.GetString("clientev"))
If eventov = "Llega a almacen" Then
nombreClientev = "BOLETA"
clientev = ""
End If
If eventov = "Salida almacen" Then nombreClientev = "CHECKLIST"
If eventov = "Fin Día" Then nombreClientev = "FIN DIA"
If eventov = "Carga día" Then nombreClientev = "CARGA DIA"
cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"), eventov, clientev, h.GetString("iniciov"), finb, h.GetString("latitudv"), h.GetString("longitudv"), nombreClientev)
reqManager.ExecuteCommand(cmd , "ventaNoVenta")
Loop
' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
@@ -1776,6 +1798,7 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM VENTA_No_VENTA")
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
B4XPage_Appear
End If