package keymon.lat.medicomed; import anywheresoftware.b4a.BA; import anywheresoftware.b4a.B4AClass; import anywheresoftware.b4a.BALayout; import anywheresoftware.b4a.debug.*; public class c_cliente extends B4AClass.ImplB4AClass implements BA.SubDelegator{ private static java.util.HashMap htSubs; private void innerInitialize(BA _ba) throws Exception { if (ba == null) { ba = new BA(_ba, this, htSubs, "keymon.lat.medicomed.c_cliente"); if (htSubs == null) { ba.loadHtSubs(this.getClass()); htSubs = ba.htSubs; } } if (BA.isShellModeRuntimeCheck(ba)) this.getClass().getMethod("_class_globals", keymon.lat.medicomed.c_cliente.class).invoke(this, new Object[] {null}); else ba.raiseEvent2(null, true, "class_globals", false); } public anywheresoftware.b4a.keywords.Common __c = null; public anywheresoftware.b4a.objects.B4XViewWrapper _root = null; public anywheresoftware.b4a.objects.B4XViewWrapper.XUI _xui = null; public anywheresoftware.b4a.objects.PanelWrapper _p_cliente = null; public keymon.lat.medicomed.dbrequestmanager _reqmanager = null; public keymon.lat.medicomed.dbrequestmanager._dbcommand _cmd = null; public anywheresoftware.b4a.objects.IME _ime = null; public anywheresoftware.b4a.gps.GPS _g = null; public String _ruta = ""; public anywheresoftware.b4a.sql.SQL _skmt = null; public String _clie_id = ""; public String _sdate = ""; public String _stime = ""; public String _usuario = ""; public String _total_cliente = ""; public String _m_lat = ""; public String _m_lon = ""; public anywheresoftware.b4a.objects.Serial.BluetoothAdmin _btadmin = null; public anywheresoftware.b4a.objects.Serial _cmp20 = null; public anywheresoftware.b4a.objects.streams.File.TextWriterWrapper _printer = null; public anywheresoftware.b4a.objects.collections.Map _paireddevices = null; public anywheresoftware.b4a.objects.collections.List _l = null; public int _tamano = 0; public int _espacio = 0; public String _blanco = ""; public String _cuenta = ""; public String _tipo_venta = ""; public String _mac_impresora = ""; public anywheresoftware.b4a.sql.SQL.CursorWrapper _c = null; public anywheresoftware.b4a.sql.SQL.CursorWrapper _s = null; public anywheresoftware.b4a.sql.SQL.CursorWrapper _dd = null; public anywheresoftware.b4a.sql.SQL.CursorWrapper _c2 = null; public anywheresoftware.b4a.objects.ListViewWrapper _listview1 = null; public anywheresoftware.b4a.objects.LabelWrapper _la_cuenta = null; public anywheresoftware.b4a.objects.LabelWrapper _la_nombre = null; public anywheresoftware.b4a.objects.LabelWrapper _la_calle = null; public anywheresoftware.b4a.objects.LabelWrapper _la_numero = null; public anywheresoftware.b4a.objects.LabelWrapper _la_nint = null; public anywheresoftware.b4a.objects.LabelWrapper _la_edo = null; public anywheresoftware.b4a.objects.LabelWrapper _la_pob = null; public anywheresoftware.b4a.objects.LabelWrapper _la_col = null; public anywheresoftware.b4a.objects.LabelWrapper _la_cp = null; public anywheresoftware.b4a.objects.LabelWrapper _la_zona = null; public anywheresoftware.b4a.objects.ButtonWrapper _gest = null; public anywheresoftware.b4a.objects.LabelWrapper _la_saldotot = null; public anywheresoftware.b4a.objects.LabelWrapper _la_saldooper = null; public anywheresoftware.b4a.objects.ButtonWrapper _tels = null; public anywheresoftware.b4a.objects.LabelWrapper _label10 = null; public anywheresoftware.b4a.objects.LabelWrapper _label11 = null; public anywheresoftware.b4a.objects.ButtonWrapper _tar = null; public anywheresoftware.b4a.objects.LabelWrapper _la_comm = null; public anywheresoftware.b4a.objects.LabelWrapper _la_actdte = null; public anywheresoftware.b4a.objects.LabelWrapper _la_usuario = null; public anywheresoftware.b4a.objects.LabelWrapper _la_resultado = null; public anywheresoftware.b4a.objects.LabelWrapper _l_entre1 = null; public anywheresoftware.b4a.objects.LabelWrapper _l_entre2 = null; public anywheresoftware.b4a.objects.LabelWrapper _l_atiende = null; public anywheresoftware.b4a.objects.LabelWrapper _l_atiende2 = null; public anywheresoftware.b4a.objects.ButtonWrapper _datos = null; public anywheresoftware.b4a.objects.ButtonWrapper _guardar = null; public anywheresoftware.b4a.objects.ButtonWrapper _nuevo = null; public anywheresoftware.b4a.objects.LabelWrapper _l_total = null; public anywheresoftware.b4a.sql.SQL.CursorWrapper _s2 = null; public String _res = ""; public anywheresoftware.b4a.objects.ButtonWrapper _hist = null; public String _monto_compra = ""; public String _meta = ""; public String _meta2 = ""; public String _verifica = ""; public anywheresoftware.b4a.objects.LabelWrapper _l_qr = null; public anywheresoftware.b4a.objects.ButtonWrapper _bt_qr = null; public String _codigo = ""; public anywheresoftware.b4a.objects.ButtonWrapper _b_mapa = null; public String _cuantos = ""; public anywheresoftware.b4a.objects.ButtonWrapper _b_imp = null; public com.rootsoft.togglelibrary.ToggleLibrary _toggla = null; public com.rootsoft.togglelibrary.ToggleLibrary _tgl = null; public anywheresoftware.b4a.objects.PanelWrapper _panel1 = null; public anywheresoftware.b4a.objects.EditTextWrapper _i_compra = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_guarda_c = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_venta = null; public String _almacen = ""; public anywheresoftware.b4a.objects.LabelWrapper _la_gps = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_e_next = null; public anywheresoftware.b4a.objects.EditTextWrapper _e_res_e = null; public anywheresoftware.b4a.objects.LabelWrapper _t_tenc = null; public anywheresoftware.b4a.objects.PanelWrapper _panel2 = null; public String _contador_e = ""; public String _hr_res1 = ""; public String _hr_res2 = ""; public String _hr_res3 = ""; public String _existe = ""; public String _telefono = ""; public anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper _rb1 = null; public anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper _rb2 = null; public anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper _rb3 = null; public anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper _rb4 = null; public anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper _rb5 = null; public String _stay_hh = ""; public String _stay_mi = ""; public String _stay_ss = ""; public anywheresoftware.b4a.objects.LabelWrapper _la_geo = null; public int _result = 0; public String _cercavalor = ""; public String _la_ruta = ""; public anywheresoftware.b4a.objects.ButtonWrapper _b_like = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_gps = null; public ice.zxing.b4aZXingLib _sc = null; public anywheresoftware.b4a.objects.CompoundButtonWrapper.CheckBoxWrapper _cb_factura = null; public anywheresoftware.b4a.objects.PanelWrapper _p_cbfactura = null; public boolean _venimosdeticketsdia = false; public anywheresoftware.b4a.objects.PanelWrapper _p_abono = null; public anywheresoftware.b4a.objects.EditTextWrapper _et_abono = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_abono = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_cancelar = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_abono1 = null; public anywheresoftware.b4a.objects.LabelWrapper _label20 = null; public anywheresoftware.b4a.objects.LabelWrapper _l_calle1 = null; public anywheresoftware.b4a.objects.LabelWrapper _l_ubicacion2 = null; public boolean _dentrodegeocerca = false; public anywheresoftware.b4a.objects.ButtonWrapper _b_iniciofinventa = null; public int _precision = 0; public String _motivonoventa = ""; public String _motivonovisita = ""; public String _id_almacen = ""; public String _ruta_tienda = ""; public anywheresoftware.b4a.objects.ButtonWrapper _b_clintesinventa = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_clienteventa = null; public anywheresoftware.b4a.objects.PanelWrapper _p_monto_venta = null; public anywheresoftware.b4a.objects.EditTextWrapper _et_monto_venta = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_can_monto_venta = null; public anywheresoftware.b4a.objects.ButtonWrapper _b_gu_monto_venta = null; public anywheresoftware.b4a.objects.PanelWrapper _p_inv = null; public b4a.example.dateutils _dateutils = null; public keymon.lat.medicomed.main _main = null; public keymon.lat.medicomed.starter _starter = null; public keymon.lat.medicomed.subs _subs = null; public keymon.lat.medicomed.appupdater _appupdater = null; public keymon.lat.medicomed.mapa_rutas _mapa_rutas = null; public keymon.lat.medicomed.tracker _tracker = null; public keymon.lat.medicomed.newinst2 _newinst2 = null; public keymon.lat.medicomed.b4xpages _b4xpages = null; public keymon.lat.medicomed.b4xcollections _b4xcollections = null; public keymon.lat.medicomed.httputils2service _httputils2service = null; public keymon.lat.medicomed.xuiviewsutils _xuiviewsutils = null; public void _b_abono_click() throws Exception{ ResumableSub_b_abono_Click rsub = new ResumableSub_b_abono_Click(this); rsub.resume(ba, null); } public static class ResumableSub_b_abono_Click extends BA.ResumableSub { public ResumableSub_b_abono_Click(keymon.lat.medicomed.c_cliente parent) { this.parent = parent; } keymon.lat.medicomed.c_cliente parent; int _resultado = 0; @Override public void resume(BA ba, Object[] result) throws Exception{ while (true) { switch (state) { case -1: return; case 0: //C this.state = 1; //BA.debugLineNum = 966;BA.debugLine="p_abono.Visible = False"; parent._p_abono.setVisible(parent.__c.False); //BA.debugLineNum = 967;BA.debugLine="If et_abono.Text <> \"\" Then"; if (true) break; case 1: //if this.state = 8; if ((parent._et_abono.getText()).equals("") == false) { this.state = 3; }if (true) break; case 3: //C this.state = 4; //BA.debugLineNum = 968;BA.debugLine="Msgbox2Async($\"¿Seguro que quieres realizar un a"; parent.__c.Msgbox2Async(BA.ObjectToCharSequence(("¿Seguro que quieres realizar un abono de $"+parent.__c.SmartStringFormatter("",(Object)(parent._et_abono.getText()))+" para este cliente?")),BA.ObjectToCharSequence("Guardar Abono"),"Guardar","Cancelar","",(anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper(), (android.graphics.Bitmap)(parent.__c.Null)),ba,parent.__c.True); //BA.debugLineNum = 969;BA.debugLine="Wait For Msgbox_Result (resultado As Int)"; parent.__c.WaitFor("msgbox_result", ba, this, null); this.state = 9; return; case 9: //C this.state = 4; _resultado = (Integer) result[0]; ; //BA.debugLineNum = 970;BA.debugLine="If resultado = DialogResponse.POSITIVE Then"; if (true) break; case 4: //if this.state = 7; if (_resultado==parent.__c.DialogResponse.POSITIVE) { this.state = 6; }if (true) break; case 6: //C this.state = 7; //BA.debugLineNum = 971;BA.debugLine="skmt.ExecNonQuery($\"INSERT INTO ABONOS(a_usuari"; parent._skmt.ExecNonQuery(("INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('"+parent.__c.SmartStringFormatter("",(Object)(parent._subs._traeusuariodebd /*String*/ (ba)))+"', '"+parent.__c.SmartStringFormatter("",(Object)(parent._subs._traeruta /*String*/ (ba)))+"', '"+parent.__c.SmartStringFormatter("",(Object)(parent._subs._traecliente /*String*/ (ba)))+"' ,'"+parent.__c.SmartStringFormatter("",(Object)(parent._et_abono.getText()))+"', '"+parent.__c.SmartStringFormatter("",(Object)(parent._subs._fechakmt /*String*/ (ba,BA.NumberToString(parent.__c.DateTime.getNow()))))+"')")); //BA.debugLineNum = 972;BA.debugLine="ToastMessageShow(\"Abono guardado\", False)"; parent.__c.ToastMessageShow(BA.ObjectToCharSequence("Abono guardado"),parent.__c.False); if (true) break; case 7: //C this.state = 8; ; if (true) break; case 8: //C this.state = -1; ; //BA.debugLineNum = 975;BA.debugLine="et_abono.Text = \"\""; parent._et_abono.setText(BA.ObjectToCharSequence("")); //BA.debugLineNum = 976;BA.debugLine="ime.HideKeyboard"; parent._ime.HideKeyboard(ba); //BA.debugLineNum = 977;BA.debugLine="End Sub"; if (true) break; } } } } public void _msgbox_result(int _resultado) throws Exception{ } public String _b_abono1_click() throws Exception{ //BA.debugLineNum = 985;BA.debugLine="Private Sub b_abono1_Click"; //BA.debugLineNum = 986;BA.debugLine="p_abono.Visible = True"; _p_abono.setVisible(__c.True); //BA.debugLineNum = 987;BA.debugLine="End Sub"; return ""; } public String _b_can_monto_venta_click() throws Exception{ //BA.debugLineNum = 1096;BA.debugLine="Private Sub b_can_monto_venta_Click"; //BA.debugLineNum = 1097;BA.debugLine="p_monto_venta.Visible = False"; _p_monto_venta.setVisible(__c.False); //BA.debugLineNum = 1098;BA.debugLine="p_inv.BringToFront"; _p_inv.BringToFront(); //BA.debugLineNum = 1099;BA.debugLine="p_inv.Visible = False"; _p_inv.setVisible(__c.False); //BA.debugLineNum = 1100;BA.debugLine="End Sub"; return ""; } public String _b_cancelar_click() throws Exception{ //BA.debugLineNum = 979;BA.debugLine="Private Sub b_cancelar_Click"; //BA.debugLineNum = 980;BA.debugLine="et_abono.Text = \"\""; _et_abono.setText(BA.ObjectToCharSequence("")); //BA.debugLineNum = 981;BA.debugLine="p_abono.Visible = False"; _p_abono.setVisible(__c.False); //BA.debugLineNum = 982;BA.debugLine="ime.HideKeyboard"; _ime.HideKeyboard(ba); //BA.debugLineNum = 983;BA.debugLine="End Sub"; return ""; } public String _b_clienteventa_click() throws Exception{ //BA.debugLineNum = 1024;BA.debugLine="Private Sub b_clienteVenta_Click"; //BA.debugLineNum = 1026;BA.debugLine="et_monto_venta.Text = \"\""; _et_monto_venta.setText(BA.ObjectToCharSequence("")); //BA.debugLineNum = 1027;BA.debugLine="p_monto_venta.Visible = True"; _p_monto_venta.setVisible(__c.True); //BA.debugLineNum = 1028;BA.debugLine="p_inv.BringToFront"; _p_inv.BringToFront(); //BA.debugLineNum = 1029;BA.debugLine="p_inv.Visible = True"; _p_inv.setVisible(__c.True); //BA.debugLineNum = 1030;BA.debugLine="End Sub"; return ""; } public String _b_clintesinventa_click() throws Exception{ //BA.debugLineNum = 1032;BA.debugLine="Private Sub b_clinteSinVenta_Click"; //BA.debugLineNum = 1034;BA.debugLine="Guardar_Click"; _guardar_click(); //BA.debugLineNum = 1035;BA.debugLine="et_monto_venta.Text = \"0\""; _et_monto_venta.setText(BA.ObjectToCharSequence("0")); //BA.debugLineNum = 1036;BA.debugLine="Subs.ventaNoVenta(usuario, Id_Almacen, ruta_tiend"; _subs._ventanoventa /*String*/ (ba,_usuario,_id_almacen,_ruta_tienda,"SinVenta",_subs._traecliente /*String*/ (ba),_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ,_et_monto_venta.getText()); //BA.debugLineNum = 1038;BA.debugLine="Try"; try { //BA.debugLineNum = 1039;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery(\"Select CUE"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select CUENTA from cuentaa"))); //BA.debugLineNum = 1040;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1041;BA.debugLine="clie_id = c.GetString(\"CUENTA\")"; _clie_id = _c.GetString("CUENTA"); //BA.debugLineNum = 1042;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1047;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"UPDATE kmt_"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)"); //BA.debugLineNum = 1052;BA.debugLine="ToastMessageShow(\"Cliente con venta eliminado co"; __c.ToastMessageShow(BA.ObjectToCharSequence("Cliente con venta eliminado correctamente."),__c.False); } catch (Exception e12) { ba.setLastException(e12); //BA.debugLineNum = 1055;BA.debugLine="ToastMessageShow(\"Error eliminando cliente con v"; __c.ToastMessageShow(BA.ObjectToCharSequence("Error eliminando cliente con venta."),__c.True); }; //BA.debugLineNum = 1058;BA.debugLine="End Sub"; return ""; } public String _b_e_next_click() throws Exception{ //BA.debugLineNum = 759;BA.debugLine="Sub B_E_NEXT_Click"; //BA.debugLineNum = 760;BA.debugLine="If E_RES_E.Text <> \"\" Then"; if ((_e_res_e.getText()).equals("") == false) { //BA.debugLineNum = 761;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert int"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_la_cuenta.getText()),(Object)(_e_res_e.getText()),(Object)(_sdate+_stime),(Object)("DONDE")})); //BA.debugLineNum = 762;BA.debugLine="Panel2.Visible = False"; _panel2.setVisible(__c.False); //BA.debugLineNum = 763;BA.debugLine="B4XPages.ShowPage(\"Productos\")"; _b4xpages._showpage /*String*/ (ba,"Productos"); }else { //BA.debugLineNum = 765;BA.debugLine="Msgbox(\"SIN RESPUESTA\",\"AVISO\") 'Ignore"; __c.Msgbox(BA.ObjectToCharSequence("SIN RESPUESTA"),BA.ObjectToCharSequence("AVISO"),ba); }; //BA.debugLineNum = 767;BA.debugLine="End Sub"; return ""; } public String _b_gu_monto_venta_click() throws Exception{ //BA.debugLineNum = 1061;BA.debugLine="Private Sub b_gu_monto_venta_Click"; //BA.debugLineNum = 1063;BA.debugLine="If et_monto_venta.Text.Trim = \"\" Or et_monto_vent"; if ((_et_monto_venta.getText().trim()).equals("") || _et_monto_venta.getText().trim().startsWith("0") || (_et_monto_venta.getText().trim()).equals("0")) { //BA.debugLineNum = 1064;BA.debugLine="ToastMessageShow(\"El monto de venta no puede est"; __c.ToastMessageShow(BA.ObjectToCharSequence("El monto de venta no puede estar vacío o empezar con ceros."),__c.True); }else { //BA.debugLineNum = 1066;BA.debugLine="Guardar_Click"; _guardar_click(); //BA.debugLineNum = 1067;BA.debugLine="Subs.ventaNoVenta(usuario, Id_Almacen, ruta_tien"; _subs._ventanoventa /*String*/ (ba,_usuario,_id_almacen,_ruta_tienda,"ConVenta",_subs._traecliente /*String*/ (ba),_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ,_et_monto_venta.getText()); //BA.debugLineNum = 1069;BA.debugLine="Try"; try { //BA.debugLineNum = 1070;BA.debugLine="c = B4XPages.MainPage.skmt.ExecQuery(\"Select CU"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select CUENTA from cuentaa"))); //BA.debugLineNum = 1071;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 1072;BA.debugLine="clie_id = c.GetString(\"CUENTA\")"; _clie_id = _c.GetString("CUENTA"); //BA.debugLineNum = 1073;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1078;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"UPDATE kmt"; _b4xpages._mainpage /*keymon.lat.medicomed.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 = 1083;BA.debugLine="ToastMessageShow(\"Cliente con venta eliminado c"; __c.ToastMessageShow(BA.ObjectToCharSequence("Cliente con venta eliminado correctamente."),__c.False); } catch (Exception e14) { ba.setLastException(e14); //BA.debugLineNum = 1086;BA.debugLine="ToastMessageShow(\"Error eliminando cliente con"; __c.ToastMessageShow(BA.ObjectToCharSequence("Error eliminando cliente con venta."),__c.True); }; //BA.debugLineNum = 1089;BA.debugLine="p_monto_venta.Visible = False"; _p_monto_venta.setVisible(__c.False); //BA.debugLineNum = 1090;BA.debugLine="p_inv.BringToFront"; _p_inv.BringToFront(); //BA.debugLineNum = 1091;BA.debugLine="p_inv.Visible = False"; _p_inv.setVisible(__c.False); }; //BA.debugLineNum = 1093;BA.debugLine="End Sub"; return ""; } public String _b_guarda_c_click() throws Exception{ //BA.debugLineNum = 703;BA.debugLine="Sub B_GUARDA_C_Click"; //BA.debugLineNum = 704;BA.debugLine="DateTime.DateFormat = \"MM/dd/yyyy\""; __c.DateTime.setDateFormat("MM/dd/yyyy"); //BA.debugLineNum = 705;BA.debugLine="sDate=DateTime.Date(DateTime.Now)"; _sdate = __c.DateTime.Date(__c.DateTime.getNow()); //BA.debugLineNum = 706;BA.debugLine="sTime=DateTime.Time(DateTime.Now)"; _stime = __c.DateTime.Time(__c.DateTime.getNow()); //BA.debugLineNum = 707;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)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select CUENTA from cuentaa"))); //BA.debugLineNum = 708;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 709;BA.debugLine="clie_id = c.GetString(\"CUENTA\")"; _clie_id = _c.GetString("CUENTA"); //BA.debugLineNum = 710;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 711;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select USUARI"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select USUARIO from usuarioa"))); //BA.debugLineNum = 712;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 713;BA.debugLine="usuario = c.GetString(\"USUARIO\")"; _usuario = _c.GetString("USUARIO"); //BA.debugLineNum = 714;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 715;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; _b4xpages._mainpage /*keymon.lat.medicomed.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) VALUES(?,?,?,?,?,?,?,?,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)("4"),(Object)(.01),(Object)(.01),(Object)(2),(Object)("KNORR RINDE MAS 70 GR"),(Object)("GUNA2"),(Object)(_la_cuenta.getText()),(Object)(_sdate+_stime),(Object)(_usuario),(Object)(_la_ruta)})); //BA.debugLineNum = 716;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("INSERT INTO HIST_FACE(HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN) VALUES (?,?,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_la_cuenta.getText()),(Object)(_i_compra.getText()),(Object)(_la_ruta),(Object)(_almacen)})); //BA.debugLineNum = 717;BA.debugLine="Panel1.Visible = False"; _panel1.setVisible(__c.False); //BA.debugLineNum = 719;BA.debugLine="Tar.Visible = False"; _tar.setVisible(__c.False); //BA.debugLineNum = 720;BA.debugLine="Tels.Visible = False"; _tels.setVisible(__c.False); //BA.debugLineNum = 721;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); //BA.debugLineNum = 723;BA.debugLine="Guardar.Visible = True"; _guardar.setVisible(__c.True); //BA.debugLineNum = 724;BA.debugLine="End Sub"; return ""; } public String _b_imp_click() throws Exception{ int _i = 0; int _e = 0; //BA.debugLineNum = 611;BA.debugLine="Sub B_IMP_Click"; //BA.debugLineNum = 612;BA.debugLine="TAMANO = 0"; _tamano = (int) (0); //BA.debugLineNum = 613;BA.debugLine="ESPACIO = 21"; _espacio = (int) (21); //BA.debugLineNum = 614;BA.debugLine="BLANCO = \" \""; _blanco = " "; //BA.debugLineNum = 615;BA.debugLine="printer.Initialize(cmp20.OutputStream)"; _printer.Initialize(_cmp20.getOutputStream()); //BA.debugLineNum = 616;BA.debugLine="printer.WriteLine(\"DURAKELO S.A. de C.V.\")"; _printer.WriteLine("DURAKELO S.A. de C.V."); //BA.debugLineNum = 617;BA.debugLine="printer.WriteLine(\"RFC: DUR-011025-T12\")"; _printer.WriteLine("RFC: DUR-011025-T12"); //BA.debugLineNum = 618;BA.debugLine="printer.WriteLine(\"Tel.: 618-826-0104\")"; _printer.WriteLine("Tel.: 618-826-0104"); //BA.debugLineNum = 619;BA.debugLine="printer.WriteLine(\"Vendedor: KMTS \")"; _printer.WriteLine("Vendedor: KMTS "); //BA.debugLineNum = 620;BA.debugLine="printer.WriteLine(\"Tienda: \" & La_nombre.Text)"; _printer.WriteLine("Tienda: "+_la_nombre.getText()); //BA.debugLineNum = 621;BA.debugLine="printer.WriteLine(\"-----------PREVENTA-----------"; _printer.WriteLine("-----------PREVENTA-----------"); //BA.debugLineNum = 622;BA.debugLine="s=B4XPages.MainPage.skmt.ExecQuery(\"select PE_PRO"; _s = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)"))); //BA.debugLineNum = 623;BA.debugLine="If S.RowCount>0 Then"; if (_s.getRowCount()>0) { //BA.debugLineNum = 624;BA.debugLine="For i=0 To S.RowCount -1"; { final int step13 = 1; final int limit13 = (int) (_s.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit13 ;_i = _i + step13 ) { //BA.debugLineNum = 625;BA.debugLine="S.Position=i"; _s.setPosition(_i); //BA.debugLineNum = 626;BA.debugLine="printer.WriteLine(s.GetString(\"PE_CANT\") & \" \""; _printer.WriteLine(_s.GetString("PE_CANT")+" "+_s.GetString("PE_PRONOMBRE")); //BA.debugLineNum = 627;BA.debugLine="TAMANO = s.GetLong(\"L_CANT\") + TAMANO"; _tamano = (int) (_s.GetLong("L_CANT")+_tamano); //BA.debugLineNum = 628;BA.debugLine="TAMANO = s.GetLong(\"L_COSTOU\") + TAMANO"; _tamano = (int) (_s.GetLong("L_COSTOU")+_tamano); //BA.debugLineNum = 629;BA.debugLine="TAMANO = s.GetLong(\"L_COSTO_TOT\") + TAMANO"; _tamano = (int) (_s.GetLong("L_COSTO_TOT")+_tamano); //BA.debugLineNum = 630;BA.debugLine="ESPACIO = ESPACIO - TAMANO"; _espacio = (int) (_espacio-_tamano); //BA.debugLineNum = 631;BA.debugLine="For E=0 To ESPACIO -1"; { final int step20 = 1; final int limit20 = (int) (_espacio-1); _e = (int) (0) ; for (;_e <= limit20 ;_e = _e + step20 ) { //BA.debugLineNum = 632;BA.debugLine="BLANCO = \" \" & BLANCO"; _blanco = " "+_blanco; } }; //BA.debugLineNum = 634;BA.debugLine="printer.WriteLine(BLANCO & s.GETSTRING(\"PE_CANT"; _printer.WriteLine(_blanco+_s.GetString("PE_CANT")+" X $"+_s.GetString("PE_COSTOU")+" $"+_s.GetString("PE_COSTO_TOT")); //BA.debugLineNum = 635;BA.debugLine="TAMANO = 0"; _tamano = (int) (0); //BA.debugLineNum = 636;BA.debugLine="ESPACIO = 21"; _espacio = (int) (21); //BA.debugLineNum = 637;BA.debugLine="BLANCO = \" \""; _blanco = " "; } }; }; //BA.debugLineNum = 640;BA.debugLine="s.Close"; _s.Close(); //BA.debugLineNum = 641;BA.debugLine="printer.WriteLine(\"Total Preventa: $\" & total_c"; _printer.WriteLine("Total Preventa: $"+_total_cliente); //BA.debugLineNum = 642;BA.debugLine="printer.WriteLine(\"------------VENTA-------------"; _printer.WriteLine("------------VENTA-------------"); //BA.debugLineNum = 643;BA.debugLine="printer.WriteLine(\" \")"; _printer.WriteLine(" "); //BA.debugLineNum = 644;BA.debugLine="printer.WriteLine(\"TOTAL: $\" & total_cliente)"; _printer.WriteLine("TOTAL: $"+_total_cliente); //BA.debugLineNum = 645;BA.debugLine="printer.WriteLine(\" \")"; _printer.WriteLine(" "); //BA.debugLineNum = 646;BA.debugLine="printer.WriteLine(\"----ESTE TICKET NO ES UN -----"; _printer.WriteLine("----ESTE TICKET NO ES UN -----"); //BA.debugLineNum = 647;BA.debugLine="printer.WriteLine(\"--COMPROBANTE FISCAL, SOLO ES-"; _printer.WriteLine("--COMPROBANTE FISCAL, SOLO ES-"); //BA.debugLineNum = 648;BA.debugLine="printer.WriteLine(\"--------INFORMATIVO-----------"; _printer.WriteLine("--------INFORMATIVO-----------"); //BA.debugLineNum = 649;BA.debugLine="printer.WriteLine(\"------------------------------"; _printer.WriteLine("------------------------------"); //BA.debugLineNum = 650;BA.debugLine="printer.WriteLine(\" \")"; _printer.WriteLine(" "); //BA.debugLineNum = 651;BA.debugLine="printer.Flush"; _printer.Flush(); //BA.debugLineNum = 653;BA.debugLine="End Sub"; return ""; } public String _b_iniciofinventa_click() throws Exception{ //BA.debugLineNum = 989;BA.debugLine="Private Sub b_inicioFinVenta_Click"; //BA.debugLineNum = 990;BA.debugLine="usuario = Subs.traeUsuarioDeBD"; _usuario = _subs._traeusuariodebd /*String*/ (ba); //BA.debugLineNum = 991;BA.debugLine="Id_Almacen = Subs.traeAlmacen"; _id_almacen = _subs._traealmacen /*String*/ (ba); //BA.debugLineNum = 993;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)(_b4xpages._mainpage /*keymon.lat.medicomed.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 = 994;BA.debugLine="c.Position = 0"; _c.setPosition((int) (0)); //BA.debugLineNum = 995;BA.debugLine="ruta_tienda = c.GetString(\"CAT_CL_RUTA\")"; _ruta_tienda = _c.GetString("CAT_CL_RUTA"); //BA.debugLineNum = 997;BA.debugLine="If dentroDeGeocerca Then precision = 1"; if (_dentrodegeocerca) { _precision = (int) (1);}; //BA.debugLineNum = 998;BA.debugLine="motivoNoVenta = \"\""; _motivonoventa = ""; //BA.debugLineNum = 999;BA.debugLine="motivoNoVisita = \"\""; _motivonovisita = ""; //BA.debugLineNum = 1001;BA.debugLine="If Starter.enVenta Then"; if (_starter._enventa /*boolean*/ ) { //BA.debugLineNum = 1002;BA.debugLine="b_inicioFinVenta.Visible = True"; _b_iniciofinventa.setVisible(__c.True); //BA.debugLineNum = 1003;BA.debugLine="Subs.bitacora(Subs.fechanormal(DateTime.Now), us"; _subs._bitacora /*String*/ (ba,_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),_usuario,_id_almacen,_ruta_tienda,"Termina Venta",_subs._traecliente /*String*/ (ba),"",_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ,BA.NumberToString(_precision),_motivonoventa,_motivonovisita); //BA.debugLineNum = 1004;BA.debugLine="Starter.enVenta = False"; _starter._enventa /*boolean*/ = __c.False; //BA.debugLineNum = 1005;BA.debugLine="LogColor($\">>>>>> TERMINA VENTA: ${Starter.enVen"; __c.LogImpl("345219856",(">>>>>> TERMINA VENTA: "+__c.SmartStringFormatter("",(Object)(_starter._enventa /*boolean*/ ))+" - "+__c.SmartStringFormatter("",(Object)(_subs._traecliente /*String*/ (ba)))+""),__c.Colors.Red); //BA.debugLineNum = 1006;BA.debugLine="Subs.iniciaActividad(\"principal\")"; _subs._iniciaactividad /*String*/ (ba,"principal"); //BA.debugLineNum = 1007;BA.debugLine="B4XPages.ShowPageAndRemovePreviousPages(\"Princip"; _b4xpages._showpageandremovepreviouspages /*String*/ (ba,"Principal"); //BA.debugLineNum = 1008;BA.debugLine="Guardar2_Click"; _guardar2_click(); }else { //BA.debugLineNum = 1012;BA.debugLine="b_inicioFinVenta.Width = Root.Width"; _b_iniciofinventa.setWidth(_root.getWidth()); //BA.debugLineNum = 1013;BA.debugLine="Subs.bitacora(Subs.fechanormal(DateTime.Now), us"; _subs._bitacora /*String*/ (ba,_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),_usuario,_id_almacen,_ruta_tienda,"Inicia Venta",_subs._traecliente /*String*/ (ba),_subs._fechanormal /*String*/ (ba,BA.NumberToString(__c.DateTime.getNow())),"",_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ,BA.NumberToString(_precision),_motivonoventa,""); //BA.debugLineNum = 1014;BA.debugLine="Starter.enVenta = True"; _starter._enventa /*boolean*/ = __c.True; //BA.debugLineNum = 1015;BA.debugLine="LogColor($\">>>>>> INICIA VENTA: ${Starter.enVent"; __c.LogImpl("345219866",(">>>>>> INICIA VENTA: "+__c.SmartStringFormatter("",(Object)(_starter._enventa /*boolean*/ ))+" - "+__c.SmartStringFormatter("",(Object)(_subs._traecliente /*String*/ (ba)))+""),__c.Colors.Red); //BA.debugLineNum = 1016;BA.debugLine="b_inicioFinVenta.Visible = False"; _b_iniciofinventa.setVisible(__c.False); }; //BA.debugLineNum = 1020;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 1022;BA.debugLine="End Sub"; return ""; } public String _b_mapa_click() throws Exception{ //BA.debugLineNum = 607;BA.debugLine="Sub b_mapa_Click"; //BA.debugLineNum = 608;BA.debugLine="B4XPages.ShowPage(\"mapas\")"; _b4xpages._showpage /*String*/ (ba,"mapas"); //BA.debugLineNum = 609;BA.debugLine="End Sub"; return ""; } public String _b_venta_click() throws Exception{ //BA.debugLineNum = 726;BA.debugLine="Sub b_venta_Click"; //BA.debugLineNum = 727;BA.debugLine="DateTime.DateFormat = \"MM/dd/yyyy\""; __c.DateTime.setDateFormat("MM/dd/yyyy"); //BA.debugLineNum = 728;BA.debugLine="sDate=DateTime.Date(DateTime.Now)"; _sdate = __c.DateTime.Date(__c.DateTime.getNow()); //BA.debugLineNum = 729;BA.debugLine="sTime=DateTime.Time(DateTime.Now)"; _stime = __c.DateTime.Time(__c.DateTime.getNow()); //BA.debugLineNum = 757;BA.debugLine="End Sub"; return ""; } public String _b4xpage_appear() throws Exception{ String _factura = ""; //BA.debugLineNum = 204;BA.debugLine="Sub B4XPage_Appear"; //BA.debugLineNum = 206;BA.debugLine="b_clinteSinVenta.Enabled = False"; _b_clintesinventa.setEnabled(__c.False); //BA.debugLineNum = 207;BA.debugLine="b_clienteVenta.Enabled = False"; _b_clienteventa.setEnabled(__c.False); //BA.debugLineNum = 213;BA.debugLine="p_inv.Width = Root.Width : p_inv.Height = Root.He"; _p_inv.setWidth(_root.getWidth()); //BA.debugLineNum = 213;BA.debugLine="p_inv.Width = Root.Width : p_inv.Height = Root.He"; _p_inv.setHeight(_root.getHeight()); //BA.debugLineNum = 214;BA.debugLine="b_inicioFinVenta.Width = Root.Width"; _b_iniciofinventa.setWidth(_root.getWidth()); //BA.debugLineNum = 215;BA.debugLine="LA_GPS.TextColor = Colors.Red"; _la_gps.setTextColor(__c.Colors.Red); //BA.debugLineNum = 216;BA.debugLine="LA_GPS.Text = \"SIN UBICACION GPS\""; _la_gps.setText(BA.ObjectToCharSequence("SIN UBICACION GPS")); //BA.debugLineNum = 217;BA.debugLine="cercavalor = 0"; _cercavalor = BA.NumberToString(0); //BA.debugLineNum = 218;BA.debugLine="If Not(Starter.gps.GPSEnabled) Then"; if (__c.Not(_starter._gps /*anywheresoftware.b4a.gps.GPS*/ .getGPSEnabled())) { //BA.debugLineNum = 219;BA.debugLine="ToastMessageShow(\"Es necesario tener el GPS ence"; __c.ToastMessageShow(BA.ObjectToCharSequence("Es necesario tener el GPS encendido"),__c.True); //BA.debugLineNum = 220;BA.debugLine="StartActivity(Starter.gps.LocationSettingsIntent"; __c.StartActivity(ba,(Object)(_starter._gps /*anywheresoftware.b4a.gps.GPS*/ .getLocationSettingsIntent())); }; //BA.debugLineNum = 222;BA.debugLine="cb_factura.Checked = False"; _cb_factura.setChecked(__c.False); //BA.debugLineNum = 223;BA.debugLine="p_abono.Visible = False"; _p_abono.setVisible(__c.False); //BA.debugLineNum = 224;BA.debugLine="Subs.centraPanel(p_abono, Root.Width)"; _subs._centrapanel /*String*/ (ba,_p_abono,_root.getWidth()); //BA.debugLineNum = 225;BA.debugLine="skmt.Initialize(ruta,\"kmt.db\", True)"; _skmt.Initialize(_ruta,"kmt.db",__c.True); //BA.debugLineNum = 226;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)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)"))); //BA.debugLineNum = 227;BA.debugLine="s=B4XPages.MainPage.skmt.ExecQuery(\"Select SUM(PE"; _s = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))"))); //BA.debugLineNum = 228;BA.debugLine="s.Position=0"; _s.setPosition((int) (0)); //BA.debugLineNum = 229;BA.debugLine="If c.RowCount > 0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 230;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 231;BA.debugLine="la_cuenta.Text = c.GetString(\"CAT_CL_CODIGO\")"; _la_cuenta.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CODIGO"))); //BA.debugLineNum = 232;BA.debugLine="La_nombre.Text = c.GetString(\"CAT_CL_NOMBRE\")"; _la_nombre.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOMBRE"))); //BA.debugLineNum = 233;BA.debugLine="la_Calle.Text = c.GetString(\"CAT_CL_CALLE\")"; _la_calle.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CALLE"))); //BA.debugLineNum = 234;BA.debugLine="la_col.Text = c.GetString(\"CAT_CL_COLONIA\")"; _la_col.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_COLONIA"))); //BA.debugLineNum = 235;BA.debugLine="la_edo.Text = c.GetString(\"CAT_CL_EDO\")"; _la_edo.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_EDO"))); //BA.debugLineNum = 236;BA.debugLine="l_entre1.Text = c.GetString(\"CAT_CL_NOEXT\")"; _l_entre1.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOEXT"))); //BA.debugLineNum = 237;BA.debugLine="l_entre2.Text = c.GetString(\"CAT_CL_NOINT\")"; _l_entre2.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOINT"))); //BA.debugLineNum = 238;BA.debugLine="l_atiende.Text = c.GetString(\"CAT_CL_ATIENDE1\")"; _l_atiende.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_ATIENDE1"))); //BA.debugLineNum = 239;BA.debugLine="l_atiende2.Text = c.GetString(\"CAT_CL_ATIENTE2\")"; _l_atiende2.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_ATIENTE2"))); //BA.debugLineNum = 240;BA.debugLine="Label20.Text = c.GetString(\"CAT_CL_CP\")"; _label20.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CP"))); //BA.debugLineNum = 241;BA.debugLine="l_calle1.Text = c.GetString(\"CAT_CL_CALLE1\")"; _l_calle1.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CALLE1"))); //BA.debugLineNum = 242;BA.debugLine="TELEFONO = c.GetString(\"CAT_CL_TELEFONO\")"; _telefono = _c.GetString("CAT_CL_TELEFONO"); //BA.debugLineNum = 243;BA.debugLine="l_total.Text = s.GetString(\"TOTAL_CLIE\")"; _l_total.setText(BA.ObjectToCharSequence(_s.GetString("TOTAL_CLIE"))); //BA.debugLineNum = 244;BA.debugLine="total_cliente = s.GetString(\"TOTAL_CLIE\")"; _total_cliente = _s.GetString("TOTAL_CLIE"); //BA.debugLineNum = 245;BA.debugLine="Private factura As String = 0"; _factura = BA.NumberToString(0); //BA.debugLineNum = 246;BA.debugLine="If s.GetString(\"PC_FACTURA\") <> Null And IsNumbe"; if (_s.GetString("PC_FACTURA")!= null && __c.IsNumber(_s.GetString("PC_FACTURA"))) { _factura = _s.GetString("PC_FACTURA");}; //BA.debugLineNum = 247;BA.debugLine="If factura = \"1\" Then cb_factura.Checked = True"; if ((_factura).equals("1")) { _cb_factura.setChecked(__c.True);}; //BA.debugLineNum = 248;BA.debugLine="m_lat = \"0\""; _m_lat = "0"; //BA.debugLineNum = 249;BA.debugLine="If c.GetString(\"CAT_CL_LAT\") <> \"\" Then m_lat =c"; if ((_c.GetString("CAT_CL_LAT")).equals("") == false) { _m_lat = _c.GetString("CAT_CL_LAT");}; //BA.debugLineNum = 250;BA.debugLine="If m_lat.Length < 5 Then m_lat = \"0\""; if (_m_lat.length()<5) { _m_lat = "0";}; //BA.debugLineNum = 251;BA.debugLine="m_lon = \"0\""; _m_lon = "0"; //BA.debugLineNum = 252;BA.debugLine="If c.GetString(\"CAT_CL_LONG\") <> \"\" Then m_lon ="; if ((_c.GetString("CAT_CL_LONG")).equals("") == false) { _m_lon = _c.GetString("CAT_CL_LONG");}; //BA.debugLineNum = 253;BA.debugLine="If m_lon.Length < 5 Then m_lon = \"0\""; if (_m_lon.length()<5) { _m_lon = "0";}; //BA.debugLineNum = 254;BA.debugLine="LA_RUTA = c.GetString(\"CAT_CL_RUTA\")"; _la_ruta = _c.GetString("CAT_CL_RUTA"); //BA.debugLineNum = 256;BA.debugLine="If c.GetString(\"CAT_CL_NUM_SERIEFISICO\") = \"0\""; if ((_c.GetString("CAT_CL_NUM_SERIEFISICO")).equals("0")) { //BA.debugLineNum = 257;BA.debugLine="L_QR.TEXT = \"SIN CODIGO\""; _l_qr.setText(BA.ObjectToCharSequence("SIN CODIGO")); //BA.debugLineNum = 258;BA.debugLine="L_QR.TextColor = Colors.Red"; _l_qr.setTextColor(__c.Colors.Red); //BA.debugLineNum = 259;BA.debugLine="gest.VISIBLE = False"; _gest.setVisible(__c.False); //BA.debugLineNum = 260;BA.debugLine="BT_QR.Visible = True"; _bt_qr.setVisible(__c.True); }else { //BA.debugLineNum = 262;BA.debugLine="L_QR.TEXT = c.GetString(\"CAT_CL_NUM_SERIEFISICO"; _l_qr.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NUM_SERIEFISICO"))); //BA.debugLineNum = 263;BA.debugLine="L_QR.TextColor = Colors.Blue"; _l_qr.setTextColor(__c.Colors.Blue); //BA.debugLineNum = 264;BA.debugLine="BT_QR.Visible = False"; _bt_qr.setVisible(__c.False); }; }; //BA.debugLineNum = 267;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 268;BA.debugLine="s.Close"; _s.Close(); //BA.debugLineNum = 269;BA.debugLine="S2=B4XPages.MainPage.skmt.ExecQuery(\"select count"; _s2 = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select count(*) AS CUANTOS from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)"))); //BA.debugLineNum = 270;BA.debugLine="S2.Position =0"; _s2.setPosition((int) (0)); //BA.debugLineNum = 271;BA.debugLine="CUANTOS = S2.GetString(\"CUANTOS\")"; _cuantos = _s2.GetString("CUANTOS"); //BA.debugLineNum = 272;BA.debugLine="S2.Close"; _s2.Close(); //BA.debugLineNum = 273;BA.debugLine="If CUANTOS > 0 Then"; if ((double)(Double.parseDouble(_cuantos))>0) { //BA.debugLineNum = 274;BA.debugLine="c2=B4XPages.MainPage.skmt.ExecQuery(\"select sum("; _c2 = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select sum(HVD_COSTO_TOT) AS TOTAL from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)"))); //BA.debugLineNum = 275;BA.debugLine="c2.Position =0"; _c2.setPosition((int) (0)); //BA.debugLineNum = 276;BA.debugLine="MONTO_COMPRA = c2.GetString(\"TOTAL\")"; _monto_compra = _c2.GetString("TOTAL"); //BA.debugLineNum = 277;BA.debugLine="c2.Close"; _c2.Close(); }else { //BA.debugLineNum = 279;BA.debugLine="MONTO_COMPRA = \"0\""; _monto_compra = "0"; }; //BA.debugLineNum = 282;BA.debugLine="la_saldotot.Text = MONTO_COMPRA"; _la_saldotot.setText(BA.ObjectToCharSequence(_monto_compra)); //BA.debugLineNum = 283;BA.debugLine="If MONTO_COMPRA <> \"0\" Then"; if ((_monto_compra).equals("0") == false) { //BA.debugLineNum = 284;BA.debugLine="META2 = 1200 - MONTO_COMPRA"; _meta2 = BA.NumberToString(1200-(double)(Double.parseDouble(_monto_compra))); }else { //BA.debugLineNum = 286;BA.debugLine="META2 = 1200"; _meta2 = BA.NumberToString(1200); }; //BA.debugLineNum = 288;BA.debugLine="If META2 < 1 Then"; if ((double)(Double.parseDouble(_meta2))<1) { //BA.debugLineNum = 289;BA.debugLine="META2 = \"CUBIERTO\""; _meta2 = "CUBIERTO"; }; //BA.debugLineNum = 291;BA.debugLine="la_saldooper.Text = META2"; _la_saldooper.setText(BA.ObjectToCharSequence(_meta2)); //BA.debugLineNum = 292;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"select ID_ALM"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select ID_ALMACEN from CAT_ALMACEN"))); //BA.debugLineNum = 293;BA.debugLine="If c.RowCount>0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 294;BA.debugLine="C.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 295;BA.debugLine="ALMACEN = C.GetString(\"ID_ALMACEN\")"; _almacen = _c.GetString("ID_ALMACEN"); }; //BA.debugLineNum = 297;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 298;BA.debugLine="If ALMACEN = \"1\" Then"; if ((_almacen).equals("1")) { //BA.debugLineNum = 299;BA.debugLine="Tels.Visible = False"; _tels.setVisible(__c.False); //BA.debugLineNum = 300;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); }; //BA.debugLineNum = 303;BA.debugLine="If ALMACEN = \"4\" Then"; if ((_almacen).equals("4")) { //BA.debugLineNum = 305;BA.debugLine="DD=B4XPages.MainPage.skmt.ExecQuery2(\"SELECT COU"; _dd = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?",new String[]{"KNORR RINDE MAS 70 GR"}))); //BA.debugLineNum = 306;BA.debugLine="DD.Position =0"; _dd.setPosition((int) (0)); //BA.debugLineNum = 307;BA.debugLine="If DD.GetString(\"CUANTOS\") = 0 Then"; if ((_dd.GetString("CUANTOS")).equals(BA.NumberToString(0))) { //BA.debugLineNum = 308;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery2(\"SELECT COU"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PRONOMBRE =?",new String[]{"KNORR RINDE MAS 70 GR"}))); //BA.debugLineNum = 309;BA.debugLine="c.Position =0"; _c.setPosition((int) (0)); //BA.debugLineNum = 315;BA.debugLine="c.Close"; _c.Close(); }else { }; //BA.debugLineNum = 319;BA.debugLine="DD.Close"; _dd.Close(); }else { }; //BA.debugLineNum = 323;BA.debugLine="If ALMACEN = \"16\" Or ALMACEN = \"13\" Then"; if ((_almacen).equals("16") || (_almacen).equals("13")) { //BA.debugLineNum = 324;BA.debugLine="Tels.Visible = False"; _tels.setVisible(__c.False); //BA.debugLineNum = 325;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); }; //BA.debugLineNum = 327;BA.debugLine="CallSubDelayed(Tracker, \"Track\")"; __c.CallSubDelayed(ba,(Object)(_tracker.getObject()),"Track"); //BA.debugLineNum = 329;BA.debugLine="If Not(Starter.GPS.GPSEnabled) Then"; if (__c.Not(_starter._gps /*anywheresoftware.b4a.gps.GPS*/ .getGPSEnabled())) { //BA.debugLineNum = 330;BA.debugLine="ToastMessageShow(\"Debe Activar el GPS del Equipo"; __c.ToastMessageShow(BA.ObjectToCharSequence("Debe Activar el GPS del Equipo."),__c.True); //BA.debugLineNum = 331;BA.debugLine="StartActivity(Starter.GPS.LocationSettingsIntent"; __c.StartActivity(ba,(Object)(_starter._gps /*anywheresoftware.b4a.gps.GPS*/ .getLocationSettingsIntent())); }else { //BA.debugLineNum = 333;BA.debugLine="Starter.GPS.Start(0, 0)"; _starter._gps /*anywheresoftware.b4a.gps.GPS*/ .Start(ba,(long) (0),(float) (0)); }; //BA.debugLineNum = 336;BA.debugLine="CallSubDelayed(Tracker, \"StartFLPSmall\")"; __c.CallSubDelayed(ba,(Object)(_tracker.getObject()),"StartFLPSmall"); //BA.debugLineNum = 337;BA.debugLine="If Tracker.FLP.IsInitialized And Tracker.FLP.GetL"; if (_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .IsInitialized() && _tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().IsInitialized()) { //BA.debugLineNum = 338;BA.debugLine="B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastK"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ = BA.NumberToString(_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLatitude()); //BA.debugLineNum = 339;BA.debugLine="B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastK"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ = BA.NumberToString(_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLongitude()); //BA.debugLineNum = 341;BA.debugLine="GPS_LocationChanged(Tracker.FLP.GetLastKnownLoca"; _gps_locationchanged(_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation()); }; //BA.debugLineNum = 343;BA.debugLine="Tels.Visible = False"; _tels.setVisible(__c.False); //BA.debugLineNum = 344;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); //BA.debugLineNum = 346;BA.debugLine="If la_cuenta.text.SubString2(0,1) = \"N\" Then gest"; if ((_la_cuenta.getText().substring((int) (0),(int) (1))).equals("N")) { _gest.setVisible(__c.False);}; //BA.debugLineNum = 348;BA.debugLine="b_inicioFinVenta.Text = \"INICIAR VENTA\""; _b_iniciofinventa.setText(BA.ObjectToCharSequence("INICIAR VENTA")); //BA.debugLineNum = 349;BA.debugLine="b_inicioFinVenta.BringToFront"; _b_iniciofinventa.BringToFront(); //BA.debugLineNum = 351;BA.debugLine="If Not(Starter.enVenta) And la_cuenta.Text <> \"0\""; if (__c.Not(_starter._enventa /*boolean*/ ) && (_la_cuenta.getText()).equals("0") == false) { //BA.debugLineNum = 352;BA.debugLine="b_inicioFinVenta.Visible = True"; _b_iniciofinventa.setVisible(__c.True); }else { //BA.debugLineNum = 356;BA.debugLine="b_inicioFinVenta.Visible = False"; _b_iniciofinventa.setVisible(__c.False); }; //BA.debugLineNum = 360;BA.debugLine="End Sub"; return ""; } public anywheresoftware.b4a.keywords.Common.ResumableSubWrapper _b4xpage_closerequest() throws Exception{ ResumableSub_B4XPage_CloseRequest rsub = new ResumableSub_B4XPage_CloseRequest(this); rsub.resume(ba, null); return (anywheresoftware.b4a.keywords.Common.ResumableSubWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.keywords.Common.ResumableSubWrapper(), rsub); } public static class ResumableSub_B4XPage_CloseRequest extends BA.ResumableSub { public ResumableSub_B4XPage_CloseRequest(keymon.lat.medicomed.c_cliente parent) { this.parent = parent; } keymon.lat.medicomed.c_cliente parent; int _resultado1 = 0; @Override public void resume(BA ba, Object[] result) throws Exception{ while (true) { switch (state) { case -1: { parent.__c.ReturnFromResumableSub(this,null);return;} case 0: //C this.state = 1; //BA.debugLineNum = 428;BA.debugLine="If IsNumber(l_total.text) And l_total.text <> \"0\""; if (true) break; case 1: //if this.state = 10; if (parent.__c.IsNumber(parent._l_total.getText()) && (parent._l_total.getText()).equals("0") == false && parent.__c.Not(parent._subs._pedidoguardado /*boolean*/ (ba))) { this.state = 3; }if (true) break; case 3: //C this.state = 4; //BA.debugLineNum = 429;BA.debugLine="LogColor(\"Hay Venta\", Colors.Red)"; parent.__c.LogImpl("343122693","Hay Venta",parent.__c.Colors.Red); //BA.debugLineNum = 430;BA.debugLine="Private resultado1 As Int = Msgbox2($\"Va salir s"; _resultado1 = parent.__c.Msgbox2(BA.ObjectToCharSequence(("Va salir sin haber guardado la venta, si continua, la venta se BORRARA."+parent.__c.SmartStringFormatter("",(Object)(parent.__c.CRLF))+""+parent.__c.SmartStringFormatter("",(Object)(parent.__c.CRLF))+"¿Esta seguro que desea continuar?")),BA.ObjectToCharSequence("SE VA A BORRAR LA VENTA"),"Borrar Venta","Guardar Venta","",(android.graphics.Bitmap)(parent.__c.LoadBitmap(parent.__c.File.getDirAssets(),"alert2.png").getObject()),ba); //BA.debugLineNum = 431;BA.debugLine="If resultado1 = DialogResponse.POSITIVE Then"; if (true) break; case 4: //if this.state = 9; if (_resultado1==parent.__c.DialogResponse.POSITIVE) { this.state = 6; }else if(_resultado1==parent.__c.DialogResponse.CANCEL) { this.state = 8; }if (true) break; case 6: //C this.state = 9; //BA.debugLineNum = 432;BA.debugLine="Log(\"Borrra venta\")"; parent.__c.LogImpl("343122696","Borrra venta",0); //BA.debugLineNum = 433;BA.debugLine="Subs.borraPedidoClienteActual"; parent._subs._borrapedidoclienteactual /*String*/ (ba); //BA.debugLineNum = 434;BA.debugLine="ToastMessageShow(\"Venta Borrada\", False)"; parent.__c.ToastMessageShow(BA.ObjectToCharSequence("Venta Borrada"),parent.__c.False); //BA.debugLineNum = 436;BA.debugLine="B4XPages.ShowPage(\"Principal\")"; parent._b4xpages._showpage /*String*/ (ba,"Principal"); if (true) break; case 8: //C this.state = 9; //BA.debugLineNum = 438;BA.debugLine="Log(\"Pedido guardado\")"; parent.__c.LogImpl("343122702","Pedido guardado",0); //BA.debugLineNum = 439;BA.debugLine="Guardar_Click"; parent._guardar_click(); //BA.debugLineNum = 440;BA.debugLine="ToastMessageShow(\"Venta Guardada\", False)"; parent.__c.ToastMessageShow(BA.ObjectToCharSequence("Venta Guardada"),parent.__c.False); if (true) break; case 9: //C this.state = 10; ; if (true) break; case 10: //C this.state = -1; ; //BA.debugLineNum = 443;BA.debugLine="ToastMessageShow(\"Por favor presione GUARDAR para"; parent.__c.ToastMessageShow(BA.ObjectToCharSequence("Por favor presione GUARDAR para continuar"),parent.__c.True); //BA.debugLineNum = 447;BA.debugLine="Return False"; if (true) { parent.__c.ReturnFromResumableSub(this,(Object)(parent.__c.False));return;}; //BA.debugLineNum = 448;BA.debugLine="End Sub"; if (true) break; } } } } public String _b4xpage_created(anywheresoftware.b4a.objects.B4XViewWrapper _root1) throws Exception{ //BA.debugLineNum = 162;BA.debugLine="Private Sub B4XPage_Created (Root1 As B4XView)"; //BA.debugLineNum = 163;BA.debugLine="Root = Root1"; _root = _root1; //BA.debugLineNum = 166;BA.debugLine="Root.LoadLayout(\"cliente\")"; _root.LoadLayout("cliente",ba); //BA.debugLineNum = 167;BA.debugLine="ruta = File.DirInternal"; _ruta = __c.File.getDirInternal(); //BA.debugLineNum = 168;BA.debugLine="If File.Exists(ruta, \"kmt.db\") = False Then"; if (__c.File.Exists(_ruta,"kmt.db")==__c.False) { //BA.debugLineNum = 169;BA.debugLine="File.Copy(File.DirAssets, \"kmt.db\", ruta, \"kmt.d"; __c.File.Copy(__c.File.getDirAssets(),"kmt.db",_ruta,"kmt.db"); }; //BA.debugLineNum = 171;BA.debugLine="skmt.Initialize(ruta,\"kmt.db\", True)"; _skmt.Initialize(_ruta,"kmt.db",__c.True); //BA.debugLineNum = 172;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)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)"))); //BA.debugLineNum = 173;BA.debugLine="s=B4XPages.MainPage.skmt.ExecQuery(\"select sum(pe"; _s = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)"))); //BA.debugLineNum = 174;BA.debugLine="s.Position=0"; _s.setPosition((int) (0)); //BA.debugLineNum = 175;BA.debugLine="If c.RowCount>0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 176;BA.debugLine="c.Position=0"; _c.setPosition((int) (0)); //BA.debugLineNum = 177;BA.debugLine="la_cuenta.Text = c.GetString(\"CAT_CL_CODIGO\")"; _la_cuenta.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CODIGO"))); //BA.debugLineNum = 178;BA.debugLine="cuenta = c.GetString(\"CAT_CL_CODIGO\")"; _cuenta = _c.GetString("CAT_CL_CODIGO"); //BA.debugLineNum = 179;BA.debugLine="La_nombre.Text = c.GetString(\"CAT_CL_NOMBRE\")"; _la_nombre.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOMBRE"))); //BA.debugLineNum = 180;BA.debugLine="la_Calle.Text = c.GetString(\"CAT_CL_CALLE\") & c."; _la_calle.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CALLE")+_c.GetString("CAT_CL_NOEXT"))); //BA.debugLineNum = 181;BA.debugLine="la_col.Text = c.GetString(\"CAT_CL_COLONIA\")"; _la_col.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_COLONIA"))); //BA.debugLineNum = 182;BA.debugLine="la_edo.Text = c.GetString(\"CAT_CL_EDO\")"; _la_edo.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_EDO"))); //BA.debugLineNum = 184;BA.debugLine="l_entre1.Text = c.GetString(\"CAT_CL_NOEXT\")"; _l_entre1.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOEXT"))); //BA.debugLineNum = 185;BA.debugLine="l_entre2.Text = c.GetString(\"CAT_CL_NOINT\")"; _l_entre2.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_NOINT"))); //BA.debugLineNum = 186;BA.debugLine="l_atiende.Text = c.GetString(\"CAT_CL_ATIENDE1\")"; _l_atiende.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_ATIENDE1"))); //BA.debugLineNum = 187;BA.debugLine="l_atiende2.Text = c.GetString(\"CAT_CL_ATIENTE2\")"; _l_atiende2.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_ATIENTE2"))); //BA.debugLineNum = 188;BA.debugLine="la_saldotot.Text = c.GetString(\"CAT_CL_TELEFONO\""; _la_saldotot.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_TELEFONO"))); //BA.debugLineNum = 189;BA.debugLine="la_saldooper.Text = c.GetString(\"CAT_CL_EMAIL\")"; _la_saldooper.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_EMAIL"))); //BA.debugLineNum = 190;BA.debugLine="l_total.Text = s.GetString(\"TOTAL_CLIE\")"; _l_total.setText(BA.ObjectToCharSequence(_s.GetString("TOTAL_CLIE"))); //BA.debugLineNum = 191;BA.debugLine="total_cliente = s.GetString(\"TOTAL_CLIE\")"; _total_cliente = _s.GetString("TOTAL_CLIE"); //BA.debugLineNum = 192;BA.debugLine="MONTO_COMPRA = c.GetString(\"CAT_CL_MTOCOMPRA\")"; _monto_compra = _c.GetString("CAT_CL_MTOCOMPRA"); //BA.debugLineNum = 193;BA.debugLine="Label20.Text = c.GetString(\"CAT_CL_CP\")"; _label20.setText(BA.ObjectToCharSequence(_c.GetString("CAT_CL_CP"))); }; //BA.debugLineNum = 195;BA.debugLine="c.Close"; _c.Close(); //BA.debugLineNum = 196;BA.debugLine="s.Close"; _s.Close(); //BA.debugLineNum = 197;BA.debugLine="btAdmin.Initialize(\"BlueTeeth\")"; _btadmin.Initialize(ba,"BlueTeeth"); //BA.debugLineNum = 198;BA.debugLine="cmp20.Initialize(\"Printer\")"; _cmp20.Initialize("Printer"); //BA.debugLineNum = 199;BA.debugLine="reqManager.Initialize(Me, B4XPages.MainPage.SERVE"; _reqmanager._initialize /*String*/ (ba,this,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._server /*String*/ ); //BA.debugLineNum = 200;BA.debugLine="End Sub"; return ""; } public String _bt_qr_click() throws Exception{ //BA.debugLineNum = 549;BA.debugLine="Sub BT_QR_Click"; //BA.debugLineNum = 550;BA.debugLine="sc.isportrait = True"; _sc.isportrait = __c.True; //BA.debugLineNum = 551;BA.debugLine="sc.timeoutDuration = 45"; _sc.timeoutDuration = (int) (45); //BA.debugLineNum = 552;BA.debugLine="sc.theViewFinderXfactor = 0.7"; _sc.theViewFinderXfactor = 0.7; //BA.debugLineNum = 553;BA.debugLine="sc.theViewFinderYfactor = 0.5"; _sc.theViewFinderYfactor = 0.5; //BA.debugLineNum = 554;BA.debugLine="sc.theResultColor = Colors.Green"; _sc.theResultColor = __c.Colors.Green; //BA.debugLineNum = 555;BA.debugLine="sc.mustVibrate = True"; _sc.mustVibrate = __c.True; //BA.debugLineNum = 556;BA.debugLine="sc.BeginScan(\"sc\")"; _sc.BeginScan(ba,"sc"); //BA.debugLineNum = 557;BA.debugLine="End Sub"; return ""; } public String _calc_ean_checksum(String _number) throws Exception{ int _i = 0; char _co = '\0'; int _soma = 0; int _n = 0; float _digit = 0f; //BA.debugLineNum = 592;BA.debugLine="Sub calc_ean_checksum(number As String) As String"; //BA.debugLineNum = 593;BA.debugLine="Dim i As Int"; _i = 0; //BA.debugLineNum = 594;BA.debugLine="Dim cO As Char"; _co = '\0'; //BA.debugLineNum = 595;BA.debugLine="Dim soma As Int"; _soma = 0; //BA.debugLineNum = 596;BA.debugLine="Dim n As Int"; _n = 0; //BA.debugLineNum = 597;BA.debugLine="Dim digit As Float"; _digit = 0f; //BA.debugLineNum = 598;BA.debugLine="soma = 0"; _soma = (int) (0); //BA.debugLineNum = 599;BA.debugLine="For i=0 To number.Length - 1"; { final int step7 = 1; final int limit7 = (int) (_number.length()-1); _i = (int) (0) ; for (;_i <= limit7 ;_i = _i + step7 ) { //BA.debugLineNum = 600;BA.debugLine="digit = number.SubString2(i,i+1)"; _digit = (float)(Double.parseDouble(_number.substring(_i,(int) (_i+1)))); //BA.debugLineNum = 601;BA.debugLine="n= digit * ((i Mod 2) * 2 + 1)"; _n = (int) (_digit*((_i%2)*2+1)); //BA.debugLineNum = 602;BA.debugLine="soma=soma+n"; _soma = (int) (_soma+_n); } }; //BA.debugLineNum = 604;BA.debugLine="Return number & ( ( 10 - ( soma Mod 10 )) Mod 10"; if (true) return _number+BA.NumberToString(((10-(_soma%10))%10)); //BA.debugLineNum = 605;BA.debugLine="End Sub"; return ""; } public String _cb_factura_checkedchange(boolean _checked) throws Exception{ //BA.debugLineNum = 816;BA.debugLine="Private Sub cb_factura_CheckedChange(Checked As Bo"; //BA.debugLineNum = 818;BA.debugLine="If Checked Then p_cbFactura.Color = Colors.Green"; if (_checked) { _p_cbfactura.setColor(__c.Colors.Green);} else { _p_cbfactura.setColor(__c.Colors.Red);}; //BA.debugLineNum = 819;BA.debugLine="End Sub"; return ""; } public String _class_globals() throws Exception{ //BA.debugLineNum = 5;BA.debugLine="Sub Class_Globals"; //BA.debugLineNum = 6;BA.debugLine="Private Root As B4XView 'ignore"; _root = new anywheresoftware.b4a.objects.B4XViewWrapper(); //BA.debugLineNum = 7;BA.debugLine="Private xui As XUI 'ignore"; _xui = new anywheresoftware.b4a.objects.B4XViewWrapper.XUI(); //BA.debugLineNum = 8;BA.debugLine="Private p_cliente As Panel"; _p_cliente = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 9;BA.debugLine="Dim reqManager As DBRequestManager"; _reqmanager = new keymon.lat.medicomed.dbrequestmanager(); //BA.debugLineNum = 10;BA.debugLine="Dim cmd As DBCommand"; _cmd = new keymon.lat.medicomed.dbrequestmanager._dbcommand(); //BA.debugLineNum = 11;BA.debugLine="Dim ime As IME"; _ime = new anywheresoftware.b4a.objects.IME(); //BA.debugLineNum = 13;BA.debugLine="Dim g As GPS"; _g = new anywheresoftware.b4a.gps.GPS(); //BA.debugLineNum = 14;BA.debugLine="Dim ruta As String"; _ruta = ""; //BA.debugLineNum = 15;BA.debugLine="Dim skmt As SQL"; _skmt = new anywheresoftware.b4a.sql.SQL(); //BA.debugLineNum = 16;BA.debugLine="Dim clie_id As String"; _clie_id = ""; //BA.debugLineNum = 17;BA.debugLine="Dim sDate,sTime As String"; _sdate = ""; _stime = ""; //BA.debugLineNum = 18;BA.debugLine="Dim usuario As String"; _usuario = ""; //BA.debugLineNum = 19;BA.debugLine="Dim total_cliente As String"; _total_cliente = ""; //BA.debugLineNum = 20;BA.debugLine="Dim m_lat, m_lon As String"; _m_lat = ""; _m_lon = ""; //BA.debugLineNum = 21;BA.debugLine="Dim btAdmin As BluetoothAdmin"; _btadmin = new anywheresoftware.b4a.objects.Serial.BluetoothAdmin(); //BA.debugLineNum = 22;BA.debugLine="Dim cmp20 As Serial"; _cmp20 = new anywheresoftware.b4a.objects.Serial(); //BA.debugLineNum = 23;BA.debugLine="Dim printer As TextWriter"; _printer = new anywheresoftware.b4a.objects.streams.File.TextWriterWrapper(); //BA.debugLineNum = 24;BA.debugLine="Dim PairedDevices As Map"; _paireddevices = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 25;BA.debugLine="Dim L As List"; _l = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 26;BA.debugLine="Dim TAMANO As Int"; _tamano = 0; //BA.debugLineNum = 27;BA.debugLine="Dim ESPACIO As Int"; _espacio = 0; //BA.debugLineNum = 28;BA.debugLine="Dim BLANCO As String"; _blanco = ""; //BA.debugLineNum = 29;BA.debugLine="Dim cuenta As String"; _cuenta = ""; //BA.debugLineNum = 30;BA.debugLine="Dim tipo_venta As String = \"PREVENTA\""; _tipo_venta = "PREVENTA"; //BA.debugLineNum = 31;BA.debugLine="Dim MAC_IMPRESORA As String"; _mac_impresora = ""; //BA.debugLineNum = 33;BA.debugLine="Dim c As Cursor"; _c = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 34;BA.debugLine="Dim s As Cursor"; _s = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 35;BA.debugLine="Dim DD As Cursor"; _dd = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 36;BA.debugLine="Dim c2 As Cursor"; _c2 = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 37;BA.debugLine="Dim ListView1 As ListView"; _listview1 = new anywheresoftware.b4a.objects.ListViewWrapper(); //BA.debugLineNum = 38;BA.debugLine="Dim la_cuenta As Label"; _la_cuenta = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 39;BA.debugLine="Dim La_nombre As Label"; _la_nombre = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 40;BA.debugLine="Dim la_Calle As Label"; _la_calle = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 41;BA.debugLine="Dim la_numero As Label"; _la_numero = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 42;BA.debugLine="Dim la_nint As Label"; _la_nint = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 43;BA.debugLine="Dim la_edo As Label"; _la_edo = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 44;BA.debugLine="Dim la_pob As Label"; _la_pob = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 45;BA.debugLine="Dim la_col As Label"; _la_col = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 46;BA.debugLine="Dim la_cp As Label"; _la_cp = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 47;BA.debugLine="Dim la_zona As Label"; _la_zona = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 48;BA.debugLine="Dim gest As Button"; _gest = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 49;BA.debugLine="Dim la_saldotot As Label"; _la_saldotot = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 50;BA.debugLine="Dim la_saldooper As Label"; _la_saldooper = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 52;BA.debugLine="Dim Tels As Button"; _tels = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 53;BA.debugLine="Dim Label10 As Label"; _label10 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 54;BA.debugLine="Dim Label11 As Label"; _label11 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 56;BA.debugLine="Dim Tar As Button"; _tar = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 58;BA.debugLine="Dim la_comm As Label"; _la_comm = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 59;BA.debugLine="Dim la_actdte As Label"; _la_actdte = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 60;BA.debugLine="Dim la_usuario As Label"; _la_usuario = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 61;BA.debugLine="Dim la_resultado As Label"; _la_resultado = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 62;BA.debugLine="Dim l_entre1 As Label"; _l_entre1 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 63;BA.debugLine="Dim l_entre2 As Label"; _l_entre2 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 64;BA.debugLine="Dim l_atiende As Label"; _l_atiende = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 65;BA.debugLine="Dim l_atiende2 As Label"; _l_atiende2 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 66;BA.debugLine="Dim DATOS As Button"; _datos = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 67;BA.debugLine="Dim Guardar As Button"; _guardar = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 68;BA.debugLine="Dim NUEVO As Button"; _nuevo = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 71;BA.debugLine="Dim l_total As Label"; _l_total = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 72;BA.debugLine="Dim c2 As Cursor"; _c2 = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 73;BA.debugLine="Dim S2 As Cursor"; _s2 = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 74;BA.debugLine="Private s As Cursor"; _s = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); //BA.debugLineNum = 75;BA.debugLine="Dim res As String"; _res = ""; //BA.debugLineNum = 76;BA.debugLine="Private HIST As Button"; _hist = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 77;BA.debugLine="Private MONTO_COMPRA As String"; _monto_compra = ""; //BA.debugLineNum = 78;BA.debugLine="Private META As String"; _meta = ""; //BA.debugLineNum = 79;BA.debugLine="Private META2 As String"; _meta2 = ""; //BA.debugLineNum = 80;BA.debugLine="Private VERIFICA As String"; _verifica = ""; //BA.debugLineNum = 81;BA.debugLine="Private L_QR As Label"; _l_qr = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 82;BA.debugLine="Private BT_QR As Button"; _bt_qr = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 84;BA.debugLine="Dim CODIGO As String"; _codigo = ""; //BA.debugLineNum = 86;BA.debugLine="Private b_mapa As Button"; _b_mapa = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 87;BA.debugLine="Dim CUANTOS As String"; _cuantos = ""; //BA.debugLineNum = 88;BA.debugLine="Private B_IMP As Button"; _b_imp = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 89;BA.debugLine="Dim Toggla As Toggle"; _toggla = new com.rootsoft.togglelibrary.ToggleLibrary(); //BA.debugLineNum = 90;BA.debugLine="Dim tgl As Toggle"; _tgl = new com.rootsoft.togglelibrary.ToggleLibrary(); //BA.debugLineNum = 91;BA.debugLine="Private Panel1 As Panel"; _panel1 = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 92;BA.debugLine="Private I_COMPRA As EditText"; _i_compra = new anywheresoftware.b4a.objects.EditTextWrapper(); //BA.debugLineNum = 93;BA.debugLine="Private B_GUARDA_C As Button"; _b_guarda_c = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 94;BA.debugLine="Private b_venta As Button"; _b_venta = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 95;BA.debugLine="Dim ALMACEN As String"; _almacen = ""; //BA.debugLineNum = 96;BA.debugLine="Private LA_GPS As Label"; _la_gps = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 97;BA.debugLine="Private B_E_NEXT As Button"; _b_e_next = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 98;BA.debugLine="Private E_RES_E As EditText"; _e_res_e = new anywheresoftware.b4a.objects.EditTextWrapper(); //BA.debugLineNum = 99;BA.debugLine="Private t_tenc As Label"; _t_tenc = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 100;BA.debugLine="Private Panel2 As Panel"; _panel2 = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 101;BA.debugLine="Private CONTADOR_E As String"; _contador_e = ""; //BA.debugLineNum = 102;BA.debugLine="Private HR_RES1 As String"; _hr_res1 = ""; //BA.debugLineNum = 103;BA.debugLine="Private HR_RES2 As String"; _hr_res2 = ""; //BA.debugLineNum = 104;BA.debugLine="Private HR_RES3 As String"; _hr_res3 = ""; //BA.debugLineNum = 105;BA.debugLine="Private EXISTE As String"; _existe = ""; //BA.debugLineNum = 106;BA.debugLine="Private TELEFONO As String"; _telefono = ""; //BA.debugLineNum = 108;BA.debugLine="Private RB1 As RadioButton"; _rb1 = new anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper(); //BA.debugLineNum = 109;BA.debugLine="Private RB2 As RadioButton"; _rb2 = new anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper(); //BA.debugLineNum = 110;BA.debugLine="Private RB3 As RadioButton"; _rb3 = new anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper(); //BA.debugLineNum = 111;BA.debugLine="Private RB4 As RadioButton"; _rb4 = new anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper(); //BA.debugLineNum = 112;BA.debugLine="Private RB5 As RadioButton"; _rb5 = new anywheresoftware.b4a.objects.CompoundButtonWrapper.RadioButtonWrapper(); //BA.debugLineNum = 114;BA.debugLine="Private stay_hh As String"; _stay_hh = ""; //BA.debugLineNum = 115;BA.debugLine="Private stay_mi As String"; _stay_mi = ""; //BA.debugLineNum = 116;BA.debugLine="Private stay_ss As String"; _stay_ss = ""; //BA.debugLineNum = 118;BA.debugLine="Private LA_GEO As Label"; _la_geo = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 119;BA.debugLine="Dim result As Int"; _result = 0; //BA.debugLineNum = 120;BA.debugLine="Private cercavalor As String"; _cercavalor = ""; //BA.debugLineNum = 121;BA.debugLine="Private LA_RUTA As String"; _la_ruta = ""; //BA.debugLineNum = 123;BA.debugLine="Private b_like As Button"; _b_like = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 124;BA.debugLine="Private B_GPS As Button"; _b_gps = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 125;BA.debugLine="Dim sc As JhsIceZxing1"; _sc = new ice.zxing.b4aZXingLib(); //BA.debugLineNum = 126;BA.debugLine="Dim CODIGO As String"; _codigo = ""; //BA.debugLineNum = 127;BA.debugLine="Private cb_factura As CheckBox"; _cb_factura = new anywheresoftware.b4a.objects.CompoundButtonWrapper.CheckBoxWrapper(); //BA.debugLineNum = 128;BA.debugLine="Private p_cbFactura As Panel"; _p_cbfactura = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 129;BA.debugLine="Dim venimosDeTicketsDia As Boolean = False"; _venimosdeticketsdia = __c.False; //BA.debugLineNum = 130;BA.debugLine="Private p_abono As Panel"; _p_abono = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 131;BA.debugLine="Private et_abono As EditText"; _et_abono = new anywheresoftware.b4a.objects.EditTextWrapper(); //BA.debugLineNum = 132;BA.debugLine="Private b_abono As Button"; _b_abono = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 133;BA.debugLine="Private b_cancelar As Button"; _b_cancelar = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 134;BA.debugLine="Private b_abono1 As Button"; _b_abono1 = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 135;BA.debugLine="Private Label20 As Label"; _label20 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 136;BA.debugLine="Private l_calle1 As Label"; _l_calle1 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 137;BA.debugLine="Private l_ubicacion2 As Label"; _l_ubicacion2 = new anywheresoftware.b4a.objects.LabelWrapper(); //BA.debugLineNum = 139;BA.debugLine="Dim dentroDeGeocerca As Boolean = False"; _dentrodegeocerca = __c.False; //BA.debugLineNum = 140;BA.debugLine="Dim b_inicioFinVenta As Button"; _b_iniciofinventa = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 141;BA.debugLine="Dim precision As Int = 0"; _precision = (int) (0); //BA.debugLineNum = 142;BA.debugLine="Dim motivoNoVenta, motivoNoVisita As String"; _motivonoventa = ""; _motivonovisita = ""; //BA.debugLineNum = 143;BA.debugLine="Dim usuario As String = \"\""; _usuario = ""; //BA.debugLineNum = 144;BA.debugLine="Dim Id_Almacen As String"; _id_almacen = ""; //BA.debugLineNum = 145;BA.debugLine="Dim ruta_tienda As String"; _ruta_tienda = ""; //BA.debugLineNum = 147;BA.debugLine="Private b_clinteSinVenta As Button"; _b_clintesinventa = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 148;BA.debugLine="Private b_clienteVenta As Button"; _b_clienteventa = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 149;BA.debugLine="Private p_monto_venta As Panel"; _p_monto_venta = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 150;BA.debugLine="Private et_monto_venta As EditText"; _et_monto_venta = new anywheresoftware.b4a.objects.EditTextWrapper(); //BA.debugLineNum = 151;BA.debugLine="Private b_can_monto_venta As Button"; _b_can_monto_venta = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 152;BA.debugLine="Private b_gu_monto_venta As Button"; _b_gu_monto_venta = new anywheresoftware.b4a.objects.ButtonWrapper(); //BA.debugLineNum = 153;BA.debugLine="Private p_inv As Panel"; _p_inv = new anywheresoftware.b4a.objects.PanelWrapper(); //BA.debugLineNum = 154;BA.debugLine="End Sub"; return ""; } public String _datos_click() throws Exception{ //BA.debugLineNum = 458;BA.debugLine="Sub DATOS_Click"; //BA.debugLineNum = 459;BA.debugLine="B4XPages.ShowPage(\"telefonos\")"; _b4xpages._showpage /*String*/ (ba,"telefonos"); //BA.debugLineNum = 460;BA.debugLine="End Sub"; return ""; } public String _gest_click() throws Exception{ //BA.debugLineNum = 411;BA.debugLine="Sub gest_Click"; //BA.debugLineNum = 412;BA.debugLine="B4XPages.MainPage.tipo_venta = \"PREVENTA\""; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._tipo_venta /*String*/ = "PREVENTA"; //BA.debugLineNum = 417;BA.debugLine="B4XPages.ShowPage(\"productos\")"; _b4xpages._showpage /*String*/ (ba,"productos"); //BA.debugLineNum = 418;BA.debugLine="End Sub"; return ""; } public String _gps_locationchanged(anywheresoftware.b4a.gps.LocationWrapper _location1) throws Exception{ anywheresoftware.b4a.gps.LocationWrapper _l1 = null; anywheresoftware.b4a.gps.LocationWrapper _l2 = null; long _distance = 0L; //BA.debugLineNum = 362;BA.debugLine="Sub GPS_LocationChanged (Location1 As Location)"; //BA.debugLineNum = 364;BA.debugLine="If Tracker.FLP.GetLastKnownLocation.IsInitialized"; if (_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().IsInitialized() && _tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLatitude()!=0) { //BA.debugLineNum = 365;BA.debugLine="B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastK"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ = BA.NumberToString(_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLatitude()); //BA.debugLineNum = 366;BA.debugLine="B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastK"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ = BA.NumberToString(_tracker._flp /*uk.co.martinpearman.b4a.fusedlocationprovider.FusedLocationProviderWrapper*/ .GetLastKnownLocation().getLongitude()); }; //BA.debugLineNum = 370;BA.debugLine="Dim l1, l2 As Location"; _l1 = new anywheresoftware.b4a.gps.LocationWrapper(); _l2 = new anywheresoftware.b4a.gps.LocationWrapper(); //BA.debugLineNum = 371;BA.debugLine="l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPage"; _l1.Initialize2(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ,_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ); //BA.debugLineNum = 373;BA.debugLine="l2.Initialize2(m_lat, m_lon)"; _l2.Initialize2(_m_lat,_m_lon); //BA.debugLineNum = 375;BA.debugLine="BT_QR.Enabled = True"; _bt_qr.setEnabled(__c.True); //BA.debugLineNum = 376;BA.debugLine="LA_GPS.TextColor = Colors.Blue"; _la_gps.setTextColor(__c.Colors.Blue); //BA.debugLineNum = 377;BA.debugLine="LA_GPS.Text = \"CON UBICACION GPS\""; _la_gps.setText(BA.ObjectToCharSequence("CON UBICACION GPS")); //BA.debugLineNum = 378;BA.debugLine="b_clinteSinVenta.Enabled = True"; _b_clintesinventa.setEnabled(__c.True); //BA.debugLineNum = 379;BA.debugLine="b_clienteVenta.Enabled = True"; _b_clienteventa.setEnabled(__c.True); //BA.debugLineNum = 382;BA.debugLine="Dim distance As Long"; _distance = 0L; //BA.debugLineNum = 383;BA.debugLine="distance = l1.DistanceTo(l2) 'the result is i"; _distance = (long) (_l1.DistanceTo((android.location.Location)(_l2.getObject()))); //BA.debugLineNum = 384;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); //BA.debugLineNum = 386;BA.debugLine="LA_GEO.TextColor = Colors.Blue"; _la_geo.setTextColor(__c.Colors.Blue); //BA.debugLineNum = 387;BA.debugLine="Tels.Visible = False"; _tels.setVisible(__c.False); //BA.debugLineNum = 388;BA.debugLine="gest.Visible = False"; _gest.setVisible(__c.False); //BA.debugLineNum = 392;BA.debugLine="LA_GEO.Text= $\"$1.2{distance/1000} kms\"$"; _la_geo.setText(BA.ObjectToCharSequence((""+__c.SmartStringFormatter("1.2",(Object)(_distance/(double)1000))+" kms"))); //BA.debugLineNum = 393;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery(\"DELETE FROM"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery("DELETE FROM HIST_GPS"); //BA.debugLineNum = 394;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"INSERT INTO"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(_sdate+_stime),(Object)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ ),(Object)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ )})); //BA.debugLineNum = 396;BA.debugLine="l_ubicacion2.TextSize = 13"; _l_ubicacion2.setTextSize((float) (13)); //BA.debugLineNum = 397;BA.debugLine="l_ubicacion2.Text = $\"Precisión GPS $1.0{Location"; _l_ubicacion2.setText(BA.ObjectToCharSequence(("Precisión GPS "+__c.SmartStringFormatter("1.0",(Object)(_location1.getAccuracy()))+" m"))); //BA.debugLineNum = 398;BA.debugLine="If Location1.Accuracy > 200 Then"; if (_location1.getAccuracy()>200) { //BA.debugLineNum = 399;BA.debugLine="l_ubicacion2.TextColor = Colors.Red"; _l_ubicacion2.setTextColor(__c.Colors.Red); //BA.debugLineNum = 400;BA.debugLine="l_ubicacion2.TextSize = 16"; _l_ubicacion2.setTextSize((float) (16)); //BA.debugLineNum = 401;BA.debugLine="l_ubicacion2.Text = $\"Mala señal $1.0{Location1."; _l_ubicacion2.setText(BA.ObjectToCharSequence(("Mala señal "+__c.SmartStringFormatter("1.0",(Object)(_location1.getAccuracy()))+" m"))); }; //BA.debugLineNum = 404;BA.debugLine="CallSubDelayed(Tracker, \"CreateLocationRequest\")"; __c.CallSubDelayed(ba,(Object)(_tracker.getObject()),"CreateLocationRequest"); //BA.debugLineNum = 405;BA.debugLine="End Sub"; return ""; } public String _guardar_click() throws Exception{ //BA.debugLineNum = 462;BA.debugLine="Sub Guardar_Click"; //BA.debugLineNum = 463;BA.debugLine="b_inicioFinVenta.Text = \"FIN VENTA\""; _b_iniciofinventa.setText(BA.ObjectToCharSequence("FIN VENTA")); //BA.debugLineNum = 464;BA.debugLine="b_inicioFinVenta.Visible = True"; _b_iniciofinventa.setVisible(__c.True); //BA.debugLineNum = 465;BA.debugLine="End Sub"; return ""; } public String _guardar2_click() throws Exception{ //BA.debugLineNum = 467;BA.debugLine="Sub Guardar2_Click"; //BA.debugLineNum = 539;BA.debugLine="End Sub"; return ""; } public String _hist_click() throws Exception{ //BA.debugLineNum = 545;BA.debugLine="Sub HIST_Click"; //BA.debugLineNum = 546;BA.debugLine="B4XPages.ShowPage(\"Historico\")"; _b4xpages._showpage /*String*/ (ba,"Historico"); //BA.debugLineNum = 547;BA.debugLine="End Sub"; return ""; } public Object _initialize(anywheresoftware.b4a.BA _ba) throws Exception{ innerInitialize(_ba); //BA.debugLineNum = 157;BA.debugLine="Public Sub Initialize As Object"; //BA.debugLineNum = 158;BA.debugLine="Return Me"; if (true) return this; //BA.debugLineNum = 159;BA.debugLine="End Sub"; return null; } public String _jobdone(keymon.lat.medicomed.httpjob _job) throws Exception{ keymon.lat.medicomed.dbrequestmanager._dbresult _resultado = null; String _cliente = ""; Object[] _records = null; String _k = ""; //BA.debugLineNum = 895;BA.debugLine="Sub JobDone(Job As HttpJob)"; //BA.debugLineNum = 896;BA.debugLine="Log(Job.Success)"; __c.LogImpl("344892161",BA.ObjectToString(_job._success /*boolean*/ ),0); //BA.debugLineNum = 897;BA.debugLine="If Job.Success = False Then"; if (_job._success /*boolean*/ ==__c.False) { }else { //BA.debugLineNum = 900;BA.debugLine="LogColor(\"JobDone: '\" & reqManager.HandleJob(Job"; __c.LogImpl("344892165","JobDone: '"+BA.ObjectToString(_reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job).Tag /*Object*/ )+"' - Registros: "+BA.NumberToString(_reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job).Rows /*anywheresoftware.b4a.objects.collections.List*/ .getSize()),__c.Colors.Green); //BA.debugLineNum = 901;BA.debugLine="If Job.JobName = \"DBRequest\" Then"; if ((_job._jobname /*String*/ ).equals("DBRequest")) { //BA.debugLineNum = 902;BA.debugLine="Dim resultado As DBResult = reqManager.HandleJo"; _resultado = _reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job); //BA.debugLineNum = 903;BA.debugLine="If resultado.Tag.As(String).IndexOf(\"ins_pedido"; if ((BA.ObjectToString(_resultado.Tag /*Object*/ )).indexOf("ins_pedidosPendientes_head_")>-1) { //BA.debugLineNum = 904;BA.debugLine="Private cliente As String= resultado.Tag"; _cliente = BA.ObjectToString(_resultado.Tag /*Object*/ ); //BA.debugLineNum = 905;BA.debugLine="cliente = cliente.SubString(cliente.IndexOf(\"_"; _cliente = _cliente.substring((int) (_cliente.indexOf("_")+24)); //BA.debugLineNum = 906;BA.debugLine="Log($\"Cliente1:${cliente}\"$)"; __c.LogImpl("344892171",("Cliente1:"+__c.SmartStringFormatter("",(Object)(_cliente))+""),0); //BA.debugLineNum = 907;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"update P"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("update PEDIDO_CLIENTE SET pc_envio_ok = ? WHERE PC_CLIENTE = ? AND pc_envio_ok <> 1",anywheresoftware.b4a.keywords.Common.ArrayToList(new String[]{"1",_cliente})); //BA.debugLineNum = 908;BA.debugLine="For Each records() As Object In resultado.Rows"; { final anywheresoftware.b4a.BA.IterableList group12 = _resultado.Rows /*anywheresoftware.b4a.objects.collections.List*/ ; final int groupLen12 = group12.getSize() ;int index12 = 0; ; for (; index12 < groupLen12;index12++){ _records = (Object[])(group12.Get(index12)); //BA.debugLineNum = 909;BA.debugLine="For Each k As String In resultado.Columns.Key"; { final anywheresoftware.b4a.BA.IterableList group13 = _resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Keys(); final int groupLen13 = group13.getSize() ;int index13 = 0; ; for (; index13 < groupLen13;index13++){ _k = BA.ObjectToString(group13.Get(index13)); //BA.debugLineNum = 910;BA.debugLine="Log(resultado.Tag & \": \" & k & \": \" & record"; __c.LogImpl("344892175",BA.ObjectToString(_resultado.Tag /*Object*/ )+": "+_k+": "+BA.ObjectToString(_records[(int)(BA.ObjectToNumber(_resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Get((Object)(_k))))]),0); } }; } }; }; }; //BA.debugLineNum = 916;BA.debugLine="If Job.JobName = \"DBRequest\" Then"; if ((_job._jobname /*String*/ ).equals("DBRequest")) { //BA.debugLineNum = 917;BA.debugLine="Dim resultado As DBResult = reqManager.HandleJo"; _resultado = _reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job); //BA.debugLineNum = 918;BA.debugLine="If resultado.Tag.As(String).IndexOf(\"ins_pedido"; if ((BA.ObjectToString(_resultado.Tag /*Object*/ )).indexOf("ins_pedidosPendientes_prods_")>-1) { //BA.debugLineNum = 919;BA.debugLine="Private cliente As String= resultado.Tag"; _cliente = BA.ObjectToString(_resultado.Tag /*Object*/ ); //BA.debugLineNum = 920;BA.debugLine="cliente = cliente.SubString(cliente.IndexOf(\"_"; _cliente = _cliente.substring((int) (_cliente.indexOf("_")+25)); //BA.debugLineNum = 921;BA.debugLine="Log($\"Cliente2:${cliente}\"$)"; __c.LogImpl("344892186",("Cliente2:"+__c.SmartStringFormatter("",(Object)(_cliente))+""),0); //BA.debugLineNum = 922;BA.debugLine="For Each records() As Object In resultado.Rows"; { final anywheresoftware.b4a.BA.IterableList group25 = _resultado.Rows /*anywheresoftware.b4a.objects.collections.List*/ ; final int groupLen25 = group25.getSize() ;int index25 = 0; ; for (; index25 < groupLen25;index25++){ _records = (Object[])(group25.Get(index25)); //BA.debugLineNum = 923;BA.debugLine="For Each k As String In resultado.Columns.Key"; { final anywheresoftware.b4a.BA.IterableList group26 = _resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Keys(); final int groupLen26 = group26.getSize() ;int index26 = 0; ; for (; index26 < groupLen26;index26++){ _k = BA.ObjectToString(group26.Get(index26)); //BA.debugLineNum = 924;BA.debugLine="Log(resultado.Tag & \": \" & k & \": \" & record"; __c.LogImpl("344892189",BA.ObjectToString(_resultado.Tag /*Object*/ )+": "+_k+": "+BA.ObjectToString(_records[(int)(BA.ObjectToNumber(_resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Get((Object)(_k))))]),0); } }; } }; }; }; //BA.debugLineNum = 930;BA.debugLine="If Job.JobName = \"DBRequest\" Then"; if ((_job._jobname /*String*/ ).equals("DBRequest")) { //BA.debugLineNum = 931;BA.debugLine="Dim resultado As DBResult = reqManager.HandleJo"; _resultado = _reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job); //BA.debugLineNum = 932;BA.debugLine="If resultado.Tag.As(String).IndexOf(\"ins_abonos"; if ((BA.ObjectToString(_resultado.Tag /*Object*/ )).indexOf("ins_abonosPendientes_")>-1) { //BA.debugLineNum = 933;BA.debugLine="Private cliente As String= resultado.Tag"; _cliente = BA.ObjectToString(_resultado.Tag /*Object*/ ); //BA.debugLineNum = 934;BA.debugLine="cliente = cliente.SubString(cliente.IndexOf(\"_"; _cliente = _cliente.substring((int) (_cliente.indexOf("_")+18)); //BA.debugLineNum = 935;BA.debugLine="Log($\"Cliente2:${cliente}\"$)"; __c.LogImpl("344892200",("Cliente2:"+__c.SmartStringFormatter("",(Object)(_cliente))+""),0); //BA.debugLineNum = 936;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery($\"UPDATE A"; _b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery(("UPDATE ABONOS set a_enviado = 1 where a_cliente = '"+__c.SmartStringFormatter("",(Object)(_cliente))+"'")); //BA.debugLineNum = 937;BA.debugLine="For Each records() As Object In resultado.Rows"; { final anywheresoftware.b4a.BA.IterableList group39 = _resultado.Rows /*anywheresoftware.b4a.objects.collections.List*/ ; final int groupLen39 = group39.getSize() ;int index39 = 0; ; for (; index39 < groupLen39;index39++){ _records = (Object[])(group39.Get(index39)); //BA.debugLineNum = 938;BA.debugLine="For Each k As String In resultado.Columns.Key"; { final anywheresoftware.b4a.BA.IterableList group40 = _resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Keys(); final int groupLen40 = group40.getSize() ;int index40 = 0; ; for (; index40 < groupLen40;index40++){ _k = BA.ObjectToString(group40.Get(index40)); //BA.debugLineNum = 939;BA.debugLine="Log(resultado.Tag & \": \" & k & \": \" & record"; __c.LogImpl("344892204",BA.ObjectToString(_resultado.Tag /*Object*/ )+": "+_k+": "+BA.ObjectToString(_records[(int)(BA.ObjectToNumber(_resultado.Columns /*anywheresoftware.b4a.objects.collections.Map*/ .Get((Object)(_k))))]),0); } }; } }; }; }; //BA.debugLineNum = 944;BA.debugLine="If Job.JobName = \"DBRequest\" Then"; if ((_job._jobname /*String*/ ).equals("DBRequest")) { //BA.debugLineNum = 945;BA.debugLine="Dim resultado As DBResult = reqManager.HandleJo"; _resultado = _reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job); //BA.debugLineNum = 946;BA.debugLine="If resultado.Tag= \"mandaBitacora\" Then"; if ((_resultado.Tag /*Object*/ ).equals((Object)("mandaBitacora"))) { //BA.debugLineNum = 947;BA.debugLine="Log(\"mandaBitacora\")"; __c.LogImpl("344892212","mandaBitacora",0); }; }; //BA.debugLineNum = 950;BA.debugLine="If Job.JobName = \"DBRequest\" Then"; if ((_job._jobname /*String*/ ).equals("DBRequest")) { //BA.debugLineNum = 951;BA.debugLine="Dim resultado As DBResult = reqManager.HandleJo"; _resultado = _reqmanager._handlejob /*keymon.lat.medicomed.dbrequestmanager._dbresult*/ (_job); //BA.debugLineNum = 952;BA.debugLine="If resultado.Tag= \"ventaNoVenta\" Then"; if ((_resultado.Tag /*Object*/ ).equals((Object)("ventaNoVenta"))) { //BA.debugLineNum = 953;BA.debugLine="Log(\"ventaNoVenta\")"; __c.LogImpl("344892218","ventaNoVenta",0); }; }; //BA.debugLineNum = 956;BA.debugLine="Job.Release"; _job._release /*String*/ (); }; //BA.debugLineNum = 959;BA.debugLine="End Sub"; return ""; } public String _listview1_itemlongclick(int _position,Object _value) throws Exception{ //BA.debugLineNum = 407;BA.debugLine="Sub ListView1_ItemLongClick (Position As Int, Valu"; //BA.debugLineNum = 409;BA.debugLine="End Sub"; return ""; } public String _mandapendientes() throws Exception{ int _i = 0; anywheresoftware.b4a.sql.SQL.CursorWrapper _ab = null; //BA.debugLineNum = 821;BA.debugLine="Sub mandaPendientes"; //BA.debugLineNum = 823;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"SELECT PC_CLI"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1"))); //BA.debugLineNum = 825;BA.debugLine="If c.RowCount>0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 826;BA.debugLine="For i=0 To c.RowCount -1"; { final int step3 = 1; final int limit3 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit3 ;_i = _i + step3 ) { //BA.debugLineNum = 827;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 828;BA.debugLine="Dim cmd As DBCommand"; _cmd = new keymon.lat.medicomed.dbrequestmanager._dbcommand(); //BA.debugLineNum = 834;BA.debugLine="Dim cmd As DBCommand"; _cmd = new keymon.lat.medicomed.dbrequestmanager._dbcommand(); //BA.debugLineNum = 835;BA.debugLine="cmd.Initialize"; _cmd.Initialize(); //BA.debugLineNum = 836;BA.debugLine="cmd.Name = \"insert_pedidos_MEDI\""; _cmd.Name /*String*/ = "insert_pedidos_MEDI"; //BA.debugLineNum = 837;BA.debugLine="cmd.Parameters = Array As Object(C.GetString(\"P"; _cmd.Parameters /*Object[]*/ = new Object[]{(Object)(_c.GetString("PC_CLIENTE")),(Object)(_c.GetString("PC_FECHA")),(Object)(_c.GetString("PC_USER")),(Object)(_c.GetString("PC_NOART")),(Object)(_c.GetString("PC_MONTO")),(Object)(_c.GetString("PC_LON")),(Object)(_c.GetString("PC_LAT")),(Object)(_almacen),(Object)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._principal /*keymon.lat.medicomed.c_principal*/ ._l_ruta /*anywheresoftware.b4a.objects.LabelWrapper*/ .getText()),(Object)(_c.GetString("PC_COSTO_SIN")),(Object)(_c.GetString("PC_FACTURA"))}; //BA.debugLineNum = 838;BA.debugLine="reqManager.ExecuteCommand(cmd , $\"ins_pedidosPe"; _reqmanager._executecommand /*String*/ (_cmd,(Object)(("ins_pedidosPendientes_head_"+__c.SmartStringFormatter("",(Object)(_c.GetString("PC_CLIENTE")))+""))); } }; }; //BA.debugLineNum = 843;BA.debugLine="c=B4XPages.MainPage.skmt.ExecQuery(\"SELECT PC_ENV"; _c = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery("SELECT PC_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1"))); //BA.debugLineNum = 845;BA.debugLine="If c.RowCount>0 Then"; if (_c.getRowCount()>0) { //BA.debugLineNum = 846;BA.debugLine="For i=0 To c.RowCount -1"; { final int step15 = 1; final int limit15 = (int) (_c.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit15 ;_i = _i + step15 ) { //BA.debugLineNum = 847;BA.debugLine="c.Position=i"; _c.setPosition(_i); //BA.debugLineNum = 848;BA.debugLine="Dim cmd As DBCommand"; _cmd = new keymon.lat.medicomed.dbrequestmanager._dbcommand(); //BA.debugLineNum = 855;BA.debugLine="cmd.Initialize"; _cmd.Initialize(); //BA.debugLineNum = 856;BA.debugLine="cmd.Name = \"insert_pedido_MEDI\""; _cmd.Name /*String*/ = "insert_pedido_MEDI"; //BA.debugLineNum = 857;BA.debugLine="cmd.Parameters = Array As Object(C.GetString(\"P"; _cmd.Parameters /*Object[]*/ = new Object[]{(Object)(_c.GetString("PE_CEDIS")),(Object)(_almacen),(Object)(_c.GetString("PE_COSTO_TOT")),(Object)(_c.GetString("PE_COSTOU")),(Object)(_c.GetString("PE_CANT")),(Object)(_c.GetString("PE_PRONOMBRE")),(Object)(_c.GetString("PE_PROID")),(Object)(_c.GetString("PE_CLIENTE")),(Object)(_c.GetString("PE_FECHA")),(Object)(_c.GetString("PE_USUARIO")),(Object)(_c.GetString("PE_RUTA")),(Object)(_c.GetString("PE_COSTO_SIN")),(Object)(_c.GetString("PE_DESC")),(Object)(_c.GetString("PE_FOLIO"))}; //BA.debugLineNum = 858;BA.debugLine="reqManager.ExecuteCommand(cmd , $\"ins_pedidosPe"; _reqmanager._executecommand /*String*/ (_cmd,(Object)(("ins_pedidosPendientes_prods_"+__c.SmartStringFormatter("",(Object)(_c.GetString("PE_CLIENTE")))+""))); } }; }; //BA.debugLineNum = 863;BA.debugLine="Dim ab As Cursor = B4XPages.MainPage.skmt.ExecQue"; _ab = new anywheresoftware.b4a.sql.SQL.CursorWrapper(); _ab = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(_b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery(("SELECT * from ABONOS where a_enviado is null")))); //BA.debugLineNum = 865;BA.debugLine="If ab.RowCount > 0 Then"; if (_ab.getRowCount()>0) { //BA.debugLineNum = 866;BA.debugLine="For i=0 To ab.RowCount -1"; { final int step26 = 1; final int limit26 = (int) (_ab.getRowCount()-1); _i = (int) (0) ; for (;_i <= limit26 ;_i = _i + step26 ) { //BA.debugLineNum = 867;BA.debugLine="ab.Position = i"; _ab.setPosition(_i); //BA.debugLineNum = 868;BA.debugLine="Dim cmd As DBCommand"; _cmd = new keymon.lat.medicomed.dbrequestmanager._dbcommand(); //BA.debugLineNum = 869;BA.debugLine="cmd.Initialize"; _cmd.Initialize(); //BA.debugLineNum = 870;BA.debugLine="cmd.Name = \"insert_abono_MEDI\""; _cmd.Name /*String*/ = "insert_abono_MEDI"; //BA.debugLineNum = 871;BA.debugLine="cmd.Parameters = Array As Object( ab.GetString("; _cmd.Parameters /*Object[]*/ = new Object[]{(Object)(_ab.GetString("a_usuario")),(Object)(_ab.GetString("a_ruta")),(Object)(_ab.GetString("a_cliente")),(Object)(_ab.GetString("a_abono")),(Object)(_ab.GetString("a_fecha"))}; //BA.debugLineNum = 872;BA.debugLine="reqManager.ExecuteCommand(cmd , $\"ins_abonosPen"; _reqmanager._executecommand /*String*/ (_cmd,(Object)(("ins_abonosPendientes_"+__c.SmartStringFormatter("",(Object)(_ab.GetString("a_cliente")))+""))); //BA.debugLineNum = 873;BA.debugLine="Log($\"ins_abonosPendientes_${ab.GetString(\"a_cl"; __c.LogImpl("344826676",("ins_abonosPendientes_"+__c.SmartStringFormatter("",(Object)(_ab.GetString("a_cliente")))+""),0); } }; }; //BA.debugLineNum = 876;BA.debugLine="ab.Close"; _ab.Close(); //BA.debugLineNum = 893;BA.debugLine="End Sub"; return ""; } public String _mods() throws Exception{ //BA.debugLineNum = 1;BA.debugLine="Sub MODS 'ignore"; //BA.debugLineNum = 3;BA.debugLine="End Sub"; return ""; } public String _nuevo_click() throws Exception{ //BA.debugLineNum = 541;BA.debugLine="Sub NUEVO_Click"; //BA.debugLineNum = 542;BA.debugLine="B4XPages.ShowPage(\"NuevoCliente\")"; _b4xpages._showpage /*String*/ (ba,"NuevoCliente"); //BA.debugLineNum = 543;BA.debugLine="End Sub"; return ""; } public String _p_abono_click() throws Exception{ //BA.debugLineNum = 961;BA.debugLine="Private Sub p_abono_Click"; //BA.debugLineNum = 963;BA.debugLine="End Sub"; return ""; } public String _p_cliente_click() throws Exception{ //BA.debugLineNum = 812;BA.debugLine="Private Sub p_cliente_Click"; //BA.debugLineNum = 814;BA.debugLine="End Sub"; return ""; } public String _printer_connected(boolean _success) throws Exception{ //BA.debugLineNum = 655;BA.debugLine="Sub Printer_Connected (Success As Boolean)"; //BA.debugLineNum = 656;BA.debugLine="If Success Then"; if (_success) { //BA.debugLineNum = 657;BA.debugLine="B_IMP.Enabled = True"; _b_imp.setEnabled(__c.True); }else { //BA.debugLineNum = 659;BA.debugLine="B_IMP.Enabled = False"; _b_imp.setEnabled(__c.False); //BA.debugLineNum = 660;BA.debugLine="If Msgbox2(\"\", \"Printer Error\",\"Reprint\",\"Cancel"; if (__c.Msgbox2(BA.ObjectToCharSequence(""),BA.ObjectToCharSequence("Printer Error"),"Reprint","Cancel","",(android.graphics.Bitmap)(__c.Null),ba)==__c.DialogResponse.POSITIVE) { //BA.debugLineNum = 661;BA.debugLine="StartPrinter"; _startprinter(); }; }; //BA.debugLineNum = 664;BA.debugLine="End Sub"; return ""; } public String _rb1_checkedchange(boolean _checked) throws Exception{ //BA.debugLineNum = 769;BA.debugLine="Sub RB1_CheckedChange(Checked As Boolean)"; //BA.debugLineNum = 770;BA.debugLine="If RB1.Checked = True Then"; if (_rb1.getChecked()==__c.True) { //BA.debugLineNum = 771;BA.debugLine="E_RES_E.Text = \"CENTRAL DE ABASTOS\""; _e_res_e.setText(BA.ObjectToCharSequence("CENTRAL DE ABASTOS")); }; //BA.debugLineNum = 773;BA.debugLine="End Sub"; return ""; } public String _rb2_checkedchange(boolean _checked) throws Exception{ //BA.debugLineNum = 775;BA.debugLine="Sub RB2_CheckedChange(Checked As Boolean)"; //BA.debugLineNum = 776;BA.debugLine="If RB2.Checked = True Then"; if (_rb2.getChecked()==__c.True) { //BA.debugLineNum = 777;BA.debugLine="E_RES_E.Text = \"AUTOSERVICIO\""; _e_res_e.setText(BA.ObjectToCharSequence("AUTOSERVICIO")); }; //BA.debugLineNum = 779;BA.debugLine="End Sub"; return ""; } public String _rb3_checkedchange(boolean _checked) throws Exception{ //BA.debugLineNum = 781;BA.debugLine="Sub RB3_CheckedChange(Checked As Boolean)"; //BA.debugLineNum = 782;BA.debugLine="If RB3.Checked = True Then"; if (_rb3.getChecked()==__c.True) { //BA.debugLineNum = 783;BA.debugLine="E_RES_E.Text = \"CLUB DE PRECIO\""; _e_res_e.setText(BA.ObjectToCharSequence("CLUB DE PRECIO")); }; //BA.debugLineNum = 785;BA.debugLine="End Sub"; return ""; } public String _rb4_checkedchange(boolean _checked) throws Exception{ //BA.debugLineNum = 787;BA.debugLine="Sub RB4_CheckedChange(Checked As Boolean)"; //BA.debugLineNum = 788;BA.debugLine="If RB4.Checked = True Then"; if (_rb4.getChecked()==__c.True) { //BA.debugLineNum = 789;BA.debugLine="E_RES_E.Text = \"DIRECTO PEDEGREE\""; _e_res_e.setText(BA.ObjectToCharSequence("DIRECTO PEDEGREE")); }; //BA.debugLineNum = 791;BA.debugLine="End Sub"; return ""; } public void _sc_result(String _atype,String _values,anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper _image) throws Exception{ ResumableSub_sc_result rsub = new ResumableSub_sc_result(this,_atype,_values,_image); rsub.resume(ba, null); } public static class ResumableSub_sc_result extends BA.ResumableSub { public ResumableSub_sc_result(keymon.lat.medicomed.c_cliente parent,String _atype,String _values,anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper _image) { this.parent = parent; this._atype = _atype; this._values = _values; this._image = _image; } keymon.lat.medicomed.c_cliente parent; String _atype; String _values; anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper _image; int _resultado = 0; @Override public void resume(BA ba, Object[] result) throws Exception{ while (true) { switch (state) { case -1: return; case 0: //C this.state = 1; //BA.debugLineNum = 562;BA.debugLine="CODIGO = Values"; parent._codigo = _values; //BA.debugLineNum = 563;BA.debugLine="DD=B4XPages.MainPage.skmt.ExecQuery2(\"SELECT COUN"; parent._dd = (anywheresoftware.b4a.sql.SQL.CursorWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.sql.SQL.CursorWrapper(), (android.database.Cursor)(parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM kmt_info WHERE CAT_CL_NUM_SERIEFISICO = ?",new String[]{parent._codigo}))); //BA.debugLineNum = 564;BA.debugLine="DD.Position =0"; parent._dd.setPosition((int) (0)); //BA.debugLineNum = 565;BA.debugLine="If DD.GetString(\"CUANTOS\") > 0 Then"; if (true) break; case 1: //if this.state = 16; if ((double)(Double.parseDouble(parent._dd.GetString("CUANTOS")))>0) { this.state = 3; }else { this.state = 5; }if (true) break; case 3: //C this.state = 16; //BA.debugLineNum = 566;BA.debugLine="MsgboxAsync(\"Código ya asignado\", \"AVISO\")"; parent.__c.MsgboxAsync(BA.ObjectToCharSequence("Código ya asignado"),BA.ObjectToCharSequence("AVISO"),ba); if (true) break; case 5: //C this.state = 6; //BA.debugLineNum = 568;BA.debugLine="If CODIGO.Length = 7 Then"; if (true) break; case 6: //if this.state = 15; if (parent._codigo.length()==7) { this.state = 8; }else { this.state = 14; }if (true) break; case 8: //C this.state = 9; //BA.debugLineNum = 569;BA.debugLine="Msgbox2Async(\"El código \"& CODIGO & \" es correc"; parent.__c.Msgbox2Async(BA.ObjectToCharSequence("El código "+parent._codigo+" es correcto?"),BA.ObjectToCharSequence("Title"),"Yes","Cancel","No",(anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new anywheresoftware.b4a.objects.drawable.CanvasWrapper.BitmapWrapper(), (android.graphics.Bitmap)(parent.__c.Null)),ba,parent.__c.False); //BA.debugLineNum = 570;BA.debugLine="Wait For Msgbox_Result (resultado As Int)"; parent.__c.WaitFor("msgbox_result", ba, this, null); this.state = 17; return; case 17: //C this.state = 9; _resultado = (Integer) result[0]; ; //BA.debugLineNum = 571;BA.debugLine="If resultado = DialogResponse.POSITIVE Then"; if (true) break; case 9: //if this.state = 12; if (_resultado==parent.__c.DialogResponse.POSITIVE) { this.state = 11; }if (true) break; case 11: //C this.state = 12; //BA.debugLineNum = 572;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"UPDATE k"; parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("UPDATE kmt_info set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =? where CAT_CL_CODIGO In (select cuenta from cuentaa)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(parent._codigo),(Object)(parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ),(Object)(parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ )})); //BA.debugLineNum = 573;BA.debugLine="L_QR.TEXT =CODIGO"; parent._l_qr.setText(BA.ObjectToCharSequence(parent._codigo)); //BA.debugLineNum = 574;BA.debugLine="L_QR.TextColor = Colors.Blue"; parent._l_qr.setTextColor(parent.__c.Colors.Blue); //BA.debugLineNum = 575;BA.debugLine="B4XPages.MainPage.skmt.ExecNonQuery2(\"insert i"; parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._skmt /*anywheresoftware.b4a.sql.SQL*/ .ExecNonQuery2("insert into HIST_CODIGO_BARRAS(CODIGOKMTS, CODIGOB, LAT, LON) VALUES (?,?,?,?)",anywheresoftware.b4a.keywords.Common.ArrayToList(new Object[]{(Object)(parent._la_cuenta.getText()),(Object)(parent._codigo),(Object)(parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lon_gps /*String*/ ),(Object)(parent._b4xpages._mainpage /*keymon.lat.medicomed.b4xmainpage*/ (ba)._lat_gps /*String*/ )})); if (true) break; case 12: //C this.state = 15; ; if (true) break; case 14: //C this.state = 15; //BA.debugLineNum = 578;BA.debugLine="MsgboxAsync(\"Código No Valido\", \"AVISO\")"; parent.__c.MsgboxAsync(BA.ObjectToCharSequence("Código No Valido"),BA.ObjectToCharSequence("AVISO"),ba); if (true) break; case 15: //C this.state = 16; ; if (true) break; case 16: //C this.state = -1; ; //BA.debugLineNum = 581;BA.debugLine="DD.Close"; parent._dd.Close(); //BA.debugLineNum = 582;BA.debugLine="End Sub"; if (true) break; } } } } public String _sc_timedout(boolean _timedout) throws Exception{ //BA.debugLineNum = 584;BA.debugLine="Sub sc_timedout(timedOut As Boolean)"; //BA.debugLineNum = 585;BA.debugLine="Log(\"timedOut \" & timedOut)"; __c.LogImpl("343778049","timedOut "+BA.ObjectToString(_timedout),0); //BA.debugLineNum = 586;BA.debugLine="End Sub"; return ""; } public String _sc_usercancelled(boolean _usercancelled) throws Exception{ //BA.debugLineNum = 588;BA.debugLine="Sub sc_usercancelled(userCancelled As Boolean)"; //BA.debugLineNum = 589;BA.debugLine="Log(\"userCancelled \" & userCancelled)"; __c.LogImpl("343843585","userCancelled "+BA.ObjectToString(_usercancelled),0); //BA.debugLineNum = 590;BA.debugLine="End Sub"; return ""; } public String _startprinter() throws Exception{ int _resimp = 0; int _i = 0; //BA.debugLineNum = 666;BA.debugLine="Sub StartPrinter"; //BA.debugLineNum = 667;BA.debugLine="Dim PairedDevices As Map"; _paireddevices = new anywheresoftware.b4a.objects.collections.Map(); //BA.debugLineNum = 668;BA.debugLine="Dim L As List"; _l = new anywheresoftware.b4a.objects.collections.List(); //BA.debugLineNum = 669;BA.debugLine="Dim resimp As Int"; _resimp = 0; //BA.debugLineNum = 670;BA.debugLine="ToastMessageShow(\"Printing.....\",True)"; __c.ToastMessageShow(BA.ObjectToCharSequence("Printing....."),__c.True); //BA.debugLineNum = 671;BA.debugLine="PairedDevices.Initialize"; _paireddevices.Initialize(); //BA.debugLineNum = 672;BA.debugLine="Try"; try { //BA.debugLineNum = 673;BA.debugLine="PairedDevices = cmp20.GetPairedDevices"; _paireddevices = _cmp20.GetPairedDevices(); } catch (Exception e9) { ba.setLastException(e9); //BA.debugLineNum = 675;BA.debugLine="Msgbox(\"Getting Paired Devices\",\"Printer Error\")"; __c.Msgbox(BA.ObjectToCharSequence("Getting Paired Devices"),BA.ObjectToCharSequence("Printer Error"),ba); //BA.debugLineNum = 676;BA.debugLine="printer.Close"; _printer.Close(); //BA.debugLineNum = 677;BA.debugLine="cmp20.Disconnect"; _cmp20.Disconnect(); }; //BA.debugLineNum = 679;BA.debugLine="If PairedDevices.Size = 0 Then"; if (_paireddevices.getSize()==0) { //BA.debugLineNum = 680;BA.debugLine="Msgbox(\"Error Connecting to Printer - Printer No"; __c.Msgbox(BA.ObjectToCharSequence("Error Connecting to Printer - Printer Not Found"),BA.ObjectToCharSequence(""),ba); //BA.debugLineNum = 681;BA.debugLine="Return"; if (true) return ""; }; //BA.debugLineNum = 683;BA.debugLine="If PairedDevices.Size = 1 Then"; if (_paireddevices.getSize()==1) { //BA.debugLineNum = 684;BA.debugLine="Try"; try { //BA.debugLineNum = 685;BA.debugLine="cmp20.ConnectInsecure(btAdmin,PairedDevices.Get"; _cmp20.ConnectInsecure(ba,_btadmin,BA.ObjectToString(_paireddevices.Get(_paireddevices.GetKeyAt((int) (0)))),(int) (1)); } catch (Exception e21) { ba.setLastException(e21); //BA.debugLineNum = 687;BA.debugLine="Msgbox(\"Connecting\",\"Printer Error\") 'Ignore"; __c.Msgbox(BA.ObjectToCharSequence("Connecting"),BA.ObjectToCharSequence("Printer Error"),ba); //BA.debugLineNum = 688;BA.debugLine="printer.Close"; _printer.Close(); //BA.debugLineNum = 689;BA.debugLine="cmp20.Disconnect"; _cmp20.Disconnect(); }; }else { //BA.debugLineNum = 692;BA.debugLine="L.Initialize"; _l.Initialize(); //BA.debugLineNum = 693;BA.debugLine="For i = 0 To PairedDevices.Size - 1"; { final int step27 = 1; final int limit27 = (int) (_paireddevices.getSize()-1); _i = (int) (0) ; for (;_i <= limit27 ;_i = _i + step27 ) { //BA.debugLineNum = 694;BA.debugLine="L.Add(PairedDevices.GetKeyAt(i))"; _l.Add(_paireddevices.GetKeyAt(_i)); } }; //BA.debugLineNum = 696;BA.debugLine="resimp = InputList(L, \"Choose device\", -1) 'Igno"; _resimp = __c.InputList(_l,BA.ObjectToCharSequence("Choose device"),(int) (-1),ba); //BA.debugLineNum = 697;BA.debugLine="If resimp <> DialogResponse.CANCEL Then"; if (_resimp!=__c.DialogResponse.CANCEL) { //BA.debugLineNum = 698;BA.debugLine="cmp20.Connect(PairedDevices.Get(L.Get(resimp)))"; _cmp20.Connect(ba,BA.ObjectToString(_paireddevices.Get(_l.Get(_resimp)))); }; }; //BA.debugLineNum = 701;BA.debugLine="End Sub"; return ""; } public String _tar_click() throws Exception{ //BA.debugLineNum = 450;BA.debugLine="Sub Tar_Click"; //BA.debugLineNum = 451;BA.debugLine="B4XPages.ShowPage(\"Nota\")"; _b4xpages._showpage /*String*/ (ba,"Nota"); //BA.debugLineNum = 452;BA.debugLine="End Sub"; return ""; } public String _tar_longclick() throws Exception{ //BA.debugLineNum = 454;BA.debugLine="Sub Tar_LongClick"; //BA.debugLineNum = 455;BA.debugLine="p_abono.Visible = True"; _p_abono.setVisible(__c.True); //BA.debugLineNum = 456;BA.debugLine="End Sub"; return ""; } public String _tels_click() throws Exception{ //BA.debugLineNum = 420;BA.debugLine="Sub Tels_Click"; //BA.debugLineNum = 421;BA.debugLine="B4XPages.ShowPage(\"NoVenta\")"; _b4xpages._showpage /*String*/ (ba,"NoVenta"); //BA.debugLineNum = 422;BA.debugLine="End Sub"; return ""; } public Object callSub(String sub, Object sender, Object[] args) throws Exception { BA.senderHolder.set(sender); if (BA.fastSubCompare(sub, "B4XPAGE_CREATED")) return _b4xpage_created((anywheresoftware.b4a.objects.B4XViewWrapper) args[0]); if (BA.fastSubCompare(sub, "GPS_LOCATIONCHANGED")) return _gps_locationchanged((anywheresoftware.b4a.gps.LocationWrapper) args[0]); if (BA.fastSubCompare(sub, "JOBDONE")) return _jobdone((keymon.lat.medicomed.httpjob) args[0]); return BA.SubDelegator.SubNotFound; } }