diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index e61d75e..614138e 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -360,6 +360,7 @@ End If Next End If End If + Printer1.DisConnect End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -379,54 +380,59 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click + If la_cuenta.Text <> "0" Then ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local - c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) - If c2.RowCount = 0 Then + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) + If c2.RowCount = 0 Then ' 2=2 ----> si no esta en el historico local mostrar encuesta - c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") - If c.RowCount = 0 Then - b_factura.Visible = False - B_EXIBI.Visible = False - HIST.Visible = False - Tar.Visible = False - Tels.Visible = False - B_VENTA.Visible = False - B_IMP.Visible = False - gest.Visible = False - B_IMP2.Visible = False - B_INV.Visible = False - Guardar.Visible = False - sv_encuesta.Visible = True - sv_encuesta.Height = Root.Height - sv_encuesta.Width = Root.Width - sv_encuesta.Panel.LoadLayout("encuesta") - sv_encuesta.Panel.Height = p_encuestas.Height - p_encuestas.Width = Root.Width + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width - Dim items As List - items.Initialize - items.Add("Selecciona una opción") - items.Add("ESQUINA") - items.Add("CALLE") - items.Add("AVENIDA") - cb_pregunta1.SetItems(items) - itemselect = "Selecciona una opción" + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" - Dim items2 As List - items2.Initialize - items2.Add("Selecciona una opción") - items2.Add("1 persona") - items2.Add("2 personas") - items2.Add("Mas de 2 personas") - cb_pregunta8.SetItems(items2) - itemselect2 = "Selecciona una opción" + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" - bandera = 2 + bandera = 2 + Else + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If Else Starter.tipov = "PREVENTA" B4XPages.ShowPage("Productos") End If - Else + Else If la_cuenta.Text = "0" Then Starter.tipov = "PREVENTA" B4XPages.ShowPage("Productos") End If @@ -1165,54 +1171,58 @@ Sub B_INV_Click End Sub Sub B_VENTA_Click - - c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) - If c.RowCount = 0 Then + If la_cuenta.Text <> "0" Then + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001")) + If c.RowCount = 0 Then ' 2=2 ----> si no esta en el historico local mostrar encuesta - c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") - If c.RowCount = 0 Then - b_factura.Visible = False - B_EXIBI.Visible = False - HIST.Visible = False - Tar.Visible = False - Tels.Visible = False - B_VENTA.Visible = False - B_IMP.Visible = False - gest.Visible = False - B_IMP2.Visible = False - B_INV.Visible = False - Guardar.Visible = False - sv_encuesta.Visible = True - sv_encuesta.Height = Root.Height - sv_encuesta.Width = Root.Width - sv_encuesta.Panel.LoadLayout("encuesta") - sv_encuesta.Panel.Height = p_encuestas.Height - p_encuestas.Width = Root.Width + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width - Dim items As List - items.Initialize - items.Add("Selecciona una opción") - items.Add("ESQUINA") - items.Add("CALLE") - items.Add("AVENIDA") - cb_pregunta1.SetItems(items) - itemselect = "Selecciona una opción" + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" - Dim items2 As List - items2.Initialize - items2.Add("Selecciona una opción") - items2.Add("1 persona") - items2.Add("2 personas") - items2.Add("Mas de 2 personas") - cb_pregunta8.SetItems(items2) - itemselect2 = "Selecciona una opción" + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" - bandera = 1 + bandera = 1 + Else + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If Else Starter.tipov = "VENTA" B4XPages.ShowPage("Productos") End If - Else + Else If la_cuenta.Text = "0" Then Starter.tipov = "VENTA" B4XPages.ShowPage("Productos") End If diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 023c1fe..805471e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -526,6 +526,7 @@ Sub Subir_Click PASO = 1 'End If + If PASO =1 Then E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1.Position = 0 @@ -620,41 +621,42 @@ Sub Subir_Click c.Close End If - c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA") + c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") +' S_CP.Text = "Envio Encuesta" + PB2.Progress = 1 If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i - Dim cmd As DBCommand cmd.Initialize cmd.Name = "INSERT_ENCUESTA_K001DUR" - cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO")) + cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"1",ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO")) reqManager.ExecuteQuery(cmd , 0,"INS_K001") Next c.Close End If - c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") - ' S_CP.Text = "Envio Encuesta" - ' PB2.Progress = 1 - - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_encuesta_DUR" - cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text ) - reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - - - Next - - End If - c.Close - ' PEDIO +' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") +' ' S_CP.Text = "Envio Encuesta" +' ' PB2.Progress = 1 +' +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_encuesta_DUR" +' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text ) +' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") +' +' +' Next +' +' End If +' c.Close +' ' PEDIO skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ") diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index f300a7f..8d70b5f 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -797,7 +797,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.01.18_2 ENC + #VersionName: 4.01.18_5 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 300536d..80307c6 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=1,3 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,l_prodX_LongClick,1134,0,C_Cliente,B_IMP2_Click,859,6,C_Principal,Subir_Click,624,0,C_Principal,cargar_Click,923,3,C_Principal,JobDone,1240,6,C_Cliente,B_IMP_Click,787,6,C_Cliente,GPS_LocationChanged,363,0,C_Cliente,B_VENTA_Click,1162,0,Diseñador Visual,Cliente.bal,-100,2,C_Cliente,gest_Click,377,6 +NavigationStack=Main,Globals,24,0,Diseñador Visual,Cliente.bal,-100,1,kms_helperSubs,Class_Globals,0,0,C_Cliente,B_INV_Click,1154,0,C_Cliente,B_VENTA_Click,1218,6,C_Principal,t1_tick,2092,0,C_Principal,cargar_Click,868,0,C_Principal,SUBIR_P_Click,2640,0,B4XMainPage,B4XPage_Created,150,0,C_Principal,Subir_Click,589,0 SelectedBuild=0 VisibleModules=21,2,9,18,7,4,10,22,11,23