package medicomed.keymon.com.mx; import anywheresoftware.b4a.BA; import anywheresoftware.b4a.BALayout; import anywheresoftware.b4a.debug.*; public class subs { private static subs mostCurrent = new subs(); public static Object getObject() { throw new RuntimeException("Code module does not support this method."); } public anywheresoftware.b4a.keywords.Common __c = null; public static de.donmanfred.GZipStringswrapper _gzip = null; public static anywheresoftware.b4a.objects.StringUtils _su = null; public static anywheresoftware.b4a.phone.Phone _phn = null; public static String _devmodel = ""; public static anywheresoftware.b4a.sql.SQL _kmt = null; public static anywheresoftware.b4a.sql.SQL _errorlog = null; public static String _ssid = ""; public static int _rutamaxpoints = 0; public static int _rutahrsatras = 0; public static boolean _subslogs = false; public b4a.example.dateutils _dateutils = null; public medicomed.keymon.com.mx.main _main = null; public medicomed.keymon.com.mx.starter _starter = null; public medicomed.keymon.com.mx.appupdater _appupdater = null; public medicomed.keymon.com.mx.mapa_rutas _mapa_rutas = null; public medicomed.keymon.com.mx.mapa_cliente _mapa_cliente = null; public medicomed.keymon.com.mx.notificationservice _notificationservice = null; public medicomed.keymon.com.mx.pendientes _pendientes = null; public medicomed.keymon.com.mx.tracker _tracker = null; public medicomed.keymon.com.mx.newinst2 _newinst2 = null; public medicomed.keymon.com.mx.b4xpages _b4xpages = null; public medicomed.keymon.com.mx.b4xcollections _b4xcollections = null; public medicomed.keymon.com.mx.httputils2service _httputils2service = null; public medicomed.keymon.com.mx.xuiviewsutils _xuiviewsutils = null; public static String _actualizaproducto(anywheresoftware.b4a.BA _ba,String _cedis,String _costou,int _cant,String _nombre,String _prodid,String _clienteid,String _fecha,String _usuario,String _rutav,String _preciosin,String _tipoventa,String _cantc,String _bcajas) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; int _antcant = 0; int _difcant = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _pe = null; //BA.debugLineNum = 808;BA.debugLine="Sub actualizaProducto(cedis As String, costoU As S"; //BA.debugLineNum = 809;BA.debugLine="Log(\"Entramos a actualiza producto\")"; anywheresoftware.b4a.keywords.Common.LogImpl("074776577","Entramos a actualiza producto",0); //BA.debugLineNum = 810;BA.debugLine="Private c As Cursor=B4XPages.MainPage.skmt.ExecQu"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select * from pedido where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")))); //BA.debugLineNum = 812;BA.debugLine="LogColor($\"actualizaProducto, c=${clienteId}, p=$"; anywheresoftware.b4a.keywords.Common.LogImpl("074776580",("actualizaProducto, c="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+", p="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+", nombre="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_nombre))+", cant="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cant))+", cedis="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+", tipo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tipoventa))+""),anywheresoftware.b4a.keywords.Common.Colors.Magenta); //BA.debugLineNum = 813;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 814;BA.debugLine="Log(\"----->1<--------------\")"; anywheresoftware.b4a.keywords.Common.LogImpl("074776582","----->1<--------------",0); //BA.debugLineNum = 815;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 816;BA.debugLine="Private antCant As Int = 0"; _antcant = (int) (0); //BA.debugLineNum = 817;BA.debugLine="If IsNumber(c.GetInt(\"PE_CANT\")) Then antCant=c."; if (anywheresoftware.b4a.keywords.Common.IsNumber(BA.NumberToString(_c.GetInt("PE_CANT")))) { _antcant = _c.GetInt("PE_CANT");}; //BA.debugLineNum = 818;BA.debugLine="Private difCant As Int = cant - antCant"; _difcant = (int) (_cant-_antcant); //BA.debugLineNum = 819;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update ped"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update pedido set pe_cant = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cant))+", pe_costo_tot = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)((_cant*(double)(Double.parseDouble(_c.GetString("PE_COSTOU"))))))+", PE_CANTC = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cantc))+", PE_BCAJAS = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_bcajas))+" where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")); //BA.debugLineNum = 821;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ("+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_difcant))+") where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' ")); //BA.debugLineNum = 822;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen - ("+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_difcant))+") where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' ")); //BA.debugLineNum = 825;BA.debugLine="If cant = 0 Then"; if (_cant==0) { //BA.debugLineNum = 826;BA.debugLine="Log(\"BORRAMOS PROD\")"; anywheresoftware.b4a.keywords.Common.LogImpl("074776594","BORRAMOS PROD",0); //BA.debugLineNum = 827;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"delete fr"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("delete from pedido where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")); //BA.debugLineNum = 828;BA.debugLine="Private pe As Cursor = B4XPages.MainPage.skmt.E"; _pe = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _pe = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_cliente In (select cuenta from cuentaa)"))); //BA.debugLineNum = 829;BA.debugLine="pe.Position=0"; _pe.setPosition((int) (0)); //BA.debugLineNum = 830;BA.debugLine="If pe.GetString(\"cuantosPedidos\") = 0 Then B4XP"; if ((_pe.GetString("cuantosPedidos")).equals(BA.NumberToString(0))) { mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)");}; }; }else { //BA.debugLineNum = 833;BA.debugLine="Log(\"----->2<--------------\")"; anywheresoftware.b4a.keywords.Common.LogImpl("074776601","----->2<--------------",0); //BA.debugLineNum = 835;BA.debugLine="If cant <> 0 Then guardaProductoSinGestion(cedis"; if (_cant!=0) { _guardaproductosingestion(_ba,_cedis,_costou,BA.NumberToString(_cant),_nombre,_prodid,_clienteid,_fecha,_usuario,_rutav,_preciosin,_tipoventa,_cantc,_bcajas);}; }; //BA.debugLineNum = 837;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 838;BA.debugLine="End Sub"; return ""; } public static String _actualizaproducto2(anywheresoftware.b4a.BA _ba,String _cedis,String _costou,int _cant,String _nombre,String _prodid,String _clienteid,String _fecha,String _usuario,String _rutav,String _preciosin,String _tipoventa,String _cantc,String _bcajas) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; int _antcant = 0; int _difcant = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _pe = null; //BA.debugLineNum = 853;BA.debugLine="Sub actualizaProducto2(cedis As String, costoU As"; //BA.debugLineNum = 854;BA.debugLine="Private c As Cursor=B4XPages.MainPage.skmt.ExecQu"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select * from pedido where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")))); //BA.debugLineNum = 856;BA.debugLine="LogColor($\"actualizaProducto, c=${clienteId}, p=$"; anywheresoftware.b4a.keywords.Common.LogImpl("074907651",("actualizaProducto, c="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+", p="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+", nombre="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_nombre))+", cant="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cant))+", cedis="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+", tipo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tipoventa))+""),anywheresoftware.b4a.keywords.Common.Colors.Magenta); //BA.debugLineNum = 858;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 859;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 860;BA.debugLine="Private antCant As Int = 0"; _antcant = (int) (0); //BA.debugLineNum = 861;BA.debugLine="If IsNumber(c.GetInt(\"PE_CANT\")) Then antCant=c."; if (anywheresoftware.b4a.keywords.Common.IsNumber(BA.NumberToString(_c.GetInt("PE_CANT")))) { _antcant = _c.GetInt("PE_CANT");}; //BA.debugLineNum = 862;BA.debugLine="Private difCant As Int = cant - antCant"; _difcant = (int) (_cant-_antcant); //BA.debugLineNum = 863;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update ped"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update pedido set pe_cant = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cant))+", pe_costo_tot = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(((double)(Double.parseDouble(_cantc))*(double)(Double.parseDouble(_c.GetString("PE_COSTOU"))))))+", PE_CANTC = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cantc))+", PE_BCAJAS = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_bcajas))+" where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")); //BA.debugLineNum = 865;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ("+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_difcant))+") where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' ")); //BA.debugLineNum = 866;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen - ("+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_difcant))+") where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' ")); //BA.debugLineNum = 868;BA.debugLine="If cant = 0 Then"; if (_cant==0) { //BA.debugLineNum = 869;BA.debugLine="Log(\"BORRAMOS PROD\")"; anywheresoftware.b4a.keywords.Common.LogImpl("074907664","BORRAMOS PROD",0); //BA.debugLineNum = 870;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"delete fr"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("delete from pedido where pe_cedis = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cedis))+"' and pe_proid = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodid))+"' and pe_cliente = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_clienteid))+"' AND PE_FOLIO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._tipo_venta /*String*/ ))+"'")); //BA.debugLineNum = 871;BA.debugLine="Private pe As Cursor = B4XPages.MainPage.skmt.E"; _pe = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _pe = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_cliente In (select cuenta from cuentaa)"))); //BA.debugLineNum = 872;BA.debugLine="pe.Position=0"; _pe.setPosition((int) (0)); //BA.debugLineNum = 873;BA.debugLine="If pe.GetString(\"cuantosPedidos\") = 0 Then B4XP"; if ((_pe.GetString("cuantosPedidos")).equals(BA.NumberToString(0))) { mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)");}; }; }else { //BA.debugLineNum = 877;BA.debugLine="If cant <> 0 Then guardaProductoSinGestion2(cedi"; if (_cant!=0) { _guardaproductosingestion2(_ba,_cedis,_costou,BA.NumberToString(_cant),_nombre,_prodid,_clienteid,_fecha,_usuario,_rutav,_preciosin,_tipoventa,_cantc,_bcajas);}; }; //BA.debugLineNum = 879;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 880;BA.debugLine="End Sub"; return ""; } public static String _actualizatet(anywheresoftware.b4a.BA _ba,String _cliente) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; long _total = 0L; int _i = 0; long _subtotal = 0L; //BA.debugLineNum = 1420;BA.debugLine="Sub actualizaTET(cliente As String)"; //BA.debugLineNum = 1421;BA.debugLine="Dim c As Cursor = B4XPages.MainPage.skmt.Execquer"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("select * from PEDIDO_INICIO_FINAL where PIF_CLIENTE = ?",new String[]{_cliente}))); //BA.debugLineNum = 1422;BA.debugLine="Dim total As Long = 0"; _total = (long) (0); //BA.debugLineNum = 1423;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1424;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1425;BA.debugLine="For i = 0 To c.RowCount-1"; { final int step5 = 1; final int limit5 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit5 ;_i = _i + step5 ) { //BA.debugLineNum = 1426;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 1428;BA.debugLine="Dim subtotal As Long = c.GetString(\"PIF_HORA_FI"; _subtotal = (long) ((double)(Double.parseDouble(_c.GetString("PIF_HORA_FINAL")))-(double)(Double.parseDouble(_c.GetString("PIF_HORA_INICIO")))); //BA.debugLineNum = 1429;BA.debugLine="total = total + subtotal"; _total = (long) (_total+_subtotal); } }; //BA.debugLineNum = 1433;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"update PED"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("update PEDIDO_CLIENTE set PC_TIEMPO_TIENDA = ? where PC_CLIENTE = ?",anywheresoftware.b4a.keywords.Common.ArrayToList(new String[]{BA.NumberToString(((_total/(double)1000)/(double)60)),_cliente})); }; //BA.debugLineNum = 1435;BA.debugLine="End Sub"; return ""; } public static String _agregacolumna(anywheresoftware.b4a.BA _ba,String _tabla,String _columna,String _tipo) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; //BA.debugLineNum = 1517;BA.debugLine="Sub agregaColumna(tabla As String, columna As Stri"; //BA.debugLineNum = 1518;BA.debugLine="Try 'Intentamos usar \"pragma_table_info\" para rev"; try { //BA.debugLineNum = 1519;BA.debugLine="Private c As Cursor = B4XPages.MainPage.skmt.Exe"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("SELECT COUNT(*) AS fCol FROM pragma_table_info('"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tabla))+"') WHERE name='"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_columna))+"'")))); //BA.debugLineNum = 1520;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1521;BA.debugLine="If c.GetString(\"fCol\") = 0 Then 'Si no esta la c"; if ((_c.GetString("fCol")).equals(BA.NumberToString(0))) { //BA.debugLineNum = 1522;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"ALTER TAB"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("ALTER TABLE "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tabla))+" ADD COLUMN "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_columna))+" "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tipo))+"")); }; } catch (Exception e8) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e8); //BA.debugLineNum = 1526;BA.debugLine="Try"; try { //BA.debugLineNum = 1527;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"ALTER TAB"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("ALTER TABLE "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tabla))+" ADD COLUMN "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_columna))+" "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tipo))+"")); //BA.debugLineNum = 1528;BA.debugLine="Log($\"Columna \"${columna} ${tipo}\", agregada a"; anywheresoftware.b4a.keywords.Common.LogImpl("076546059",("Columna \""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_columna))+" "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tipo))+"\", agregada a \""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_tabla))+"\".."),0); } catch (Exception e12) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e12); //BA.debugLineNum = 1530;BA.debugLine="Log(LastException)"; anywheresoftware.b4a.keywords.Common.LogImpl("076546061",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),0); }; }; //BA.debugLineNum = 1533;BA.debugLine="End Sub"; return ""; } public static boolean _alcanzanlosvariablesparapromo(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _promomap,anywheresoftware.b4a.objects.collections.Map _inventariosinfijos) throws Exception{ boolean _thislog = false; int _totalprodsvariables = 0; int _totalprodsvariables2 = 0; anywheresoftware.b4a.objects.collections.List _prodsvariables = null; anywheresoftware.b4a.objects.collections.List _prodsvariables2 = null; int _p = 0; String _t = ""; String _p2 = ""; boolean _res = false; boolean _res1 = false; boolean _res2 = false; //BA.debugLineNum = 1106;BA.debugLine="Sub alcanzanLosVariablesParaPromo(promoMap As Map,"; //BA.debugLineNum = 1107;BA.debugLine="Private thisLog As Boolean = False 'Si es verdade"; _thislog = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1108;BA.debugLine="If thisLog Then LogColor(\"Inventario inicial: \"&i"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075497474","Inventario inicial: "+BA.ObjectToString(_inventariosinfijos),anywheresoftware.b4a.keywords.Common.Colors.Gray);}; //BA.debugLineNum = 1109;BA.debugLine="Private totalProdsVariables As Int = 0"; _totalprodsvariables = (int) (0); //BA.debugLineNum = 1110;BA.debugLine="Private totalProdsVariables2 As Int = 0"; _totalprodsvariables2 = (int) (0); //BA.debugLineNum = 1112;BA.debugLine="Private prodsVariables As List = promoMap.get(\"pr"; _prodsvariables = new anywheresoftware.b4a.objects.collections.List(); _prodsvariables = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsVariables")))); //BA.debugLineNum = 1113;BA.debugLine="Private prodsVariables2 As List = promoMap.get(\"p"; _prodsvariables2 = new anywheresoftware.b4a.objects.collections.List(); _prodsvariables2 = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsVariables2")))); //BA.debugLineNum = 1114;BA.debugLine="For p = 0 To prodsVariables.Size - 1"; { final int step7 = 1; final int limit7 = (int) (_prodsvariables.getSize()-1); _p = (int) (0) ; for (;_p <= limit7 ;_p = _p + step7 ) { //BA.debugLineNum = 1115;BA.debugLine="Private t As String = prodsVariables.Get(p) 'Obt"; _t = BA.ObjectToString(_prodsvariables.Get(_p)); //BA.debugLineNum = 1117;BA.debugLine="If inventarioSinFijos.ContainsKey(t) Then 'Si ex"; if (_inventariosinfijos.ContainsKey((Object)(_t))) { //BA.debugLineNum = 1118;BA.debugLine="Private p2 As String = inventarioSinFijos.Get(t"; _p2 = BA.ObjectToString(_inventariosinfijos.Get((Object)(_t))); //BA.debugLineNum = 1120;BA.debugLine="totalProdsVariables = totalProdsVariables + p2"; _totalprodsvariables = (int) (_totalprodsvariables+(double)(Double.parseDouble(_p2))); //BA.debugLineNum = 1122;BA.debugLine="If thisLog Then Log($\"prod ${t}, hay: ${p2}\"$)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075497488",("prod "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_t))+", hay: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_p2))+""),0);}; }; } }; //BA.debugLineNum = 1125;BA.debugLine="For p = 0 To prodsVariables2.Size - 1"; { final int step15 = 1; final int limit15 = (int) (_prodsvariables2.getSize()-1); _p = (int) (0) ; for (;_p <= limit15 ;_p = _p + step15 ) { //BA.debugLineNum = 1126;BA.debugLine="Private t As String = prodsVariables2.Get(p) 'Ob"; _t = BA.ObjectToString(_prodsvariables2.Get(_p)); //BA.debugLineNum = 1127;BA.debugLine="If inventarioSinFijos.ContainsKey(t) Then 'Si ex"; if (_inventariosinfijos.ContainsKey((Object)(_t))) { //BA.debugLineNum = 1128;BA.debugLine="Private p2 As String = inventarioSinFijos.Get(t"; _p2 = BA.ObjectToString(_inventariosinfijos.Get((Object)(_t))); //BA.debugLineNum = 1129;BA.debugLine="totalProdsVariables2 = totalProdsVariables2 + p"; _totalprodsvariables2 = (int) (_totalprodsvariables2+(double)(Double.parseDouble(_p2))); //BA.debugLineNum = 1130;BA.debugLine="If thisLog Then Log($\"prod ${t}, hay: ${p2}\"$)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075497496",("prod "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_t))+", hay: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_p2))+""),0);}; }; } }; //BA.debugLineNum = 1133;BA.debugLine="If thisLog Then Log(\"Total prods variables=\" & to"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075497499","Total prods variables="+BA.NumberToString(_totalprodsvariables)+", requeridos="+BA.ObjectToString(_promomap.Get((Object)("prodsVariablesRequeridos"))),0);}; //BA.debugLineNum = 1134;BA.debugLine="If thisLog Then Log(\"Total prods variables2=\" & t"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075497500","Total prods variables2="+BA.NumberToString(_totalprodsvariables2)+", requeridos2="+BA.ObjectToString(_promomap.Get((Object)("prodsVariables2Requeridos"))),0);}; //BA.debugLineNum = 1135;BA.debugLine="Private res As Boolean = False"; _res = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1136;BA.debugLine="Private res1 As Boolean = False"; _res1 = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1137;BA.debugLine="Private res2 As Boolean = False"; _res2 = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1142;BA.debugLine="If totalProdsVariables > 0 And totalProdsVariable"; if (_totalprodsvariables>0 && _totalprodsvariables>=(double)(BA.ObjectToNumber(_promomap.Get((Object)("prodsVariablesRequeridos"))))) { //BA.debugLineNum = 1143;BA.debugLine="res1 = True 'Si el total de inventario de produc"; _res1 = anywheresoftware.b4a.keywords.Common.True; }; //BA.debugLineNum = 1145;BA.debugLine="If promoMap.Get(\"prodsVariablesRequeridos\").As (I"; if (((int)(BA.ObjectToNumber(_promomap.Get((Object)("prodsVariablesRequeridos")))))==0) { _res1 = anywheresoftware.b4a.keywords.Common.True;}; //BA.debugLineNum = 1146;BA.debugLine="If totalProdsVariables2 > 0 And totalProdsVariabl"; if (_totalprodsvariables2>0 && _totalprodsvariables2>=(double)(BA.ObjectToNumber(_promomap.Get((Object)("prodsVariables2Requeridos"))))) { //BA.debugLineNum = 1147;BA.debugLine="res2 = True 'Si el total de inventario de produc"; _res2 = anywheresoftware.b4a.keywords.Common.True; }; //BA.debugLineNum = 1149;BA.debugLine="If promoMap.Get(\"prodsVariables2Requeridos\").As(I"; if (((int)(BA.ObjectToNumber(_promomap.Get((Object)("prodsVariables2Requeridos")))))==0) { _res2 = anywheresoftware.b4a.keywords.Common.True;}; //BA.debugLineNum = 1150;BA.debugLine="Log(res1&\" ________________________\" & res2)"; anywheresoftware.b4a.keywords.Common.LogImpl("075497516",BA.ObjectToString(_res1)+" ________________________"+BA.ObjectToString(_res2),0); //BA.debugLineNum = 1151;BA.debugLine="If res1 And res2 Then 'Solo si son verdadero los"; if (_res1 && _res2) { //BA.debugLineNum = 1152;BA.debugLine="res = True"; _res = anywheresoftware.b4a.keywords.Common.True; }else { //BA.debugLineNum = 1154;BA.debugLine="res = False"; _res = anywheresoftware.b4a.keywords.Common.False; }; //BA.debugLineNum = 1157;BA.debugLine="Return res"; if (true) return _res; //BA.debugLineNum = 1158;BA.debugLine="End Sub"; return false; } public static String _borraarribade100errores(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 466;BA.debugLine="Sub borraArribaDe100Errores 'ignore"; //BA.debugLineNum = 467;BA.debugLine="revisaBD"; _revisabd(_ba); //BA.debugLineNum = 468;BA.debugLine="LogColor(\"Borramos BD de log\", Colors.Magenta)"; anywheresoftware.b4a.keywords.Common.LogImpl("073138178","Borramos BD de log",anywheresoftware.b4a.keywords.Common.Colors.Magenta); //BA.debugLineNum = 469;BA.debugLine="errorLog.ExecNonQuery(\"DELETE FROM errores WHERE"; _errorlog.ExecNonQuery("DELETE FROM errores WHERE fecha NOT in (SELECT fecha FROM errores ORDER BY fecha desc LIMIT 99 )"); //BA.debugLineNum = 470;BA.debugLine="errorLog.ExecNonQuery(\"vacuum;\")"; _errorlog.ExecNonQuery("vacuum;"); //BA.debugLineNum = 471;BA.debugLine="Log(\"Borramos mas de 100 de errorLog\")"; anywheresoftware.b4a.keywords.Common.LogImpl("073138181","Borramos mas de 100 de errorLog",0); //BA.debugLineNum = 472;BA.debugLine="End Sub"; return ""; } public static String _borraarribade600renglonesbitacora(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 475;BA.debugLine="Sub borraArribaDe600RenglonesBitacora 'ignore"; //BA.debugLineNum = 476;BA.debugLine="revisaBD"; _revisabd(_ba); //BA.debugLineNum = 477;BA.debugLine="LogColor(\"Borramos BD de log\", Colors.Magenta)"; anywheresoftware.b4a.keywords.Common.LogImpl("073203714","Borramos BD de log",anywheresoftware.b4a.keywords.Common.Colors.Magenta); //BA.debugLineNum = 478;BA.debugLine="kmt.ExecNonQuery(\"DELETE FROM bitacora WHERE fech"; _kmt.ExecNonQuery("DELETE FROM bitacora WHERE fecha NOT in (SELECT fecha FROM bitacora ORDER BY fecha desc LIMIT 599 )"); //BA.debugLineNum = 479;BA.debugLine="kmt.ExecNonQuery(\"vacuum;\")"; _kmt.ExecNonQuery("vacuum;"); //BA.debugLineNum = 480;BA.debugLine="Log(\"Borramos mas de 600 de bitacora\")"; anywheresoftware.b4a.keywords.Common.LogImpl("073203717","Borramos mas de 600 de bitacora",0); //BA.debugLineNum = 481;BA.debugLine="End Sub"; return ""; } public static String _borralogdb(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 350;BA.debugLine="Sub borraLogDB 'ignore"; //BA.debugLineNum = 351;BA.debugLine="LogColor(\"Borramos BD de log\", Colors.Magenta)"; anywheresoftware.b4a.keywords.Common.LogImpl("072941569","Borramos BD de log",anywheresoftware.b4a.keywords.Common.Colors.Magenta); //BA.debugLineNum = 352;BA.debugLine="kmt.ExecNonQuery(\"delete from bitacora\")"; _kmt.ExecNonQuery("delete from bitacora"); //BA.debugLineNum = 353;BA.debugLine="kmt.ExecNonQuery(\"vacuum;\")"; _kmt.ExecNonQuery("vacuum;"); //BA.debugLineNum = 354;BA.debugLine="End Sub"; return ""; } public static String _borramosarchivogps(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.objects.streams.File.OutputStreamWrapper _out = null; String _s = ""; byte[] _t = null; //BA.debugLineNum = 180;BA.debugLine="Sub borramosArchivoGPS 'ignore"; //BA.debugLineNum = 181;BA.debugLine="Dim out As OutputStream = File.OpenOutput(File.Di"; _out = new anywheresoftware.b4a.objects.streams.File.OutputStreamWrapper(); _out = anywheresoftware.b4a.keywords.Common.File.OpenOutput(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"gps.txt",anywheresoftware.b4a.keywords.Common.False); //BA.debugLineNum = 182;BA.debugLine="Dim s As String = \"\""; _s = ""; //BA.debugLineNum = 183;BA.debugLine="Dim t() As Byte = s.GetBytes(\"UTF-8\")"; _t = _s.getBytes("UTF-8"); //BA.debugLineNum = 184;BA.debugLine="out.WriteBytes(t, 0, t.Length)"; _out.WriteBytes(_t,(int) (0),_t.length); //BA.debugLineNum = 185;BA.debugLine="out.Close"; _out.Close(); //BA.debugLineNum = 186;BA.debugLine="End Sub"; return ""; } public static String _borrapedidoclienteactual(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _thisc = null; int _i = 0; //BA.debugLineNum = 1451;BA.debugLine="Sub borraPedidoClienteActual As String"; //BA.debugLineNum = 1465;BA.debugLine="Private thisC As Cursor"; _thisc = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1467;BA.debugLine="thisC=Starter.skmt.ExecQuery(\"select PE_PROID, PE"; _thisc = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select PE_PROID, PE_CANT, PE_FOLIO FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) "))); //BA.debugLineNum = 1468;BA.debugLine="If thisC.RowCount>0 Then"; if (_thisc.getRowCount()>0) { //BA.debugLineNum = 1469;BA.debugLine="For i=0 To thisC.RowCount -1"; { final int step4 = 1; final int limit4 = (int) (_thisc.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit4 ;_i = _i + step4 ) { //BA.debugLineNum = 1470;BA.debugLine="thisC.Position = i"; _thisc.setPosition(_i); //BA.debugLineNum = 1472;BA.debugLine="Starter.skmt.ExecNonQuery($\"update CAT_GUNAPROD"; mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_CANT")))+" where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_PROID")))+"'")); //BA.debugLineNum = 1473;BA.debugLine="Starter.skmt.ExecNonQuery($\"update CAT_GUNAPROD"; mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_CANT")))+" where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_PROID")))+"'")); //BA.debugLineNum = 1474;BA.debugLine="LogColor($\"update ${traeTablaProds(thisC.GetStr"; anywheresoftware.b4a.keywords.Common.LogImpl("076283927",("update "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_traetablaprods(_ba,_thisc.GetString("PE_FOLIO"))))+" set cat_gp_almacen = cat_gp_almacen + "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_CANT")))+" where cat_gp_id = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_thisc.GetString("PE_PROID")))+"'"),anywheresoftware.b4a.keywords.Common.Colors.Red); } }; }; //BA.debugLineNum = 1478;BA.debugLine="Starter.skmt.ExecNonQuery(\"delete from pedido_cli"; mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)"); //BA.debugLineNum = 1479;BA.debugLine="Starter.skmt.ExecNonQuery(\"delete from pedido whe"; mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)"); //BA.debugLineNum = 1480;BA.debugLine="Starter.skmt.ExecNonQuery(\"UPDATE kmt_info set ge"; mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)"); //BA.debugLineNum = 1481;BA.debugLine="Return 1"; if (true) return BA.NumberToString(1); //BA.debugLineNum = 1482;BA.debugLine="End Sub"; return ""; } public static String _buscadbusuario(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _usuario = ""; //BA.debugLineNum = 618;BA.debugLine="Sub buscaDBUsuario As String 'ignore"; //BA.debugLineNum = 619;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 620;BA.debugLine="Private usuario As String = \"SinUsuario\""; _usuario = "SinUsuario"; //BA.debugLineNum = 621;BA.debugLine="c=kmt.ExecQuery(\"select USUARIO from usuarioa\")"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_kmt.ExecQuery("select USUARIO from usuarioa"))); //BA.debugLineNum = 622;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 623;BA.debugLine="If c.RowCount > 0 Then usuario = c.GetString(\"USU"; if (_c.getRowCount()>0) { _usuario = _c.GetString("USUARIO");}; //BA.debugLineNum = 624;BA.debugLine="Return usuario"; if (true) return _usuario; //BA.debugLineNum = 625;BA.debugLine="End Sub"; return ""; } public static String _centraboton(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.ButtonWrapper _elemento,int _anchoelementosuperior) throws Exception{ //BA.debugLineNum = 40;BA.debugLine="Sub centraBoton(elemento As Button, anchoElementoS"; //BA.debugLineNum = 41;BA.debugLine="elemento.Left = Round(anchoElementoSuperior/2)-(e"; _elemento.setLeft((int) (anywheresoftware.b4a.keywords.Common.Round(_anchoelementosuperior/(double)2)-(_elemento.getWidth()/(double)2))); //BA.debugLineNum = 42;BA.debugLine="End Sub"; return ""; } public static String _centraetiqueta(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.LabelWrapper _elemento,int _anchoelementosuperior) throws Exception{ //BA.debugLineNum = 598;BA.debugLine="Sub centraEtiqueta(elemento As Label, anchoElement"; //BA.debugLineNum = 599;BA.debugLine="elemento.Left = Round(anchoElementoSuperior/2)-(e"; _elemento.setLeft((int) (anywheresoftware.b4a.keywords.Common.Round(_anchoelementosuperior/(double)2)-(_elemento.getWidth()/(double)2))); //BA.debugLineNum = 600;BA.debugLine="End Sub"; return ""; } public static String _centrapanel(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.PanelWrapper _elemento,int _anchoelementosuperior) throws Exception{ //BA.debugLineNum = 603;BA.debugLine="Sub centraPanel(elemento As Panel, anchoElementoSu"; //BA.debugLineNum = 604;BA.debugLine="elemento.Left = Round(anchoElementoSuperior/2)-(e"; _elemento.setLeft((int) (anywheresoftware.b4a.keywords.Common.Round(_anchoelementosuperior/(double)2)-(_elemento.getWidth()/(double)2))); //BA.debugLineNum = 605;BA.debugLine="End Sub"; return ""; } public static String _centrapanelv(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.PanelWrapper _elemento,int _altoelementosuperior) throws Exception{ //BA.debugLineNum = 608;BA.debugLine="Sub centraPanelV(elemento As Panel, altoElementoSu"; //BA.debugLineNum = 609;BA.debugLine="elemento.Top = Round(altoElementoSuperior/2)-(ele"; _elemento.setTop((int) (anywheresoftware.b4a.keywords.Common.Round(_altoelementosuperior/(double)2)-(_elemento.getHeight()/(double)2))); //BA.debugLineNum = 610;BA.debugLine="End Sub"; return ""; } public static String _centraprogressbar(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.ProgressBarWrapper _elemento,int _anchoelementosuperior) throws Exception{ //BA.debugLineNum = 613;BA.debugLine="Sub centraProgressBar(elemento As ProgressBar, anc"; //BA.debugLineNum = 614;BA.debugLine="elemento.Left = Round(anchoElementoSuperior/2)-(e"; _elemento.setLeft((int) (anywheresoftware.b4a.keywords.Common.Round(_anchoelementosuperior/(double)2)-(_elemento.getWidth()/(double)2))); //BA.debugLineNum = 615;BA.debugLine="End Sub"; return ""; } public static String _compress(anywheresoftware.b4a.BA _ba,String _str) throws Exception{ byte[] _compressed = null; String _base64 = ""; //BA.debugLineNum = 45;BA.debugLine="Sub compress(str As String) As String 'ignore"; //BA.debugLineNum = 47;BA.debugLine="Dim compressed() As Byte = GZip.compress(str)"; _compressed = _gzip.compress(_str); //BA.debugLineNum = 50;BA.debugLine="Dim base64 As String = su.EncodeBase64(compressed"; _base64 = _su.EncodeBase64(_compressed); //BA.debugLineNum = 51;BA.debugLine="Log($\"Comprimido: ${base64.Length}\"$)"; anywheresoftware.b4a.keywords.Common.LogImpl("071696390",("Comprimido: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_base64.length()))+""),0); //BA.debugLineNum = 53;BA.debugLine="Return base64"; if (true) return _base64; //BA.debugLineNum = 54;BA.debugLine="End Sub"; return ""; } public static String _copiadb(anywheresoftware.b4a.BA _ba,boolean _result) throws Exception{ String _p = ""; String _thedir = ""; //BA.debugLineNum = 556;BA.debugLine="Sub copiaDB(result As Boolean) 'ignore"; //BA.debugLineNum = 557;BA.debugLine="ToastMessageShow(\"copiaDB\", False)"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("copiaDB"),anywheresoftware.b4a.keywords.Common.False); //BA.debugLineNum = 558;BA.debugLine="If result Then"; if (_result) { //BA.debugLineNum = 559;BA.debugLine="Dim p As String"; _p = ""; //BA.debugLineNum = 560;BA.debugLine="If File.ExternalWritable Then"; if (anywheresoftware.b4a.keywords.Common.File.getExternalWritable()) { //BA.debugLineNum = 561;BA.debugLine="p = File.DirInternal"; _p = anywheresoftware.b4a.keywords.Common.File.getDirInternal(); }else { //BA.debugLineNum = 564;BA.debugLine="p = File.DirInternal"; _p = anywheresoftware.b4a.keywords.Common.File.getDirInternal(); }; //BA.debugLineNum = 567;BA.debugLine="Dim theDir As String"; _thedir = ""; //BA.debugLineNum = 568;BA.debugLine="Try"; try { //BA.debugLineNum = 569;BA.debugLine="File.MakeDir(File.DirInternal,\"kmts\")"; anywheresoftware.b4a.keywords.Common.File.MakeDir(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"kmts"); //BA.debugLineNum = 570;BA.debugLine="theDir = \"/kmts\""; _thedir = "/kmts"; } catch (Exception e14) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e14); //BA.debugLineNum = 572;BA.debugLine="theDir = \"\""; _thedir = ""; }; //BA.debugLineNum = 574;BA.debugLine="Try"; try { //BA.debugLineNum = 575;BA.debugLine="File.Copy(File.DirInternal,\"kmt.db\",File.DirInt"; anywheresoftware.b4a.keywords.Common.File.Copy(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"kmt.db",anywheresoftware.b4a.keywords.Common.File.getDirInternal()+_thedir,"cedex_kmt.db"); //BA.debugLineNum = 576;BA.debugLine="File.Copy(File.DirInternal,\"errorLog.db\",File.D"; anywheresoftware.b4a.keywords.Common.File.Copy(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"errorLog.db",anywheresoftware.b4a.keywords.Common.File.getDirInternal()+_thedir,"cedex_errorLog.db"); //BA.debugLineNum = 577;BA.debugLine="ToastMessageShow(\"BD copiada!\", False)"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("BD copiada!"),anywheresoftware.b4a.keywords.Common.False); } catch (Exception e21) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e21); //BA.debugLineNum = 579;BA.debugLine="ToastMessageShow(\"No se pudo hacer la copia: \"&"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("No se pudo hacer la copia: "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba))),anywheresoftware.b4a.keywords.Common.True); }; //BA.debugLineNum = 581;BA.debugLine="Log(\"rootExternal=\"&p)"; anywheresoftware.b4a.keywords.Common.LogImpl("073531417","rootExternal="+_p,0); //BA.debugLineNum = 582;BA.debugLine="Log(\"File.DirInternal=\"&File.DirInternal)"; anywheresoftware.b4a.keywords.Common.LogImpl("073531418","File.DirInternal="+anywheresoftware.b4a.keywords.Common.File.getDirInternal(),0); //BA.debugLineNum = 583;BA.debugLine="Log(\"File.DirInternal=\"&File.DirInternal)"; anywheresoftware.b4a.keywords.Common.LogImpl("073531419","File.DirInternal="+anywheresoftware.b4a.keywords.Common.File.getDirInternal(),0); }else { //BA.debugLineNum = 585;BA.debugLine="ToastMessageShow(\"Sin permisos\", False)"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("Sin permisos"),anywheresoftware.b4a.keywords.Common.False); }; //BA.debugLineNum = 587;BA.debugLine="End Sub"; return ""; } public static String _cuantosvariablestengobd(anywheresoftware.b4a.BA _ba,String _promo) throws Exception{ //BA.debugLineNum = 1384;BA.debugLine="Sub cuantosVariablesTengoBD(promo As String) As St"; //BA.debugLineNum = 1395;BA.debugLine="End Sub"; return ""; } public static String _dameerroresjson(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.sql.SQL _sql,int _maxerrores,boolean _comprimido) throws Exception{ anywheresoftware.b4a.objects.collections.JSONParser.JSONGenerator _j = null; String _lim = ""; anywheresoftware.b4a.sql.SQL.ResultSetWrapper _cur = null; anywheresoftware.b4a.objects.collections.List _l = null; int _i = 0; anywheresoftware.b4a.objects.collections.Map _m = null; anywheresoftware.b4a.objects.collections.Map _m2 = null; //BA.debugLineNum = 494;BA.debugLine="Sub dameErroresJSON(SQL As SQL, maxErrores As Int,"; //BA.debugLineNum = 495;BA.debugLine="Log(\"dameErroresJSON\")"; anywheresoftware.b4a.keywords.Common.LogImpl("073334785","dameErroresJSON",0); //BA.debugLineNum = 496;BA.debugLine="Private j As JSONGenerator"; _j = new anywheresoftware.b4a.objects.collections.JSONParser.JSONGenerator(); //BA.debugLineNum = 497;BA.debugLine="Private lim As String"; _lim = ""; //BA.debugLineNum = 498;BA.debugLine="Private cur As ResultSet"; _cur = new anywheresoftware.b4a.sql.SQL.ResultSetWrapper(); //BA.debugLineNum = 499;BA.debugLine="Private l As List"; _l = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 500;BA.debugLine="Private i As Int = 0"; _i = (int) (0); //BA.debugLineNum = 501;BA.debugLine="l.Initialize"; _l.Initialize(); //BA.debugLineNum = 502;BA.debugLine="Dim m, m2 As Map"; _m = new anywheresoftware.b4a.objects.collections.Map(); _m2 = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 503;BA.debugLine="m2.Initialize"; _m2.Initialize(); //BA.debugLineNum = 504;BA.debugLine="If maxErrores = 0 Then lim = \"\" Else lim = \"limit"; if (_maxerrores==0) { _lim = "";} else { _lim = "limit "+BA.NumberToString(_maxerrores);}; //BA.debugLineNum = 505;BA.debugLine="cur = SQL.ExecQuery(\"select * from errores order"; _cur = (anywheresoftware.b4a.sql.SQL.ResultSetWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.ResultSetWrapper(), (android.database.Cursor)(_sql.ExecQuery("select * from errores order by fecha desc "+_lim))); //BA.debugLineNum = 506;BA.debugLine="Do While cur.NextRow"; while (_cur.NextRow()) { //BA.debugLineNum = 507;BA.debugLine="m.Initialize"; _m.Initialize(); //BA.debugLineNum = 508;BA.debugLine="m.Put(\"fecha\", cur.GetString(\"fecha\"))"; _m.Put((Object)("fecha"),(Object)(_cur.GetString("fecha"))); //BA.debugLineNum = 509;BA.debugLine="m.Put(\"error\", cur.GetString(\"error\"))"; _m.Put((Object)("error"),(Object)(_cur.GetString("error"))); //BA.debugLineNum = 510;BA.debugLine="m2.Put(i,m)"; _m2.Put((Object)(_i),(Object)(_m.getObject())); //BA.debugLineNum = 511;BA.debugLine="i = i + 1"; _i = (int) (_i+1); } ; //BA.debugLineNum = 513;BA.debugLine="cur.Close"; _cur.Close(); //BA.debugLineNum = 514;BA.debugLine="j.Initialize(m2)"; _j.Initialize(_m2); //BA.debugLineNum = 515;BA.debugLine="Log(j.ToString)"; anywheresoftware.b4a.keywords.Common.LogImpl("073334805",_j.ToString(),0); //BA.debugLineNum = 516;BA.debugLine="If comprimido Then"; if (_comprimido) { //BA.debugLineNum = 517;BA.debugLine="Return compress(j.ToString)"; if (true) return _compress(_ba,_j.ToString()); }else { //BA.debugLineNum = 519;BA.debugLine="Return j.ToString"; if (true) return _j.ToString(); }; //BA.debugLineNum = 521;BA.debugLine="End Sub"; return ""; } public static String _dameruta(anywheresoftware.b4a.BA _ba,String _inicioruta,String _origenruta) throws Exception{ String _fechainicio = ""; anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _ruta2 = ""; int _i = 0; //BA.debugLineNum = 136;BA.debugLine="Sub dameRuta(inicioRuta As String, origenRuta As S"; //BA.debugLineNum = 138;BA.debugLine="Dim fechaInicio As String"; _fechainicio = ""; //BA.debugLineNum = 139;BA.debugLine="Try 'incioRuta es numero"; try { //BA.debugLineNum = 140;BA.debugLine="inicioRuta = inicioRuta * 1"; _inicioruta = BA.NumberToString((double)(Double.parseDouble(_inicioruta))*1); //BA.debugLineNum = 142;BA.debugLine="fechaInicio = fechaKMT(DateTime.Now - (DateTime."; _fechainicio = _fechakmt(_ba,BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()-(anywheresoftware.b4a.keywords.Common.DateTime.TicksPerHour*(double)(Double.parseDouble(_inicioruta))))); } catch (Exception e6) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e6); //BA.debugLineNum = 144;BA.debugLine="fechaInicio = fechaInicioHoy"; _fechainicio = _fechainiciohoy(_ba); }; //BA.debugLineNum = 147;BA.debugLine="If subsLogs Then Log(\"fechaInicio: \"&fechaInicio&"; if (_subslogs) { anywheresoftware.b4a.keywords.Common.LogImpl("072155147","fechaInicio: "+_fechainicio+" | rutaHrsAtras="+BA.NumberToString(_rutahrsatras),0);}; //BA.debugLineNum = 148;BA.debugLine="Dim c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 149;BA.debugLine="If kmt.IsInitialized = False Then kmt.Initialize("; if (_kmt.IsInitialized()==anywheresoftware.b4a.keywords.Common.False) { _kmt.Initialize(mostCurrent._starter._ruta /*String*/ ,"kmt.db",anywheresoftware.b4a.keywords.Common.True);}; //BA.debugLineNum = 150;BA.debugLine="If subsLogs Then Log(\"select FECHA, LAT, LON from"; if (_subslogs) { anywheresoftware.b4a.keywords.Common.LogImpl("072155150","select FECHA, LAT, LON from "+_origenruta+" where FECHA > "+_fechainicio+" order by FECHA desc limit "+BA.NumberToString(_rutamaxpoints),0);}; //BA.debugLineNum = 151;BA.debugLine="c = kmt.ExecQuery(\"select FECHA, LAT, LON from \"&"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_kmt.ExecQuery("select FECHA, LAT, LON from "+_origenruta+" where FECHA > "+_fechainicio+" order by FECHA desc limit "+BA.NumberToString(_rutamaxpoints)))); //BA.debugLineNum = 152;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 153;BA.debugLine="Dim ruta2 As String = \"\""; _ruta2 = ""; //BA.debugLineNum = 154;BA.debugLine="If c.RowCount>0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 155;BA.debugLine="For i=0 To c.RowCount -1"; { final int step16 = 1; final int limit16 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit16 ;_i = _i + step16 ) { //BA.debugLineNum = 156;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 157;BA.debugLine="ruta2=ruta2&CRLF&c.GetString(\"LAT\")&\",\"&c.GetSt"; _ruta2 = _ruta2+anywheresoftware.b4a.keywords.Common.CRLF+_c.GetString("LAT")+","+_c.GetString("LON")+","+_c.GetString("FECHA"); //BA.debugLineNum = 158;BA.debugLine="B4XPages.MainPage.fechaRuta = c.GetString(\"FECH"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._fecharuta /*String*/ = _c.GetString("FECHA"); } }; }; //BA.debugLineNum = 161;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 162;BA.debugLine="Return compress(ruta2)"; if (true) return _compress(_ba,_ruta2); //BA.debugLineNum = 163;BA.debugLine="End Sub"; return ""; } public static String _dameusuariodedb(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _u = ""; //BA.debugLineNum = 628;BA.debugLine="Sub dameUsuarioDeDB As String 'ignore"; //BA.debugLineNum = 629;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 630;BA.debugLine="Private u As String = \"SinUsuario\""; _u = "SinUsuario"; //BA.debugLineNum = 631;BA.debugLine="If Not(kmt.IsInitialized) Then revisaBD"; if (anywheresoftware.b4a.keywords.Common.Not(_kmt.IsInitialized())) { _revisabd(_ba);}; //BA.debugLineNum = 632;BA.debugLine="c=kmt.ExecQuery(\"select USUARIO from usuarioa\")"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_kmt.ExecQuery("select USUARIO from usuarioa"))); //BA.debugLineNum = 633;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 634;BA.debugLine="If c.RowCount > 0 Then u = c.GetString(\"USUARIO\")"; if (_c.getRowCount()>0) { _u = _c.GetString("USUARIO");}; //BA.debugLineNum = 635;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 636;BA.debugLine="Return u"; if (true) return _u; //BA.debugLineNum = 637;BA.debugLine="End Sub"; return ""; } public static String _decompress(anywheresoftware.b4a.BA _ba,String _base64) throws Exception{ byte[] _decompressedbytes = null; anywheresoftware.b4a.agraham.byteconverter.ByteConverter _bc = null; String _uncompressed = ""; //BA.debugLineNum = 57;BA.debugLine="Sub decompress(base64 As String) As String 'ignore"; //BA.debugLineNum = 58;BA.debugLine="Dim decompressedbytes() As Byte = su.DecodeBase64"; _decompressedbytes = _su.DecodeBase64(_base64); //BA.debugLineNum = 60;BA.debugLine="Dim bc As ByteConverter"; _bc = new anywheresoftware.b4a.agraham.byteconverter.ByteConverter(); //BA.debugLineNum = 61;BA.debugLine="Dim uncompressed As String = bc.StringFromBytes(d"; _uncompressed = _bc.StringFromBytes(_decompressedbytes,"UTF8"); //BA.debugLineNum = 62;BA.debugLine="Log($\"Descomprimido: ${uncompressed.Length}\"$)"; anywheresoftware.b4a.keywords.Common.LogImpl("071761925",("Descomprimido: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_uncompressed.length()))+""),0); //BA.debugLineNum = 64;BA.debugLine="Return uncompressed"; if (true) return _uncompressed; //BA.debugLineNum = 65;BA.debugLine="End Sub"; return ""; } public static String _deleteerrorlog_db(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 173;BA.debugLine="Sub deleteErrorLog_DB 'ignore"; //BA.debugLineNum = 174;BA.debugLine="errorLog.ExecNonQuery(\"delete from errores\")"; _errorlog.ExecNonQuery("delete from errores"); //BA.debugLineNum = 175;BA.debugLine="errorLog.ExecNonQuery(\"vacuum;\")"; _errorlog.ExecNonQuery("vacuum;"); //BA.debugLineNum = 176;BA.debugLine="ToastMessageShow(\"BD Errores Borrada\", False)"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("BD Errores Borrada"),anywheresoftware.b4a.keywords.Common.False); //BA.debugLineNum = 177;BA.debugLine="End Sub"; return ""; } public static String _deletegps_db(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 166;BA.debugLine="Sub deleteGPS_DB 'ignore"; //BA.debugLineNum = 167;BA.debugLine="kmt.ExecNonQuery(\"delete from RUTA_GPS\")"; _kmt.ExecNonQuery("delete from RUTA_GPS"); //BA.debugLineNum = 168;BA.debugLine="kmt.ExecNonQuery(\"vacuum;\")"; _kmt.ExecNonQuery("vacuum;"); //BA.debugLineNum = 169;BA.debugLine="ToastMessageShow(\"Borramos BD Coords GPS\", False)"; anywheresoftware.b4a.keywords.Common.ToastMessageShow(BA.ObjectToCharSequence("Borramos BD Coords GPS"),anywheresoftware.b4a.keywords.Common.False); //BA.debugLineNum = 170;BA.debugLine="End Sub"; return ""; } public static String _fechainiciohoy(anywheresoftware.b4a.BA _ba) throws Exception{ String _origformat = ""; String _h = ""; //BA.debugLineNum = 309;BA.debugLine="Sub fechaInicioHoy As String 'ignore"; //BA.debugLineNum = 310;BA.debugLine="Dim OrigFormat As String = DateTime.DateFormat"; _origformat = anywheresoftware.b4a.keywords.Common.DateTime.getDateFormat(); //BA.debugLineNum = 311;BA.debugLine="DateTime.DateFormat=\"yyMMdd\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("yyMMdd"); //BA.debugLineNum = 312;BA.debugLine="Private h As String = DateTime.Date(DateTime.Now"; _h = anywheresoftware.b4a.keywords.Common.DateTime.Date(anywheresoftware.b4a.keywords.Common.DateTime.getNow())+"000000"; //BA.debugLineNum = 313;BA.debugLine="DateTime.DateFormat=OrigFormat 'return to orig"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat(_origformat); //BA.debugLineNum = 314;BA.debugLine="Log(\"Hoy=\"&h)"; anywheresoftware.b4a.keywords.Common.LogImpl("072679429","Hoy="+_h,0); //BA.debugLineNum = 315;BA.debugLine="Return h"; if (true) return _h; //BA.debugLineNum = 316;BA.debugLine="End Sub"; return ""; } public static String _fechakmt(anywheresoftware.b4a.BA _ba,String _fecha) throws Exception{ String _origformat = ""; String _nuevafecha = ""; //BA.debugLineNum = 68;BA.debugLine="Sub fechaKMT(fecha As String) As String 'ignore"; //BA.debugLineNum = 70;BA.debugLine="Dim OrigFormat As String = DateTime.DateFormat '"; _origformat = anywheresoftware.b4a.keywords.Common.DateTime.getDateFormat(); //BA.debugLineNum = 71;BA.debugLine="DateTime.DateFormat=\"yyMMddHHmmss\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("yyMMddHHmmss"); //BA.debugLineNum = 72;BA.debugLine="Dim nuevaFecha As String=DateTime.Date(fecha)"; _nuevafecha = anywheresoftware.b4a.keywords.Common.DateTime.Date((long)(Double.parseDouble(_fecha))); //BA.debugLineNum = 73;BA.debugLine="DateTime.DateFormat=OrigFormat 'return to orig d"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat(_origformat); //BA.debugLineNum = 75;BA.debugLine="Return nuevaFecha"; if (true) return _nuevafecha; //BA.debugLineNum = 76;BA.debugLine="End Sub"; return ""; } public static long _fechakmt2ticks(anywheresoftware.b4a.BA _ba,String _fkmt) throws Exception{ String _partefecha = ""; String _partehora = ""; String _origformat = ""; long _ticks = 0L; //BA.debugLineNum = 524;BA.debugLine="Sub fechaKMT2Ticks(fKMT As String) As Long 'ignore"; //BA.debugLineNum = 525;BA.debugLine="Try"; try { //BA.debugLineNum = 526;BA.debugLine="If fKMT.Length = 12 Then"; if (_fkmt.length()==12) { //BA.debugLineNum = 527;BA.debugLine="Private parteFecha As String = fKMT.SubString2("; _partefecha = _fkmt.substring((int) (0),(int) (6)); //BA.debugLineNum = 528;BA.debugLine="Private parteHora As String = fKMT.SubString(6)"; _partehora = _fkmt.substring((int) (6)); //BA.debugLineNum = 529;BA.debugLine="Private OrigFormat As String = DateTime.DateFor"; _origformat = anywheresoftware.b4a.keywords.Common.DateTime.getDateFormat(); //BA.debugLineNum = 530;BA.debugLine="DateTime.DateFormat=\"yymmdd\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("yymmdd"); //BA.debugLineNum = 531;BA.debugLine="DateTime.TimeFormat=\"HHmmss\""; anywheresoftware.b4a.keywords.Common.DateTime.setTimeFormat("HHmmss"); //BA.debugLineNum = 532;BA.debugLine="Private ticks As Long = DateTime.DateTimeParse("; _ticks = anywheresoftware.b4a.keywords.Common.DateTime.DateTimeParse(_partefecha,_partehora); //BA.debugLineNum = 533;BA.debugLine="DateTime.DateFormat=OrigFormat 'return to orig"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat(_origformat); //BA.debugLineNum = 534;BA.debugLine="Return ticks"; if (true) return _ticks; }else { //BA.debugLineNum = 536;BA.debugLine="Log(\"Formato de fecha incorrecto, debe de ser '"; anywheresoftware.b4a.keywords.Common.LogImpl("073400332","Formato de fecha incorrecto, debe de ser 'YYMMDDHHMMSS', no '"+_fkmt+"' largo="+BA.NumberToString(_fkmt.length()),0); //BA.debugLineNum = 537;BA.debugLine="Return 0"; if (true) return (long) (0); }; } catch (Exception e16) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e16); //BA.debugLineNum = 540;BA.debugLine="Log(LastException)"; anywheresoftware.b4a.keywords.Common.LogImpl("073400336",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),0); //BA.debugLineNum = 541;BA.debugLine="LogColor($\"Fecha dada: ${fKMT}, Parte Fecha: ${p"; anywheresoftware.b4a.keywords.Common.LogImpl("073400337",("Fecha dada: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_fkmt))+", Parte Fecha: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_partefecha))+", Parte Hora: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_partehora))+""),anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 542;BA.debugLine="Return 0"; if (true) return (long) (0); }; //BA.debugLineNum = 544;BA.debugLine="End Sub"; return 0L; } public static String _fechanormal(anywheresoftware.b4a.BA _ba,String _fecha) throws Exception{ String _origformat = ""; String _nuevafecha = ""; //BA.debugLineNum = 1614;BA.debugLine="Sub fechanormal(fecha As String) As String 'ignore"; //BA.debugLineNum = 1616;BA.debugLine="Dim OrigFormat As String = DateTime.DateFormat '"; _origformat = anywheresoftware.b4a.keywords.Common.DateTime.getDateFormat(); //BA.debugLineNum = 1617;BA.debugLine="DateTime.DateFormat = \"YYYY/MM/dd HH:mm:ss\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("YYYY/MM/dd HH:mm:ss"); //BA.debugLineNum = 1618;BA.debugLine="Dim nuevaFecha As String=DateTime.Date(fecha)"; _nuevafecha = anywheresoftware.b4a.keywords.Common.DateTime.Date((long)(Double.parseDouble(_fecha))); //BA.debugLineNum = 1619;BA.debugLine="DateTime.DateFormat = OrigFormat 'return to orig"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat(_origformat); //BA.debugLineNum = 1621;BA.debugLine="Return nuevaFecha"; if (true) return _nuevafecha; //BA.debugLineNum = 1622;BA.debugLine="End Sub"; return ""; } public static String _getphnid(anywheresoftware.b4a.BA _ba) throws Exception{ String _t = ""; String _s = ""; //BA.debugLineNum = 20;BA.debugLine="Sub getPhnId As String 'ignore"; //BA.debugLineNum = 22;BA.debugLine="devModel = phn.Model"; _devmodel = _phn.getModel(); //BA.debugLineNum = 23;BA.debugLine="If devModel.Length <= 3 Then 'Si phn.Model esta e"; if (_devmodel.length()<=3) { //BA.debugLineNum = 24;BA.debugLine="Dim t As String = phn.GetSettings(\"android_id\")"; _t = _phn.GetSettings("android_id"); //BA.debugLineNum = 25;BA.debugLine="devModel = t"; _devmodel = _t; }; //BA.debugLineNum = 27;BA.debugLine="If devModel.Length >= 3 Then 'Si tenemos valor pa"; if (_devmodel.length()>=3) { //BA.debugLineNum = 28;BA.debugLine="File.WriteString(File.DirInternal, \"phnId.txt\","; anywheresoftware.b4a.keywords.Common.File.WriteString(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"phnId.txt",_devmodel); }else if(_devmodel.length()<3) { //BA.debugLineNum = 31;BA.debugLine="Dim s As String = File.ReadString(File.DirIntern"; _s = anywheresoftware.b4a.keywords.Common.File.ReadString(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"phnId.txt"); //BA.debugLineNum = 32;BA.debugLine="devModel = s"; _devmodel = _s; }; //BA.debugLineNum = 36;BA.debugLine="Return devModel"; if (true) return _devmodel; //BA.debugLineNum = 37;BA.debugLine="End Sub"; return ""; } public static String _getssid(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 257;BA.debugLine="Sub getSSID 'ignore"; //BA.debugLineNum = 262;BA.debugLine="End Sub"; return ""; } public static String _guardaappinfo(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.sql.SQL _skmt) throws Exception{ //BA.debugLineNum = 1546;BA.debugLine="Sub guardaAppInfo(skmt As SQL)"; //BA.debugLineNum = 1547;BA.debugLine="skmt.ExecNonQuery(\"delete from CAT_VARIABLES wher"; _skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'"); //BA.debugLineNum = 1548;BA.debugLine="skmt.ExecNonQuery($\"insert into CAT_VARIABLES (CA"; _skmt.ExecNonQuery(("insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(anywheresoftware.b4a.keywords.Common.Application.getLabelName()))+"')")); //BA.debugLineNum = 1549;BA.debugLine="skmt.ExecNonQuery($\"insert into CAT_VARIABLES (CA"; _skmt.ExecNonQuery(("insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(anywheresoftware.b4a.keywords.Common.Application.getVersionName()))+"')")); //BA.debugLineNum = 1550;BA.debugLine="End Sub"; return ""; } public static String _guardaclientehorainicio(anywheresoftware.b4a.BA _ba,String _cliente) throws Exception{ //BA.debugLineNum = 1414;BA.debugLine="Sub guardaClienteHoraInicio(cliente As String)"; //BA.debugLineNum = 1415;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert into"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("insert into PEDIDO_INICIO_FINAL(PIF_CLIENTE, PIF_HORA_INICIO, PIF_HORA_FINAL) VALUES(?,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cliente),(Object)(anywheresoftware.b4a.keywords.Common.DateTime.getNow()),(Object)(0)})); //BA.debugLineNum = 1417;BA.debugLine="End Sub"; return ""; } public static String _guardainfoenarchivo(anywheresoftware.b4a.BA _ba,String _coords) throws Exception{ String _origformat = ""; String _lastupdate = ""; String _ubic = ""; anywheresoftware.b4a.objects.streams.File.OutputStreamWrapper _out = null; String _s = ""; byte[] _t = null; //BA.debugLineNum = 107;BA.debugLine="Sub guardaInfoEnArchivo(coords As String) 'ignore"; //BA.debugLineNum = 109;BA.debugLine="Dim OrigFormat As String=DateTime.DateFormat 'sa"; _origformat = anywheresoftware.b4a.keywords.Common.DateTime.getDateFormat(); //BA.debugLineNum = 110;BA.debugLine="DateTime.DateFormat=\"MMM-dd HH:mm:ss\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("MMM-dd HH:mm:ss"); //BA.debugLineNum = 111;BA.debugLine="Dim lastUpdate As String=DateTime.Date(DateTime.N"; _lastupdate = anywheresoftware.b4a.keywords.Common.DateTime.Date(anywheresoftware.b4a.keywords.Common.DateTime.getNow()); //BA.debugLineNum = 112;BA.debugLine="DateTime.DateFormat=OrigFormat 'return to orig d"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat(_origformat); //BA.debugLineNum = 114;BA.debugLine="Dim ubic As String = coords&\",\"&lastUpdate"; _ubic = _coords+","+_lastupdate; //BA.debugLineNum = 115;BA.debugLine="Dim out As OutputStream = File.OpenOutput(File.Di"; _out = new anywheresoftware.b4a.objects.streams.File.OutputStreamWrapper(); _out = anywheresoftware.b4a.keywords.Common.File.OpenOutput(anywheresoftware.b4a.keywords.Common.File.getDirInternal(),"gps.txt",anywheresoftware.b4a.keywords.Common.True); //BA.debugLineNum = 116;BA.debugLine="Dim s As String = ubic & CRLF"; _s = _ubic+anywheresoftware.b4a.keywords.Common.CRLF; //BA.debugLineNum = 117;BA.debugLine="Dim t() As Byte = s.GetBytes(\"UTF-8\")"; _t = _s.getBytes("UTF-8"); //BA.debugLineNum = 118;BA.debugLine="out.WriteBytes(t, 0, t.Length)"; _out.WriteBytes(_t,(int) (0),_t.length); //BA.debugLineNum = 119;BA.debugLine="out.Close"; _out.Close(); //BA.debugLineNum = 120;BA.debugLine="End Sub"; return ""; } public static String _guardainfoenbd(anywheresoftware.b4a.BA _ba,String _coords) throws Exception{ String[] _latlon = null; //BA.debugLineNum = 123;BA.debugLine="Sub guardaInfoEnBD(coords As String) 'ignore"; //BA.debugLineNum = 124;BA.debugLine="Log(\"Guardamos ubicacion en BD - \"&coords)"; anywheresoftware.b4a.keywords.Common.LogImpl("072089601","Guardamos ubicacion en BD - "+_coords,0); //BA.debugLineNum = 125;BA.debugLine="Try"; try { //BA.debugLineNum = 126;BA.debugLine="Dim latlon() As String = Regex.Split(\"\\|\", coord"; _latlon = anywheresoftware.b4a.keywords.Common.Regex.Split("\\|",_coords); //BA.debugLineNum = 127;BA.debugLine="If latlon.Length < 2 Then latlon = Regex.Split(\""; if (_latlon.length<2) { _latlon = anywheresoftware.b4a.keywords.Common.Regex.Split(",",_coords);}; //BA.debugLineNum = 128;BA.debugLine="If subsLogs Then Log(\"LatLon=\"&latlon)"; if (_subslogs) { anywheresoftware.b4a.keywords.Common.LogImpl("072089605","LatLon="+BA.ObjectToString(_latlon),0);}; //BA.debugLineNum = 129;BA.debugLine="kmt.ExecNonQuery2(\"INSERT INTO RUTA_GPS(FECHA, L"; _kmt.ExecNonQuery2("INSERT INTO RUTA_GPS(FECHA, LAT, LON) VALUES (?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_latlon[(int) (2)]),(Object)(_latlon[(int) (0)]),(Object)(_latlon[(int) (1)])})); } catch (Exception e8) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e8); //BA.debugLineNum = 131;BA.debugLine="LogColor(LastException, Colors.red)"; anywheresoftware.b4a.keywords.Common.LogImpl("072089608",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; //BA.debugLineNum = 133;BA.debugLine="End Sub"; return ""; } public static String _guardaproducto(anywheresoftware.b4a.BA _ba,String _cedis,String _costou,String _cant,String _nombre,String _prodid,String _clienteid,String _fecha,String _usuario,String _rutav,String _preciosin,String _tipoventa) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; //BA.debugLineNum = 781;BA.debugLine="Sub guardaProducto(cedis As String, costoU As Stri"; //BA.debugLineNum = 783;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 784;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cedis),(Object)(((double)(Double.parseDouble(_cant))*(double)(Double.parseDouble(_costou)))),(Object)(_costou),(Object)(_cant),(Object)(_nombre),(Object)(_prodid),(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_rutav),(Object)(_preciosin),(Object)(_tipoventa)})); //BA.debugLineNum = 785;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2($\"update ${S"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2(("update "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "),anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cant),(Object)(_prodid)})); //BA.debugLineNum = 786;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select sum(pe"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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)"))); //BA.debugLineNum = 787;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 788;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"delete from"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)"); //BA.debugLineNum = 789;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert into"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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 (?,?,?,?,?,?,?,?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_c.GetString("CANT_CLIE")),(Object)(_c.GetString("TOTAL_CLIE")),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lon_gps /*String*/ ),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lat_gps /*String*/ ),(Object)(_cedis),(Object)(_c.GetString("TOTAL_CLIE_SIN"))})); //BA.debugLineNum = 790;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"UPDATE kmt_i"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)"); //BA.debugLineNum = 791;BA.debugLine="End Sub"; return ""; } public static String _guardaproductosingestion(anywheresoftware.b4a.BA _ba,String _cedis,String _costou,String _cant,String _nombre,String _prodid,String _clienteid,String _fecha,String _usuario,String _rutav,String _preciosin,String _tipoventa,String _cantc,String _bcajas) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; //BA.debugLineNum = 796;BA.debugLine="Sub guardaProductoSinGestion(cedis As String, cost"; //BA.debugLineNum = 798;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 799;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cedis),(Object)(((double)(Double.parseDouble(_cant))*(double)(Double.parseDouble(_costou)))),(Object)(_costou),(Object)(_cant),(Object)(_nombre),(Object)(_prodid),(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_rutav),(Object)(_preciosin),(Object)(_tipoventa),(Object)(_cantc),(Object)(_bcajas)})); //BA.debugLineNum = 800;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2(("update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "),anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cant),(Object)(_prodid)})); //BA.debugLineNum = 801;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2(("update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "),anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cant),(Object)(_prodid)})); //BA.debugLineNum = 802;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select sum(pe"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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)"))); //BA.debugLineNum = 803;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 804;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"delete from"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)"); //BA.debugLineNum = 805;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert into"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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 (?,?,?,?,?,?,?,?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_c.GetString("CANT_CLIE")),(Object)(_c.GetString("TOTAL_CLIE")),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lon_gps /*String*/ ),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lat_gps /*String*/ ),(Object)(_cedis),(Object)(_c.GetString("TOTAL_CLIE_SIN"))})); //BA.debugLineNum = 806;BA.debugLine="End Sub"; return ""; } public static String _guardaproductosingestion2(anywheresoftware.b4a.BA _ba,String _cedis,String _costou,String _cant,String _nombre,String _prodid,String _clienteid,String _fecha,String _usuario,String _rutav,String _preciosin,String _tipoventa,String _cantc,String _bcajas) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; //BA.debugLineNum = 840;BA.debugLine="Sub guardaProductoSinGestion2(cedis As String, cos"; //BA.debugLineNum = 842;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 843;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cedis),(Object)(((double)(Double.parseDouble(_cantc))*(double)(Double.parseDouble(_costou)))),(Object)(_costou),(Object)(_cant),(Object)(_nombre),(Object)(_prodid),(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_rutav),(Object)(_preciosin),(Object)(_tipoventa),(Object)(_cantc),(Object)(_bcajas)})); //BA.debugLineNum = 845;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2(("update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "),anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cant),(Object)(_prodid)})); //BA.debugLineNum = 846;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2($\"update CAT"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2(("update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "),anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_cant),(Object)(_prodid)})); //BA.debugLineNum = 847;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select sum(pe"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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)"))); //BA.debugLineNum = 848;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 849;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"delete from"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)"); //BA.debugLineNum = 850;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert into"; mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .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 (?,?,?,?,?,?,?,?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_clienteid),(Object)(_fecha),(Object)(_usuario),(Object)(_c.GetString("CANT_CLIE")),(Object)(_c.GetString("TOTAL_CLIE")),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lon_gps /*String*/ ),(Object)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._lat_gps /*String*/ ),(Object)(_cedis),(Object)(_c.GetString("TOTAL_CLIE_SIN"))})); //BA.debugLineNum = 851;BA.debugLine="End Sub"; return ""; } public static boolean _haypedido(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _thisc = null; boolean _hay = false; //BA.debugLineNum = 1505;BA.debugLine="Sub hayPedido As Boolean"; //BA.debugLineNum = 1506;BA.debugLine="Private thisC As Cursor=B4XPages.MainPage.skmt.Ex"; _thisc = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _thisc = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_traecliente(_ba)))+"'")))); //BA.debugLineNum = 1507;BA.debugLine="thisC.Position=0"; _thisc.setPosition((int) (0)); //BA.debugLineNum = 1508;BA.debugLine="Private hay As Boolean = False"; _hay = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1509;BA.debugLine="If thisC.GetInt(\"hayPedido\") > 0 Then hay = True"; if (_thisc.GetInt("hayPedido")>0) { _hay = anywheresoftware.b4a.keywords.Common.True;}; //BA.debugLineNum = 1511;BA.debugLine="Return hay"; if (true) return _hay; //BA.debugLineNum = 1512;BA.debugLine="End Sub"; return false; } public static String _insertarenglonespruebaenerrorlog(anywheresoftware.b4a.BA _ba) throws Exception{ int _x = 0; //BA.debugLineNum = 484;BA.debugLine="Sub insertaRenglonesPruebaEnErrorLog 'ignore"; //BA.debugLineNum = 485;BA.debugLine="revisaBD"; _revisabd(_ba); //BA.debugLineNum = 486;BA.debugLine="Log(\"insertamos 50 renglones a errorLog\")"; anywheresoftware.b4a.keywords.Common.LogImpl("073269250","insertamos 50 renglones a errorLog",0); //BA.debugLineNum = 487;BA.debugLine="For x = 1 To 50"; { final int step3 = 1; final int limit3 = (int) (50); _x = (int) (1) ; for (;_x <= limit3 ;_x = _x + step3 ) { //BA.debugLineNum = 488;BA.debugLine="errorLog.ExecNonQuery2(\"INSERT INTO errores(fech"; _errorlog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_fechakmt(_ba,BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()))),(Object)("abc")})); //BA.debugLineNum = 489;BA.debugLine="Log(x)"; anywheresoftware.b4a.keywords.Common.LogImpl("073269253",BA.NumberToString(_x),0); } }; //BA.debugLineNum = 491;BA.debugLine="End Sub"; return ""; } public static String _installapk(anywheresoftware.b4a.BA _ba,String _dir,String _apk) throws Exception{ anywheresoftware.b4a.objects.IntentWrapper _i = null; //BA.debugLineNum = 546;BA.debugLine="Sub InstallAPK(dir As String, apk As String) 'igno"; //BA.debugLineNum = 547;BA.debugLine="If File.Exists(dir, apk) Then"; if (anywheresoftware.b4a.keywords.Common.File.Exists(_dir,_apk)) { //BA.debugLineNum = 548;BA.debugLine="Dim i As Intent"; _i = new anywheresoftware.b4a.objects.IntentWrapper(); //BA.debugLineNum = 549;BA.debugLine="i.Initialize(i.ACTION_VIEW, \"file://\" & File.Com"; _i.Initialize(_i.ACTION_VIEW,"file://"+anywheresoftware.b4a.keywords.Common.File.Combine(_dir,_apk)); //BA.debugLineNum = 550;BA.debugLine="i.SetType(\"application/vnd.android.package-archi"; _i.SetType("application/vnd.android.package-archive"); //BA.debugLineNum = 551;BA.debugLine="StartActivity(i)"; anywheresoftware.b4a.keywords.Common.StartActivity((_ba.processBA == null ? _ba : _ba.processBA),(Object)(_i.getObject())); }; //BA.debugLineNum = 553;BA.debugLine="End Sub"; return ""; } public static anywheresoftware.b4a.objects.collections.Map _json2map(anywheresoftware.b4a.BA _ba,String _thejson) throws Exception{ anywheresoftware.b4a.objects.collections.JSONParser _json = null; anywheresoftware.b4a.objects.collections.Map _m = null; //BA.debugLineNum = 265;BA.debugLine="Sub JSON2Map(theJson As String) As Map 'ignore"; //BA.debugLineNum = 267;BA.debugLine="Try"; try { //BA.debugLineNum = 268;BA.debugLine="Private json As JSONParser"; _json = new anywheresoftware.b4a.objects.collections.JSONParser(); //BA.debugLineNum = 269;BA.debugLine="json.Initialize(theJson)"; _json.Initialize(_thejson); //BA.debugLineNum = 270;BA.debugLine="Return json.NextObject"; if (true) return _json.NextObject(); } catch (Exception e6) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e6); //BA.debugLineNum = 272;BA.debugLine="Log(LastException)"; anywheresoftware.b4a.keywords.Common.LogImpl("072548359",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),0); //BA.debugLineNum = 273;BA.debugLine="log2DB(\"JSON2Map: \"&LastException)"; _log2db(_ba,"JSON2Map: "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba))); //BA.debugLineNum = 274;BA.debugLine="Private m As Map = CreateMap(\"title\":\"Error gene"; _m = new anywheresoftware.b4a.objects.collections.Map(); _m = anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("title"),(Object)("Error generating JSON"),(Object)("t"),(Object)("Error"),(Object)("Message"),(Object)(anywheresoftware.b4a.keywords.Common.LastException(_ba).getObject()),(Object)("text"),(Object)(anywheresoftware.b4a.keywords.Common.LastException(_ba).getObject())}); //BA.debugLineNum = 275;BA.debugLine="Return m"; if (true) return _m; }; //BA.debugLineNum = 277;BA.debugLine="End Sub"; return null; } public static String _log2db(anywheresoftware.b4a.BA _ba,String _texto) throws Exception{ //BA.debugLineNum = 319;BA.debugLine="Sub log2DB(texto As String) 'ignore"; //BA.debugLineNum = 320;BA.debugLine="LogColor(fechaKMT(DateTime.Now)&\" - log2BD: '\"&te"; anywheresoftware.b4a.keywords.Common.LogImpl("072744961",_fechakmt(_ba,BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()))+" - log2BD: '"+_texto+"'",anywheresoftware.b4a.keywords.Common.Colors.LightGray); //BA.debugLineNum = 321;BA.debugLine="kmt.ExecNonQuery2(\"INSERT INTO bitacora(fecha, te"; _kmt.ExecNonQuery2("INSERT INTO bitacora(fecha, texto) VALUES (?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_fechakmt(_ba,BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()))),(Object)(_texto)})); //BA.debugLineNum = 322;BA.debugLine="End Sub"; return ""; } public static String _logjobdoneresultados(anywheresoftware.b4a.BA _ba,medicomed.keymon.com.mx.dbrequestmanager._dbresult _resultado) throws Exception{ Object[] _records = null; String _k = ""; //BA.debugLineNum = 1536;BA.debugLine="Sub logJobDoneResultados(resultado As DBResult)"; //BA.debugLineNum = 1537;BA.debugLine="For Each records() As Object In resultado.Rows"; { final anywheresoftware.b4a.BA.IterableList group1 = _resultado.Rows /*anywheresoftware.b4a.objects.collections.List*/ ; final int groupLen1 = group1.getSize() ;int index1 = 0; ; for (; index1 < groupLen1;index1++){ _records = (Object[])(group1.Get(index1)); //BA.debugLineNum = 1538;BA.debugLine="LogColor($\"====== ${resultado.Tag} - REGISTROS ="; anywheresoftware.b4a.keywords.Common.LogImpl("076611586",("====== "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_resultado.Tag /*Object*/ )+" - REGISTROS = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_resultado.Rows /*anywheresoftware.b4a.objects.collections.List*/ .getSize()))+""),anywheresoftware.b4a.keywords.Common.Colors.RGB((int) (215),(int) (37),(int) (0))); //BA.debugLineNum = 1539;BA.debugLine="For Each k As String In resultado.Columns.Keys"; { final anywheresoftware.b4a.BA.IterableList group3 = _resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Keys(); final int groupLen3 = group3.getSize() ;int index3 = 0; ; for (; index3 < groupLen3;index3++){ _k = BA.ObjectToString(group3.Get(index3)); //BA.debugLineNum = 1540;BA.debugLine="LogColor(k & \" = \" & records(resultado.Columns."; anywheresoftware.b4a.keywords.Common.LogImpl("076611588",_k+" = "+BA.ObjectToString(_records[(int)(BA.ObjectToNumber(_resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Get((Object)(_k))))]),anywheresoftware.b4a.keywords.Common.Colors.RGB((int) (215),(int) (37),(int) (0))); } }; } }; //BA.debugLineNum = 1543;BA.debugLine="End Sub"; return ""; } public static String _map2json(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _m) throws Exception{ anywheresoftware.b4a.objects.collections.JSONParser.JSONGenerator _jg = null; String _t = ""; //BA.debugLineNum = 280;BA.debugLine="Sub map2JSON(m As Map) As String 'ignore"; //BA.debugLineNum = 283;BA.debugLine="Dim jg As JSONGenerator"; _jg = new anywheresoftware.b4a.objects.collections.JSONParser.JSONGenerator(); //BA.debugLineNum = 284;BA.debugLine="jg.Initialize(m)"; _jg.Initialize(_m); //BA.debugLineNum = 285;BA.debugLine="Dim t As String = jg.ToString"; _t = _jg.ToString(); //BA.debugLineNum = 286;BA.debugLine="Return t"; if (true) return _t; //BA.debugLineNum = 287;BA.debugLine="End Sub"; return ""; } public static boolean _masdexxmins(anywheresoftware.b4a.BA _ba,int _hora,int _mins) throws Exception{ //BA.debugLineNum = 325;BA.debugLine="Sub masDeXXMins(hora As Int, mins As Int) As Boole"; //BA.debugLineNum = 326;BA.debugLine="If (hora + mins * DateTime.TicksPerMinute) < Date"; if ((_hora+_mins*anywheresoftware.b4a.keywords.Common.DateTime.TicksPerMinute) 0 Then"; if (_g.getRowCount()>0) { //BA.debugLineNum = 1497;BA.debugLine="g.Position=0"; _g.setPosition((int) (0)); //BA.debugLineNum = 1498;BA.debugLine="If g.GetString(\"gestion\") = \"2\" Then guardado ="; if ((_g.GetString("gestion")).equals("2")) { _guardado = anywheresoftware.b4a.keywords.Common.True;}; }; //BA.debugLineNum = 1501;BA.debugLine="Return guardado"; if (true) return _guardado; //BA.debugLineNum = 1502;BA.debugLine="End Sub"; return false; } public static anywheresoftware.b4a.objects.collections.Map _procesapromocion(anywheresoftware.b4a.BA _ba,String _idpromo,String _cliente) throws Exception{ boolean _thislog = false; String _iniciocontador = ""; anywheresoftware.b4a.objects.collections.Map _pm = null; anywheresoftware.b4a.objects.collections.Map _inventariosinfijos = null; boolean _pv = false; //BA.debugLineNum = 1199;BA.debugLine="Sub procesaPromocion(idPromo As String, cliente As"; //BA.debugLineNum = 1200;BA.debugLine="Private thisLog As Boolean = True 'Si es verdade"; _thislog = anywheresoftware.b4a.keywords.Common.True; //BA.debugLineNum = 1201;BA.debugLine="Private inicioContador As String = DateTime.Now"; _iniciocontador = BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()); //BA.debugLineNum = 1202;BA.debugLine="If thisLog Then LogColor($\"********* Iniciamos re"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694083",("********* Iniciamos revision de Promo "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idpromo))+" *********"),anywheresoftware.b4a.keywords.Common.Colors.Magenta);}; //BA.debugLineNum = 1204;BA.debugLine="Private pm As Map = traePromo(idPromo, cliente)"; _pm = new anywheresoftware.b4a.objects.collections.Map(); _pm = _traepromo(_ba,_idpromo,_cliente); //BA.debugLineNum = 1205;BA.debugLine="If thisLog Then LogColor(pm, Colors.Blue)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694086",BA.ObjectToString(_pm),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1206;BA.debugLine="If pm.Get(\"resultado\") = \"ok\" Then 'Si encontramo"; if ((_pm.Get((Object)("resultado"))).equals((Object)("ok"))) { //BA.debugLineNum = 1208;BA.debugLine="If thisLog Then LogColor($\"Promociones permitida"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694089",("Promociones permitidas="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_traemaxpromos(_ba,_pm)))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1209;BA.debugLine="If thisLog Then Log(\"Promos vendidas: \" & traePr"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694090","Promos vendidas: "+BA.NumberToString(_traepromosvendidas(_ba,_idpromo,_cliente)),0);}; //BA.debugLineNum = 1210;BA.debugLine="If traePromosVendidas(idPromo, cliente) >= traeM"; if (_traepromosvendidas(_ba,_idpromo,_cliente)>=_traemaxpromos(_ba,_pm)) { //BA.debugLineNum = 1211;BA.debugLine="If thisLog Then LogColor(\"Ya se vendieron las p"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694092","Ya se vendieron las promos PERMITIDAS para el cliente",anywheresoftware.b4a.keywords.Common.Colors.Red);}; //BA.debugLineNum = 1212;BA.debugLine="Return CreateMap(\"status\":\"ko\", \"mp\":pm)"; if (true) return anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("status"),(Object)("ko"),(Object)("mp"),(Object)(_pm.getObject())}); }; //BA.debugLineNum = 1215;BA.debugLine="Private inventarioSinFijos As Map = restaFijosPr"; _inventariosinfijos = new anywheresoftware.b4a.objects.collections.Map(); _inventariosinfijos = _restafijospromo(_ba,_pm); //BA.debugLineNum = 1216;BA.debugLine="If thisLog Then LogColor(\"inventariosfijos=\"&inv"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694097","inventariosfijos="+BA.ObjectToString(_inventariosinfijos),anywheresoftware.b4a.keywords.Common.Colors.Green);}; //BA.debugLineNum = 1218;BA.debugLine="If inventarioSinFijos.Get(\"resultado\") = \"ok\" Th"; if ((_inventariosinfijos.Get((Object)("resultado"))).equals((Object)("ok"))) { //BA.debugLineNum = 1220;BA.debugLine="Private pv As Boolean = alcanzanLosVariablesPa"; _pv = _alcanzanlosvariablesparapromo(_ba,_pm,_inventariosinfijos); //BA.debugLineNum = 1221;BA.debugLine="If thisLog Then Log(\"Alcanzan los variables? --"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694102","Alcanzan los variables? --> "+BA.ObjectToString(_pv),0);}; //BA.debugLineNum = 1222;BA.debugLine="If pv Then Return CreateMap(\"status\":\"ok\", \"mp\""; if (_pv) { if (true) return anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("status"),(Object)("ok"),(Object)("mp"),(Object)(_pm.getObject())});} else { if (true) return anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("status"),(Object)("ko"),(Object)("mp"),(Object)(_pm.getObject())});}; }else { //BA.debugLineNum = 1224;BA.debugLine="If thisLog Then LogColor(\"NO HAY INVENTARIO SUF"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075694105","NO HAY INVENTARIO SUFICIENTE "+_idpromo,anywheresoftware.b4a.keywords.Common.Colors.Red);}; //BA.debugLineNum = 1225;BA.debugLine="Return CreateMap(\"status\":\"ko\", \"mp\":pm)"; if (true) return anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("status"),(Object)("ko"),(Object)("mp"),(Object)(_pm.getObject())}); }; }; //BA.debugLineNum = 1231;BA.debugLine="LogColor(\"TIEMPO DE PROCESO ESTA PROMO: \" & ((Dat"; anywheresoftware.b4a.keywords.Common.LogImpl("075694112","TIEMPO DE PROCESO ESTA PROMO: "+BA.NumberToString(((anywheresoftware.b4a.keywords.Common.DateTime.getNow()-(double)(Double.parseDouble(_iniciocontador)))/(double)1000)),anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 1232;BA.debugLine="End Sub"; return null; } public static String _process_globals() throws Exception{ //BA.debugLineNum = 3;BA.debugLine="Sub Process_Globals"; //BA.debugLineNum = 6;BA.debugLine="Public GZip As GZipStrings 'Usa la libreria Com"; _gzip = new de.donmanfred.GZipStringswrapper(); //BA.debugLineNum = 7;BA.debugLine="Private su As StringUtils 'Usa la libreria Stri"; _su = new anywheresoftware.b4a.objects.StringUtils(); //BA.debugLineNum = 8;BA.debugLine="Dim phn As Phone"; _phn = new anywheresoftware.b4a.phone.Phone(); //BA.debugLineNum = 9;BA.debugLine="Dim devModel As String"; _devmodel = ""; //BA.debugLineNum = 10;BA.debugLine="Dim kmt, errorLog As SQL 'Requiere la libreria \"S"; _kmt = new anywheresoftware.b4a.sql.SQL(); _errorlog = new anywheresoftware.b4a.sql.SQL(); //BA.debugLineNum = 12;BA.debugLine="Dim ssid As String 'ignore"; _ssid = ""; //BA.debugLineNum = 13;BA.debugLine="Dim rutaMaxPoints As Int = 3000"; _rutamaxpoints = (int) (3000); //BA.debugLineNum = 14;BA.debugLine="Dim rutaHrsAtras As Int = 48"; _rutahrsatras = (int) (48); //BA.debugLineNum = 16;BA.debugLine="Private subsLogs As Boolean = False"; _subslogs = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 17;BA.debugLine="End Sub"; return ""; } public static anywheresoftware.b4a.objects.collections.Map _restafijospromo(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _promomap) throws Exception{ boolean _thislog = false; anywheresoftware.b4a.objects.collections.Map _inventariosdisponiblesparaestapromo = null; int _i = 0; anywheresoftware.b4a.objects.collections.Map _prodsmap = null; anywheresoftware.b4a.objects.collections.List _prodsfijos = null; int _p = 0; String _t = ""; anywheresoftware.b4a.objects.collections.Map _p2 = null; //BA.debugLineNum = 1070;BA.debugLine="Sub restaFijosPromo(promoMap As Map) As Map 'ignor"; //BA.debugLineNum = 1071;BA.debugLine="Private thisLog As Boolean = True 'Si es verdader"; _thislog = anywheresoftware.b4a.keywords.Common.True; //BA.debugLineNum = 1072;BA.debugLine="Private inventariosDisponiblesParaEstaPromo As Ma"; _inventariosdisponiblesparaestapromo = new anywheresoftware.b4a.objects.collections.Map(); _inventariosdisponiblesparaestapromo = _traemosinventariodisponibleparapromo(_ba,BA.ObjectToString(_promomap.Get((Object)("id")))); //BA.debugLineNum = 1073;BA.debugLine="If thisLog Then LogColor(\"InvDisponible: \" & inve"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431939","InvDisponible: "+BA.ObjectToString(_inventariosdisponiblesparaestapromo),anywheresoftware.b4a.keywords.Common.Colors.Red);}; //BA.debugLineNum = 1074;BA.debugLine="If thisLog Then LogColor(\"Inventario inicial ante"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431940","Inventario inicial antes de FIJOS: "+BA.ObjectToString(_inventariosdisponiblesparaestapromo),anywheresoftware.b4a.keywords.Common.Colors.Gray);}; //BA.debugLineNum = 1075;BA.debugLine="inventariosDisponiblesParaEstaPromo.Put(\"resultad"; _inventariosdisponiblesparaestapromo.Put((Object)("resultado"),(Object)("ko")); //BA.debugLineNum = 1076;BA.debugLine="Private i As Int"; _i = 0; //BA.debugLineNum = 1077;BA.debugLine="Private prodsmap As Map = promoMap.Get(\"productos"; _prodsmap = new anywheresoftware.b4a.objects.collections.Map(); _prodsmap = (anywheresoftware.b4a.objects.collections.Map) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.Map(), (java.util.Map)(_promomap.Get((Object)("productos")))); //BA.debugLineNum = 1078;BA.debugLine="Private prodsFijos As List = promoMap.get(\"prodsF"; _prodsfijos = new anywheresoftware.b4a.objects.collections.List(); _prodsfijos = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsFijos")))); //BA.debugLineNum = 1079;BA.debugLine="For p = 0 To prodsFijos.Size - 1"; { final int step9 = 1; final int limit9 = (int) (_prodsfijos.getSize()-1); _p = (int) (0) ; for (;_p <= limit9 ;_p = _p + step9 ) { //BA.debugLineNum = 1080;BA.debugLine="Private t As String = prodsFijos.Get(p) 'Obtenem"; _t = BA.ObjectToString(_prodsfijos.Get(_p)); //BA.debugLineNum = 1081;BA.debugLine="Private p2 As Map = prodsmap.Get(t) 'Obtenemos u"; _p2 = new anywheresoftware.b4a.objects.collections.Map(); _p2 = (anywheresoftware.b4a.objects.collections.Map) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.Map(), (java.util.Map)(_prodsmap.Get((Object)(_t)))); //BA.debugLineNum = 1082;BA.debugLine="If thisLog Then Log($\"T: ${t}, prod ${p2.Get(\"id"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431948",("T: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_t))+", prod "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_p2.Get((Object)("idProducto")))+", piezas: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_p2.Get((Object)("piezas")))+""),0);}; //BA.debugLineNum = 1083;BA.debugLine="If thisLog Then Log(\"inventariosDisponiblesParaE"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431949","inventariosDisponiblesParaEstaPromo="+BA.ObjectToString(_inventariosdisponiblesparaestapromo),0);}; //BA.debugLineNum = 1084;BA.debugLine="If inventariosDisponiblesParaEstaPromo.ContainsK"; if (_inventariosdisponiblesparaestapromo.ContainsKey((Object)(_t))) { //BA.debugLineNum = 1085;BA.debugLine="i = inventariosDisponiblesParaEstaPromo.get(t)"; _i = (int)(BA.ObjectToNumber(_inventariosdisponiblesparaestapromo.Get((Object)(_t)))); //BA.debugLineNum = 1086;BA.debugLine="If thisLog Then Log($\"Nuevo inventario de ${t}:"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431952",("Nuevo inventario de "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_t))+": "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_i))+"-"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",((anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsFijosPiezas"))))).Get(_p))+" = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("1.0",(Object)(_i-(double)(BA.ObjectToNumber(((anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsFijosPiezas"))))).Get(_p)))))+""),0);}; //BA.debugLineNum = 1087;BA.debugLine="inventariosDisponiblesParaEstaPromo.Put(t, $\"${"; _inventariosdisponiblesparaestapromo.Put((Object)(_t),(Object)((""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_i-(double)(BA.ObjectToNumber(((anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_promomap.Get((Object)("prodsFijosPiezas"))))).Get(_p)))))+""))); //BA.debugLineNum = 1088;BA.debugLine="inventariosDisponiblesParaEstaPromo.Put(\"result"; _inventariosdisponiblesparaestapromo.Put((Object)("resultado"),(Object)("ok")); }else { //BA.debugLineNum = 1090;BA.debugLine="inventariosDisponiblesParaEstaPromo.Put(\"result"; _inventariosdisponiblesparaestapromo.Put((Object)("resultado"),(Object)("No hay suficiente producto para la promocion.")); //BA.debugLineNum = 1091;BA.debugLine="LogColor(\"Sin suficiente inventario fijo: \" & t"; anywheresoftware.b4a.keywords.Common.LogImpl("075431957","Sin suficiente inventario fijo: "+_t,anywheresoftware.b4a.keywords.Common.Colors.Blue); //BA.debugLineNum = 1092;BA.debugLine="Exit"; if (true) break; }; //BA.debugLineNum = 1094;BA.debugLine="If i - p2.Get(\"piezas\") < 0 Then"; if (_i-(double)(BA.ObjectToNumber(_p2.Get((Object)("piezas"))))<0) { //BA.debugLineNum = 1095;BA.debugLine="inventariosDisponiblesParaEstaPromo.Put(\"result"; _inventariosdisponiblesparaestapromo.Put((Object)("resultado"),(Object)("No hay suficiente producto para la promocion.")); //BA.debugLineNum = 1096;BA.debugLine="Exit"; if (true) break; }; } }; //BA.debugLineNum = 1099;BA.debugLine="If prodsFijos.Size = 0 Then inventariosDisponible"; if (_prodsfijos.getSize()==0) { _inventariosdisponiblesparaestapromo.Put((Object)("resultado"),(Object)("ok"));}; //BA.debugLineNum = 1100;BA.debugLine="If thisLog Then LogColor(\"Inventario final depues"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075431966","Inventario final depues de FIJOS: "+BA.ObjectToString(_inventariosdisponiblesparaestapromo),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1101;BA.debugLine="Return inventariosDisponiblesParaEstaPromo"; if (true) return _inventariosdisponiblesparaestapromo; //BA.debugLineNum = 1102;BA.debugLine="End Sub"; return null; } public static String _revisabd(anywheresoftware.b4a.BA _ba) throws Exception{ //BA.debugLineNum = 189;BA.debugLine="Sub revisaBD 'ignore"; //BA.debugLineNum = 193;BA.debugLine="If Not(File.Exists(Starter.ruta, \"kmt.db\")) Then"; if (anywheresoftware.b4a.keywords.Common.Not(anywheresoftware.b4a.keywords.Common.File.Exists(mostCurrent._starter._ruta /*String*/ ,"kmt.db"))) { //BA.debugLineNum = 194;BA.debugLine="File.Copy(File.DirAssets, \"kmt.db\", Starter.ruta"; anywheresoftware.b4a.keywords.Common.File.Copy(anywheresoftware.b4a.keywords.Common.File.getDirAssets(),"kmt.db",mostCurrent._starter._ruta /*String*/ ,"kmt.db"); //BA.debugLineNum = 195;BA.debugLine="LogColor(\"copiamos kmt.db de \"&File.DirAssets &"; anywheresoftware.b4a.keywords.Common.LogImpl("072417286","copiamos kmt.db de "+anywheresoftware.b4a.keywords.Common.File.getDirAssets()+" a "+mostCurrent._starter._ruta /*String*/ ,anywheresoftware.b4a.keywords.Common.Colors.Green); }; //BA.debugLineNum = 197;BA.debugLine="If Not(kmt.IsInitialized) Then kmt.Initialize(Sta"; if (anywheresoftware.b4a.keywords.Common.Not(_kmt.IsInitialized())) { _kmt.Initialize(mostCurrent._starter._ruta /*String*/ ,"kmt.db",anywheresoftware.b4a.keywords.Common.True);}; //BA.debugLineNum = 198;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS RUTA"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)"); //BA.debugLineNum = 200;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS bita"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS bitacora(fecha INTEGER, texto TEXT)"); //BA.debugLineNum = 201;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS HIST"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_AVANCE(HA_MARCA TEXT, HA_AVANCE TEXT, HA_OBJETIVO TEXT, HA_PORCENTAJE TEXT)"); //BA.debugLineNum = 202;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS ABON"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSP(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT)"); //BA.debugLineNum = 203;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS CLIE"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTE_NUEVO(CN_ID_CLIENTE TEXT, CN_NOMBRE TEXT, CN_enviado text)"); //BA.debugLineNum = 204;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS RUTA"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)"); //BA.debugLineNum = 205;BA.debugLine="Try 'Si no existe la columna PC_ENVIO_OK la agreg"; try { //BA.debugLineNum = 206;BA.debugLine="kmt.ExecQuery(\"select count(PC_ENVIO_OK) from PE"; _kmt.ExecQuery("select count(PC_ENVIO_OK) from PEDIDO_CLIENTE"); } catch (Exception e15) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e15); //BA.debugLineNum = 208;BA.debugLine="Try"; try { //BA.debugLineNum = 209;BA.debugLine="kmt.ExecNonQuery(\"ALTER TABLE PEDIDO_CLIENTE AD"; _kmt.ExecNonQuery("ALTER TABLE PEDIDO_CLIENTE ADD COLUMN PC_ENVIO_OK INTEGER"); } catch (Exception e18) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e18); //BA.debugLineNum = 211;BA.debugLine="LogColor(\"No pudimos agregar la columna PC_ENVI"; anywheresoftware.b4a.keywords.Common.LogImpl("072417302","No pudimos agregar la columna PC_ENVIO_OK.",anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 212;BA.debugLine="LogColor(LastException, Colors.Red)"; anywheresoftware.b4a.keywords.Common.LogImpl("072417303",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; }; //BA.debugLineNum = 216;BA.debugLine="Try 'Si no existe la columna CAT_CL_DIAS_VISITA l"; try { //BA.debugLineNum = 217;BA.debugLine="kmt.ExecQuery(\"select count(CAT_CL_DIAS_VISITA)"; _kmt.ExecQuery("select count(CAT_CL_DIAS_VISITA) from kmt_info"); } catch (Exception e25) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e25); //BA.debugLineNum = 219;BA.debugLine="Try"; try { //BA.debugLineNum = 220;BA.debugLine="kmt.ExecNonQuery(\"ALTER TABLE kmt_info ADD COLU"; _kmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIAS_VISITA TEXT"); } catch (Exception e28) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e28); //BA.debugLineNum = 222;BA.debugLine="LogColor(\"No pudimos agregar la columna CAT_CL_"; anywheresoftware.b4a.keywords.Common.LogImpl("072417313","No pudimos agregar la columna CAT_CL_DIAS_VISITA.",anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 223;BA.debugLine="LogColor(LastException, Colors.Red)"; anywheresoftware.b4a.keywords.Common.LogImpl("072417314",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; }; //BA.debugLineNum = 227;BA.debugLine="Try 'Si no existe la columna PC_ENVIO_OK la agreg"; try { //BA.debugLineNum = 228;BA.debugLine="kmt.ExecQuery(\"select count(PC_TIEMPO_TIENDA) fr"; _kmt.ExecQuery("select count(PC_TIEMPO_TIENDA) from PEDIDO_CLIENTE"); } catch (Exception e35) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e35); //BA.debugLineNum = 230;BA.debugLine="Try"; try { //BA.debugLineNum = 231;BA.debugLine="kmt.ExecNonQuery(\"ALTER TABLE PEDIDO_CLIENTE AD"; _kmt.ExecNonQuery("ALTER TABLE PEDIDO_CLIENTE ADD COLUMN PC_TIEMPO_TIENDA FLOAT"); } catch (Exception e38) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e38); //BA.debugLineNum = 233;BA.debugLine="LogColor(\"No pudimos agregar la columna PC_TIEM"; anywheresoftware.b4a.keywords.Common.LogImpl("072417324","No pudimos agregar la columna PC_TIEMPO_TIENDA.",anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 234;BA.debugLine="LogColor(LastException, Colors.Red)"; anywheresoftware.b4a.keywords.Common.LogImpl("072417325",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; }; //BA.debugLineNum = 237;BA.debugLine="Try 'Si no existe la columna PC_FACTURA la agrega"; try { //BA.debugLineNum = 238;BA.debugLine="kmt.ExecQuery(\"select count(PC_FACTURA) from PED"; _kmt.ExecQuery("select count(PC_FACTURA) from PEDIDO_CLIENTE"); } catch (Exception e45) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e45); //BA.debugLineNum = 240;BA.debugLine="Try"; try { //BA.debugLineNum = 241;BA.debugLine="kmt.ExecNonQuery(\"ALTER TABLE PEDIDO_CLIENTE AD"; _kmt.ExecNonQuery("ALTER TABLE PEDIDO_CLIENTE ADD COLUMN PC_FACTURA INTEGER"); } catch (Exception e48) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e48); //BA.debugLineNum = 243;BA.debugLine="LogColor(\"No pudimos agregar la columna PC_FACT"; anywheresoftware.b4a.keywords.Common.LogImpl("072417334","No pudimos agregar la columna PC_FACTURA.",anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 244;BA.debugLine="LogColor(LastException, Colors.Red)"; anywheresoftware.b4a.keywords.Common.LogImpl("072417335",BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; }; //BA.debugLineNum = 247;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS bita"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS bitacora(fecha INTEGER, texto TEXT)"); //BA.debugLineNum = 249;BA.debugLine="kmt.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS PEDI"; _kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_INICIO_FINAL(PIF_CLIENTE TEXT, PIF_HORA_INICIO LONG, PIF_HORA_FINAL LONG)"); //BA.debugLineNum = 252;BA.debugLine="If Not(errorLog.IsInitialized) Then errorLog.Init"; if (anywheresoftware.b4a.keywords.Common.Not(_errorlog.IsInitialized())) { _errorlog.Initialize(mostCurrent._starter._ruta /*String*/ ,"errorLog.db",anywheresoftware.b4a.keywords.Common.True);}; //BA.debugLineNum = 253;BA.debugLine="errorLog.ExecNonQuery(\"CREATE TABLE IF NOT EXISTS"; _errorlog.ExecNonQuery("CREATE TABLE IF NOT EXISTS errores(fecha INTEGER, error TEXT)"); //BA.debugLineNum = 254;BA.debugLine="End Sub"; return ""; } public static String _revisaflp(anywheresoftware.b4a.BA _ba) throws Exception{ boolean _todobienflp = false; //BA.debugLineNum = 397;BA.debugLine="Sub revisaFLP 'ignore"; //BA.debugLineNum = 398;BA.debugLine="LogColor(\"**** **** Revisamos FLP **** ****\", Col"; anywheresoftware.b4a.keywords.Common.LogImpl("073072641","**** **** Revisamos FLP **** ****",anywheresoftware.b4a.keywords.Common.Colors.RGB((int) (78),(int) (0),(int) (227))); //BA.debugLineNum = 399;BA.debugLine="Private todoBienFLP As Boolean = True"; _todobienflp = anywheresoftware.b4a.keywords.Common.True; //BA.debugLineNum = 400;BA.debugLine="Try"; try { //BA.debugLineNum = 401;BA.debugLine="If Not(Tracker.FLP.IsInitialized) Then"; if (anywheresoftware.b4a.keywords.Common.Not(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .IsInitialized())) { //BA.debugLineNum = 402;BA.debugLine="log2DB(\"revisaFLP: No esta inicializado ... 'Re"; _log2db(_ba,"revisaFLP: No esta inicializado ... 'Reinicializando FLP'"); //BA.debugLineNum = 403;BA.debugLine="Tracker.FLP.Initialize(\"flp\")"; mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .Initialize((_ba.processBA == null ? _ba : _ba.processBA),"flp"); //BA.debugLineNum = 404;BA.debugLine="todoBienFLP = False"; _todobienflp = anywheresoftware.b4a.keywords.Common.False; }; } catch (Exception e10) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e10); //BA.debugLineNum = 407;BA.debugLine="LogColor(\"If Not(Tracker.FLP.IsInitialized) ---"; anywheresoftware.b4a.keywords.Common.LogImpl("073072650","If Not(Tracker.FLP.IsInitialized) --- "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; //BA.debugLineNum = 409;BA.debugLine="Try"; try { //BA.debugLineNum = 410;BA.debugLine="If Tracker.FLP.IsInitialized Then"; if (mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .IsInitialized()) { //BA.debugLineNum = 411;BA.debugLine="Try"; try { //BA.debugLineNum = 412;BA.debugLine="If Not(Tracker.FLP.IsConnected) Then"; if (anywheresoftware.b4a.keywords.Common.Not(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .IsConnected())) { //BA.debugLineNum = 413;BA.debugLine="log2DB(\"revisaFLP: No esta conectado ... 'Rec"; _log2db(_ba,"revisaFLP: No esta conectado ... 'Reconectando FLP'"); //BA.debugLineNum = 415;BA.debugLine="CallSubDelayed(Tracker,\"StartFLP\")"; anywheresoftware.b4a.keywords.Common.CallSubDelayed((_ba.processBA == null ? _ba : _ba.processBA),(Object)(mostCurrent._tracker.getObject()),"StartFLP"); //BA.debugLineNum = 416;BA.debugLine="todoBienFLP = False"; _todobienflp = anywheresoftware.b4a.keywords.Common.False; }; } catch (Exception e21) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e21); //BA.debugLineNum = 419;BA.debugLine="LogColor(\"If Not(Tracker.FLP.IsConnected) -->"; anywheresoftware.b4a.keywords.Common.LogImpl("073072662","If Not(Tracker.FLP.IsConnected) --> "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; //BA.debugLineNum = 421;BA.debugLine="Try"; try { //BA.debugLineNum = 422;BA.debugLine="If Tracker.FLP.IsConnected And _ Tracker."; if (mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .IsConnected() && mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().IsInitialized() && mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().DistanceTo((android.location.Location)(mostCurrent._tracker._uugcoords /*anywheresoftware.b4a.gps.LocationWrapper*/ .getObject()))>500) { //BA.debugLineNum = 425;BA.debugLine="log2DB(\"revisaFLP: 'No se esta actualizando,"; _log2db(_ba,"revisaFLP: 'No se esta actualizando, lo reiniciamos ...'"); //BA.debugLineNum = 426;BA.debugLine="StartService(Tracker)"; anywheresoftware.b4a.keywords.Common.StartService((_ba.processBA == null ? _ba : _ba.processBA),(Object)(mostCurrent._tracker.getObject())); //BA.debugLineNum = 427;BA.debugLine="todoBienFLP = False"; _todobienflp = anywheresoftware.b4a.keywords.Common.False; }; } catch (Exception e30) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e30); //BA.debugLineNum = 430;BA.debugLine="LogColor(\"If FLP.IsConnectctd and FLP.getLKL.I"; anywheresoftware.b4a.keywords.Common.LogImpl("073072673","If FLP.IsConnectctd and FLP.getLKL.IsInitialized --> "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; }; //BA.debugLineNum = 433;BA.debugLine="If todoBienFLP Then LogColor(\" +++ +++ Sin error"; if (_todobienflp) { anywheresoftware.b4a.keywords.Common.LogImpl("073072676"," +++ +++ Sin errores en FLP",anywheresoftware.b4a.keywords.Common.Colors.Green);}; } catch (Exception e35) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e35); //BA.debugLineNum = 435;BA.debugLine="LogColor(\"If Tracker.FLP.IsInitialized --> \"&Las"; anywheresoftware.b4a.keywords.Common.LogImpl("073072678","If Tracker.FLP.IsInitialized --> "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; //BA.debugLineNum = 438;BA.debugLine="End Sub"; return ""; } public static int _revisamaxpromosprodsfijosporinventario(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _pm) throws Exception{ boolean _thislog = false; anywheresoftware.b4a.objects.collections.Map _invfijoxpromo = null; anywheresoftware.b4a.objects.collections.List _t = null; anywheresoftware.b4a.objects.collections.Map _invdispparapromo = null; anywheresoftware.b4a.objects.collections.List _prodsfijospiezas = null; anywheresoftware.b4a.objects.collections.List _idprodsfijos = null; int _p = 0; String[] _x = null; //BA.debugLineNum = 1278;BA.debugLine="Sub revisaMaxPromosProdsFijosPorInventario(pm As M"; //BA.debugLineNum = 1279;BA.debugLine="Private thisLog As Boolean = False"; _thislog = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1280;BA.debugLine="Private invFijoXpromo As Map"; _invfijoxpromo = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1281;BA.debugLine="Private t As List"; _t = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 1282;BA.debugLine="t.Initialize"; _t.Initialize(); //BA.debugLineNum = 1283;BA.debugLine="t.Add(traeMaxPromos(pm)) ' Agregamos a la lista l"; _t.Add((Object)(_traemaxpromos(_ba,_pm))); //BA.debugLineNum = 1284;BA.debugLine="invFijoXpromo.Initialize"; _invfijoxpromo.Initialize(); //BA.debugLineNum = 1285;BA.debugLine="If thisLog Then LogColor($\"pm=${pm}\"$, Colors.Blu"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825159",("pm="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pm.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1286;BA.debugLine="Private invDispParaPromo As Map = traemosInventar"; _invdispparapromo = new anywheresoftware.b4a.objects.collections.Map(); _invdispparapromo = _traemosinventariodisponibleparapromo(_ba,BA.ObjectToString(_pm.Get((Object)("id")))); //BA.debugLineNum = 1287;BA.debugLine="If thisLog Then Log($\"invDispParaPromo=${invDispP"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825161",("invDispParaPromo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invdispparapromo.getObject()))+""),0);}; //BA.debugLineNum = 1288;BA.debugLine="Private prodsFijosPiezas As List = pm.Get(\"prodsF"; _prodsfijospiezas = new anywheresoftware.b4a.objects.collections.List(); _prodsfijospiezas = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijosPiezas")))); //BA.debugLineNum = 1289;BA.debugLine="Private idProdsFijos As List = pm.Get(\"prodsFijos"; _idprodsfijos = new anywheresoftware.b4a.objects.collections.List(); _idprodsfijos = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijos")))); //BA.debugLineNum = 1290;BA.debugLine="For p = 0 To idProdsFijos.Size -1 'Generamos una"; { final int step12 = 1; final int limit12 = (int) (_idprodsfijos.getSize()-1); _p = (int) (0) ; for (;_p <= limit12 ;_p = _p + step12 ) { //BA.debugLineNum = 1291;BA.debugLine="If thisLog Then Log($\"id=${idProdsFijos.Get(p)},"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825165",("id="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_idprodsfijos.Get(_p))+", inv="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_invdispparapromo.Get(_idprodsfijos.Get(_p)))+", pzas="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_prodsfijospiezas.Get(_p))+""),0);}; //BA.debugLineNum = 1292;BA.debugLine="If thisLog Then Log($\"${(invDispParaPromo.Get(id"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825166",(""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(((double)(BA.ObjectToNumber(_invdispparapromo.Get(_idprodsfijos.Get(_p))))/(double)(double)(BA.ObjectToNumber(_prodsfijospiezas.Get(_p))))))+""),0);}; //BA.debugLineNum = 1293;BA.debugLine="Private x() As String = Regex.Split(\"\\.\", $\"${(i"; _x = anywheresoftware.b4a.keywords.Common.Regex.Split("\\.",(""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(((double)(BA.ObjectToNumber(_invdispparapromo.Get(_idprodsfijos.Get(_p))))/(double)(double)(BA.ObjectToNumber(_prodsfijospiezas.Get(_p))))))+"")); //BA.debugLineNum = 1294;BA.debugLine="If thisLog Then Log(x(0))"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825168",_x[(int) (0)],0);}; //BA.debugLineNum = 1295;BA.debugLine="t.Add(x(0).As(Int)) 'Solo guardamos la parte del"; _t.Add((Object)(((int)(Double.parseDouble(_x[(int) (0)]))))); } }; //BA.debugLineNum = 1297;BA.debugLine="t.Sort(True) 'Ordenamos la lista para que en el l"; _t.Sort(anywheresoftware.b4a.keywords.Common.True); //BA.debugLineNum = 1298;BA.debugLine="If thisLog Then LogColor($\"prodsFijos=${idProdsFi"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825172",("prodsFijos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idprodsfijos.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1299;BA.debugLine="If thisLog Then LogColor($\"prodsFijosPiezasReq=${"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825173",("prodsFijosPiezasReq="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodsfijospiezas.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1300;BA.debugLine="If thisLog Then LogColor($\"invFijoXpromo=${invFij"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075825174",("invFijoXpromo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invfijoxpromo.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1302;BA.debugLine="Return t.Get(0) 'Regresamos el resultado mas pequ"; if (true) return (int)(BA.ObjectToNumber(_t.Get((int) (0)))); //BA.debugLineNum = 1303;BA.debugLine="End Sub"; return 0; } public static int _revisamaxpromosprodsfijosporinventario2(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _pm) throws Exception{ boolean _thislog = false; anywheresoftware.b4a.objects.collections.Map _invdispparapromo = null; String _maxpromos = ""; int _maxpromosfijosxinv = 0; int _fpf2 = 0; int _pdp2 = 0; boolean _salir = false; anywheresoftware.b4a.objects.collections.List _pf = null; anywheresoftware.b4a.objects.collections.List _pfp = null; anywheresoftware.b4a.objects.collections.Map _invfijoxpromo = null; int _p = 0; int _i = 0; int _q = 0; String _q2 = ""; //BA.debugLineNum = 1235;BA.debugLine="Sub revisaMaxPromosProdsFijosPorInventario2(pm As"; //BA.debugLineNum = 1236;BA.debugLine="Private thisLog As Boolean = False"; _thislog = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1237;BA.debugLine="If thisLog Then Log($\"pm=${pm}\"$)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759618",("pm="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pm.getObject()))+""),0);}; //BA.debugLineNum = 1239;BA.debugLine="Private invDispParaPromo As Map = traemosInventar"; _invdispparapromo = new anywheresoftware.b4a.objects.collections.Map(); _invdispparapromo = _traemosinventariodisponibleparapromo(_ba,BA.ObjectToString(_pm.Get((Object)("id")))); //BA.debugLineNum = 1240;BA.debugLine="If thisLog Then Log($\"invDispParaPromo=${invDispP"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759621",("invDispParaPromo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invdispparapromo.getObject()))+""),0);}; //BA.debugLineNum = 1241;BA.debugLine="Private maxPromos As String = traeMaxPromos(pm)"; _maxpromos = BA.NumberToString(_traemaxpromos(_ba,_pm)); //BA.debugLineNum = 1242;BA.debugLine="Private maxPromosFijosXinv As Int = 1"; _maxpromosfijosxinv = (int) (1); //BA.debugLineNum = 1243;BA.debugLine="Private fpf2, pdp2 As Int"; _fpf2 = 0; _pdp2 = 0; //BA.debugLineNum = 1244;BA.debugLine="Private salir As Boolean = False"; _salir = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1245;BA.debugLine="Private pf As List = pm.Get(\"prodsFijos\")"; _pf = new anywheresoftware.b4a.objects.collections.List(); _pf = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijos")))); //BA.debugLineNum = 1246;BA.debugLine="Private pfp As List = pm.Get(\"prodsFijosPiezas\")"; _pfp = new anywheresoftware.b4a.objects.collections.List(); _pfp = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijosPiezas")))); //BA.debugLineNum = 1247;BA.debugLine="If thisLog Then Log($\"maxPromos=${maxPromos}, pro"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759628",("maxPromos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_maxpromos))+", prodsFijos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pf.getObject()))+", piezas="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pfp.getObject()))+""),0);}; //BA.debugLineNum = 1248;BA.debugLine="If thisLog Then LogColor($\"InvFijo disponible=${i"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759629",("InvFijo disponible="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invdispparapromo.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1249;BA.debugLine="Private invFijoXpromo As Map"; _invfijoxpromo = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1250;BA.debugLine="invFijoXpromo.Initialize"; _invfijoxpromo.Initialize(); //BA.debugLineNum = 1251;BA.debugLine="For p = 0 To pf.Size -1 'Generamos mapa con los p"; { final int step15 = 1; final int limit15 = (int) (_pf.getSize()-1); _p = (int) (0) ; for (;_p <= limit15 ;_p = _p + step15 ) { //BA.debugLineNum = 1252;BA.debugLine="invFijoXpromo.Put(pf.Get(p), pfp.Get(p))"; _invfijoxpromo.Put(_pf.Get(_p),_pfp.Get(_p)); } }; //BA.debugLineNum = 1254;BA.debugLine="If thisLog Then LogColor(\"Inv req. de prods fijos"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759635","Inv req. de prods fijos x promo"+BA.ObjectToString(_invfijoxpromo),anywheresoftware.b4a.keywords.Common.Colors.Green);}; //BA.debugLineNum = 1255;BA.debugLine="For i = 1 To maxPromos 'Revisamos cuantas promoci"; { final int step19 = 1; final int limit19 = (int)(Double.parseDouble(_maxpromos)); _i = (int) (1) ; for (;_i <= limit19 ;_i = _i + step19 ) { //BA.debugLineNum = 1256;BA.debugLine="If thisLog Then LogColor(\"Prods para promo \" & ("; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759637","Prods para promo "+BA.NumberToString((_i+1)),anywheresoftware.b4a.keywords.Common.Colors.Magenta);}; //BA.debugLineNum = 1257;BA.debugLine="For q = 0 To pf.Size - 1"; { final int step21 = 1; final int limit21 = (int) (_pf.getSize()-1); _q = (int) (0) ; for (;_q <= limit21 ;_q = _q + step21 ) { //BA.debugLineNum = 1258;BA.debugLine="Private q2 As String = pf.Get(q)"; _q2 = BA.ObjectToString(_pf.Get(_q)); //BA.debugLineNum = 1259;BA.debugLine="If thisLog Then Log(\"q=\"&q2)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759640","q="+_q2,0);}; //BA.debugLineNum = 1261;BA.debugLine="fpf2 = pfp.Get(q) * i 'Multiplicamos las piezas"; _fpf2 = (int) ((double)(BA.ObjectToNumber(_pfp.Get(_q)))*_i); //BA.debugLineNum = 1262;BA.debugLine="pdp2 = invDispParaPromo.Get(q2)"; _pdp2 = (int)(BA.ObjectToNumber(_invdispparapromo.Get((Object)(_q2)))); //BA.debugLineNum = 1263;BA.debugLine="If thisLog Then Log($\"pf=${q2}, Actual=${(i)},"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759644",("pf="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_q2))+", Actual="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)((_i)))+", max promos: "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pdp2))+"-"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_fpf2))+"="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pdp2-_fpf2))+""),0);}; //BA.debugLineNum = 1264;BA.debugLine="If pdp2 - fpf2 < 0 Then 'Si el inventario es ne"; if (_pdp2-_fpf2<0) { //BA.debugLineNum = 1265;BA.debugLine="salir=True"; _salir = anywheresoftware.b4a.keywords.Common.True; //BA.debugLineNum = 1266;BA.debugLine="Exit"; if (true) break; }; } }; //BA.debugLineNum = 1269;BA.debugLine="If salir Then Exit"; if (_salir) { if (true) break;}; //BA.debugLineNum = 1270;BA.debugLine="maxPromosFijosXinv = i"; _maxpromosfijosxinv = _i; } }; //BA.debugLineNum = 1272;BA.debugLine="If thisLog Then LogColor(\"InvFijo requerido x pro"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075759653","InvFijo requerido x promo="+BA.ObjectToString(_invfijoxpromo),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1273;BA.debugLine="LogColor(\"Maximo de promociones de prodsFijos POR"; anywheresoftware.b4a.keywords.Common.LogImpl("075759654","Maximo de promociones de prodsFijos POR inventario = "+BA.NumberToString(_maxpromosfijosxinv),anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 1274;BA.debugLine="Return maxPromosFijosXinv"; if (true) return _maxpromosfijosxinv; //BA.debugLineNum = 1275;BA.debugLine="End Sub"; return 0; } public static int _revisamaxpromosprodsvariablesporinventario(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _pm) throws Exception{ boolean _thislog = false; anywheresoftware.b4a.objects.collections.Map _invfijoxpromo = null; int _totalprodsvariablesdisponibles = 0; int _totalprodsvariables2disponibles = 0; anywheresoftware.b4a.objects.collections.Map _invdispparapromo = null; String _maxpromos = ""; int _maxpromosxfijos = 0; anywheresoftware.b4a.objects.collections.List _idprodsvariables = null; anywheresoftware.b4a.objects.collections.List _idprodsvariables2 = null; int _prodsvariablesrequeridos = 0; int _prodsvariables2requeridos = 0; anywheresoftware.b4a.objects.collections.List _prodsfijospiezas = null; anywheresoftware.b4a.objects.collections.List _idprodsfijos = null; int _p = 0; String _idesteprod = ""; int _investeprod = 0; int _pzasreqesteprod = 0; int _maxpromosxvariables = 0; int _maxpromosxvariables2 = 0; int _x = 0; int _i = 0; //BA.debugLineNum = 1310;BA.debugLine="Sub revisaMaxPromosProdsVariablesPorInventario(pm"; //BA.debugLineNum = 1311;BA.debugLine="Private thisLog As Boolean = False"; _thislog = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1312;BA.debugLine="If thisLog Then Log(\"============================"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890690","======================================================",0);}; //BA.debugLineNum = 1313;BA.debugLine="If thisLog Then Log(\"============================"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890691","======================================================",0);}; //BA.debugLineNum = 1314;BA.debugLine="Private invFijoXpromo As Map"; _invfijoxpromo = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1315;BA.debugLine="invFijoXpromo.Initialize"; _invfijoxpromo.Initialize(); //BA.debugLineNum = 1316;BA.debugLine="Private totalProdsVariablesDisponibles As Int = 0"; _totalprodsvariablesdisponibles = (int) (0); //BA.debugLineNum = 1317;BA.debugLine="Private totalProdsVariables2Disponibles As Int ="; _totalprodsvariables2disponibles = (int) (0); //BA.debugLineNum = 1318;BA.debugLine="If thisLog Then LogColor($\"pm=${pm}\"$, Colors.Blu"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890696",("pm="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pm.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1319;BA.debugLine="Private invDispParaPromo As Map = traemosInventar"; _invdispparapromo = new anywheresoftware.b4a.objects.collections.Map(); _invdispparapromo = _traemosinventariodisponibleparapromo(_ba,BA.ObjectToString(_pm.Get((Object)("id")))); //BA.debugLineNum = 1320;BA.debugLine="If thisLog Then Log($\"invDispParaPromo=${invDispP"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890698",("invDispParaPromo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invdispparapromo.getObject()))+""),0);}; //BA.debugLineNum = 1321;BA.debugLine="Private maxPromos As String = traeMaxPromos(pm)"; _maxpromos = BA.NumberToString(_traemaxpromos(_ba,_pm)); //BA.debugLineNum = 1322;BA.debugLine="Private maxPromosXFijos As Int = revisaMaxPromosP"; _maxpromosxfijos = _revisamaxpromosprodsfijosporinventario(_ba,_pm); //BA.debugLineNum = 1323;BA.debugLine="Private idProdsVariables As List = pm.Get(\"prodsV"; _idprodsvariables = new anywheresoftware.b4a.objects.collections.List(); _idprodsvariables = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsVariables")))); //BA.debugLineNum = 1324;BA.debugLine="Private idProdsVariables2 As List = pm.Get(\"prods"; _idprodsvariables2 = new anywheresoftware.b4a.objects.collections.List(); _idprodsvariables2 = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsVariables2")))); //BA.debugLineNum = 1325;BA.debugLine="Private prodsVariablesRequeridos As Int = pm.Get("; _prodsvariablesrequeridos = (int)(BA.ObjectToNumber(_pm.Get((Object)("prodsVariablesRequeridos")))); //BA.debugLineNum = 1326;BA.debugLine="Private prodsVariables2Requeridos As Int = pm.Get"; _prodsvariables2requeridos = (int)(BA.ObjectToNumber(_pm.Get((Object)("prodsVariables2Requeridos")))); //BA.debugLineNum = 1327;BA.debugLine="Private prodsFijosPiezas As List = pm.Get(\"prodsF"; _prodsfijospiezas = new anywheresoftware.b4a.objects.collections.List(); _prodsfijospiezas = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijosPiezas")))); //BA.debugLineNum = 1328;BA.debugLine="Private idProdsFijos As List = pm.Get(\"prodsFijos"; _idprodsfijos = new anywheresoftware.b4a.objects.collections.List(); _idprodsfijos = (anywheresoftware.b4a.objects.collections.List) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.collections.List(), (java.util.List)(_pm.Get((Object)("prodsFijos")))); //BA.debugLineNum = 1329;BA.debugLine="For p = 0 To idProdsFijos.Size -1 'Generamos mapa"; { final int step19 = 1; final int limit19 = (int) (_idprodsfijos.getSize()-1); _p = (int) (0) ; for (;_p <= limit19 ;_p = _p + step19 ) { //BA.debugLineNum = 1330;BA.debugLine="invFijoXpromo.Put(idProdsFijos.Get(p), prodsFijo"; _invfijoxpromo.Put(_idprodsfijos.Get(_p),_prodsfijospiezas.Get(_p)); //BA.debugLineNum = 1331;BA.debugLine="Private idEsteProd As String = idProdsFijos.Get("; _idesteprod = BA.ObjectToString(_idprodsfijos.Get(_p)); //BA.debugLineNum = 1332;BA.debugLine="Private invEsteProd As Int = invDispParaPromo.Ge"; _investeprod = (int)(BA.ObjectToNumber(_invdispparapromo.Get((Object)(_idesteprod)))); //BA.debugLineNum = 1333;BA.debugLine="Private pzasReqEsteProd As Int = prodsFijosPieza"; _pzasreqesteprod = (int)(BA.ObjectToNumber(_prodsfijospiezas.Get(_p))); //BA.debugLineNum = 1334;BA.debugLine="If thisLog Then Log($\"id=${idEsteProd}, inv=${in"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890712",("id="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idesteprod))+", inv="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_investeprod))+", pzas="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_pzasreqesteprod))+""),0);}; } }; //BA.debugLineNum = 1337;BA.debugLine="If thisLog Then LogColor($\"MaxPromos=${maxPromos}"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890715",("MaxPromos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_maxpromos))+", promosXFijos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_maxpromosxfijos))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1338;BA.debugLine="If thisLog Then LogColor($\"prodsFijos=${idProdsFi"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890716",("prodsFijos="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idprodsfijos.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1339;BA.debugLine="If thisLog Then LogColor($\"prodsFijosPiezasReq=${"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890717",("prodsFijosPiezasReq="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodsfijospiezas.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1340;BA.debugLine="If thisLog Then LogColor($\"prodsVariables=${idPro"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890718",("prodsVariables="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idprodsvariables.getObject()))+""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(anywheresoftware.b4a.keywords.Common.CRLF))+"Variables Req="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodsvariablesrequeridos))+" "),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1341;BA.debugLine="If thisLog Then LogColor($\"prodsVariables2=${idPr"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890719",("prodsVariables2="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_idprodsvariables2.getObject()))+""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(anywheresoftware.b4a.keywords.Common.CRLF))+"Variables2 Req="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodsvariables2requeridos))+" "),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1342;BA.debugLine="If thisLog Then LogColor($\"invFijoXpromo=${invFij"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890720",("invFijoXpromo="+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_invfijoxpromo.getObject()))+""),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1343;BA.debugLine="If thisLog Then Log($\"Prods variables disponibles"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890721",("Prods variables disponibles = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_totalprodsvariablesdisponibles))+""),0);}; //BA.debugLineNum = 1344;BA.debugLine="If thisLog Then Log($\"Prods variables2 disponible"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890722",("Prods variables2 disponibles = "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_totalprodsvariables2disponibles))+""),0);}; //BA.debugLineNum = 1345;BA.debugLine="Private maxPromosXVariables As Int = 0"; _maxpromosxvariables = (int) (0); //BA.debugLineNum = 1346;BA.debugLine="Private maxPromosXVariables2 As Int = 0"; _maxpromosxvariables2 = (int) (0); //BA.debugLineNum = 1347;BA.debugLine="For x = 1 To maxPromosXFijos"; { final int step36 = 1; final int limit36 = _maxpromosxfijos; _x = (int) (1) ; for (;_x <= limit36 ;_x = _x + step36 ) { //BA.debugLineNum = 1348;BA.debugLine="If thisLog Then Log(\"==========================="; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890726","=====================================================",0);}; //BA.debugLineNum = 1349;BA.debugLine="If thisLog Then Log(\"==========================="; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890727","=====================================================",0);}; //BA.debugLineNum = 1350;BA.debugLine="For i = 0 To idProdsFijos.Size - 1"; { final int step39 = 1; final int limit39 = (int) (_idprodsfijos.getSize()-1); _i = (int) (0) ; for (;_i <= limit39 ;_i = _i + step39 ) { //BA.debugLineNum = 1351;BA.debugLine="If thisLog Then Log($\"FIJO - ${idProdsFijos.Get"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890729",("FIJO - "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_idprodsfijos.Get(_i))+", "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",_invdispparapromo.Get(_idprodsfijos.Get(_i)))+" - "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(((int)(BA.ObjectToNumber(_prodsfijospiezas.Get(_i))))*(_i+1)))+""),0);}; //BA.debugLineNum = 1352;BA.debugLine="invDispParaPromo.Put(idProdsFijos.Get(i), invDi"; _invdispparapromo.Put(_idprodsfijos.Get(_i),(Object)(((int)(BA.ObjectToNumber(_invdispparapromo.Get(_idprodsfijos.Get(_i)))))-((int)(BA.ObjectToNumber(_prodsfijospiezas.Get(_i))))*(_i+1))); } }; //BA.debugLineNum = 1354;BA.debugLine="If thisLog Then LogColor(\"Inv disponible despues"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890732","Inv disponible despues de restar fijos = "+BA.ObjectToString(_invdispparapromo),anywheresoftware.b4a.keywords.Common.Colors.Blue);}; //BA.debugLineNum = 1356;BA.debugLine="totalProdsVariablesDisponibles = 0"; _totalprodsvariablesdisponibles = (int) (0); //BA.debugLineNum = 1357;BA.debugLine="totalProdsVariables2Disponibles = 0"; _totalprodsvariables2disponibles = (int) (0); //BA.debugLineNum = 1358;BA.debugLine="For i = 0 To idProdsVariables.Size - 1 'Obtenemo"; { final int step46 = 1; final int limit46 = (int) (_idprodsvariables.getSize()-1); _i = (int) (0) ; for (;_i <= limit46 ;_i = _i + step46 ) { //BA.debugLineNum = 1359;BA.debugLine="If invDispParaPromo.ContainsKey(idProdsVariable"; if (_invdispparapromo.ContainsKey(_idprodsvariables.Get(_i))) { //BA.debugLineNum = 1360;BA.debugLine="totalProdsVariablesDisponibles = totalProdsVar"; _totalprodsvariablesdisponibles = (int) (_totalprodsvariablesdisponibles+(double)(BA.ObjectToNumber(_invdispparapromo.Get(_idprodsvariables.Get(_i))))); }; } }; //BA.debugLineNum = 1363;BA.debugLine="For i = 0 To idProdsVariables2.Size - 1 'Obtenem"; { final int step51 = 1; final int limit51 = (int) (_idprodsvariables2.getSize()-1); _i = (int) (0) ; for (;_i <= limit51 ;_i = _i + step51 ) { //BA.debugLineNum = 1364;BA.debugLine="If invDispParaPromo.ContainsKey(idProdsVariable"; if (_invdispparapromo.ContainsKey(_idprodsvariables2.Get(_i))) { //BA.debugLineNum = 1365;BA.debugLine="totalProdsVariables2Disponibles = totalProdsVa"; _totalprodsvariables2disponibles = (int) (_totalprodsvariables2disponibles+(double)(BA.ObjectToNumber(_invdispparapromo.Get(_idprodsvariables2.Get(_i))))); }; } }; //BA.debugLineNum = 1369;BA.debugLine="If thisLog Then Log($\"Var disponibles - var req"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890747",("Var disponibles - var requeridos : "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_totalprodsvariablesdisponibles))+" - "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_prodsvariablesrequeridos*_x))+""),0);}; //BA.debugLineNum = 1370;BA.debugLine="totalProdsVariablesDisponibles = totalProdsVaria"; _totalprodsvariablesdisponibles = (int) (_totalprodsvariablesdisponibles-(_prodsvariablesrequeridos*_x)); //BA.debugLineNum = 1371;BA.debugLine="totalProdsVariables2Disponibles = totalProdsVari"; _totalprodsvariables2disponibles = (int) (_totalprodsvariables2disponibles-(_prodsvariables2requeridos*_x)); //BA.debugLineNum = 1372;BA.debugLine="If thisLog Then Log(\"prodsVariables disponibles"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890750","prodsVariables disponibles despues de promo = "+BA.NumberToString(_totalprodsvariablesdisponibles),0);}; //BA.debugLineNum = 1373;BA.debugLine="If thisLog Then Log(\"prodsVariables2 disponibles"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890751","prodsVariables2 disponibles despues de promo = "+BA.NumberToString(_totalprodsvariables2disponibles),0);}; //BA.debugLineNum = 1374;BA.debugLine="If totalProdsVariablesDisponibles < 0 Then Exit"; if (_totalprodsvariablesdisponibles<0) { if (true) break;}; //BA.debugLineNum = 1375;BA.debugLine="If totalProdsVariables2Disponibles < 0 Then Exit"; if (_totalprodsvariables2disponibles<0) { if (true) break;}; //BA.debugLineNum = 1376;BA.debugLine="maxPromosXVariables = x"; _maxpromosxvariables = _x; } }; //BA.debugLineNum = 1379;BA.debugLine="If thisLog Then LogColor(\"Max promos de prodsVari"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075890757","Max promos de prodsVariables POR inventario = "+BA.NumberToString(_maxpromosxvariables),anywheresoftware.b4a.keywords.Common.Colors.Red);}; //BA.debugLineNum = 1380;BA.debugLine="Return maxPromosXVariables"; if (true) return _maxpromosxvariables; //BA.debugLineNum = 1381;BA.debugLine="End Sub"; return 0; } public static String _revisauug(anywheresoftware.b4a.BA _ba) throws Exception{ int _daa = 0; //BA.debugLineNum = 379;BA.debugLine="Sub revisaUUG 'ignore"; //BA.debugLineNum = 380;BA.debugLine="Try"; try { //BA.debugLineNum = 382;BA.debugLine="If Tracker.FLP.GetLastKnownLocation.IsInitialize"; if (mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().IsInitialized()) { //BA.debugLineNum = 383;BA.debugLine="Dim daa As Int = Tracker.UUGCoords.DistanceTo(T"; _daa = (int) (mostCurrent._tracker._uugcoords /*anywheresoftware.b4a.gps.LocationWrapper*/ .DistanceTo((android.location.Location)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getObject()))); //BA.debugLineNum = 384;BA.debugLine="If Starter.Logger Then LogColor($\"**** UUC \"${f"; if (mostCurrent._starter._logger /*boolean*/ ) { anywheresoftware.b4a.keywords.Common.LogImpl("073007109",("**** UUC \""+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_fechakmt(_ba,BA.NumberToString(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getTime()))))+"|"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("0.2",(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getAccuracy()))+"|"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("0.8",(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLatitude()))+"|"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("0.8",(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLongitude()))+"|"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("0.2",(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getSpeed()))+"|"),anywheresoftware.b4a.keywords.Common.Colors.RGB((int) (255),(int) (112),(int) (35)));}; //BA.debugLineNum = 385;BA.debugLine="If daa > 40 And Tracker.FLP.GetLastKnownLocatio"; if (_daa>40 && mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getAccuracy()<35) { //BA.debugLineNum = 386;BA.debugLine="kmt.ExecNonQuery2(\"INSERT INTO RUTA_GPS(fecha,"; _kmt.ExecNonQuery2("INSERT INTO RUTA_GPS(fecha, lat, lon) VALUES (?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_fechakmt(_ba,BA.NumberToString(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getTime()))),(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLatitude()),(Object)(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLongitude())})); //BA.debugLineNum = 387;BA.debugLine="If Starter.Logger Then Log(\"++++ Distancia a a"; if (mostCurrent._starter._logger /*boolean*/ ) { anywheresoftware.b4a.keywords.Common.LogImpl("073007112","++++ Distancia a anterior="+BA.NumberToString(_daa)+"|"+"Precision="+BA.NumberToString(mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getAccuracy()),0);}; }; //BA.debugLineNum = 389;BA.debugLine="Tracker.UUGCoords = Tracker.FLP.GetLastKnownLoc"; mostCurrent._tracker._uugcoords /*anywheresoftware.b4a.gps.LocationWrapper*/ = mostCurrent._tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation(); }; } catch (Exception e12) { (_ba.processBA == null ? _ba : _ba.processBA).setLastException(e12); //BA.debugLineNum = 392;BA.debugLine="LogColor(\"If Tracker.FLP.GetLastKnownLocation.Is"; anywheresoftware.b4a.keywords.Common.LogImpl("073007117","If Tracker.FLP.GetLastKnownLocation.IsInitialized --> "+BA.ObjectToString(anywheresoftware.b4a.keywords.Common.LastException(_ba)),anywheresoftware.b4a.keywords.Common.Colors.Red); }; //BA.debugLineNum = 394;BA.debugLine="End Sub"; return ""; } public static String _totalpedido(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _ct = null; String _ptotal = ""; String _tempt = ""; //BA.debugLineNum = 692;BA.debugLine="Sub totalPedido As String"; //BA.debugLineNum = 693;BA.debugLine="Private cT As Cursor = Starter.skmt.ExecQuery($\"s"; _ct = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _ct = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._starter._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select sum(PE_COSTO_TOT) as total from PEDIDO where PE_CLIENTE = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_traecliente(_ba)))+"'")))); //BA.debugLineNum = 694;BA.debugLine="Private pTotal As String = \"0\""; _ptotal = "0"; //BA.debugLineNum = 695;BA.debugLine="If cT.RowCount > 0 Then"; if (_ct.getRowCount()>0) { //BA.debugLineNum = 696;BA.debugLine="cT.Position = 0"; _ct.setPosition((int) (0)); //BA.debugLineNum = 698;BA.debugLine="Private tempT As String = cT.GetLong(\"total\")"; _tempt = BA.NumberToString(_ct.GetLong("total")); //BA.debugLineNum = 699;BA.debugLine="If tempT <> \"null\" And tempT <> Null Then"; if ((_tempt).equals("null") == false && _tempt!= null) { //BA.debugLineNum = 701;BA.debugLine="pTotal = tempT"; _ptotal = _tempt; }; }; //BA.debugLineNum = 705;BA.debugLine="cT.Close"; _ct.Close(); //BA.debugLineNum = 706;BA.debugLine="Return pTotal"; if (true) return _ptotal; //BA.debugLineNum = 707;BA.debugLine="End Sub"; return ""; } public static String _traealmacen(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _a = ""; //BA.debugLineNum = 665;BA.debugLine="Sub traeAlmacen As String 'ignore"; //BA.debugLineNum = 666;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 667;BA.debugLine="Private a As String"; _a = ""; //BA.debugLineNum = 668;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select ID_AL"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select ID_ALMACEN from CAT_ALMACEN"))); //BA.debugLineNum = 669;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 670;BA.debugLine="a = C.GetString(\"ID_ALMACEN\")"; _a = _c.GetString("ID_ALMACEN"); //BA.debugLineNum = 671;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 672;BA.debugLine="Return a"; if (true) return _a; //BA.debugLineNum = 673;BA.debugLine="End Sub"; return ""; } public static String _traecliente(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _cl = ""; //BA.debugLineNum = 750;BA.debugLine="Sub traeCliente As String 'ignore"; //BA.debugLineNum = 751;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 752;BA.debugLine="Private cl As String"; _cl = ""; //BA.debugLineNum = 753;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"Select CUENTA"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select CUENTA from cuentaa"))); //BA.debugLineNum = 754;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 755;BA.debugLine="cl = c.GetString(\"CUENTA\")"; _cl = _c.GetString("CUENTA"); //BA.debugLineNum = 756;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 757;BA.debugLine="Return cl"; if (true) return _cl; //BA.debugLineNum = 758;BA.debugLine="End Sub"; return ""; } public static String _traediaentrega(anywheresoftware.b4a.BA _ba,String _id) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _diaentrega = ""; String _diacalculado = ""; long _fechahoy = 0L; long _fechacalculada = 0L; int _diasemana = 0; //BA.debugLineNum = 1577;BA.debugLine="Sub traeDiaEntrega(id As String) As String"; //BA.debugLineNum = 1578;BA.debugLine="Dim c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1579;BA.debugLine="Dim DiaEntrega As String = \"0\""; _diaentrega = "0"; //BA.debugLineNum = 1580;BA.debugLine="Dim DiaCalculado As String = \"\""; _diacalculado = ""; //BA.debugLineNum = 1582;BA.debugLine="DateTime.DateFormat = \"dd/MM/yyyy\" ' Establecer e"; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("dd/MM/yyyy"); //BA.debugLineNum = 1584;BA.debugLine="Dim FechaHoy As Long = DateTime.Now"; _fechahoy = anywheresoftware.b4a.keywords.Common.DateTime.getNow(); //BA.debugLineNum = 1586;BA.debugLine="Dim FechaCalculada As Long"; _fechacalculada = 0L; //BA.debugLineNum = 1587;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery($\"SELECT CAT"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("SELECT CAT_DP_ENTREGA FROM "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" WHERE CAT_GP_ID = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_id))+"'")))); //BA.debugLineNum = 1588;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1589;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1590;BA.debugLine="DiaEntrega = c.GetString(\"CAT_DP_ENTREGA\")"; _diaentrega = _c.GetString("CAT_DP_ENTREGA"); }; //BA.debugLineNum = 1592;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1593;BA.debugLine="Select DiaEntrega"; switch (BA.switchObjectToInt(_diaentrega,"0","1")) { case 0: { //BA.debugLineNum = 1595;BA.debugLine="FechaCalculada = DateTime.Add(FechaHoy, 0, 0, 1"; _fechacalculada = anywheresoftware.b4a.keywords.Common.DateTime.Add(_fechahoy,(int) (0),(int) (0),(int) (1)); break; } case 1: { //BA.debugLineNum = 1597;BA.debugLine="FechaCalculada = DateTime.Add(FechaHoy, 0, 0, 2"; _fechacalculada = anywheresoftware.b4a.keywords.Common.DateTime.Add(_fechahoy,(int) (0),(int) (0),(int) (2)); break; } } ; //BA.debugLineNum = 1600;BA.debugLine="Dim DiaSemana As Int = DateTime.GetDayOfWeek(Fech"; _diasemana = anywheresoftware.b4a.keywords.Common.DateTime.GetDayOfWeek(_fechacalculada); //BA.debugLineNum = 1601;BA.debugLine="If DiaSemana = 1 Then ' 1 representa domingo en B"; if (_diasemana==1) { //BA.debugLineNum = 1602;BA.debugLine="FechaCalculada = DateTime.Add(FechaCalculada, 0,"; _fechacalculada = anywheresoftware.b4a.keywords.Common.DateTime.Add(_fechacalculada,(int) (0),(int) (0),(int) (1)); }; //BA.debugLineNum = 1605;BA.debugLine="DateTime.DateFormat = \"dd/MM/yyyy\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("dd/MM/yyyy"); //BA.debugLineNum = 1606;BA.debugLine="DiaCalculado = DateTime.Date(FechaCalculada)"; _diacalculado = anywheresoftware.b4a.keywords.Common.DateTime.Date(_fechacalculada); //BA.debugLineNum = 1607;BA.debugLine="Return DiaCalculado"; if (true) return _diacalculado; //BA.debugLineNum = 1608;BA.debugLine="End Sub"; return ""; } public static String _traefecha(anywheresoftware.b4a.BA _ba) throws Exception{ String _sdate = ""; String _stime = ""; //BA.debugLineNum = 760;BA.debugLine="Sub traeFecha As String 'ignore"; //BA.debugLineNum = 761;BA.debugLine="DateTime.DateFormat = \"MM/dd/yyyy\""; anywheresoftware.b4a.keywords.Common.DateTime.setDateFormat("MM/dd/yyyy"); //BA.debugLineNum = 762;BA.debugLine="Private sDate As String =DateTime.Date(DateTime.N"; _sdate = anywheresoftware.b4a.keywords.Common.DateTime.Date(anywheresoftware.b4a.keywords.Common.DateTime.getNow()); //BA.debugLineNum = 763;BA.debugLine="Private sTime As String =DateTime.Time(DateTime.N"; _stime = anywheresoftware.b4a.keywords.Common.DateTime.Time(anywheresoftware.b4a.keywords.Common.DateTime.getNow()); //BA.debugLineNum = 764;BA.debugLine="Return sDate & sTime"; if (true) return _sdate+_stime; //BA.debugLineNum = 765;BA.debugLine="End Sub"; return ""; } public static String _traeinventario(anywheresoftware.b4a.BA _ba,String _id) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _inventario = ""; //BA.debugLineNum = 1552;BA.debugLine="Sub traeinventario(id As String) As String"; //BA.debugLineNum = 1553;BA.debugLine="Dim c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1554;BA.debugLine="Dim inventario As String = \"0\""; _inventario = "0"; //BA.debugLineNum = 1555;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select CAT_G"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select CAT_GP_ALMACEN from "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" where CAT_GP_ID = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_id))+"'")))); //BA.debugLineNum = 1557;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1558;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1559;BA.debugLine="inventario = c.GetString(\"CAT_GP_ALMACEN\")"; _inventario = _c.GetString("CAT_GP_ALMACEN"); }; //BA.debugLineNum = 1561;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1562;BA.debugLine="Return inventario"; if (true) return _inventario; //BA.debugLineNum = 1563;BA.debugLine="End Sub"; return ""; } public static int _traemaxpromos(anywheresoftware.b4a.BA _ba,anywheresoftware.b4a.objects.collections.Map _pm) throws Exception{ boolean _thislog = false; anywheresoftware.b4a.objects.collections.List _maxpromos = null; int _vendidas = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; //BA.debugLineNum = 1161;BA.debugLine="Sub traeMaxPromos(pm As Map) As Int"; //BA.debugLineNum = 1162;BA.debugLine="Private thisLog As Boolean = False 'Si es verdade"; _thislog = anywheresoftware.b4a.keywords.Common.False; //BA.debugLineNum = 1163;BA.debugLine="Private maxPromos As List"; _maxpromos = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 1164;BA.debugLine="Private vendidas As Int = 0"; _vendidas = (int) (0); //BA.debugLineNum = 1165;BA.debugLine="maxPromos.Initialize"; _maxpromos.Initialize(); //BA.debugLineNum = 1167;BA.debugLine="If thisLog Then Log(pm)"; if (_thislog) { anywheresoftware.b4a.keywords.Common.LogImpl("075563014",BA.ObjectToString(_pm),0);}; //BA.debugLineNum = 1168;BA.debugLine="If pm.Get(\"historico\") = \"1\" Then maxPromos.Add(p"; if ((_pm.Get((Object)("historico"))).equals((Object)("1"))) { _maxpromos.Add(_pm.Get((Object)("maxRecurrente")));}; //BA.debugLineNum = 1169;BA.debugLine="maxPromos.Add(pm.Get(\"maxPromos\")) 'Agregamos max"; _maxpromos.Add(_pm.Get((Object)("maxPromos"))); //BA.debugLineNum = 1170;BA.debugLine="maxPromos.Add(pm.Get(\"maxXcliente\")) 'Agregamos m"; _maxpromos.Add(_pm.Get((Object)("maxXcliente"))); //BA.debugLineNum = 1171;BA.debugLine="maxPromos.Sort(True)"; _maxpromos.Sort(anywheresoftware.b4a.keywords.Common.True); //BA.debugLineNum = 1174;BA.debugLine="Private c As Cursor = B4XPages.MainPage.skmt.Exec"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("select sum(PE_CANT) as vendidas from PEDIDO where PE_PROID = ? and PE_CLIENTE = ? ",new String[]{(BA.ObjectToString(_pm.Get((Object)("id")))).trim(),_traecliente(_ba).trim()}))); //BA.debugLineNum = 1175;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1176;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1177;BA.debugLine="vendidas = c.GetInt(\"vendidas\")"; _vendidas = _c.GetInt("vendidas"); }; //BA.debugLineNum = 1184;BA.debugLine="Return maxPromos.Get(0) - vendidas 'Regresamos el"; if (true) return (int) ((double)(BA.ObjectToNumber(_maxpromos.Get((int) (0))))-_vendidas); //BA.debugLineNum = 1185;BA.debugLine="End Sub"; return 0; } public static String _traeminimo(anywheresoftware.b4a.BA _ba,String _id) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _minimaventa = ""; //BA.debugLineNum = 1565;BA.debugLine="Sub traeMinimo(id As String) As String"; //BA.debugLineNum = 1566;BA.debugLine="Dim c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1567;BA.debugLine="Dim minimaVenta As String = \"1\""; _minimaventa = "1"; //BA.debugLineNum = 1574;BA.debugLine="Return minimaVenta"; if (true) return _minimaventa; //BA.debugLineNum = 1575;BA.debugLine="End Sub"; return ""; } public static anywheresoftware.b4a.objects.collections.Map _traemosinventariodisponibleparapromo(anywheresoftware.b4a.BA _ba,String _promo) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; anywheresoftware.b4a.objects.collections.Map _prods = null; int _i = 0; //BA.debugLineNum = 1047;BA.debugLine="Sub traemosInventarioDisponibleParaPromo(promo As"; //BA.debugLineNum = 1048;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1049;BA.debugLine="Log(\"ESTAMOS VIENDO INVENTARIO\")"; anywheresoftware.b4a.keywords.Common.LogImpl("075366402","ESTAMOS VIENDO INVENTARIO",0); //BA.debugLineNum = 1050;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery2($\"SELECT CA"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2(("SELECT CAT_GP_ID, CAT_GP_ALMACEN FROM "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" WHERE CAT_GP_ID IN (select CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ?)"),new String[]{_promo}))); //BA.debugLineNum = 1053;BA.debugLine="Private prods As Map"; _prods = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1054;BA.debugLine="prods.Initialize"; _prods.Initialize(); //BA.debugLineNum = 1055;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1057;BA.debugLine="For i=0 To c.RowCount -1"; { final int step7 = 1; final int limit7 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit7 ;_i = _i + step7 ) { //BA.debugLineNum = 1058;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 1059;BA.debugLine="prods.Put(c.GetString(\"CAT_GP_ID\"), c.GetString"; _prods.Put((Object)(_c.GetString("CAT_GP_ID")),(Object)(_c.GetString("CAT_GP_ALMACEN"))); } }; }; //BA.debugLineNum = 1064;BA.debugLine="Return prods"; if (true) return _prods; //BA.debugLineNum = 1065;BA.debugLine="End Sub"; return null; } public static String _traenombretienda(anywheresoftware.b4a.BA _ba,String _cliente) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _r = ""; //BA.debugLineNum = 737;BA.debugLine="Sub traeNombreTienda (cliente As String) As String"; //BA.debugLineNum = 738;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 739;BA.debugLine="Private r As String"; _r = ""; //BA.debugLineNum = 740;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select CAT_C"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select CAT_CL_NOMBRE from kmt_info where CAT_CL_CODIGO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cliente))+"'")))); //BA.debugLineNum = 741;BA.debugLine="r = \"0\""; _r = "0"; //BA.debugLineNum = 742;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 743;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 744;BA.debugLine="r = c.GetString(\"CAT_CL_NOMBRE\")"; _r = _c.GetString("CAT_CL_NOMBRE"); }; //BA.debugLineNum = 746;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 747;BA.debugLine="Return r"; if (true) return _r; //BA.debugLineNum = 748;BA.debugLine="End Sub"; return ""; } public static anywheresoftware.b4a.objects.collections.Map _traeprodiddebd(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; anywheresoftware.b4a.objects.collections.Map _m = null; //BA.debugLineNum = 1399;BA.debugLine="Sub traeProdIdDeBD As Map 'ignore"; //BA.debugLineNum = 1400;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1401;BA.debugLine="Private m As Map"; _m = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1402;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select CAT_G"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_TIPO,CAT_GP_SUBTIPO from "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" where CAT_GP_NOMBRE In (Select PDESC from PROID)")))); //BA.debugLineNum = 1403;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1404;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1405;BA.debugLine="m = CreateMap(\"id\":c.GetString(\"CAT_GP_ID\"), \"no"; _m = anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("id"),(Object)(_c.GetString("CAT_GP_ID")),(Object)("nombre"),(Object)(_c.GetString("CAT_GP_NOMBRE")),(Object)("tipo"),(Object)(_c.GetString("CAT_GP_TIPO")),(Object)("subtipo"),(Object)(_c.GetString("CAT_GP_SUBTIPO"))}); }else { //BA.debugLineNum = 1407;BA.debugLine="m = CreateMap(\"id\":\"N/A\", \"nombre\":\"N/A\", \"tipo\""; _m = anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("id"),(Object)("N/A"),(Object)("nombre"),(Object)("N/A"),(Object)("tipo"),(Object)("N/A"),(Object)("subtipo"),(Object)("N/A")}); }; //BA.debugLineNum = 1409;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1410;BA.debugLine="Return m"; if (true) return _m; //BA.debugLineNum = 1411;BA.debugLine="End Sub"; return null; } public static String _traeprodnombre(anywheresoftware.b4a.BA _ba,String _id) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _h = null; String _n = ""; //BA.debugLineNum = 676;BA.debugLine="Sub traeProdNombre(id As String) As String"; //BA.debugLineNum = 677;BA.debugLine="Private h As Cursor"; _h = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 678;BA.debugLine="Private n As String"; _n = ""; //BA.debugLineNum = 679;BA.debugLine="h=B4XPages.MainPage.skmt.ExecQuery2($\"select CAT_"; _h = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2(("select CAT_GP_NOMBRE from "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" where CAT_GP_ID = ? "),new String[]{_id.trim()}))); //BA.debugLineNum = 680;BA.debugLine="If h.RowCount > 0 Then"; if (_h.getRowCount()>0) { //BA.debugLineNum = 681;BA.debugLine="h.Position = 0"; _h.setPosition((int) (0)); //BA.debugLineNum = 682;BA.debugLine="n = h.GetString(\"CAT_GP_NOMBRE\")"; _n = _h.GetString("CAT_GP_NOMBRE"); }; //BA.debugLineNum = 685;BA.debugLine="h.Close"; _h.Close(); //BA.debugLineNum = 686;BA.debugLine="If n = Null Or n=\"\" Then n = \"N/A\""; if (_n== null || (_n).equals("")) { _n = "N/A";}; //BA.debugLineNum = 688;BA.debugLine="Return n"; if (true) return _n; //BA.debugLineNum = 689;BA.debugLine="End Sub"; return ""; } public static anywheresoftware.b4a.objects.collections.Map _traepromo(anywheresoftware.b4a.BA _ba,String _promo,String _cliente) throws Exception{ String _iniciocontador = ""; anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _sihistorico = ""; anywheresoftware.b4a.objects.collections.Map _promomap = null; anywheresoftware.b4a.objects.collections.List _prodsfijos = null; anywheresoftware.b4a.objects.collections.List _prodsfijosprecios = null; anywheresoftware.b4a.objects.collections.List _prodsfijospiezas = null; anywheresoftware.b4a.objects.collections.List _prodsvariables = null; anywheresoftware.b4a.objects.collections.List _prodsvariables2 = null; anywheresoftware.b4a.objects.collections.List _prodsvariablesprecios = null; anywheresoftware.b4a.objects.collections.List _prodsvariablesprecios2 = null; anywheresoftware.b4a.objects.collections.Map _prods = null; anywheresoftware.b4a.objects.collections.Map _tipos = null; int _i = 0; String _pvr = ""; String _pvr2 = ""; //BA.debugLineNum = 961;BA.debugLine="Sub traePromo(promo As String, cliente As String)"; //BA.debugLineNum = 962;BA.debugLine="Private inicioContador As String = DateTime.Now"; _iniciocontador = BA.NumberToString(anywheresoftware.b4a.keywords.Common.DateTime.getNow()); //BA.debugLineNum = 963;BA.debugLine="Private c As Cursor = B4XPages.MainPage.skmt.Exec"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select * from promos_comp where cat_pa_id = '"+_promo+"'"))); //BA.debugLineNum = 964;BA.debugLine="Private siHistorico As String = 0"; _sihistorico = BA.NumberToString(0); //BA.debugLineNum = 965;BA.debugLine="Private promoMap As Map"; _promomap = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 966;BA.debugLine="Private prodsFijos, prodsFijosPrecios, prodsFijos"; _prodsfijos = new anywheresoftware.b4a.objects.collections.List(); _prodsfijosprecios = new anywheresoftware.b4a.objects.collections.List(); _prodsfijospiezas = new anywheresoftware.b4a.objects.collections.List(); _prodsvariables = new anywheresoftware.b4a.objects.collections.List(); _prodsvariables2 = new anywheresoftware.b4a.objects.collections.List(); _prodsvariablesprecios = new anywheresoftware.b4a.objects.collections.List(); _prodsvariablesprecios2 = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 967;BA.debugLine="promoMap.Initialize"; _promomap.Initialize(); //BA.debugLineNum = 968;BA.debugLine="prodsFijos.Initialize"; _prodsfijos.Initialize(); //BA.debugLineNum = 969;BA.debugLine="prodsFijosPrecios.Initialize"; _prodsfijosprecios.Initialize(); //BA.debugLineNum = 970;BA.debugLine="prodsFijosPiezas.Initialize"; _prodsfijospiezas.Initialize(); //BA.debugLineNum = 971;BA.debugLine="prodsVariables.Initialize"; _prodsvariables.Initialize(); //BA.debugLineNum = 972;BA.debugLine="prodsVariables2.Initialize"; _prodsvariables2.Initialize(); //BA.debugLineNum = 973;BA.debugLine="prodsVariablesPrecios.Initialize"; _prodsvariablesprecios.Initialize(); //BA.debugLineNum = 974;BA.debugLine="prodsVariablesPrecios2.Initialize"; _prodsvariablesprecios2.Initialize(); //BA.debugLineNum = 975;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 976;BA.debugLine="If c.RowCount > 0 Then promoMap = CreateMap(\"id\":"; if (_c.getRowCount()>0) { _promomap = anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("id"),(Object)(_promo),(Object)("maxXcliente"),(Object)(_c.GetString("CAT_PA_MAXPROMCLIE")),(Object)("maxRecurrente"),(Object)(_c.GetString("CAT_PA_MAXPROMREC")),(Object)("maxPromos"),(Object)(_c.GetString("CAT_PA_MAXPROM"))});}; //BA.debugLineNum = 977;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery(\"Select coun"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select count(*) as hist from HIST_PROMOS where HP_CLIENTE = '"+_cliente+"' and HP_CODIGO_PROMOCION = '"+_promo+"'"))); //BA.debugLineNum = 978;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 979;BA.debugLine="If c.GetString(\"hist\") > 0 Then siHistorico = 1"; if ((double)(Double.parseDouble(_c.GetString("hist")))>0) { _sihistorico = BA.NumberToString(1);}; //BA.debugLineNum = 980;BA.debugLine="promoMap.Put(\"historico\", siHistorico)"; _promomap.Put((Object)("historico"),(Object)(_sihistorico)); //BA.debugLineNum = 981;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery(\"Select * fr"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select * from CAT_DETALLES_PAQ where CAT_DP_ID = '"+_promo+"'"))); //BA.debugLineNum = 982;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 983;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 984;BA.debugLine="Private prods, tipos As Map"; _prods = new anywheresoftware.b4a.objects.collections.Map(); _tipos = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 985;BA.debugLine="prods.Initialize"; _prods.Initialize(); //BA.debugLineNum = 986;BA.debugLine="tipos.Initialize"; _tipos.Initialize(); //BA.debugLineNum = 987;BA.debugLine="For i=0 To c.RowCount -1"; { final int step26 = 1; final int limit26 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit26 ;_i = _i + step26 ) { //BA.debugLineNum = 988;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 989;BA.debugLine="prods.Put(c.GetString(\"CAT_DP_IDPROD\"), CreateM"; _prods.Put((Object)(_c.GetString("CAT_DP_IDPROD")),(Object)(anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("idProducto"),(Object)(_c.GetString("CAT_DP_IDPROD")),(Object)("precioSimptos"),(Object)(_c.GetString("CAT_DP_PRECIO_SIMPTOS")),(Object)("precio"),(Object)(_c.GetString("CAT_DP_PRECIO")),(Object)("almacen"),(Object)(_c.GetString("CAT_DP_ALMACEN")),(Object)("tipo"),(Object)(_c.GetString("CAT_DP_TIPO")),(Object)("piezas"),(Object)(_c.GetString("CAT_DP_PZAS")),(Object)("usuario"),(Object)(_c.GetString("CAT_DP_USUARIO")),(Object)("regalo"),(Object)(_c.GetString("CAT_DP_REGALO")),(Object)("clasif"),(Object)(_c.GetString("CAT_DP_CLASIF"))}).getObject())); //BA.debugLineNum = 990;BA.debugLine="tipos.Put(c.GetString(\"CAT_DP_IDPROD\"), c.GetSt"; _tipos.Put((Object)(_c.GetString("CAT_DP_IDPROD")),(Object)(_c.GetString("CAT_DP_TIPO"))); //BA.debugLineNum = 991;BA.debugLine="If c.GetString(\"CAT_DP_TIPO\") = \"0\" Then"; if ((_c.GetString("CAT_DP_TIPO")).equals("0")) { //BA.debugLineNum = 992;BA.debugLine="prodsFijos.Add(c.GetString(\"CAT_DP_IDPROD\"))"; _prodsfijos.Add((Object)(_c.GetString("CAT_DP_IDPROD"))); //BA.debugLineNum = 993;BA.debugLine="prodsFijosPrecios.Add(c.GetString(\"CAT_DP_PREC"; _prodsfijosprecios.Add((Object)(_c.GetString("CAT_DP_PRECIO"))); //BA.debugLineNum = 994;BA.debugLine="prodsFijosPiezas.Add(c.GetString(\"CAT_DP_PZAS\""; _prodsfijospiezas.Add((Object)(_c.GetString("CAT_DP_PZAS"))); }; //BA.debugLineNum = 996;BA.debugLine="If c.GetString(\"CAT_DP_TIPO\") = \"1\" Then"; if ((_c.GetString("CAT_DP_TIPO")).equals("1")) { //BA.debugLineNum = 997;BA.debugLine="prodsVariables.Add(c.GetString(\"CAT_DP_IDPROD\""; _prodsvariables.Add((Object)(_c.GetString("CAT_DP_IDPROD"))); //BA.debugLineNum = 998;BA.debugLine="prodsVariablesPrecios.Add(c.GetString(\"CAT_DP_"; _prodsvariablesprecios.Add((Object)(_c.GetString("CAT_DP_PRECIO"))); }; //BA.debugLineNum = 1000;BA.debugLine="If c.GetString(\"CAT_DP_TIPO\") = \"2\" Then"; if ((_c.GetString("CAT_DP_TIPO")).equals("2")) { //BA.debugLineNum = 1002;BA.debugLine="prodsVariables2.Add(c.GetString(\"CAT_DP_IDPROD"; _prodsvariables2.Add((Object)(_c.GetString("CAT_DP_IDPROD"))); //BA.debugLineNum = 1003;BA.debugLine="prodsVariablesPrecios2.Add(c.GetString(\"CAT_DP"; _prodsvariablesprecios2.Add((Object)(_c.GetString("CAT_DP_PRECIO"))); }; } }; //BA.debugLineNum = 1008;BA.debugLine="promoMap.Put(\"productos\", prods) 'Mapa con los p"; _promomap.Put((Object)("productos"),(Object)(_prods.getObject())); //BA.debugLineNum = 1009;BA.debugLine="promoMap.Put(\"tipos\", tipos) 'Mapa con los produ"; _promomap.Put((Object)("tipos"),(Object)(_tipos.getObject())); //BA.debugLineNum = 1010;BA.debugLine="promoMap.Put(\"prodsFijos\", prodsFijos) 'Lista de"; _promomap.Put((Object)("prodsFijos"),(Object)(_prodsfijos.getObject())); //BA.debugLineNum = 1011;BA.debugLine="promoMap.Put(\"prodsVariables\", prodsVariables) '"; _promomap.Put((Object)("prodsVariables"),(Object)(_prodsvariables.getObject())); //BA.debugLineNum = 1012;BA.debugLine="promoMap.Put(\"prodsVariables2\", prodsVariables2)"; _promomap.Put((Object)("prodsVariables2"),(Object)(_prodsvariables2.getObject())); //BA.debugLineNum = 1013;BA.debugLine="promoMap.Put(\"prodsFijosCant\", prodsFijos.Size)"; _promomap.Put((Object)("prodsFijosCant"),(Object)(_prodsfijos.getSize())); //BA.debugLineNum = 1014;BA.debugLine="promoMap.Put(\"prodsFijosPrecios\", prodsFijosPrec"; _promomap.Put((Object)("prodsFijosPrecios"),(Object)(_prodsfijosprecios.getObject())); //BA.debugLineNum = 1015;BA.debugLine="promoMap.Put(\"prodsFijosPiezas\", prodsFijosPieza"; _promomap.Put((Object)("prodsFijosPiezas"),(Object)(_prodsfijospiezas.getObject())); //BA.debugLineNum = 1016;BA.debugLine="promoMap.Put(\"prodsVariablesCant\", prodsVariable"; _promomap.Put((Object)("prodsVariablesCant"),(Object)(_prodsvariables.getSize())); //BA.debugLineNum = 1017;BA.debugLine="promoMap.Put(\"prodsVariables2Cant\", prodsVariabl"; _promomap.Put((Object)("prodsVariables2Cant"),(Object)(_prodsvariables2.getSize())); //BA.debugLineNum = 1018;BA.debugLine="promoMap.Put(\"prodsVariablesPrecios\", prodsVaria"; _promomap.Put((Object)("prodsVariablesPrecios"),(Object)(_prodsvariablesprecios.getObject())); //BA.debugLineNum = 1019;BA.debugLine="promoMap.Put(\"prodsVariablesPrecios2\", prodsVari"; _promomap.Put((Object)("prodsVariablesPrecios2"),(Object)(_prodsvariablesprecios2.getObject())); //BA.debugLineNum = 1020;BA.debugLine="promoMap.Put(\"resultado\", \"ok\")"; _promomap.Put((Object)("resultado"),(Object)("ok")); }else { //BA.debugLineNum = 1022;BA.debugLine="promoMap.Put(\"resultado\", \"No hay datos de la pr"; _promomap.Put((Object)("resultado"),(Object)("No hay datos de la promoción.")); }; //BA.debugLineNum = 1024;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery2($\"Select CA"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2(("Select CAT_GP_STS, CAT_GP_IMP1, CAT_GP_NOMBRE from "+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(mostCurrent._starter._tabla /*String*/ ))+" where CAT_GP_ID = ?"),new String[]{_promo}))); //BA.debugLineNum = 1025;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1026;BA.debugLine="Private pvr As String = 0"; _pvr = BA.NumberToString(0); //BA.debugLineNum = 1027;BA.debugLine="Private pvr2 As String = 0"; _pvr2 = BA.NumberToString(0); //BA.debugLineNum = 1028;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1029;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1030;BA.debugLine="pvr = c.GetString(\"CAT_GP_STS\")"; _pvr = _c.GetString("CAT_GP_STS"); //BA.debugLineNum = 1031;BA.debugLine="pvr2 = c.GetString(\"CAT_GP_IMP1\")"; _pvr2 = _c.GetString("CAT_GP_IMP1"); //BA.debugLineNum = 1032;BA.debugLine="If pvr = Null Or pvr = \"null\" Then pvr = 0"; if (_pvr== null || (_pvr).equals("null")) { _pvr = BA.NumberToString(0);}; //BA.debugLineNum = 1033;BA.debugLine="If pvr2 = Null Or pvr2 = \"null\" Then pvr2 = 0"; if (_pvr2== null || (_pvr2).equals("null")) { _pvr2 = BA.NumberToString(0);}; //BA.debugLineNum = 1034;BA.debugLine="promoMap.Put(\"prodsVariablesRequeridos\", pvr) 'C"; _promomap.Put((Object)("prodsVariablesRequeridos"),(Object)(_pvr)); //BA.debugLineNum = 1035;BA.debugLine="promoMap.Put(\"prodsVariables2Requeridos\", pvr2)"; _promomap.Put((Object)("prodsVariables2Requeridos"),(Object)(_pvr2)); //BA.debugLineNum = 1036;BA.debugLine="promoMap.put(\"descripcion\", c.GetString(\"CAT_GP_"; _promomap.Put((Object)("descripcion"),(Object)(_c.GetString("CAT_GP_NOMBRE"))); }; //BA.debugLineNum = 1038;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1043;BA.debugLine="Return promoMap"; if (true) return _promomap; //BA.debugLineNum = 1044;BA.debugLine="End Sub"; return null; } public static int _traepromosvendidas(anywheresoftware.b4a.BA _ba,String _promo,String _cliente) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; int _pv = 0; //BA.debugLineNum = 1188;BA.debugLine="Sub traePromosVendidas(promo As String, cliente As"; //BA.debugLineNum = 1189;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1190;BA.debugLine="Private pv As Int = 0"; _pv = (int) (0); //BA.debugLineNum = 1191;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select PE_CA"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select PE_CANT from PEDIDO where PE_PROID = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_promo))+"' and PE_CLIENTE = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cliente))+"'")))); //BA.debugLineNum = 1192;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1193;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1194;BA.debugLine="pv = c.GetInt(\"PE_CANT\")"; _pv = _c.GetInt("PE_CANT"); }; //BA.debugLineNum = 1196;BA.debugLine="Return pv"; if (true) return _pv; //BA.debugLineNum = 1197;BA.debugLine="End Sub"; return 0; } public static String _traeruta(anywheresoftware.b4a.BA _ba,String _cliente) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _r = ""; //BA.debugLineNum = 710;BA.debugLine="Sub traeRuta (cliente As String) As String 'ignore"; //BA.debugLineNum = 711;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 712;BA.debugLine="Private r As String"; _r = ""; //BA.debugLineNum = 713;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select CAT_C"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cliente))+"'")))); //BA.debugLineNum = 714;BA.debugLine="r = \"0\""; _r = "0"; //BA.debugLineNum = 715;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 716;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 717;BA.debugLine="r = c.GetString(\"CAT_CL_RUTA\")"; _r = _c.GetString("CAT_CL_RUTA"); }; //BA.debugLineNum = 719;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 720;BA.debugLine="Return r"; if (true) return _r; //BA.debugLineNum = 721;BA.debugLine="End Sub"; return ""; } public static String _traeruta2(anywheresoftware.b4a.BA _ba,String _cliente) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _r = ""; //BA.debugLineNum = 724;BA.debugLine="Sub traeRuta2 (cliente As String) As String 'ignor"; //BA.debugLineNum = 725;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 726;BA.debugLine="Private r As String"; _r = ""; //BA.debugLineNum = 727;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery($\"select CAT_C"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cliente))+"' UNION ALL select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '"+anywheresoftware.b4a.keywords.Common.SmartStringFormatter("",(Object)(_cliente))+"'")))); //BA.debugLineNum = 728;BA.debugLine="r = \"0\""; _r = "0"; //BA.debugLineNum = 729;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 730;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 731;BA.debugLine="r = c.GetString(\"CAT_CL_RUTA\")"; _r = _c.GetString("CAT_CL_RUTA"); }; //BA.debugLineNum = 733;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 734;BA.debugLine="Return r"; if (true) return _r; //BA.debugLineNum = 735;BA.debugLine="End Sub"; return ""; } public static String _traerutabitacora(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _r = ""; //BA.debugLineNum = 1624;BA.debugLine="Sub traeRutaBitacora As String 'ignore"; //BA.debugLineNum = 1625;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 1626;BA.debugLine="Private r As String"; _r = ""; //BA.debugLineNum = 1627;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select CAT_CL"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)"))); //BA.debugLineNum = 1628;BA.debugLine="r = \"0\""; _r = "0"; //BA.debugLineNum = 1629;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 1630;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1631;BA.debugLine="r = c.GetString(\"CAT_CL_RUTA\")"; _r = _c.GetString("CAT_CL_RUTA"); }; //BA.debugLineNum = 1633;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1634;BA.debugLine="Return r"; if (true) return _r; //BA.debugLineNum = 1635;BA.debugLine="End Sub"; return ""; } public static String _traetablaprods(anywheresoftware.b4a.BA _ba,String _tipoventa) throws Exception{ String _tablaprods = ""; //BA.debugLineNum = 1484;BA.debugLine="Sub traeTablaProds(tipoventa As String) As String"; //BA.debugLineNum = 1485;BA.debugLine="Private tablaProds As String = \"cat_gunaprod2\""; _tablaprods = "cat_gunaprod2"; //BA.debugLineNum = 1486;BA.debugLine="If tipoventa = \"ABORDO\" Or tipoventa = \"PREVENTA\""; if ((_tipoventa).equals("ABORDO") || (_tipoventa).equals("PREVENTA") || (_tipoventa).equals("RECARGA")) { _tablaprods = "cat_gunaprod";}; //BA.debugLineNum = 1488;BA.debugLine="Return tablaProds"; if (true) return _tablaprods; //BA.debugLineNum = 1489;BA.debugLine="End Sub"; return ""; } public static double _traetotalcliente(anywheresoftware.b4a.BA _ba) throws Exception{ double _sumatotal = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _cursorprueba = null; int _i = 0; //BA.debugLineNum = 882;BA.debugLine="Sub traeTotalCliente As Double"; //BA.debugLineNum = 883;BA.debugLine="Private sumaTotal As Double"; _sumatotal = 0; //BA.debugLineNum = 884;BA.debugLine="Private cursorprueba As Cursor = B4XPages.MainPag"; _cursorprueba = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _cursorprueba = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select PE_COSTO_TOT from pedido where PE_CLIENTE <> 0 "))); //BA.debugLineNum = 885;BA.debugLine="For i= 0 To cursorprueba.RowCount -1"; { final int step3 = 1; final int limit3 = (int) (_cursorprueba.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit3 ;_i = _i + step3 ) { //BA.debugLineNum = 886;BA.debugLine="cursorprueba.Position = i"; _cursorprueba.setPosition(_i); //BA.debugLineNum = 888;BA.debugLine="sumaTotal = sumaTotal + cursorprueba.GetString"; _sumatotal = _sumatotal+(double)(Double.parseDouble(_cursorprueba.GetString("PE_COSTO_TOT"))); //BA.debugLineNum = 889;BA.debugLine="sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, Fa"; _sumatotal = (double)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_sumatotal,(int) (0),(int) (2),(int) (2),anywheresoftware.b4a.keywords.Common.False))); } }; //BA.debugLineNum = 892;BA.debugLine="cursorprueba.Close"; _cursorprueba.Close(); //BA.debugLineNum = 893;BA.debugLine="Return sumaTotal"; if (true) return _sumatotal; //BA.debugLineNum = 894;BA.debugLine="End Sub"; return 0; } public static double _traetotalclienteabordo(anywheresoftware.b4a.BA _ba) throws Exception{ double _sumatotal = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _cursorprueba = null; int _i = 0; //BA.debugLineNum = 896;BA.debugLine="Sub traeTotalClienteabordo As Double"; //BA.debugLineNum = 897;BA.debugLine="Private sumaTotal As Double"; _sumatotal = 0; //BA.debugLineNum = 898;BA.debugLine="Private cursorprueba As Cursor = B4XPages.MainPag"; _cursorprueba = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _cursorprueba = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE = 0",new String[]{"ABORDO"}))); //BA.debugLineNum = 899;BA.debugLine="For i= 0 To cursorprueba.RowCount -1"; { final int step3 = 1; final int limit3 = (int) (_cursorprueba.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit3 ;_i = _i + step3 ) { //BA.debugLineNum = 900;BA.debugLine="cursorprueba.Position = i"; _cursorprueba.setPosition(_i); //BA.debugLineNum = 902;BA.debugLine="sumaTotal = sumaTotal + cursorprueba.GetString"; _sumatotal = _sumatotal+(double)(Double.parseDouble(_cursorprueba.GetString("PE_COSTO_TOT"))); //BA.debugLineNum = 903;BA.debugLine="sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, Fa"; _sumatotal = (double)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_sumatotal,(int) (0),(int) (2),(int) (2),anywheresoftware.b4a.keywords.Common.False))); } }; //BA.debugLineNum = 906;BA.debugLine="cursorprueba.Close"; _cursorprueba.Close(); //BA.debugLineNum = 907;BA.debugLine="Return sumaTotal"; if (true) return _sumatotal; //BA.debugLineNum = 908;BA.debugLine="End Sub"; return 0; } public static double _traetotalclientepreventa(anywheresoftware.b4a.BA _ba) throws Exception{ double _sumatotal = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _cursorprueba = null; int _i = 0; //BA.debugLineNum = 910;BA.debugLine="Sub traeTotalClientepreventa As Double"; //BA.debugLineNum = 911;BA.debugLine="Private sumaTotal As Double"; _sumatotal = 0; //BA.debugLineNum = 912;BA.debugLine="Private cursorprueba As Cursor = B4XPages.MainPag"; _cursorprueba = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _cursorprueba = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0",new String[]{"PREVENTA"}))); //BA.debugLineNum = 913;BA.debugLine="For i= 0 To cursorprueba.RowCount -1"; { final int step3 = 1; final int limit3 = (int) (_cursorprueba.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit3 ;_i = _i + step3 ) { //BA.debugLineNum = 914;BA.debugLine="cursorprueba.Position = i"; _cursorprueba.setPosition(_i); //BA.debugLineNum = 916;BA.debugLine="sumaTotal = sumaTotal + cursorprueba.GetString"; _sumatotal = _sumatotal+(double)(Double.parseDouble(_cursorprueba.GetString("PE_COSTO_TOT"))); //BA.debugLineNum = 917;BA.debugLine="sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, Fa"; _sumatotal = (double)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_sumatotal,(int) (0),(int) (2),(int) (2),anywheresoftware.b4a.keywords.Common.False))); } }; //BA.debugLineNum = 920;BA.debugLine="cursorprueba.Close"; _cursorprueba.Close(); //BA.debugLineNum = 921;BA.debugLine="Return sumaTotal"; if (true) return _sumatotal; //BA.debugLineNum = 922;BA.debugLine="End Sub"; return 0; } public static double _traetotalclientepreventaparacredito(anywheresoftware.b4a.BA _ba,String _clientepedido) throws Exception{ double _sumatotal = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _cursorprueba = null; int _i = 0; //BA.debugLineNum = 924;BA.debugLine="Sub traeTotalClientepreventaparacredito(clienteped"; //BA.debugLineNum = 925;BA.debugLine="Private sumaTotal As Double = 0"; _sumatotal = 0; //BA.debugLineNum = 926;BA.debugLine="LogColor(clientepedido,Colors.Red)"; anywheresoftware.b4a.keywords.Common.LogImpl("075169794",_clientepedido,anywheresoftware.b4a.keywords.Common.Colors.Red); //BA.debugLineNum = 927;BA.debugLine="Private cursorprueba As Cursor = B4XPages.MainPag"; _cursorprueba = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _cursorprueba = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("Select PE_COSTO_TOT from pedido where PE_CLIENTE = ? and PE_IMPRESO IS NOT NULL",new String[]{_clientepedido}))); //BA.debugLineNum = 928;BA.debugLine="For i= 0 To cursorprueba.RowCount -1"; { final int step4 = 1; final int limit4 = (int) (_cursorprueba.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit4 ;_i = _i + step4 ) { //BA.debugLineNum = 929;BA.debugLine="cursorprueba.Position = i"; _cursorprueba.setPosition(_i); //BA.debugLineNum = 931;BA.debugLine="sumaTotal = sumaTotal + cursorprueba.GetString"; _sumatotal = _sumatotal+(double)(Double.parseDouble(_cursorprueba.GetString("PE_COSTO_TOT"))); //BA.debugLineNum = 932;BA.debugLine="sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, Fa"; _sumatotal = (double)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_sumatotal,(int) (0),(int) (2),(int) (2),anywheresoftware.b4a.keywords.Common.False))); } }; //BA.debugLineNum = 935;BA.debugLine="cursorprueba.Close"; _cursorprueba.Close(); //BA.debugLineNum = 936;BA.debugLine="Return sumaTotal"; if (true) return _sumatotal; //BA.debugLineNum = 937;BA.debugLine="End Sub"; return 0; } public static double _traetotalclienteventa(anywheresoftware.b4a.BA _ba) throws Exception{ double _sumatotal = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _cursorprueba = null; int _i = 0; //BA.debugLineNum = 939;BA.debugLine="Sub traeTotalClienteventa As Double"; //BA.debugLineNum = 940;BA.debugLine="Private sumaTotal As Double"; _sumatotal = 0; //BA.debugLineNum = 941;BA.debugLine="Private cursorprueba As Cursor = B4XPages.MainPag"; _cursorprueba = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _cursorprueba = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0",new String[]{"PREVENTA_48"}))); //BA.debugLineNum = 942;BA.debugLine="For i= 0 To cursorprueba.RowCount -1"; { final int step3 = 1; final int limit3 = (int) (_cursorprueba.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit3 ;_i = _i + step3 ) { //BA.debugLineNum = 943;BA.debugLine="cursorprueba.Position = i"; _cursorprueba.setPosition(_i); //BA.debugLineNum = 945;BA.debugLine="sumaTotal = sumaTotal + cursorprueba.GetString"; _sumatotal = _sumatotal+(double)(Double.parseDouble(_cursorprueba.GetString("PE_COSTO_TOT"))); //BA.debugLineNum = 946;BA.debugLine="sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, Fa"; _sumatotal = (double)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_sumatotal,(int) (0),(int) (2),(int) (2),anywheresoftware.b4a.keywords.Common.False))); } }; //BA.debugLineNum = 949;BA.debugLine="cursorprueba.Close"; _cursorprueba.Close(); //BA.debugLineNum = 950;BA.debugLine="Return sumaTotal"; if (true) return _sumatotal; //BA.debugLineNum = 951;BA.debugLine="End Sub"; return 0; } public static anywheresoftware.b4a.objects.collections.Map _traetotalesclienteactual(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.objects.collections.Map _m = null; anywheresoftware.b4a.sql.SQL.CursorWrapper _c_prodsx = null; //BA.debugLineNum = 1438;BA.debugLine="Sub traeTotalesClienteActual As Map"; //BA.debugLineNum = 1439;BA.debugLine="Private m As Map"; _m = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 1440;BA.debugLine="m.Initialize"; _m.Initialize(); //BA.debugLineNum = 1441;BA.debugLine="Private c_prodsX As Cursor=B4XPages.MainPage.skmt"; _c_prodsx = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _c_prodsx = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(mostCurrent._b4xpages._mainpage /*medicomed.keymon.com.mx.b4xmainpage*/ (_ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select ifnull(sum(PE_CANT), 0) as cantProds, ifnull(sum(PE_COSTO_TOT), 0) as costoTotal FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc"))); //BA.debugLineNum = 1442;BA.debugLine="c_prodsX.Position=0"; _c_prodsx.setPosition((int) (0)); //BA.debugLineNum = 1444;BA.debugLine="m = CreateMap(\"productos\": c_prodsX.GetString(\"ca"; _m = anywheresoftware.b4a.keywords.Common.createMap(new Object[] {(Object)("productos"),(Object)(_c_prodsx.GetString("cantProds")),(Object)("monto"),(Object)(_c_prodsx.GetString("costoTotal"))}); //BA.debugLineNum = 1445;BA.debugLine="Return m"; if (true) return _m; //BA.debugLineNum = 1446;BA.debugLine="End Sub"; return null; } public static String _traeusuariodebd(anywheresoftware.b4a.BA _ba) throws Exception{ anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; String _u = ""; //BA.debugLineNum = 768;BA.debugLine="Sub traeUsuarioDeBD As String 'ignore"; //BA.debugLineNum = 769;BA.debugLine="Private c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 770;BA.debugLine="Private u As String = \"SinUsuario\""; _u = "SinUsuario"; //BA.debugLineNum = 771;BA.debugLine="If Not(kmt.IsInitialized) Then revisaBD"; if (anywheresoftware.b4a.keywords.Common.Not(_kmt.IsInitialized())) { _revisabd(_ba);}; //BA.debugLineNum = 772;BA.debugLine="c=kmt.ExecQuery(\"select USUARIO from usuarioa\")"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_kmt.ExecQuery("select USUARIO from usuarioa"))); //BA.debugLineNum = 773;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 774;BA.debugLine="If c.RowCount > 0 Then u = c.GetString(\"USUARIO\")"; if (_c.getRowCount()>0) { _u = _c.GetString("USUARIO");}; //BA.debugLineNum = 775;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 776;BA.debugLine="Return u"; if (true) return _u; //BA.debugLineNum = 777;BA.debugLine="End Sub"; return ""; } }