diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 19543d3..da62c2f 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -225,6 +225,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)") Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT") + Subs.agregaColumna("PEDIDO", "PE_FOLIOFAC", "INT") Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT") Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT") Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index cadbc39..85072fa 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -179,6 +179,10 @@ Sub Class_Globals Private b_acepgiro As Button Dim giros As String Private Button1 As Button + Private p_folio As Panel + Private et_folio As EditText + Private c_acep_folio As Button + Private c_cancelfolio As Button End Sub 'You can add more parameters here. @@ -942,72 +946,160 @@ End Sub Sub GUADAVENTA2 Log(B4XPages.MainPage.recarga) If B4XPages.MainPage.recarga = "0" Then - DateTime.DateFormat = "MM/dd/yyyy" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) - c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") - c.Position=0 - clie_id = c.GetString("CUENTA") - c.Close - c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") - c.Position=0 - usuario = c.GetString("USUARIO") - c.Close - c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") - c.Position=0 - ' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS")) - If c.GetString("CUANTOS") > 0 Then - Private cbFactura As Int = 0 - If cb_factura.Checked Then cbFactura = 1 - B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") - B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") - B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) - B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") - B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") - End If - c.Close - DateTime.TimeFormat = "HHmmss" - sTime=DateTime.Time(DateTime.Now) - B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) - ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") - Try - c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ + + + + Dim foliofac2 As Cursor=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) and PE_DESCRAGA = 1 AND PE_FOLIOFAC IS NULL") + If foliofac2.RowCount > 0 Then + + + + Dim foliofac As Cursor=B4XPages.MainPage.skmt.ExecQuery("SELECT sum(IFNULL(PE_DESCRAGA,0)) AS PE_DESCRAGA FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + foliofac.Position = 0 + If foliofac.GetInt("PE_DESCRAGA") = 0 Then + + + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") + c.Position=0 + clie_id = c.GetString("CUENTA") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") + c.Position=0 + usuario = c.GetString("USUARIO") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + c.Position=0 + ' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS")) + If c.GetString("CUANTOS") > 0 Then + Private cbFactura As Int = 0 + If cb_factura.Checked Then cbFactura = 1 + B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + End If + c.Close + DateTime.TimeFormat = "HHmmss" + sTime=DateTime.Time(DateTime.Now) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) + ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") + Try + c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _ " Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _ " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ") - c.Position = 0 - stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 - stay_mi = c.GetString("MINUTOS_TOTALES") * 60 - stay_ss = c.GetString("SEGUNDOS_TOTALES") - B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss)) - B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) - c.Close - Catch - ToastMessageShow(".",True) - End Try + c.Position = 0 + stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 + stay_mi = c.GetString("MINUTOS_TOTALES") * 60 + stay_ss = c.GetString("SEGUNDOS_TOTALES") + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss)) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) + c.Close + Catch + ToastMessageShow(".",True) + End Try - skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) - ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) - Subs.actualizaTET(la_cuenta.text) - DateTime.TimeFormat = "HH:mm:ss" + skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) + ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) + Subs.actualizaTET(la_cuenta.text) + DateTime.TimeFormat = "HH:mm:ss" ' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! - mandapiezas - B4XPages.MainPage.productos.reiniciarlistaProds = True - B4XPages.MainPage.productos.prodsMap.Initialize - B4XPages.MainPage.promos.promosMap.Initialize - Guardar.Enabled = True - gest.Enabled = True - b_cxc.Enabled = True - Tar.Enabled = True - Tels.Enabled = True - b_ventaabordo.Enabled = True - HIST.Enabled = True - banderaimp = 0 - mandaPendientePagare - B4XPages.ShowPage("Principal") + mandapiezas + B4XPages.MainPage.productos.reiniciarlistaProds = True + B4XPages.MainPage.productos.prodsMap.Initialize + B4XPages.MainPage.promos.promosMap.Initialize + Guardar.Enabled = True + gest.Enabled = True + b_cxc.Enabled = True + Tar.Enabled = True + Tels.Enabled = True + b_ventaabordo.Enabled = True + HIST.Enabled = True + banderaimp = 0 + mandaPendientePagare + B4XPages.ShowPage("Principal") + Else + p_folio.Visible = True + p_folio.Width = Root.Width + p_folio.Height = Root.Height + + End If + Else + + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") + c.Position=0 + clie_id = c.GetString("CUENTA") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") + c.Position=0 + usuario = c.GetString("USUARIO") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + c.Position=0 + ' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS")) + If c.GetString("CUANTOS") > 0 Then + Private cbFactura As Int = 0 + If cb_factura.Checked Then cbFactura = 1 + B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + End If + c.Close + DateTime.TimeFormat = "HHmmss" + sTime=DateTime.Time(DateTime.Now) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) + ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") + Try + c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ + "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ + " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ + "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _ + " Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _ + " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ") + c.Position = 0 + stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 + stay_mi = c.GetString("MINUTOS_TOTALES") * 60 + stay_ss = c.GetString("SEGUNDOS_TOTALES") + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss)) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) + c.Close + Catch + ToastMessageShow(".",True) + End Try + + skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) + ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) + Subs.actualizaTET(la_cuenta.text) + DateTime.TimeFormat = "HH:mm:ss" + +' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! + mandapiezas + B4XPages.MainPage.productos.reiniciarlistaProds = True + B4XPages.MainPage.productos.prodsMap.Initialize + B4XPages.MainPage.promos.promosMap.Initialize + Guardar.Enabled = True + gest.Enabled = True + b_cxc.Enabled = True + Tar.Enabled = True + Tels.Enabled = True + b_ventaabordo.Enabled = True + HIST.Enabled = True + banderaimp = 0 + mandaPendientePagare + B4XPages.ShowPage("Principal") + End If Else If B4XPages.MainPage.recarga = "1" Then DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) @@ -1069,6 +1161,7 @@ Sub GUADAVENTA2 B4XPages.ShowPage("login") B4XPages.MainPage.recarga = "0" End If + End Sub Sub NUEVO_Click @@ -3022,4 +3115,90 @@ Private Sub Button1_Click B4XPages.ShowPage("Productosdev") ' B4XPages.ShowPage("Productos") +End Sub + +Private Sub c_cancelfolio_Click + p_folio.Visible = False +End Sub + +Private Sub c_acep_folio_Click + If et_folio.Text <> "" Then + + B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_FOLIOFAC = '${et_folio.Text}' WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_DESCRAGA = '1'"$) + et_folio.Text = "" + p_folio.Visible = False + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") + c.Position=0 + clie_id = c.GetString("CUENTA") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") + c.Position=0 + usuario = c.GetString("USUARIO") + c.Close + c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + c.Position=0 + ' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS")) + If c.GetString("CUANTOS") > 0 Then + Private cbFactura As Int = 0 + If cb_factura.Checked Then cbFactura = 1 + B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + End If + c.Close + DateTime.TimeFormat = "HHmmss" + sTime=DateTime.Time(DateTime.Now) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime)) + ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)") + Try + c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _ + "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _ + " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _ + "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _ + " Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _ + " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ") + c.Position = 0 + stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 + stay_mi = c.GetString("MINUTOS_TOTALES") * 60 + stay_ss = c.GetString("SEGUNDOS_TOTALES") + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss)) + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) + c.Close + Catch + ToastMessageShow(".",True) + End Try + + skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text)) + ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) + Subs.actualizaTET(la_cuenta.text) + DateTime.TimeFormat = "HH:mm:ss" + +' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! + mandapiezas + B4XPages.MainPage.productos.reiniciarlistaProds = True + B4XPages.MainPage.productos.prodsMap.Initialize + B4XPages.MainPage.promos.promosMap.Initialize + Guardar.Enabled = True + gest.Enabled = True + b_cxc.Enabled = True + Tar.Enabled = True + Tels.Enabled = True + b_ventaabordo.Enabled = True + HIST.Enabled = True + banderaimp = 0 + mandaPendientePagare + B4XPages.ShowPage("Principal") + + Else + MsgboxAsync("Captura un folio valido.","Atención") + End If +End Sub + +Private Sub p_folio_Click + End Sub \ No newline at end of file diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index 7f0054c..2433353 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -92,18 +92,33 @@ Sub B4XPage_Appear For i = 0 To c.RowCount - 1 c.Position = i CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i) - d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$) - If d.RowCount = 0 Then - cxc.Visible = False - Else - cxc.Visible = True - End If - - d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) -' LogColor(d.RowCount,Colors.Blue) +' d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$) +' If d.RowCount = 0 Then +' cxc.Visible = False +' Else +' cxc.Visible = True +' End If +' +' d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) +'' LogColor(d.RowCount,Colors.Blue) +' If d.RowCount > 0 Then +' d.Position = 0 +' If d.GetString("CAT_CL_BCREDITO") = "1" Then +' CREDITO.Visible = True +' Else +' CREDITO.Visible = False +' End If +' d.Close +' Else +' CREDITO.Visible = False +' End If + + d = B4XPages.MainPage.skmt.ExecQuery($"select PE_DESCRAGA FROM PEDIDO WHERE PE_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' ORDER BY PE_DESCRAGA ASC"$) + ' LogColor(d.RowCount,Colors.Blue) If d.RowCount > 0 Then d.Position = 0 - If d.GetString("CAT_CL_BCREDITO") = "1" Then + If d.GetString("PE_DESCRAGA") = "1" Then + Log("aQUI") CREDITO.Visible = True Else CREDITO.Visible = False @@ -112,6 +127,8 @@ Sub B4XPage_Appear Else CREDITO.Visible = False End If + + Next If c.RowCount>0 Then For i=0 To c.RowCount -1 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index bb61273..d83f9fa 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -20,6 +20,7 @@ Sub Class_Globals Dim trabajar As Button ' Dim lat_gps, lon_gps As String Dim c As Cursor + Dim a As Cursor Dim d As Cursor Dim b As Cursor Dim e As Cursor @@ -249,6 +250,10 @@ Sub Class_Globals Private b_regreso As Button Private b_productos As Button + Private L_CANT_PCIK As Label + Private et_merma As EditText + Private CheckBox1 As CheckBox + Private b_terpc As Button End Sub 'You can add more parameters here. @@ -719,6 +724,82 @@ End Sub Sub Subir_Click + Starter.skmt.ExecNonQuery("delete from CUENTAA") + Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("63403")) + + Subs.panelVisible(P_CIEGO,0,0) + P_CIEGO.Width = Root.Width + P_CIEGO.Height = Root.Height + CLV_PICK_CIEGO.Clear + Private abor As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID, ifnull(PC_CANT,0) AS PC_CAN FROM CAT_GUNAPROD2 INNER JOIN PICK_CIEGO ON PC_ID_PROD = CAT_GP_ID WHERE CAT_GP_ALMACEN > 0 GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$) + If abor.RowCount > 0 Then + + For fgfg = 0 To abor.RowCount - 1 + abor.Position = fgfg + + CLV_PICK_CIEGO.Add(CreateListItem(abor.GetString("CAT_GP_ID"),abor.GetString("CAT_GP_NOMBRE"), abor.GetString("PC_CAN"), abor.GetString("CAT_GP_ALMACEN")),fgfg) + + Next + + + Private abor3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ALMACEN > 0 GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$) + + For tyty = 0 To abor3.RowCount - 1 + abor3.Position = tyty + CLV_PICK_CIEGO.Add(CreateListItem2(abor3.GetString("CAT_GP_ID"), abor3.GetString("CAT_GP_NOMBRE"), abor3.GetString("CAT_GP_ALMACEN")),tyty) + Next + + + + Else If abor.RowCount = 0 Then + + Private abor2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ALMACEN > 0 AND CAT_GP_ID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO) GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$) + + For tyty = 0 To abor2.RowCount - 1 + abor2.Position = tyty + CLV_PICK_CIEGO.Add(CreateListItem2(abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_ALMACEN")),tyty) + Next + + End If + +End Sub + +Sub CreateListItem(Id_prod As String, Prod As String,cant As String,cantreal As String) As Panel + Dim pa As B4XView = xui.CreatePanel("") + pa.SetLayoutAnimated(0, 0, 0, 1, 10) + pa.LoadLayout("PANEL_PICK_CIEGO") + pa.Height = 220dip + pa.Width = 298dip + 'pa.Width = clv_orden.GetBase.Width + L_PICK_CIEGO.Text = Id_prod & CRLF & Prod + L_PICK_CIEGO.TextSize = 15 +' L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL) + ET_PICK_CIEGO.Text = cant + L_CANT_PCIK.Text = cantreal + 'cxc.Id_prod = mostrar3 + 'Log(pa.Width) + Return pa +End Sub + +Sub CreateListItem2(Id_prod As String, Prod As String,cantreal As String) As Panel + Dim pa As B4XView = xui.CreatePanel("") + pa.SetLayoutAnimated(0, 0, 0, 1, 10) + pa.LoadLayout("cuentamerma") + pa.Height = 220dip + pa.Width = 298dip + 'pa.Width = clv_orden.GetBase.Width + L_PICK_CIEGO.Text = Id_prod & CRLF & Prod + L_PICK_CIEGO.TextSize = 15 +' L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL) + L_CANT_PCIK.Text = cantreal + 'cxc.Id_prod = mostrar3 + 'Log(pa.Width) + Return pa +End Sub + + +Sub Envioinfo + CARGA = "SUBIR" p_mandaInfo.Width = Root.Width p_mandaInfo.Height = Root.Height @@ -787,7 +868,7 @@ Sub Subir_Click ' Next ' End If ' c.Close -' + ' ' 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 @@ -917,7 +998,7 @@ Sub Subir_Click ' Log(c.GetString("PE_CEDIS")&", "&ALMACEN&", "&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")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN) If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Then cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA") - Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then + Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA") Else If c.GetString("PE_FOLIO") = "ABORDO" Then cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO") @@ -1116,6 +1197,7 @@ Sub Subir_Click ' End If End If + End Sub @@ -1256,10 +1338,10 @@ Sub cargar_Click cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "coords_almacen") -' cmd.Initialize -' cmd.Name = "select_cat_gunaprod3_TGUERRERAS" -' cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text) -' reqManager.ExecuteQuery(cmd , 0, "gunaprod3") + cmd.Initialize + cmd.Name = "select_cat_gunaprod3_TGUERRERAS" + cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text) + reqManager.ExecuteQuery(cmd , 0, "gunaprod3") ' cmd.Initialize cmd.Name = "select_cat_GIRO_TGUERRERAS" @@ -1949,7 +2031,6 @@ Sub JobDone(Job As HttpJob) Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_DP_NOMBRE")) Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_DP_IMP1")) Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_DP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO")) Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF")) Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_DP_STS")) Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO")) @@ -1959,12 +2040,20 @@ Sub JobDone(Job As HttpJob) ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_DP_TIPOPROD")) Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_DP_INICIATIVA")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO")) + Dim CAT_DP_PRECIO10 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO10")) + Dim CAT_DP_PRECIO2 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO2")) + Dim CAT_DP_PRECIO1 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO1")) + Dim CAT_DP_PRECIO3 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO3")) + Dim CAT_DP_PRECIO4 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO4")) + Dim CAT_DP_PRECIO9 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO9")) + Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1")) ' CAT_GP_INICIATIVA = 5 ' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV)) Dim CAT_GP_NOMBRE As String = CAT_GP_NOMBRE.Trim - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD3(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD3(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1, CAT_DP_PRECIO2,CAT_DP_PRECIO1,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO2,CAT_DP_PRECIO1,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9)) Next End If End If @@ -2446,6 +2535,9 @@ Private Sub B4XPage_CloseRequest As ResumableSub Else if Panel5.Visible Then B_OK_PANEL5_Click Return False + Else if P_CIEGO.Visible Then + P_CIEGO.Visible = False + Return False Else If pnlCobranza.Visible Then pnlCobranza.Visible = False Return False @@ -3401,3 +3493,246 @@ Private Sub b_productos_Click c.Close End Sub + + +Private Sub CheckBox1_CheckedChange(Checked As Boolean) + +End Sub + +Private Sub P_CIEGO_Click + +End Sub + +Private Sub b_terpc_Click +' 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) +' +' Dim consecutivo As Int = 1000 +' For i = 0 To CLV_PICK_CIEGO.Size - 1 +' ' Retrieve the panel and child views for the current item +' Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i) +' Dim innerPanel As B4XView = itemPanel.GetView(0) +' Dim editText As B4XView = innerPanel.GetView(1) +' Dim inputText As String = editText.As(EditText).Text +' Dim labelcant As B4XView = innerPanel.GetView(2) +' Dim cantidadrestar As String = labelcant.As(Label).Text +' +' ' Check if the input text matches the regex pattern for zeros or if it's empty +' If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then +' inputText = "0" +' End If +' +' ' Retrieve and process the ID label +' Dim idLabel As B4XView = innerPanel.GetView(0) +' Dim idText As String = idLabel.As(Label).Text +' Dim idParts() As String = Regex.Split(CRLF, idText) +'' Log(idParts(1)) +' f=Starter.skmt.ExecQuery("select RUTAA from RUTAA") +' f.Position=0 +'' Log(f.GetString("RUTAA")) +' a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") +' If a.RowCount>0 Then +' a.Position=0 +' End If +' Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") +' k.Position = 0 +' Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA")) +'' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) +' Dim fechatabulador3 As String = fechatabulador(0) +' k.Close +' If inputText <> "" And inputText <> 0 Then +' Log("IMPUT DIFERENTE DE CERO") +' Log(idParts(0)) +' Log(cantidadrestar) +' Log(inputText) +' Dim restado As Int = cantidadrestar - inputText +' Log(cantidadrestar - inputText) +' c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0))) +' +' If c.RowCount = 0 Then +' ' Insert data into the database +'' Log(f.GetString("RUTAA")) +'' Log("entro aqui2") +' +' Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA, RESTA) VALUES(?,?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime, restado)) +' If restado > 0 And inputText <> 0 Then +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' Log("MAYOR A CERO") +' consecutivo = consecutivo + 1 +' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$) +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else +'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0)) +' End If +' Else If restado < 0 And inputText <> 0 Then +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' Log("MENOR A CERO") +' consecutivo = consecutivo + 1 +' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$) +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else +'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0)) +' End If +' End If +' Else +'' Log(f.GetString("RUTAA")) +'' Log("entro aqui") +' Dim restadoanterior As Cursor = Starter.skmt.ExecQuery($"select RESTA from PICK_CIEGO WHERE PC_ID_PROD = '${idParts(0)}'"$) +' restadoanterior.Position = 0 +' +'' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF +' If restadoanterior.GetInt("RESTA") > 0 And restadoanterior.GetInt("RESTA") <> restado Then +' +' +' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$) +' +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' +' Log("MAYOR A CERO UPDATE") +' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF +' If restado > 0 Then +' Log("AQUI ES FALTANTE") +'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${restado}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${restado}'))*'${preciofull}'), PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else If restado < 0 Then +' Log("AQUI ES SOBRANTE") +'' Log($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else If restado = 0 Then +' Log("AQUI ES SOBRANTE") +' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' +' End If +' +' End If +' Else If restadoanterior.GetInt("RESTA") < 0 And restadoanterior.GetInt("RESTA") <> restado Then +' Log("es sobrante") +' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'SOBRANTE'"$) +' If sobrantes.RowCount > 0 Then +' sobrantes.Position = 0 +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' +' Log("MENOR A CERO UPDATE") +' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF +' If restado > 0 Then +'' Log("AQUI NO ES SOBRANTE") +'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${restado}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${restado}'))*'${preciofull}'), PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' Else If restado < 0 Then +'' Log("AQUI ES SOBRANTE") +'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${(-1*restado)}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${(-1*restado)}'))*'${preciofull}'), PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${-1*restado}', PE_COSTO_TOT= '${-1*restado}'*'${preciofull}', PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' Else If restado = 0 Then +' Log("a eliminar") +' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' '' FALTAN LOS CEROS QUITAR DE PEDIDO Y DEL PICKCIEGO +' End If +' End If +' Else If restadoanterior.GetInt("RESTA") = 0 And restadoanterior.GetInt("RESTA") <> restado Then +' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF +' If restado > 0 And inputText <> 0 Then +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' Log("MAYOR A CERO") +' consecutivo = consecutivo + 1 +' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$) +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else +'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0)) +' End If +' Else If restado < 0 And inputText <> 0 Then +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +' Log("MENOR A CERO") +' consecutivo = consecutivo + 1 +' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$) +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$) +' Else +'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0)) +' End If +' End If +' Else If restadoanterior.GetInt("RESTA") = 0 And restado = 0 Then +' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND PE_TIPO NOT IN ('DANADO') "$) +' End If +' End If +' Else If inputText = "" Or inputText = 0 Then +' Log("IMPUT IGUAL DE CERO") +' Log(idParts(0)) +' Log(cantidadrestar) +' Log(inputText) +' Dim restado As Int = cantidadrestar - inputText +' Log(cantidadrestar - inputText) +' Dim faltantes As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0))) +' If faltantes.RowCount > 0 Then +' faltantes.Position = 0 +' Starter.skmt.ExecNonQuery($"delete from PICK_CIEGO where PC_ID_PROD = '${idParts(0)}'"$) +' End If +'' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO in ('SOBRANTE','FALTANTE')"$) +' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403'"$) +' If sobrantes.RowCount > 0 Then +' sobrantes.Position = 0 +' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$) +' End If +' +' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$) +' If preciocat.RowCount > 0 Then +' preciocat.Position = 0 +' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO") +' End If +' preciocat.Close +'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0)) +' +' End If +' f.Close +' a.Close +' Log("Processed item " & i) +' Next + Envioinfo + P_CIEGO.Visible = False +End Sub \ No newline at end of file diff --git a/B4A/C_Productosdev.bas b/B4A/C_Productosdev.bas index 37cf3c4..f10b794 100644 --- a/B4A/C_Productosdev.bas +++ b/B4A/C_Productosdev.bas @@ -546,6 +546,9 @@ Sub CreateListItem(Text As String, precioU As String, inv As Int, Width As Int, End Sub Sub b_prodMenos_Click + + + totalcajasmaspiezas = 0 etCantHasFocus = False Root.RequestFocus @@ -560,85 +563,107 @@ Sub b_prodMenos_Click Dim panelcajas As B4XView = pnl.GetView(3) Dim panelpiezas As B4XView = pnl.GetView(2) ' Log($"precio|stock:${laCant.tag}"$) - If laCant.Text = "" Then laCant.Text = 0 -' Log("lacant.text="&laCant.text) - laCant.Text = $"${NumberFormat2(laCant.Text-1,0,0,0,False)}"$ - If laCant.Text < 0 Then laCant.Text = 0 Private tmpMap1 As Map = clv_prods_ll.GetValue(index).As(Map) Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":Subs.traeAlmacen) Private nombreX As String = Subs.traeProdNombre(id) - LogColor(tmpMap1,Colors.Magenta) -' prodsMap.Put(id, tmpMap) - If laCant.Text = 0 Then prodsMap.Remove(id) - If laCant.Text = 0 Then - panelcajas.Visible = True - Else If laCant.Text > 0 Then - panelcajas.Visible = False - End If + Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${id}'"$) + + If abor.RowCount > 0 Then + abor.Position = 0 + If abor.GetInt("CAT_GP_ALMACEN") -1 >= 0 Then + + + If laCant.Text = "" Then laCant.Text = 0 +' Log("lacant.text="&laCant.text) + + + laCant.Text = $"${NumberFormat2(laCant.Text-1,0,0,0,False)}"$ + If laCant.Text < 0 Then laCant.Text = 0 + LogColor(tmpMap1,Colors.Magenta) + + + +' prodsMap.Put(id, tmpMap) + If laCant.Text = 0 Then prodsMap.Remove(id) + + If laCant.Text = 0 Then + panelcajas.Visible = True + Else If laCant.Text > 0 Then + panelcajas.Visible = False + End If ' If laCant2.IsInitialized Then ' totalcajasmaspiezas = laCant.Text + laCant2.Text ' Else ' totalcajasmaspiezas = laCant.Text ' End If - LogColor("prodsMap="&prodsMap, Colors.blue) + LogColor("prodsMap="&prodsMap, Colors.blue) ' (Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) - Log($"${Subs.traeAlmacen}, ${precio}, ${laCant.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$) - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) - cuentaProds - LogColor("prodsMap="&prodsMap, Colors.blue) - Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" - If o.RowCount > 0 Then - o.Position = 0 - invActualizado = o.GetString("CAT_GP_ALMACEN") - End If - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas As Int = 0 - Log("cajas a 0") - Else - Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If + Log($"${Subs.traeAlmacen}, ${precio}, ${laCant.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$) + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + cuentaProds + LogColor("prodsMap="&prodsMap, Colors.blue) + Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) + If 1 = 1 Then + Private cs As CSBuilder + cs.Initialize + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) + Private invActualizado As String = "0" + If o.RowCount > 0 Then + o.Position = 0 + invActualizado = o.GetString("CAT_GP_ALMACEN") + End If + If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then + Private maxcajas As Int = 0 + Log("cajas a 0") + Else + Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") + Log("cajas no a 0") + End If ' Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall +' If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).Popall +' If 2 = 2 Then lProdX.Text = "" ' Log(lProdX.Text) - End If + End If - If laCant.Text = 0 Then - If maxcajas > 0 Then - panelcajas.Visible = True - Else - panelcajas.Visible = False - End If - Else If laCant.Text > 0 Then - panelcajas.Visible = False - End If + If laCant.Text = 0 Then + If maxcajas > 0 Then + panelcajas.Visible = False + Else + panelcajas.Visible = False + End If + Else If laCant.Text > 0 Then + panelcajas.Visible = False + End If - If Subs.totalPedido < 1 Then laCant.Text = "0" - invTotal = totalcajasmaspiezas + Subs.traeinventario(id) - 'aqui si lo comentamos aparece la parte de cajas - If tmpMap1.Get("conversion") = "1" Or tmpMap1.Get("precio_caja") = "0" Then - Log("invisible") - panelbotonesc.Visible = False - End If +' If Subs.totalPedido < 1 Then laCant.Text = "0" + invTotal = totalcajasmaspiezas + Subs.traeinventario(id) + 'aqui si lo comentamos aparece la parte de cajas + If tmpMap1.Get("conversion") = "1" Or tmpMap1.Get("precio_caja") = "0" Then + Log("invisible") + panelbotonesc.Visible = False + End If - If clv_prods_ll.GetValue(index).As(Map).Get("almacen") < clv_prods_ll.GetValue(index).As(Map).Get("conversion") Then - Log(clv_prods_ll.GetValue(index).As(Map).Get("cant")) - If clv_prods_ll.GetValue(index).As(Map).Get("cant").As(Int) = 0 Then - Log("Aqui debemos ponerlo invisible") - panelcajas.Visible = False - Else + If clv_prods_ll.GetValue(index).As(Map).Get("almacen") < clv_prods_ll.GetValue(index).As(Map).Get("conversion") Then + Log(clv_prods_ll.GetValue(index).As(Map).Get("cant")) + If clv_prods_ll.GetValue(index).As(Map).Get("cant").As(Int) = 0 Then + Log("Aqui debemos ponerlo invisible") + panelcajas.Visible = False + Else - End If + End If ' p_botMasMenc.Visible = False + End If + + Else + MsgboxAsync("No se puede quitar la devolucion por que no hay producto fisico.","Atención.") + End If End If + + 'fin aparecer parte de cajas ' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) End Sub @@ -717,7 +742,7 @@ Sub b_prodMas_Click ' End If - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) cuentaProds ' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) If 1 = 1 Then @@ -771,7 +796,7 @@ Sub b_prodMas_Click ' End If - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) cuentaProds ' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) If 1 = 1 Then @@ -790,7 +815,9 @@ Sub b_prodMas_Click Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") Log("cajas no a 0") End If - If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall +' If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).Popall +' If 2 = 2 Then lProdX.Text = "" ' Log(lProdX.Text) End If invTotal = totalcajasmaspiezas + Subs.traeinventario(id) @@ -859,27 +886,218 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) panelcajas.Visible = False Else If New = 0 Then - panelcajas.Visible = True + panelcajas.Visible = False +' panelcajas.Visible = True + End If Log(Old) + If Old <> "" Then - Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) - If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then + Log(New < Old) - Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") - fg.Position = 0 - If Old = "" Or Old = Null Then New = 0 - Log(precio &" * "&Old) + + If New < Old Then + + + Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${id}'"$) + + If abor.RowCount > 0 Then + abor.Position = 0 + Log(abor.GetInt("CAT_GP_ALMACEN") -Old >= 0) + If abor.GetInt("CAT_GP_ALMACEN") -Old >= 0 Then + + + + Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) + If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then + + Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") + fg.Position = 0 + If Old = "" Or Old = Null Then New = 0 + Log(precio &" * "&Old) - Log(fg.GetString("COSTO") +(precio*New)) - If fg.GetString("COSTO") +((precio*New)-(precio*Old)) <= B4XPages.MainPage.cliente.credito_diponible Then + Log(fg.GetString("COSTO") +(precio*New)) + If fg.GetString("COSTO") +((precio*New)-(precio*Old)) <= B4XPages.MainPage.cliente.credito_diponible Then +' If laCant2.IsInitialized Then +' totalcajasmaspiezas = laCant.Text + laCant2.Text +' Else +' totalcajasmaspiezas = laCant.Text +' End If + If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then + Log("actualizamos producto") + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + cuentaProds + End If + +' If New <> "" And New.SubString2(0,0) = "0" Then +' New.SubString(1) +' End If +' If New <> "" And New.SubString(1) <> "" Then +' Log(New.SubString(1)) +' New = New.SubString(1) +' laCant.Text = New.SubString(1) +' Log(laCant.Text) +' End If + + If 1 = 1 Then + Private cs As CSBuilder + cs.Initialize + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) + Private invActualizado As String = "0" +' If o.RowCount > 0 Then + o.Position = 0 + invActualizado = Subs.traeinventario(id) + Log(Subs.traeinventario(id)) +' End If + + If New = "" Then New = 0 + If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then + Private maxcajas As Int = 0 + Log("cajas a 0") + Else + Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") + Log("cajas no a 0") + End If + lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + End If + Else + laCant.Text = 0 + MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") + End If + Else +' If laCant2.IsInitialized Then +' totalcajasmaspiezas = laCant.Text + laCant2.Text +' Else +' totalcajasmaspiezas = laCant.Text +' End If + If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then + Log("actualizamos producto") + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + cuentaProds + End If + +' If New <> "" And New.SubString2(0,0) = "0" Then +' New.SubString(1) +' End If +' If New <> "" And New.SubString(1) <> "" Then +' Log(New.SubString(1)) +' New = New.SubString(1) +' laCant.Text = New.SubString(1) +' Log(laCant.Text) +' End If + If 1 = 1 Then + Private cs As CSBuilder + cs.Initialize + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) + Private invActualizado As String = "0" +' If o.RowCount > 0 Then + o.Position = 0 + invActualizado = Subs.traeinventario(id) + Log(Subs.traeinventario(id)) +' End If + If New = "" Then New = 0 + If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then + Private maxcajas As Int = 0 + Log("cajas a 0") + Else + Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") + Log("cajas no a 0") + End If +' lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + lProdX.Text = cs.Color(Colors.red).append(nombreX).Popall +' lProdX.Text = "" + End If + End If + + If New > 0 Then + panelcajas.Visible = False + Else If New = 0 Then + If maxcajas = 0 Then + panelcajas.Visible = False + Else + panelcajas.Visible = True + End If + End If + + Else + laCant.Text = Old + MsgboxAsync("No se puede quitar la devolucion por que no hay producto fisico.","Atención.") + End If + End If + + Else + + + + Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) + If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then + + Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") + fg.Position = 0 + If Old = "" Or Old = Null Then New = 0 + Log(precio &" * "&Old) + + + + Log(fg.GetString("COSTO") +(precio*New)) + If fg.GetString("COSTO") +((precio*New)-(precio*Old)) <= B4XPages.MainPage.cliente.credito_diponible Then + + + +' If laCant2.IsInitialized Then +' totalcajasmaspiezas = laCant.Text + laCant2.Text +' Else +' totalcajasmaspiezas = laCant.Text +' End If + If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then + Log("actualizamos producto") + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + cuentaProds + End If + +' If New <> "" And New.SubString2(0,0) = "0" Then +' New.SubString(1) +' End If +' If New <> "" And New.SubString(1) <> "" Then +' Log(New.SubString(1)) +' New = New.SubString(1) +' laCant.Text = New.SubString(1) +' Log(laCant.Text) +' End If + + If 1 = 1 Then + Private cs As CSBuilder + cs.Initialize + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) + Private invActualizado As String = "0" +' If o.RowCount > 0 Then + o.Position = 0 + invActualizado = Subs.traeinventario(id) + Log(Subs.traeinventario(id)) +' End If + + If New = "" Then New = 0 + If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then + Private maxcajas As Int = 0 + Log("cajas a 0") + Else + Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") + Log("cajas no a 0") + End If + lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + End If + Else + laCant.Text = 0 + MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") + End If + Else ' If laCant2.IsInitialized Then ' totalcajasmaspiezas = laCant.Text + laCant2.Text ' Else @@ -887,7 +1105,7 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) ' End If If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then Log("actualizamos producto") - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) + Subs.actualizaProducto3(Subs.traeAlmacen, 0, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) cuentaProds End If @@ -900,7 +1118,6 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) ' laCant.Text = New.SubString(1) ' Log(laCant.Text) ' End If - If 1 = 1 Then Private cs As CSBuilder cs.Initialize @@ -911,7 +1128,6 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) invActualizado = Subs.traeinventario(id) Log(Subs.traeinventario(id)) ' End If - If New = "" Then New = 0 If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then Private maxcajas As Int = 0 @@ -920,67 +1136,29 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") Log("cajas no a 0") End If - lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall +' lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + lProdX.Text = cs.Color(Colors.red).append(nombreX).Popall +' lProdX.Text = "" End If - Else - laCant.Text = 0 - MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") End If - Else -' If laCant2.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text -' Else -' totalcajasmaspiezas = laCant.Text -' End If - If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then - Log("actualizamos producto") - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0) - cuentaProds - End If - -' If New <> "" And New.SubString2(0,0) = "0" Then -' New.SubString(1) -' End If -' If New <> "" And New.SubString(1) <> "" Then -' Log(New.SubString(1)) -' New = New.SubString(1) -' laCant.Text = New.SubString(1) -' Log(laCant.Text) -' End If - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" -' If o.RowCount > 0 Then - o.Position = 0 - invActualizado = Subs.traeinventario(id) - Log(Subs.traeinventario(id)) -' End If - If New = "" Then New = 0 - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas As Int = 0 - Log("cajas a 0") - Else - Private maxcajas As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If - lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas}"$).Popall - End If - End If - End If - If New > 0 Then - panelcajas.Visible = False - Else If New = 0 Then - If maxcajas = 0 Then + + If New > 0 Then panelcajas.Visible = False - Else - panelcajas.Visible = True + Else If New = 0 Then + If maxcajas = 0 Then + panelcajas.Visible = False + Else + panelcajas.Visible = True + End If End If + End If + End If + End If End Sub + Sub cuentaProds ' LogColor($"Productos de la orden: ${c_prods.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red) Log("===========================") @@ -1440,7 +1618,8 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In ' Log("cajas no a 0") End If ' Private maxcajas As Int = clv_prods_ll.GetValue(i).As(Map).Get("almacen")/clv_prods_ll.GetValue(i).As(Map).Get("conversion") - l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($" $${precio}${CRLF}Max. Cajas: ${maxcajas}"$).Popall +' l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($" $${precio}${CRLF}Max. Cajas: ${maxcajas}"$).Popall + l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).Popall 'aqui si lo comentamos aparece la parte de cajas '' por aqui vamos a corregir ''Or clv_prods_ll.GetValue(i).As(Map).Get("almacen") < clv_prods_ll.GetValue(i).As(Map).Get("conversion") @@ -1618,388 +1797,388 @@ End Sub -Sub b_prodMenosc_Click - totalcajasmaspiezas = 0 - etCantHasFocus = False - Root.RequestFocus -' LogColor("b_prodMenos_Click", Colors.Magenta) - Dim index As Int = clv_prods_ll.GetItemFromView(Sender) - Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) - Dim pnl As B4XView = pnl0.GetView(0) - Dim laCant As B4XView = pnl.GetView(2).GetView(2) - Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) - Dim lProdX As B4XView = pnl.GetView(1) - Dim panelcajas As B4XView = pnl.GetView(3) - Dim panelpiezas As B4XView = pnl.GetView(2) -' Log($"precio|stock:${laCant.tag}"$) - If laCant2.Text = "" Then laCant2.Text = 0 -' Log("lacant.text="&laCant.text) - laCant2.Text = $"${NumberFormat2(laCant2.Text-1,0,0,0,False)}"$ - If laCant2.Text < 0 Then laCant2.Text = 0 - Private tmpMap As Map = clv_prods_ll.GetValue(index).As(Map) - Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") - Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") - Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant2.Text, "almacen":Subs.traeAlmacen) - Private nombreX As String = Subs.traeProdNombre(id) - Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") - - Log(tmpMap) -' prodsMap.Put(id, tmpMap) - If laCant2.Text = 0 Then prodsMap.Remove(id) - If laCant2.Text = 0 Then - panelpiezas.Visible = True - Else If laCant2.Text > 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion") < clv_prods_ll.GetValue(index).As(Map).Get("almacen") Then - panelpiezas.Visible = False - End If -' If laCant.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text -' Else -' totalcajasmaspiezas = laCant2.Text -' End If - LogColor("prodsMap="&prodsMap, Colors.blue) -' (Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) - Log($"${Subs.traeAlmacen}, ${precio}, ${laCant2.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$) -' Subs.actualizaProducto(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - Subs.actualizaProducto2(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - cuentaProds - LogColor("prodsMap="&prodsMap, Colors.blue) - Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" - If o.RowCount > 0 Then - o.Position = 0 - invActualizado = o.GetString("CAT_GP_ALMACEN") - End If - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas2 As Int = 0 - Log("cajas a 0") - Else - Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If - If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall -' Log(lProdX.Text) - End If - If Subs.totalPedido < 1 Then laCant2.Text = "0" - invTotal = totalcajasmaspiezas + Subs.traeinventario(id) -' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) - -End Sub - -Sub b_prodMasc_Click - etCantHasFocus = False - Root.RequestFocus -' LogColor("b_prodMas_Click", Colors.Magenta) - - Dim index As Int = clv_prods_ll.GetItemFromView(Sender) - Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) - Dim pnl As B4XView = pnl0.GetView(0) - Dim laCant As B4XView = pnl.GetView(2).GetView(2) - Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) - Dim lProdX As B4XView = pnl.GetView(1) - Dim panelcajas As B4XView = pnl.GetView(3) - Dim panelpiezas As B4XView = pnl.GetView(2) +'Sub b_prodMenosc_Click +' totalcajasmaspiezas = 0 +' etCantHasFocus = False +' Root.RequestFocus +'' LogColor("b_prodMenos_Click", Colors.Magenta) +' Dim index As Int = clv_prods_ll.GetItemFromView(Sender) +' Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) +' Dim pnl As B4XView = pnl0.GetView(0) +' Dim laCant As B4XView = pnl.GetView(2).GetView(2) +' Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) +' Dim lProdX As B4XView = pnl.GetView(1) +' Dim panelcajas As B4XView = pnl.GetView(3) +' Dim panelpiezas As B4XView = pnl.GetView(2) +'' Log($"precio|stock:${laCant.tag}"$) +' If laCant2.Text = "" Then laCant2.Text = 0 +'' Log("lacant.text="&laCant.text) +' laCant2.Text = $"${NumberFormat2(laCant2.Text-1,0,0,0,False)}"$ +' If laCant2.Text < 0 Then laCant2.Text = 0 ' Private tmpMap As Map = clv_prods_ll.GetValue(index).As(Map) - Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") - Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen") - Private existencias As String = clv_prods_ll.GetValue(index).As(Map).Get("almacen") - Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") - Log(conversion) - Log($"Existencias: ${existencias}"$) - If laCant2.Text = "" Then laCant2.Text = 0 - Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") -' If laCant.Text + 1 <= inv Then - '' Log(NumberFormat2(laCant.Text+1,0,0,0,False)) -' laCant.Text = $"${NumberFormat2(laCant.Text+1,0,0,0,False)}"$ - '' Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") -' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") - '' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":Subs.traeAlmacen) - '' Log(tmpMap) - '' prodsMap.Put(id, tmpMap) - '' LogColor(prodsMap, Colors.blue) +' Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") +' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") +' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant2.Text, "almacen":Subs.traeAlmacen) +' Private nombreX As String = Subs.traeProdNombre(id) +' Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") +' +' Log(tmpMap) +'' prodsMap.Put(id, tmpMap) +' If laCant2.Text = 0 Then prodsMap.Remove(id) +' If laCant2.Text = 0 Then +' panelpiezas.Visible = True +' Else If laCant2.Text > 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion") < clv_prods_ll.GetValue(index).As(Map).Get("almacen") Then +' panelpiezas.Visible = False ' End If -' Log("Cantidad + exis " & (laCant.Text + existencias)) -' Log( (laCant.Text + 1 <= (laCant.Text + existencias))) -' Log("inventario "&Subs.traeinventario(id)) -' Log((Subs.totalPedido - precio > 1)) -' Log((Subs.totalPedido)) - - Log(B4XPages.MainPage.tipo_venta) - Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) - Log(preciocaja) -' Log(precio) - If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then - - Dim fg As Cursor = Starter.skmt.ExecQuery("Select Ifnull(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") - fg.Position = 0 - If fg.GetString("COSTO") + preciocaja <= B4XPages.MainPage.cliente.credito_diponible Then - - Log(Subs.traeinventario(id)) - Log((laCant2.Text * conversion) + conversion) - Log((laCant2.Text *conversion)+ Subs.traeinventario(id)) - If Subs.traeinventario(id) > 0 And ((laCant2.Text * conversion) + conversion <= ((laCant2.Text *conversion)+ Subs.traeinventario(id))) Then 'And (Subs.totalPedido - precio > 1) -' Log(clv_prods_ll.GetValue(index).As(Map)) - clv_prods_ll.GetValue(index).As(Map).Put("almacen", (inv - conversion)) - inv = inv - conversion -' laCant.Text = $"$1.0{laCant.Text+1}"$ - laCant2.Text = NumberFormat2((laCant2.Text + 1), 1, 0, 0, False) -' Log(clv_prods_ll.GetValue(index).As(Map)) - Log("cuando entro aqui?") - End If - Private nombreX As String = Subs.traeProdNombre(id) -' Subs.actualizaProducto(Subs.traeAlmacen, laCant.text, id, clienteId) - Log((laCant2.Text * conversion)) - If laCant2.Text > 0 Then - panelpiezas.Visible = False - Else If laCant2.Text = 0 Then - panelpiezas.Visible = True - End If - -' LogColor(laCant.Text,Colors.Red) -' If laCant.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text -' Else -' totalcajasmaspiezas = laCant2.Text -' End If - -' Subs.actualizaProducto(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - Subs.actualizaProducto2(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - cuentaProds +'' If laCant.IsInitialized Then +'' totalcajasmaspiezas = laCant.Text + laCant2.Text +'' Else +'' totalcajasmaspiezas = laCant2.Text +'' End If +' LogColor("prodsMap="&prodsMap, Colors.blue) +'' (Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) +' Log($"${Subs.traeAlmacen}, ${precio}, ${laCant2.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$) +'' Subs.actualizaProducto(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' Subs.actualizaProducto2(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' cuentaProds +' LogColor("prodsMap="&prodsMap, Colors.blue) ' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" - If o.RowCount > 0 Then - o.Position = 0 - invActualizado = o.GetString("CAT_GP_ALMACEN") - End If - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas2 As Int = 0 - Log("cajas a 0") - Else - Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If - If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall -' Log(lProdX.Text) - End If - invTotal = totalcajasmaspiezas + Subs.traeinventario(id) -' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) - - - Else - MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") - End If - - Else - - Log(Subs.traeinventario(id)) - Log((laCant2.Text * conversion) + conversion) - Log((laCant2.Text *conversion)+ Subs.traeinventario(id)) - If Subs.traeinventario(id) > 0 And ((laCant2.Text * conversion) + conversion <= ((laCant2.Text *conversion)+ Subs.traeinventario(id))) Then 'And (Subs.totalPedido - precio > 1) -' Log(clv_prods_ll.GetValue(index).As(Map)) - clv_prods_ll.GetValue(index).As(Map).Put("almacen", (inv - conversion)) - inv = inv - conversion -' laCant.Text = $"$1.0{laCant.Text+1}"$ - laCant2.Text = NumberFormat2((laCant2.Text + 1), 1, 0, 0, False) -' Log(clv_prods_ll.GetValue(index).As(Map)) - Log("cuando entro aqui?") - End If - Private nombreX As String = Subs.traeProdNombre(id) -' Subs.actualizaProducto(Subs.traeAlmacen, laCant.text, id, clienteId) - Log((laCant2.Text * conversion)) - If laCant2.Text > 0 Then - panelpiezas.Visible = False - Else If laCant2.Text = 0 Then - panelpiezas.Visible = True - End If - -' LogColor(laCant.Text,Colors.Red) -' If laCant.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text -' Else -' totalcajasmaspiezas = laCant2.Text -' End If - -' Subs.actualizaProducto(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - Subs.actualizaProducto2(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - cuentaProds -' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" - If o.RowCount > 0 Then - o.Position = 0 - invActualizado = o.GetString("CAT_GP_ALMACEN") - End If - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas2 As Int = 0 - Log("cajas a 0") - Else - Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If - If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall -' Log(lProdX.Text) - End If - invTotal = totalcajasmaspiezas + Subs.traeinventario(id) -' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) - - End If - - - -End Sub - -Private Sub et_pCantc_FocusChanged (HasFocus As Boolean) - LogColor($"focus changed=${HasFocus}"$, Colors.Magenta) - If et_pCantc.Text = "" Then et_pCantc.Text = "0" - Dim index As Int = clv_prods_ll.GetItemFromView(Sender) - Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) - Dim pnl As B4XView = pnl0.GetView(0) - Dim laCant As B4XView = pnl.GetView(2).GetView(2) - Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) - Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") - If laCant2.Text = "" Then laCant2.Text = "0" - etCantHasFocus = HasFocus -' LogColor(laCant.Text,Colors.Red) -' If laCant.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text -' Else -' totalcajasmaspiezas = laCant2.Text -' End If - invTotal = totalcajasmaspiezas + Subs.traeinventario(id) -' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) - - cuentaProds -End Sub - -Private Sub et_pCantc_TextChanged (Old As String, New As String) -' Log(etCantHasFocus) -' Log("InvTotal: " & invTotal) - If etCantHasFocus = True Then -' Sleep(500) -' LogColor($"txt changed: ${Old}|${New}, hasfocus=${etCantHasFocus}"$,Colors.Magenta) - Dim index As Int = clv_prods_ll.GetItemFromView(Sender) - Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) - Dim pnl As B4XView = pnl0.GetView(0) - Dim laCant As B4XView = pnl.GetView(2).GetView(2) - Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) - Dim lProdX As B4XView = pnl.GetView(1) - Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") - Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") - Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen") - Private inv As String=Subs.traeinventario(id) - Private nombreX As String = Subs.traeProdNombre(id) - Dim panelcajas As B4XView = pnl.GetView(3) - Dim panelpiezas As B4XView = pnl.GetView(2) - Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") - - invTotal = Subs.traeinventario(id) - Log("inventario total "& invTotal) - If(New = "" Or New = Null Or New = "-") Then New = 0 -' If New < 0 Then New = 0 - Log(($"new*conversion ${New * conversion} > ${invTotal} = ${((New * conversion) > invTotal)}"$)) - If((New * conversion) > invTotal) Then -' Dim maximocajas As Int = invTotal / conversion - Sender.As(EditText).text = 0 - New = 0 -' LogColor("cajas maximas "& maximocajas, Colors.Red) - pnl.GetView(2).Visible = True - Log("ponemos en 0") - End If - - Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) - - Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") - fg.Position = 0 - If Old = "" Or Old = Null Then New = 0 - Log(preciocaja &" * "&Old) - - Log((fg.GetString("COSTO") + (preciocaja*New)) & " Monto Actual<-------") - If fg.GetString("COSTO") +((preciocaja*New)) > B4XPages.MainPage.cliente.credito_diponible Then - laCant2.Text = 0 - MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") - End If - - ' Log($"inventario=${inv}"$) - Log("inventario total despues de max "& invTotal) - - If New = "" Then New = 0 - If laCant2.Text = "" Then laCant2.Text = 0 -' LogColor("la cant2 " &laCant2.Text,Colors.Red) - - If New > 0 Then - Log("lo ocultamos") - panelpiezas.Visible = False - Else If New = 0 Then - panelpiezas.Visible = True - End If - -' If laCant.IsInitialized Then -' totalcajasmaspiezas = laCant.Text + laCant2.Text +' If 1 = 1 Then +' Private cs As CSBuilder +' cs.Initialize +' Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) +' Private invActualizado As String = "0" +' If o.RowCount > 0 Then +' o.Position = 0 +' invActualizado = o.GetString("CAT_GP_ALMACEN") +' End If +' If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then +' Private maxcajas2 As Int = 0 +' Log("cajas a 0") ' Else -' totalcajasmaspiezas = laCant2.Text +' Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Log("cajas no a 0") ' End If - Log("InvTotal: " & invTotal) - - If Not(Old = "0" And New = "") And laCant2.Text <> Null And laCant2.Text <> "" And etCantHasFocus Then - If invTotal - (laCant2.Text * conversion) >= 0 Then - LogColor("validacion inventariio " & (invTotal - (laCant2.Text * conversion)), Colors.Blue) - Log("actualizamos producto") - Subs.actualizaProducto2(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) - cuentaProds - Else - Private totalcajaspermi As Int = invTotal / conversion - laCant2.Text = totalcajaspermi - Log("cajas permitidas total por guerra "& totalcajaspermi) - End If - End If - LogColor("la cant2 " & laCant2.Text,Colors.Green) - - -' If New <> "" And New.SubString2(0,0) = "0" Then -' New.SubString(1) -' End If -' If New <> "" And New.SubString(1) <> "" Then -' Log(New.SubString(1)) -' New = New.SubString(1) -' laCant.Text = New.SubString(1) -' Log(laCant.Text) -' End If - - If 1 = 1 Then - Private cs As CSBuilder - cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) - Private invActualizado As String = "0" -' If o.RowCount > 0 Then - o.Position = 0 - invActualizado = Subs.traeinventario(id) - Log(Subs.traeinventario(id)) +' If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall +'' Log(lProdX.Text) +' End If +' If Subs.totalPedido < 1 Then laCant2.Text = "0" +' invTotal = totalcajasmaspiezas + Subs.traeinventario(id) +'' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) +' +'End Sub +' +'Sub b_prodMasc_Click +' etCantHasFocus = False +' Root.RequestFocus +'' LogColor("b_prodMas_Click", Colors.Magenta) +' +' Dim index As Int = clv_prods_ll.GetItemFromView(Sender) +' Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) +' Dim pnl As B4XView = pnl0.GetView(0) +' Dim laCant As B4XView = pnl.GetView(2).GetView(2) +' Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) +' Dim lProdX As B4XView = pnl.GetView(1) +' Dim panelcajas As B4XView = pnl.GetView(3) +' Dim panelpiezas As B4XView = pnl.GetView(2) +'' Private tmpMap As Map = clv_prods_ll.GetValue(index).As(Map) +' Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") +' Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen") +' Private existencias As String = clv_prods_ll.GetValue(index).As(Map).Get("almacen") +' Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") +' Log(conversion) +' Log($"Existencias: ${existencias}"$) +' If laCant2.Text = "" Then laCant2.Text = 0 +' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") +'' If laCant.Text + 1 <= inv Then +' '' Log(NumberFormat2(laCant.Text+1,0,0,0,False)) +'' laCant.Text = $"${NumberFormat2(laCant.Text+1,0,0,0,False)}"$ +' '' Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") +'' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") +' '' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":Subs.traeAlmacen) +' '' Log(tmpMap) +' '' prodsMap.Put(id, tmpMap) +' '' LogColor(prodsMap, Colors.blue) +'' End If +'' Log("Cantidad + exis " & (laCant.Text + existencias)) +'' Log( (laCant.Text + 1 <= (laCant.Text + existencias))) +'' Log("inventario "&Subs.traeinventario(id)) +'' Log((Subs.totalPedido - precio > 1)) +'' Log((Subs.totalPedido)) +' +' Log(B4XPages.MainPage.tipo_venta) +' Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) +' Log(preciocaja) +'' Log(precio) +' If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then +' +' Dim fg As Cursor = Starter.skmt.ExecQuery("Select Ifnull(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") +' fg.Position = 0 +' If fg.GetString("COSTO") + preciocaja <= B4XPages.MainPage.cliente.credito_diponible Then +' +' Log(Subs.traeinventario(id)) +' Log((laCant2.Text * conversion) + conversion) +' Log((laCant2.Text *conversion)+ Subs.traeinventario(id)) +' If Subs.traeinventario(id) > 0 And ((laCant2.Text * conversion) + conversion <= ((laCant2.Text *conversion)+ Subs.traeinventario(id))) Then 'And (Subs.totalPedido - precio > 1) +'' Log(clv_prods_ll.GetValue(index).As(Map)) +' clv_prods_ll.GetValue(index).As(Map).Put("almacen", (inv - conversion)) +' inv = inv - conversion +'' laCant.Text = $"$1.0{laCant.Text+1}"$ +' laCant2.Text = NumberFormat2((laCant2.Text + 1), 1, 0, 0, False) +'' Log(clv_prods_ll.GetValue(index).As(Map)) +' Log("cuando entro aqui?") ' End If - - If New = "" Then New = 0 - Log(clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float)&" Precio caja") - Log(clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int)& " Conversion" ) - If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then - Private maxcajas2 As Int = 0 - Log("cajas a 0") - Else - Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") - Log("cajas no a 0") - End If - lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall - End If - End If -End Sub \ No newline at end of file +' Private nombreX As String = Subs.traeProdNombre(id) +'' Subs.actualizaProducto(Subs.traeAlmacen, laCant.text, id, clienteId) +' Log((laCant2.Text * conversion)) +' If laCant2.Text > 0 Then +' panelpiezas.Visible = False +' Else If laCant2.Text = 0 Then +' panelpiezas.Visible = True +' End If +' +'' LogColor(laCant.Text,Colors.Red) +'' If laCant.IsInitialized Then +'' totalcajasmaspiezas = laCant.Text + laCant2.Text +'' Else +'' totalcajasmaspiezas = laCant2.Text +'' End If +' +'' Subs.actualizaProducto(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' Subs.actualizaProducto2(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' cuentaProds +'' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) +' If 1 = 1 Then +' Private cs As CSBuilder +' cs.Initialize +' Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) +' Private invActualizado As String = "0" +' If o.RowCount > 0 Then +' o.Position = 0 +' invActualizado = o.GetString("CAT_GP_ALMACEN") +' End If +' If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then +' Private maxcajas2 As Int = 0 +' Log("cajas a 0") +' Else +' Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Log("cajas no a 0") +' End If +' If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall +'' Log(lProdX.Text) +' End If +' invTotal = totalcajasmaspiezas + Subs.traeinventario(id) +'' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) +' +' +' Else +' MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") +' End If +' +' Else +' +' Log(Subs.traeinventario(id)) +' Log((laCant2.Text * conversion) + conversion) +' Log((laCant2.Text *conversion)+ Subs.traeinventario(id)) +' If Subs.traeinventario(id) > 0 And ((laCant2.Text * conversion) + conversion <= ((laCant2.Text *conversion)+ Subs.traeinventario(id))) Then 'And (Subs.totalPedido - precio > 1) +'' Log(clv_prods_ll.GetValue(index).As(Map)) +' clv_prods_ll.GetValue(index).As(Map).Put("almacen", (inv - conversion)) +' inv = inv - conversion +'' laCant.Text = $"$1.0{laCant.Text+1}"$ +' laCant2.Text = NumberFormat2((laCant2.Text + 1), 1, 0, 0, False) +'' Log(clv_prods_ll.GetValue(index).As(Map)) +' Log("cuando entro aqui?") +' End If +' Private nombreX As String = Subs.traeProdNombre(id) +'' Subs.actualizaProducto(Subs.traeAlmacen, laCant.text, id, clienteId) +' Log((laCant2.Text * conversion)) +' If laCant2.Text > 0 Then +' panelpiezas.Visible = False +' Else If laCant2.Text = 0 Then +' panelpiezas.Visible = True +' End If +' +'' LogColor(laCant.Text,Colors.Red) +'' If laCant.IsInitialized Then +'' totalcajasmaspiezas = laCant.Text + laCant2.Text +'' Else +'' totalcajasmaspiezas = laCant2.Text +'' End If +' +'' Subs.actualizaProducto(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' Subs.actualizaProducto2(Subs.traeAlmacen,preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' cuentaProds +'' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) +' If 1 = 1 Then +' Private cs As CSBuilder +' cs.Initialize +' Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) +' Private invActualizado As String = "0" +' If o.RowCount > 0 Then +' o.Position = 0 +' invActualizado = o.GetString("CAT_GP_ALMACEN") +' End If +' If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then +' Private maxcajas2 As Int = 0 +' Log("cajas a 0") +' Else +' Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Log("cajas no a 0") +' End If +' If 2 = 2 Then lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & invActualizado).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall +'' Log(lProdX.Text) +' End If +' invTotal = totalcajasmaspiezas + Subs.traeinventario(id) +'' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) +' +' End If +' +' +' +'End Sub +' +'Private Sub et_pCantc_FocusChanged (HasFocus As Boolean) +' LogColor($"focus changed=${HasFocus}"$, Colors.Magenta) +' If et_pCantc.Text = "" Then et_pCantc.Text = "0" +' Dim index As Int = clv_prods_ll.GetItemFromView(Sender) +' Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) +' Dim pnl As B4XView = pnl0.GetView(0) +' Dim laCant As B4XView = pnl.GetView(2).GetView(2) +' Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) +' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") +' If laCant2.Text = "" Then laCant2.Text = "0" +' etCantHasFocus = HasFocus +'' LogColor(laCant.Text,Colors.Red) +'' If laCant.IsInitialized Then +'' totalcajasmaspiezas = laCant.Text + laCant2.Text +'' Else +'' totalcajasmaspiezas = laCant2.Text +'' End If +' invTotal = totalcajasmaspiezas + Subs.traeinventario(id) +'' LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red) +' +' cuentaProds +'End Sub +' +'Private Sub et_pCantc_TextChanged (Old As String, New As String) +'' Log(etCantHasFocus) +'' Log("InvTotal: " & invTotal) +' If etCantHasFocus = True Then +'' Sleep(500) +'' LogColor($"txt changed: ${Old}|${New}, hasfocus=${etCantHasFocus}"$,Colors.Magenta) +' Dim index As Int = clv_prods_ll.GetItemFromView(Sender) +' Dim pnl0 As B4XView = clv_prods_ll.GetPanel(index) +' Dim pnl As B4XView = pnl0.GetView(0) +' Dim laCant As B4XView = pnl.GetView(2).GetView(2) +' Dim laCant2 As B4XView = pnl.GetView(3).GetView(2) +' Dim lProdX As B4XView = pnl.GetView(1) +' Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id") +' Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") +' Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen") +' Private inv As String=Subs.traeinventario(id) +' Private nombreX As String = Subs.traeProdNombre(id) +' Dim panelcajas As B4XView = pnl.GetView(3) +' Dim panelpiezas As B4XView = pnl.GetView(2) +' Private conversion As String = clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Private preciocaja As String = clv_prods_ll.GetValue(index).As(Map).Get("precio_caja") +' +' invTotal = Subs.traeinventario(id) +' Log("inventario total "& invTotal) +' If(New = "" Or New = Null Or New = "-") Then New = 0 +'' If New < 0 Then New = 0 +' Log(($"new*conversion ${New * conversion} > ${invTotal} = ${((New * conversion) > invTotal)}"$)) +' If((New * conversion) > invTotal) Then +'' Dim maximocajas As Int = invTotal / conversion +' Sender.As(EditText).text = 0 +' New = 0 +'' LogColor("cajas maximas "& maximocajas, Colors.Red) +' pnl.GetView(2).Visible = True +' Log("ponemos en 0") +' End If +' +' Log("--------------->Credito Disponible: "&B4XPages.MainPage.cliente.credito_diponible) +' +' Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") +' fg.Position = 0 +' If Old = "" Or Old = Null Then New = 0 +' Log(preciocaja &" * "&Old) +' +' Log((fg.GetString("COSTO") + (preciocaja*New)) & " Monto Actual<-------") +' If fg.GetString("COSTO") +((preciocaja*New)) > B4XPages.MainPage.cliente.credito_diponible Then +' laCant2.Text = 0 +' MsgboxAsync("No se puede meter mas venta a credito por que supera el limite del credito","Atencion") +' End If +' +' ' Log($"inventario=${inv}"$) +' Log("inventario total despues de max "& invTotal) +' +' If New = "" Then New = 0 +' If laCant2.Text = "" Then laCant2.Text = 0 +'' LogColor("la cant2 " &laCant2.Text,Colors.Red) +' +' If New > 0 Then +' Log("lo ocultamos") +' panelpiezas.Visible = False +' Else If New = 0 Then +' panelpiezas.Visible = True +' End If +' +'' If laCant.IsInitialized Then +'' totalcajasmaspiezas = laCant.Text + laCant2.Text +'' Else +'' totalcajasmaspiezas = laCant2.Text +'' End If +' Log("InvTotal: " & invTotal) +' +' If Not(Old = "0" And New = "") And laCant2.Text <> Null And laCant2.Text <> "" And etCantHasFocus Then +' If invTotal - (laCant2.Text * conversion) >= 0 Then +' LogColor("validacion inventariio " & (invTotal - (laCant2.Text * conversion)), Colors.Blue) +' Log("actualizamos producto") +' Subs.actualizaProducto2(Subs.traeAlmacen, preciocaja,(laCant2.Text * conversion), Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,laCant2.Text,1) +' cuentaProds +' Else +' Private totalcajaspermi As Int = invTotal / conversion +' laCant2.Text = totalcajaspermi +' Log("cajas permitidas total por guerra "& totalcajaspermi) +' End If +' End If +' LogColor("la cant2 " & laCant2.Text,Colors.Green) +' +' +'' If New <> "" And New.SubString2(0,0) = "0" Then +'' New.SubString(1) +'' End If +'' If New <> "" And New.SubString(1) <> "" Then +'' Log(New.SubString(1)) +'' New = New.SubString(1) +'' laCant.Text = New.SubString(1) +'' Log(laCant.Text) +'' End If +' +' If 1 = 1 Then +' Private cs As CSBuilder +' cs.Initialize +' Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) +' Private invActualizado As String = "0" +'' If o.RowCount > 0 Then +' o.Position = 0 +' invActualizado = Subs.traeinventario(id) +' Log(Subs.traeinventario(id)) +'' End If +' +' If New = "" Then New = 0 +' Log(clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float)&" Precio caja") +' Log(clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int)& " Conversion" ) +' If clv_prods_ll.GetValue(index).As(Map).Get("precio_caja").As(Float) = 0 Or clv_prods_ll.GetValue(index).As(Map).Get("conversion").As(Int) = 1 Then +' Private maxcajas2 As Int = 0 +' Log("cajas a 0") +' Else +' Private maxcajas2 As Int = invActualizado/clv_prods_ll.GetValue(index).As(Map).Get("conversion") +' Log("cajas no a 0") +' End If +' lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($" $${NumberFormat2(precio, 1, 2, 2, False)}${CRLF}Max. Cajas: ${maxcajas2}"$).Popall +' End If +' End If +'End Sub \ No newline at end of file diff --git a/B4A/C_RespaldoDiario.bas b/B4A/C_RespaldoDiario.bas index 86f893e..f505c7a 100644 --- a/B4A/C_RespaldoDiario.bas +++ b/B4A/C_RespaldoDiario.bas @@ -41,6 +41,7 @@ Public Sub Initialize As Object agregaColumna2(rkmt,"pedidos","PE_DESCRAGA","text") agregaColumna2(rkmt,"pedidos","PE_CONFIRMADO","text") agregaColumna2(rkmt,"pedidos","pe_bcajas","text") + agregaColumna2(rkmt,"pedidos","PE_FOLIOFAC","text") Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla Private c As Cursor = rkmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('pedidos') WHERE name='pe_envio_ok'"$) c.Position = 0 @@ -89,7 +90,7 @@ Sub respaldaPedido Log("copiando pedidos ...") rkmt.BeginTransaction rkmt.ExecNonQuery($"delete from pedidos where substr(pe_fecha, 1, 10) = '${fechaHoy}'"$) - rkmt.ExecNonQuery($"insert into pedidos (pe_folio, pe_desc, pe_costo_sin, pe_ruta, pe_cedis, pe_costo_tot, pe_costou, pe_cant, pe_pronombre, pe_proid, pe_cliente, pe_fecha, pe_usuario, pe_envio_ok,pe_cantc,pe_bcajas, PE_CONFIRMADO, PE_DESCRAGA) select * from skmt1.pedido where substr(pe_fecha, 1, 10) = '${fechaHoy}'"$) + rkmt.ExecNonQuery($"insert into pedidos (pe_folio, pe_desc, pe_costo_sin, pe_ruta, pe_cedis, pe_costo_tot, pe_costou, pe_cant, pe_pronombre, pe_proid, pe_cliente, pe_fecha, pe_usuario, pe_envio_ok,pe_cantc,pe_bcajas, PE_CONFIRMADO, PE_DESCRAGA,PE_FOLIOFAC) select * from skmt1.pedido where substr(pe_fecha, 1, 10) = '${fechaHoy}'"$) rkmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!! rkmt.EndTransaction ' Log(((DateTime.Now - inicio)/1000) & " segs") diff --git a/B4A/Files/amigos.jpg b/B4A/Files/amigos.jpg index 4c9f8b8..9b4dddd 100644 Binary files a/B4A/Files/amigos.jpg and b/B4A/Files/amigos.jpg differ diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index cfac944..b1d891f 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal index 3197da2..ac16747 100644 Binary files a/B4A/Files/clientes.bal and b/B4A/Files/clientes.bal differ diff --git a/B4A/Files/cuentamerma.bal b/B4A/Files/cuentamerma.bal new file mode 100644 index 0000000..1438cb4 Binary files /dev/null and b/B4A/Files/cuentamerma.bal differ diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index dfd4190..bdcd9e7 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ diff --git a/B4A/Subs.bas b/B4A/Subs.bas index a938b62..fc126ef 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -904,8 +904,102 @@ Sub actualizaProducto2(cedis As String, costoU As String, cant As Int, nombre As c.Close End Sub +'Inserta un producto en la tabla "pedido" y "pedido_cliente" y actualiza "cat_gunaprod". +'NO ACTUALIZA LA BANDERA DE GESTION EN LA TABLA "kmt_info". +'Si "gestion=2" entonces el sistema considera que el pedido ya se guardó y ya no se debe modificar. +Sub guardaProductoSinGestion3(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String, cantc As String, bcajas As String) +' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta) + Private c As Cursor + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?) ", Array As Object (cedis, 0, costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta,cantc,bcajas)) +' If B4XPages.MainPage.tipo_venta = "VENTA" Then +' B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) +' Else +' B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) +' B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) +' End If + + Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${prodId}'"$) + + If abor.RowCount = 0 Then + Log("aQUI") + Private abor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD3 where CAT_GP_ID = '${prodId}'"$) + abor2.Position=0 + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO1,CAT_DP_PRECIO2,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_IMP1"), abor2.GetString("CAT_GP_IMP2"), abor2.GetString("CAT_GP_PRECIO"), abor2.GetString("CAT_GP_CLASIF"), abor2.GetString("CAT_GP_STS"), abor2.GetString("CAT_GP_TIPO"), abor2.GetString("CAT_GP_SUBTIPO"), abor2.GetBlob("CAT_GP_IMG"), cant, abor2.GetString("CAT_GP_TIPOPROD"), abor2.GetString("CAT_GP_INICIATIVA"), abor2.GetString("CAT_DP_PRECIO10"), abor2.GetString("CAT_DP_CONVERSION1"), abor2.GetString("CAT_DP_PRECIO1"), abor2.GetString("CAT_DP_PRECIO2"), abor2.GetString("CAT_DP_PRECIO3"), abor2.GetString("CAT_DP_PRECIO4"), abor2.GetString("CAT_DP_PRECIO9"))) + Else + Log("aQUI") + B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${cant} where cat_gp_id = '${prodId}' "$) + End If + + c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + c.Position=0 + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") + B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN"))) + + + +End Sub + +Sub actualizaProducto3(cedis As String, costoU As String, cant As Int, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String, cantc As String, bcajas As String) + + + + Log("Entramos a actualiza producto") + Private c As Cursor=B4XPages.MainPage.skmt.ExecQuery($"select * from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$) +' Log($"ROWCOUNT: ${c.RowCount}, ${cant}"$) + LogColor($"actualizaProducto, c=${clienteId}, p=${prodId}, nombre=${nombre}, cant=${cant}, cedis=${cedis}, tipo=${tipoVenta}"$, Colors.Magenta) + If c.RowCount > 0 Then + + + + Log("----->1<--------------") + c.Position=0 + Private antCant As Int = 0 + If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT") + Private difCant As Int = cant - antCant + + + B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${0}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$) +' If B4XPages.MainPage.tipo_venta = "VENTA" Then +' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) +' Else +' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) +' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$) +' End If + + Log("aQUI") + Log(cant) + Log(antCant) + Log(difCant) + B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + (${difCant}) where cat_gp_id = '${prodId}' "$) +' Log($"CANT=${cant}"$) + If cant = 0 Then + Log("BORRAMOS PROD") + B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$) + Private pe As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_cliente In (select cuenta from cuentaa)") + pe.Position=0 + If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") + End If + + Else + Log("----->2<--------------") + 'INSERTAMOS + Log(cant) + + If cant <> 0 Then guardaProductoSinGestion3(cedis, costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta,cantc,bcajas) + End If + c.Close + + + + + + + + +End Sub + Sub traeTotalCliente As Double Private sumaTotal As Double Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select PE_COSTO_TOT from pedido where PE_CLIENTE <> 0 ") diff --git a/B4A/TG.b4a b/B4A/TG.b4a index 954af4c..f5fbd30 100644 --- a/B4A/TG.b4a +++ b/B4A/TG.b4a @@ -1,528 +1,529 @@ Build1=Default,tguerraras.keymon.com.mx File1=abordo.png File10=celltitle.bal -File100=marker-azul-17.png -File101=marker-azul-18.png -File102=marker-azul-19.png -File103=marker-azul-2.png -File104=marker-azul-20.png -File105=marker-azul-21.png -File106=marker-azul-22.png -File107=marker-azul-23.png -File108=marker-azul-24.png -File109=marker-azul-25.png +File100=marker-azul-16.png +File101=marker-azul-17.png +File102=marker-azul-18.png +File103=marker-azul-19.png +File104=marker-azul-2.png +File105=marker-azul-20.png +File106=marker-azul-21.png +File107=marker-azul-22.png +File108=marker-azul-23.png +File109=marker-azul-24.png File11=cliente.bal -File110=marker-azul-26.png -File111=marker-azul-27.png -File112=marker-azul-28.png -File113=marker-azul-29.png -File114=marker-azul-3.png -File115=marker-azul-30.png -File116=marker-azul-31.png -File117=marker-azul-32.png -File118=marker-azul-33.png -File119=marker-azul-34.png +File110=marker-azul-25.png +File111=marker-azul-26.png +File112=marker-azul-27.png +File113=marker-azul-28.png +File114=marker-azul-29.png +File115=marker-azul-3.png +File116=marker-azul-30.png +File117=marker-azul-31.png +File118=marker-azul-32.png +File119=marker-azul-33.png File12=clientes.bal -File120=marker-azul-35.png -File121=marker-azul-36.png -File122=marker-azul-37.png -File123=marker-azul-38.png -File124=marker-azul-39.png -File125=marker-azul-4.png -File126=marker-azul-40.png -File127=marker-azul-41.png -File128=marker-azul-42.png -File129=marker-azul-43.png +File120=marker-azul-34.png +File121=marker-azul-35.png +File122=marker-azul-36.png +File123=marker-azul-37.png +File124=marker-azul-38.png +File125=marker-azul-39.png +File126=marker-azul-4.png +File127=marker-azul-40.png +File128=marker-azul-41.png +File129=marker-azul-42.png File13=Cobranza.bal -File130=marker-azul-44.png -File131=marker-azul-45.png -File132=marker-azul-46.png -File133=marker-azul-47.png -File134=marker-azul-48.png -File135=marker-azul-49.png -File136=marker-azul-5.png -File137=marker-azul-50.png -File138=marker-azul-51.png -File139=marker-azul-52.png -File14=datoscliente.bal -File140=marker-azul-53.png -File141=marker-azul-54.png -File142=marker-azul-55.png -File143=marker-azul-56.png -File144=marker-azul-57.png -File145=marker-azul-58.png -File146=marker-azul-59.png -File147=marker-azul-6.png -File148=marker-azul-60.png -File149=marker-azul-61.png -File15=desvanecido.png -File150=marker-azul-62.png -File151=marker-azul-63.png -File152=marker-azul-64.png -File153=marker-azul-65.png -File154=marker-azul-66.png -File155=marker-azul-67.png -File156=marker-azul-68.png -File157=marker-azul-69.png -File158=marker-azul-7.png -File159=marker-azul-70.png -File16=engrane.jpg -File160=marker-azul-71.png -File161=marker-azul-72.png -File162=marker-azul-73.png -File163=marker-azul-74.png -File164=marker-azul-75.png -File165=marker-azul-76.png -File166=marker-azul-77.png -File167=marker-azul-78.png -File168=marker-azul-79.png -File169=marker-azul-8.png -File17=engrane_gris.png -File170=marker-azul-80.png -File171=marker-azul-81.png -File172=marker-azul-82.png -File173=marker-azul-83.png -File174=marker-azul-84.png -File175=marker-azul-85.png -File176=marker-azul-86.png -File177=marker-azul-87.png -File178=marker-azul-88.png -File179=marker-azul-89.png -File18=folioabono.bal -File180=marker-azul-9.png -File181=marker-azul-90.png -File182=marker-azul-91.png -File183=marker-azul-92.png -File184=marker-azul-93.png -File185=marker-azul-94.png -File186=marker-azul-95.png -File187=marker-azul-96.png -File188=marker-azul-97.png -File189=marker-azul-98.png -File19=fondo_kmt.jpg -File190=marker-azul-99.png -File191=marker-rojo-0.png -File192=marker-rojo-1.png -File193=marker-rojo-10.png -File194=marker-rojo-100.png -File195=marker-rojo-101.png -File196=marker-rojo-102.png -File197=marker-rojo-103.png -File198=marker-rojo-104.png -File199=marker-rojo-105.png +File130=marker-azul-43.png +File131=marker-azul-44.png +File132=marker-azul-45.png +File133=marker-azul-46.png +File134=marker-azul-47.png +File135=marker-azul-48.png +File136=marker-azul-49.png +File137=marker-azul-5.png +File138=marker-azul-50.png +File139=marker-azul-51.png +File14=cuentamerma.bal +File140=marker-azul-52.png +File141=marker-azul-53.png +File142=marker-azul-54.png +File143=marker-azul-55.png +File144=marker-azul-56.png +File145=marker-azul-57.png +File146=marker-azul-58.png +File147=marker-azul-59.png +File148=marker-azul-6.png +File149=marker-azul-60.png +File15=datoscliente.bal +File150=marker-azul-61.png +File151=marker-azul-62.png +File152=marker-azul-63.png +File153=marker-azul-64.png +File154=marker-azul-65.png +File155=marker-azul-66.png +File156=marker-azul-67.png +File157=marker-azul-68.png +File158=marker-azul-69.png +File159=marker-azul-7.png +File16=desvanecido.png +File160=marker-azul-70.png +File161=marker-azul-71.png +File162=marker-azul-72.png +File163=marker-azul-73.png +File164=marker-azul-74.png +File165=marker-azul-75.png +File166=marker-azul-76.png +File167=marker-azul-77.png +File168=marker-azul-78.png +File169=marker-azul-79.png +File17=engrane.jpg +File170=marker-azul-8.png +File171=marker-azul-80.png +File172=marker-azul-81.png +File173=marker-azul-82.png +File174=marker-azul-83.png +File175=marker-azul-84.png +File176=marker-azul-85.png +File177=marker-azul-86.png +File178=marker-azul-87.png +File179=marker-azul-88.png +File18=engrane_gris.png +File180=marker-azul-89.png +File181=marker-azul-9.png +File182=marker-azul-90.png +File183=marker-azul-91.png +File184=marker-azul-92.png +File185=marker-azul-93.png +File186=marker-azul-94.png +File187=marker-azul-95.png +File188=marker-azul-96.png +File189=marker-azul-97.png +File19=folioabono.bal +File190=marker-azul-98.png +File191=marker-azul-99.png +File192=marker-rojo-0.png +File193=marker-rojo-1.png +File194=marker-rojo-10.png +File195=marker-rojo-100.png +File196=marker-rojo-101.png +File197=marker-rojo-102.png +File198=marker-rojo-103.png +File199=marker-rojo-104.png File2=alert2.png -File20=gps20.png -File200=marker-rojo-106.png -File201=marker-rojo-107.png -File202=marker-rojo-108.png -File203=marker-rojo-109.png -File204=marker-rojo-11.png -File205=marker-rojo-110.png -File206=marker-rojo-111.png -File207=marker-rojo-112.png -File208=marker-rojo-113.png -File209=marker-rojo-114.png -File21=Hacer pedido.jpg -File210=marker-rojo-115.png -File211=marker-rojo-116.png -File212=marker-rojo-117.png -File213=marker-rojo-118.png -File214=marker-rojo-119.png -File215=marker-rojo-12.png -File216=marker-rojo-120.png -File217=marker-rojo-121.png -File218=marker-rojo-122.png -File219=marker-rojo-123.png -File22=hacerpedido30.jpg -File220=marker-rojo-124.png -File221=marker-rojo-125.png -File222=marker-rojo-126.png -File223=marker-rojo-127.png -File224=marker-rojo-128.png -File225=marker-rojo-129.png -File226=marker-rojo-13.png -File227=marker-rojo-130.png -File228=marker-rojo-131.png -File229=marker-rojo-132.png -File23=hacerpedido30.png -File230=marker-rojo-133.png -File231=marker-rojo-134.png -File232=marker-rojo-135.png -File233=marker-rojo-136.png -File234=marker-rojo-137.png -File235=marker-rojo-138.png -File236=marker-rojo-139.png -File237=marker-rojo-14.png -File238=marker-rojo-140.png -File239=marker-rojo-141.png -File24=intmex_logo_192x192_old.jpg -File240=marker-rojo-142.png -File241=marker-rojo-143.png -File242=marker-rojo-144.png -File243=marker-rojo-145.png -File244=marker-rojo-146.png -File245=marker-rojo-147.png -File246=marker-rojo-148.png -File247=marker-rojo-149.png -File248=marker-rojo-15.png -File249=marker-rojo-150.png -File25=itembuttonblue.png -File250=marker-rojo-16.png -File251=marker-rojo-17.png -File252=marker-rojo-18.png -File253=marker-rojo-19.png -File254=marker-rojo-2.png -File255=marker-rojo-20.png -File256=marker-rojo-21.png -File257=marker-rojo-22.png -File258=marker-rojo-23.png -File259=marker-rojo-24.png -File26=kmt.db -File260=marker-rojo-25.png -File261=marker-rojo-26.png -File262=marker-rojo-27.png -File263=marker-rojo-28.png -File264=marker-rojo-29.png -File265=marker-rojo-3.png -File266=marker-rojo-30.png -File267=marker-rojo-31.png -File268=marker-rojo-32.png -File269=marker-rojo-33.png -File27=login.bal -File270=marker-rojo-34.png -File271=marker-rojo-35.png -File272=marker-rojo-36.png -File273=marker-rojo-37.png -File274=marker-rojo-38.png -File275=marker-rojo-39.png -File276=marker-rojo-4.png -File277=marker-rojo-40.png -File278=marker-rojo-41.png -File279=marker-rojo-42.png -File28=logo_izca.jpg -File280=marker-rojo-43.png -File281=marker-rojo-44.png -File282=marker-rojo-45.png -File283=marker-rojo-46.png -File284=marker-rojo-47.png -File285=marker-rojo-48.png -File286=marker-rojo-49.png -File287=marker-rojo-5.png -File288=marker-rojo-50.png -File289=marker-rojo-51.png -File29=logo_keymon.png -File290=marker-rojo-52.png -File291=marker-rojo-53.png -File292=marker-rojo-54.png -File293=marker-rojo-55.png -File294=marker-rojo-56.png -File295=marker-rojo-57.png -File296=marker-rojo-58.png -File297=marker-rojo-59.png -File298=marker-rojo-6.png -File299=marker-rojo-60.png +File20=fondo_kmt.jpg +File200=marker-rojo-105.png +File201=marker-rojo-106.png +File202=marker-rojo-107.png +File203=marker-rojo-108.png +File204=marker-rojo-109.png +File205=marker-rojo-11.png +File206=marker-rojo-110.png +File207=marker-rojo-111.png +File208=marker-rojo-112.png +File209=marker-rojo-113.png +File21=gps20.png +File210=marker-rojo-114.png +File211=marker-rojo-115.png +File212=marker-rojo-116.png +File213=marker-rojo-117.png +File214=marker-rojo-118.png +File215=marker-rojo-119.png +File216=marker-rojo-12.png +File217=marker-rojo-120.png +File218=marker-rojo-121.png +File219=marker-rojo-122.png +File22=Hacer pedido.jpg +File220=marker-rojo-123.png +File221=marker-rojo-124.png +File222=marker-rojo-125.png +File223=marker-rojo-126.png +File224=marker-rojo-127.png +File225=marker-rojo-128.png +File226=marker-rojo-129.png +File227=marker-rojo-13.png +File228=marker-rojo-130.png +File229=marker-rojo-131.png +File23=hacerpedido30.jpg +File230=marker-rojo-132.png +File231=marker-rojo-133.png +File232=marker-rojo-134.png +File233=marker-rojo-135.png +File234=marker-rojo-136.png +File235=marker-rojo-137.png +File236=marker-rojo-138.png +File237=marker-rojo-139.png +File238=marker-rojo-14.png +File239=marker-rojo-140.png +File24=hacerpedido30.png +File240=marker-rojo-141.png +File241=marker-rojo-142.png +File242=marker-rojo-143.png +File243=marker-rojo-144.png +File244=marker-rojo-145.png +File245=marker-rojo-146.png +File246=marker-rojo-147.png +File247=marker-rojo-148.png +File248=marker-rojo-149.png +File249=marker-rojo-15.png +File25=intmex_logo_192x192_old.jpg +File250=marker-rojo-150.png +File251=marker-rojo-16.png +File252=marker-rojo-17.png +File253=marker-rojo-18.png +File254=marker-rojo-19.png +File255=marker-rojo-2.png +File256=marker-rojo-20.png +File257=marker-rojo-21.png +File258=marker-rojo-22.png +File259=marker-rojo-23.png +File26=itembuttonblue.png +File260=marker-rojo-24.png +File261=marker-rojo-25.png +File262=marker-rojo-26.png +File263=marker-rojo-27.png +File264=marker-rojo-28.png +File265=marker-rojo-29.png +File266=marker-rojo-3.png +File267=marker-rojo-30.png +File268=marker-rojo-31.png +File269=marker-rojo-32.png +File27=kmt.db +File270=marker-rojo-33.png +File271=marker-rojo-34.png +File272=marker-rojo-35.png +File273=marker-rojo-36.png +File274=marker-rojo-37.png +File275=marker-rojo-38.png +File276=marker-rojo-39.png +File277=marker-rojo-4.png +File278=marker-rojo-40.png +File279=marker-rojo-41.png +File28=login.bal +File280=marker-rojo-42.png +File281=marker-rojo-43.png +File282=marker-rojo-44.png +File283=marker-rojo-45.png +File284=marker-rojo-46.png +File285=marker-rojo-47.png +File286=marker-rojo-48.png +File287=marker-rojo-49.png +File288=marker-rojo-5.png +File289=marker-rojo-50.png +File29=logo_izca.jpg +File290=marker-rojo-51.png +File291=marker-rojo-52.png +File292=marker-rojo-53.png +File293=marker-rojo-54.png +File294=marker-rojo-55.png +File295=marker-rojo-56.png +File296=marker-rojo-57.png +File297=marker-rojo-58.png +File298=marker-rojo-59.png +File299=marker-rojo-6.png File3=alerta_amarilla.png -File30=logo_mariana.jpeg -File300=marker-rojo-61.png -File301=marker-rojo-62.png -File302=marker-rojo-63.png -File303=marker-rojo-64.png -File304=marker-rojo-65.png -File305=marker-rojo-66.png -File306=marker-rojo-67.png -File307=marker-rojo-68.png -File308=marker-rojo-69.png -File309=marker-rojo-7.png -File31=logosamiizca.jpg -File310=marker-rojo-70.png -File311=marker-rojo-71.png -File312=marker-rojo-72.png -File313=marker-rojo-73.png -File314=marker-rojo-74.png -File315=marker-rojo-75.png -File316=marker-rojo-76.png -File317=marker-rojo-77.png -File318=marker-rojo-78.png -File319=marker-rojo-79.png -File32=logosamiizca2.jpg -File320=marker-rojo-8.png -File321=marker-rojo-80.png -File322=marker-rojo-81.png -File323=marker-rojo-82.png -File324=marker-rojo-83.png -File325=marker-rojo-84.png -File326=marker-rojo-85.png -File327=marker-rojo-86.png -File328=marker-rojo-87.png -File329=marker-rojo-88.png -File33=MainPage.bal -File330=marker-rojo-89.png -File331=marker-rojo-9.png -File332=marker-rojo-90.png -File333=marker-rojo-91.png -File334=marker-rojo-92.png -File335=marker-rojo-93.png -File336=marker-rojo-94.png -File337=marker-rojo-95.png -File338=marker-rojo-96.png -File339=marker-rojo-97.png -File34=Malo.jpg -File340=marker-rojo-98.png -File341=marker-rojo-99.png -File342=marker-verde-0.png -File343=marker-verde-1.png -File344=marker-verde-10.png -File345=marker-verde-100.png -File346=marker-verde-101.png -File347=marker-verde-102.png -File348=marker-verde-103.png -File349=marker-verde-104.png -File35=mapa_cliente.bal -File350=marker-verde-105.png -File351=marker-verde-106.png -File352=marker-verde-107.png -File353=marker-verde-108.png -File354=marker-verde-109.png -File355=marker-verde-11.png -File356=marker-verde-110.png -File357=marker-verde-111.png -File358=marker-verde-112.png -File359=marker-verde-113.png -File36=mapa_rutas.bal -File360=marker-verde-114.png -File361=marker-verde-115.png -File362=marker-verde-116.png -File363=marker-verde-117.png -File364=marker-verde-118.png -File365=marker-verde-119.png -File366=marker-verde-12.png -File367=marker-verde-120.png -File368=marker-verde-121.png -File369=marker-verde-122.png -File37=mariana_ico.png -File370=marker-verde-123.png -File371=marker-verde-124.png -File372=marker-verde-125.png -File373=marker-verde-126.png -File374=marker-verde-127.png -File375=marker-verde-128.png -File376=marker-verde-129.png -File377=marker-verde-13.png -File378=marker-verde-130.png -File379=marker-verde-131.png -File38=mariana_logo_192x192.jpg -File380=marker-verde-132.png -File381=marker-verde-133.png -File382=marker-verde-134.png -File383=marker-verde-135.png -File384=marker-verde-136.png -File385=marker-verde-137.png -File386=marker-verde-138.png -File387=marker-verde-139.png -File388=marker-verde-14.png -File389=marker-verde-140.png -File39=marker-amarillo.png -File390=marker-verde-141.png -File391=marker-verde-142.png -File392=marker-verde-143.png -File393=marker-verde-144.png -File394=marker-verde-145.png -File395=marker-verde-146.png -File396=marker-verde-147.png -File397=marker-verde-148.png -File398=marker-verde-149.png -File399=marker-verde-15.png +File30=logo_keymon.png +File300=marker-rojo-60.png +File301=marker-rojo-61.png +File302=marker-rojo-62.png +File303=marker-rojo-63.png +File304=marker-rojo-64.png +File305=marker-rojo-65.png +File306=marker-rojo-66.png +File307=marker-rojo-67.png +File308=marker-rojo-68.png +File309=marker-rojo-69.png +File31=logo_mariana.jpeg +File310=marker-rojo-7.png +File311=marker-rojo-70.png +File312=marker-rojo-71.png +File313=marker-rojo-72.png +File314=marker-rojo-73.png +File315=marker-rojo-74.png +File316=marker-rojo-75.png +File317=marker-rojo-76.png +File318=marker-rojo-77.png +File319=marker-rojo-78.png +File32=logosamiizca.jpg +File320=marker-rojo-79.png +File321=marker-rojo-8.png +File322=marker-rojo-80.png +File323=marker-rojo-81.png +File324=marker-rojo-82.png +File325=marker-rojo-83.png +File326=marker-rojo-84.png +File327=marker-rojo-85.png +File328=marker-rojo-86.png +File329=marker-rojo-87.png +File33=logosamiizca2.jpg +File330=marker-rojo-88.png +File331=marker-rojo-89.png +File332=marker-rojo-9.png +File333=marker-rojo-90.png +File334=marker-rojo-91.png +File335=marker-rojo-92.png +File336=marker-rojo-93.png +File337=marker-rojo-94.png +File338=marker-rojo-95.png +File339=marker-rojo-96.png +File34=MainPage.bal +File340=marker-rojo-97.png +File341=marker-rojo-98.png +File342=marker-rojo-99.png +File343=marker-verde-0.png +File344=marker-verde-1.png +File345=marker-verde-10.png +File346=marker-verde-100.png +File347=marker-verde-101.png +File348=marker-verde-102.png +File349=marker-verde-103.png +File35=Malo.jpg +File350=marker-verde-104.png +File351=marker-verde-105.png +File352=marker-verde-106.png +File353=marker-verde-107.png +File354=marker-verde-108.png +File355=marker-verde-109.png +File356=marker-verde-11.png +File357=marker-verde-110.png +File358=marker-verde-111.png +File359=marker-verde-112.png +File36=mapa_cliente.bal +File360=marker-verde-113.png +File361=marker-verde-114.png +File362=marker-verde-115.png +File363=marker-verde-116.png +File364=marker-verde-117.png +File365=marker-verde-118.png +File366=marker-verde-119.png +File367=marker-verde-12.png +File368=marker-verde-120.png +File369=marker-verde-121.png +File37=mapa_rutas.bal +File370=marker-verde-122.png +File371=marker-verde-123.png +File372=marker-verde-124.png +File373=marker-verde-125.png +File374=marker-verde-126.png +File375=marker-verde-127.png +File376=marker-verde-128.png +File377=marker-verde-129.png +File378=marker-verde-13.png +File379=marker-verde-130.png +File38=mariana_ico.png +File380=marker-verde-131.png +File381=marker-verde-132.png +File382=marker-verde-133.png +File383=marker-verde-134.png +File384=marker-verde-135.png +File385=marker-verde-136.png +File386=marker-verde-137.png +File387=marker-verde-138.png +File388=marker-verde-139.png +File389=marker-verde-14.png +File39=mariana_logo_192x192.jpg +File390=marker-verde-140.png +File391=marker-verde-141.png +File392=marker-verde-142.png +File393=marker-verde-143.png +File394=marker-verde-144.png +File395=marker-verde-145.png +File396=marker-verde-146.png +File397=marker-verde-147.png +File398=marker-verde-148.png +File399=marker-verde-149.png File4=amigos.jpg -File40=marker-azul-0.png -File400=marker-verde-150.png -File401=marker-verde-16.png -File402=marker-verde-17.png -File403=marker-verde-18.png -File404=marker-verde-19.png -File405=marker-verde-2.png -File406=marker-verde-20.png -File407=marker-verde-21.png -File408=marker-verde-22.png -File409=marker-verde-23.png -File41=marker-azul-1.png -File410=marker-verde-24.png -File411=marker-verde-25.png -File412=marker-verde-26.png -File413=marker-verde-27.png -File414=marker-verde-28.png -File415=marker-verde-29.png -File416=marker-verde-3.png -File417=marker-verde-30.png -File418=marker-verde-31.png -File419=marker-verde-32.png -File42=marker-azul-10.png -File420=marker-verde-33.png -File421=marker-verde-34.png -File422=marker-verde-35.png -File423=marker-verde-36.png -File424=marker-verde-37.png -File425=marker-verde-38.png -File426=marker-verde-39.png -File427=marker-verde-4.png -File428=marker-verde-40.png -File429=marker-verde-41.png -File43=marker-azul-100.png -File430=marker-verde-42.png -File431=marker-verde-43.png -File432=marker-verde-44.png -File433=marker-verde-45.png -File434=marker-verde-46.png -File435=marker-verde-47.png -File436=marker-verde-48.png -File437=marker-verde-49.png -File438=marker-verde-5.png -File439=marker-verde-50.png -File44=marker-azul-101.png -File440=marker-verde-51.png -File441=marker-verde-52.png -File442=marker-verde-53.png -File443=marker-verde-54.png -File444=marker-verde-55.png -File445=marker-verde-56.png -File446=marker-verde-57.png -File447=marker-verde-58.png -File448=marker-verde-59.png -File449=marker-verde-6.png -File45=marker-azul-102.png -File450=marker-verde-60.png -File451=marker-verde-61.png -File452=marker-verde-62.png -File453=marker-verde-63.png -File454=marker-verde-64.png -File455=marker-verde-65.png -File456=marker-verde-66.png -File457=marker-verde-67.png -File458=marker-verde-68.png -File459=marker-verde-69.png -File46=marker-azul-103.png -File460=marker-verde-7.png -File461=marker-verde-70.png -File462=marker-verde-71.png -File463=marker-verde-72.png -File464=marker-verde-73.png -File465=marker-verde-74.png -File466=marker-verde-75.png -File467=marker-verde-76.png -File468=marker-verde-77.png -File469=marker-verde-78.png -File47=marker-azul-104.png -File470=marker-verde-79.png -File471=marker-verde-8.png -File472=marker-verde-80.png -File473=marker-verde-81.png -File474=marker-verde-82.png -File475=marker-verde-83.png -File476=marker-verde-84.png -File477=marker-verde-85.png -File478=marker-verde-86.png -File479=marker-verde-87.png -File48=marker-azul-105.png -File480=marker-verde-88.png -File481=marker-verde-89.png -File482=marker-verde-9.png -File483=marker-verde-90.png -File484=marker-verde-91.png -File485=marker-verde-92.png -File486=marker-verde-93.png -File487=marker-verde-94.png -File488=marker-verde-95.png -File489=marker-verde-96.png -File49=marker-azul-106.png -File490=marker-verde-97.png -File491=marker-verde-98.png -File492=marker-verde-99.png -File493=nota.bal -File494=noventa.bal -File495=nuevocliente.bal -File496=nuevocliente.jpg -File497=nuevo-cliente20.png -File498=Nvo Cliente.jpg -File499=palomita_verde.png +File40=marker-amarillo.png +File400=marker-verde-15.png +File401=marker-verde-150.png +File402=marker-verde-16.png +File403=marker-verde-17.png +File404=marker-verde-18.png +File405=marker-verde-19.png +File406=marker-verde-2.png +File407=marker-verde-20.png +File408=marker-verde-21.png +File409=marker-verde-22.png +File41=marker-azul-0.png +File410=marker-verde-23.png +File411=marker-verde-24.png +File412=marker-verde-25.png +File413=marker-verde-26.png +File414=marker-verde-27.png +File415=marker-verde-28.png +File416=marker-verde-29.png +File417=marker-verde-3.png +File418=marker-verde-30.png +File419=marker-verde-31.png +File42=marker-azul-1.png +File420=marker-verde-32.png +File421=marker-verde-33.png +File422=marker-verde-34.png +File423=marker-verde-35.png +File424=marker-verde-36.png +File425=marker-verde-37.png +File426=marker-verde-38.png +File427=marker-verde-39.png +File428=marker-verde-4.png +File429=marker-verde-40.png +File43=marker-azul-10.png +File430=marker-verde-41.png +File431=marker-verde-42.png +File432=marker-verde-43.png +File433=marker-verde-44.png +File434=marker-verde-45.png +File435=marker-verde-46.png +File436=marker-verde-47.png +File437=marker-verde-48.png +File438=marker-verde-49.png +File439=marker-verde-5.png +File44=marker-azul-100.png +File440=marker-verde-50.png +File441=marker-verde-51.png +File442=marker-verde-52.png +File443=marker-verde-53.png +File444=marker-verde-54.png +File445=marker-verde-55.png +File446=marker-verde-56.png +File447=marker-verde-57.png +File448=marker-verde-58.png +File449=marker-verde-59.png +File45=marker-azul-101.png +File450=marker-verde-6.png +File451=marker-verde-60.png +File452=marker-verde-61.png +File453=marker-verde-62.png +File454=marker-verde-63.png +File455=marker-verde-64.png +File456=marker-verde-65.png +File457=marker-verde-66.png +File458=marker-verde-67.png +File459=marker-verde-68.png +File46=marker-azul-102.png +File460=marker-verde-69.png +File461=marker-verde-7.png +File462=marker-verde-70.png +File463=marker-verde-71.png +File464=marker-verde-72.png +File465=marker-verde-73.png +File466=marker-verde-74.png +File467=marker-verde-75.png +File468=marker-verde-76.png +File469=marker-verde-77.png +File47=marker-azul-103.png +File470=marker-verde-78.png +File471=marker-verde-79.png +File472=marker-verde-8.png +File473=marker-verde-80.png +File474=marker-verde-81.png +File475=marker-verde-82.png +File476=marker-verde-83.png +File477=marker-verde-84.png +File478=marker-verde-85.png +File479=marker-verde-86.png +File48=marker-azul-104.png +File480=marker-verde-87.png +File481=marker-verde-88.png +File482=marker-verde-89.png +File483=marker-verde-9.png +File484=marker-verde-90.png +File485=marker-verde-91.png +File486=marker-verde-92.png +File487=marker-verde-93.png +File488=marker-verde-94.png +File489=marker-verde-95.png +File49=marker-azul-105.png +File490=marker-verde-96.png +File491=marker-verde-97.png +File492=marker-verde-98.png +File493=marker-verde-99.png +File494=nota.bal +File495=noventa.bal +File496=nuevocliente.bal +File497=nuevocliente.jpg +File498=nuevo-cliente20.png +File499=Nvo Cliente.jpg File5=amigos21.jpg -File50=marker-azul-107.png -File500=PANEL_PICK_CIEGO.bal -File501=pedido.bal -File502=principal.bal -File503=proditem.bal -File504=proditem1.bal -File505=proditem2.bal -File506=proditempromo.bal -File507=productos.bal -File508=productosdev.bal -File509=promociones.bal -File51=marker-azul-108.png -File510=resdia.bal -File511=ResDia.jpg -File512=resdia20.png -File513=resumendia.jpg -File514=scrollpromos.bal -File515=senial.jpg -File516=sync.png -File517=tabulador.bal -File518=tache_rojo.png -File519=Ticket dia.jpg -File52=marker-azul-109.png -File520=ticketdia20.jpg -File521=ticketdia20.png -File522=ticketsdia.bal -File523=Tiendita.jpg -File524=verde.png -File53=marker-azul-11.png -File54=marker-azul-110.png -File55=marker-azul-111.png -File56=marker-azul-112.png -File57=marker-azul-113.png -File58=marker-azul-114.png -File59=marker-azul-115.png +File50=marker-azul-106.png +File500=palomita_verde.png +File501=PANEL_PICK_CIEGO.bal +File502=pedido.bal +File503=principal.bal +File504=proditem.bal +File505=proditem1.bal +File506=proditem2.bal +File507=proditempromo.bal +File508=productos.bal +File509=productosdev.bal +File51=marker-azul-107.png +File510=promociones.bal +File511=resdia.bal +File512=ResDia.jpg +File513=resdia20.png +File514=resumendia.jpg +File515=scrollpromos.bal +File516=senial.jpg +File517=sync.png +File518=tabulador.bal +File519=tache_rojo.png +File52=marker-azul-108.png +File520=Ticket dia.jpg +File521=ticketdia20.jpg +File522=ticketdia20.png +File523=ticketsdia.bal +File524=Tiendita.jpg +File525=verde.png +File53=marker-azul-109.png +File54=marker-azul-11.png +File55=marker-azul-110.png +File56=marker-azul-111.png +File57=marker-azul-112.png +File58=marker-azul-113.png +File59=marker-azul-114.png File6=anterior.jpg -File60=marker-azul-116.png -File61=marker-azul-117.png -File62=marker-azul-118.png -File63=marker-azul-119.png -File64=marker-azul-12.png -File65=marker-azul-120.png -File66=marker-azul-121.png -File67=marker-azul-122.png -File68=marker-azul-123.png -File69=marker-azul-124.png +File60=marker-azul-115.png +File61=marker-azul-116.png +File62=marker-azul-117.png +File63=marker-azul-118.png +File64=marker-azul-119.png +File65=marker-azul-12.png +File66=marker-azul-120.png +File67=marker-azul-121.png +File68=marker-azul-122.png +File69=marker-azul-123.png File7=bus-ar.png -File70=marker-azul-125.png -File71=marker-azul-126.png -File72=marker-azul-127.png -File73=marker-azul-128.png -File74=marker-azul-129.png -File75=marker-azul-13.png -File76=marker-azul-130.png -File77=marker-azul-131.png -File78=marker-azul-132.png -File79=marker-azul-133.png +File70=marker-azul-124.png +File71=marker-azul-125.png +File72=marker-azul-126.png +File73=marker-azul-127.png +File74=marker-azul-128.png +File75=marker-azul-129.png +File76=marker-azul-13.png +File77=marker-azul-130.png +File78=marker-azul-131.png +File79=marker-azul-132.png File8=C_CuentasXCobrar.bal -File80=marker-azul-134.png -File81=marker-azul-135.png -File82=marker-azul-136.png -File83=marker-azul-137.png -File84=marker-azul-138.png -File85=marker-azul-139.png -File86=marker-azul-14.png -File87=marker-azul-140.png -File88=marker-azul-141.png -File89=marker-azul-142.png +File80=marker-azul-133.png +File81=marker-azul-134.png +File82=marker-azul-135.png +File83=marker-azul-136.png +File84=marker-azul-137.png +File85=marker-azul-138.png +File86=marker-azul-139.png +File87=marker-azul-14.png +File88=marker-azul-140.png +File89=marker-azul-141.png File9=carrito.png -File90=marker-azul-143.png -File91=marker-azul-144.png -File92=marker-azul-145.png -File93=marker-azul-146.png -File94=marker-azul-147.png -File95=marker-azul-148.png -File96=marker-azul-149.png -File97=marker-azul-15.png -File98=marker-azul-150.png -File99=marker-azul-16.png +File90=marker-azul-142.png +File91=marker-azul-143.png +File92=marker-azul-144.png +File93=marker-azul-145.png +File94=marker-azul-146.png +File95=marker-azul-147.png +File96=marker-azul-148.png +File97=marker-azul-149.png +File98=marker-azul-15.png +File99=marker-azul-150.png FileGroup1=Default Group FileGroup10=Default Group FileGroup100=Default Group @@ -996,6 +997,7 @@ FileGroup521=Default Group FileGroup522=Default Group FileGroup523=Default Group FileGroup524=Default Group +FileGroup525=Default Group FileGroup53=Default Group FileGroup54=Default Group FileGroup55=Default Group @@ -1115,7 +1117,7 @@ Module6=C_Cuestionario Module7=C_Historico Module8=C_Mapas Module9=C_Nota -NumberOfFiles=524 +NumberOfFiles=525 NumberOfLibraries=34 NumberOfModules=32 Version=12.8 diff --git a/B4A/TG.b4a.meta b/B4A/TG.b4a.meta index f873fbb..4b68aa8 100644 --- a/B4A/TG.b4a.meta +++ b/B4A/TG.b4a.meta @@ -21,7 +21,7 @@ ModuleBookmarks26= ModuleBookmarks27= ModuleBookmarks28= ModuleBookmarks29= -ModuleBookmarks3= +ModuleBookmarks3=1 ModuleBookmarks30= ModuleBookmarks31= ModuleBookmarks32= @@ -69,9 +69,9 @@ ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= -ModuleClosedNodes13= +ModuleClosedNodes13=13 ModuleClosedNodes14= -ModuleClosedNodes15=1,3 +ModuleClosedNodes15= ModuleClosedNodes16= ModuleClosedNodes17= ModuleClosedNodes18= @@ -91,12 +91,12 @@ ModuleClosedNodes3= ModuleClosedNodes30= ModuleClosedNodes31= ModuleClosedNodes32= -ModuleClosedNodes4=2 +ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Created,147,0,Main,Globals,23,0,Main,Process_Globals,20,0,C_Productosdev,Class_Globals,0,0,Diseñador Visual,productos.bal,-100,2,Diseñador Visual,productosdev.bal,-100,1,C_Cliente,MODS,0,0,C_Cliente,Button1_Click,3014,1,C_Productosdev,B4XPage_Created,137,0,C_Productosdev,B4XPage_Appear,141,2 +NavigationStack=C_Principal,Class_Globals,50,1,C_Principal,Envioinfo,1135,0,Diseñador Visual,Cobranza.bal,-100,1,C_Principal,connecta_Click,2544,0,Diseñador Visual,principal.bal,-100,6,C_Principal,CreateListItem,768,2,Diseñador Visual,cuentamerma.bal,-100,5,C_Principal,CreateListItem2,785,0,C_Principal,MapFragment1_LongClick,706,0,C_Principal,Subir_Click,730,6,C_Principal,b_terpc_Click,3709,1 SelectedBuild=0 -VisibleModules=1,2,3,4,31,15,14 +VisibleModules=1,2,3,4,31,15,14,13,5,17