From baabc9bdd93f62d32a5e7dd417559e5767cbfcc1 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Fri, 4 Jul 2025 23:03:56 -0700
Subject: [PATCH] --Clase Complemento parciales construccion

---
 App_Code/ClsVentas.vb |  4 +++-
 App_Code/Modelos.vb   | 19 +++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 68f28fc66..6de97acfd 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -475,7 +475,7 @@ Public Class ClsVentas
                              Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "",
                              Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False,
                              Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional EsFacturaGlobal As Boolean = False, Optional CveSATPeriodicidad As Integer = -1, Optional CveSATMes As Integer = -1, Optional SATAnio As Integer = -1, Optional CveMotivoDevolucion As Integer = -1,
-                             Optional CveCobranzaEstatusTurno As Integer = -1, Optional Addenda As String = "", Optional Bloqueada As Boolean = False) As Boolean
+                             Optional CveCobranzaEstatusTurno As Integer = -1, Optional Addenda As String = "", Optional Bloqueada As Boolean = False, Optional CveVentaComplemento As Integer = -1, Optional ComplementoSAT As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -593,6 +593,8 @@ Public Class ClsVentas
             .Add("@CveCobranzaEstatusTurno", SqlDbType.Int).Value = CveCobranzaEstatusTurno
             .Add("@Addenda", SqlDbType.VarChar).Value = Addenda
             .Add("@Bloqueada", SqlDbType.Bit).Value = Bloqueada
+            .Add("@CveVentaComplemento", SqlDbType.Bit).Value = CveVentaComplemento
+            .Add("@ComplementoSAT", SqlDbType.VarChar).Value = ComplementoSAT
         End With
         'SqlTypes.SqlDateTime.Null
         Try
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index c7fe1ca9c..221a5f348 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -412,6 +412,25 @@ Namespace Modelos
 
     End Class
 
+    <Serializable>
+    Public Class MParcialesConstruccion
+        'required
+        Public Property NumPerLicoAut As String
+        'required
+        Public Property Calle As String
+        Public Property NoExterior As String = ""
+        Public Property NoInterior As String = ""
+        Public Property Colonia As String = ""
+        Public Property Localidad As String = ""
+        Public Property Referencia As String = ""
+        'required
+        Public Property Municipio As String
+        'required
+        Public Property Estado As String
+        'required
+        Public Property CodigoPostal As String
+    End Class
+
     <Serializable(), System.Xml.Serialization.XmlRoot("REM")>
     Public Class M_REM
         <System.Xml.Serialization.XmlElement("NOS")>