c

App_Code/ClsAcumuladores.vb

@@ -928,7 +928,7 @@ Public Class ClsAcumuladores
 #End Region
 
     Public Function DistribuidorMovtosAdd(CveCliente As Integer, Cantidad As Decimal, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
-                                          CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String, Optional CveMovimiento As Integer = -1) As Boolean
+                                          CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String, FechaIng As DateTime, Optional CveMovimiento As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -945,6 +945,7 @@ Public Class ClsAcumuladores
             .Add("@ImporteCompras", SqlDbType.Money).Value = ImporteCompras
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -724,7 +724,7 @@ Public Class ClsVentas
     Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer,
                                          Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
                                          Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1",
-                                         Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "") As Boolean
+                                         Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional EstadoCancelacion As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasUpdateEstatus")
@@ -743,6 +743,7 @@ Public Class ClsVentas
             .Add("@RFCReceptor", SqlDbType.VarChar).Value = RFCReceptor
             .Add("@CveMotivoCancelacion", SqlDbType.Int).Value = CveMotivoCancelacion
             .Add("@MotivoCancelacion", SqlDbType.VarChar).Value = MotivoCancelacion
+            .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
         End With
 
         Try
@@ -833,7 +834,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0) As Boolean
+    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional EstadoCancelacion As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasCancelacion")
@@ -845,6 +846,7 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePAC", SqlDbType.SmallInt).Value = CvePAC
             .Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
+            .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
             .Add("@Cancelada", SqlDbType.SmallInt).Direction = ParameterDirection.Output
         End With
 
@@ -1603,7 +1605,7 @@ Public Class ClsVentas
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer,
                                               Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
-                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
+                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPS")
 
@@ -1634,7 +1636,7 @@ Public Class ClsVentas
             .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
-
+            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
 
         End With
 
@@ -1653,7 +1655,7 @@ Public Class ClsVentas
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
                                              Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
-                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
+                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPSDetalle")
 
@@ -1687,7 +1689,7 @@ Public Class ClsVentas
             .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
-
+            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
         End With
 
         Try

App_Code/Modelos.vb

@@ -2078,7 +2078,7 @@ Namespace Modelos
                     For Each RowSalida As DataRow In DtMovimientos.Rows
                         Dim Cantidad As Decimal = RowSalida("Cantidad").ToString().ToDecimal() * -1
 
-                        If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, Cantidad, RowSalida("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0D, "") Then
+                        If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, Cantidad, RowSalida("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0D, "", factura.Fecha) Then
                             Retorno = False
                             Exit For
                         End If
@@ -2100,7 +2100,7 @@ Namespace Modelos
                     For Each drow As DataRow In factura.DtDetalle.Rows
                         If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then
                             If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, drow("Cantidad").ToString.ToDecimal, drow("CveTamaño").ToString.ToEntero, 2, factura.CveVenta, UsuarioActual.CveUsuario,
-                                                         UsuarioActual.CveEmpresa, 0D, "") Then
+                                                         UsuarioActual.CveEmpresa, 0D, "", factura.Fecha) Then
                                 Resultado = False
                                 Exit For
                             End If
@@ -2159,7 +2159,7 @@ Namespace Modelos
                         If factura.Cliente.EsDistribuidor AndAlso factura.CveConceptoMovimiento = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                             If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, Dr("Cantidad").ToString.ToDecimal(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
-                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
+                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, factura.Fecha, CveMovimiento:=CveMovimiento) Then
                                 ' Mensaje = "Error al guardar Movimientos de distribuidor"
                                 Resultado = False
                                 Exit For
@@ -4763,6 +4763,7 @@ Namespace Modelos
             Dim CancelacionFecha As Date
             Dim FolioFiscal As String = ObjFactura.FolioFiscal
             Dim CancelacionAcuse As String = ""
+            Dim EstadoCancelacion As String = ""
             Dim MensajeError As String = ""
             Dim ObjCancelacion As New Timbrado
             Dim TotalT As Decimal = ObjFactura.Total
@@ -4810,6 +4811,9 @@ Namespace Modelos
                                 Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion)
 
                                 If Vigencia IsNot Nothing Then
+
+                                    EstadoCancelacion = Vigencia.EsCancelable
+
                                     If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
                                         Retorno.Mensaje = "Esta factura no es cancelable."
                                         Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -5508,13 +5512,13 @@ Namespace Modelos
 
 
                     If CveEstatus.Contiene(4, 5) Then
-                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then
+                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion, EstadoCancelacion:=EstadoCancelacion) Then
                             ErrorCancelar = True
                             MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
                         End If
                     Else
                         If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
-                                  CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=MotivoCancelacion) Then
+                                  CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion) Then
                             ErrorCancelar = True
                             MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
                         End If

App_Code/Timbrado.vb

@@ -434,7 +434,7 @@ Public Class Timbrado
                 End If
 #End Region
 
-                Dim conector As New Profact.TimbraCFDI33.Conector(AmbienteProductivo)
+                Dim conector As New Profact.TimbraCFDI40.Conector(AmbienteProductivo)
 
                 If Not AmbienteProductivo Then
                     conector.EstableceCredenciales("mvpNUXmQfK8=")
@@ -442,8 +442,8 @@ Public Class Timbrado
                     conector.EstableceCredenciales("vSGxMFWnNRy/nDoowxqrqw==|Sia123654")
                 End If
                 MsgCancelacion.AppendFormat("-3.2")
-                Dim resultadoCancelacion As Profact.TimbraCFDI.ResultadoCancelacionAck
+                Dim resultadoCancelacion As Profact.TimbraCFDI.ResultadoCancelacion
-                resultadoCancelacion = conector.CancelaCFDIAck(RFCEmisor, FolioFiscal)
+                resultadoCancelacion = conector.CancelaCFDI40(RFCEmisor, FolioFiscal, CodigoSATMotivoCancelacion, FolioSustitucion)
                 CancelacionFecha = Now
                 Dim resp As Profact.TimbraCFDI.ResultadoConsulta
                 resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal)
@@ -474,7 +474,7 @@ Public Class Timbrado
                 Else
                     MsgCancelacion.AppendFormat("-3.5")
                     CancelacionAcuse = resp.NumeroError
-                    CancelacionMensaje = resultadoCancelacion.Xml
+                    CancelacionMensaje = resultadoCancelacion.Descripcion
                     Retorno = False
                 End If
 
@@ -488,7 +488,8 @@ Public Class Timbrado
                 Dim UrlServicio As String = "" ' Produccion
 
                 'UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
-                UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
+                'UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
+                UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
 
                 If Not Empresa.FacturaProduccion Then
                     ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
@@ -1905,7 +1906,8 @@ Public Class Timbrado
                 UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" 'productivo
             Case 4
                 'UrlServicio = "http://juancalderon-001-site1.ftempurl.com/timbrado.asmx?WSDL"
-                UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
+                'UrlServicio = "http://alterno.gofac.com.mx/cfdi/timbrado.asmx?WSDL" ' alterno
+                UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
         End Select
 
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then

App_Code/Timbres.vb

@@ -174,6 +174,16 @@ Public Class Timbres
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero
 
+                    If drT("ClaveTipoRemolque1").ToString <> "" Then
+                        Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")}
+                        CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1)
+                    End If
+
+                    If drT("ClaveTipoRemolque2").ToString <> "" Then
+                        Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")}
+                        CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
+                    End If
+
 
                     Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
                     DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,

Bancos/ConciliacionesBancarias.aspx.vb

@@ -667,9 +667,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/Conciliacion.rdlc"
+        Dim Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/Conciliacion.rdlc"
 
-        If Not IO.File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+        If Not IO.File.Exists(Archivo) Then
             Archivo = "Empresas/Grales/Formatos/Conciliacion.rdlc"
         End If
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -44,7 +44,7 @@ Partial Class Bancos_FluctuacionCambiaria
         'Año actual
         DdlAnio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString()))
         'Año Anterior
-        DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(1).Year.ToString()))
+        DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
 
         For i = 1 To 12
             Dim fecha = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)

Bancos/IE.aspx

@@ -49,9 +49,11 @@
             <li>
                 <asp:LinkButton ID="LnkEliminar" runat="server" Visible="false" OnClientClick="return confirm('¿Está seguro de eliminar el documento?');" Style="color: #686868;"><i class="fa fa-minus" style="color: #686868;"></i> Eliminar Movimiento</asp:LinkButton>
             </li>
-            <li>
+            
+            <%--<li>
                 <asp:LinkButton ID="LnkCancelarComplemento" OnClick="LnkCancelarComplemento_Click" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-ban" style="color: #686868;"></i> Refacturar Complemento</asp:LinkButton>
-            </li>
+            </li>--%>
+
             <li>
                 <asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;"  data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento  y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>
 
@@ -1216,28 +1218,29 @@
 
                                 </div>
                             </div>
-                             <div class="col-md-6">
+                            <div class="col-md-6">
-                                 <div class="row">
+                                <div class="row">
-                                      <div class="col-md-12">
+                                    <div class="col-md-12">
-                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
+                                        <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
-                                           </div>
+                                    </div>
-                                        </div>
+                                </div>
-                                    <div class="row">
+                                <div class="row">
-                                <div class="col-md-12"  id="DVTipoTransacciónCancelar"  runat="server" visible ="false"> 
+                                    <div class="col-md-12" id="DVTipoTransacciónCancelar" runat="server" visible="false">
+                                        Movimiento:
+                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
+                                    <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
 
-                                Movimiento:
+                                    </div>
-                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server"    DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
+                                </div>
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
-
-                            </div>
-                            </div>
                             </div>
 
 
                         </div>
+
+                  
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnCancelarIE" OnClick="BtnCancelarIE_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Movimiento" ValidationGroup="GrpCancelarIE" />
@@ -1367,6 +1370,12 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                      <ItemTemplate>
+                                            <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
+                                            </asp:DropDownList>
+                                       </ItemTemplate>
+                                </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
@@ -1574,6 +1583,25 @@
                                     </div>
                                 </div>                                
                             </div>
+
+                              <div class="row" runat="server" id="DVmotivoCancelacion" visible="false">
+                            <div class="col-md-2">
+                                Motivo de Cancelación:
+                             </div>
+                            <div class="col-md-10">
+
+
+                                 <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >                                
+                                 </asp:DropDownList>
+
+                                <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarComplemento"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
+                            </div>
+                        </div>
+
+
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

Bancos/IE.aspx.vb

@@ -837,6 +837,13 @@ Partial Class Bancos_IE
 
             'End If
 
+
+
+            DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa)
+            DdlMotivoCancelacion.DataBind()
+            DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
         End If
     End Sub
 
@@ -1096,7 +1103,7 @@ Partial Class Bancos_IE
                     HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
                 End If
 
-                LnkCancelarComplemento.Visible = False
+                'LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
                 UppEliminarIE.Update()
 
@@ -1267,7 +1274,7 @@ Partial Class Bancos_IE
                     LnkEliminar.Visible = False
                     'LnkCancelar.Visible = False
 
-                    LnkCancelarComplemento.Visible = True
+                    'LnkCancelarComplemento.Visible = True
                     LnkCancelarComplementoImporte.Visible = True
 
                 End If
@@ -1275,7 +1282,7 @@ Partial Class Bancos_IE
 
             Else
                 BtnEditar.Visible = False
-                LnkCancelarComplemento.Visible = False
+                ' LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
                 DVGenerarComplementoModal.Visible = False
             End If
@@ -4587,22 +4594,23 @@ Partial Class Bancos_IE
                 Dim ErrorCancelarComplemento As Boolean = True
 
                 If CancelarComplemento Then
-                    Dim ObjCancelacion As New Timbrado
-                    'Dim ObjBanco As New ClsBancos
 
-                    If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
-                        If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+                    Dim CveMotivoCancelacion As Integer = DdlMotivoCancelacion.SelectedValue.ToEntero
-                            CargaComplementosPago()
+                    Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
-                            RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
-                            ErrorCancelarComplemento = False
-                            Alert("El complemento se cancelo correctamente.")
-                        End If
 
-                    Else
+                    If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
-                        If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+                        Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+                        ErrorCancelarComplemento = True
+                    End If
 
-                            If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+                    If Not ErrorCancelarComplemento Then
+
+                        Dim ObjCancelacion As New Timbrado
+                        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+                            If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
                                 CargaComplementosPago()
                                 RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                 ErrorCancelarComplemento = False
@@ -4610,12 +4618,25 @@ Partial Class Bancos_IE
                             End If
 
                         Else
-                            Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                            If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
-                        End If
 
+                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                                    CargaComplementosPago()
+                                    RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+                                    ErrorCancelarComplemento = False
+                                    Alert("El complemento se cancelo correctamente.")
+                                End If
+
+                            Else
+                                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                            End If
+
+                        End If
                     End If
 
 
+
+
                 Else
                     ErrorCancelarComplemento = False
                 End If
@@ -5804,11 +5825,9 @@ Partial Class Bancos_IE
 #End Region
 
 #Region "  COMPLEMENTOS PAGO  "
+
     Private Sub CargaComplementosPago()
 
-
-
-
         Dim ObjBancos As New ClsBancos
 
         If UsuarioActual.CveRol = 1 Then
@@ -5823,9 +5842,7 @@ Partial Class Bancos_IE
 
                 GvComplementoPagos.DataSource = ObjBancos.DtResultados
 
-                If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
+
-                    DVGenerarComplementoModal.Visible = True
-                End If
             Else
                 GvComplementoPagos.DataSource = Nothing
             End If
@@ -5833,6 +5850,14 @@ Partial Class Bancos_IE
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
 
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                        DVGenerarComplementoModal.Visible = True
+                    End If
+
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                        DVmotivoCancelacion.Visible = True
+                    End If
+
 
                     ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
 
@@ -5844,11 +5869,14 @@ Partial Class Bancos_IE
             End If
 
         End If
+
         ObjBancos.Dispose()
         GvComplementoPagos.DataBind()
         UpComplementoPagos.Update()
 
 
+        UpEliminarCotizacion.Update() 'Esto se  ocupa para mostrar DVmotivoCancelacion
+
         'ObjBancos.Dispose()
         'GvComplementoPagos.DataBind()
         'UpComplementoPagos.Update()
@@ -5863,9 +5891,16 @@ Partial Class Bancos_IE
                 e.Row.Cells(4).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
 
                 If e.Row.DataKey("Estatus").Contiene("1", "3") Then
+
                     e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = True
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa)
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").DataBind()
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
                 Else
                     e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
                 End If
 
             ElseIf e.Row.DataKey("Tipo") = "Egs" Then
@@ -5876,6 +5911,7 @@ Partial Class Bancos_IE
                 GvComplementoPagos.Columns(6).Visible = False
                 GvComplementoPagos.Columns(7).Visible = False
                 GvComplementoPagos.Columns(8).Visible = False
+                GvComplementoPagos.Columns(9).Visible = False
 
             End If
 
@@ -5950,13 +5986,13 @@ Partial Class Bancos_IE
         Return Retorno
     End Function
 
-    Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
+    'Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
-        If ChkConciliado.Checked Then
+    '    If ChkConciliado.Checked Then
-            Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
+    '        Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
-        Confirmacion("¿Seguro que desea Cancelar el documento por Sustitución?", "", String.Format("document.location.href=""/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}&CveMoneda={2}""", CveIE, CveCliente, CveMoneda), "")
+    '    Confirmacion("¿Seguro que desea Cancelar el documento por Sustitución?", "", String.Format("document.location.href=""/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}&CveMoneda={2}""", CveIE, CveCliente, CveMoneda), "")
-    End Sub
+    'End Sub
 
 
 #End Region
@@ -6126,6 +6162,9 @@ Partial Class Bancos_IE
             CalendarioCancelacion.StartDate = fechaCancelacion.ToDate
             UpEliminarCotizacion.Update()
         End If
+
+
+
         RegistraScript("ShowDivCancelarIE();")
     End Sub
     Protected Sub BtnDesconciliar_Click(sender As Object, e As EventArgs)
@@ -6605,6 +6644,16 @@ Partial Class Bancos_IE
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
 
+
+
+        Dim CveMotivoCancelacion As Integer = GvRow.FCDropDownList("DdlMotivoCancelacion").SelectedValue.ToEntero
+        Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
+        If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
+            Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero
         FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString
         '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
@@ -6622,7 +6671,7 @@ Partial Class Bancos_IE
             End If
 
         Else
-            Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveSATMotivoCancelacion:=2).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
 
             If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
@@ -6681,6 +6730,8 @@ Partial Class Bancos_IE
 
             RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
             DivFechaCancelación.Visible = True
+            CargaComplementosPago()
+
             UpModalCancelarComplemetno.Update()
 
         Else

Bancos/RepComplementoPago.aspx

@@ -177,7 +177,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="5%" />
                     </asp:TemplateField>
-                    <asp:TemplateField Visible="true">
+                    <asp:TemplateField Visible="false">
                         <HeaderTemplate>Cancelar SAT</HeaderTemplate>
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelaFolioFiscal" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" Visible="false" />
@@ -189,49 +189,7 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <div id="ModalDivMail" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
 
-            <!-- Modal content-->
-            <div class="modal-content">
-                <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Correo</h4>
-                </div>
-                <div class="modal-body">
-                    <asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
-                        <ContentTemplate>
-                            <asp:HiddenField ID="HdnSerieFolioPago" runat="server" ClientIDMode="Static" Value="-1" />
-                            <div class="row">
-                                <div class="col-xs-4">Para:</div>
-                                <div class="col-xs-8">
-                                    <asp:TextBox ID="TxtParaMail" runat="server" Width="370px" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
-                                </div>
-                            </div>
-                            <div class="row">
-                                <div class="col-xs-4">
-                                    Con copia para:<br />
-                                    (Separar con: ;)
-                                </div>
-                                <div class="col-xs-8">
-                                    <asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
-                                </div>
-                            </div>
-
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-                <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
-                        <ContentTemplate>
-                            <asp:Button ID="BtnSendMail" Text="Enviar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GrpEnviarEmail" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-            </div>
-        </div>
-    </div>
 
 
 

Bancos/RepComplementoPago.aspx.vb

@@ -150,9 +150,9 @@ Partial Class Bancos_RepComplementoPago
                         e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString)))
                         e.Row.FCLinkButton("LnkSendMail").Visible = True
 
-                        If DdlOpcion.SelectedValue.ToEntero = 2 Then
+                        'If DdlOpcion.SelectedValue.ToEntero = 2 Then
-                            e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
+                        '    e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
-                        End If
+                        'End If
 
                     End If
 
@@ -532,4 +532,8 @@ Partial Class Bancos_RepComplementoPago
     End Sub
 
 
+
+
+
+
 End Class

Compras/PopUpVerFactura.aspx.vb

@@ -227,16 +227,6 @@ Partial Class PopUpVerFactura
         Dim NoPallets As String = ""
         Dim NoBultos As String = ""
         Dim NoKgManifiesto As String = ""
-        Dim Mercado As String = ""
-        Dim NoFactura As String = ""
-
-        Dim LongitudCaja As String = ""
-        Dim LineaTransportacion As String = ""
-        Dim SCAC As String = ""
-        Dim CAAT As String = ""
-
-
-
         Dim tablaReporte As New DataTable
 
         'Envase = "1 1/9"
@@ -258,25 +248,15 @@ Partial Class PopUpVerFactura
                 CamPlaca = row("CamPlaca").ToString()
                 Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
                 Rem1Placa = row("Rem1Placa").ToString()
-                NoFactura = row("NoFactura").ToString()
                 Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion"))
-                Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
+                If row("CveCamionRemolque1").ToString() = "1" Then
+                    Rem1Placa = "12-TF-5E"
+                    Remolque1 = "Remolque 1"
+                Else
+                    Rem1Placa = "15-TF-7f"
+                    Remolque1 = "Remolque 2"
 
-
+                End If
-
-                LongitudCaja = row("LongitudCaja").ToString()
-                LineaTransportacion = row("LineaTransportacion").ToString()
-                SCAC = row("SCAC").ToString()
-                CAAT = row("CAAT").ToString()
-
-                'If row("CveCamionRemolque1").ToString() = "1" Then
-                '    Rem1Placa = "12-TF-5E"
-                '    Remolque1 = "Remolque 1"
-                'Else
-                '    Rem1Placa = "15-TF-7f"
-                '    Remolque1 = "Remolque 2"
-
-                'End If
 
                 If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                     NoPallets = objnom.DtResultados.Rows.Count.ToString()
@@ -302,13 +282,6 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Remolque1", Remolque1))
 
 
-        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
-        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
-        params.Add(New ReportParameter("SCAC", SCAC))
-        params.Add(New ReportParameter("CAAT", CAAT))
-
-        params.Add(New ReportParameter("NoFactura", NoFactura))
-        params.Add(New ReportParameter("Mercado", Mercado))
         params.Add(New ReportParameter("NoBultos", NoBultos))
         params.Add(New ReportParameter("NoPallets", NoPallets))
         params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
@@ -318,6 +291,7 @@ Partial Class PopUpVerFactura
 
 
 
+
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
@@ -4772,28 +4746,66 @@ Partial Class PopUpVerFactura
 
 #Region "OP = 'CAN' - CANCELACION"
     Public Sub ImprimeCancelacion(CveVenta As Integer)
+        Dim drv As DataRow = Nothing
+
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
+            drv = ObjVentas.DtResultados.FiltroPrimero("")
-            Dim FolioFiscal = drv("FolioFiscal").ToString
-            Dim SelloCancelacion = drv("SelloCancelacion").ToString
-            Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")
-            Dim RFC = UsuarioActual.Empresa.RFC
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
-
-
-            Dim params As New List(Of ReportParameter)
-            params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString))
-            params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
-            params.Add(New ReportParameter("RFCEmisor", RFC))
-            params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))
-
-            '   If Archivo.Exists Then
-            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
-            '  End If
-
         End If
         ObjVentas.Dispose()
+
+        If drv IsNot Nothing Then
+            Dim Total = drv("Total").ToString().ToDecimal()
+            Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero()
+            Dim FolioFiscal = drv("FolioFiscal").ToString()
+            Dim RFCReceptor = drv("RFCReceptor").ToString()
+            Dim SelloCancelacion = drv("SelloCancelacion").ToString()
+            Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
+            Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
+
+            Dim RFCEmisor = UsuarioActual.Empresa.RFC
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
+
+            Dim Titulo As String = "Acuse de cancelación de CFDI"
+            Dim EstadoCFDI As String = "Cancelado"
+
+            If CveEstatusFactura = 20 Then
+                Titulo = "Acuse de solicitud de cancelación de CFDI"
+                EstadoCFDI = "Vigente"
+                If String.IsNullOrEmpty(EstadoCancelacion) Then
+                    EstadoCancelacion = "Cancelable con aceptación"
+                End If
+            ElseIf CveEstatusFactura = 5 Then
+                If String.IsNullOrEmpty(EstadoCancelacion) Then
+                    If Total >= 5000 And FechaCancelacion.Year < 2022 Then
+                        EstadoCancelacion = "Cancelado con aceptación"
+                    End If
+
+                    If Total >= 1000 And FechaCancelacion.Year >= 2022 Then
+                        EstadoCancelacion = "Cancelado con aceptación"
+                    End If
+
+                    If String.IsNullOrEmpty(EstadoCancelacion) Then
+                        EstadoCancelacion = "Cancelado sin aceptación"
+                    End If
+                End If
+            End If
+
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("Titulo", Titulo))
+            params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
+            params.Add(New ReportParameter("RFCEmisor", RFCEmisor))
+            params.Add(New ReportParameter("RFCReceptor", RFCReceptor))
+            params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))
+            params.Add(New ReportParameter("EstadoCFDI", EstadoCFDI))
+            params.Add(New ReportParameter("EstadoCancelacion", EstadoCancelacion))
+            params.Add(New ReportParameter("MsgError", ""))
+            params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
+
+            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
+
+        End If
+
     End Sub
 #End Region
 

Contabilidad/RepIVA.aspx

@@ -207,7 +207,7 @@
                                 <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
                                 <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-HorizontalAlign="Center" />
                                 <asp:HyperLinkField HeaderText="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataTextField="RazonSocial" ControlStyle-CssClass="truncate2" />
-                                <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                 <asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />                                
                                 <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" Target="_blank" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" HeaderText="Folio" />
                                 <asp:BoundField HeaderText="SubTotal 16%" DataField="valorActos1516" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="SubTotal 8%" DataField="valorActosImp8" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
@@ -235,7 +235,7 @@
                                 <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="T.C.P." DataField="TipoCambioPago" DataFormatString="{0:##.####}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Total ME." DataField="TotalME" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                 <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
 
                                 <%--            <asp:BoundField HeaderText="IEPS 3%" DataField="IEPS3" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />

Empresas/140/Formatos/Factura.rdlc

@@ -524,7 +524,7 @@
           <BreakLocation>Start</BreakLocation>
         </PageBreak>
         <KeepTogether>true</KeepTogether>
-        <Top>7.61812in</Top>
+        <Top>7.49312in</Top>
         <Left>0.20879in</Left>
         <Height>3.59384in</Height>
         <Width>7.78795in</Width>
@@ -1058,7 +1058,7 @@
           </Image>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>3.95038in</Top>
+        <Top>3.82538in</Top>
         <Left>0.05395in</Left>
         <Height>1.21305in</Height>
         <Width>8.22763in</Width>
@@ -1086,32 +1086,6 @@
             </TextRuns>
             <Style />
           </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>BDH Baterias Distribuciones de Hermosillo SA de CV</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.7pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>BBD021220APA</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.7pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>
@@ -1153,10 +1127,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox32</rd:DefaultName>
-        <Top>2.84726cm</Top>
+        <Top>3.48226cm</Top>
         <Left>0.13011cm</Left>
-        <Height>2.40928cm</Height>
+        <Height>2.1447cm</Height>
-        <Width>4.15958cm</Width>
+        <Width>4.08234cm</Width>
         <ZIndex>3</ZIndex>
         <Style>
           <Border>
@@ -1178,7 +1152,7 @@
                 <Value>= IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO")</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>14pt</FontSize>
+                  <FontSize>11pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1198,7 +1172,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>Serie: </Value>
+                <Value>Serie:  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.16pt</FontSize>
@@ -1213,6 +1187,14 @@
                   <Color>Red</Color>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>Red</Color>
+                </Style>
+              </TextRun>
               <TextRun>
                 <Value> Folio: </Value>
                 <Style>
@@ -1446,9 +1428,9 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox4</rd:DefaultName>
-        <Top>0.05159in</Top>
+        <Top>0.05022in</Top>
         <Left>5.03983in</Left>
-        <Height>1.74708in</Height>
+        <Height>1.62345in</Height>
         <Width>3.24175in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -1558,7 +1540,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox40</rd:DefaultName>
-        <Top>4.5675cm</Top>
+        <Top>4.25cm</Top>
         <Left>13.31398cm</Left>
         <Height>1.42163cm</Height>
         <Width>7.72123cm</Width>
@@ -2217,7 +2199,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DsOC</DataSetName>
-        <Top>2.38003in</Top>
+        <Top>2.25503in</Top>
         <Left>0.05854in</Left>
         <Height>0.34081in</Height>
         <Width>8.22304in</Width>
@@ -2243,7 +2225,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>7.09581cm</Top>
+        <Top>6.77831cm</Top>
         <Left>0.14868cm</Left>
         <Height>0.14316cm</Height>
         <Width>20.88652cm</Width>
@@ -2274,7 +2256,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>7.86718cm</Top>
+        <Top>7.54968cm</Top>
         <Left>15.09838cm</Left>
         <Height>0.14316cm</Height>
         <Width>5.93682cm</Width>
@@ -2311,7 +2293,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>ImporteLetra</rd:DefaultName>
-        <Top>3.18176in</Top>
+        <Top>3.05676in</Top>
         <Left>2.30237in</Left>
         <Height>0.18861in</Height>
         <Width>5.97921in</Width>
@@ -2341,7 +2323,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>9.82898cm</Top>
+        <Top>9.51148cm</Top>
         <Left>0.13011cm</Left>
         <Height>0.1cm</Height>
         <Width>20.88652cm</Width>
@@ -2372,7 +2354,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>13.2915cm</Top>
+        <Top>12.974cm</Top>
         <Left>0.18043cm</Left>
         <Height>0.14316cm</Height>
         <Width>20.85477cm</Width>
@@ -2406,7 +2388,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>7.3448cm</Top>
+        <Top>7.0273cm</Top>
         <Left>5.62203cm</Left>
         <Height>0.34219cm</Height>
         <Width>9.30316cm</Width>
@@ -2524,7 +2506,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>7.30953cm</Top>
+        <Top>6.99203cm</Top>
         <Left>15.09838cm</Left>
         <Height>0.48004cm</Height>
         <Width>5.93682cm</Width>
@@ -3022,7 +3004,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>15.84926cm</Top>
+        <Top>15.53176cm</Top>
         <Left>0.13702cm</Left>
         <Height>2.97096cm</Height>
         <Width>20.89818cm</Width>
@@ -3297,7 +3279,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet3</DataSetName>
-        <Top>2.88204in</Top>
+        <Top>2.75704in</Top>
         <Left>0.05854in</Left>
         <Height>0.34081in</Height>
         <Width>2.08542in</Width>
@@ -3315,7 +3297,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>"REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA </Value>
+                <Value>"REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA.</Value>
                 <Style>
                   <FontFamily>myriad pro</FontFamily>
                   <FontSize>6.5pt</FontSize>
@@ -3344,7 +3326,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>8.71223cm</Top>
+        <Top>8.39473cm</Top>
         <Height>1.07794cm</Height>
         <Width>20.85477cm</Width>
         <ZIndex>16</ZIndex>
@@ -3467,7 +3449,7 @@
         </Style>
       </Textbox>
       <Line Name="Line4">
-        <Top>15.01864cm</Top>
+        <Top>14.70114cm</Top>
         <Left>14.38124cm</Left>
         <Height>0cm</Height>
         <Width>6.65396cm</Width>
@@ -3498,7 +3480,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox39</rd:DefaultName>
-        <Top>15.19503cm</Top>
+        <Top>14.87753cm</Top>
         <Left>14.38124cm</Left>
         <Height>0.6cm</Height>
         <Width>6.65396cm</Width>
@@ -3537,7 +3519,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox38</rd:DefaultName>
-        <Top>13.57236cm</Top>
+        <Top>13.25486cm</Top>
         <Left>14.38124cm</Left>
         <Height>0.67938cm</Height>
         <Width>6.65396cm</Width>
@@ -3552,8 +3534,57 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox16">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>BDH</Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontFamily>Calibri</FontFamily>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value> Baterias Distribuciones de Hermosillo SA de CV</Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontFamily>Calibri</FontFamily>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox16</rd:DefaultName>
+        <Top>2.16641cm</Top>
+        <Left>0.13011cm</Left>
+        <Height>1.21002cm</Height>
+        <Width>4.23014cm</Width>
+        <ZIndex>22</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>28.47838cm</Height>
+    <Height>28.16088cm</Height>
     <Style>
       <Border>
         <Style>None</Style>

Empresas/Grales/Formatos/AcuseCancelacion.rdlc

@@ -2,20 +2,6 @@
 <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <Body>
     <ReportItems>
-      <Image Name="Image1">
-        <Source>Embedded</Source>
-        <Value>shcp</Value>
-        <Sizing>FitProportional</Sizing>
-        <Top>0.45625in</Top>
-        <Left>0.72014in</Left>
-        <Height>1.64458in</Height>
-        <Width>2.04736in</Width>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
       <Textbox Name="Textbox1">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -55,10 +41,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
         <Top>0.8675in</Top>
-        <Left>2.28417in</Left>
+        <Left>2.40917in</Left>
         <Height>0.85417in</Height>
         <Width>3.59375in</Width>
-        <ZIndex>1</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -76,10 +61,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Fecha y hora de solicitud</Value>
+                <Value>Fecha:</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -88,45 +73,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>2.53in</Top>
+        <Top>4.41292in</Top>
-        <Left>0.72014in</Left>
+        <Left>0.34514in</Left>
         <Height>0.25in</Height>
         <Width>1.92708in</Width>
-        <ZIndex>2</ZIndex>
+        <ZIndex>1</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox4">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Fecha y hora de cancelacion</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>2.90104in</Top>
-        <Left>0.72014in</Left>
-        <Height>0.25in</Height>
-        <Width>1.92708in</Width>
-        <ZIndex>3</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -147,7 +98,7 @@
                 <Value>RFC Emisor:</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -156,11 +107,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>3.27802in</Top>
+        <Top>2.52802in</Top>
-        <Left>0.72014in</Left>
+        <Left>0.34514in</Left>
         <Height>0.25in</Height>
         <Width>1.92708in</Width>
-        <ZIndex>4</ZIndex>
+        <ZIndex>2</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -181,22 +132,27 @@
                 <Value>Sello digital SAT: </Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                 </Style>
               </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
               <TextRun>
                 <Value>=Parameters!SelloCancelacion.Value</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                 </Style>
               </TextRun>
             </TextRuns>
@@ -204,11 +160,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>4.22813in</Top>
+        <Top>4.85313in</Top>
-        <Left>0.72014in</Left>
+        <Left>0.34514in</Left>
         <Height>1.01041in</Height>
         <Width>5.6432in</Width>
-        <ZIndex>5</ZIndex>
+        <ZIndex>3</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -229,7 +185,7 @@
                 <Value>=Parameters!FechaCancelacion.Value</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                 </Style>
               </TextRun>
             </TextRuns>
@@ -237,44 +193,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>FechaCancelacion</rd:DefaultName>
-        <Top>2.53in</Top>
+        <Top>4.41292in</Top>
-        <Left>3.30708in</Left>
+        <Left>2.68208in</Left>
         <Height>0.25in</Height>
         <Width>2.13542in</Width>
-        <ZIndex>6</ZIndex>
+        <ZIndex>4</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="FechaCancelacion2">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!FechaCancelacion.Value</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>FechaCancelacion</rd:DefaultName>
-        <Top>2.90104in</Top>
-        <Left>3.30708in</Left>
-        <Height>0.25in</Height>
-        <Width>2.13542in</Width>
-        <ZIndex>7</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -295,7 +218,7 @@
                 <Value>=Parameters!RFCEmisor.Value</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
+                  <FontSize>11.5pt</FontSize>
                 </Style>
               </TextRun>
             </TextRuns>
@@ -303,11 +226,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>RFCEmisor</rd:DefaultName>
-        <Top>3.27802in</Top>
+        <Top>2.52802in</Top>
-        <Left>3.30708in</Left>
+        <Left>2.68208in</Left>
         <Height>0.25in</Height>
         <Width>2.13542in</Width>
-        <ZIndex>8</ZIndex>
+        <ZIndex>5</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -318,144 +241,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox14">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!FolioFiscal.Value</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox14</rd:DefaultName>
-        <Top>9.93538cm</Top>
-        <Left>1.82916cm</Left>
-        <Height>0.6cm</Height>
-        <Width>7.16686cm</Width>
-        <ZIndex>9</ZIndex>
-        <Style>
-          <Border>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox15">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Folio Fiscal</Value>
-                <Style>
-                  <FontFamily>CALIBRI</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox14</rd:DefaultName>
-        <Top>9.33538cm</Top>
-        <Left>1.82916cm</Left>
-        <Height>0.6cm</Height>
-        <Width>7.16686cm</Width>
-        <ZIndex>10</ZIndex>
-        <Style>
-          <Border>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox16">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Cancelado</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox14</rd:DefaultName>
-        <Top>9.93538cm</Top>
-        <Left>8.99602cm</Left>
-        <Height>0.6cm</Height>
-        <Width>7.16686cm</Width>
-        <ZIndex>11</ZIndex>
-        <Style>
-          <Border>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox17">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Estado CFDI</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>10.5pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox14</rd:DefaultName>
-        <Top>9.33538cm</Top>
-        <Left>8.99602cm</Left>
-        <Height>0.6cm</Height>
-        <Width>7.16686cm</Width>
-        <ZIndex>12</ZIndex>
-        <Style>
-          <Border>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
       <Textbox Name="Textbox19">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -463,7 +248,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Acuse de cancelación de CFDI</Value>
+                <Value>=Parameters!Titulo.Value</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
                   <FontSize>14pt</FontSize>
@@ -476,9 +261,255 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>3.05338cm</Top>
-        <Left>7.02946cm</Left>
+        <Left>7.66446cm</Left>
         <Height>0.81167cm</Height>
         <Width>6.38938cm</Width>
+        <ZIndex>6</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox7">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Folio Fiscal:</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox2</rd:DefaultName>
+        <Top>2.15104in</Top>
+        <Left>0.34514in</Left>
+        <Height>0.25in</Height>
+        <Width>1.92708in</Width>
+        <ZIndex>7</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="FechaCancelacion3">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!FolioFiscal.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>FechaCancelacion</rd:DefaultName>
+        <Top>2.15104in</Top>
+        <Left>2.68208in</Left>
+        <Height>0.25in</Height>
+        <Width>3.14376in</Width>
+        <ZIndex>8</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox8">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>RFC Receptor:</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox2</rd:DefaultName>
+        <Top>2.905in</Top>
+        <Left>0.33882in</Left>
+        <Height>0.25in</Height>
+        <Width>1.92708in</Width>
+        <ZIndex>9</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="RFCEmisor2">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!RFCReceptor.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>RFCEmisor</rd:DefaultName>
+        <Top>2.91979in</Top>
+        <Left>2.67576in</Left>
+        <Height>0.25in</Height>
+        <Width>2.13542in</Width>
+        <ZIndex>10</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox9">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Estado CFDI:</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox2</rd:DefaultName>
+        <Top>3.28198in</Top>
+        <Left>0.33882in</Left>
+        <Height>0.25in</Height>
+        <Width>1.92708in</Width>
+        <ZIndex>11</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="RFCEmisor3">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!EstadoCFDI.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>RFCEmisor</rd:DefaultName>
+        <Top>3.28198in</Top>
+        <Left>2.67576in</Left>
+        <Height>0.25in</Height>
+        <Width>2.13542in</Width>
+        <ZIndex>12</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox10">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Estado </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>Cancelación:</Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox2</rd:DefaultName>
+        <Top>3.65896in</Top>
+        <Left>0.33882in</Left>
+        <Height>0.25in</Height>
+        <Width>1.92708in</Width>
         <ZIndex>13</ZIndex>
         <Style>
           <Border>
@@ -490,6 +521,132 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="RFCEmisor4">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!EstadoCancelacion.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>RFCEmisor</rd:DefaultName>
+        <Top>3.65896in</Top>
+        <Left>2.67576in</Left>
+        <Height>0.25in</Height>
+        <Width>2.13542in</Width>
+        <ZIndex>14</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox11">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Mensaje de Error</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>:</Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox2</rd:DefaultName>
+        <Top>4.03594in</Top>
+        <Left>0.33882in</Left>
+        <Height>0.25in</Height>
+        <Width>1.92708in</Width>
+        <ZIndex>15</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="RFCEmisor5">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!MsgError.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>11.5pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>RFCEmisor</rd:DefaultName>
+        <Top>4.03594in</Top>
+        <Left>2.67576in</Left>
+        <Height>0.25in</Height>
+        <Width>2.13542in</Width>
+        <ZIndex>16</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Image Name="Image1">
+        <Source>Embedded</Source>
+        <Value>Logohacienda</Value>
+        <Sizing>FitProportional</Sizing>
+        <Top>2.20345cm</Top>
+        <Left>0.58208cm</Left>
+        <Height>1.69334cm</Height>
+        <Width>5.60104cm</Width>
+        <ZIndex>17</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Image>
     </ReportItems>
     <Height>15.21354cm</Height>
     <Style />
@@ -526,7 +683,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox5</rd:DefaultName>
           <Top>0.14111cm</Top>
-          <Left>4.68627cm</Left>
+          <Left>9.44877cm</Left>
           <Height>0.46771cm</Height>
           <Width>6.92282cm</Width>
           <Style>
@@ -569,18 +726,48 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="RFCReceptor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
     <ReportParameter Name="FolioFiscal">
       <DataType>String</DataType>
       <Nullable>true</Nullable>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="EstadoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstadoCancelacion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MsgError">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
     <ReportParameter Name="SelloCancelacion">
       <DataType>String</DataType>
       <Nullable>true</Nullable>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Titulo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="shcp">
@@ -605,6 +792,69 @@ hRZiawMAwlESrTd49vYclWF3HWJLT2d6hlecfl/mKC5eYrU7CvMRAfXOKK+Kq7FlR1bbpaYuINGHVAEm
 eweTcBxxWv2KXrXtX20gfAcOQ/jxzMo6hulZglzcwN6L+HAVvaqvtWlI8X1PsE+3GanClvTFfGBpwMU/0h7hv3x/V2symby8PMKslnMPCZ1DkUIoxljluyP0fSzDUuMXKlJZYUpA60a7+y9otUI75x6BsDX5Fq/kPbNMTDbRdFmOAAdTQItjBGahLaGfJqTCrlO4z+Pa0Wn9+ESGxdSujOk8RnWzFCpuq8vYBMD7llrNg1MtzbOXOPEtk8ZYTcGoxcjEgJRy/wDcSR3mgd7lWmzkfiTUxXnixylmZtwKsZ0VV0FbeVl2jNOLVqOPPtJxQWv8bdu/AaNvfEHmRsBVhaIs4SnLyeQCkLBbjQbiI0W2QlsWhs4H35CvS0+ZbVV87Vn1iuULoco6BzpqlaD9ZgywCMK2mt5XMQVbFBa1bXpaREm1Jmt7Vnx/VrRPfgIq+JvQimAi8tReiv2NnWarSl6k8lbuFGhPlT+NaxnjWioY8fXX+M1rf2RwGD6jk0Mfbc11M17Zpq5SSNBIytFlns9huwIa+wcHgm3XQ/k1T2fX+sWb17Xp2DSOrPxOa3GNNnR9tW78p5iCxUmiBSLr0vslaqRSGAw2uIxU5oHQrK9xmtWe8yWRgU5OOLmFjS0MXZZK8Pl+ROZrIqJgMst4no4pXUUvYarNyWmShcpYfesV/wAQcO/+E1GSOYf4x4QD80RpH1SypXOnMHph05gVoZs2U7VFpWrQS0WFcsEtcVa95Bzz0R0zcr6+aMHdxrmlnQAKShjyTJzjTTqeb+zwrEoRJ/CbQWIjw8PPtTgNr6ov6+Xun0kctjYBoYa2eOEyLVIto5zekyH7lWjq0oi1TSmJZGUlxyvaJH/Mc2DcOUemR0uVl8fvUzKuCPO70mK0KwJCF/4TeYiK3JH6m8x+piZ7fvgIM5Z+JTKHJ1xKjZY5kLgoB8NF67UAYVqFqcxWSmlRRSjVLUqJewgW8BeZJgdL1Dl1AR1+YleZ2gZm
 hnVY5YnIz1dGq6r7jhbulYjwo4WgwVpdcVZLI/Za5v3asRwGmI9GngA5pZzsfUTA3h5I4S0mhuaGnqZxmb+S5KaGncQhq2qK1SFmSXvSRjj1ki4WFd5ka3gJEFm6mf8AU2845B6o1VC3XCSblOKlWzTag4/UxbxJaf8AjS8dpkNU6Zbe5nsVwQ5jEV/O6rrG0eorZX4Z7Te1e4LDbqe2iWGaKVXsL+glrHvBaC8SBgun/KezcvLWOfOOoHlx87bWlNlvx7a4E9JFGEfE5GLFZ+3S5QEGL69akibEiwZKH//Z</ImageData>
     </EmbeddedImage>
+    <EmbeddedImage Name="Hacienda">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAANQAAABGCAIAAAA7Ei0HAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAC79SURBVHhe7XwHmFzFla7fW3vXSSgjsA0GDA4IJM2MspAMGJAwOC1gY0z04sW7xqyN8YINmCCUUJickyYHTc45dJzuns45Tecw3dM553eqbs9IgoHl89rMfm/75+p23VPnnjpV9d9Tp2738JlUBhmsETLky2DNkCFfBmuGDPkyWDNkyJfBmiFDvgzWDH8l+ZKpVAKfiQP/Q1iRJFLJ5Io0gwxWw18b+a7iFfAwjvmWvsbVWJJBBh+N/wb5iAOBIN9ypENy+EdExgwy+Ej8tctuMpFIxBPwgY5UPJFKwJG8fKBFN8O9DD4Wfw35gFXxRCyejBJRbjnIxVPJWCoZhUrQQcTE5EMkzNAwg9XwycmHCIR4dJlJSb97yWXXGTVclZTsd2v1cs6iXuL3mBbNmlg0jO/IxL8MPhKrkI/gTHoDgS4geEWSyRjEt0QSpXfBgNOolWiEs0Y5Q8WflvHGjComZajequHoZDM8WpeUOxuLRCNBr0mjhPshCCIrKBbGsG24TG9HUMXHg/DhQwfx+fH4JDorAM20Q5A/rIjSaQXkFFeYQnJ0utwHXEd8Xnksf2DgMpyuMI5PuEAI0h/LvfvAcRn4+rIdfEp7iKtWhPjzKiGoLe8E4ZrIldJanz4+KvIhz9JFFO/ixHUiHtEoeCY1TyudZU9V8untatEgj9GjEI2Jmf0qCUnBH5Zw+/nswVQqajeJ2VONKsmwXsUP+N1Empg2iY2lx+MTADgLdxLacBsqw8UVd69uiND5wPFhgBD7sjwraWAxPC7g9PJzuMwepLZCESh81ARiadrhZWWY7RUQQgLpwpWiFYAEewgHUURXRLuEPpbDkVZevrhKQmCljAqJOHq0Vuo+baxGPuQM6le6k1BOpmIx
+WEiDQAMZn2pQMIwL8wYVzaBmGxY4Ro3EsahIpfx+tzUSWDIbZI4lfTTql/Kn5keLBaRqFW+ES2nzOHQr5vEBJ6KFD4IYDEItrYGcQIU0BYkKPJFphVWBTaAb8YHm6UNI28SagLTKB8rLreAiUiacWRESZ6SLq1aOFY20BDSwBAoE0eGAwuVOYR10LOsTBXCe0E/X4gP+EbfDGQFfIjmBtNKHgOVwQsqEzqpqnwo+lnzQH7RkorijljJUQnIq4Y+FHfz5Sb1W5vd6cd8xkimf2xb020N+dzwCGxEk8XudZjWfT+vhkuudRo5Nz1OKqLFYhDCOu0yM3lUAOVqfkQbSAQ00TDBhiD5pt9BBaKKD0Fs2eQVAC3ZA8bQd2ArBg/5BHWh+ed+ElbE14gAZluMD+US0gmzBGfmN6/AwwSDhG7FNLMYHsoPkcDc0jdpKxmPoQNEUuoFO6AOpETfDCZu/2g74CTORbh3rLlfAfyBADkAQgzKuSeNyiXADgWgLaqCzkSuV1wL/BflglKJhp0YxL2MPc8kdChENeh+NBRLJEPY7BJpWq04jYQrnBxfkU2oZSSOb0yt5LqsmGfWBhtthlwomjAscMXNQxOpbNMpCQTeeRgKftPswc7BuX77vaqxM2JXA03QVknFQvBqgATKc54XRaRXAjMLcA1ZtGxxL760+AWBE4yjxvVofsQa5io6P4EMcrZCru3clEEVXKEVYxCc0FCiQXGU8loCnANTTl58+PpJ82GHUW7NWYNDwVYIZJXd80Yg2EIiVqWgw7HdYVR43bCrYGk6vnNmr5PRrhEMawZCCO6gTTalFs/oFRjjogqBj1kqZpEu+JYmA0WfUCnA8Qk1d2XMYGvwkp9xGiJJyM19p5inNApWZrzILlDFfCDmUTAbsLgNbZiHk+NDxpQGv/0pLhC04+6yOhRGatGmEXNm+KNeuyl2QrcyqQ20WXhpj59czz9fMV1xamJrzO+BRQUjEExG33yCQI5cE
+KhOcuSoDRwY7foh6IX/QKFCAM0iOD/DQypUtzvFsdIGZxF4YoYh7J4JuTzwZ99ucRgZ/kS6w0vg6hiAZQYRZjrtJ36Iz3UEhHGoTVw6eA6ni4ZhRrDLBsAjUlnmphcIxjNHUvdPyngn9DNOm0MbRnhAB7KRLuLtwQrxLJqORiJ46r2gfYVS2SyYoUBNNxtCIrxFWIR9eIghvI4tmqYDWJaIPqOW0gEcf8i467HrQCbmssrleJX9SJpjS8kf1EhIcclafaK5bIxg1SSdVnAGjYoZJblQIpyIoWUxZzVI2qZNHapXyR3VqWSIGTcTjaE2/DGIYBl7Pe+ma7SdvOFB406FzNx86vmX3K7ceNHJluDJFre34/brbz2/bn3vzXRduuevUtr0vb8sRDc0QtRCHEMHQqoYuR/6Se/Kftleu3338c7eNvXYWJEiMVkAUf+ACBj+CI4pdrR964e3cm46c+NxtJ/7h1nf+8VsnPvvtc1v2Vu7+ydCrZ1wmC+hIJ6l/3rr7+HV7L9xy+MI3Dp3fduDF9XeMlzVAlYzOfuWre05u3VNw0+G8mw+fuuHgm1tz3t6ac2b9rnc37Ty1Javo+v3vfvFbvNYBUCZXtf3x89/M3bKn+GuHTm/NFrT2gRBYQMTWmaL6P3759nev21Nw8115Nx748/rt5w89Gg0Gvbalt3cePb4hK+/rh4tuOJj71d0n1m0/88Xtx7/8nRNf+k7edfub7nuCWlYXDqBFCe0kYB4R61A34fEAyxoq68y27NL1Wee+vKNg/w9j+IlNR4G1wIfJBxMSBa/BJadtgUNqt2qpkvlBv99uULEZYw1mg8TrMnNJHcqZKsV8r4o7OD9QpBVNq3mjJsmYfL5PyR3SCcdUrB4Vd8Sm46h4wwrhdMBnA9NOi1LGmYCl2GaWpuKheDwRu5p8AGg3YHVIuyYbs3/cuHVPybW7J145beQIYfTh6YfpCTs86kla09Gnq7fuqdmyu/epVwwUTtjt
+g2cFbifIh9YeKEci9fc+WbbtQPUtR6qv21d14NGwDz0GOL5gxiXQdzMA9Si56I5jJ/5xe3n2Dyf/dJpd28ap7SC/kVu9+yc1m/YBccn5F0Et4gsaqZzun71UtXVP+bacrmPPL4zSAw5XLBUPB4ImBq/vmVeqN+fUbN3d+fDzgs5hYdeoqGuY2zMy8fv3yq7dW7w1W94/DXaCTre8c7TuyGNV1+2v27K3ZMcDLrUB5JB9Qg+hVk9m9v3rGzWb91TeeJB6ocohVkEmDemyXaScffVsxbZ99dftr9/5ILuggd8xxGnroZ8qbf3+87nAxXXba37wvE+DHhVILlEPYSCIDBVofbI4b8OO2lvubvjad4uu3asYQ0/s/yjyITpAjI+FvUH/os0kENE6zToeyDmkHgmlMeBYEM8PCmZq5DM1alavZr5Pz7hk4PcKZhqV891SVpeY1q7i9IrJTSruhFpAVbA6ZMwmCXsQ9h9gRKeRGpRcnXx2QcUkyITbvAp4w5Iaf+EvZRuzirbu0dG4cAlpFyReEB4I0M5XlazbWbY+m13fRUjQM45r4ZOwAEvM+fXZQ8/+eeS3b5Vuzs7fskc+OIsV8EIL6ljfJpDn3nq48Au3N/3oBVimkWgZzIuXyq7ZVbExR9I1jq4xU6WdIwWbc4qu2TFzvBAuoS3YRhB+yQenC8HnjbumX3sfC9Iws0W5W/cW3nq3XaGBS0KZdq4q/5qs+pvvLt2Y1fLYb5IR/CZ1eUDsPEXBlv2Vd34fHja4REknvs+tMebddKR0856GH72AFdOAnJBe2lJ67cHyL+xseOhfwl4/djZtDT5ioXDdd39efvsDjDMVFV89Ur0uZ/A3b6br1girkA+SEjiHAi7GdIdwrlfKnYpHUMDQKlha9rBOMC5jtSsYjZyZBigr6d2CqTo5tUnJbFexunhTtUpGu47XKwLy8QYVrB45rVEyUymYqRPM9Uej/mg8blBQKcOVXrc2GHQlgU4fePTw
+1g0w8pt3CzdnlV5/UE9G5INZATnmDAL1bHXxuqziTTm8pl50TVQQdRAdcWn61bMnPnObrG/KSGIVbcypWJfdg4cbsivUKI4HQJvun75Uvm5HyQ0HzHQ+1BLuEJaMdHbhtXsKv3rAyEOLPhGlpV2jJZv3lq/bNX28BC7RHCPWoCrlMKkUqjZkT712Di6RfSz3W+25dz5UfOCRkDeArrEhUlFj7vrs2q8crP764YL1u2hnKlANeIbDlFmqLty6v27Xw37rIjiDZFgO+d+5W++uWb/n0qMv4k6g/gIvI6gy1ffrN8o3ZZ9bt32urAld485gF1JaEvPsF+/oeeoVWCVq9z1St2Fv2Z3HPFa0Iq0VVs35EiGfG3YI3iWJlDMaDixBFyGG+32LZrVELpxhjJVIZmucNonTxBVONypYXSpWh5bbI6e38acvismNC/OdwtkG9XybaLZMOFMrnKrmDRexR4vUIhLYt1l4KsG0WjApYo/h/JJolJjuyxj/jxNFm7LybjyooXPgEo/8Milg5s5X5UGM2ZzDacHkAzk+MBVQkAjZPdU7f1D4jXvddmc8EL6495GKTTlFdxz1ai0EVYgWDTRu7tf2VW3K6Xrk30GKFj5oCVUjqwGjvSD7h6XZP4os4vCDhZKOkYKt+/I2ZE2eKEXXgOUgqhijlm/ZV7Uua/oveViMTIGxSDKxpDU59WYU7Il0M5WaKms+syGr556ni245UveVw/nX7ZMOTYEcng04LyoWSq472LznR1GnE66RfRz67Fpj4bcfqPlyTgcEy3QT4FeceGINJHbejftrN+TUP/RL9PU7kiEHACOvnDrxf7/Bqe2E8tjr54vXZ1/YnCWs68GVa4NVyAdYMi3wKb0q0aRGPpeCOILnPooJEA2HNII+ascpm0mq4Q2JJ8vl9FbJdC1/ul7N7tVxemXkJhmlWcPpU5AbhOMlvKka3mSlaCRPNFLIHCryORfi8bhFL+COl2pFkz6fCzd4FYhx
+nHj5RMmGnaVfOWDmSrD4Kszl1+Wv31myOYff1A2X6f0dfidJ5HGirvET//itzmdfgTJg/C/n8zbvgBFnV16CS2KCAXPvVxRs2pG7JZt5pgYuMfHQb3SIyY7Hkw6NeVGljUIeAtV4GiGNK9i6u/CaHeNnEPlwu+ndpXycUrxtb8n6nbMni7HgKoAO+rIklSCygtnCxrc+e6u4tmvqrdzCDbuqr91XdOdRtwK9iofGnUpj/tfvrj30aMzpRdogwnHOoTWW3P5A5bpdbT99Md0HWD5w9APTEY+/5q5HazbuLfv2A26NAfuGVAJLrrJdD5fcfNijMsKljsbJv/5AxYbsjp+9RCisCVYjXzJuWmA4jUKjguddsug1c1J2j8dlBeJ53SYRc4oxXK6Vkh02lYzarKA3SOba9YI+CHi8mYtabodwBoJfm4zcAkmhYLxKTGtWcfsllHrxbBNjoIBD6YSE0ueycsn1Yla3064hdtao2XTrmAJAl5dPlm7IqvzaQdb7VeqBaVX3uKpnVNU7pholqUjMiV+/U7l5d+HmHGEDenbBAppV/EnY6X7uP09/9lvpRRkWHRa/6Kt31a7b2/zP/wab7OVGUt0v/Klqw66iLbvll0bRNVSgPXiayuiMZVFkOe2hqHu4ZPOe0i/vnDpTjmpRRbpOOUouvnYvODb0zCvKvilxfQ+nrJnyfoVyggprB8rnkBphBna1jW//n5sF9T2JSLTp2DNlm7LLN+a0PPR81B8EDY9usfC2+2uPPJ7whbB6ugnHgrHw9vsguHY8+iKWA8Bb1G0ioLY+8mIlrAlfP6hj4iwC94HfPvDuF77d88QfkAT6Ho5cPPZM9ca9Bd844hCpQIgWIDwNaec+FaxKvoRSMMUjdfAZ/fGY32nTied65ikdFr1Ywp6ZG6vSSdCWTS2iwHqqZraIqc28sUrRRDlkeybhqGKuXc1q5U/VKJidC7zBBdmUVjyj4Ayq2f1SRtPcZFXIsxj0OVQS
+ypKFr+RT47EI9Boh3Xp6AIZfOVWyKbvhpiOnNu96+0vb3/3i9ne+uP3tL29/a932t9bfeeH6/Q033Z2/JYdfjxcOxDscV3DG5Fwww1pW8537w1dsINp/+G8Vm/YW3niXhYdCKUG+ml/8tnxzdjGQrw+24cgIah5PdDpsoInFAoKJqZS4e7hoy57idTunT6MsDbeMPUY5H7ngun3NX78bzq+v2/7e57e//YXb//MzX2l+4c9Qu2ybKMGyC+S7iV3WCuUltbZ4x9Hqaw/kXZM19B/vgcRntRXddl/TkZ+nQiidW2nCoTEV3H4/Jt9vlqXgAOY1vmj9xe9LNt9ZcON+zZwALoko2/3Ef5z6/DelLcP4CoFV1FC+Pqds3U7aKSLXxJ0k9sXppv7uWIV8gYDHrOX7bTKlghqN43cTqaReNsOl9LHHmvVSvO+D8TIIOKMVSloDe7SMO1Ism6lRUVr5ExcVjA6dcFjFG1aJpvRykpA1qBZNCqmXJNQ2ObNTLST7Xa5YNKyUkIRzl0wKKgRCgnkrXSYKE78/WbZ+V/XXDs2/V6HsnVJ2jCq7x5VDJJhg5eTc8L+/XbJ1N+R8Ikw+IAaiwPI7BXphQ8E1O6u/eU/N479ufPr3rU/8rumZlytyflB33YFSSMhOoDWRaKXlhT+Vbcwu3JQlakAxEtlB/6FP+EfEEgJIH98j6UTkK7wmTT70ZjgdX9KRr3zr7oFfvaaYYagGZlWd4+KabgtHAqaIfhKuAqZLG9/5zI20/Fp8K+SLlNzrDzZed+j8xix2fXfEEyi47d7mw4+nQmHoFPIK4yPJR9QnUg0PP1+yZVfJzYfMHCkWpGwSdckt3625bn/NsWcan/p90y9+V/fs7xqPPld9/cHK6/bV3POLaJB4A4UOtHCkm/q7YxXyOSxq1kSTgNy0IKUQT04k6JXPD5sXaOzRYpuW5vW5l+xmt10ppHVIqM0iaqOS0WzkdkkmK+aHLmjmu506sV4tUnAn
+JMxui3xyQTCsl4xqBCPy+R69fM6If2e1IGXCVppN6vI47XCJJhA1jorEx8yLx8s37Dx34z4TV0xIrgQj/+L5DXcWb8oW45QZzT2RrMFnNNp29FmgZu32o8U7Hizc+VDZzocrdv+47fATTTfec3Hrgeojj0f8eNcJideJkrJ1u4o3Zo2/jvanRAAhcj5YySCUeu1Ldo0u5guhPTKmmBTItxWRb+o0WnYJZhCkB/KVXLuvcMPOmfcKsCANfF8ayENcmCltPP6Zr9Pzq6FM3D+XW5+7YWflDYfOffMeWeNQ3e4fX7z7Z6ngVeSzq/V53/7eh8lHxHy/eQm2WbWbd1dlPxxaSn83Qz1fcX79jprb7i/f9f2SOx8sznqoOOvhhiM/r9nxUNWNd+Vt26eepCE9wtryNHwK+DD5kuGI02XXL5kVS1Z9JObTamWxsFvE6NdJJmXsbv5cp0JEEbOn5fypJeO8hNIipzeLSXXi2SrhZKmEVK/n9Qlp3cl4MOB1sMaqZfQuzliZYu6ShNIkZ7bLuD0LKhaM/6JhYUHCCrr04SB6P4yDQhrE3Az85s28LTvzbtgP2TFcQu3KAaCcq7ywaWfpxmwi8iF5Av3qEMraWSYsx0XfusfGFMVcvqjLF3b7E/5wyhuuffSFii27c6/dKxtEmQNgYYyWv2V39bb95Xc9GnEhRoIjEMwQGXBLfb9+4y/X5/A7RqBMvISTdY0Ubd1beM0ugnzgLcwa4RWYLbh2T9GmXbNvXEDXaClLf8pJzOGz5TaFBiTYTGqmrOn4Z25knK9CCsS7yXiq91d/LtqYVfmVg3V3PFRz6721Dz+TiiLtFfJZ5Jqzt363Zn1O52MvLkvB5fRbQHXXOGzCyq/J6vnla6gGgkcocPG+x8988Q7mudqY0xN1uiJeb8ztS0Vi9OKGwk05FddkD774NqGMIn26nU8Dq0Q+3HrcpBME/YF4MsJl9qokk2GfQ8IY06ooniXYbLRIqc3y+X4x
+o0tGbuAPFXEGCyHVk9M7tdxeKbVJSGu3myTxRMRmlkg5E9T+AgW9RUauklEu8qmNZj0XkuNEPOx16PwuHSy7xLvmlV4T5Bv89zcKN+0ov/6AkYYTZ+JYngTqmfL8jTtLN+WImtF3U2jyIXnElcMvvfv+Z29tf/y3WBEBmETYpNW2FK3fWbYhp+t5NDcgjAcj9ceertiUU7Jx9/Q7ZVgLy3EhFgxX7P1h/me/yS5qgUvitZCofQAvu7tmTqLdLvaHcCol6pvI35INm/SZt9CrFgCYIppueurl339mE6sKZXjAFACOfDdRTuKXhclEFL+BiSx5Lh76WcWWnKqvHa7amFP/o+fANqivkM+qQOSr3ZDTAeRbaRh/JoKxhgehL1nnt+3VTMETjqAZm8nfvKv4G/c51CZCQvgDNzi1xrJbv1e7dV/F9mNe0yIIwYNlg58GriIfEX2i4bCaO9hf/VuDlA7+GOQz87P14aB7ySDXiklLC0LuYBF7+H0lu11IbdOyuxW0RjWzXUq9JKe1CsZLJeQ6AaVNzR8WUrs8DthJhRbkTM5MNXcoTzCULyR1eByLiURQND8+P1JE6c+1mWREy/AfWj6We9/37B/LNmaVbNqtncCLAihBXfrVVWrunbyiDTshV2NVNhOSZAwRxm+0ld1+9Pw1O/gX0SsYJI/jrBK/f4lY7LAW12w9UHzbve4F9NIBoJtmXrj+QNs1+4q37e9/55xDYyCoFwsE+W0DeTfflfelO5m56AtcAuz6S9Bu2bqsqT+jL4sByzvslLBrtAB26Btzxl86TkgIJHyRssOPFf7T7dyStLeAuXNVp/7vLYN/eCd9nYJdNnLSxBLn3nKk+vpDDZt2tz70HAwKuAMPKMRjqHUJlAU3Hqrcsrfh2C9TIYJICIElZ9+/vQ7boPNfvnP6rcuLfs+/vJr/uW/3PfXH9DWmcvrZSqV6/+XVkq05JRuy5svSjsVw6vLpYBXyWQ0Kes+pufZXdVL0
+ZVQiHlWyR+cnKpTCQaV4Ssbo0YrGlfwhKa2DN9YgHK2QzpYrWU1SaiN35IJ47IJ0tk7JHlLPt/BHCoTTjUY1J5mM2YxcwVSrcKyYOlLscS2mkgHOTJNs+Byz812bno2bRsOSQH1PSWcYnb9+o+Lmu2vX5xRuzKnd+8/jJ4rcVnsUf1Vu4EhGXnqv7jtHyzdkVW3Irv7OAyOvn19UG2DDNlvWWHPkccjhyjbtaT76y5kTJQ6dEX2nDpE2Hmd0DvY/96eqG46Ubt1TuW7XxUM/JRXUhXxoqRX1T+Xf/r3CL23P+/ztVbfd3/7Q850/+XXTwcfyN+WcX7cj95v36EjIyUWlbvz13IrdP4Kmq9fvKbv5nr6X3tayBeC9XW8Z+Utu9b5HqtdlX9ywp/Kmu+t/+pu+X73Z9+I7zb/8I2T3pdv25/3DNzklKPJZpMqhP56uuvOhsvVZFTccGXjqVWpZc8DphdEnWMyu7Hh/c1bBF7dX3fNzIAqalngy6PaS8y823/ds4eY91Zv2VV53uOX7zw+9/C7pT2d7f/Wn/D0Pn/jcNwquPzD9XhERWaVj9PYnX87dtq9iXVbdjocHXn5PPDMHcqIVDVc0+p9n6nJ+Uroxp3zj7pJb7u39wwmDRIlyjpUA8HfGB8iHzgviGUbvSUbXcc+iFOgYCbtE1C6TfFY8P8ij9nicWq/TsGTVRgIOp0koojZLaU0SWpdWNCljdOnnBxfYYwbprJTSKJmoEk9WCqarVfxpj0VlkbNV3D76cLHDro1GvVLmJcqld/ljRUEvCvi4vyiywcfouYqzO481f+/J3u89XffQs7VHfnbuyCMWyQJyLpVitQ5e2H6s9e4nG7//TOuxp9sPP35m9/flFFYyGi9+5PmqvT9ufeDJlmNP1Rx+LHf3D4x0Phpr4HU8Uf+vr1Xd8YPm+59pevCZ1qNPlxz65/IfPBd0uIkJt6oX+l4/ffHQ48U33nNuc/aZLdmFt3y38XtPjr+b
+Z5ejN2GwJKnI7OJdP2r47hOXHni66cFnW+596sIdx2gXO2GuF+bFeTk/bDj80+YHn2r8/pPN9/2i7sBjtfseqTjwSNXBRxoPPtZx39Nlh34iHpwEU9yesfd3Plh/71PND/6y+XvPVO5+JPfoUy688AHQbzwTqaE/nCzd84P+P56EhmP4CzSvxZF39Knq/Y81H32284HnWo48UbTzwfO33Z1305GCW++pvuunIy+f1DPR6xWcuiWHTpac23W0+f4nWx98uu2eJ87dcf9oHtqeE/2lN/Xkbj/WcveTbUefaz72y9bvPnV+10O8cfzdN/Fri78/Phj5ACGvQzLbJZy6KObOhCL+SMg7T2pbEI6ZNRwpY9yuYhpkkyxyRzBohVv8IS+QJhryQQ5n0yMuiigN4rlOFatfPlMjmS4UTBSDKclcr1HNWrJKOaROn8cOtGWO1Qpm6+XM3hT6cRUmH+Yf+oBTJJ4MR1NhSIRikBqnouhnZyiEoVepEABjqVAMfRMfi8LeFv00GDuPFq5QJBUJJyH9i0UhC0SGEfWwYRjTMCSxcMC9UYjoEA9RDVGLEQ4GbTKtZV5sEUghaiaiaB4BYIT4VRIQIQL/xcKpSATcA99QFXgPlRC1o6gqiQ5wIwqXKShEQQ0dyRh0A2UA6AD3QtFkBPThDPzC37kQXcevGICA8Qj6bgniEHiI0k2kkMCmIlAXDQb8TpfXaveabF6LPQH+YKC8baVXoIycxN4SCnhng1ZwcBuahiOOzmjcwuhWlNkQu/q/P1aJfBaDgjpUJSbXqaQTKNynUt4lPXuyQc7uWRAMqziDWglJwJj2mOUSZp9KOGXRCiMhRyIRWzIqZfRGIaVKJxn3WqUKZpeYUqeg98qYnXJOv1pGSiVDCzJePB6KBq0OLc0kmzaqhCgnI2Yfjz4e4zRgMJaTE1zAClcODJTT2mgwr1a+AnCZbgIjTSgCeJdIHMu2LgMERBPoID6ukBNAMpwnLVd+EFCF
+ZhWX4YwehmUQRuA6tNwQuIp0sBxAFD4s/yik1w50Q1oXml5xFQG5ClWotavky0Cr7n/dzt8GV5GPQDIV8jmVyrlus2LWZV+IQ4RIpiJBv99r4pAvqYVTJjXTruMIKV0KzrDDJBFRh+ScQfpMHZ/SJJuu4A6en+k6xRku0Elm4C63Vet1aBIR36KeqxTQHTZTJGBhDhQyus4pWe3hoAfmAr1XI8YEDw6UMJfwCC0f8NgSg4WmAWujG4g6fAI5GnAsQzeCDuYE1iRsojJ6rFExXUXMKr4PzwYuoWrCaLoKvXlJEwj+QWaK28K3pnVQLVYFEH6mL7HN5Rp0CwQeIswTQuQOCmyXddCZKGEQgwM3EmahgNpdVoUC4TVxSSihTyLg4+/c0p7jM/YTlJBN1DROKAnjUEsoEA19CliFfACDjElqeZPbd2K2Lz+V8CLnEhGHRepcVOkVc2xyq146zpxutBiYSxa+XS+yKhk6wQRnrHim65yWO6ATk/mTDbS+C3L+JJvVL+EPq0U01nSdWjQGltS8YVbHm7zeM7Mdp9x29CNKNCB4pAAwEXgRgimBRRStNmi/CgkdkqBqvGqABFIj+IQhBH20euLRjoKj+BY0sDFMP1yFa9H9cAMskrAxhmUOzTg0hNcgpID08WxgA0iI5wJswvzg2UJq2AxahNH/sQFWbjCIFJBBogHwES3R6O0Jah0bQl4hGTiOHEJbV3Qb5AnoFtAg1jq83UXm8NYKRGAEu4eyDqiCSjCIWktE8PJNAI0NqoIVFLWHFJDTxMYBnaFrYAvZRhJkAo0gkZQgBWIg0R1Qi6yjT+QX2vsmU2FQQo3/rbEq+ZL+Jf1w1e/Eg+fpPWctBjb6f1/EIlxKj4I/47AuRAJ2WHzVvBHWZAuf3CZnDskYA0Jqm5zTEQjobWZZ2G00yWliUtX8SNECb8hp5vHI7VYNJxLyg3UxrY0/8Daj8z0eqRXPItEoBhoOaA2mFYD+0AtXwtjEcF6F
+xiUKIwSfeOBgrUejhMcP8RUPbpQYKqQeQfONCRFPhJOQFkWC+OfTaOghmqARx+ON1EGA3vPgBpHlKJpbZCyCG4TnASwgs+ATJKR4TmFyEF+QX/APfaAHBsI0agNFnWV7qFcgAylqGp5kSPowvdDcwn+wlwWbcfRXGHBDIo4eNmQ3moQ0EVqNxeJBSHERTeAOqInDs4fCIdFBJASXkugXCcmkHxlIkxIAjcci6NfpyXDEH4f+Y5eQI8gO3B6BtqChVAJSbGJAoBJGI4ycg/vjaLTQYPytsdqyi37gGV3UMhi958XjhazxmiU7eiUGcxNw6SXkHp1kWsYd0kuZ0aDLYZHpZFytjK4Q9DmtPLNWyGeOsSZr52fr+awO7kytgdkjo7SwyPUBvxmMSHg09mwzb7KMT2r1uXRo4K/oFB4yEEX8LmPI50KUDzr8TnMYszYcsAR8hhjQIuz1uc34/6EQiQcdPrc+EvIEAu6o1+rz2EIwDbFgAg7Er6Dfo4kHl+B2vUqg1vERKyAHh4mEAt5ZRiIOn8uQTPjhOhYOBlzWoMcG5INwEY+Go7FAHPYm0SCaFlTypikYcfpcC7DliUWi0YQ/Fg8E3Yt+z2I8Hk7G0Y+gopFAIhGKBzx+52IyTvxdRSwOQvR0obmNBfyxGPrFStTvQjELyJdKBbz2oM8Jm6ww9MhlTCaCMB4+p05AaQu77Kg7Ph0MO9wFu5d4OBwOLoW9SwGvGR5PsOlz6JMJ1Do4GYctRsQc8JhR2I6h/7eJSDQb9FugV6GALeAxQcvor5KiXnjakUrEjYJxKulz6WMBLzAzEQn4nAbwHEk/LfJByEEtLmqo7L6zjIECt1UInkGVeUEgJHVpFXS7Weyy6E0L8wJmt0ZCtqh4Ks6QRjzKnWlik1rVgmGYJZ2aJZq7JCO3imZbg35rIhny2FR+h1RC74aQ6XfDgovWgit7RRRl7GlKf75WTAm5TaSuPO50q3NRZ9EJZ/vP08YafQ6b
+cLaZNVbGm2kP+QzUvhLWVLNZL9fJqJS699iT1fGElzfdypxF30koRCRK//vs0Wq/Tcslt9nMApg1ameeXoh/w4Ke/Ch1pJI2XEEfqw4HnAJ6B2WgRM6nJJPo/Z9BPS9mDwfdGu5sG1xaFdTpjhOplMfnMFEGS8gDRVajUMoZX9RR1YIecv95GXsm5LZNdZ91mJjcmUtBj2p+rIQ0fHFu7GLYb0uEXTMtx606EW465TBJ52dajSqyaK4HXSdTWgVtpq+UNtnu85lY43XckTIBpSXk1ZG68zkz9R67ViWdne0tpg1etGgYiyauiNFj1tEn247TRst9Hg2sQvS+UvJkXTjkBWvAzbnRivmxatlcr9Mg5JK63W49h9TutymovQWM8Rrl/JDHoWFSemBMQkEHa6YjFrFzSW2Qa0nmR/xeC2O0kj5wXkRtQd+/XJ6lvxlWX3aB6QCLXsycqFfNtdK73p+frA2HnF6n2bGo9nktcglZr+IlY24hdzzoMQpZQ9L5cbVo2mtT2w1SGQuISFVxe9ScISGtEz05iYSSOSKZreNPNXjMXL2G7/VY0IpzdZ+IqwXRNHvoLDDYb5fNNr0ppTeFfNbJgXynkYl0on7mUL6MUkXrOeldkpDb3xKQWnxuC0SWuYFSz5IU/Jltfnuq+d1Y0CzlDLFHL9AHLtgWaPNTNQ6T2KbnTja+SOs7GY8GoLVQ1MfozU9FXKLZFhl/VEKuoPbmm7UsWKOgLbOSPtL8Dn0wlzdcDHGCPZA/XfefVu2cjDUipndD3E0mQuzZLqucqZhrJ3W/blGxE17naNPLM22v0luPh5wG1kBJKmETz15Ucscs0tnJqpe4Y+WwmkNCAD3hk+oma14Luox4wKOzbaf9Nj44lYg6mV15CnITtfeC184hN78rpneEQotSRptZPB5ckk/1F5lVdM5YM/SaO1bs1LFdFjm5E/02gjVaviAiQyEe8bG68iT0BlL/OasKliN4uhapAxV+E2+u
+7S3ueIloosKzKKFP1INyJLDIHGmya3mznach/oJARu/hzYL9JLntpNuG/mTxb45VyIfSjmQIFok4Tu513CFay2v0zlPUYfQVOAAoyKf2qLjTRjVPwpkEAdCOQ2lekKI3qG6bTied0vMGGEOlNg0jHoMVM6kTT853neD0nKZ1n+STV/7kBz2fUEtcAggumjRc5kjxUOcFp1U2Xf/e3EQ5RCwZr58+VMSldvu9Ks5IJQQDxnBtJOSebXp9bqjYoEN/Y0HpL3Mv6SW0Dt5AHre/UMUekAumZztOjnfkwVadMdG4qOHOjdXxSTVTHblaCXrdH024pzve407Xkfvyluwi/kwVqf20lD0Wx38UoZfT5sarrRo6d7zeauSOdVyQzjZTB0vNGiapt5hLbnVYVFxap0U5p5zrmmx9V8Qc8dlN9NFSLX+kr/r1kNc025PHm6olD+Va9DRyX4GY0jrdespqkBB9NqlZzAH0BXEYZYohMaWDNlzNZfR5PUZGTxGlN5821RD2G6eb3mBMVNssCzLOAKnzzPxIhYw/ZFEz2SPo+5K5sRrLAjsS9FJ6L3DJ7TP95z1LKhjUaDRA6jwnmOv1uheDLtNsVwF9rAwuA3b1eOPbrNHi+aFKWIuGW0/zmX1LFilj9GLYiyI6k9SsEpKWtFJSzwUOtZE2VAKB8fIk/e2wKvmABRGUlKDIlIJIxhp6XzqZD8/9ooK1tKiLRbxu+yL01r6opJEvmQ18j10p5wzJWQNum1LMHZ5ndC4aeBoFw764EInHubQe/kTRXPvbrJ4zjOFSm56Pcm6UI0NLHyQfCN0Oq05C97o0iXjIphHplHS3Cz15ZhVPq2ZGY0GfHfIY35LVEIr4HXqeXspw2g2QX7ts+lAkbF9UQ7IMOwynbcHrtMYCS3632edb9DmMIY/duahE3fO7PIv4D8mSsSWTTCOd8Syh3697Fs0mxZxVK4DsDnLxoNfhhQQo5vXazZ4lrc8HuWPcaZIl4gGn
+VbUgIYWCPo/LFArYg26rUcE2aviRoNtp08LGw7WkjkU8S2a5TkzzuAzxaMRpRr0IuPX+JUhCUG4T8nk9Sya8L8b721jcoJzXL3CjMb/XrkzFA7ZFXTgcWNLx9DKq12aDdNAgo1sXIHmIh/yLHpsOjLiXtMEg+iOjoMeqEU66XfirILRnibrtqIzHN+62KnXSWcjwYpA7a3gGJT3otcRjAbOGp5NTg94ljx0GJBH221UiCvQO7nLZ5BrxbCjs/PRyvhVgKqD0mEvvEc3WSiYq6B3HmeMQ/9K7UeRr0KuR8TQSChxaBUMtIdvNymgMFBJOi0QjZkCGLmJ0qelNUkoLh9LhsimAcMTPWPCwECv8ZVzZySv7u1L+qEG48saPxyexgHq+mh4h+6QtfQgrJq+0jwpXXAKuKK6OlXriCQZcfTvGslb6ahmXSx/CVWofUf4b4uPIBxRZ2RBEAg72TANz/LyG26LnT8Aegj1WqeZPw2MEKSIEwbBvKeCyRUOwEUuGfVZYGefb35rvOS2d67MZBCzYcwTQDgOZJbbuuImPG4kM/n/Hfx35EFB8SizZzHoFizJQNtdzSjJVLp4q447lTfecZoyVcMeLhZRWHuUSf/ainHVpovk9etubypH3ud1/YYznB/02x6IlEvEhziHaIYPpF1T/88iHupvBp4KPI99loDfkaKmNR6Ieh36e0krtOzvXd5Y2kKfm9KmZnfyJYvVck5ZxSUxt0opG5ew+Ru/7872nOROVYvZQwEv8njuK9zJwAPMg1YMD5RK4KoP/jfiE5IMDMjzgH+JKIhlz2ZUOk8hikMWjATF9nDVcyRkuYY9Uzo1cFHHRPn9RIzEoGAE/+vsMfBemGn5BjyUEMBUz+N+KT0Q+zBEIV+jLLrxNTctBnEgG3S6jxSgI+UxGjcBuEsIuDEXKFaAvcdBLa7yaRdA2BZtLHxn8L8Yni3wfApEKYnxwuwogmEZQC+V4GZZlsBr+SvKtIM3Aq5P0
+tCiTuWfwsfjvki+DDP5qZMiXwZohQ74M1gwZ8mWwZsiQL4M1Q4Z8GawZMuTLYM2QIV8Ga4YM+TJYM2TIl8GaIUO+DNYMGfJlsGbIkC+DNUOGfBmsGTLky2DNkCFfBmuGDPkyWDNkyJfBmiFDvgzWCKnU/wPjZ1Si7lpYNgAAAABJRU5ErkJggg==</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="Logohacienda">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAA0cAAADcCAYAAAC789qeAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAcmxJREFUeNrsvUt24koTLRz1rdM/nBGUPALjEViMwND9O4b2bQAjwIwAaNw2uPN3wSOwPALLI7BqBMUZwbkEtcMZpAXoxcuOvRbLWEj5Uj5iZ0RGEBkMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGA6CH9YE3wPP//f/q6/+1Ph74//8/5G1iMFgMBgMBoPBYOTokglOsPrTxr+36qfl6vOy+sxWxGfpPcOEaL76hOpysvq0VvfGW/IIjEAZDAaDwWAwGIwcGc6FCIUgNNerD2t9JqvPYvXprj493DbE33smNGmkZ5XOK57vrK7PQH7muL/h3TtV5IvTeuS//Jy9EYPBYDAYDAbDV8df1gRnQYRqIEJ3/HdFRq5AeEKQmPHq2hi391f3r8nR6toDrj0oYsN/b5BuD8RoJgRn9TdZXe/zz6vPgMkU7m3j+RlI1xS/d+wNGQwGg8FgMBi+A/5nTXAWGOHTFrKyIjEdcpqhmnd/4ieA+/l6
+fUV0mrh8j79P3r0RvjbVZTHTe2QCJeVIy8tgMBgMBoPBYDByZCgFNmljbc7q8wxNjSY2jRQiJCZv9TRyBCcLGguP6MjvUUpxIqQRevneoUzLLc+l1YvrNFVpGQwGg8FgMBgMRo4MqeRBNDT8V8zlpjCFE4KUgNzcqWvbyBGlECnGi9yviZPvpGELRLvUU8TtMYtjBpj8cX7PYvJnMBgMBoPBYDAYOTJoUtRefd5XXwesNWISsfrweaAEt7ShRaopgtL0komQVqiuxVuyXOYoXt0jODOVLhO3ZlZHDCh/sIWwGQwGg8FgMBgMRo6+OTFi8nEPshBBMyRYKCLDpOcZ9/P1wDOXS9Me/aue1RBiskxz073lXn1fwyNIWYlOcxcpgjlhYL3CYDAYDAaDwWDk6PsQorWmCFqiePVhssFOFdoe0XgCmWiAJK1N0vA3pk3t0Rv+Xmcogpw1etHExz+bpMz8uIxL1l6tmdEf87sWysTla2es+oC2aK2QN7sT53aZ27kkg8FgMBgMBoORo69Ninown+MzRAutJcJ5HCYOPXUtUgTkCiSmBoLEuFPJp2mO4i0kpId0Z7g8UeRFo4u/4g0vFM0Oyi7P1zLUnYkWPyvOIBL1W4A61dRvNfWbwWAwGAwGg8Fg5OiLgQnJI743U35nEtL1tEdr5wvQ1jQUIWGSU1dkJY0ciZbmjjUxqw+7AX/F9YY4YMCZIf404U2uCS1RSH9iHy1Umu0t9dqHLvIINDlCXeeKGLFpYZ/zFG2SOW8wGAwGg8FgMJwTflgTVAdoj5gkdHxnBvhtKNehcZmu/v9H3fNATsvTl8CvitDw/79ASAKVfER/tEkT72yTpMvE515dmggxAgl7VySOCdEIf692ebpTz7L2a4oyyrkl0YIFIEgbbcImdiCSEeoaWw8yGAwGg8FgMJwSf1kTVIohSAITnJn320RfhwZFvMItcO1h9X8CcsKmdWO4+2bSkYBoMDniuEhxRhfdWoOU
+BjlnRCBdnNcCRG5f+lyftbOJVTnlmjYPnKA9Eo8YhbSpYWMtEuf3YF3IYDAYDAaDwWDk6AuACcBKyGfCwN7Z2p72iL8PvOsRSNDCS4O1KHNFMPpZiVCBMi9V/ousz0Fr1FbESsznROvU8OqgIfGdhiCEnM5o9Ze1Wy3TIhkMBoPBYDAYTgE7c1Q9xMnBYAsJuVWXE3KxjnTQVtYKXanvy3Oq4Kqsa+9zKJ8QqroiSR38DWnTQYSYDjKxSkRTBLLYwfXAupDBYDAYDAaDwcjRGYKFeZi2ZQIEfSY9ATQiGr9E+MdvbRCHyYVpSxogMwmcQQjEIUSsyOFMyB0I4ECTSHbcAC0UfyJ1FmrquyA3GAwGg8FgMBgOCTOr206KRJBv4n8mPp2Mj3+cPVo9t0AsIdaksNnYQpGo2SW2DcjOuvzKJfcHMVImdwxtUidEiskjkx+O3RTSn7hPM9o06+P0WKPWgutzg8FgMBgMBoPhoDBvdenEiIkMm43FIDoBBPuheJDLkIZ4mFsinTpIQePczOQqbjs2uauhzZgYtnC9R8oLHsgT/89mgzcp6TyQ0zJ98v5nMBgMBoPBYDBUDTOrS0cdAj6ToQiCuQRrzYoWiJU8M/nqxAhgk7tHkCA2LQygSdJER59D6m9J5xp/Z+q7wWAwGAwGg8FwMJjmKAUSpBTEppUWO+hMyy0kJNhxG9fpX/qjxeLPwRw+4FyVkCIuk9Yk8f/tbe67VcyoK7gK57TuFLkyGAwGg8FgMBiMHB2JaIhZXBokDlB8RuVlQsdlZo3XbPV5AfkRYiKE6Rr3iHaMhCThmajKeoEESawmLtdet+Qwa/y9+iw5SC7+Z3I0ujTCajAYDAaDwWAwcvQVyBEL5PMdBGl9duYUWgwQjhCEJ5aAsiAQN3nIDQKy1kGaJE1xO/6kXHWXLXMTJInTHuJvFwSolVKmZ5C2JbnzWhH+r+VwjmEwGAwGg8FgMGTCt/ZWBwI0AKmoKQF8CM1E
+Q7mZFsgz4s2uf+Qyi4aIy8lne4QIBYq0CcEYeI+vtUOa8MATXOQRLyYyHI9pvvpfiNJjGa9xIHD8/IhcENi1Fsir2z3yF/AzHZ/wgWxFZmJnMBgMBoPBYKgK31pzpDyrMcn4CaG8BoLR3+YhTXuzW93TOHKZ5/jKmpMevi9A1qakzM5AID4IEzkNURMEcIx7mJBMfPKDesrvIcgjO5aYlSElIG5dpPcGIiZtH5PzdtfaprmCNzs+g9QwgmQwGAwGg8FgMHJUjmQwsWDNypUKUuqb0q1dSINALDV5gMOA6NjmXat8/xPSAC2PlKOhTOsYTOwevTLrc0ZdRbLE5G28ur8P5wc17bZcOXsQwjXB/WVIkpR3TUbpj8MGjgn1G+W82na2SD0bG0EyGAwGg8FgMBg5Kkcy2DSN0jQ/Hsng3wOQByYa7LSANR1MNG6O7RhAyBH90boMQCw+zgaB2NwrgsdlXrskByG8k3qjnnXUUQjSAmlyOkOQrJqYtYFA9hS5KkWSUN6RkFRF+NbOGDKQqphSzi0ZDAaDwWAwGAxGjvKRo3oGAVy0Mm2QhwQEYlIlMYKpmZwBEvO5N9/VNTRWTAo+PLaBsNRxCxOFGFqiriJ5MUiSkKgAhIiJydrFNp4ZKWKVrK5fQZOz4XxCndfqoU2GRQO1cr4oc4C8p9Lu3n01lE+IUUOeM+91hnPAYxAGtHlG0f+fsbhPoviLt0NIziOmeMjchRf85fkvWbWPjecv0g9W7zKyljDYmrBzTZjZnGfk6FzIkZCfvjYf8wTxV/ocayfYFpunAnLUVXGAUk3LlNc37UDiRQ26O3IBbGfKMYMQHiZHHdyriVBDETNxjLD2CgdtFZu9zdAmLaVJCsi56ubyPJJy8JDHiQOIn9RjbeLnvY9nCFwfxOgLCZLhEbOMyggsq/L2Mgi7VeKsFo5V/Zvoh7c7FrtdGK/q06cvBPThO/TjegVJilb45RBkclXeds53VhaZ63CCsuXF
+7ZbrtS3vPnN/hyDZzlmen1vaq3/ITYiCZT1o/1mVqSrZ5O8d4zjMMX4JcsEv/J98xY0hjNlr1WZ51wTuq2OjJOeD7+yt7hET24i9qPmCNky8hhD8uZMnRTUjewjaUpGAENdFGyMDLFHlYnKzUC6471APISYfJnKrewhlFpO6EX6rQSvT0FonfOcPa5y0G+8W2mGE/5vwYhci/YY6wyUfqeMih8nbDQgQYTLdS4w8rRkjvsDzR4Mjk6NrTWALYHTk9klAzM8Fo5LCa5OO7OXygMKhaKerJss1jIn15s4qr4/wAishYlHRmDs2AckqFE6/2FrbW72/p4wbMnX67GW1KKZYUw6FZoVlzUJW4j3jsXbE8mQdv2nlFOL0RH826r4CWRqVnANZjjNydEb433etuOfC+hnakjSh7JDgyaOnFoWlcnzQkPxZY8VkCL99lJ81XiA5bBrIZ39Y2/OO33+AFPFzIbRjslDwtQfU+RWLCJOPZ2ipmGQNWHu1+kjg1SsIqDE+QixryG+cIsByWsMc74SJ4g3Sud1FjLgtQC5/S9nxeYeG75JQv5T8oCE4Nq7PjBCUFaqDVTp1ulBwH1h9njHXHEuLKIGg56u8f68+I7yLIuWvnYAY3Z7x+DoGpmj3Y86FdWi5T/pOjzhnX0rfEeLEssXr6h29s8ar6Hg+g/mwWcEcGGYcHwYjR9WBBWwQjCk+PRCNFjnX0c/QfvgT0nLfjo2QlxxlkZ13TnsMAtAlF+T0BnlL/jUQn1c2PePnPaK0VOSHSdIUxEEmoTtlsiY71mzCx1qWKzzH1+tstgfidQOCJm7Luczs/e4GGiUp1zva9FkRvTUpQtq5Bzw8ACZIM40YCakTEhSh/C18n2Z9H2cwsdbpuCZqIpwXXYhO0a7n9C6bFaVzf4FCQB2k6PnE70ScwrBQNS9AKM65D18sad4352SsW9WEY3BAobt+Zv2nfsF9Y1BiPJ8aVfXZJhmMHB2RGGntSBufEa71
+QAAiLLhMOl6hVREzsv4uMy3E25lSdlMIHvhtlGvtJIHcGaKhyov/FxJyj4lviE+gSEkopA4kicvTQT35uTG+c1ojkKh1fUXDgjxnIDX3ql5LEBXWTLGZGweFfYYDhDGuMyF5wYe/M3m6UueypE1zLVAwNUxQb/57pYjRM7kzV0yYGtCiiQnfgs7HvOBcF7Si+V5/ozayhfAPKaqxpgZz5rkJLtyOz0zacuy81k/UjqcgB+eE+ATvpkYHMFOsSIOcN8/wG/QdPZ6DCypzFbgzSmLk6FjEKIAgvYTg3gBxEDI0AGGQ6zE5m2f+20o7ZwTtj2ifrpF+1nhHXdzPgv0TBI6PMwgITPuqBH0uywS/34KwSX5CFAYoUwBiMcP9YvLC6TwqwWaiByPy/I3JXgsYr/CaVwfZuUIbvYM8inkfB4V9gEaJzd3mSnPTwDOvBczd+nhWnyOakwsWe7PF4QO3awiCd+5IQOaOCSHdRfBE2c9OVNU+s3NYKCF8V7UQXoRpHcooG0nnjJCyn4VLqNyZu7xY5hhzT0cu29Ha4D6JstS/zNy0tW8cyLxuRoc3vdf9Z19e8ZHn5kOP5/cKHUwcan6skiQ3L9W08CviS3urg9C/3BLLqKcW02FWD3QgIHMI7B3RsNAfjUtrl0tplecQE93UIzpdCP4JTNLEO11AzuzuhVwcIyFzEo+Iy/Uo3vdgSrdAYNc50hUStvaGh7NJkk8d98dylohcTCPOq6+0N7Ib14DzihHaUb73dLuqum94ocvQ3jUQ2A7KOEebXW3T6Kn8LypALGyXbyGAVzlJCgF7qegwuyYKUt4qTQPlsO5ZubzG+5lXKVyt6tc54/7YpstzDnCVx7Mh3undgfowz9dPRT1DHrBspwAfvG8UqHu7wjLcHGI+gUAbYi4MK5q7C8/Zam6+o69hqsXvrHOOjhtAuqt0UGRe64wcHZwYiYA8oy2mcdBuiHe0q32xcjyTLol/xASkT+5MzsOe8shz
+D2oSHGAh/YXvTLLEI524x2Vh8ScmuwnuFzLVwt8A5YhAiDiPOz4nJA4nlJc3MTOUgLL3yCMgd55oAOK1IBdfaE14QFrmSFMCyjbJnQsSwWrtOhykKcQzkVzL+U4fUKbONs+B6h0tYBJ4kYAJRRkvdpEiGMmByyqLcVEPYLIzKm6bl2f6TqYVC2u8m/7PF65rgs+L1y8D1U/EDXNYUdEbJclIt0RZFuQ8cCUVv482ylYv+B7S5sK98aR2mHKFav3JgkLu6zG3SN3Lko54VYabI4wdCYXRzklqeW1+pAo9uFUwN8uYpZRxnAY9tm8pv0vrXWtE69xiZuEMZlhhkjwmr4yaGDk6FDHyd3hjCNRxEYEb94ljApnsbsi5sZW4QZ/cfStNkzgV4AUiAMEQN+GPIEGBLicIxoico4Ym8hIC1FEkLwYp6CO/Dp5hD3Q/UM97eU6RlxmemapdJiFAD+TMAGVx/dC2od3qSvu00ZaKqCRSL+9aLq2OSr+xLX6SaNrSYlddKEkqtDO1mmB/nKi8c8q/W5lrV/mE7+I3Vb+Dzzuisy9EjGZFSa4SKstoTktrB3C+qneOY66gMHaQ8ZWzLKV3xCvapT9ajDEQk2nW+fDQ/edUfUdp1qrQZJ3NfIn3+zsDqcu7Ztx89SDhl4CveuYoAXm5IXeoP80bHWOhdjx2yuaqk4tTBBYgZiBEiy3E6JXcbt8CREecBTyS0xy9Id0mHEIEyG+CAdYm50qb01k7dVDmcFOQnK4iUP7uD/8eghgJuQjhyKGF9uK8/paFBNci1J/TFgcWc/J2MaE149/ZCcMUJK+Btlq7S0+5lndnjXZNNjir9ZXU0osLK+/LV5xQMnoVLCJ03Z1ZPYsQowR1/4fNBFl4KaL9Y4GABVfsnHaowHmOioSKp4JrzjHwdEbdJT7Qvdve7ZjKn8fqHcsbGsbAY8bbj6EtP8nczNpJzAksY/xTdGwDU2hRzwFZiN6kQLpdoyZGjg4CuKiO
+IYhL3BzxRjf3BPLavslbBVyVRXAM8jET7Y2KvRN6g6fmTU76f07jF7kYRUw42MEDq6OnSsgPQZy4DBJbRC/KS1W+GjmHD4GahO7JnVu6hgnh+h4VqygWAoVn2iBdQ0Vo3rFAC0mS801zcQOO30K44uY8rvCXyVDbI0jvW2JMpRIfvKdp1mcuHYc2iTuxwHRRr2KfcAzhLe/7ap5LfAtoTPIKHjw38E7nuEpzSOwOP56o7yVHeubSx9fbCcpdhYA/P+KYi8/ovcan7m88R4AoXUHWKDJnjM7Emc2+jS2Rj/LW0Vx6Gzk6ClESd9RiZsYd71WRGP67hOCdBRNyZh9DEIOmcv2tJ5MZKY9rIC5MGCS20aMiLY/YVZHd5xjaIy5XS93TQLotRYa65MzcHsl5uBuQM4cbKscUdW/iq6MONQz4unLX/QhCdI+8hyBxdbjQ7ivhgAnSSJFSqS+RC2o79QgS4bmsi5X2fjff55EOXvwk6G3PhrwRqoLYRxpk/ng8QNrHIEZtym9KxmcAHg54Rixvv6iEoFzghsSpkLWdlhX2kSrSOYh77wvoS0Xa7t8Dts0Y6/mywPt7PuWmUkbPpY/o93mtP2o4/2gwcnQUkjSDwB6TM+kagUD09zwbebsBAb6zgP4fSNETm6bJGRoI++JKu4OgqgtMBhMQji65YKkzkI5XcvGPCNcSPDOF62w54yTBYWNy5oPiwS5RvzMGKGtbCR1viiByer/VgO9CO1MjF5T2Hek2kN5UtVEfdejBSyAp8vOK9IXY+ARJgvDWMrxH8T7IZXrxF2iJ+wTi9I46PeM9Ly+0+0YXRDbOagGuaCHM4i3sUW2I5JYTTly/OuU/yzGuyvNhhf34jb4+kiONySzCbXSg93iMtJoHcu9tyNeH4hIEaX7Corcz3FNmw+zeeoeRo2MSpAQkRczVeHJc7HLE4AuoEOjHIC9MWCToqS8ohBDIByBR7+Q8xoj7bX7mHm62QxClfzCYmork
+vKYI9yOQthBCwZ2kBwGtiYWkDW1OB4SioYhXrNpm7Al2kvcAk1Afz0mcpZlMEDj7FCCPMZ7VhGgJgqL/1wSpT+5cWC3ju4xR1wDBcIWoPqMt5AyXtNk443v+CjgZCfyiB0n3LVSx1Bs7xXnJbP3E8S2mlNOr1jEOtaMt8/TlL3+IuaAm4pCkMbng93Is86yIDPvWjCKeZcMTnj/atyZ8OKTBJkLecXs25tZGji4cTABgOtXcdx4FWg45H5B1UL4IEYB2iF3QznwPeCAKD+TsUfn3FvKR3Y45SEYP5KYJAWXkxRAakdNqrbVOqGOIvEJyAVH5uV/kzifNyGm46rj3VfIGCRHB42+1iAp5Evfnov0R0tFIcXkupop1tK1otjQhSnYQpBm5M1V5drCfFOGcqHc5xPsVV7OLPLGVDAZBVvOJPf9nQfdE9Xug/O6hjzmW8gjWifXYoyNLm/864/LPz0QIfTmzsXRsgrSgYlr30bHfHwj1vjnzqYI1wUzrToi/vlBdxIxNSIpM3AkmhV/kzM8IJKKVw5V0BEFcTNf4OXYmEJHbde2Qc1NdwzNyNqgOAT5Uv4knOomJUMeAeAJBWsLRg8QiGu2Y8KQedcQUEiIimpkEZZG83tSzQqIGuK+vSJ+QmS7aV+ocqrb8OE/FZYUbb0IdXtEunMY72qeBzyuIWgzX4eyMgjVdvzIG5R2jPn3l/vyOnHZL3lXHhrqhILIsUIuU/0eUTxvTPDLpEBe7eUnZ7MixRmLK6H64Yq1lRNXGL/mqeMnQTues0QuwTrW++otiTcZqzJ9zEfuUP+CxyH0Px2zKAmvCjJyX4qzoFiSMhgrwZTRHMOmaqck4IRdcUOIjPENA50+cFvcowwR/h/z6EPB5cRjCXG8dN4i/4xzRBATgNwaGOGzowJnBQhELWZDHyiX2DbRQIyWkBfTZ7XgNrrhv1TUxfWsoMjgl51qypnY/xOxCAuQ9g1wR0nylTQ91od4NQT066lnR
+Bsm1jwCxco8ik0Kq6uRcfA7gonzfO+c63njvUUz0QrRBI2+wWYPBW6B2zgu+qVPBQ7jBsVwMKwwofwyO4ZHLmNUkLDpxP3n5puMjruieKvPLvQFy4PNHtv5kJG9UbIOoe2Tt0T7Z5FOMN6wRefvuqc2tjRx9MYIkQskNgpNGELiH5IKp5h6EELC5czfhRY7gHOGByQFiB4lZmZi8zZGneKHjNCbQrDRBQH6TO2+kBXlxhnCLfJmU/SLniEFjhDNNoRqALRCaAOQmIae5IpXmx+QNc7mGIk9CAicgNKFyhtCAtqeHmEZCxHxzOU2Q6ooQTfGuxrTpPejjfmnnDO8lbeLaSYzMc51hH7Aw7TOf2GYuUSQezf2R69bO+djsBN63korvMxz3/SwrdvF+KKJxyPNHl+wo5KibDnDhn3cs1+hIHj/hnGefXLJtTSgS86hNBiNHFUFrMOqKeDxAsJ+BoBSZZJ9U2g/qIwNm6Qk6EQZEDdoNHvRzECkRhGYgcg9KcJezNzVyDheaIANX5LRXMnEF+KwJCrRNkoYQHwke2yVnFihEKQJZa6uBn6AsTPB+glwO4ImOHVtEIIALEEYhYPsIkhDTOgiXkNb1WSvUaUg53a3CIYOOoN7ZphnEeatRFvJl+NbIYnK22LLIL+i8D+EOCjwzOfYLyGHC98u66/EBU8aItu+KX5KTjLkdgj8LnHPg1H2xjZY7vHgW8e5pXuuMHOUHgq62tYczz4mACPIzb+CNC2Y5JucKfKA+0oFrSiPB97ygDO8gCmL6NwVBY81GRzs4QF2muC/0dm/uoW0K1UDrgGxcqUlFJopA0gaRGZE7eyQkIgKJ6JI7I8R4QVnEUcJPRWqEtMyxsyHuuLULb58g9dUzEeonBE7OVDHJegBRXJ812BfHSCFSdeqnxa1CzKM2ObM+i0R9HkjOtFz7zCfiPZqU3PEt6AiHcDM6mUira3zG/SOyYXQygtRYfTgQ8I+UT+OCqhLQkeIf
+GXZiVuTdHdrzIObN9p7bFjvGybJA3YIzCXhr5OjCMMBk9hsaDp8grTUkHnlKip5BQYwdcYetP+LCmtMdgSAF5NxrkyIKHSzk2yZh8YTSRv0iEJwluTNU/HwHGqa15zzcIw4jtu1+9UFE5rhvrcVBOjpatQziHgjPE8odKyFOiNkAJOOGnMtuInfAVeotrsIlMOwQ6bXxkfsHIHJ99X+WyUHcdi+Ql0+imTi9kzPvI/q+5wSMHO1fCMuYT+iNmLy4O0L18h56zlLXU/eP2IaRAWtjGaLchAfHbz8HnpBsFyER60ePMG/uw1PJ39Ngm7hGjrIDhKdJzunAxCcypBwAwGysknMmOGukP0vkJ+ZjI3LxjPRAnyoiEqQ5HYBZWQfCfkfqhfhHDZyjGiL9ETmHEzJ4kz0T8FyRAyEgr5hYbpDnDeojhGaAM01C6JYo+y3ubyNd0QBJjKNOCjFckHNp3hFCiWtSnimEnbFqz73ElbxzZNAqihOOOn2Oe7T4ouPaDgCXRxaSstizyCcFhPbmEQ7hFiFgpxwr+zYxlgc8i2KbD5eHVsk6D07gHMXIUXkSceh3to98LfcFxsbveecqc+lt5Ch3h1mbfQlJ2SIwS8yd+aGFRgjb4tFN0IbQLoNmpM4f1VNIH5eVXVr/xDMjxHDigR/CLEy8TIm76qXEPtpTx5HKk835ZiqorWiJ7lkLBfIzVyStRu5cVR/fe4oghYogxYpI9RVBCnGvxGW6p01zuxnaToifkBmp97725+c5phOT4d/kvANe4bzZLeqR0PG9bh0Tbza1FUdGs7M4o3OCs4pvUcKk7pTC2768TWtkgrcWQJdYh8qs93b+6LTvsMhmTP1Q7wwbVvvIV9Yyz3JmXzthsFsjR5c4fvCXD+JPFTnwBeYYgrB/9uhQBCnCWaIf8oGwLzshIbRH2xasuSIiPQy4JsgEB2u9Ixf74w1ESsiGEK6lIk96V+UN6a1NDtkUUQVuTWjT1EYcNrwi
+/Ru0442aCGbkbHA7yNsnSJGaDOaolyxcPXKaNTlrJb+1yWl7iFzg2izCaAjS/A/XDWSvp4TCj/hWIJ6BTQWGlI2XKkhPkTnnkGYUYYFnohMLSuwlj+fRK/ps0ixmzQbDR//G+bgy/ULMv6tAZK/laO0WHqgsWchJVm1XkQ2zO+sORo72AsJsSC5GEHdc1ha8w7V0kMLoOycqq3hlq3kTb9q9I0VwJhCS/gVZuMXgY8GNzUx+kjuHJMRGCJeQpVid1+G4TmPEQ6opAvbsBYxtMdlE3n1yJnBLePzjPAYgTRNyDibSCJKcQZrQpjmdNkGcCnlF3ULvt5mqXxazyBnKOvbegXjnGqqAseIN0Gx6DWkbL7uQaZewRMyjQx3CvS3wzFloIll7xd7rUj6JdVlDSn9ZUDkLAdZEjKwlT4YiZ4IPNW+WNqlT/TKmYubWpsk0crQXXQjArMW4ghCfkDPHeodWpAkB+DnN7O4IxKgJcpDQ5g6yCOULdW+bnHZHyE2kSJE4ahDzvbq6T7uxTUBG7kBCxH12pEhjAJIi7SZEs4HfJihjhDLytSbO8DTVc8/YBYlTCNKA3JmvKZ4RT39z1EFiHInHOrlX59tTC1x3n5YH5O3KuzyV+iA2UwAveHIWqW1TgYGR0Xwir5nZOcU8Cgs8E1nPMFwoQXqgcuflembSdDIUmXduqy4Ezp8Fe27L28eKaI+sHxo52s+iQSgCeJ8bI/6PxDFa4h4mAL/pyDbpcBk9R/4JytX2BnDsxeEZkTNBE62RCFVy/uheDUI9WD+8yIEc1CD0v+CvmJGtzQ+hVVkogjQEORGiMlUESHZiluQcOoxATHUaPkFqkjtTJC67xcV3CJfd8tzH+TFy5nXirGFAzgNRjTLEZ9HeCFXMJ772hPfyDvLI+bOji1lGj3iGr48sC1CuhQ2BDZcHKEcR5O7nppkxXDg6JWWAkblTPgmKvLNDaFeybFTl3QCzmEdGjg4CEapftVCL8z48
+EV5hQkxKsPSipOgBwjcL/GNy2hgR6hMMpE7KYGEtSajIQgSixILSmyI8hDreqzTXgg9M5ERbxEIZk5g7XE/IeX57JGdXLVqaV9VWryCWAZ6TiYrTk6Cv/R0ESRPCITmTOSFIA+WggTFV8Y2aeNY3vVsLjVnPCCH9gZo0B8ibvfHdwCHFEueS7FC3IesCVGRhyx3zCO7EK0NBAc/GheGyB/Qf09YOFXfQsN6wM7Omk7y3vKiUxGZ0YLPM60ACG05514S6kXQjRzvBJlnwPnZDKY4NIPAyMVi79NwREHSO8zVVEKMmCIUI4A1oRvSZo7UXHZC4WJcFpOQGhEgmhWdyQVOFEFwrob+N+sUYaOJEIQEJkYEkDh3eQKACJQSKRzgpzwDtNlPVE49/z0inof6X80I+QZL7aiA9EbkgtGJuJw4a1uZ2MC3U7tBrqFfoEbRmhvdRU0RNDudeIeiuCXyGtIUwpP3mE0U9txXZoKl6p7CIcGcusg1fQdAu66BBBz83HA/RifPP4pynqNnmOZlbGzz8dUmFhcDbg6CcZDhHlJAX+0YRGYlFNIS2p0tOqyFnV7KWa0TOWQBri/jQ/xLCvp5QtwnmfE+TPduhbJEiJKIBCnFvm5xGJpL6cbqrZ1mbxN7nInhn4/a6FcLF5nSr612pNwtsuFecJLRAeAZMIlbXJ+Q8x4l3OjF5a+BeMZd7x/c+SM8U9RXHCC+og5Svg3vmeuAzqV391qfP5n2MCa51ycVA2oYQ9Z54RLSOCe8n2oHLFZ3iTJrh/GSoA5EcFs6iFflKMpCvjYWZdy4rjOETFnjGNhK+/qZAsKVfinl2GmaXZm7Ju/uruvK6NyiYxDpALM4xGc63P9dBho+1JjwVTHtRgHC302RawzcnR6qzBhB0E5w1EsE3BGlKQBi2eYoSgjAjF4RUvKk9k3NOkIUYTdFh1/F/xF34FmKUpsEKIawPVWyhPtK7Zu9yIF9MDK7UIhaDgLGJW6LI2d+r
+/+/IebwbgAixM4N/1fM15P8bpKirdkja5BwrcFv8jXYRbZRPkHqKWN2p61OU5Y08j3AgQUtFUoX8EEjcNcrBv4/xTvkZrk+AM0tbFym09WILIfYFRjbxY3LU0ueVLhgcxDCrABCTaQfyxP8pc7h7Qdk8LvqL4fiETfOvLZMXDz4zIzHxqjINu1ul2bi04LtMbFblvqbiscR4bl17Say4aIl101QU6V+V9PGMznmWBWMyrc0GV3nMKN/50rW5ddE8DdlxaWZ1bXR8iSN0BcG3ByGfBfJ3BAHdZZv5qBj/HbmgoBLXoI/4Nw97iNFIEaOGIkYPihiJKd1sSzJd3DOG8C6aohFIQB0CVU0tbjGIR6AEfiaNt6S82qmJ5SfquDb5g5ZEzNYSlPVREZhYEdFXcvGRnmnTdE60bYQ0Oa0mNDVXqEeTXNDatQtLeTcwj+T7rvA+F9x2/D5xdkzarAc37Q9q4htsi22V8p7a5Ez4hDAPycVJGZNzQf7dUMcCUOXnEpHFfKJsMNRJwc0gg6GKMV6rOM3ehbZHWQcNcwjOVZI2I0fpOGUYgSykpSxJMdM6I0eVgInMTEyglFe4kTfxh7sEXRAV2UmTgKny/AzCPXfaLohWLUXgDtXi0FGxc6bk1PZCmnYNoJA2PdDN1EI2gdAmnu3maIMmuZ2vAL8F3i6LxICKcG9HES8CORjhusQfChU55O86mOsL0prjmQUmj7VJHohigI+c++L7/gEBEScIXIZXaHII76+u2nQg7YfnRYsWKJL1sUjtI0j4XRxUyLmjFmI2Rfj0UcbQvNZ9WxzMpM4TgPIKZVUewv3bXrOhQlykyWVFDhrm5qDB1gQqblInfXFRoB9azCMjR5+wdtENUzIWzF8VSeBO9g9rIDDxBXsEZxHwXzyBm5/7DwNDzMjSiJZohsZCfpSJnSwcjQyH/znvX+S0PS/qO6e7jnOk6sI7KdceAQhSdln+JWcWVwPZ4Pbpg5DEijjJWSsW
+3lognwNy54mEIInzhimCyY7JxZYSoijEdR1jCmQops+7ljLx1EFyArXY1qS+OLMksazilLZ73vOe7xVJnW0zm1PvySadb4aM5hNE5XcJixKsqnYKjfgbvj05glBahYOGrAFizanJ5a0JIe0/H7qsyLxtVuCZtr0lI0caEgdHDvxL5+1DGyDOFPZ2Nph0xeiYHWUWRhDE28iLSUAIMiZkpE3OxfWwBDHaOZF6gnxdpS3fA++v/B6ApFyTOzOwQQDJOTtgwSsBcboCMRHHCk1FkMQ1Ogt37PGuDY2LxJeSWEkSzHWuSGUdJEYT2SYIUST3eGfE7tCuDyDBETRPP8iZwzXQztGO9uQ8ZvveRVYTPcOXRJaFJq7I9GVxoPKZkGY4NsFILrz8Yl5deN5YCdG9DPmYU5Pi+Hmq7nGguTyVix2ofIbvQo4g4LK76zG5gKlXyiOamNqtzaiyeCBTbr9JSADS47xCpBGLsA7I2ZwJnCL0lAAzg8CeVRDh+36qsm7TXPjX0yZcIUMB0nv0CEAdxEeCtIa4p6cIXoK6NBVBeiYXhPVelwdBeD+Ipap3AlIpbbhUbfik2vHJI38SxylU7RPQ5i5dTeqY4R0vaY82SDnCWJrXuu8p5x1oAdsmUJ4q5tGbvWpDRfgS8yQ8z5URci1A7GERHDvDHM55nirqgzHld8hhMY+MHH0iMwmCdjYQsyaBgNtDoNN3KujuEGkvUyb/DwEb54+kU86UU4T1/yhTnh3ahRqIEaWbvqSdFainTCDi9GAt8MPcz39WAs3KmSO+p6vqFYI8DRRhrKFd38nFJZrBdE7KwcRnqkz8RJiUdOT8lD7z1UadEyWgykJVR5kWKZPkPfKqZ5zA2nD0UFOEKMS1dxCjGpUzszBcIDKaTxBVt0tYdFE91U6hnVMypOEraUPKOmh4tjMgZ4Wk5PNZnPNUvUFg2qMzw8W48lbnV3Z1VP6dNQ/XFe1YvO0gJRG0RkKMYjgQKDIo2tBe
+PKHDM7ETb2xcn1tPoPLbYZkyYNnb3i3IkJz7YaIyxt8b5CVxldpYJJ7JaeemMGO7UqaEsXfGitO+wrMS60jOI7FmSEwSxyBhbZAjcTM+QH3nomWCa3LOqw233hHSkT7whHJ39xEauAy/lbxW39NuWx/Q3eM445IQkdPAbVs8yi4gyTazmpWg8N8FtVXWBeZ9Va+saS73CFtFBKmqYx5lhe1OXj4aaa6nsfNc27MGBkcQDKve8Mg1TuBSWda+ImOzptZNQ7XI/T4qMPfMuib8PvGa0CaLeWTkiJxnMjlcH6cs4iwEP+6Kf5NTKHhTi0TiCQsxNBFtcgFU869af8iAmO2JNkcm9jtyLraHHmmT3Y2lKlsIwibaKLGH7ivzvw+nCiAWcyx09yAi4sUn1KQUJIPz1o4WFiB265hDq7/r+EZCgFZ/pT6ioWrhPS4Ueeqhjgvcd0MuHowEex2iPEKyJHhakzJoexDQ9kmRQZmsIhCtxReJbyR4sUCF2YQoKh7vZN+CHh4gXen/RXGymCGGM9wV+LpnYep5yRu3xWo+6FP+oJwfea6en67SMeuDC96cyeGc5xzWBIt5dEBcklkdd6whOw6A0B4qEy4idybmGd7YCgPmWpz2AnkE5NSeIiz8qwbujMrZxq5NzmAimEBg44WrDRKoz83cKjJ0B0cKsSp7DWRigTbhCT+ChmsGwtFHewbkPNaJGRv//4zfWiBVz3h+CYLxjnYRN9sDECI5E3bHv+Ps1sd7wXkeJkhCroTwCVFbIl1p6wAxjyJFpuRc0zrdrI4U4ICjhXhKP9BurV0e7AxfHlnNJ85Gni35fBFh2DRHhu9CFmclNx/YQUPbWrJSopIXUclsu5fWba2nfGNypM6KzBRRmkJI/4/JEM4LSVyeWgUDJIKwz5NdkuIBT9vis/ZhmhYPKaPgPkM95ezLPQhTDSZpLXJnc0I1AchZmqm3Q8H3rc9lCcmgP5qYF0WwOI0ROU2SCEJtcoF2
+F0qo6pHzXDcDmdMasyk0SAlIhxA4eSdMvqZwopCg3qIFWrtFxTmyBO0udWTiVYdnvFgRYjEzvMtKeHEuba7bC+empB/9ByIY2NTwLXBpC2HZQ7iFNgHs4K/hGxGkfkkBe2rjpTIUWYeTknk2L6yNLObRdyZHEJ7JE6pFfX0DUqQFgMLmAspUbojvXdo8jB3pMqkBmZQcWDG5newAhCkBIRFHEeK5raaI4oCcpzwhHk1y5gEjEIgIfycgOuIWvYlra9LJbcsuvT2zxSG5c0msVXoSD4HQ6ogp3sAPmotyC6Fqg5zowSyHYdtw262vi8ZsClM+TbpiRZT3vVMu96u0JcFOFxrCOW26Zc8Tv8JwocCu5CUKMYV3CkuYUZmwZ/hOaFE5t/fmoKEahAWe+VViTWjSCbzjVYC2dZXvS47EU1wb5nQ1XFtuiV/zb8mdA3FPLWTlySMxMnCXaocjoXIqTr3jIcSnj/xf4YlPhJQanD8IaYnwTEulFcLkbIZ6DPF3gd8H5MzsxPxNPN2xluW3kBicOWooQvoMktPG7zMQoAjt8q7jQuH5jirLs06bXKDZgQr+muC6CGcbtuDK5fZewU15x+vD0+FSEUdprxucVetf4O6RIT+6F1rusgthEYJ0a93F8F0AZw6NkvLKs7VkaRRxrBWVefWX2mWtq3xfciQC8BSTzm9CgFE5DwPzMondU+agqT7TE3iCuAjzsSJSM5RvrXXwTNwIZQxA6j4+KflOkAaf2enjDM+C3HkmeSaGEwcWksYwRWuAfDB5fEX5IhCgR3JehxJypnSc3gsm8h7SWMC0T8hDzycZHIgVZVw7dQCJWp83AoFqqN8+SBDSfVHtNcL1EGX7eE7lp6OYN1UQ2Q1Bb9+5I2iIal48rJ5qU02YbumLxPAwHJRknGyjqGTMoyJzY2jdxfDNCJJeewrJLOygwVqyFMIC763Q2n1A5zxHkY/NlLN6XIq3Oj7fIxoPcT8qf8OUQVRGJR6Q
+O7O0FHKjzLmEyExBPlioH8DTG5OGLrQ8RDtcoa7uWSKdMTQrsSfsT5Eve1p7QTpLclolFuJv4RHuFWlFIB0DEKBnkCO+Lo4Y5uQ0TuKAgc3tHkT4guC4wDMPftmFtCDvOcqqyWWDnLnfM7zYPaLNrlCXNp4PUOYr1K0HEiRBeMVL3gDPLzxBr077VeEJ2lW86rXJxV+KQAoD1Jd/S3DOySKbf0GAXGSNY/GivudFss+t7KosI38TIosMQMXjLr0UIIYBL76n9m4GYTPYUidp75n1cENFBGm26nO3JTZS2EHDi/XJQmM9pPxnx6MSWbZz5HHoNWFaoM/tDWti+JrkiF1XTzyCQsqTnHyuyXl6K4q1G2ukvYAQzSZkLXXmiQX2LgTzuXRK/L7V77zScIiwz597pB0r8hEhts8Abq/5twAEbI6yCTF5oc2AruIG+xFkY0AufpF4eRtBAyQkbaraU9JtgcA0t8X/4fqK+26k0UL7/1Kkjq+zw4wGPN71QORCcpq3ESaDJ/wuZ6SYdCUgNCwQBipOEuOXas+tgMe9Mdpz4L1rMUWckzt3FFH5g52GM5Z7Mt43OYKb1McC5IgP4QYF43lEJdrs1JsF2wSGUNXNBFFDlehjnS+6M88OGmyTLT/uCjzzVCK/rGbW/SNsEj0VIEeZwpoYsuMizOpgzpWkCefwfsa/P4hjhl2umeGx7Nk7/O8LK4yBOvfCwverZ74lhzZrIE8PGeoRqfJeQRAP8HxNlXFKzoucCO23IBcTcjGdFooURaRcYpMznxPiKL+L+V9aeSWoa0zODO9uH/GgzyZx4nKbBZUxufNPXM57RbbuVLwkLXw1lfmikBlxGqHtkJMcfaiPhS5SQtSN9BUmi3D48IB3ZO69vyDgiCGL+cTyGPEjsNAWITnNgvklBUlO+5SHzLGTbDBkQb3C8bmkChw02CupbCNkFwrN15hbggy3JsfQnmPdydvfauZGvlr89dUqxDFsdhCjGrlD
++DyBPqQ8zyZWLDiz1uQFWqIrkBQmVWMc6hetyRRpDaDd4I79sqdzL3FGhzUibDLYw0fKwwM1hDA/JaeVYfO5NxCOHohQSE7T86quz/GbaJXkWoAycnlvUXYRzoRUTUBWHinDLjs0My29CIiGh9sKxEjOP/VwBigit+MrOyXihjyAFku82AVKoKunkKPbjH1jTOXiWBi+z6J7zMB6j2oTICu6JfryYwEBsubNUcdGmLGMx8zP4ATMOtafNMTYbGgcqTiVknjeUFjVT9bPk5fnG/SldoE2iwpq0omyWxI8HrEZFgUIIm9kz6wHVYP/fafKQhsw8wTrtPvEsxqbdY2Ut7Y+hPV3dSalQU7LE0CAmIMobPu8KscN8qzW0PD/f0PzwoOkiXRbIEpP5JwriCapje9dLEaiVZopwhVBCJPgrSEmoQkIiJi7yVmeBYhKLUPbRuSCupIn7IkDiKkSPBKQKB3NPFTfAxBBIUSxup62+Bocrq0JSi+ET0csU5EFLSihTSm6gHZPqD3KsgFih5JPh/qe38JLdm+N3fyL3li7oEP7RTyJTgq2SR5HDMckHkXWn2bBwLmG706OFPEZ7ltIFUFiTccryBBPjuKpbSSEC6ZY/yiitOszxvNtRdhirzwTkLApvot5WY2cU4UO/r9DugOQmaUiQEROaxSTM7PjvK5wTwPPvcsOjEqrhvTqGdv2QZMb5ZZ74ZHRa0180AaRdz1UpKeuzNz04Bfh8F8byhuwncr0hTBrHIujmNQpwSspSPDvC+a3LLjQ1yi/husYwrfh9Pjy5LWCALG2LmSbo/P2k6TEfJ3VOU9cQjNVlIwXMeVs21Rk5KgMmKC04P67Dk3QK7QnPkFqkTtz1MY5pLU5G7Qe+v4IROnjAyGEJ9QxrvVTdjlqfjrk1KriUEHOH0WKLHUwkVwjHzlTJANEYhvVkGacQkgSpL0kZ0rHz7yQ09jk2Y3Q9tndLTs7gVpkRMsR06aG6KdyoS73+JPT
+T0XoDOexuAUFHguOVLysZGJxiqYrsrCX2I2fFHyud+zzP9jxNsJfHOEXyYPOQPtU9vyRYTeKBGAflsgvq5bq8QRtMTvgGmf4LuQIsY5es9wLYiAur7vktClp97KgdAPBfKrM6eJ9HREOFN5BakIQMDaPuwVBEw9x63M/bL4mH/rjiU2IVEjOq9oU10MIDDOQGa7TI0zxuKwDaLoilHtEzqwtVhPDsxII2+Q0RkLaxI04wVNePUPbSlmbyiRPC5zShku1qHJ9Q0WIRGBeqvIkWxbkuGCfmeLzkMV08IS4JMHwLMlRDkcMjKcTtNuiYL8o6pghLrGpMD+ykBqSQRPFcytT7YgbHFnq//fBdlecg4YqkVjPXvejhwL9KC7qKh1jKet4upQNs8Cc13xzcgRB/bciRUw66vuEd9b+ICBppIRy/h6necSDwM/XO95Ow9O2RZvdX4P0iIvePsiYaEYeoUEicoc8I5CXd6Q7ULso18j3w3Merov5XIS8lmonRYSmFvLs4doMTieecV+NnMZJBJEIZV2mTOJC8HYRpEilV1dtuPCE/QXeWUAuxlONNs0MP2muQCADXI/3eZbDO+9510KQQU7jZ8Edq2PBTIrKo53xvqOa1CmhKym4AHdLZFvU9SuP0ecjEqRb675nvVFybsJY/cBjVa9vX50cHeXdQqAvYrLbL5Ft1rnzqCZ1qp8V9WRq2qPvSo4QJFRsRXveZLhP5T3As78gHIh3uU4GgT+mTW1FfYvGQbzCxYr4iIDflTg9IGlCQniyfUOd7jEoEqSxvq4cQCRqoRwpAjQFCbhXi2gPz/CHNWATNemF+F/aMoYgwu1xC82TboM+yjmCO/RgR3s9qHKRIpSkSNBTiuAqDhpqqm0D793WFfmLMgpXgx0T4y8haSC2ozPXJBkOt2AsTljGIhqretFDuFjwiwp59SMSpPAC+td3JnDfbvNmNXYeyMy5qyJGEi8yL8YgqkXyzKN1fzxl8xR4pn3J
+zk+MHB1mMo62aX+8nQY9oF4hOGsPcruEl0CRo08LtxKqB1sEjzfcF5Izh2sgZtMDOVOzFrkD0FxeiRV0D5IzBEkKoTkRpwsjPL9UhOJZlfcVJnYS4FYcRHRRP9Fu1VNIKU9gfyP/AGk1dxCkhafV8U3rFipvnZ9EoG56Oydv6nst5do2BNLm6v2EKi9xaR5gkj7lwXND9YtvVkcMRQlKVSh6CLeM9mhMxb09rt03H9LUy84bXQS+KzG080fVjO/nAmM8pnLau2aOPE+5YTYr+Fzbetc3IkdKU3GLSalFzv6X/+/v0mYogb0BIrJ2dY3YSNwJ21mCuSKdBIL7QARukJc5BI5QCWQjEAomMNer+/4DyVlrc6AREmK1do6Aa1cQ/pfISwR4HtgLBJKV2BHPSF+0Oy2QIHn2GWny954ieiHqrmMP8X2iufnbI5b8+xT58v1zmDhmcfe9TJloJuQ0YEJaItVubY90+kgyvC6pE/8doY9o077Qu//XhU8u4YWV9+eB08+qNTqJSd1HIf+cZyiSf7tknp0SQl4AgvRwoN3Ko/flL2izf2jycm7tFR5xvLYuqB8UGZ9/H3CcFSVG6zkL7V8UWTc/T2JSp/pYQkf0ZGq4QHIErY72KCcurkXbwwI176C+79JmpEwWjxDcRUAY7BDEY4+kiSe7d5CqBBPzkzcZheTiEjWVQBOIpgvE6hnpRSgDD+A7cuZv96v7W+j4MribOHM1RFsw0bkWgoNr/GyAMj6qBVPaTIJCJl65hZwkOMs1QJ35vlek20edXsV19x487dsZUZ709HuolyBHjBe0S6BIqyZGSy89260+3gIcHHABDii7+cTiDNqviOaqVHR02Lb3S5Z7AJLUq4Ik8XtbfaZ03mcBKcP8dKlj8lyJZD1juY4yfx/g/NG59dH6gfpNrwQxamDOKtNns645j2fw3op4Fq1fUFwrI0cliFEbQnoNAyokF89HBleT3A5q1gGX0Gbw1YWeEODm
+W58/iRWxIaXdWQdyBdHRJmmJSlebh7DWZW0GB+cCEjRWAq/yYBDHDC/kIh/LvTV8byO/GPdEECaekN5EkZwOORM9qcOjIgeJMkms4T5pc9E4NZHuEGmLpzuJ/fS8T/OG81YzaRvkOcsoJC5T0suzqxOkEKZb9W5D9c7OIrBs0QkOi8/FLMAHFGbykIanU79vaK6SIo+WzHdGxR006PHFc83v1ftkj3btrOeh+P2z0AIN1CvmvzZdDmpHEkbCguOrfkbj/RhEr3fEMftAX/f8Ub1KAoxNj2fME0Xm/H4ZYlRgrjyHDbOiZeiSoTD+upByBinfJdZPmgCddaJaB1RdCfRPcLiwTEnrw+McC+Kreznf7urvGAFg+Z6xV74Ez96CCK1dVONZOXwojhWEFPFvEyYPIBg1EJA7tSi21G5LhLxY+9SB9qimPkKUJEBsgGtCtIT4JBhELa8OS0WaYhAxFp6mKIMEkJ2jni3kw5o3zqO1w/ufL4Tp2ExCVmb0edc4LiEgkGoD7Qmvm0KYrk+92CmNx13BJEarNLgekwoWk6wkrllQSOd++L5Kg/v7uKS5hC7PfU4B+w4kLTqFKQWEkLuCQkMITctTUdNAJkirNIicNr4MxGkOIc2Y0k33ahUK2FFFY64o0WTN2RhjLjmj8SVl437xpt7FMuvc4J39CvD5mwq6kj9C/QerZ+6whh5jPLdA6M/O4qCCuZkdr4jrf+4/SVZHCJhP61iz70qM9So0RrKe5lkTuB+9nGJNQNuF5I6R5O1bTcy9T6c0F79U/LiEQiqTs0QJ/1dq9yFUA6gv3uAypj0CAYpUOv8gXfEmx44eGri/ies8SDtyXshLrw7ycI/JWQQ1Ebz9wTnThEHVVyLZi2eVCERCO0+4JrfjK44X6orIiEakBjLD99xgIo9RPr7vCuTvP3JmAgO05xj1nmIRkDqO8bxos1q4PlKEcpbxPcyljqqtp6qtGijvb7WT0sR5sX1p/4ey1sk5
+exjgPf9WBE360JpU4lzaKYTjkKrdkY3RXxZVESXl7eeW8h1uzbpT9pR3QVKLXxXlSTDeDrYwKqHllqo/J7FQ73yZs1ztigjSsdHI670KfUb6cFDxmHtE34kLjq+wwv58Ue/nAPWP1XiODzSeZd3OTepX5WlULFQfam5Oa9e0+SWocDytZa2C46h5oD4UVbGJt6UPhQdYE+Q8qxGlr0SOIOCKOd0NhOIH5QBBNCWdnGZWmox0yZmQ1VM65lhiE3lCuwie1+TM4p6gKWqDFD2iswcgTXVF7MbkzgvVVRmW5ILTJuQOTdeR1i/kL57WbsiZHU6Qb0v9PyDnDesR/4cgmULEhmjPIcoVIiaSCHEJyt1Hvm2k2SfnIl28AQqxnIEk7YtF1EPaaUR0vbCiTd+9Sfdq3zvHM0u0q7QbB8n9AeIkO39dcjGhjkKOMBl2FYE9NGSSfCziBhWC8z0d7xC2LEipu/HY7R8cSQjYWo6c7Xd3xPctRGmS532jX84vSCifrerXyfkOmkcqmxDt4b6+c4LxdVbk6Ij1T2TtLhpEdEv5Hyi/p9NKyBHyLqOdOctxTX9M6ZY52kHW1EOP7yrXhGOP+dxrwnfDJXmrGyqh9gHCtJiYdUAARjmcMbgZeyV0w9HBCwTjUBGSBjpSD7F9atDyDBVZEeGMBbUehPhnEAgmTutn4CWPg5aypoi1Fv+AcNXV80s8I+RohnIEEFamtBlDKVB/xXvOgJxGaIiBJ4FhxaziUT03JGfuRyAoSxCjEPfckTOfEy944oxhjvyE5PE7ugHB4oH/ui84L6Wf8dEDt77jvr2LDzmt0fWO/PmefxWJOAbqdNyd4Ro5k8oiuDvyJM7t09ux+JStT65yVJDPNR1fE9DM+86waF7Redjc7xNyW1mJkZrzmkcsY5Cjjx57fJ0bjlV/6QOVevU68fmj2y9EjD7GdQENTe1I43vf2nSuayrR19FGf19yBELyriaxJgRtfRZjAAG98BkN
+mMPJjg9rDa5AYoQ4zdCBRyBUDyA4DZCCIcjCFX5vgBCN/WCqipQthZypdMSsS0jfGzn32Qm5uET35M4dzTBQn5FWn5wXOhH0E9wn549E6Alh+hb5RAVe+RI8Ix7tJOhsW5GlgJzZY4OcB70JuXhNryC0WwnqtvbxyMqbd0+WiUnaYaqIr2imxHSxjet/q52VY+BUC2lR87q3cyrrMc5T6T5YQX5vJ3rfufsZCyWrj4RLSOi8sN68WpXvqoCZyEmcrWTsOy/fXCY59vg4RHufKv7RV+g7awuWguP6FOM7vsA+f9J50MhR9bs8bY/1+r/7gnAeYsQCswjuHTGnYscI4qkO2qK1EC0e2UDSEhClBxChQkIESNgDNC5X5EzYhPzNYG4WYAJ5VE4k/kVHD5DWGMLQLb4PQRr75JxA9FIm9L6QGRAZ0SYJ2RJ3vxK3KaBN995zcqZ6jFf8vUJ5RntiIi33CEOFhDy000LtKonTh7nqMwNy2oFO0fd4IIGpcsGyxG7XKchcfCZlis8kjSL9LCrxLJ9busJmzalJUqRI0eyC+nB0zv3jjHDsdxMfYKydKv7RJfedBPPLFbRvZdo/OSI5jS6wz5eVAYwcnQletgykCSmX0EA/TQOxgxSJkC6Hj4eeA4FbEaBxbx8T0EA5KBjsyaOOT5DBtEyEeSZcfQR5FW9qT9BuiRnRHARmgXt8jRmXNYCjA9Yy1aCJES95A1XGNszomNwtQD7v8T0m5wp8ir8xiE8fk5AQqAXSlSCxC/zWA7ET0773LTGR4gwTR9EFoKOe1eRs4r3DTh6HHt9NIDiRjfLLoepTcTnOlQxXkieTEZCkFh3X3I7LP4bg1Ch7RgTCa3KO7+ArnwHIWLf4EsfGlroeO/7RpfWdBOP6RjY7KnRycKx+9HZBZbVNmBy4BFfeY9r03PHhAQ2EpY3rs23mazvApl5ytkfy8iH5ikkZk4BnclqHeAcxeiAXW+gFpGoBM72sEEFePOQ9
+QaBf4myT2Nf29G4Jk53Vbx3adP0t1xuKEHJbTlfXZLKSOrKWR9yEzxVBmpPbFROX5F1FkN7Ime51UG9OX0zwIuTN5pK+04OE9ni4QfkzNx6cYgR4tw3aNL2UGFGDExIjwiJ6TJOIsoton45rr7yvvDwm/j1COarqGx06YODbQy+EMHdZeF6xwgrrlNCBPQVizB3zHSzOuH+cE4FarvrV8Ij5JQdMm2N2/VTv8kX176RqMlxx2/1M6YP1EvO+1PlFxveBNRfHWlOjS+vzF0qkj45L8lanHR+wkPJIzm3mhyc53BuAPOzzkKa9zjE2PJ9BOxTAlXUbQj3no91x3/juvL3n51gYhTSIi++16j1DGSVOwHJHPgHKs0hxLb7xm/p/LHmrwLJMXn6DRExRbhEipkowFpfe4hGmQ84xxZA2TQLFFEc84okJ3pSce/IWSA8LWKEmTMpLYUO0gjjPVAdZ+pGBnK4nA+UFTzzeiXOJ4ITEyGD4EoDnwADj9W/6fDi8Tu78o2CJuVG8ScaHcJFrMBgOMub3ESYbzwYjR0ciSf8pIX2AgbmEcwQhUXLWpQXTsF3ptUk5KRCtDgjDE4TqRMUeEvOxdxG4QWB6mnB46cfktCI1Rer6BbRdRdpsTbA89+Li/lvqpLVAbxBuQpCbZ0UkfILURPuJt6ipIq/iWU9cg8uZpA6C3Yr7biGK0TaCo0mQIkwf731LveW+D/KLv+94hy/kYjkZMTIYDAaDwWD45vjfBZY5wd+InIOAhSJGGnt3LCAUSzpNkAcCQZgK0YLDhB/K6UIkOyYgRGxasuGyGqTkHmm8gkjEIAudYxAjgAnKMzRZTH4misiIF7qIXHBZiSwuMZb65LzUEW2a2CXkziNJoNkm7pHAreJNsAWSNIXWbgaClqB8oxRnDcuU9yj37DMX8p97VWTpEf2G82eX5VN4RqzbtGAwGAwGg8Fg5OhSIGZZz+RMpvoQ/F8hhHdAZKIsCUK7NBPBnwVk
+mHYNhUjAHE1DSIVoh0KQECZI4nBACIOcteHy9uCVbnasBoOp3RjlmYC4DBVREMIk5C0g5xGwjrI+0eZ5IyFI2nxuBDLYQL1fcX2GvF7RbqJxEg1aA/f00H6hKv6MnFZKUM9CfqEFlM8SZbpX5FrOm3G55R2ObFowGAwGg8Fg+J44e7M67ORPIcwOIUAvIOT2IAT/UGeCBDHcYmfNhwXndwjQn8y8YN7FGpVHnEESZxAROTM+8WZHMGFjE0B9Vob//zj7sqc8XLdkn1lgzrZ8VcRAgsTW8T1G/bjuvxRJ+DD9g7anDjLzrOoszhiWtHlWaQ7yIZq5KbngsQvk0VQmkXJGi+E7a9D1+M8vW8Z+VCfnfvwfcmZ+GjtN9QwGg8FgMBgMXxeXoDmS8zFiqsWC7QgOGBK5KUUTk/cQoHh1I/x9lnhGwAyCNWuWQnF9rYT5MUzuIk2q8rgW98B1m+8KnFoAErA1QLnFQ8odSBiTojrqNVNtIXXR54q0xzoxuxPiJCRHNEJCWhvq+SkI0D/eO5P39nMLydFkJnPbsvYMfYTbdQFTyGVKOjObFgwGg8FgMBi+Jy5BcyTnZOTwvICF6ja5sy0s6LJmhDUgjX1e4LbkFZAzveopksIkYgFSESpNSpucNuQqxRkDazhu4CXuw3Od78ob8Ys4bdHg1Ml5gmNseFKDFqS5TbOyp45tRVZukNeUNoPIaucWia4XNGaiNerQpse6LrkYVOIBT+IqiRtuIWZiGheTM3mrK6LZ30GOOP9MGrgdbRBrz36oV7DNI6DBYDAYDAaDwcjROZEk3+12DIGcCRGTlScIzY0S2hryCIiYhREE+AgkLQLhEZfSaxMwCP78WeL3OZ57JKdZkRgWTMBauE/O5wQ7ijQEaVgqolXI/bSQQCECHmHSLq/5Ojua6G8hSAFII/8fooyRqtMz6sxlfCOnhRrj/juvzlyeiXanvuW9DFD35a46wstgIOkJ2aM/5pOdKk0WDQaD
+wWAwGAxGjo5Jjh4gqDMJkjhD4s6bhWTWggy2aRxKkiMRokNyZ5LYLfRvXL+CIM4ESDROOr4PaeIB4rA+bwMyF3tupzm/iXquTs68MEEZarRDw+IRIdHixOQiOv9EenXkx+mIhi4mF4NoqzYOJE3IT1O9C07vX5CgAd6VEKMIxCQ5YF+pk3NRzqRPm/OJQ4pKSLTBYDAYDAaDwcjROZClJgTxEAJ4pcKuCpaapGlnlHnXhuMHZQbYV+Z0EsR17KXBwjqb6V2tvv8GgZipsz1pQn+XnAaNCcaNCuZah+AfKsIoZ7UEMQimmI+NkO8VuThMQqZmIEtT5NXZ1cYgfU1y2qBxEfPGHe+bCeJwl+mb0sI94v4AdXsGaZPyGTkyGAwGg8FgMHwNcpRCVGKYnNVBDmZVCeY78vxEjjI8V/fOuoxAQMQE72pbuZFngn+nqCen1YLm6p02zdQaijwytMmcBK5dEzn6Y+LWTMl2TM4sMFTXZ+SZ21XUrlymn75GTNVtX+DXOerRQpsu0GacrsRjIh1U1mAwGAwGg8FgYPx1wYRIDvDLGZQZOTM7Fo759wf/fE2FEBJShwbIP5fTI2dKNlNmZHXlUptJTR/PMxYpZ3vqSsPBmpA2CJEQHyYtHBuoT7vPLDGeFCm6R/nEnG5b8FO+9wXmgCE5rVIb+TUqbld+f7VVXoS2EU2W1K2mzxF5faJJzhzwDpffkCbff41rctZKu4mvbdPYGQwGg8FgMBi+B/53wWV/xkfMwnogJE0lLLMw/w7yMK04/zv1nYkCB359gDC/JjogHXLmZg2Y6PmxeaTMTyllf8Z5JHGlvQCRCeBQ4AbEsKbSk6CvCTk31TP8/Y0yrTVO5BxFEIhSklLXKerFv2lNUZiRyK4JoeeGexc4nzfUO0A+CxCxmx3nlUaq/k2kIy7Bh6qdI6X5S/B+Xmw6MBgMBoPBYPje+OuCy/6ohHomDbcQjiXmzjKFwFSiGYBgXQPx4HKIgwgm
+Hd3V7zNcv8H1DTIEjcgEaTVp01mB3MMC/JUif6TqOhFNGDRNomFZa0g8Mz8W/n8gr3d1nZ8TLdA6DSZurLEBqRPiJHV998ohJGPtHEITFiGISgsmBKxLXmwiFUx37TCCTea8gLxMav/ZZ74Hz3qBusTPTsg5iUjU72/kzBg1aTUYDAaDwWAwfGNc3LkLCMH35Hb8RdAX8y7xmnYDwZqFcokd9M+hziF5Z3hqqlwxPuy97W+UIyDnBS/Bc5/iH+2ovxCRxCMl/NudTkc7iKBN8zRBrEljSuyfuiJR5JGulkrzw624uDBnTRe0eSPvOSZBLeURsKbekXjqE9PDcRYPhMqtupAvaV/Of4i27+GdDFGmIfrKzEzqDAaDwWAwGAyXaFbH2qDQI0b8efbOFYnr65kI9od00MBpIyjrFTnX3xL/pwchvEeb7rqH5LRfb/vIF85PxSAUzyB/a896MBscec8EuDfE30kKwengNyEXa5IF1+khzjs1yHm3I7TpDfITsjVSJoVrbRCC4I6Qzxj1XRNYELlnck4oGsinjXLcoC3fcO+utgnwjBCfEHWV58bkTOpm6BtLECbGk00FBoPBYDAYDIZLNKsT4dc/Y/OizsUQuXhDbxCSkyKZQbvxqvJhsjDZE6dH4hE9gjDtSv+DzK2+j9McMoAQtlHnG3LmegvcM1Wki4mHkBpNKphA3IIMdXGtg+f4twXM6kKktwTBWIB03ihveYGqJylCpDU3mkj1lbvxMTkN21rjJ7/B9bkQYE5HzAAjcmem0iB1n5DTKi7JuSOvqzI/If8ZCFNiwWANBoPBYDAYDBdJjiBAy1kcIQzipYy1M30I0yLI/1QCdtH8xDPcT+TJWpFWWpwcCPpXO8iQCPIx7n1RBIWdFvBZpbV3O7gmDxXRkzy4Xpp0NZRZ30/a1PJoPIIIaKLB9UtU+8j3vu/hD+egxExuhnq+0mdTPSFNn8zVUGd2XMHvauiRQXGakcA1ubgY34dA
+vWPWRjXIadHEdE5+l3uX+D62acBgMBgMBoPBwLjkILCiDZin/CzuqSf4y/d1IBw3/WCsGfJ5BWlgYvGINNfBW3OkU4PgXlfC+Q3+6usCzuuJnImeBJKNM+RTB5HRWq+tZ3f4mawmhyqOUAT33lMQRiGFbRCTiJxDhJavaYPJ3RIki89jScBW0SbFOdr2gZy77iXe9Ss59+6/hZvhvgDl47LeHMDNu8FgMBgMBoPhAnHJrrxftxAjxh2IS0ROU3AHEjICacgECM4dpCNak1+SLpMDfGp7kmqC4HRAihgjnFW6geC+9O6fQrAXxxK1HQQhBFF5J6cpGZDTCLX9euOs0lwTs11tgzrK2Z0Ezh7aipAE5LzDiQMIghaIzf2e4dKb0xmjPj2PsJQhKwEI5T3+fySndZN2CMmdR4qMGBkMBoPBYDAYBJfsynuhBHURfuWcyYsShDXZECR5MsJZnCW5sz38meHnCa6/wz33eI8WZgFzuYQ+n5uS8scQ8v8mZzLYBEEhcl7whBAEXh4vMMfjZ4YgKk1NvkBshFx2cO2BiQrqGqV4z9Oxoh5hVvhDkaopyt9SeUlbS14N5X58ot5RtOcc1y4kXj+Y4xp/ut57ilW7P9oUYDAYDAaDwWD4CuRINBV1RYQi2gx8mkZSIpATcSCwzKI9wFmdhZwZgtlam/44OWiRO/PEcY76KXFz+HnWOrHmRNxWD9XvdQjrS8/sr488tTvtGqUHYOV0+yibnLmR+sUp90YgOUtVxmu04VARqYA2nT5w3RJondjhhZzFWr8XcXCAs2GS9ljaTbVpgrQHeJ+zgn0hUt9r5GIcSYwoTveOnHnlCP1gZlOAwWAwGAwGg0Hw49IrAA2IuPcOPIG5Q87ETH7n8y8LdXaGhfQfBfOukXOVPYQQPiDnHY+vLZSnNtGucDlmWeL3qHymKO8M6S6Rr3an/Y/KS1xzFzZTQ3m7tOn1jp0oPKi61BWxesK7EK91QxAgIaFJSh5S
+zlZWr3FoD6n3IzR70j4Sw4gUkXuhTa1X7nNNBsMB5i6ZPwSPRtgNBsOOOYPX4nt1qVPC4sJQ7l3UPVljYp5vjRydu7ARimCMQKT8/7MmQvoQfx7HClvylXMzLHSLSZmQJHGJPZOzN+TOQs1BXpYZBmGTnFtt/RsPzh6pIKy4/h8IyT856iEE8jaFbG4NFquef1BkVAgTP/NbkZI+yEyg2kgT2r0CIp9dUu94XUd1HuqOnAllH3lO/XoYMTKcwVylHbEM97n9NxgM33rO+JBjRNZI85hrONr8zee7xZqnn8fRl8HI0TE76yt99vi29tCmPaxBYGahnLUJlR3I97RCDbgA5++ieamRczG+QDneQXhaB5pEIwRXFRLVFDKmyElA6SZ6GuKJrqmIxhL1eUI+YiLH+byROnsF8niNe2segWEk+LzQ/jNbQvxIEbUfKRPWGOnNUdYFuXNSBsO5EKMlKVNUg8Fg2CJfPJM7k9wyjdHZzN9GUo0cXczkwRhC4I4VQRFhfuQ9Xok7ZwyaV5ThSpED8cp2i1vFFOwjZpAfD6giciQmcG2QGiGL/q5HGkkhEJomrgmp4v/vPXJDqq3fyDmXIHJe9m63kLDcO+aq3QQdtKfUU8jc2t27mSoZzmyuCshpZRMTcgwGQwb5RtbrOGvoDYPN34Zi+OurVEQFh+1BeB94grtght9q6rdliYHSQ1oJBHTC/3Lu5iPwaUqZx6v7mYC0MeBaXlDUNjntzgJEIguJq6cQlyWIIaGNauRM/qJtOx+YlENV5gXKQirGEZHzmtfMUD5x9b0oMslDfT1WGsGueq9CuESzdSkTrhDoO+/9Cel8SiN50AhmcU0f7zrjhr4mZ/dq6j1xG07S+keK/Tul9LuXXeQUJpJZ8OiZjT7n7DONLfk/qE2LrfflbPMY5d02Vmve/NTIOM/ceRsCSck+t68eslGyc5xm6AeZ+mCGtFOf923/M77Djffuz70ZhKMBpZseSxDv5Z6+
+/sl8OEc7fqqj1waijVzueedpZfDPUaThBXVMcrzH3OOs7Lvz2nNZ1EJDpRN6YyOiLdYIGd6lzOlRkbkRcoagv8Xcfu/YzmDCrtPZGH851p6t5VTjqYv2rXttJOtPcsB5bmd/3jJukwOMq4R2WLcUmefS+uKu5yCHaFnA7+/DXe8iw/MXY73zZciRR0IelDe6rhLY69B+zCCIljJpU+Rg7X0ORKeBBTPOWGY+E/ULiy17suvA2xynMVUdi+vAsYy4vM+qs/3SpAPEQRM/8RCnzx7dKxIx9gaQdqYQb/F0JxiSO1fVR71/0mfX4vz7G96FeJOLcwgj2xw69JHuAgtmgHTHaqDSue+yoX7zlHbbIJ0I1jtOIcJhSVI235KGnOPivBcpAleQIW8m/vzeG1veQ9ayvxR8LouQu7GQZNA07mtz/q3H88wWjXCtQPn1hg5hLPVLNkGWvsPje4R5aZvpX1DF+yiRdq72RJ/veu3ZS9vA2iKYD3a0J384HEKaw5dwR38u245+G9S2kG79zl8KtmWIOs4g8C4PNM62YeGlN/DHgnLaU1NrRdXzchvzW1qA9SDjHBHtIOZhjndfaGyv8h/gHS4KzBF5157aFsF9tKMOdZSzX6K/ZJmvuT9vs2LZN26rGlfyTqpcNzLPKynWV9v6e2o7lRwvZ4dLDgK7lygxKQD5kUFVw2AUDcqkZDac1hhBXNeECwJ8HQJlmLGs3NEkaO0zOpl0sAUcRgxVp12ozjZQn1HKToTfgZt4NlEkQs4ShUognmYodyJtyxMX14MHNe9MeJ+WquMY9ezmWKCe0wYc5490ZSde4ieF2MlhRxC/s76HE2Lk1U+Ir7/DMqsyU2U7naV9muQC6hZZnJ7PsN27W0hIVWgrl/pl3lM7ZcFqZwg8XRXWBBrl+AropbTnfYb3MMrYP3wvhKdAWEXfy7D+PWfoh5WOM5BOHQajlxK8XAvccd7D8rvWnbT+VGJshFnW2gMiONXYVmbw
+tQzjaXqEMg6goT8GIvWJU+b29pHfxS5ilNZO9ZLj5ZR9PhO+lObIe1EiZE7B5CW20EhNrNphwEzHP8qo+lvSpgmSXmjrSJvIqYdftu3QgGh0yAVklU4WoEw8uf8EqWkpzdguMlRPEbDvFcHyr90gjXfKqC7HDkdHtb2Qto9JQNpSgr8WGLCJ/z5EsAcxFWcXky1CeEhnamKHemhyMvZMF4SsBhk0YFFOcxXf3IDb6MP0QTnYaGJ8POzpCz+8fiDPrvsik/A9jgcynz/z3e97Hgz3pqPU//5Y5vEW5lD9b7Q5iLhu1x522spoLwdbBIY25oUqsNFmahzrvFlAifeY9kZlTKaOhDQiFOzSZuC99rz+0vdMPXuqvUo72SkaYsITQt7KnLn0xrTMVQPVv+uUork5wDjzMcZ7DNRc1lDvSudZZJfa12Ys8L4TtTaN0B7jPW3szxF+GAzeSK3vGVeNEm3lj23xfqvHNmuHcwViTzHtDPX6u6v/epYx0i+GntWHzD81Nf9EJc2J/bZoegStW+GcmqftfHISHHlOnHv9ndtgovq7XtfSvP1meX6q6sUE8OWcz4N/Oc0RBt0rPk18RpggI3JahiHOKclLl4Haw25YFiFtgpf8G88JCWCB/R8skGLm1sMODWsyRvt229CphuiMU2jC9DmDHgTmCIQmjcxwPv+x4IjPqxJWtTneG7nzTEHe9hYyit2Od9rUZj2jzu2c6X4QI/LMQ/CO1xMJvycWuDHZRFTi/NgJd+40fnn9YClauQOME5/EbpgCQTPXwmSYy2GIIvs+WT8XtGnT/HSxh4xkrXdEm7vapeqt3Ot/CBDq5+6hGkdpZX2i06ULBuahQL33rO3ZTRFWZ16bjdFeN2cUKmCaolUp2ieW2Nxo0OZud2/HenaoceZvtIVqjdmIc5eXVPjnbJHGhnc4mJw30A/6Ocsep5Dno82NKPuDNz/XqFqted4Nn5bW7qGvjVPaqVtxWyy8fhQcUSPv
+94nkFBOENycKgex7/T3CuG+lnKdqZnz+xpPPBnTG+IqaI/2S9AHmZxCVRHYkVi91qSb5JlR9MinyrtTDng7NZ5sS3MumejNv8hbnBX0ljN6D2GSxo43o81kDvdPCC98tzi1do059lONadugo3Wwq0vVQuzWye9FXTgLScEvOEx23wRUWJfGIVyd3ViqgjGewUojRI3Yl9K6g7FJ0QGofVJv/owZsF+10tvEHQNC1BpIJLbdtEVfztW0mhCkCgn/fcEcZZwXrtsT4yEq4f24p//IAwmbXq3usyCILWkGJHcoqCbofN2xM7rxMUPLsRiayh7Ml0jbNFNJbtA/mntu3bFr9LPjeH2nTkUt9hzbDF5bjHUJOVUJLuOWnvN7KeIPqqqqzlxjXfdrU0oce8Ulr7wnu0eOsXrTNEMw9Uu9mhHW2rsZhEa2R71Sov2czpNDmg+dUYd8cWffuFxT2lgYHUtrRRHjEpU/ntdjWjph/9DtuUvmzlvvm61zySkVju0ufrTiOhVtvrX3YsSGRNsbvvLYc75g3hmrzIii5zho5KrCYy+C59n7uodM30BnvvUHQzjFZacFxluG+hJyziDY6CJObXcKnDKA4Jb0xyAsTol8gSAHSbaQ5mlCmeNsm1EAJ6TN8v8YzQcqEEnuksIZJ/DVloI8zThqaGCXktH7aRlkE2vttuy3aq94FYOIJwaLxJBAn8VS4bxLZdbbnx45NBDqEB5mUHaV9wlnbG4O6/zQqLJfeKVticV56i/BgDwnYBd9sKylYTn9jY4hyagHznio+i5aCN01+KuyDRTa+BiXee+jNSxKYe6EE4u4WwUTX++VI88K2dmxkEJ50nWogSJWNIayz/ntf7Blns5Rx1i0xzgjPvqt6DvzxUiBNLTdEh3Dok3K2Zd/73HZ+bEgZHInswIt6FwEdD8GW+eUUZbw/1AZHgbG9JuNH9uim2zQu+/ye8RKnPGvk6IgESexW5VCsxMER4T8h54xBBsaY
+PC2JsNqSttHbdmw4vdc9ws3dnsVYdpG77AEEE+UzKfvrFOYf7ShXrBauJkhbawuBCbHjwPnzjt1NWhuS83y3d4FR5Edc4o7wfea5DR8q8jj7Av2VCXNMnx0zyILP9W7u8Rh2cni7+tf0eQf2XMquF0PtpvpRLcKi2d3Xb31thu+KvYyN/GBLOhPa3H0PD7yYfpWYKl2fGKn2lL7azLCbeQntMUE524q8jM50nA1LaD8S7Eb7pDm3E4ZDCp975oilBRE9Gm7Vu/hJn93xn4M8wRveiQUGN3J0SKGz5U+kEOK0oE2KLPm2xgF2v0cQXhsV7iKJS+tdqO9ajLELJ1qHHoTsSAQmPDcHOck66GXhuvMnCmkLbzJZgKwkMKd7hKARY4HKtOgpYpQgvTnSEPMNiUYtWsEPDVIZ04wz6qtrTRcIfJNc0Nya6i+jPQQjpuwmB0naRkDZSX3Hb1ni8szQ/w4mjGJchDtInUYW987BjnoXNetJOxPml1ObYt7TYc0wbnPcG1P1Zi+6z6b1j5+UrnH021OT9dqO975Pa3h7JKLf2NHGWdAn5w6Z9rVRzv5Z3zOf5BlnbSqn/fCdM1DJPvim+kqIEApl5qB9c0Qj47uM983jBfCzwrTybrjUUspw6DJ+6pde2v0t14MDj+2AnGmdeOeLjhSGxA/PUWRezvp8cCkbTV+aHO3AhD6fxRH1fkibAd9uFVFpU4HzKyrImQj4Q5X+MOMEskugHJA7IzWROsDU7hEDbZlxJyJRwri/2M1Vnk9p6e2Ji7RLYJ0qYXIKYW9IzsNJjPcjZ7ZkwWhjp4Unm7BqxwUnIEkJ+thYxepoZ5x48uxA+vdxPq1t/bckcWpl7Hu/jrCDep8imG1DFzEZikzg3F43JRa3do5FvdTuewYhuOlthlTVB3O36Zb4GmEGwd8XTpu0PWB1M0VrqM3UuL1TA1Nirl9WIdSUbUdsnvG8+E7ZXPSW2QiJTjTOpJ6PqkxRybaLs26S
+lNyYW2KOyDJu46rHFcZ2e8c7PCS0abCMp/hEZRTT9W2WApoc3fl9IcXjbKGxjY1tbSJaP9I7eVJzGysEetu0rltkgRcto2x7Xo6BePP52W5qf9k4R3s6pniaaamOv3bD6mlYxP03qYGRdwLiTvNKLlgs58eaEDbr+LFnwpspYrZLmF6gU9YhhC7JxUEZK+E36y7XXnKJw7APyhNes4KFtoXvsvssAcVmIEYjRYxmaMsB6n9P+Xa4zwbwXjhV7ts/Fn3ab49dhoRFnkA41Z56+Dt2e98zxkxp4OOTrNszaeeA8u2e13YI0HqOkHqPvXFUL1hOCVKaB90DtFebPse+mFzg+MryHv333kvZUNO/P/uHqvH/K2WL/XOstU40E8uK2rIOc3XdntpE8VDj7JhttqDN3fAB1jp/buSNu9cMnlj1HNE/h3qrsa3xeMQi+HltG0/PO8ZhEczUuxDPkv/AE/AyA1mup7zvUQrxK4JTjYGFNz+M/DNx8Eo839LfMz1Pn+MgPdIZ49tpjjwPbEsI3eL9rI0dKHnR/sssIuzcYkCykMvnMH6pQTbAjoM4N+CPjoX0grLe026NlTB/cTAxw3NNnG+aoW5Zdrnu0zouDuCKdzju/C+KyEiQyE5ez1nq0PlSTTJDJZT18ZsW0mbkYhot0U46ftWl9ce26n/SD36RM63LumtWR7yfbYu+r8rvQJiTdm2jDJKPzpvd9f67SzOnib53DoCffcqw83kPT32pC1QFUbW73q7V1ZZ3ooW/Ae22Q9eakshzAzwv6CWs6RGSqy1aCr1Z0C4ZT0m3fbBlk2Sc4R3m7YPHgA76ukR7LlPaU5tbc1958Oa/GW1qcZ/hjTHx2qyOcXVVcm7Yd2g7064rzpKKRr5MGcK0/k+fTZEOMc6OjRbeod7AG2yZG/dZZvhzxLXqRwOYT+17lyM450klGnvW3Sxje3jMc08YT/qMcm3HeNLzT1lNQxHrhAltuqSfQnZLyJnBfazR
+Wcq4ZWz74yspOD/kWiuheRU5WPc3Ld/Vvf7+Ee+uwPNSxodzls2+neYIi6LE4BnR553RLsiGJkORGsB58+sgnSkmgpHqHLLLPiOnvZore+6s+Qlzb3q7K11FnjTx2YVw28DEBCzxm26x8N1g8UuomCepQNW1Tk5jJAtUjTaDtPW9e/rIN6Ezdtm9p71rHgFvo07hHiHEh6j3t33895lg9yxJKVOYsns2ztHvH7wdt3mG3fRgR9lLxQFJCUa5a9dK/xbk1Ip21OZKrYhA6o2j2Q6zG1+bUSa6u277bcJTlgU3Vx88ErSwvthBIDfa098hxVw+29JugTdWhxXNDds+udYizN3jkmXwwevihuloznE2KTHODi0nSCyiZYa5cUH5zJ/6tGm+nmWOqO/oC0GJsS3BjB9O0Mb9lD4ZbCnnuILNsaLlTFLW3iBlHOY5Y7pvbsxyRreytRLEvuP199qW9D6FMsj5fEQVep81clQt/MO2Q/WRiOL65T9VkF8H6ff1goIApn0QjBY6TuIJSR0sPL20gH7K/7xEHU+QTl2Z2iWUTW271MQQ6tQ2TK7YHvY3OnwCAaKuhN7aHgG1h3TaW3ZLhkqQ4cFz5wmKIpyIRm+myGbrSIcXq554+d1ckTMTTHsfMzpQYEmkeYO2T8s/xuJZ5PxMyyMKoxM2ddvrn7M970S3xX2O9kw8wbiZR+hLcX/+uCevRZFyZpwHIggvV5d6lg9zTc2bY3aNhXgLSdUEqUHppjN6rM7OcK7pU3lHEmKZ0ELQ6KTEOIuKjrMjz83jHXNjBwFilznSXXoySD1j0Pmqx7bIIuMT98nGjn65Djp8KmLkbS7sG/dXJddoGVuNU8wfyPMGZVjueBedgs/LeGlcgqz2g74plBOAgFxMnRdyJm7i6S3AoHhGB/iBBTc6ZPAqZW/LGqYb9f9wy6FkLieTFyZbLXX/DI4Z2qhvJyXCMe843+K5QJGPKzwTepPqEN/FJEscRwy3CVGe
+CRCJsK9MWWKk3cMAayrhRHZkYnImkH0lbDcu3VtdyrtnJMcOkKZiYZG5lzUY9o6Xj0DY5xrM0GBz4wW1cSAy2TmPp+8w7tW7KBSEXY2X5SXKZz9sMK47+T19duMthygDDAKx75RzN0O4zq5BYOdnK1X9rtL+jbxjVY7GtokZJEeCwEaKeAgREZfYV54phNwnO4vPihQSnvlkS4u26+LenXbPKYd4pYzvID8S10jOGImpAU88LeQhrr4nX5UYGQwGg8FgMBhOh7++ewNoUwow5RGE+PXZD1Y5e17ERGgX3/uBIlX/Vlw80Y6IC/DOrh0rlHXt2ACuMTv4n897tEAy1ues+H+149FHHUaKdKw1aLsCx6LtskY3FxfjEoQ3Vtdvke/Sa2MmW2Jq18P/L0aMDAaDwWAwGAyHwLfWHMG+XzQfgfeznLWIcO8rfY5q/Y8iVXUI+bVtNpklylmH5kcCsPIZqEVZu03v8OyMXIBXJi+TqomHMq0TUz85jOqfyUhAuoSs1tT/A5AoI0YGg8FgMBgMBiNHFZMj7X5wBuIRwT1hKEQIfwe0Gb+kQ+kHzQ9yeD7FNI1SCF0ewiR2sx9E78Dt/UAuLtGE3PkhIURMRN9wTUc8X+IToI4ts+83GAwGg8FgMBg5ql5gb5Mz4xJnDGl+2T9ijeDsToh7Hz1yNDykZycVsf5vr4xpZRbSkewhVJMyZAMk856ceSGTnE9B1dQBPb63re4dohzTLeRP3svTKT3rGAwGg8FgMBiMHH0HghTQH/O6uieQL5UQz9oO1mqw6VxATqsxhIAvZ4NaO4LBfbV2E49y0m4z+nMmiIlWLa0dlGmdnKFaeMRpg7hdontug8FgMBgMBoORo68o/Euk831g87oY986qPnN05oRIiGMf1zg2URPk6EfK8//h67chkQaDwWAwGAwGI0dfhQywliNWjhlCcq61xaEDaz3Y3Is1S9e+O288EyKdhUe+BuRiBXXOVVMCzQ5rfdrk
+4h09oR3uFFmK1W8S/4ixjgeggtjKc33TDhkMBoPBYDAYjBxdJlFigpDQH3O6BD91QZQkdk8dZGCJ57QjhQQkKFIOCgRnqXUCMZIYSVzvBb4LsROTQ8YtfgvInXfiz4b3O6VBSnAvt1XLgusZDAaDwWAwGIwcnTcpEmIw8ciMQMzqluQCqDJY0Bdzs2nKM+sYRN71m3NyUQ2iN1d1EjLDdXvBNe1Zbk3y0FZLkELRLA3FoQLOHrXJaZaIDuzMwmAwGAwGg8Fg2IW/rAn2kgMW+sOUnz5pOnCvJhH8HJ9DWnjEoQ2ydKPIRgwCwaShgbT4nsdVHrMc5WXtFmtv+jBjC1AG1mTd5Kx7E2XQBCZC3espRJHLOSQXj0h7nptpT3NserhK/xdtevpLrMcZDAaDwWAwGE4F0xxlIwkSj6cPYT4kz6EASEhbEYYFiILWujDGSKvtZdMnZ6Y2Rh51lVZHmemJO+w6qVhFIFvveGathfFM9zoov7jGZs1P5Jm7BUizq0jhUhG8kD4HzPVJkU8mUzVCMNeb4/6xf1bLYDAYDAaDwWAwcnTeRIkJQE0IBeIkiYe2WBGPN9H4qHuEyFyRc24gSEAwpluy5t8fadP5gcYS5Ge+gxwJuUtLWwKzigmgaIsiRYp8CAFMkEfP+z0GqYut5xgMBoPBYDAYjBx9baI0UoSAyckshbjwdXZWEPnOBuDFTrzdLVe/t1SAWU1AxMGBny7n94LvCe553kGOGuQ8yPG9t/RZE8RlFE9zQvp0njGpwLEgfiPaNL1LkP8MdVwTJfNKZzAYDAaDwWA4Z9iZo3LQpKJGnzUnAnFKcANTshCEZ8GESN+4+r+Bsz7ye7z6/91Lj7U1Ynon5nVMPLKYpU1xLxOgtRtt5CdmdKFHziTdhTLr43o3V3+7KcRqAnLUBXms4f8W6m4kyWAwGAwGg8Fg5OirAZqeUJEjEfolpg8TkTb90bS01P8C1uj8ANkYqHufoPVpQ5MkWpm1
+mRr+f00hJsmeIosjBQIBGqzSn+A80AJ1GdGm9ovzuua8Vr//JHfOScB5ikme1EPaZKZI5Cs50z8L/mowGAwGg8FgODuYWd2BAHOzqSI1ATktipAaObOjCZAQHdYoicaIiUeE2Eis5dHuv5mA8FmkGFqgKdLvKG91THjeQLj4f9EUSTli7ckOZR/QZ1M+DS47e9JbePcn5Nx4y7Ulro1Na2QwGAwGg8FgMHL0vYhRSO7sjyY8TITEXTeDTePaijTV8JnhdwksG8MkTTQ2YhrXwW8BrnG+G57hlGZr6Xmlq5FzCjFD2Vgblngk6Q7p1sidR1rg/3tV/gVImpCi0EiRwWAwGAwGg8HIkYHgCOEWpOcRWh8mN68ptzNpadBnU7mO8ng3B1naOKeEuEbiApxASK6UFqmtiFiI8vSFBKnYTM8gRz9SiF6A57j817TpxGEIYsTXuureIalzSgaDwWAwGAwGw7nDzhwdCGlxfWjTHI4UaRmCxKQSI+AJBOgJpEXHCBKs4yF5ZIpAVv4ld16InSmszwmBtIXqeR/87JS2m9jdgZxJLKRH3yufwWAwGAwGg8FwCTDN0REB721iGheDSEi8pFdyXuc6OsBsSjp8nz6nlOAZITqazPBvLUXOfJLDRKa/KxYRiBhrqG49Mpbg+add5TUYDAaDwWAwGIwcGfIQp3WA2H1alxTTvBk5l9w67pIQn7VzBEkX5EnOCgmWSGNmb8JgMBgMBoPBYOTIcCkkij3YBUKMVoSmA80Oa5LqiuywqV5CzpSPydGjOsPEaTCZ0kFeW6YBMhgMBoPBYDB8V/zPmuCiiFFIm+6304gRm8fdrH7js0zaPTg/O13d/5udRbBDBjh2mKl7utbKBoPBYDAYDAYjR4ZLwRKEpoH/6x4xaognOmiJbjwCxIRpAC93fE8H9/BzDWteg8FgMBgMBsN3hZnVfQEol91XOk6Rd09Af7zKtUGwbrbdazAYDAaD4f+xX8cEAAAwCIAq
+rX86n1XwEloAwEKk7qMEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0BcBBgAnWFqkFnOmWQAAAABJRU5ErkJggg==</ImageData>
+    </EmbeddedImage>
   </EmbeddedImages>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>7bced8a5-91a1-4ff1-bd5e-038ffe5146b1</rd:ReportID>

General/CatCategorias.aspx.vb

@@ -41,12 +41,14 @@ Partial Class General_CatCategorias
             If ObjCategorias.AddCategorias(TxtCategoria.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TxtCategoria.Text = ""
                 Alert("El nueva Categoría se guardó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTGralCategorias(UsuarioActual.CveEmpresa) = Nothing
             End If
         ElseIf HdnModalidadCategoria.Value = "U" Then
             If ObjCategorias.UpdateCategoria(TxtCategoria.Text.Trim, ChkEstatus.Checked, HdnIDCategoria.Value.ToEntero) Then
                 TxtCategoria.Text = ""
                 ChkEstatus.Checked = True
                 Alert("La Categoría se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTGralCategorias(UsuarioActual.CveEmpresa) = Nothing
             End If
         End If
 

Inventarios/RecepcionAlmacen.aspx

@@ -14,6 +14,9 @@
     <li>
         <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#RecepcionAlmacen">&nbsp;</a>
     </li>
+    <li>
+        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Recepción Almacén   
@@ -811,7 +814,7 @@
                                         <asp:Label Text="" ID="LbProducto" runat="server" />
                                     </td>
                                     <td width="120px"><b>Cantidad:</b></td>
-                                    <td colspan="">
+                                    <td >
                                         <asp:Label Text="" ID="LbCantidad" runat="server" />
                                     </td>
                                 </tr>
@@ -827,15 +830,11 @@
                                         <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
-                                </tr>
+                                    <td><asp:Button Text="Agregar" CssClass="btn btn-primary" ID="BtnAgregarPS" OnClick="BtnAgregarPS_Click" ValidationGroup="GrpAgregaSerie" runat="server" /></td>
-                                <tr>
-                                    <td colspan="4" align="right">
-                                        <asp:Button Text="Agregar" CssClass="btn btn-primary" ID="BtnAgregarPS" OnClick="BtnAgregarPS_Click" ValidationGroup="GrpAgregaSerie" runat="server" />
-                                    </td>
                                 </tr>                                 
                                 <tr>
                                     <td colspan="4">
-                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="100" data-freezerows="1" GridLines="None">
+                                        <asp:GridView ID="GvSerie" runat="server" EmptyDataText="Aun no hay registros." DataKeyNames="Serie" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="250" data-freezerows="1" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField HeaderText="Serie-Folio" DataField="Serie" ItemStyle-Width="40%" />
                                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
@@ -1091,6 +1090,74 @@
         </asp:UpdatePanel>
     </div>
 
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <asp:UpdatePanel ID="UpConcepto" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Cargar Conceptos</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Cargar Plantilla </span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body  formnombottom">
+                                         
+                                        <%--   <div class="row">
+                                            <div class="col-md-12" align="center">
+                                                <h4>Arraste o haga click para subir el archivo Excel</h4>
+                                            </div>
+                                        </div>--%>
+                                        <div class="row">
+                                            <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 20px;">
+                                                <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <div class="row">
+                                 <div class="col-md-2" style="text-align: left">
+                                    
+                                            <asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
+                                         
+                                </div> 
+                                <div class="col-md-10" style="text-align: center">
+                                <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Procesar"></asp:Button>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </div>
+                        </div>
+                    </div>
+                    </div>
+               
+               
+                </ContentTemplate>
+                <Triggers>
+                    <asp:PostBackTrigger ControlID="LbDescargarExcelConceptos" />
+                </Triggers>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -5,13 +5,12 @@ Imports Microsoft.Reporting.WebForms
 Imports System.Data
 Imports Extensiones
 Imports System.IO
-
+Imports GemBox.Spreadsheet
 
 Partial Class Inventarios_RecepcionAlmacen
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-    Private Shared missing As Object = System.Reflection.Missing.Value
     Private Property EstatusInicial As String
         Get
             EstatusInicial = ViewState("EstatusInicial").ToString
@@ -44,9 +43,6 @@ Partial Class Inventarios_RecepcionAlmacen
             Else
                 Return CType(ViewState("DtInv"), DataTable)
             End If
-
-
-
         End Get
         Set(value As DataTable)
             ViewState("DtInv") = value
@@ -988,11 +984,15 @@ Partial Class Inventarios_RecepcionAlmacen
 
                 RecibidaCompleta = False
 
+                '' carga desde excel
+                ' HplCargaExcel.Enabled = True
+
 
                 Dim CargaSoloUsados As Boolean = False
 
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
+                    DtInv = DtRecepcion
                     Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
                     Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                     Dim CveSubProyecto As Integer
@@ -1869,7 +1869,8 @@ Partial Class Inventarios_RecepcionAlmacen
             If MensajeSinExistencias.ToString <> "" Then
                 Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron. <br?><br/> {MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia)
             End If
-            RegistraScript("playsonidito('beep-07.wav')")
+            RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
+
         End If
 
     End Sub
@@ -3226,7 +3227,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
             ''VALIDACIÓN DE IMPORTES INGRESADOS VS LA COMPRA U OC
             'If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            If Not ErrorMovInv AndAlso RecibidaCompleta Then
+            If Not ErrorMovInv AndAlso RecibidaCompleta AndAlso UsuarioActual.CveEmpresa <> 140 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoOriginal, UsuarioActual.CveEmpresa) Then
                     Dim dtt As DataTable = ObjInventario.DtResultados
                     Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal") + ImporteIngresoAdicional
@@ -4794,6 +4795,147 @@ Partial Class Inventarios_RecepcionAlmacen
 #End Region
 
 
+#Region "CargaExcel"
+
+    Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+
+        If TxtExcel.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
+            CargarArchivoExcel(Directorio, file.filename)
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+
+    End Sub
+
+    Protected Sub CargarArchivoExcel(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la primera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Código" Then
+                Alert("El nombre de la segunda columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la tercera columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "Serie" Then
+                Alert("El nombre de la cuarta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            'If Not dt.Columns(4).ColumnName = "Lote" Then
+            '    Alert("El nombre de la cuarta columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError)
+            '    Exit Sub
+            'End If
+            'If Not dt.Columns(5).ColumnName = "FechaCaducidad" Then
+            '    Alert("El nombre de la cuarta columna debe ser 'Fecha Caducidad'. Favor de corregirlo", TipoMensaje.MsgError)
+            '    Exit Sub
+            'End If
+
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim NoPSConSerie As Integer = 0
+
+            If CveCompraSurtir > 0 Then
+                'DtRecepcion
+                Try
+                    'Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                    'If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
+                    For Each RowExcel As DataRow In dt.Rows
+                        If RowExcel("Código").ToString() <> "" Then
+
+                            Dim RowPS = DtInv.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Código").ToString()))
+
+                            If RowPS IsNot Nothing AndAlso RowPS("CvePS").ToString().ToEntero() > 0 Then
+
+                                Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
+                                Dim CveUnidadMedida As Integer = RowPS("CveUM").ToString().ToEntero()
+
+                                Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
+                                Dim Serie As String = RowExcel("Serie").ToString()
+                                Dim Lote As String '= RowExcel("Lote").ToString()
+                                Dim FechaCaducidad As Date '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
+                                Dim Observaciones As String '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString
+
+
+                                Dim Valido As Boolean = True
+
+                                If RowPS("AplicaSerie").ToString() = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
+                                    Valido = False
+                                    Alert($"El producto '{RowPS("PS")}' requiere 'Serie'", TipoMensaje.MsgAdvertencia)
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                End If
+
+                                If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
+                                    NoPSConSerie = NoPSConSerie + 1
+                                End If
+
+
+                                If Valido Then
+                                    CveConsecSerie = RowPS("Consec").ToString.ToEntero
+                                    AgregaSerie(RowExcel("Serie").ToString, 1)
+
+                                    'AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
+                                    RowsCargados = RowsCargados + 1
+                                Else
+                                    RowsNoCargados = RowsNoCargados + 1
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                End If
+
+                            Else
+                                RowsNoCargados = RowsNoCargados + 1
+                                ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
+                            End If
+                        End If
+                    Next
+                Catch ex As Exception
+                    OnError("Ocurrió un error al cargar los productos." & ProductosNoCargados.ToString(), ex)
+                Finally
+
+                    Dim MensajeFinal As New StringBuilder()
+                    If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
+                        MensajeFinal.Append("Los productos se cargaron correctamente. <br/><br/>")
+                    End If
+                    If RowsCargados > 0 Then
+                        MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> productos correctamente.")
+                    End If
+                    If RowsNoCargados > 0 Then
+                        MensajeFinal.Append("No se pudieron cargar  <b>" & RowsNoCargados & "</b> productos. <br/>Los siguientes productos no se pudieron cargar: " & ProductosNoCargados.ToString())
+                    End If
+
+                    Alert(MensajeFinal.ToString())
+
+                End Try
+            Else
+                Alert("No hay seleccionada compra", TipoMensaje.MsgError)
+            End If
+
+
+        End If
+    End Sub
+#End Region
+
     'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs)
 
     '    Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
@@ -4898,31 +5040,5 @@ Partial Class Inventarios_RecepcionAlmacen
 
     End Class
 
-    'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-    '    Dim Retorno = True
-    '    Dim Archivo As System.IO.FileInfo = Nothing
 
-    '    For Each Dr As DataRow In DtDocumentos.Rows
-    '        If ObjEventoBitacora.AddEventoBitacora("Documento Relacionado", Dr("FileExtension").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
-    '            Try
-    '                If Dr("Documento").ToString <> "" Then
-    '                    Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Dr("Documento").ToString))
-    '                    If Archivo.Exists() Then
-    '                        File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
-    '                    Else
-    '                        Retorno = False
-    '                    End If
-    '                End If
-    '            Catch ex As Exception
-    '                Retorno = False
-    '                Exit For
-    '            End Try
-    '        Else
-    '            Retorno = False
-    '            Exit For
-    '        End If
-    '    Next
-
-    '    Return Retorno
-    'End Function
 End Class

Inventarios/RecepcionUsados.aspx.vb

@@ -15,6 +15,15 @@ Partial Class Inventarios_RecepcionUsados
 
     Private _dtDatos As DataTable
 
+    Public Property DtClientes() As DataTable
+        Get
+            Return CType(ViewState("DtClientes"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtClientes") = value
+        End Set
+    End Property
+
     Public Property DtMovimientos() As DataTable
         Get
             Return CType(ViewState("DtMovimientos"), DataTable)
@@ -331,6 +340,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            GeneraRNCFromURL()
         End If
     End Sub
 
@@ -405,7 +415,76 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+    Private Sub GeneraRNCFromURL()
+        Dim RFC As String = IfNull(Request("RFC"), "").ToString()
+        Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
+        Dim Cantidad As Decimal = IfNull(Request("Cantidad"), "0").ToString().ToDecimal()
+        Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
+        If Not String.IsNullOrEmpty(RFC) Then
+            If DtClientes Is Nothing Then
+                Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            Dim RowCliente = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
+            If RowCliente Is Nothing Then
+                Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If CveAlmacen <= 0 Then
+                Alert("Es necesario especificar el almacen", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Cantidad <= 0 Then
+                Alert("Es necesario especificar la cantidad", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
+
+            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
+
+            DdlAlmacen.SelectedValueExist(CveAlmacen)
+            TxtFecha.Text = Fecha.ToString("dd/MM/yyyy")
+
+
+            Dim CvePS As Integer = 403591 'EXTRA CHICO
+            Dim CveTamanio As Integer = 1
+            Dim CveUM As Integer = -1
+            Dim PU As Decimal = 0
+            Dim RowTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={CvePS}")
+            Dim CodigoPS As String = ""
+            Dim UnidaMedida As String = ""
+
+            If RowTamanio IsNot Nothing Then
+                PU = RowTamanio("Cargo").ToString.ToDecimal()
+                CodigoPS = RowTamanio("CodigoPS").ToString()
+                CveTamanio = RowTamanio("CveTamaño").ToString().ToEntero()
+                CveUM = RowTamanio("CveUM").ToString().ToEntero()
+                UnidaMedida = "" 'RowTamanio("UnidadMedida").ToString()
+
+                AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio)
+
+                Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                CreaRemisionNC(CveCliente, CveSubProyecto, 1)
+
+                If Me.ObjRemisionNC IsNot Nothing Then
+                    Guardar(True)
+                Else
+                    Alert("No se pudo generar la RNC", TipoMensaje.MsgError)
+                End If
+            Else
+                Alert("No se encontro el tamaño", TipoMensaje.MsgError)
+            End If
+        End If
+
+
+    End Sub
 
 
 #Region "  PERMISOS PAGINAS  "
@@ -1165,7 +1244,7 @@ Partial Class Inventarios_RecepcionUsados
                                 If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                                     If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
-                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
+                                            UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, Now, CveMovimiento:=CveMovimiento) Then
                                         Mensaje = "Error al guardar Movimientos de distribuidor"
                                         ErrorMovInv = True
                                         Exit For
@@ -1850,9 +1929,11 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes(Todos As Boolean)
+        DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
+        DdlClientes.DataSource = DtClientes
         DdlClientes.DataBind()
+
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"
 
@@ -2219,11 +2300,12 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.TipoDocto = "RNC"
         Me.ObjRemisionNC.RefDocto = ""
         Me.ObjRemisionNC.CveMesa = -1
-        Me.ObjRemisionNC.Fecha = Now
+        Dim Fecha As DateTime = TxtFecha.Text.ToDateTime()
+        Me.ObjRemisionNC.Fecha = Fecha
         Me.ObjRemisionNC.CvePrePoliza = -1
-        Me.ObjRemisionNC.FechaPago = Now
+        Me.ObjRemisionNC.FechaPago = Fecha
         Me.ObjRemisionNC.MotivoDescuento = ""
-        Me.ObjRemisionNC.FechaEjecucion = Now
+        Me.ObjRemisionNC.FechaEjecucion = Fecha
         Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario
         Me.ObjRemisionNC.CveCondicionEntrega = -1
         Me.ObjRemisionNC.CondicionEntrega = ""

Inventarios/RepEntradasSalidas.aspx

@@ -119,7 +119,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">Proveedor</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
+                            <ADS:DropDownLost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" data-metodo="getproveedores" CssClassDdl="select2me " Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></ADS:DropDownLost>
                         </div>
                         <div class="col-md-1 truncate">Categoría</div>
                         <div class="col-md-2">
@@ -240,6 +240,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>                    
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right"  HeaderText="Saldo Inicial">
                         <ItemTemplate>
                             <asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}"))  %>'></asp:Label>

Inventarios/RepEntradasSalidas.aspx.vb

@@ -94,11 +94,15 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 
         dvImp.Visible = TienePermisoImportes
-        GvM.Columns(10).Visible = TienePermisoImportes
         GvM.Columns(11).Visible = TienePermisoImportes
         GvM.Columns(12).Visible = TienePermisoImportes
         GvM.Columns(13).Visible = TienePermisoImportes
         GvM.Columns(14).Visible = TienePermisoImportes
+        GvM.Columns(15).Visible = TienePermisoImportes
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvM.Columns(10).Visible = TienePermisoImportes
+        End If
 
     End Sub
     Private Sub CargaCombos()
@@ -126,9 +130,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'Llenar dropdownlist de proveedores
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
+        'DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CARGA CLASIFICACIONES
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -139,7 +143,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
 
@@ -148,6 +151,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         'Carga Productos
         DdlPS.setEsWebService(True)
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.SelectedText = ""
+        DdlProveedor.SelectedValue = "-1"
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
         DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
@@ -160,7 +166,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         '    DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         'End If
 
-        DdlMovs.SelectedValue = "2"
+        DdlMovs.SelectedValue = "3"
 
         'Llenar dropdownlist de personal
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
@@ -179,7 +185,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         CargarMarcas()
 
-
         DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
         DdlTipoAlmacen.DataBind()
         DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,7 +192,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
     End Sub
     Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        CargaClasificaciones()
+        CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
+
     End Sub
 
     Private Sub CargaClasificaciones(CveCategoria As Integer)
@@ -354,7 +360,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TipoMov = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Tipo&nbsp;Movimiento:</b>&nbsp;{DdlTipoMovimiento.SelectedItem.Text}")
         Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b>&nbsp;{DdlMoneda.SelectedItem.Text}")
         Dim SoloConMov = If(DdlMovs.SelectedValue = "-1", "", $"&emsp;<b>Solo&nbsp;Movimientos:</b>&nbsp;{DdlMovs.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
         Dim Familia = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text}")
         Dim SubFamilia = If(DdlSubFamilia.SelectedValue = "-1", "", $"&emsp;<b>SubFamilia:</b>&nbsp;{DdlSubFamilia.SelectedItem.Text}")
@@ -419,8 +425,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
         GvM.Columns(3).Visible = ChkClasificacion2.Checked
         GvM.Columns(5).Visible = ChkSeccionAlmacen.Checked
 
-        GvM.Columns(15).Visible = ChkFechaUltimaCompra.Checked
+        GvM.Columns(16).Visible = ChkFechaUltimaCompra.Checked
-        GvM.Columns(16).Visible = ChkFechaUltimaVenta.Checked
+        GvM.Columns(17).Visible = ChkFechaUltimaVenta.Checked
 
         'GvM.Columns(4).Visible = ChkSeccionAlmacen.Checked
         If ChkSeccionAlmacen.Checked OrElse ChkCodigoBarras.Checked OrElse ChkCodigoAlterno.Checked Then

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -376,7 +376,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         }
         else
         {
-            if( ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion)) {
+            if( ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion,CveSATMotivoCancelacion: 3)) {
 
                 if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
                 {

Ventas/Clientes.aspx.vb

@@ -9982,7 +9982,7 @@ Partial Class Clientes
 
         Dim Acum As New ClsAcumuladores
         Dim Puntos As Decimal = -GvUsadosResumen.Rows.Cast(Of GridViewRow).Where(Function(x) x.RowType = DataControlRowType.DataRow).FirstOrDefault(Function(gvr) gvr.RowIndex = 3).DataKey("Puntos").ToEntero()
-        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado") Then
+        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado", Now) Then
             Alert("Puntuación Inicializada")
         End If
         Acum.Dispose()

Ventas/ClientesAbonar.aspx.vb

@@ -155,14 +155,16 @@ Partial Class Ventas_ClientesAbonar
             ViewState("Mail") = value
         End Set
     End Property
-    Private Property CveIESustitucion As Integer
+
-        Get
+    'Private Property CveIESustitucion As Integer
-            Return ViewState("CveIESustitucion").ToString.ToEntero
+    '    Get
-        End Get
+    '        Return ViewState("CveIESustitucion").ToString.ToEntero
-        Set(value As Integer)
+    '    End Get
-            ViewState("CveIESustitucion") = value
+    '    Set(value As Integer)
-        End Set
+    '        ViewState("CveIESustitucion") = value
-    End Property
+    '    End Set
+    'End Property
+
     Private Property CFDIRelacionadoSustitucion As String
         Get
             If ViewState("CFDIRelacionadoSustitucion") Is Nothing Then
@@ -244,9 +246,9 @@ Partial Class Ventas_ClientesAbonar
 
                 FechaCorteIE = DateTime.Now
 
-                If CveIESustitucion > 0 Then
+                'If CveIESustitucion > 0 Then
-                    CargaIESustituir()
+                '    CargaIESustituir()
-                End If
+                'End If
 
                 Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
                 Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
@@ -334,7 +336,9 @@ Partial Class Ventas_ClientesAbonar
                 Retorno = True
                 CargaCuentas()
                 CargaTipoTransaccion()
-                TxtFechaDocumento.Text = IIf(CveIESustitucion > 0, FechaCorteIE.ToShortDateString, Now.ToShortDateString).ToString
+
+                'TxtFechaDocumento.Text = IIf(CveIESustitucion > 0, FechaCorteIE.ToShortDateString, Now.ToShortDateString).ToString
+                TxtFechaDocumento.Text = Now.ToShortDateString.ToString
 
                 TxtAboneA.Enabled = False
                 LbEncabezado.Text = String.Format("<a href='/Ventas/Clientes.aspx?CveCliente={0}' target='_blank' class='Texto'>{1}</a>", CveCliente, ObjCliente.NombreComercial)
@@ -372,10 +376,12 @@ Partial Class Ventas_ClientesAbonar
         Dim FechaI As String = IfNull(Request("FechaI"), "-1")
         Dim FechaF As String = IfNull(Request("FechaF"), "-1")
 
-        Dim FechaCorte As Date = IIf(CveIESustitucion > 0, (FechaCorteIE.ToDate).ToShortDateString, DateTime.Now.AddYears(1).ToShortDateString).ToString.ToDate
+        'Dim FechaCorte As Date = IIf(CveIESustitucion > 0, (FechaCorteIE.ToDate).ToShortDateString, DateTime.Now.AddYears(1).ToShortDateString).ToString.ToDate
+        Dim FechaCorte As Date = DateTime.Now.AddYears(1).ToShortDateString.ToString.ToDate
 
         Dim SumDescuentoProntoPago As Double = 0.0
-        If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte, CveIESustitucion:=CveIESustitucion) Then
+        'If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte, CveIESustitucion:=CveIESustitucion) Then
+        If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte) Then
             Dim TmpCxCAux As DataTable
             TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
             SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")
@@ -385,6 +391,7 @@ Partial Class Ventas_ClientesAbonar
             CveMoneda = pCveMoneda
 
         End If
+
         TxtImporte.Text = ""
         TxtObservaciones.Text = ""
         If SumDescuentoProntoPago > 0.0 Then
@@ -701,12 +708,12 @@ Partial Class Ventas_ClientesAbonar
         '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
         Dim ErrorCancelarIE As Boolean = False
 
-        If CveIESustitucion > 0 Then
+        'If CveIESustitucion > 0 Then
-            ErrorCancelarIE = CancelarIE()
+        '    ErrorCancelarIE = CancelarIE()
-            If ErrorCancelarIE Then
+        '    If ErrorCancelarIE Then
-                Exit Sub
+        '        Exit Sub
-            End If
+        '    End If
-        End If
+        'End If
 
         Dim ObjIE As New ClsBancos()
         Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
@@ -761,7 +768,8 @@ Partial Class Ventas_ClientesAbonar
 
                 End If
 
-                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
+                'CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
+                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=-1, CveProveedorIntermediario:=CveProvIntermediario)
             Else
                 If RblTipoPago.SelectedValue.Contiene("3") Then
                     CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -1726,16 +1734,18 @@ Partial Class Ventas_ClientesAbonar
             End If
 
             'BITACORA
-            If MsgError = "" Then
+            'If MsgError = "" Then
-                If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
+
-                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
+            '    If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
-                        MsgError = "Ocurrió un error al agregar la bitacora"
+            '        If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
-                    End If
+            '            MsgError = "Ocurrió un error al agregar la bitacora"
-                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+            '        End If
-                        MsgError = "Ocurrió un error al agregar la bitacora"
+            '        If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                    End If
+            '            MsgError = "Ocurrió un error al agregar la bitacora"
-                End If
+            '        End If
-            End If
+            '    End If
+
+            'End If
 
         Catch ex As Exception
             MsgError = "Ocurrió un error al guardar el movimiento"
@@ -2269,7 +2279,7 @@ Partial Class Ventas_ClientesAbonar
         DdlCuenta.SelectedValue = "-1"
         DdlTipoTransaccion.SelectedValue = "-1"
 
-        CveIESustitucion = "-1"
+        'CveIESustitucion = "-1"
         CFDIRelacionadoSustitucion = "-1"
         FechaCorteIE = DateTime.Now.ToDate
         IDPoliza = -1
@@ -2500,7 +2510,8 @@ Partial Class Ventas_ClientesAbonar
         Dim ObjBancos As New ClsBancos
 
 
-        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, If(CveIESustitucion > 0, 2, 1), UsuarioActual.CveEmpresa, -1) Then
+        'If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, If(CveIESustitucion > 0, 2, 1), UsuarioActual.CveEmpresa, -1) Then
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not ObjBancos.DtResultados.Rows.Count > 0 Then
                 ObjBancos.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -2512,7 +2523,9 @@ Partial Class Ventas_ClientesAbonar
 
         ObjBancos.IniciaTransacSQL()
 
-        If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=If(CveIESustitucion > 0, True, False)) Then
+
+        'If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=If(CveIESustitucion > 0, True, False)) Then
+        If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=False) Then
             ObjBancos.Commit()
             ComplementoSustitucionGenerado = True
 
@@ -2883,183 +2896,185 @@ Partial Class Ventas_ClientesAbonar
 #End Region
 
 #Region "COMPLEMENTO DE PAGO - ELIMINAR POR SUSTITUCION"
-    Protected Sub CargaIESustituir()
-        Dim ObjIE As New ClsBancos()
-        If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                FechaCorteIE = ObjIE.FechaDocumento
-                CveMoneda = ObjIE.CveMoneda
-                CveMonedaFiltro = CveMoneda
-                IDPoliza = ObjIE.IDPoliza
-                FolioIECancelado = ObjIE.Folio
-            End If
-        End If
-        ObjIE.Dispose()
-        UpDatos.Update()
-    End Sub
-    Function CancelarIE() As Boolean
-        Dim ErrorCancelar = False
 
-        If Not IsDate(TxtFechaDocumento.Text.ToDate) Then
+    'Protected Sub CargaIESustituir()
-            Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
+    '    Dim ObjIE As New ClsBancos()
-            Return True
+    '    If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) Then
-        End If
+    '        If ObjIE.DtResultados.Rows.Count > 0 Then
+    '            FechaCorteIE = ObjIE.FechaDocumento
+    '            CveMoneda = ObjIE.CveMoneda
+    '            CveMonedaFiltro = CveMoneda
+    '            IDPoliza = ObjIE.IDPoliza
+    '            FolioIECancelado = ObjIE.Folio
+    '        End If
+    '    End If
+    '    ObjIE.Dispose()
+    '    UpDatos.Update()
+    'End Sub
 
-        Dim Banc As New ClsBancos
+    'Function CancelarIE() As Boolean
-        Banc.IniciaTransacSQL()
+    '    Dim ErrorCancelar = False
 
-        Dim ObjAC As ClsContPAQi = Nothing
+    '    If Not IsDate(TxtFechaDocumento.Text.ToDate) Then
-        If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
+    '        Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+    '        Return True
-            ObjAC.IniciaTransacSQL()
+    '    End If
-        End If
 
-        Dim IdPolizaNueva = -1
+    '    Dim Banc As New ClsBancos
-        Dim FolioPolizaNueva = -1
+    '    Banc.IniciaTransacSQL()
 
-        Try
+    '    Dim ObjAC As ClsContPAQi = Nothing
-            'CANCELA IE CONTABILIZADO
+    '    If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
-            If IDPoliza > 0 Then
+    '        ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-                If ObjAC Is Nothing Then
+    '        ObjAC.IniciaTransacSQL()
-                    ErrorCancelar = True
+    '    End If
-                End If
 
-                If Not ErrorCancelar Then
+    '    Dim IdPolizaNueva = -1
-                    Dim dt As DataTable
+    '    Dim FolioPolizaNueva = -1
-                    If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
-                        dt = ObjAC.DtResultados
 
-                        ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
+    '    Try
-                        If dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaDocumento.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaDocumento.Text.ToDate.Year Then
+    '        'CANCELA IE CONTABILIZADO
-                            IdPolizaNueva = ObjAC.AddPoliza(3, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate)
+    '        If IDPoliza > 0 Then
+    '            If ObjAC Is Nothing Then
+    '                ErrorCancelar = True
+    '            End If
 
-                            If IdPolizaNueva > 0 Then
+    '            If Not ErrorCancelar Then
-                                FolioPolizaNueva = ObjAC.Folio
+    '                Dim dt As DataTable
+    '                If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
+    '                    dt = ObjAC.DtResultados
 
-                                'CREA POLIZA NEGATIVA
+    '                    ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
-                                For Each dr As DataRow In dt.Rows
+    '                    If dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaDocumento.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaDocumento.Text.ToDate.Year Then
-                                    If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDocumento.Text.ToDate, "") Then
+    '                        IdPolizaNueva = ObjAC.AddPoliza(3, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate)
-                                        ErrorCancelar = True : Exit For
-                                    End If
-                                Next
 
-                                'AJUSTA POLIZA
+    '                        If IdPolizaNueva > 0 Then
-                                If Not ErrorCancelar Then
+    '                            FolioPolizaNueva = ObjAC.Folio
-                                    If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
-                                        ErrorCancelar = True
-                                    End If
-                                End If
 
-                                'CANCELA IE
+    '                            'CREA POLIZA NEGATIVA
-                                If Not ErrorCancelar Then
+    '                            For Each dr As DataRow In dt.Rows
-                                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDocumento.Text.ToDate, "") Then
-                                        ErrorCancelar = True
+    '                                    ErrorCancelar = True : Exit For
-                                    End If
+    '                                End If
-                                End If
+    '                            Next
 
-                            Else
+    '                            'AJUSTA POLIZA
-                                ErrorCancelar = True
+    '                            If Not ErrorCancelar Then
-                            End If
+    '                                If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
+    '                                    ErrorCancelar = True
+    '                                End If
+    '                            End If
 
-                        Else
+    '                            'CANCELA IE
+    '                            If Not ErrorCancelar Then
+    '                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                    ErrorCancelar = True
+    '                                End If
+    '                            End If
 
-                            'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
+    '                        Else
-                            For Each dr As DataRow In dt.Rows
+    '                            ErrorCancelar = True
-                                If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
+    '                        End If
-                                    ErrorCancelar = True : Exit For
-                                End If
-                            Next
 
-                            'AJUSTA POLIZA
+    '                    Else
-                            If Not ErrorCancelar Then
-                                If Not ObjAC.AjustaPoliza(IDPoliza) Then
-                                    ErrorCancelar = True
-                                End If
-                            End If
 
-                            'CANCELA IE
+    '                        'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
-                            If Not ErrorCancelar Then
+    '                        For Each dr As DataRow In dt.Rows
-                                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                            If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
-                                    ErrorCancelar = True
+    '                                ErrorCancelar = True : Exit For
-                                End If
+    '                            End If
-                            End If
+    '                        Next
 
-                        End If
+    '                        'AJUSTA POLIZA
+    '                        If Not ErrorCancelar Then
+    '                            If Not ObjAC.AjustaPoliza(IDPoliza) Then
+    '                                ErrorCancelar = True
+    '                            End If
+    '                        End If
 
-                    End If
+    '                        'CANCELA IE
-                End If
+    '                        If Not ErrorCancelar Then
-            Else
+    '                            If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                                ErrorCancelar = True
+    '                            End If
+    '                        End If
 
-                If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
+    '                    End If
-                    'CANCELA IE MES ANTERIOR
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
-                        ErrorCancelar = True
-                    End If
-                Else
-                    'CANCELA IE MES ACTUAL
-                    If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
-                        ErrorCancelar = True
-                    End If
-                End If
 
-            End If
+    '                End If
+    '            End If
+    '        Else
 
-            If Not ErrorCancelar Then
+    '            If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
-                If Banc.GetComplementoPagos(-1, CveIESustitucion, -1, UsuarioActual.CveEmpresa) Then
+    '                'CANCELA IE MES ANTERIOR
+    '                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                    ErrorCancelar = True
+    '                End If
+    '            Else
+    '                'CANCELA IE MES ACTUAL
+    '                If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
+    '                    ErrorCancelar = True
+    '                End If
+    '            End If
 
-                    Dim CveComplementoPago As Integer = -1
+    '        End If
 
-                    If Banc.DtResultados.Rows.Count > 0 Then
+    '        If Not ErrorCancelar Then
-                        'OBTENEMOS EL UUID DEL COMPLEMENTO A CANCELAR POR SUSTITUCION
+    '            If Banc.GetComplementoPagos(-1, CveIESustitucion, -1, UsuarioActual.CveEmpresa) Then
-                        CFDIRelacionadoSustitucion = Banc.DtResultados.Rows(0)("FolioFiscal")
-                        CveComplementoPago = Banc.DtResultados(0)("CveComplementoPago").ToString().ToEntero
-                    End If
 
-                    'ACTUALIZA FOLIOS CANCELADOS
+    '                Dim CveComplementoPago As Integer = -1
-                    If Banc.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}).Rows.Count > 0 Then
-                        If Not Banc.GetFoliosCancelados(UsuarioActual.CveEmpresa) Then
-                            ErrorCancelar = True
-                        Else
-                            Dim FolioCancelado = $"{FolioIECancelado}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}"
 
-                            If Not Banc.UpdateFolioCancelado(CveIESustitucion.ToEntero, Folio:=FolioCancelado) Then
+    '                If Banc.DtResultados.Rows.Count > 0 Then
-                                ErrorCancelar = True
+    '                    'OBTENEMOS EL UUID DEL COMPLEMENTO A CANCELAR POR SUSTITUCION
-                            End If
+    '                    CFDIRelacionadoSustitucion = Banc.DtResultados.Rows(0)("FolioFiscal")
-                        End If
+    '                    CveComplementoPago = Banc.DtResultados(0)("CveComplementoPago").ToString().ToEntero
-                    End If
+    '                End If
 
-                    'ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2
+    '                'ACTUALIZA FOLIOS CANCELADOS
-                    If Not ErrorCancelar And CveComplementoPago > 0 Then
+    '                If Banc.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}).Rows.Count > 0 Then
-                        If Not Banc.UpdateComplementoPagoCancelado(CveComplementoPago, 2, UsuarioActual.Empresa.CvePAC, UsuarioActual.CveEmpresa, DateTime.Now) Then
+    '                    If Not Banc.GetFoliosCancelados(UsuarioActual.CveEmpresa) Then
-                            ErrorCancelar = True
+    '                        ErrorCancelar = True
-                        End If
+    '                    Else
-                    End If
+    '                        Dim FolioCancelado = $"{FolioIECancelado}_C_{Banc.DtResultados(0)("Cantidad").ToString().ToEntero + 1}"
-                End If
-            End If
-        Catch ex As Exception
-            ErrorCancelar = True
-            OnError("Ocurrió un error al cancelar el IE", ex)
-        End Try
 
-        If Not ErrorCancelar Then
+    '                        If Not Banc.UpdateFolioCancelado(CveIESustitucion.ToEntero, Folio:=FolioCancelado) Then
-            Banc.Commit()
+    '                            ErrorCancelar = True
-            If ObjAC IsNot Nothing Then ObjAC.Commit()
+    '                        End If
+    '                    End If
+    '                End If
 
-            Dim Msg As New StringBuilder
+    '                'ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2
-            Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
+    '                If Not ErrorCancelar And CveComplementoPago > 0 Then
+    '                    If Not Banc.UpdateComplementoPagoCancelado(CveComplementoPago, 2, UsuarioActual.Empresa.CvePAC, UsuarioActual.CveEmpresa, DateTime.Now) Then
+    '                        ErrorCancelar = True
+    '                    End If
+    '                End If
+    '            End If
+    '        End If
+    '    Catch ex As Exception
+    '        ErrorCancelar = True
+    '        OnError("Ocurrió un error al cancelar el IE", ex)
+    '    End Try
 
-            If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
+    '    If Not ErrorCancelar Then
-            Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+    '        Banc.Commit()
-        Else
+    '        If ObjAC IsNot Nothing Then ObjAC.Commit()
-            Banc.RollBack()
-            If ObjAC IsNot Nothing Then ObjAC.RollBack()
-            Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        End If
 
-        If ObjAC IsNot Nothing Then ObjAC.Dispose()
+    '        Dim Msg As New StringBuilder
-        Banc.Dispose()
+    '        Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
-        Return ErrorCancelar
+
-    End Function
+    '        If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
+    '        Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+    '    Else
+    '        Banc.RollBack()
+    '        If ObjAC IsNot Nothing Then ObjAC.RollBack()
+    '        Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '    End If
+
+    '    If ObjAC IsNot Nothing Then ObjAC.Dispose()
+    '    Banc.Dispose()
+    '    Return ErrorCancelar
+    'End Function
 
     Private Sub BtnVincularIntermediario_Click(sender As Object, e As EventArgs) Handles BtnVincularIntermediario.Click
         RegistraScript("$('#ModalVincularIntermediario').modal('hide')", "hidemodal")

Ventas/PV.aspx

@@ -494,7 +494,7 @@
                         <tr align="left" id="TrServicioDomicilio" runat="server" visible="false">
                             <td><b>Servicio a Domicilio:</b>&nbsp;</td>
                             <td>
-                                <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                <asp:CheckBox ID="ChkServicioDomicilio" runat="server" AutoPostBack="true" OnCheckedChanged="ChkServicioDomicilio_CheckedChanged" />
                             </td>
                         </tr>
                     </table>
@@ -928,7 +928,7 @@
                                             </div>
                                             <div class=" col-sm-8">
                                                 <div class="Widthall" style="overflow-x: auto;">
-                                                    <asp:GridView ID="GvInv" runat="server" AutoGenerateColumns="false" DataKeyNames="Origen,CvePS" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" HeaderStyle-CssClass="Titulos" CssClass="table table-striped  table-hover" Style="text-align: center;" GridLines="None">
+                                                    <asp:GridView ID="GvInv" runat="server" AutoGenerateColumns="false" DataKeyNames="Consec,Origen,CodigoPS,CvePS,Serie,AplicaSerie" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" HeaderStyle-CssClass="Titulos" CssClass="table table-striped  table-hover" Style="text-align: center;" GridLines="None">
                                                         <Columns>
                                                             <asp:TemplateField>
                                                                 <ItemTemplate>
@@ -2769,11 +2769,6 @@
                                                                     <a href="javascript;" class="collapse" data-original-title="" title=""></a>
                                                                 </div>
                                                             </div>
-
-                                                              <asp:UpdatePanel runat="server" ID="UPPDatosUsado" UpdateMode="Conditional">
-                                                                <ContentTemplate>
-                                                          
-
                                                             <div class="portlet-body form">
                                                                 <div class="row">
                                                                     <div class="col-md-4">
@@ -2795,16 +2790,15 @@
                                                                     <div class="col-md-4">
                                                                         <label>Año:</label>
                                                                         <br />
-                                                                        <asp:TextBox ID="TxtAnioVehiculo" type="number" runat="server" Height="100%" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtAnioVehiculo" type="number" runat="server" Height="100%" Width="100%" CssClass="form-control" ></asp:TextBox>
-                                                                        <asp:RequiredFieldValidator ID="RFVAnio" runat="server" ControlToValidate="TxtAnioVehiculo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Año del vehiculo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
+                                                                        <asp:CustomValidator ID="CVAnio" runat="server" ClientValidationFunction="ValidaAnioVehiculo" ValidateEmptyText="true" ControlToValidate="TxtAnioVehiculo" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Año''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:CustomValidator>
-                                                                        <ajax:ValidatorCalloutExtender ID="VCEAnio" runat="server" HighlightCssClass="vco" TargetControlID="RFVAnio" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                     </div>
                                                                 </div>
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <label>Usado:</label>
                                                                         <br />
-                                                                        <asp:DropDownList ID="DdlRecepcionUsados" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="CodigoPS" DataValueField="CvePSCargo" Width="100%" OnSelectedIndexChanged="DdlRecepcionUsados_SelectedIndexChanged" AutoPostBack="true">
+                                                                        <asp:DropDownList ID="DdlRecepcionUsados" CssClass="form-control input-sm select2me" runat="server" DataTextField="CodigoPS" DataValueField="CvePSCargo" Width="100%" OnSelectedIndexChanged="DdlRecepcionUsados_SelectedIndexChanged" AutoPostBack="true">
                                                                         </asp:DropDownList>
                                                                     </div>
                                                                     <div class="col-md-6">
@@ -2820,6 +2814,7 @@
                                                                             <asp:DropDownList ID="DdlMarcaUsado" CssClass="form-control input-sm select2me" runat="server" DataTextField="Marca" DataValueField="CveMarcaUsado" Width="100%">
                                                                                 <asp:ListItem Selected="True" Text="Seleccione la Marca" Value="-1"></asp:ListItem>
                                                                             </asp:DropDownList>
+                                                                            <asp:CustomValidator ID="RFVMarcaUsado" runat="server" ClientValidationFunction="ValidaMarcaUsado" ControlToValidate="DdlMarcaUsado" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:CustomValidator>
                                                                             <label for="<%= DdlMarcaUsado.ClientID.ToString()%>">Marca:</label>
                                                                         </div>
                                                                     </div>
@@ -2839,10 +2834,7 @@
                                                                 </div>
 
                                                             </div>
-                                                        
+                                                        </div>
-                                                             </ContentTemplate>
-                                                            </asp:UpdatePanel>
-                                                            </div>
 
                                                     </div>
 
@@ -3147,8 +3139,7 @@
                             <div class="modal-footer">
                                 <asp:UpdatePanel ID="UpAgregar" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <%--                                        <asp:Button ID="BtnCalculaMesesUso" Text="" OnClick="BtnCalculaMesesUso_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
+                                        <asp:Button ID="LnkAgregarPS" OnClick="LnkAgregarPS_Click" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpAddVenta" />
-                                        <asp:Button ClientIDMode="Static" ID="LnkAgregarPS" OnClick="LnkAgregarPS_Click" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpAddVenta" UseSubmitBehavior="false" />
                                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
@@ -3188,6 +3179,26 @@
             }
         });
 
+        function ValidaMarcaUsado(val, args) {
+            //VALIDA SOLO SI SE SELECCIONO UN USADO
+            var cveUsado = ToDouble($get("C_DdlRecepcionUsados").value);
+            if (cveUsado > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            } else {
+                args.IsValid = true;
+            }
+        }
+
+        function ValidaAnioVehiculo(val, args) {
+            //VALIDA SOLO SI SE SELECCIONO UN USADO
+            var cveUsado = ToDouble($get("C_DdlRecepcionUsados").value);
+            if (cveUsado > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            } else {
+                args.IsValid = true;
+            }
+        }
+
         function ValidarCodigoEnsamble(source, arguments) {
             let CveMarca = HdnPSAjusteMarca.value;
             let CveClasificacion = HdnPSAjusteClasificacion.value;

Ventas/PV.aspx.vb

@@ -3067,7 +3067,7 @@ Partial Class PV
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             'SERIE ALMACEN
-            If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
+            If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 OrElse CBool(e.Row.DBCampo("AplicaSerie")) Then
                 If CveVenta > 0 Then
                     e.Row.FCLiteral("LtlSerie").Visible = True
                 Else
@@ -3198,6 +3198,27 @@ Partial Class PV
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un almacen de servicio a domicilio.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) <= 0 Then
+            Alert("Debe tener producto seleccionados para servicio a domicilio.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    If String.IsNullOrEmpty(GvRow.FCTextBox("TxtSerie").Text.Trim) AndAlso CBool(GvRow.DataKey("AplicaSerie")) Then
+                        Alert(String.Format("El producto {0} requiere serie.", GvRow.DataKey("CodigoPS")), TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            Next
+        End If
+
         'VALIDA PRECIO AL AGREGAR A ALMACEN
         If Not UsuarioActual.TienePermisoProceso(169) Then
             If Not CveContrato > 0 Then
@@ -3463,255 +3484,278 @@ Partial Class PV
 #Region "OBJETO VENTA"
 
     Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
-
+        Try
-        If Me.CveVenta > 0 Then
+            If Me.CveVenta > 0 Then
-            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
-        Else
+            Else
-            ObjFactura = New Modelos.Factura(UsuarioActual)
+                ObjFactura = New Modelos.Factura(UsuarioActual)
-            ObjFactura.CvePrePoliza = -1
+                ObjFactura.CvePrePoliza = -1
-        End If
-
-        ObjFactura.CveUsuario = UsuarioActual.CveUsuario
-        ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-        ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-        ObjFactura.TipoCambioDolares = TxtTipoCambioDlls.Text.Trim.ToDecimal
-        ObjFactura.ConvertirPesos = ChkConvertirDoctoPesos.Checked
-        ObjFactura.ConvertirDolares = ChkConvertirDolares.Checked
-        ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-        ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
-        ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
-        ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
-        'ObjFactura.RefDocto = TxtDocto.Text.Trim
-        ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
-        'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
-        ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
-        ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
-        ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
-        ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
-        ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
-
-        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
-        ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "")
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
-
-        ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero
-        ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "")
-        ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
-
-        ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero
-        ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "")
-        ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
-
-        ObjFactura.UsuarioCreo = LblUsuario.Text.Trim
-
-        ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1)
-        ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
-        ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
-        ObjFactura.FormaPago = DdlFormaPago.SelectedValue.ToEntero
-
-        Select Case ObjFactura.TipoDocto
-            Case "Ing"
-                ObjFactura.TipoDocumento = "Factura"
-            Case "Rem"
-                ObjFactura.TipoDocumento = "Remision"
-            Case "Cot"
-                ObjFactura.TipoDocumento = "Cotizacion"
-            Case "Egs"
-                ObjFactura.TipoDocumento = "Nota de Crédito"
-            Case "Dev"
-                ObjFactura.TipoDocumento = "Nota de Devolución"
-            Case Else
-                ObjFactura.TipoDocumento = ""
-        End Select
-
-
-        ObjFactura.Fech1 = Now
-        ObjFactura.Fech2 = Now
-        ObjFactura.Fech3 = Now
-        ObjFactura.Alfa1 = ""
-        ObjFactura.Alfa2 = ""
-        ObjFactura.Alfa3 = ""
-        ObjFactura.Num1 = 0
-        ObjFactura.Num2 = 0
-        ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDouble
-        ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
-
-        ObjFactura.CveCorte = CveCorte
-        ObjFactura.CveMesa = -1
-        ObjFactura.NumeroPersonas = 0
-        ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
-        ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
-        ObjFactura.Entrega = Entrega
-        ObjFactura.Vigencia = Now
-
-        ObjFactura.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, CvePedido)
-        ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero
-        If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
-            DdlVendedor.Enabled = False
-        End If
-
-        ObjFactura.FechaEjecucion = Now
-
-        ObjFactura.CveSucursalEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSucursalCobranza = -1
-
-        ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSubProyectoCobranza = -1
-
-        ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot", TxtAtencionA.Text, "-1")
-        ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim
-        ObjFactura.Observaciones = TxtObsFact.Text.Trim
-        ObjFactura.Det_OrdenCompra = ""
-        ObjFactura.Det_FechaOrdenCompra = MinFecha.ToShortDateString
-        ObjFactura.MonedaAbreviatura = ""
-
-        'Totales, Y se llena TmpDTImpuestos
-        ObjFactura.SubTotal = TxtSubTotal.Text.ToDecimal
-        ObjFactura.Descuento = LblDescuentos.Text.Trim.ToDecimal
-        ObjFactura.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
-        ObjFactura.IVA = TxtIVA.Text.ToDecimal
-        ObjFactura.RetIVA = TxtRetIVA.Text.ToDecimal
-        ObjFactura.RetISR = TxtRetISR.Text.ToDecimal
-        ObjFactura.IEPS = TxtIEPS.Text.ToDecimal
-        ObjFactura.Total = TxtTotal.Text.ToDecimal
-
-        ObjFactura.DtDeduccion = New DataTable
-
-        'OTROS
-        ObjFactura.Det_FechaOrdenCompra = ""
-        ObjFactura.Det_OrdenCompra = ""
-
-        ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero
-
-        If ObjFactura.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
-            ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-            ObjFactura.CveMoneda = 1
-
-            ObjFactura.Moneda = "Pesos"
-            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
-        End If
-
-        If ObjFactura.CveMoneda <> 2 AndAlso ChkConvertirDolares.Checked Then
-            ObjFactura.TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
-            ObjFactura.CveMoneda = 2
-
-            ObjFactura.Moneda = "Dólares"
-            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
-        End If
-
-        'Se agrega CveVenta -1
-        For Each Row As DataRow In TmpDT.Rows
-            Row("CveVenta") = ObjFactura.CveVenta
-        Next
-
-
-        'DETALLES
-        ObjFactura.DtDetalle = TmpDT
-        ObjFactura.DtFirmas = DTmpF
-
-        'CLIENTE
-        ObjFactura.CveCliente = CveCliente
-        ObjFactura.SetCliente()
-
-        'SUCURSAL
-        ObjFactura.CveSucursal = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.SetSubProyectoMatriz(Me)
-        ObjFactura.SetSubProyecto(Me)
-        ObjFactura.ClienteSucursal = New Modelos.SucursalModel
-        ObjFactura.ClienteSucursal.NoExt = CliNoExt
-        ObjFactura.ClienteSucursal.NoInt = CliNoInt
-        ObjFactura.ClienteSucursal.Localidad = CliLocalidad
-        ObjFactura.ClienteSucursal.Direccion = LblDireccion.Text
-        ObjFactura.ClienteSucursal.Colonia = LblColonia.Text
-        ObjFactura.ClienteSucursal.Municipio = LblCiudad.Text
-        ObjFactura.ClienteSucursal.Estado = LblEstado.Text
-        ObjFactura.ClienteSucursal.CP = LblCP.Text
-        ObjFactura.ClienteSucursal.Pais = CliPais
-        ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString
-        ObjFactura.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
-        ObjFactura.ClienteSucursal.Sucursal = DdlSucursalCliente.SelectedItem.Text
-
-        ObjFactura.DtDetalle = TmpDT
-        ObjFactura.DtPagos = DtPagos
-        ObjFactura.DtPromociones = DtPromociones
-
-        Dim FM As New Modelos.FemsaFactura
-        Dim TmpDT7Eleven As New DataTable
-        Dim TmpDTComplementosTimbrado As New DataTable
-
-        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
-
-        ObjFactura.FemsaFactura = FM
-
-        ObjFactura.Timbre = PreParaTimbre(ObjFactura)
-
-        ObjFactura.DtAjustes = TmpDTAjustes
-
-        ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados
-
-        ObjFactura.DtPolizasVirtuales = TmpDTPolizaVirtual
-
-        ObjFactura.GenerarPDFFactura = False
-
-        Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
-        If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
-            ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero
-        End If
-
-        'If Not ddlAlmacen.SelectedValue.ToEntero > 0 AndAlso ddlAlmacen.Items.Count > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
-        '    ddlAlmacen.SelectedIndex = 1
-        'End If
-
-        If ddlAlmacen.SelectedValue.ToEntero > 0 Then
-            ObjFactura.CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
-
-            If Not DtInv.Columns.Contains("Seleccionado") Then
-                DtInv.Columns.Add("Seleccionado", GetType(Integer))
             End If
 
-            For Each Gvr As GridViewRow In GvInv.Rows
+            ObjFactura.CveUsuario = UsuarioActual.CveUsuario
-                Dim Dr As DataRow = DtInv.Select($"CvePS={Gvr.DataKey("CvePS")}")(0)
+            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-                If Gvr.FCCheckBox("cbInv").Checked AndAlso ddlAlmacen.SelectedValue.ToEntero > 0 Then
+            ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-                    Dr("Seleccionado") = 1
+            ObjFactura.TipoCambioDolares = TxtTipoCambioDlls.Text.Trim.ToDecimal
-                Else
+            ObjFactura.ConvertirPesos = ChkConvertirDoctoPesos.Checked
-                    Dr("Seleccionado") = 0
+            ObjFactura.ConvertirDolares = ChkConvertirDolares.Checked
-                End If
+            ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+            ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
+            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
+            ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
+            'ObjFactura.RefDocto = TxtDocto.Text.Trim
+            ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+            'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
+            ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
+            ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
+            ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
+            ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
+            ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
+            ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
+
+            ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
+            ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "")
+            ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+
+            ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero
+            ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "")
+            ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
+
+            ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero
+            ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "")
+            ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+            ObjFactura.UsuarioCreo = LblUsuario.Text.Trim
+
+            ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1)
+            ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
+            ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
+            ObjFactura.FormaPago = DdlFormaPago.SelectedValue.ToEntero
+
+            Select Case ObjFactura.TipoDocto
+                Case "Ing"
+                    ObjFactura.TipoDocumento = "Factura"
+                Case "Rem"
+                    ObjFactura.TipoDocumento = "Remision"
+                Case "Cot"
+                    ObjFactura.TipoDocumento = "Cotizacion"
+                Case "Egs"
+                    ObjFactura.TipoDocumento = "Nota de Crédito"
+                Case "Dev"
+                    ObjFactura.TipoDocumento = "Nota de Devolución"
+                Case Else
+                    ObjFactura.TipoDocumento = ""
+            End Select
+
+
+            ObjFactura.Fech1 = Now
+            ObjFactura.Fech2 = Now
+            ObjFactura.Fech3 = Now
+            ObjFactura.Alfa1 = ""
+            ObjFactura.Alfa2 = ""
+            ObjFactura.Alfa3 = ""
+            ObjFactura.Num1 = 0
+            ObjFactura.Num2 = 0
+            ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDouble
+            ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
+
+            ObjFactura.CveCorte = CveCorte
+            ObjFactura.CveMesa = -1
+            ObjFactura.NumeroPersonas = 0
+            ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
+            ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
+            ObjFactura.Entrega = Entrega
+            ObjFactura.Vigencia = Now
+
+            ObjFactura.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, CvePedido)
+            ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero
+            If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+                DdlVendedor.Enabled = False
+            End If
+
+            ObjFactura.FechaEjecucion = Now
+
+            ObjFactura.CveSucursalEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSucursalCobranza = -1
+
+            ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSubProyectoCobranza = -1
+
+            ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot", TxtAtencionA.Text, "-1")
+            ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim
+            ObjFactura.Observaciones = TxtObsFact.Text.Trim
+            ObjFactura.Det_OrdenCompra = ""
+            ObjFactura.Det_FechaOrdenCompra = MinFecha.ToShortDateString
+            ObjFactura.MonedaAbreviatura = ""
+
+            'Totales, Y se llena TmpDTImpuestos
+            ObjFactura.SubTotal = TxtSubTotal.Text.ToDecimal
+            ObjFactura.Descuento = LblDescuentos.Text.Trim.ToDecimal
+            ObjFactura.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+            ObjFactura.IVA = TxtIVA.Text.ToDecimal
+            ObjFactura.RetIVA = TxtRetIVA.Text.ToDecimal
+            ObjFactura.RetISR = TxtRetISR.Text.ToDecimal
+            ObjFactura.IEPS = TxtIEPS.Text.ToDecimal
+            ObjFactura.Total = TxtTotal.Text.ToDecimal
+
+            ObjFactura.DtDeduccion = New DataTable
+
+            'OTROS
+            ObjFactura.Det_FechaOrdenCompra = ""
+            ObjFactura.Det_OrdenCompra = ""
+
+            ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero
+
+            If ObjFactura.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
+                ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
+                ObjFactura.CveMoneda = 1
+
+                ObjFactura.Moneda = "Pesos"
+                ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
+            End If
+
+            If ObjFactura.CveMoneda <> 2 AndAlso ChkConvertirDolares.Checked Then
+                ObjFactura.TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
+                ObjFactura.CveMoneda = 2
+
+                ObjFactura.Moneda = "Dólares"
+                ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
+            End If
+
+            'Se agrega CveVenta -1
+            For Each Row As DataRow In TmpDT.Rows
+                Row("CveVenta") = ObjFactura.CveVenta
             Next
 
-            DtInv.AcceptChanges()
 
-            ObjFactura.DtInventario = DtInv.FiltraParametros("Seleccionado = 1")
+            'DETALLES
-        End If
+            ObjFactura.DtDetalle = TmpDT
+            ObjFactura.DtFirmas = DTmpF
 
-        ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
+            'CLIENTE
+            ObjFactura.CveCliente = CveCliente
+            ObjFactura.SetCliente()
 
-        'VALIDA ENTREGA POR ADELANTADO
+            'SUCURSAL
-        If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then
+            ObjFactura.CveSucursal = DdlSubProyectoDatos.SelectedValue.ToEntero
-            'INCRUSTAMOS ALMACEN ENTREGA POR ADELANTADO CUANDO SEA REMISION Y NO TRAIGA ASIGNADO POR EL USUARIO
+            ObjFactura.SetSubProyectoMatriz(Me)
-            If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+            ObjFactura.SetSubProyecto(Me)
-                If ObjFactura.ServicioDomicilio Then
+            ObjFactura.ClienteSucursal = New Modelos.SucursalModel
-                    ObjFactura.CveAlmacenServicioDomicilio = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 29 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+            ObjFactura.ClienteSucursal.NoExt = CliNoExt
-                    ObjFactura.DtInventario = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+            ObjFactura.ClienteSucursal.NoInt = CliNoInt
+            ObjFactura.ClienteSucursal.Localidad = CliLocalidad
+            ObjFactura.ClienteSucursal.Direccion = LblDireccion.Text
+            ObjFactura.ClienteSucursal.Colonia = LblColonia.Text
+            ObjFactura.ClienteSucursal.Municipio = LblCiudad.Text
+            ObjFactura.ClienteSucursal.Estado = LblEstado.Text
+            ObjFactura.ClienteSucursal.CP = LblCP.Text
+            ObjFactura.ClienteSucursal.Pais = CliPais
+            ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString
+            ObjFactura.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
+            ObjFactura.ClienteSucursal.Sucursal = DdlSucursalCliente.SelectedItem.Text
+
+            ObjFactura.DtDetalle = TmpDT
+            ObjFactura.DtPagos = DtPagos
+            ObjFactura.DtPromociones = DtPromociones
+
+            Dim FM As New Modelos.FemsaFactura
+            Dim TmpDT7Eleven As New DataTable
+            Dim TmpDTComplementosTimbrado As New DataTable
+
+            PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+
+            ObjFactura.FemsaFactura = FM
+
+            ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+
+            ObjFactura.DtAjustes = TmpDTAjustes
+
+            ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados
+
+            ObjFactura.DtPolizasVirtuales = TmpDTPolizaVirtual
+
+            ObjFactura.GenerarPDFFactura = False
+
+            Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
+            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
+                ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero
+            End If
+
+            'If Not ddlAlmacen.SelectedValue.ToEntero > 0 AndAlso ddlAlmacen.Items.Count > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
+            '    ddlAlmacen.SelectedIndex = 1
+            'End If
+
+            If ddlAlmacen.SelectedValue.ToEntero > 0 Then
+                ObjFactura.CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
+
+                If Not DtInv.Columns.Contains("Seleccionado") Then
+                    DtInv.Columns.Add("Seleccionado", GetType(Integer))
                 End If
 
-                ObjFactura.CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+                For Each Gvr As GridViewRow In GvInv.Rows
+                    Dim Dr As DataRow = DtInv.Select($"CvePS={Gvr.DataKey("CvePS")}")(0)
+                    If Gvr.FCCheckBox("cbInv").Checked AndAlso ddlAlmacen.SelectedValue.ToEntero > 0 Then
+                        Dr("Seleccionado") = 1
+                    Else
+                        Dr("Seleccionado") = 0
+                    End If
+                Next
 
+                DtInv.AcceptChanges()
+
+                ObjFactura.DtInventario = DtInv.FiltraParametros("Seleccionado = 1")
             End If
 
-            'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO 
+            ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
-            If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+
-                ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
+            'VALIDA ENTREGA POR ADELANTADO
+            If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then
+                'INCRUSTAMOS ALMACEN ENTREGA POR ADELANTADO CUANDO SEA REMISION Y NO TRAIGA ASIGNADO POR EL USUARIO
+                If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    If ObjFactura.ServicioDomicilio Then
+                        ObjFactura.CveAlmacenServicioDomicilio = ddlAlmacen.SelectedValue.ToEntero() 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 29 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+
+                        'PREPARA DT INVENTARIO
+                        Dim DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+                        For Each GvRow As GridViewRow In GvInv.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim filtro = DtInv.Select(String.Format("CvePS = {0} AND Consec = {1}", GvRow.DataKey("CvePS"), GvRow.DataKey("Consec")))
+                                If filtro IsNot Nothing AndAlso filtro.Length > 0 Then
+                                    Dim Row = filtro(0)
+                                    Row("Serie") = GvRow.FCTextBox("TxtSerie").Text.Trim
+                                End If
+                            End If
+                        Next
+
+                        ObjFactura.DtInventario = DtInv
+                    End If
+
+                    ObjFactura.CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+
+                End If
+
+                'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO 
+                If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
+                End If
+
+                'SI LA SUCURSAL NO TIENE SERVICIO A DOMICILIO 
+                If ObjFactura.ServicioDomicilio AndAlso ObjFactura.CveAlmacenServicioDomicilio <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
+                End If
+
+                If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
+                    ObjFactura.EsGarantia = True
+                End If
+
             End If
-
+        Catch ex As Exception
-            'SI LA SUCURSAL NO TIENE SERVICIO A DOMICILIO 
+            OnError("Ocurrió un error al generar la venta", ex)
-            If ObjFactura.ServicioDomicilio AndAlso ObjFactura.CveAlmacenServicioDomicilio <= 0 And ObjFactura.TipoDocto = "Rem" Then
+            If ObjFactura IsNot Nothing Then
-                ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
+                ObjFactura.Dispose()
+                ObjFactura = Nothing
             End If
-
+        End Try
-        End If
-
     End Sub
 
 #End Region
@@ -4133,6 +4177,8 @@ Partial Class PV
             CambiaSucursal()
         End If
         ObjSubProyectos.Dispose()
+
+        ChkServicioDomicilio_CheckedChanged(ChkServicioDomicilio, EventArgs.Empty)
     End Sub
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoComprobante.SelectedIndexChanged
         CambiaTipoComprobante()
@@ -4310,6 +4356,8 @@ Partial Class PV
         TmpDT.Columns.Add("EliminarDB", GetType(Boolean))
         TmpDT.Columns("EliminarDB").DefaultValue = False
 
+        TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
+
     End Sub
 
     Private Sub CreaDTmpC()
@@ -4346,6 +4394,8 @@ Partial Class PV
             Exit Sub
         End If
 
+        Dim AplicaSerie = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("AplicaSerie"))
+
         If TmpDT.FiltraParametros("AsientoContableVentas <> '" & AsientoContableVentas.ToString & "'").Rows.Count = 0 Then
             Dim Row As DataRow = Nothing
             Row = TmpDT.NewRow()
@@ -4380,6 +4430,7 @@ Partial Class PV
             Row("SubProyecto") = SubProyecto
             Row("Serie") = Serie
             Row("TiempoEntrega") = TiempoEntrega
+            Row("AplicaSerie") = AplicaSerie
 
             TmpDT.Rows.Add(Row)
             GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False")
@@ -4596,6 +4647,7 @@ Partial Class PV
             End If
         End If
 
+
         TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
 
         If Modalidad = "A" Then
@@ -4671,6 +4723,7 @@ Partial Class PV
         Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
         Row("CuentaPredial") = CuentaPredial
         Row("EsCargo") = EsCargo
+        Row("AplicaSerie") = DrPS("AplicaSerie")
 
         If EsCargo AndAlso ConsecPSPadre >= 0 Then
             Row("ConsecPSPadre") = ConsecPSPadre
@@ -5036,6 +5089,8 @@ Partial Class PV
             End If
         End If
         Me.CveVentaDetalle = -1
+
+        UpAgregar.Update()
     End Sub
     Private Function AgregarPS() As Boolean
         Dim CveVentaDetalle As Integer = Me.CveVentaDetalle
@@ -5278,6 +5333,8 @@ Partial Class PV
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
         CargaGVInv(DtInv)
 
+        ChkServicioDomicilio_CheckedChanged(ChkServicioDomicilio, EventArgs.Empty)
+
         UpContado.Update()
         UpPS.Update()
         RegistraScript("BorraDescuentos();", "BorraDescuentos")
@@ -5864,24 +5921,23 @@ Partial Class PV
 
         Dim Index = Row.RowIndex
         Dim ObjInventarios As New ClsInventarios
-        Dim Existencia = ObjInventarios.GetExistenciasPSSerie("", ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+        Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString.Trim, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
-        Dim ExistenciaActual = DtInv.SUM("Cantidad", String.Format("Serie = '{0}'", Row.FCTextBox("TxtSerie").Text.ToString))
+        ObjInventarios.Dispose()
 
         'Valida Existencia
-        If Existencia - ExistenciaActual <= 0 Then
+        If Existencia <= 0 Then
             Alert(String.Format("Not hay existencia suficiente del producto con la Serie: <b>{0}</b>. Por favor rectifique y vuelva a intentar", Row.FCTextBox("TxtSerie").Text.ToString), TipoMensaje.MsgAdvertencia)
             Row.FCTextBox("TxtSerie").Text = ""
             Row.FCHiddenField("HdnSerie").Value = ""
-            TmpDT.Rows(Index)("Serie") = ""
+            DtInv.Rows(Index)("Serie") = ""
         Else
             Row.FCHiddenField("HdnSerie").Value = Row.FCTextBox("TxtSerie").Text
-            TmpDT.Rows(Index)("Serie") = Row.FCTextBox("TxtSerie").Text
+            DtInv.Rows(Index)("Serie") = Row.FCTextBox("TxtSerie").Text
         End If
 
-        TmpDT.AcceptChanges()
+        DtInv.AcceptChanges()
-        DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+
 
-        ObjInventarios.Dispose()
     End Sub
 
     Private Function ValidaSerieINV() As Boolean
@@ -6721,12 +6777,12 @@ Partial Class PV
                 DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
                 DdlBCIAjuste.DataBind()
                 DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                RFVAnio.Enabled = True
+
                 If CveTamanio = 16 Then 'motobaterias
                     DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
-                    RFVAnio.Enabled = False
+
                 End If
-                UPPDatosUsado.Update() ''refresca el RFV
+
             Else
                 DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
             End If
@@ -7813,11 +7869,49 @@ Partial Class PV
         Response.Redirect($"~/Ventas/PV.aspx")
     End Sub
     Protected Sub DdlRecepcionUsados_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
+        If DdlRecepcionUsados.SelectedValue.ToEntero() > 0 Then
-
+            Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
-        DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño")))
+            DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño")))
+        Else
+            DdlBCIUsado.Items.Clear()
+            DdlBCIUsado.DataSource = Nothing
+        End If
         DdlBCIUsado.DataBind()
 
-        UpModalVenta.Update()
+        UpAddVenta.Update()
+    End Sub
+    Protected Sub ChkServicioDomicilio_CheckedChanged(sender As Object, e As EventArgs)
+        If ChkServicioDomicilio.Checked Then
+            PreparaServicioDomicilio()
+        Else
+            ddlAlmacen.Items.Clear()
+            ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
+            ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            ddlAlmacen.DataBind()
+            If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then
+                ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            End If
+
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    GvRow.FCCheckBox("cbInv").Enabled = True
+                End If
+            Next
+        End If
+
+        UpINV.Update()
+    End Sub
+
+    Private Sub PreparaServicioDomicilio()
+        ddlAlmacen.Items.Clear()
+        ddlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=29).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}")
+        ddlAlmacen.DataBind()
+
+        For Each GvRow As GridViewRow In GvInv.Rows
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                GvRow.FCCheckBox("cbInv").Checked = True
+                GvRow.FCCheckBox("cbInv").Enabled = False
+            End If
+        Next
     End Sub
 End Class

Ventas/ProductosServicios.aspx

@@ -2178,6 +2178,40 @@
 
     <asp:Literal ID="LtlScripts" runat="server"></asp:Literal>
     <%-- FIN MODAL PS ADICIONALES --%>
+
+          <asp:UpdatePanel runat="server" ID="UPModalMensaje" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivModalMensaje" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header-warning">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="LblModalMensaje" runat="server" ClientIDMode="Static" Text="Atención"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                           <div class="row">
+                               <div class="col-md-12">
+                                   <asp:Label ID="LblModalMensajeCuerpo" runat="server" ClientIDMode="Static" Text="Atención"></asp:Label>
+                               </div>
+                           </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnmodalMensajeOK" runat="server" Text="Guardar" CssClass="btn  btn-sm blue"  OnClick="BtnmodalMensajeOK_Click"  />
+                            <asp:Button ID="BtnCerrarModalMensace" runat="server" Text="Corregir" CssClass="btn  btn-sm green" data-dismiss="modal"  />                                                       
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Ventas/ProductosServicios.aspx.vb

@@ -148,6 +148,29 @@ Partial Class ProductosyServicios
     End Property
 #End Region
 
+
+#Region "Material peligroso"
+
+    Property ValidaMaterialPeligrosoMensaje As Boolean
+        Get
+
+            If ViewState("ValidaMaterialPeligroso") Is Nothing Then
+                ViewState("ValidaMaterialPeligroso") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ValidaMaterialPeligroso").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ValidaMaterialPeligroso") = value
+        End Set
+
+
+    End Property
+
+#End Region
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -1213,6 +1236,15 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
+
+        If DdlSATPS.txtValue.Value.ToEntero > 0 Then
+            If Not ValidaMaterialPeligrosoMensaje Then
+                ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
+                Exit Sub
+            End If
+        End If
+
+
         If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then
             Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -3045,4 +3077,76 @@ Partial Class ProductosyServicios
         End If
         Return False
     End Function
+
+
+
+
+
+
+    Sub ValidaMaterialPeligroso(CveSATPS As Integer)
+
+        Dim EsPeligroso As Boolean = False
+
+        Dim ObjGrales As New ClsGenerales
+
+
+        If ObjGrales.GetSATProductosServicios(CveSATPS:=CveSATPS) Then
+
+            Dim DTDatos As New DataTable
+            DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}")
+
+
+
+            'Es material Peligros
+            If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then
+
+                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 And DdlEmbalaje.txtValue.Value.ToEntero > 0 And TxtPesoKg.Text.Trim.Length > 0 Then
+                    ValidaMaterialPeligrosoMensaje = True
+                Else
+
+                    RegistraScript("$('#DivModalMensaje').modal('show');")
+                    ValidaMaterialPeligrosoMensaje = False
+                    LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado esta clasificado como material peligroso, favor de llenar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios."
+                    UPModalMensaje.Update()
+                End If
+
+            Else
+                'No es matgerial peligroso
+
+                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Or TxtPesoKg.Text.Trim.Length > 0 Then
+                    RegistraScript("$('#DivModalMensaje').modal('show');")
+                    ValidaMaterialPeligrosoMensaje = False
+                    LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado no esta clasificado como material peligroso, favor de limpiar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios, el incluir estos datos en un material no peligroso generara errores al timbrar traslados."
+                    UPModalMensaje.Update()
+
+                Else
+                    ValidaMaterialPeligrosoMensaje = True
+                End If
+
+
+            End If
+        End If
+
+
+
+        ObjGrales.Dispose()
+
+
+
+        'Return Respuesta
+
+    End Sub
+
+    Protected Sub BtnmodalMensajeOK_Click(sender As Object, e As EventArgs)
+
+        ValidaMaterialPeligrosoMensaje = True
+        RegistraScript("$('#DivPersonalizar').modal('hide');")
+
+        BtnGuardar_Click(Nothing, Nothing)
+
+
+    End Sub
+
+
+
 End Class

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -36,25 +36,25 @@
             <div class="portlet light smmallpadding traspasorow bordered">
                 <div class="portlet-title">
                     <div class="caption font-green">
-                        <span class="caption-subject bold uppercase" style="line-height: 2;">Facturas Pendientes Por Respuesta</span>
+                        <span class="caption-subject bold uppercase" style="line-height: 1;">Facturas Pendientes Por Respuesta</span>
                     </div>
+
                     <div class="actions">
                         <div class="btn-group">
-                        </div>
+                            <div class="row" style="margin-left: 0px;   text-align: right" align="left">
-                    </div>
-                    <div class="tools">
-                        <a href="javascript:;" class="collapse"></a>
-                    </div>
-                </div>
-                <div class="portlet-body rowpadding">
-                    <div class="row">
-                        <div class="col-md-12">
-                            <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
                                 <div style="margin-right: 15px">
                                     <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                 </div>
                             </div>
+                        </div>
+                    </div>
+                     
+                </div>
+                <div class="portlet-body rowpadding">
+                    <div class="row">
+                        <div class="col-md-12">
+                            
                             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron solicitudes de cancelación"
                                 DataKeyNames="CveVenta,CveCliente,Folio,TipoDocto,Nombre,FolioFiscal,Total,SubTotal,RFCCliente"
                                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%">
@@ -84,25 +84,24 @@
             <div id="DivRefacturar" runat="server" visible="false" class="portlet light smmallpadding traspasorow bordered">
                 <div class="portlet-title">
                     <div class="caption font-green">
-                        <span class="caption-subject bold uppercase" style="line-height: 2;">Facturas Pendientes Por Refacturar</span>
+                        <span class="caption-subject bold uppercase" style="line-height: 2;">Facturas Pendientes de cancelar provenientes de refacturación</span>
                     </div>
                     <div class="actions">
                         <div class="btn-group">
-                        </div>
+                            <div class="row" style="margin-left: 0px;  text-align: right" align="left">
-                    </div>
-                    <div class="tools">
-                        <a href="javascript:;" class="collapse"></a>
-                    </div>
-                </div>
-                <div class="portlet-body rowpadding">
-                    <div class="row">
-                        <div class="col-md-12">
-                            <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
                                 <div style="margin-right: 15px">
                                     <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvRefacturaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRefacturaciones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                 </div>
                             </div>
+                        </div>
+                    </div>
+                     
+                </div>
+                <div class="portlet-body rowpadding">
+                    <div class="row">
+                        <div class="col-md-12">
+                            
                             <asp:GridView ID="GvRefacturaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron solicitudes de cancelación"
                                 DataKeyNames="CveVenta,CveCliente,Folio,TipoDocto,Nombre,FolioFiscal,Total,SubTotal,RFCCliente,FolioFiscalSustitucion"
                                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvDatos_RowDataBound">
@@ -114,10 +113,8 @@
                                     <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField HeaderText="Mon" DataField="Abreviatura" ItemStyle-Width="30px" />
                                     <asp:BoundField HeaderText="Fecha Solicitud" DataField="FechaCambioEstatus" ItemStyle-Width="160px" />
-                                    <asp:BoundField HeaderText="Fecha Cancelacion" DataField="FechaCancelacion" ItemStyle-Width="160px" />
                                     <asp:BoundField HeaderText="Estatus" DataField="EstatusFactura" ItemStyle-Width="160px" />
-                                    <asp:BoundField HeaderText="Serie Folio Nuevo" DataField="SerieFolioSustitucion" ItemStyle-Width="25%" />
+                                    <asp:HyperLinkField HeaderText="Folio Sustitución" DataTextField="SerieFolioSustitucion" DataNavigateUrlFields="CveVentaSustitucion" ItemStyle-Width="100px" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                    <asp:BoundField HeaderText="Folio Sustitucion" DataField="FolioFiscalSustitucion" ItemStyle-Width="25%" />
                                     <asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" /> 
                                     <asp:TemplateField ItemStyle-Width="35px" HeaderText="Verificar">
                                         <ItemTemplate>
@@ -129,7 +126,6 @@
                                             <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:HyperLinkField HeaderText="Refacturación" Text="Refacturar" DataNavigateUrlFields="CveVenta" ItemStyle-Width="100px" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1" />
                                 </Columns>
                                 <RowStyle CssClass="Texto" />
                                 <HeaderStyle CssClass="Titulos" />

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -11,6 +11,7 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using static Extensiones.ModExtensiones;
 using Microsoft.Reporting.WebForms;
+using System.Net.Http;
 
 public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 {
@@ -455,20 +456,20 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     {
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
-            if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0)
+            //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0)
-            {
+            //{
-                e.Row.Cells[14].Text = "";
+            //    e.Row.Cells[14].Text = "";
-            }
+            //}
 
-            if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
+            //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
-            {
+            //{
-                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            //    e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
-            }
+            //}
 
             if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23 && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
             {
                 e.Row.FCLinkButton("LnkCancelar").Visible = true;
-                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+                //e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
             }
         }
     }
@@ -483,6 +484,32 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
             Alert("No se encontro la factura para enviar el acuse", TipoMensaje.MsgAdvertencia);
         }
     }
+    private byte[] DescargarPDF(string Parametros)
+    {
+        var Url = new Uri(string.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Parametros));
+        byte[] File = null;
+        try
+        {
+            using (var httpClient = new HttpClient())
+            {
+                httpClient.Timeout = new TimeSpan(0, 15, 0);
+                using (var request = new HttpRequestMessage(HttpMethod.Get, Url))
+                {
+                    request.Headers.Add("ADSToken", Encripta(string.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO={2}", UsuarioActual.CveEmpresa, DateTime.UtcNow.Ticks, UsuarioActual.CveUsuario)));
+                    var response = httpClient.SendAsync(request).Result;
+                    if (response.StatusCode == System.Net.HttpStatusCode.OK)
+                        File = response.Content.ReadAsByteArrayAsync().Result;
+                }
+            }
+        }
+        catch (Exception ex)
+        {
+            File = null;
+            this.OnError("Ocurrió un error al descargar la factura", ex);
+        }
+
+        return File;
+    }
 
     public void ImprimeCancelacion(int CveVenta)
     {
@@ -491,32 +518,34 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         {
             var ObjFactura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa);
 
-            string SelloCancelacion = "";
+            //string SelloCancelacion = "";
-            string FechaCancelacion = "";
+            //string FechaCancelacion = "";
-            DataTable DtDatos = null;
+            //DataTable DtDatos = null;
 
-            using (ClsVentas ObjVentas = new ClsVentas())
+            //using (ClsVentas ObjVentas = new ClsVentas())
-            {
+            //{
-                if (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa))
+            //    if (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa))
-                {
+            //    {
-                    DtDatos = ObjVentas.DtResultados.Copy();
+            //        DtDatos = ObjVentas.DtResultados.Copy();
 
-                    DataRow drv = DtDatos.Rows[0];
+            //        DataRow drv = DtDatos.Rows[0];
-                    SelloCancelacion = drv["SelloCancelacion"].ToString();
+            //        SelloCancelacion = drv["SelloCancelacion"].ToString();
-                    FechaCancelacion = drv["FechaCancelacion"].ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss");
+            //        FechaCancelacion = drv["FechaCancelacion"].ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss");
-                }
+            //    }
-            }
+            //}
 
-            List<ReportParameter> parametros = new List<ReportParameter>();
+            //List<ReportParameter> parametros = new List<ReportParameter>();
-            parametros.Add(new ReportParameter("FechaCancelacion", FechaCancelacion.ToString()));
+            //parametros.Add(new ReportParameter("FechaCancelacion", FechaCancelacion.ToString()));
-            parametros.Add(new ReportParameter("FolioFiscal", ObjFactura.FolioFiscal));
+            //parametros.Add(new ReportParameter("FolioFiscal", ObjFactura.FolioFiscal));
-            parametros.Add(new ReportParameter("RFCEmisor", UsuarioActual.Empresa.RFC));
+            //parametros.Add(new ReportParameter("RFCEmisor", UsuarioActual.Empresa.RFC));
-            parametros.Add(new ReportParameter("SelloCancelacion", SelloCancelacion));
+            //parametros.Add(new ReportParameter("SelloCancelacion", SelloCancelacion));
 
-            byte[] ObjetoPDF = StreamPDF(@"Empresas\Grales\Formatos\AcuseCancelacion.rdlc", DtDatos, parametros, "AcuseCancelacion" + CveVenta);
+            //byte[] ObjetoPDF = StreamPDF(@"Empresas\Grales\Formatos\AcuseCancelacion.rdlc", DtDatos, parametros, "AcuseCancelacion" + CveVenta);
+
+            byte[] ObjetoPDF = DescargarPDF(Encripta(String.Format("OP=CAN&CVEVTA={0}", CveVenta)));
 
 
-            List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
+           List <ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
             string Asunto = string.Empty;
             string Cuerpo = string.Empty;
 

Ventas/RepVentasUtilidad.aspx.vb

@@ -164,7 +164,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataSource = ObjVentas.DtResultados
             GvDatos.DataBind()
@@ -315,7 +315,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text

Ventas/RepVentasUtilidadDetalle.aspx.vb

@@ -178,7 +178,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, If(CveVenta = -1, Orden, CveVenta), DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataSource = ObjVentas.DtResultados
             GvDatos.DataBind()
@@ -299,7 +299,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text
@@ -361,7 +361,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text

Ventas/Ventas.aspx

@@ -3341,7 +3341,7 @@
                                                                         </div>
                                                                         <div class="col-md-6">
                                                                             <asp:DropDownList ID="DdlCuentaEfectivo" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                                                                            <asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuentaEfectivo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
+                                                                            <asp:CustomValidator ID="RFVCuenta" runat="server" ClientValidationFunction="ValidaCuentaEfectivo" ControlToValidate="DdlCuentaEfectivo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:CustomValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
                                                                     </div>
@@ -3349,7 +3349,7 @@
 
                                                                 <div class="chequesie1">
                                                                     <div class="row">
-                                                                        <label class="col-md-2">Credito:</label>
+                                                                        <label class="col-md-2">Crédito:</label>
                                                                         <div class="col-md-4 input-icon">
                                                                             <i style="margin: 0px;">$</i>
                                                                             <asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
@@ -3357,7 +3357,7 @@
                                                                         </div>
                                                                         <div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" style="margin-right: -40px">
                                                                             <asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                                                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
+                                                                            <asp:CustomValidator ID="RequiredFieldValidator1" runat="server" ClientValidationFunction="ValidaCuentaCredito" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:CustomValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
                                                                         <div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false" style="text-align: right;">
@@ -3377,7 +3377,7 @@
 
                                                                 <div class="chequesie1">
                                                                     <div class="row">
-                                                                        <label class="col-md-2">Debito:</label>
+                                                                        <label class="col-md-2">Débito:</label>
                                                                         <div class="col-md-4 input-icon">
                                                                             <i style="margin: 0px;">$</i>
                                                                             <asp:TextBox ID="TxtImporteDebito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
@@ -3385,7 +3385,7 @@
                                                                         </div>
                                                                         <div class="col-md-6">
                                                                             <asp:DropDownList ID="DdlCuentaTarjetaDebito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                                                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="DdlCuentaTarjetaDebito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
+                                                                            <asp:CustomValidator ID="RequiredFieldValidator4" runat="server" ClientValidationFunction="ValidaCuentaDebito" ControlToValidate="DdlCuentaTarjetaDebito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:CustomValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender9" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator4" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
                                                                     </div>
@@ -3400,7 +3400,7 @@
                                                                         </div>
                                                                         <div class="col-md-6">
                                                                             <asp:DropDownList ID="DdlCuentaCheque" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                                                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="DdlCuentaCheque" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
+                                                                            <asp:CustomValidator ID="RequiredFieldValidator3" runat="server" ClientValidationFunction="ValidaCuentaCheque" ControlToValidate="DdlCuentaCheque" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:CustomValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender11" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator3" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
                                                                     </div>
@@ -3416,7 +3416,7 @@
                                                                         </div>
                                                                         <div class="col-md-6">
                                                                             <asp:DropDownList ID="DdlCuentaTransferencia" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
-                                                                            <asp:RequiredFieldValidator ID="RFVTransferencia" runat="server" ControlToValidate="DdlCuentaTransferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
+                                                                            <asp:CustomValidator ID="RFVTransferencia" runat="server" ClientValidationFunction="ValidaCuentaTransferencia" ControlToValidate="DdlCuentaTransferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:CustomValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="VCETransferencia" runat="server" HighlightCssClass="vco" TargetControlID="RFVTransferencia" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
                                                                     </div>
@@ -3480,6 +3480,8 @@
                                                                     </div>
                                                                     <div class="row">
                                                                         <div class="col-md-6">
+                                                                            <asp:HiddenField ID="HdnCambioFaltante" runat="server" Value="1" ClientIDMode="Static" />
+                                                                            <%--<asp:HiddenField ID="HdnPagadoContado" runat="server" Value="0" ClientIDMode="Static" />--%>
                                                                         </div>
                                                                         <label id="lblCambio" class="col-md-2">Cambio:</label>
                                                                         <div class="col-md-4 input-icon">
@@ -5723,7 +5725,7 @@
     <asp:Button ID="BtnRefacturacionConfirmarAceptacion" runat="server" ClientIDMode="Static" Text="Refacturacion Aceptacion Documento" Style="display: none;" />
     <asp:Button ID="BtnRefrescarPagina" runat="server" ClientIDMode="Static" Text="Refrescar" Style="display: none;" />
     <asp:Button ID="BtnAplicaNuevaNC" runat="server" ClientIDMode="Static" Text="AplicarNC" Style="display: none;" />
-
+    <asp:HiddenField ID="HdnCveVentaAcuse" runat="server" ClientIDMode="Static" Value="0" />
     <%--FLETES--%>
     <div id="ModalFletes" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpFletes" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -7078,10 +7080,10 @@
                         </div>
 
                         <div class="row" id="DivRelacionadasCancelacion" runat="server" visible="false">
-                            <div class="col-md-6">
+                            <div class="col-md-12">
                                 <div class="row">
                                     <div class="col-md-12">
-                                        Facturas Padre
+                                        Facturas que impiden su cancelación
                                     </div>
                                 </div>
                                 <div class="row">
@@ -7095,9 +7097,8 @@
                                         </asp:GridView>
                                     </div>
                                 </div>
-
                             </div>
-                            <div class="col-md-6">
+                            <%--                            <div class="col-md-6">
                                 <div class="row">
                                     <div class="col-md-12">
                                         Facturas Hijo
@@ -7115,7 +7116,7 @@
                                     </div>
                                 </div>
 
-                            </div>
+                            </div>--%>
                         </div>
                         <br />
                         <div class="row" id="DivMotivoCancelacion" runat="server">
@@ -7749,6 +7750,7 @@
                                 <asp:ListItem Value="1" Text="Importe"></asp:ListItem>
                                 <asp:ListItem Value="2" Text="Vencimiento"></asp:ListItem>
                             </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVTipoAut" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlTipoAutorizacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="VgmGuardarAut"></asp:RequiredFieldValidator>
                             <label for="<%= DdlTipoAutorizacion.ClientID.ToString()%>">Tipo Autorización:</label>
                         </div>
                         <div id="DivDiasVencidos" runat="server" visible="false" class="row">
@@ -7800,24 +7802,54 @@
                             </div>
                         </div>
                         <div class="row">
-                            <div class="col-md-2">
+                            <div class="col-md-12">
-                                <label>Motivo:</label>
+                                <asp:Label ID="LbExtraRefacturacion" runat="server"></asp:Label>
-                            </div>
-                            <div class="col-md-10">
-                                <asp:DropDownList ID="DdlMotivoRefacturacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="MotivoCancelacion" DataValueField="CveMotivoCancelacion">
-                                </asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RFVDdlMotivoRefac" runat="server" CssClass="help-block errorimput" Display="Dynamic" InitialValue="-1" ControlToValidate="DdlMotivoRefacturacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMotivo"></asp:RequiredFieldValidator>
                             </div>
                         </div>
-                        <div class="row">
+                        <div class="row" id="DivRelacionadasRefacturacion" runat="server" visible="false">
-                            <div class="col-md-2">
+                            <div class="col-md-12">
-                                <label>Descripción:</label>
+                                <div class="row">
-                            </div>
+                                    <div class="col-md-12">
-                            <div class="col-md-10">
+                                        Facturas que impiden su cancelación
-                                <asp:TextBox ID="TxtMotivoRefac" runat="server" Height="100" Width="100%" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
+                                    </div>
-                                <asp:RequiredFieldValidator ID="RFVTxtMotivoRefac" runat="server" Display="Dynamic" CssClass="help-block errorimput" ControlToValidate="TxtMotivoRefac" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMotivo"></asp:RequiredFieldValidator>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+                                        <asp:GridView ID="GvFacturasPadreRefacturar" runat="server" DataKeyNames="CveVenta" CssClass="table table-striped table-hover Widthall" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="" GridLines="None">
+                                            <Columns>
+                                                <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="Serie Folio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
+                                                <asp:BoundField DataField="FolioFiscal" HeaderText="Folio Fiscal" />
+                                            </Columns>
+                                        </asp:GridView>
+                                    </div>
+                                </div>
                             </div>
                         </div>
+                        <div class="row" id="DivMotivoRefacturacionTexto" runat="server">
+                            <div class="col-md-12">
+                                <div class="row">
+                                    <div class="col-md-2">
+                                        <label>Motivo:</label>
+                                    </div>
+                                    <div class="col-md-10">
+                                        <asp:DropDownList ID="DdlMotivoRefacturacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="MotivoCancelacion" DataValueField="CveMotivoCancelacion">
+                                        </asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RFVDdlMotivoRefac" runat="server" CssClass="help-block errorimput" Display="Dynamic" InitialValue="-1" ControlToValidate="DdlMotivoRefacturacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMotivo"></asp:RequiredFieldValidator>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-2">
+                                        <label>Descripción:</label>
+                                    </div>
+                                    <div class="col-md-10">
+                                        <asp:TextBox ID="TxtMotivoRefac" runat="server" Height="100" Width="100%" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVTxtMotivoRefac" runat="server" Display="Dynamic" CssClass="help-block errorimput" ControlToValidate="TxtMotivoRefac" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMotivo"></asp:RequiredFieldValidator>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="BtnMotivoRefacturacion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpMotivo"> Refacturar</asp:LinkButton>
@@ -7836,6 +7868,61 @@
             $("#BtnDirClienteValidar").click();
         }
 
+        function ValidaCuentaEfectivo(val, args) {
+            //VALIDA SOLO SI EL IMPORTE ES MAYOR A CERO
+            var totalPago = ToDouble($get("TxtImporteEfectivo").value);
+            if (totalPago > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            }else
+            {
+                args.IsValid = true;
+            }           
+        }
+
+        function ValidaCuentaCredito(val, args) {
+            //VALIDA SOLO SI EL IMPORTE ES MAYOR A CERO
+            var totalPago = ToDouble($get("TxtImporteCredito").value);
+            if (totalPago > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            }else
+            {
+                args.IsValid = true;
+            }           
+        }
+
+        function ValidaCuentaDebito(val, args) {
+            //VALIDA SOLO SI EL IMPORTE ES MAYOR A CERO
+            var totalPago = ToDouble($get("TxtImporteDebito").value);
+            if (totalPago > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            }else
+            {
+                args.IsValid = true;
+            }           
+        }
+
+        function ValidaCuentaCheque(val, args) {
+            //VALIDA SOLO SI EL IMPORTE ES MAYOR A CERO
+            var totalPago = ToDouble($get("TxtImporteCheque").value);
+            if (totalPago > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            }else
+            {
+                args.IsValid = true;
+            }           
+        }
+
+        function ValidaCuentaTransferencia(val, args) {
+            //VALIDA SOLO SI EL IMPORTE ES MAYOR A CERO
+            var totalPago = ToDouble($get("TxtImporteTransferencia").value);
+            if (totalPago > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            }else
+            {
+                args.IsValid = true;
+            }           
+        }
+
         //FUNCIONES PARA COMERCIO EXTERIOR
         function CalculaTotalUSD(TotalUSD, ValorUnitario, TxtCantidad) {
             TotalUSD.innerText = FormatoNumero(ToDouble(ValorUnitario.value) * ToDouble(TxtCantidad.value), 2);
@@ -8868,14 +8955,16 @@
             } catch (e) { }
 
             var total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia + TotalOtrosContado + totalRNC + totalAmortizado + totalProntoPago;
-            var totalVenta = ToDouble($get('TxtTotal').value);
+            var totalVenta = ToDouble($get('TxtTotal').value);// - ToDouble($get('HdnPagadoContado').value);
 
             if (total > totalVenta) {
-                lblCambio.innerHTML = "Cambio:"
+                lblCambio.innerHTML = "Cambio:";
+                HdnCambioFaltante.value = "1";
                 $get("TxtCambio").value = FormatoNumero(total - totalVenta);
             } else {
                 if ('<%= UsuarioActual.Empresa.Funcionalidad(531) %>' == '1') {
-                    lblCambio.innerHTML = "Faltante:"
+                    lblCambio.innerHTML = "Faltante:";
+                    HdnCambioFaltante.value = "2";
                     $get("TxtCambio").value = FormatoNumero(total - totalVenta, 2);
                 } else {
                     $get("TxtCambio").value = "$0.00"
@@ -9225,7 +9314,8 @@
                 $('#BtnMateriales').click();
             }
 
-            function BtnEnviarMailCancelacion() {
+            function BtnEnviarMailCancelacion(CveVenta) {
+                HdnCveVentaAcuse.value = CveVenta;
                 $('#BtnEnviarMailCancelacion').click();
             }
             function BtnRefacturacionConfirmar() {
@@ -9244,6 +9334,10 @@
                 $('#BtnAplicaNuevaNC').click();
             }
 
+            function BtnAplicaNuevaNC() {
+                $('#BtnAplicaNuevaNC').click();
+            }
+
             $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
             $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });