cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 14:49:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

21/9/23 - Modificacion al mandapendientes y tmp_drop

Browse Source 
- Se modifico el mandaPendientes y mandaPendientesNuevosClientes para que cuando se llamen desde Principal se manden TODOS, y cuando se llamen al guardar un cliente solo se manden los pendientes.
- Se egrego que cuando se mande información al final del día, se mande tambien información al TMP_DROP
This commit is contained in:
cheveguerra
2023-09-21 16:13:32 -06:00
parent f236e1ac9f
commit b4d0e069ab
5 changed files with 36 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
B4A/C_Principal.bas
View File

@@ -423,18 +423,38 @@ Sub b_subir_Click
c.Position = i
Log(File.Exists(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
Log($"${Dirp&Dir&Dir2},${c.GetString("NOM_FOTO")}"$)
fotox = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
cmd.Initialize
cmd.Name = "insert_fotos_cliente_nuevo_MARIANA"
cmd.Parameters = Array As Object(c.GetString("CODIGO"),c.GetString("ALMACEN"),c.GetString("RUTA"), fotox)
Log($"${c.GetString("CODIGO")}, ${c.GetString("ALMACEN")}, ${c.GetString("RUTA")}"$)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd, $"insert_clientes_${c.GetString("CODIGO")}"$)
Try
fotox = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("NOM_FOTO")))
cmd.Initialize
cmd.Name = "insert_fotos_cliente_nuevo_MARIANA"
cmd.Parameters = Array As Object(c.GetString("CODIGO"),c.GetString("ALMACEN"),c.GetString("RUTA"), fotox)
Log($"${c.GetString("CODIGO")}, ${c.GetString("ALMACEN")}, ${c.GetString("RUTA")}"$)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd, $"insert_clientes_${c.GetString("CODIGO")}"$)
Catch
Log(LastException)
End Try
Next
c.Close
End If
B4XPages.MainPage.cliente.mandarTodo = True
B4XPages.MainPage.nuevoCliente.mandarTodo = True
B4XPages.MainPage.cliente.mandaPendientes
B4XPages.MainPage.nuevoCliente.mandaPendientesNuevosClientes
B4XPages.MainPage.cliente.mandarTodo = False
B4XPages.MainPage.nuevoCliente.mandarTodo = False
Dim sDate, sTime As String
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
cmd.Initialize
cmd.Name ="insert_drop_MARDS_2"
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,"CENSOS",sTime,"","","","","ENVIO",ALMACEN)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_drop")
mapTiempos.Put($"ins_drop"$, DateTime.now)
ProgressDialogHide
ToastMessageShow("Información enviada", True)
End If