--Clase Complemento parciales construccion

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

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")>