corecciones generales

B4A/C_Cliente.bas

@@ -205,7 +205,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
-	
 	c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
 	If c.RowCount > 0 Then
 		c.Position = 0
@@ -301,11 +300,14 @@ Sub B4XPage_Appear
 	End If
 	
 	If Printer1.IsConnected = False Then
-		Printer1.Connect
+'		Printer1.Connect
+		Log("1")
 	Else
 		Printer1.DisConnect
 		Printer1.Connect
+		Log("2")
 	End If
+'	Printer1.DisConnect
 	If PASA_IMP = "1" Then
 		B_IMP.Enabled = True
 	End If
@@ -360,7 +362,6 @@ End If
 		Next
 		End If
 	End If
-	Printer1.DisConnect
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -380,66 +381,66 @@ 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
-'		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
-			
-				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"
-			
-				bandera = 2
-			Else
-				Starter.tipov = "PREVENTA"
-				B4XPages.ShowPage("Productos")
-			End If
-		Else
-			Starter.tipov = "PREVENTA"
-			B4XPages.ShowPage("Productos")
-		End If
-	Else If la_cuenta.Text = "0" Then
-		Starter.tipov = "PREVENTA"
-		B4XPages.ShowPage("Productos")
-	End If
-'	Starter.tipov = "PREVENTA"
-'	B4XPages.ShowPage("Productos")
-''	StartActivity(colonia2)
-'	cuestionario
+'	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
+''			2=2 ----> si no esta en el historico local mostrar encuesta
+'			c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 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 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
+'			Else
+'				Starter.tipov = "PREVENTA"
+'				B4XPages.ShowPage("Productos")
+'			End If
+'		Else
+'			Starter.tipov = "PREVENTA"
+'			B4XPages.ShowPage("Productos")
+'		End If
+'	Else If la_cuenta.Text = "0" Then
+'		Starter.tipov = "PREVENTA"
+'		B4XPages.ShowPage("Productos")
+'	End If
+	Starter.tipov = "PREVENTA"
+	B4XPages.ShowPage("Productos")
+'	StartActivity(colonia2)
+	cuestionario
 End Sub
 
 Sub Tels_Click
@@ -595,8 +596,8 @@ Sub B_IMP_Click
 			Sleep(1000)
 			Log("++++++  " & cont)
 			cont = cont + 1
-			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
-			If cont > 15 Then impresoraConectada = True
+			If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
+			If cont > 3 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -609,7 +610,7 @@ Sub B_IMP_Click
 			Log("******  " & cont)
 			cont = cont + 1
 			If cont = 2 Then Printer1.Connect
-			If cont > 4 Then impresoraConectada = True
+			If cont > 3 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -788,7 +789,7 @@ Sub B_IMP_Click
 		'	End If
 		Printer1.WriteString("Total Preventa:   $" & s.GetString("TOTAL") &  CRLF)
 		s.Close
-		c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
+		c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) and PE_TIPO = 'PREVENTA'")
 		C.Position=0
 		Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
 		c.Close
@@ -850,8 +851,8 @@ Sub B_IMP2_Click
 '			Log("conectando ...")
 			Sleep(1000)
 			cont = cont + 1
-			If cont = 3 Then Printer1.Connect 'Tratamos de reconectar
-			If cont > 15 Then impresoraConectada = True
+			If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
+			If cont > 3 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -864,7 +865,7 @@ Sub B_IMP2_Click
 			Sleep(1000)
 			cont = cont + 1
 			If cont = 2 Then Printer1.Connect
-			If cont > 4 Then impresoraConectada = True
+			If cont > 3 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -1009,7 +1010,7 @@ Sub B_IMP2_Click
 	s.Position =0
 	Printer1.WriteString("Total entrega:   $" & s.GetString("TOTAL") &  CRLF)
 	s.Close
-	c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
+	c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) and PE_TIPO = 'PREVENTA' ")
 	C.Position=0
 	Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
 	c.Close
@@ -1171,66 +1172,67 @@ Sub B_INV_Click
 End Sub
 
 Sub B_VENTA_Click
-	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
-			
-				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"
-			
-				bandera = 1
-			Else
-				Starter.tipov = "VENTA"
-				B4XPages.ShowPage("Productos")
-			End If
-		Else
-			Starter.tipov = "VENTA"
-			B4XPages.ShowPage("Productos")
-		End If
-	Else If la_cuenta.Text = "0" Then
-		Starter.tipov = "VENTA"
-		B4XPages.ShowPage("Productos")
-	End If
-	
-'	Starter.tipov = "VENTA"
-'	'StartActivity(colonia2)
-'	B4XPages.ShowPage("Productos")
-'	cuestionario
+'	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
+''			2=2 ----> si no esta en el historico local mostrar encuesta
+'			c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 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 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
+'			Else
+'				Starter.tipov = "VENTA"
+'				B4XPages.ShowPage("Productos")
+'			End If
+'		Else
+'			Starter.tipov = "VENTA"
+'			B4XPages.ShowPage("Productos")
+'		End If
+'	Else If la_cuenta.Text = "0" Then
+'		Starter.tipov = "VENTA"
+'		B4XPages.ShowPage("Productos")
+'	End If
+'	
+	Starter.tipov = "VENTA"
+	'StartActivity(colonia2)
+	B4XPages.ShowPage("Productos")
+	cuestionario
 End Sub
 
 Sub b_factura_Click
@@ -1330,11 +1332,13 @@ End Sub
 Sub Printer1_Connected (Success As Boolean)
 	Log("Impresora conectada.")
 	If Success Then
+		Log("aqui estoy 1")
 		ToastMessageShow("Connected successfully", False)
 		Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
 		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora))
 		B_IMP.Enabled = True
-		impresoraConectada = True
+		impresoraConectada = False
+'		Printer1.DisConnect
 	Else
 '		Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
 '		If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
@@ -1529,7 +1533,7 @@ Private Sub b_guadaenc_Click
 		sTime=DateTime.Time(DateTime.Now)
 		c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 		c.Position = 0
-		Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2 ))
+		Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2,1 ))
 		c.Close
 		If et_pregunta2.Text <> "" Then
 			DateTime.DateFormat = "MM/dd/yyyy"
@@ -1538,7 +1542,7 @@ Private Sub b_guadaenc_Click
 			sTime=DateTime.Time(DateTime.Now)
 			c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 			c.Position = 0
-			Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1 ))
+			Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1,2 ))
 			c.Close
 			If et_pregunta3.Text <> "" Then
 				DateTime.DateFormat = "MM/dd/yyyy"
@@ -1547,7 +1551,7 @@ Private Sub b_guadaenc_Click
 				sTime=DateTime.Time(DateTime.Now)
 				c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 				c.Position = 0
-				Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 ))
+				Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 ,3))
 				c.Close
 				If et_pregunta4.Text <> "" Then
 					DateTime.DateFormat = "MM/dd/yyyy"
@@ -1556,7 +1560,7 @@ Private Sub b_guadaenc_Click
 					sTime=DateTime.Time(DateTime.Now)
 					c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 					c.Position = 0
-					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1 ))
+					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1,4 ))
 					c.Close
 					If et_pregunta5.Text <> "" Then
 						DateTime.DateFormat = "MM/dd/yyyy"
@@ -1565,7 +1569,7 @@ Private Sub b_guadaenc_Click
 						sTime=DateTime.Time(DateTime.Now)
 						c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 						c.Position = 0
-						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1 ))
+						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1,5 ))
 						c.Close
 						If et_pregunta6.Text <> "" Then
 							DateTime.DateFormat = "MM/dd/yyyy"
@@ -1574,7 +1578,7 @@ Private Sub b_guadaenc_Click
 							sTime=DateTime.Time(DateTime.Now)
 							c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 							c.Position = 0
-							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 ))
+							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 ,6))
 							c.Close
 							If rb_p7no.Checked = True Or rb_p7si.Checked = True Then
 								DateTime.DateFormat = "MM/dd/yyyy"
@@ -1583,7 +1587,7 @@ Private Sub b_guadaenc_Click
 								sTime=DateTime.Time(DateTime.Now)
 								c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 								c.Position = 0
-								Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,1 ))
+								Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,3,7 ))
 								c.Close
 								If itemselect2 <> "Selecciona una opción" Then
 									DateTime.DateFormat = "MM/dd/yyyy"
@@ -1592,7 +1596,7 @@ Private Sub b_guadaenc_Click
 									sTime=DateTime.Time(DateTime.Now)
 									c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
 									c.Position = 0
-									Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2 ))
+									Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 ))
 									c.Close
 									
 									If bandera = 1 Then