diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index a1d3ade..28ec4ac 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -668,229 +668,357 @@ Sub trabajar_Click End Sub Sub Subir_Click - If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") - c=Starter.skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") - c.Close - envioinfo + If Not(IsConnectedToInternet) Then + + MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") + Else + + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close + + + ' NOVENTA + c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") + D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + foto1 = c.GetBlob("NV_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto_noventa_MARDS_REPG" + cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + c.Close + End If + d.Position=0 + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + d.Close + + c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_rep_hist_ventas_mards_REPG" + cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), ALMACEN) + reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + c.Close + End If + + ' pedido + c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido_REP_MARDS" + cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO")) + reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA") + Next + c.Close + End If +' + c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO") + Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$) + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_REPARTO_MARDS" + cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO")) + reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$) + + Next + End If + c.Close + + 'TABULADOR + c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") + d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") + b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") + f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") + d.Position = 0 + b.Position = 0 + f.Position = 0 + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position=i + Dim cmd As DBCommand + Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) + Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) + Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) + cmd.Initialize + cmd.Name = "insert_tabulador_monedas_MARDS" + cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3) + reqManager.ExecuteCommand(cmd , "ins_tabulador_mon") + Next + c.Close + d.Close + b.Close + f.Close + End If + + c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") + d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") + b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") + f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") + d.Position = 0 + b.Position = 0 + f.Position = 0 + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position=i + Dim cmd As DBCommand + Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) + Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) + Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) + cmd.Initialize + cmd.Name = "insert_tabulador_billetes_MARDS" + cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) + reqManager.ExecuteCommand(cmd , "ins_tabulador_bill") + Next + c.Close + d.Close + b.Close + f.Close + End If + 'FIN TABULADOR + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_mards" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") + reqManager.ExecuteCommand(cmd , "inst_drop") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) + + End If ' cmd.Initialize ' cmd.Name = "select_estatus_MAZAPA" ' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) ' reqManager.ExecuteQuery(cmd , 0, "estatus") End Sub -Sub envioinfo - - - - ' NOVENTA - c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") - D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - foto1 = c.GetBlob("NV_FOTO") - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_reparto_noventa_MARDS_REPG" - cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text) - reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - c.Close - End If - d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") - d.Close - c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1") - ' - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_rep_hist_ventas_mards_REPG" - cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), ALMACEN) - reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - c.Close - End If -' pedido - c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_pedido_REP_MARDS" - cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO")) - reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA") - Next - c.Close - End If - - -' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas. - c = Starter.skmt.ExecQuery("SELECT * from reparto") - If c.RowCount > 0 Then - Private folio As String = Subs.hmsKMT - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insertMardsReparto" - cmd.Parameters = Array As Object(folio, C.GetString("REP_FECHA"), C.GetString("REP_CLIENTE"), C.GetString("REP_CLI_ORIG"), C.GetString("REP_PRODID"), C.GetString("REP_PRONOMBRE"), C.GetString("REP_PRODREGISTRO"), C.GetString("REP_CANT"), C.GetString("REP_PRECIO"), C.GetString("REP_COSTO_TOT"), C.GetString("REP_RECHAZO"),ALMACEN,l_ruta.Text) - reqManager.ExecuteCommand(cmd , "ins_reparto") - Next - c.Close - End If - c = Starter.skmt.ExecQuery("SELECT * from rechazos") - If c.RowCount > 0 Then - Private folio As String = Subs.hmsKMT - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insertMardsRechazos" - cmd.Parameters = Array As Object(folio, C.GetString("R_FECHA"), C.GetString("R_CLIENTE"), C.GetString("R_CLI_ORIG"), C.GetString("R_PRODID"), C.GetString("R_CANT"), C.GetString("R_RECHAZO"),ALMACEN,l_ruta.Text) - reqManager.ExecuteCommand(cmd , "ins_rechazos") - Next - c.Close - End If - c = Starter.skmt.ExecQuery("SELECT * from ventas") - If c.RowCount > 0 Then - Private folio As String = Subs.hmsKMT - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insertMardsVentas" - cmd.Parameters = Array As Object(folio, C.GetString("V_FECHA"), C.GetString("V_CLIENTE"), C.GetString("V_CLI_ORIG"), C.GetString("V_PRODID"), C.GetString("V_CANT"), C.GetString("V_RECHAZO"),ALMACEN,l_ruta.Text) - reqManager.ExecuteCommand(cmd , "ins_ventas") - Next - c.Close - End If - - - c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO") - Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$) - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_REPARTO_MARDS" - cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO")) - reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$) - - Next - End If - c.Close - - 'TABULADOR - c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") - f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") - d.Position = 0 - b.Position = 0 - f.Position = 0 - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position=i - Dim cmd As DBCommand - Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) - Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) - Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) - cmd.Initialize - cmd.Name = "insert_tabulador_monedas_MARDS" - cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3) - reqManager.ExecuteCommand(cmd , "ins_tabulador_mon") - Next - c.Close - d.Close - b.Close - f.Close - End If - -' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS") -' If c.RowCount > 0 Then +'Sub envioinfo +' +' +' +' ' NOVENTA +' c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") +' D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") +' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 -' c.Position = i -' Log(c.GetString("HVD_CLIENTE")) -' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) -' d4.Position = 0 -' Log(d4.GetString("CAT_CL_RUTA")) -' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) -' d5.Position = 0 -' Private restacant As String = d5.GetString("PE_CANT") -' d5.Close +' c.Position=i +' foto1 = c.GetBlob("NV_FOTO") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_reparto_noventa_MARDS_REPG" +' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text) +' reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' c.Close +' End If +' d.Position=0 +' cuantos_noventa = D.GetString("CUANTOS_NOVENTA") +' d.Close +' +' +' c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_rep_hist_ventas_mards_REPG" +' cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), ALMACEN) +' reqManager.ExecuteCommand(cmd , "inst_noventa") +' Next +' c.Close +' End If +'' pedido +' c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_pedido_REP_MARDS" +' cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO")) +' reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA") +' Next +' c.Close +' End If +' +' +'' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas. +'' c = Starter.skmt.ExecQuery("SELECT * from reparto") +'' If c.RowCount > 0 Then +'' Private folio As String = Subs.hmsKMT +'' For i=0 To c.RowCount -1 +'' c.Position=i +'' Dim cmd As DBCommand +'' cmd.Initialize +'' cmd.Name = "insertMardsReparto" +'' cmd.Parameters = Array As Object(folio, C.GetString("REP_FECHA"), C.GetString("REP_CLIENTE"), C.GetString("REP_CLI_ORIG"), C.GetString("REP_PRODID"), C.GetString("REP_PRONOMBRE"), C.GetString("REP_PRODREGISTRO"), C.GetString("REP_CANT"), C.GetString("REP_PRECIO"), C.GetString("REP_COSTO_TOT"), C.GetString("REP_RECHAZO"),ALMACEN,l_ruta.Text) +'' reqManager.ExecuteCommand(cmd , "ins_reparto") +'' Next +'' c.Close +'' End If +''' c = Starter.skmt.ExecQuery("SELECT * from rechazos") +''' If c.RowCount > 0 Then +''' Private folio As String = Subs.hmsKMT +''' For i=0 To c.RowCount -1 +''' c.Position=i +''' Dim cmd As DBCommand +''' cmd.Initialize +''' cmd.Name = "insertMardsRechazos" +''' cmd.Parameters = Array As Object(folio, C.GetString("R_FECHA"), C.GetString("R_CLIENTE"), C.GetString("R_CLI_ORIG"), C.GetString("R_PRODID"), C.GetString("R_CANT"), C.GetString("R_RECHAZO"),ALMACEN,l_ruta.Text) +''' reqManager.ExecuteCommand(cmd , "ins_rechazos") +''' Next +''' c.Close +''' End If +''' c = Starter.skmt.ExecQuery("SELECT * from ventas") +''' If c.RowCount > 0 Then +''' Private folio As String = Subs.hmsKMT +''' For i=0 To c.RowCount -1 +''' c.Position=i +''' Dim cmd As DBCommand +''' cmd.Initialize +''' cmd.Name = "insertMardsVentas" +''' cmd.Parameters = Array As Object(folio, C.GetString("V_FECHA"), C.GetString("V_CLIENTE"), C.GetString("V_CLI_ORIG"), C.GetString("V_PRODID"), C.GetString("V_CANT"), C.GetString("V_RECHAZO"),ALMACEN,l_ruta.Text) +''' reqManager.ExecuteCommand(cmd , "ins_ventas") +''' Next +''' c.Close +'' End If +' +' +' c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO") +'' Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$) +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i ' -' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) -' Dim fecha2() As String = Regex.Split("-", fecha1(0)) -' Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0) -' Log(fecha3) -' Dim hora() As String = Regex.Split("\.", fecha1(1)) -' Log(hora(0)) +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_REPARTO_MARDS" +' cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO")) +' reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$) ' -' Dim sDate, sTime As String -' DateTime.DateFormat = "dd/MM/yyyy" -' DateTime.TimeFormat = "HH:mm:ss" -' sDate = DateTime.Date(DateTime.Now) -' sTime = DateTime.Time(DateTime.Now) -' If c.GetString("HVD_RECHAZOCANT") <> "0" Then -' Log((c.GetString("HVD_RECHAZOCANT")-restacant)) -' cmd.Initialize -' cmd.Name = "update_HVD_MAZAPArep2" -' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) -' reqManager.ExecuteCommand(cmd, "update_hvd") -' Else -' cmd.Initialize -' cmd.Name = "update_HVD_MAZAPArep2" -' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT")) -' cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) -' reqManager.ExecuteCommand(cmd, "update_hvd") -' End If -' d4.Close ' Next ' End If ' c.Close - - - c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") - f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") - d.Position = 0 - b.Position = 0 - f.Position = 0 - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position=i - Dim cmd As DBCommand - Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) - Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) - Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) - cmd.Initialize - cmd.Name = "insert_tabulador_billetes_MARDS" - cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) - reqManager.ExecuteCommand(cmd , "ins_tabulador_bill") - Next - c.Close - d.Close - b.Close - f.Close - End If - 'FIN TABULADOR - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_drop_rep_mards" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") - reqManager.ExecuteCommand(cmd , "inst_drop") - ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) -End Sub +' +' 'TABULADOR +' c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") +' d.Position = 0 +' b.Position = 0 +' f.Position = 0 +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position=i +' Dim cmd As DBCommand +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) +' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) +' cmd.Initialize +' cmd.Name = "insert_tabulador_monedas_MARDS" +' cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3) +' reqManager.ExecuteCommand(cmd , "ins_tabulador_mon") +' Next +' c.Close +' d.Close +' b.Close +' f.Close +' End If +' +'' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS") +'' If c.RowCount > 0 Then +'' For i=0 To c.RowCount -1 +'' c.Position = i +'' Log(c.GetString("HVD_CLIENTE")) +'' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) +'' d4.Position = 0 +'' Log(d4.GetString("CAT_CL_RUTA")) +'' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) +'' d5.Position = 0 +'' Private restacant As String = d5.GetString("PE_CANT") +'' d5.Close +'' +'' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) +'' Dim fecha2() As String = Regex.Split("-", fecha1(0)) +'' Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0) +'' Log(fecha3) +'' Dim hora() As String = Regex.Split("\.", fecha1(1)) +'' Log(hora(0)) +'' +'' Dim sDate, sTime As String +'' DateTime.DateFormat = "dd/MM/yyyy" +'' DateTime.TimeFormat = "HH:mm:ss" +'' sDate = DateTime.Date(DateTime.Now) +'' sTime = DateTime.Time(DateTime.Now) +'' If c.GetString("HVD_RECHAZOCANT") <> "0" Then +'' Log((c.GetString("HVD_RECHAZOCANT")-restacant)) +'' cmd.Initialize +'' cmd.Name = "update_HVD_MAZAPArep2" +'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +'' reqManager.ExecuteCommand(cmd, "update_hvd") +'' Else +'' cmd.Initialize +'' cmd.Name = "update_HVD_MAZAPArep2" +'' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT")) +'' cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +'' reqManager.ExecuteCommand(cmd, "update_hvd") +'' End If +'' d4.Close +'' Next +'' End If +'' c.Close +' +' +' c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") +' d.Position = 0 +' b.Position = 0 +' f.Position = 0 +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position=i +' Dim cmd As DBCommand +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) +' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) +' cmd.Initialize +' cmd.Name = "insert_tabulador_billetes_MARDS" +' cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) +' reqManager.ExecuteCommand(cmd , "ins_tabulador_bill") +' Next +' c.Close +' d.Close +' b.Close +' f.Close +' End If +' 'FIN TABULADOR +' +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_drop_rep_mards" +' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") +' reqManager.ExecuteCommand(cmd , "inst_drop") +' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) +'End Sub Sub cargar_Click Dim pedidodiaanterior As Boolean = False @@ -1451,7 +1579,7 @@ Sub JobDone(Job As HttpJob) ' ToastMessageShow("rojo val ok 1 cuantosp." , True) MsgboxAsync("La venta ya fue liquidada","Atención") Else - envioinfo +' envioinfo End If Next End If @@ -1807,6 +1935,7 @@ Sub e_ruta_EnterPressed If RES = DialogResponse.POSITIVE Then e_ruta.Text = "" Starter.skmt.ExecNonQuery("delete from PICK_CIEGO") + Starter.skmt.ExecNonQuery("delete from REPARTO_GEO") Starter.skmt.ExecNonQuery("delete from pedido_cliente") Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK") Starter.skmt.ExecNonQuery("delete from CHECKLIST2") diff --git a/B4A/Mariana_Reparto.b4a b/B4A/Mariana_Reparto.b4a index 083332d..4f7d38f 100644 --- a/B4A/Mariana_Reparto.b4a +++ b/B4A/Mariana_Reparto.b4a @@ -214,7 +214,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: MARIANA Reparto #VersionCode: 1 - #VersionName: 5.02.17 + #VersionName: 5.03.10 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index dfd06c2..cd45bba 100644 --- a/B4A/Mariana_Reparto.b4a.meta +++ b/B4A/Mariana_Reparto.b4a.meta @@ -68,7 +68,7 @@ ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= -ModuleClosedNodes16=12 +ModuleClosedNodes16=11 ModuleClosedNodes17= ModuleClosedNodes18= ModuleClosedNodes19= @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=8,9 -NavigationStack=C_Clientes,todosAVisitar,672,0,C_Clientes,caculaRutaGPS,638,0,MAPA_CLIENTE,MapFragment1_Ready,50,0,C_Cheklist,Class_Globals,0,0,C_Cheklist,b_guardar_Click,559,0,C_Cheklist,mandaPendientes,742,0,Subs,CreateBitmapWithNumber,1019,1,Subs,traerUTAPREV,1016,0,MAPA_RUTAS,MapFragment1_Ready,108,6,Main,Process_Globals,18,0 +NavigationStack=C_Cheklist,Class_Globals,0,0,C_Cheklist,ImageView1_Click,360,0,C_Cheklist,StopCamera2,358,0,C_Cheklist,b_foto_Click,350,0,C_Cheklist,Camera1_PictureTaken,332,0,C_Cheklist,Camera1_Ready,233,0,C_Cheklist,B4XPage_CloseRequest,209,0,C_Cheklist,InitializeCamera2,211,0,C_Cheklist,ImageView4_Click,387,0,C_Cheklist,b_guardar_Click,541,0,C_Cheklist,cb_deratras_SelectedIndexChanged,536,0 SelectedBuild=0 VisibleModules=1,2,3,4,5,6,7,8,9,10