6.02.19

2026-04-19 21:59:28 +00:00 · 2026-03-10 10:19:29 -06:00
parent 5da05adc6f
commit bf303747a0
805 changed files with 45635 additions and 183960 deletions
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -2115,7 +2115,7 @@ Sub gest_Click
 				If resultado = DialogResponse.POSITIVE Then
 					gestionar
 				End If
-			Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+			Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 				MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
 			End If
 		Else
@@ -2126,7 +2126,7 @@ Sub gest_Click
 				If resultado = DialogResponse.POSITIVE Then
 					gestionar
 				End If
-			Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+			Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 				MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
 			End If
 		End If
@@ -3432,23 +3432,27 @@ Sub Impresion4
 				For E=0 To ESPACIO -1
 					BLANCO = " " & BLANCO
 				Next
-				Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  eLINEFEED )
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  eLINEFEED )
 				
 					
-				If Subs.traeTipoCliente= 5 Then
-						Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_LISTAPRECIO AS CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
-				Else
-						Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
-				End If
+					Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR2,0) AS CAT_CL_CLASIFICADOR2 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+					coloressaldo.Position = 0
 				
-				If precioprom.RowCount > 0 Then
-					precioprom.Position = 0
-					Log (precioprom.GETSTRING("CAT_GP_PRECIO"))
-					Log (s.GETSTRING("PE_COSTOU"))
-					If NumberFormat2(precioprom.GETSTRING("CAT_GP_PRECIO"),0.,2,2,False) <> NumberFormat2(s.GETSTRING("PE_COSTOU"),0.,2,2,False) Then
+					If coloressaldo.GetString("CAT_CL_CLASIFICADOR2") = "LP222_D" Then
+				
+						Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_LISTAPRECIO AS CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
+					Else
+						Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
+					End If
+				
+					If precioprom.RowCount > 0 Then
+						precioprom.Position = 0
+						Log (precioprom.GETSTRING("CAT_GP_PRECIO"))
+						Log (s.GETSTRING("PE_COSTOU"))
+						If NumberFormat2(precioprom.GETSTRING("CAT_GP_PRECIO"),0.,2,2,False) <> NumberFormat2(s.GETSTRING("PE_COSTOU"),0.,2,2,False) Then
 						
 							Printer1.WriteString(BLANCO & "PL $" & precioprom.GETSTRING("CAT_GP_PRECIO") & " Desc.: " & NumberFormat2(((( precioprom.GETSTRING("CAT_GP_PRECIO")-s.GETSTRING("PE_COSTOU"))*100)/precioprom.GETSTRING("CAT_GP_PRECIO")),0.,2,2,False) &"%" &  eLINEFEED &  eLINEFEED)
-					End If
+						End If
 					
 				End If
 				TAMANO = 0
@@ -3550,6 +3554,21 @@ Sub Mandap
 '	cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
 	d.Close

+	' UPDATE VENTA CREDITO
+	''   UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
+	c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "update_ventacredito_guna"
+			cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
+			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
+		Next
+	End If
+	c.Close
+
 '		If ALMACEN = "88" Or ALMACEN = "6" Then
 	c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_RECALCULO,PE_RECALCULOTOT,ifnull(PE_RECCEDIS,'') as PE_RECCEDIS,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,ifnull(PE_CANT,0) as PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, IFNULL(PE_RECCANT,0) AS PE_RECCANT FROM PEDIDO WHERE PE_RECALCULO <> ? or PE_RECALCULO <> ? or PE_RECALCULO IS NOT NULL",Array As String("","null"))
 	d=B4XPages.MainPage.skmt.ExecQuery($"SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO where PE_RUTA = '${Subs.traeRuta}'"$)
@@ -7867,12 +7886,12 @@ Private Sub l_limite_Click
 		c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_DIASCREDITO,0) AS CAT_CL_DIASCREDITO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
 		c.Position = 0

-		If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+		If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 '			Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
 			
 '			l_deuda.Text = ($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$)
 			l_deuda.Text = cs.Color(Colors.Black).Append("Monto de la deuda:" & CRLF&CRLF).Pop.Size(18).Color(Colors.RGB(48,109,0)).Append("$ "& pagarepen.GetString("SALDO_PENDIENTE")).PopAll
-		Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+		Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 '			l_deuda.Text = ($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$)
 			l_deuda.Text = cs.Color(Colors.Black).Append("Monto de la deuda:" & CRLF&CRLF).Pop.Color(Colors.Red).Size(18).Append("$ " &pagarepen.GetString("SALDO_PENDIENTE")&CRLF&CRLF).Pop.Size(14).Color(Colors.Black).Append("Dias de atraso:" & CRLF&CRLF).Pop.Size(18).Color(Colors.Red).Append((DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))).PopAll
 		End If
@@ -7921,14 +7940,14 @@ Private Sub b_preventa2_Click
 		c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_DIASCREDITO,0) AS CAT_CL_DIASCREDITO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
 		c.Position = 0

-		If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+		If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 '			MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
 			Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
 			Wait For Msgbox_Result (resultado As Int)
 			If resultado = DialogResponse.POSITIVE Then
 				gestionar
 			End If
-		Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
+		Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
 			MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
 		End If
 	Else