merge PV

App_Code/ClsMovimientos.vb

@@ -155,7 +155,7 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-    Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1, Optional Cuenta As String = "-1") As Boolean
+    Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1, Optional Cuenta As String = "-1", Optional EstatusFactura As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_Clientes")
 
@@ -169,8 +169,8 @@ Public Class ClsMovimientos
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoAgrupador", SqlDbType.Int).Value = TipoAgrupador
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
-            .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta
+            .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta
-
+            .Add("@EstatusFactura", SqlDbType.Int).Value = EstatusFactura
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -5733,7 +5733,7 @@ Public Class ClsPaginas
     Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object)
         'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
         Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
-        Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(30), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
+        Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(40), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
         'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
         ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
 

App_Code/ClsVentas.vb

@@ -361,7 +361,8 @@ Public Class ClsVentas
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0) As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1",
+                             Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -459,6 +460,7 @@ Public Class ClsVentas
             .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
 
             .Add("@DevolucionImportePagado", SqlDbType.Money).Value = DevolucionImportePagado
+            .Add("@EsGarantia", SqlDbType.Bit).Value = EsGarantia
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -1601,7 +1603,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")
 
@@ -1632,7 +1634,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
 
@@ -1651,7 +1653,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")
 
@@ -1685,7 +1687,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
@@ -2870,7 +2872,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean
+    Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUtilidadGet")
 
@@ -2885,6 +2887,7 @@ Public Class ClsVentas
             .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
         End With
 
         Try
@@ -2899,7 +2902,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean
+    Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUtilidadDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2914,6 +2917,7 @@ Public Class ClsVentas
             .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
         End With
 
         Try
@@ -2931,7 +2935,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer) As Boolean
+    Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepVentasUtilidadGet")
 
@@ -2947,6 +2951,7 @@ Public Class ClsVentas
             .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Modelos.vb

@@ -1488,7 +1488,7 @@ Namespace Modelos
                            PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                            CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
-                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor) Then
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia) Then
 
                 ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
 
@@ -6458,6 +6458,7 @@ Namespace Modelos
         End Property
 
         Public Property MotivoDescuento As String = ""
+        Public Property EsGarantia As Boolean
 
 
 #Region "Totales"

App_Code/Timbres.vb

@@ -120,7 +120,7 @@ Public Class Timbres
 
         Dim ObjGrales As New ClsGenerales
 
-        If ObjGrales.GetGralTimbre(CveTimbre, Obj.TipoDocto, FI, FF, 0, UsuarioActual.CveEmpresa, -1) Then
+        If ObjGrales.GetGralTimbre(CveTimbre, Obj.TipoDocto, FI, FF, -1, UsuarioActual.CveEmpresa, -1) Then
 
             If ObjGrales.DtResultados.Rows.Count = 1 Then
                 Dim DtMovimientos As DataTable = Nothing
@@ -263,7 +263,7 @@ Public Class Timbres
                                                                .Descripción = tPS,
                                                                .ClaveUnidad = drr("SATClaveUM").ToString,
                                                                .Unidad = drr("UM").ToString,
-                                                               .Dimensiones = "",
+                                                               .Dimensiones = drr("Dimensiones").ToString,
                                                                .PesoenKg = drr("PesoKg").ToString.ToDecimal,
                                                                .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
                                                                .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,

Bancos/ConciliacionesBancarias.aspx.vb

@@ -667,7 +667,13 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        ImprimirPDF("Empresas/Grales/Formatos/Conciliacion.rdlc", lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato)
+        Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/Conciliacion.rdlc"
+
+        If Not IO.File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+            Archivo = "Empresas/Grales/Formatos/Conciliacion.rdlc"
+        End If
+
+        ImprimirPDF(Archivo, lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato)
     End Sub
 
 #End Region

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/PopIEVentas.aspx.vb

@@ -302,8 +302,8 @@ Partial Class Bancos_PopIEVentas
         Set(value As String)
             ViewState("SerieFolio") = value
         End Set
-    End Property
+    End Property
-
+
     Private Property CveMonedaVenta As Integer
         Get
             Return ViewState("CveMonedaVenta").ToString.ToEntero
@@ -728,6 +728,10 @@ Partial Class Bancos_PopIEVentas
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
 
+                If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte 
+                    CveCorte = dr("CveCorte").ToString.ToEntero
+                End If
+
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
                 'Configuración de Modalidad Update

Bancos/RepCxCCliente.aspx

@@ -66,7 +66,8 @@
                         <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros caption ">
-                        <ul class="list-inline text-size-12">
+                        <div class="row">
+                            <ul class="list-inline text-size-12">
                             <li>Sucursal:
                                  <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="120px">
                                      <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -105,27 +106,40 @@
                             <li>Cliente:
                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
                                 <%--<asp:DropDownList ID="DdlClientes" runat="server" CssClass="form-control select2me input-sm" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="120px"></asp:DropDownList>--%>
-                            </li>
+                            </li>                            
-                            <li>Moneda:
-                                <asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="80px">
-                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
-                            </li>
 
                         </ul>
-                        <ul class="list-inline text-size-12">
+
-                            <li>Ver Por:&nbsp;&nbsp;
+                    </div>
-                                <asp:DropDownList ID="DdlAgrupador" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
+                     
-                                    <asp:ListItem Selected="True" Text="Sucursal" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
-                                </asp:DropDownList>
-                            </li>
-                            <li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
-                                <asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
-                            </li>
-                        </ul>
                     </div>
                 </div>
+                 <div class="portlet-body" style="display: none;">
+                            <div class="row">
+                                <ul class="list-inline text-size-12">
+                                    <li>Ver Por:&nbsp;&nbsp;
+                                        <asp:DropDownList ID="DdlAgrupador" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
+                                            <asp:ListItem Selected="True" Text="Sucursal" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                    <li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
+                                    </li>
+                                    <li>Moneda:
+                                        <asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="80px">
+                                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                    <li>Opción:&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <asp:DropDownList ID="DdlEstatusFactura" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
+                                            <asp:ListItem Selected="True" Text="Solo vigentes" Value="0"></asp:ListItem>
+                                            <asp:ListItem Text="Incluir en proceso cancelación" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                </ul>
+                                </div>
+                            </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>

Bancos/RepCxCCliente.aspx.vb

@@ -19,15 +19,17 @@ Partial Class Bancos_RepCxCCliente
             DdlMoneda.DataSource = GlobalDTMonedas()
             DdlMoneda.DataBind()
 
-            Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+            DdlClientesWS.setEsWebService(True)
-            If EsWS Then
+
-                DdlClientesWS.setEsWebService(True)
+            'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-            Else
+            'If EsWS Then
-                DdlClientesWS.setEsWebService(False)
+            '    DdlClientesWS.setEsWebService(True)
-                DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            'Else
-                DdlClientesWS.DataBind()
+            '    DdlClientesWS.setEsWebService(False)
-                DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+            '    DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            End If
+            '    DdlClientesWS.DataBind()
+            '    DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+            'End If
 
             DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
             DdlSubProyecto.DataBind()
@@ -58,7 +60,8 @@ Partial Class Bancos_RepCxCCliente
 
         Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
 
-        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then
+        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
+                             UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
             GvCxC.DataSource = Mov.DtResultados
         End If
         UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue

CRM/Acercamiento.aspx.cs

@@ -16,6 +16,8 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
 using ADSNetLibrary.SIGAPI.Models.Ventas.Response;
 using MoreLinq;
 using ADSNetLibrary.SIGAPI.Services;
+using ADSNetLibrary.SIGAPI.Services.Encuestas;
+using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
 
 public partial class CRM_Acercamiento : ClsPaginas
 {
@@ -1226,23 +1228,41 @@ public partial class CRM_Acercamiento : ClsPaginas
     #region "TAB DATOS TECNICOS"
     protected void CargaDatosTecnicos()
     {
-        ClsEncuestas objEncuesta = new ClsEncuestas();
 
-        if (objEncuesta.GetRespuestas(CveEncuestaProcesoCRM))
+        var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
-            DTRespuestasDatosTecnicos = objEncuesta.DtResultados;
+        var responseGenericGetRespuestas = encuestaService.GetRespuestas(CveEncuestaProcesoCRM);
-
+        if (responseGenericGetRespuestas.IsSuccess)
-        if (objEncuesta.GetDatosTecnicosEmpresaCRM(CveEncuestaProcesoCRM, CveEncuestaAplicadaProceso, UsuarioActual.Empresa.CveEmpresa))
         {
-            GvDatosTecnicos.DataSource = objEncuesta.DtResultados;
+            DTRespuestasDatosTecnicos = responseGenericGetRespuestas.Result.ToDataTable();
-            if (objEncuesta.DtResultados.Rows.Count > 0)
+        }
+
+        var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa, CveEncuesta = CveEncuestaProcesoCRM, CveEncuestaAplicada = CveEncuestaAplicadaProceso, CvePregunta = -1 });
+        if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess)
+        {
+            GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result;
+            if (responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0)
             {
-                //BtnModalReferenciasVerificar.Visible = true;
                 GvDatosTecnicos.Visible = true;
             }
         }
 
-        //UpModalReferenciasBtn.Update();
+        //ClsEncuestas objEncuesta = new ClsEncuestas();
-        objEncuesta.Dispose();
+
+        //if (objEncuesta.GetRespuestas(CveEncuestaProcesoCRM))
+        //    DTRespuestasDatosTecnicos = objEncuesta.DtResultados;
+
+        //if (objEncuesta.GetDatosTecnicosEmpresaCRM(CveEncuestaProcesoCRM, CveEncuestaAplicadaProceso, UsuarioActual.Empresa.CveEmpresa))
+        //{
+        //    GvDatosTecnicos.DataSource = objEncuesta.DtResultados;
+        //    if (objEncuesta.DtResultados.Rows.Count > 0)
+        //    {
+        //        //BtnModalReferenciasVerificar.Visible = true;
+        //        GvDatosTecnicos.Visible = true;
+        //    }
+        //}
+
+        ////UpModalReferenciasBtn.Update();
+        //objEncuesta.Dispose();
 
         GvDatosTecnicos.DataBind();
         UpDatosTecnicos.Update();
@@ -1364,14 +1384,20 @@ public partial class CRM_Acercamiento : ClsPaginas
         int CveEncuestaAplicadaDetalle = -1;
         Boolean ExisteRegistro = true;
         DataTable dtRespuesta;
+        var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
 
         //NUEVA CAPTURA DE DATOS TECNICOS
         if (_CveEncuestaAplicada == -1)
         {
-            if (ObjDatosTecnicos.AddEncuestaAplicada(CveEncuestaProcesoCRM, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            var responseModelAddEncuestaAplicada = encuestaService.AddEncuestaAplicada(new RequestEncuestaAplicadaAdd() { CveEncuesta = CveEncuestaProcesoCRM, CveCliente = -1, CvePersonal = -1, CveUsuario = UsuarioActual.CveUsuario, CveEmpresa = UsuarioActual.CveEmpresa });
+            if (responseModelAddEncuestaAplicada.Result > 0)
             {
-                _CveEncuestaAplicada = ObjDatosTecnicos.DtResultados.Rows[0][0].ToEntero();
+                _CveEncuestaAplicada = responseModelAddEncuestaAplicada.Result.ToEntero();
             }
+            //    if (ObjDatosTecnicos.AddEncuestaAplicada(CveEncuestaProcesoCRM, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            //{
+            //    _CveEncuestaAplicada = ObjDatosTecnicos.DtResultados.Rows[0][0].ToEntero();
+            //}
         }
 
         foreach (GridViewRow drow in GvDatosTecnicos.Rows)
@@ -1437,17 +1463,31 @@ public partial class CRM_Acercamiento : ClsPaginas
                     }
             }
 
+            var responnseModelUpdateDatosTecnicosCRM = encuestaService.UpdateDatosTecnicosCRM(new RequestDatosTecnicosCRMUpdate() { CveEncuestaAplicadaDetalle = CveEncuestaAplicadaDetalle, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Respuesta = Respuesta });
+            var responnseModelAddEncuestaAplicadaDetalle = encuestaService.AddEncuestaAplicadaDetalle(new RequestEncuestaAplicadaDetalleAdd() { CveEncuestaAplicada = _CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Valor = Respuesta });
             //ACTUALIZAMOS LOS DATOS TECNICOS
-            if (ExisteRegistro && !(ObjDatosTecnicos.UpdateDatosTecnicosCRM(CveEncuestaAplicadaDetalle, CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
+            if (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
             {
                 //SI HAY ERROR REGRESA 0
                 _CveEncuestaAplicada = 0;
             }
-            else if (!ExisteRegistro && !(ObjDatosTecnicos.AddEncuestaAplicadaDetalle(_CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
+            else if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
             {
                 //SI HAY ERROR REGRESA 0
                 _CveEncuestaAplicada = 0;
             }
+
+            ////ACTUALIZAMOS LOS DATOS TECNICOS
+            //if (ExisteRegistro && !(ObjDatosTecnicos.UpdateDatosTecnicosCRM(CveEncuestaAplicadaDetalle, CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
+            //{
+            //    //SI HAY ERROR REGRESA 0
+            //    _CveEncuestaAplicada = 0;
+            //}
+            //else if (!ExisteRegistro && !(ObjDatosTecnicos.AddEncuestaAplicadaDetalle(_CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
+            //{
+            //    //SI HAY ERROR REGRESA 0
+            //    _CveEncuestaAplicada = 0;
+            //}
             dtRespuesta.Dispose();
         }
         // SI REGRESA  _CveEncuestaAplicada = 0 HUBO ERROR 

CRM/EmpresaCRM.aspx.cs

@@ -1325,23 +1325,40 @@ public partial class CRM_EmpresaCRM : ClsPaginas
     #region "CARGAR DATOS TECNICOS - ENCUESTA"
     protected void CargaDatosTecnicos()
     {
-        ClsEncuestas objEncuesta = new ClsEncuestas();
+        var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
-
+        var responseGenericGetRespuestas = encuestaService.GetRespuestas(CveEncuestaCRM);
-        if (objEncuesta.GetRespuestas(CveEncuestaCRM))
+        if (responseGenericGetRespuestas.IsSuccess)
-            DTRespuestasDatosTecnicos = objEncuesta.DtResultados;
-
-        if (objEncuesta.GetDatosTecnicosEmpresaCRM(CveEncuestaCRM, CveEncuestaAplicada, UsuarioActual.Empresa.CveEmpresa))
         {
-            GvDatosTecnicos.DataSource = objEncuesta.DtResultados;
+            DTRespuestasDatosTecnicos = responseGenericGetRespuestas.Result.ToDataTable();
-            if (objEncuesta.DtResultados.Rows.Count > 0)
+        }
+
+        var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() {  CveEmpresa = UsuarioActual.Empresa.CveEmpresa , CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1});
+        if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess)
+        {
+            GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result;
+            if(responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0)
             {
-                //BtnModalReferenciasVerificar.Visible = true;
                 GvDatosTecnicos.Visible = true;
             }
         }
 
-        //UpModalReferenciasBtn.Update();
+        //ClsEncuestas objEncuesta = new ClsEncuestas();
-        objEncuesta.Dispose();
+
+        //if (objEncuesta.GetRespuestas(CveEncuestaCRM))
+        //    DTRespuestasDatosTecnicos = objEncuesta.DtResultados;
+
+        //if (objEncuesta.GetDatosTecnicosEmpresaCRM(CveEncuestaCRM, CveEncuestaAplicada, UsuarioActual.Empresa.CveEmpresa))
+        //{
+        //    GvDatosTecnicos.DataSource = objEncuesta.DtResultados;
+        //    if (objEncuesta.DtResultados.Rows.Count > 0)
+        //    {
+        //        //BtnModalReferenciasVerificar.Visible = true;
+        //        GvDatosTecnicos.Visible = true;
+        //    }
+        //}
+
+        ////UpModalReferenciasBtn.Update();
+        //objEncuesta.Dispose();
 
         GvDatosTecnicos.DataBind();
         UpDatosTecnicos.Update();

Compras/PopUpVerFactura.aspx.vb

@@ -297,7 +297,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Equipo GPS")
+        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
     End Sub
     Private Sub imprimirpallet2(cvePallet As Integer)
         Dim Envase As String = ""
@@ -332,13 +332,14 @@ Partial Class PopUpVerFactura
         Dim tablaReporte As New DataTable
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
+        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet")
     End Sub
     Private Sub imprimirpallet(cvePallet As Integer)
         Dim Envase As String = ""
         Dim Tamano As String = ""
         Dim Cultivo As String = ""
         Dim noPallet As String = ""
+        Dim FormatoImpresion As String = ""
 
         'Envase = "1 1/9"
         'Tamano = "Small"
@@ -351,6 +352,7 @@ Partial Class PopUpVerFactura
                 Tamano = row("Tamaño").ToString()
                 Cultivo = row("Cultivo").ToString()
                 noPallet = row("Codigo").ToString()
+                FormatoImpresion = row("FormatoImpresion").ToString()
 
             End If
 
@@ -360,10 +362,11 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Tamano", Tamano))
         params.Add(New ReportParameter("Cultivo", Cultivo))
         params.Add(New ReportParameter("noPallet", noPallet))
+        params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
         Dim tablaReporte As New DataTable
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
+        ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Pallet Caja")
     End Sub
 #Region "U S U A R I O - T O K E N"
 

GPS/PalletEtiqueta.rdlc

@@ -386,7 +386,8 @@ KM12 HERMOSILLO, SONORA</Value>
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>0.36724cm</Top>
+            <Top>0.1097cm</Top>
+            <Left>0.17195cm</Left>
             <Height>7.13021cm</Height>
             <Width>6.00674cm</Width>
             <Style>
@@ -776,11 +777,14 @@ KM12 HERMOSILLO, SONORA</Value>
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>0.36724cm</Top>
+            <Top>0.1097cm</Top>
-            <Left>6.18313cm</Left>
+            <Left>6.31984cm</Left>
             <Height>7.13021cm</Height>
             <Width>6.00674cm</Width>
             <ZIndex>1</ZIndex>
+            <Visibility>
+              <Hidden>=Parameters!FormatoImpresion.Value ="Sencillas"</Hidden>
+            </Visibility>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1168,8 +1172,8 @@ KM12 HERMOSILLO, SONORA</Value>
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>7.5274cm</Top>
+            <Top>7.4163cm</Top>
-            <Left>0.13668cm</Left>
+            <Left>0.17199cm</Left>
             <Height>7.13021cm</Height>
             <Width>6.00674cm</Width>
             <ZIndex>2</ZIndex>
@@ -1560,11 +1564,14 @@ KM12 HERMOSILLO, SONORA</Value>
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>7.5274cm</Top>
+            <Top>7.4163cm</Top>
             <Left>6.31981cm</Left>
             <Height>7.13021cm</Height>
             <Width>6.00674cm</Width>
             <ZIndex>3</ZIndex>
+            <Visibility>
+              <Hidden>=Parameters!FormatoImpresion.Value ="Sencillas"</Hidden>
+            </Visibility>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1572,10 +1579,10 @@ KM12 HERMOSILLO, SONORA</Value>
             </Style>
           </Rectangle>
         </ReportItems>
-        <Height>6.24016in</Height>
+        <Height>5.84433in</Height>
         <Style />
       </Body>
-      <Width>4.93458in</Width>
+      <Width>5.09083in</Width>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>
@@ -1613,6 +1620,12 @@ KM12 HERMOSILLO, SONORA</Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="FormatoImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logojam">

General/SaldosIniciales.aspx.vb

@@ -1790,7 +1790,6 @@ Partial Class General_SaldosIniciales
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString.Trim
-                        'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
 
                         If CveAlmacen > 0 Then
@@ -1798,9 +1797,8 @@ Partial Class General_SaldosIniciales
                             listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
                             If movimientoCabecera > 0 Then
 
-
+                                For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows
-                                contadorMovimientos += 1
+                                    contadorMovimientos += 1
-                                For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
                                     Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                                     If RowPS IsNot Nothing Then
                                         Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
@@ -1823,6 +1821,11 @@ Partial Class General_SaldosIniciales
                                         Throw New Exception()
                                     End If
                                 Next
+                                If contadorMovimientos = 0 Then
+                                    mensajeError = $"No se encontraros registros del almacen: ""{almacenActual}"""
+                                    Throw New Exception()
+                                    Exit For
+                                End If
                             Else
                                 mensajeError = $"No se registró el encabezado ""{almacenActual}"""
                                 Throw New Exception()

Inventarios/CatUnidades.aspx

@@ -102,8 +102,7 @@
 
 
                         <div class="form-group form-md-line-input input-iconright">                            
-                            <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">
+                            <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">                                
-                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                             <label for="<%= DdlConfigAuto.ClientID.ToString()%>">Configuración Carta Porte:</label>
                             <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" ControlToValidate="DdlConfigAuto" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>

Inventarios/CatUnidades.aspx.vb

@@ -54,6 +54,7 @@ Partial Class Inventarios_CatUnidades
         End Using
 
         DdlConfigAuto.DataBind()
+        DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione Uno ", "-1"))
         DdlTipoPermisoSCT.DataBind()
 
         UpModalUnidades.Update()

Inventarios/EntradasSalidas.aspx.vb

@@ -783,7 +783,7 @@ Partial Class Inventarios_EntradasSalidas
                     HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}&CVETIMBRE={1}", CveMovimiento, drM("CveTimbre"))))
                 Else
                     HplDescargaPdf.Visible = True
-                    HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), "Tra")))
+                    HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), "Tra", drM("CveTimbre"))))
 
                     HplCartaPorte.Visible = True
                     HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
@@ -3610,7 +3610,7 @@ Partial Class Inventarios_EntradasSalidas
 
         ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
         Dim CveVenta As Integer = ObjInventario.CveVenta
-        Dim MovAlmacen As Boolean = True
+        Dim MovAlmacen As Boolean = False
 
         Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & DdlConcepto.SelectedValue).ToEntero
         If OrigenMov = 1 Then MovAlmacen = False Else MovAlmacen = True

Inventarios/EntregaAlmacen.aspx.vb

@@ -321,12 +321,9 @@ Partial Class Inventarios_EntregaAlmacen
             DdlClientes.ddl.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
             DdlClientes.ddl.DataBind()
             DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+        End If
-
+
-        If UsuarioActual.CveSubProyecto = 8804 Then
+
-            StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
-        End If
-
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
         DdlAlmacen.SelectedValue = "-1"
@@ -744,12 +741,13 @@ Partial Class Inventarios_EntregaAlmacen
                         If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then
                             Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"})
                             If DtMov.Rows.Count > 0 AndAlso CveAlmacen <= 0 Then
-                                Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
+                                Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
-                                DdlAlmacen.Items.Clear()
+
-                                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
+                                'DdlAlmacen.Items.Clear()
-                                DdlAlmacen.DataBind()
+                                'DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
-
+                                'DdlAlmacen.DataBind()
-                                DdlAlmacen.SelectedValueExist(CveAlmacenDev)
+
+                                DdlAlmacen.SelectedValueExist(CveAlmacenDev) ' se va a poder regresar en algun almacen diferente
                                 EsDevolucionDirecta = True
                             End If
                         End If

Inventarios/Kardex.aspx.vb

@@ -490,7 +490,7 @@ Partial Class Inventarios_Kardex
     Protected Sub LnkEditarFecha_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         CveMovimiento = gvRow.DataKey("CveMovimiento").ToEntero
-        TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH: mm")
+        TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
         RegistraScript("$('#DModalEditarFecha').modal()")
         UpModalEditarFecha.Update()
     End Sub

Inventarios/RecepcionAlmacen.aspx

@@ -811,7 +811,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 +827,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>
+                                </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">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -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

Inventarios/RepEntradasSalidas.aspx.vb

@@ -186,10 +186,20 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
     End Sub
     Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero)
+
-        DdlClasificacion.DataBind()
+        CargaClasificaciones()
-        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
     End Sub
+
+    Private Sub CargaClasificaciones(CveCategoria As Integer)
+        Dim ObjClasificaciones As New ClsClasificaciones
+        If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+        End If
+        ObjClasificaciones.Dispose()
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargaDatos()
     End Sub

Inventarios/TraspasoAlmacen.aspx

@@ -63,6 +63,9 @@
     <li>
         <asp:HyperLink ID="LnkCargarExcel" runat="server" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelConceptos" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color: #686868;"></i> Cargar Conceptos</asp:HyperLink>
     </li>
+    <li>
+        <asp:Linkbutton ID="HplCargaBitacora" runat="server" OnClick="HplCargaBitacora_Click"  Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:Linkbutton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -159,6 +159,15 @@ Partial Class Inventarios_TraspasoAlmacen
             ViewState("FolioBusqueda") = value
         End Set
     End Property
+
+    Private Property ArchivoBitacora As String
+        Get
+            Return CType(ViewState("ArchivoBitacora"), String)
+        End Get
+        Set(value As String)
+            ViewState("ArchivoBitacora") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -173,6 +182,7 @@ Partial Class Inventarios_TraspasoAlmacen
             RVFechaRecepcion.MaximumValue = Now.ToShortDateString
             Folio = 0
             CveMovimientoTimbrado = -1
+            ArchivoBitacora = UsuarioActual.Empresa.Ruta & "Temp\Traspaso_" & UsuarioActual.CveUsuario & ".xml"
 
             If UsuarioActual.CveEmpresa = 119 Then
                 divGastoIndirecto.Visible = False
@@ -287,6 +297,7 @@ Partial Class Inventarios_TraspasoAlmacen
         dt.Columns.Add("Embalaje")
         dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
 
+        dt.TableName = "TablaTraspaso"
 
         DtMovimientos = dt
 
@@ -701,10 +712,10 @@ Partial Class Inventarios_TraspasoAlmacen
 
             DtMovimientos.Rows.Add(registro)
             RegistraScript("playsonidito('beep-07.wav')")
-
+            IO.Path.GetDirectoryName(ArchivoBitacora).DirectoryExistsCreate 'verifica que exista la ruta
+            ActualizaBitacora()
         End If
 
-
         CargaGvDatos()
 
         If Limpia Then
@@ -715,6 +726,14 @@ Partial Class Inventarios_TraspasoAlmacen
             TxtnSerie.Focus()
         End If
     End Sub
+    Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
+        If Not Eliminar Then
+            DtMovimientos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
+        Else
+            File.Delete(ArchivoBitacora)
+        End If
+
+    End Sub
 
     Private Sub LimpiaAgregar()
         'DdlClasificacion.SelectedValue = "-1"
@@ -857,7 +876,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim FechaCaducidad As Date
 
         Dim TextoExistencia As StringBuilder = New StringBuilder
-        Dim Existencia As Double
+        Dim Existencia As Decimal
         Dim CantidadenGrid As Decimal
         TextoExistencia.Append("Los siguiente productos se ajustaron por falta de existencia:<br/>")
         If Not CargadoDeMov Then
@@ -884,7 +903,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad))
                 If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
                     'si hay existencia en almacen costeado, lo tengo que sacar
-                    Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+                    Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                 End If
 
                 'Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=1)
@@ -892,12 +911,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 'DtMovimientos.SUM("Cantidad", String.Format("CvePS = {0}", dr("CvePS").ToString.ToEntero))
                 'la primera vez valida, que la existencia global, cumpla, considerando lo pendiente por surtir
                 'las segunda consulta, que tenga existencia, ya con los parametros especificos
-                If FechaCaducidad > MinFecha OrElse (Lote <> "-1" AndAlso Lote <> "") Then
+                If FechaCaducidad > MinFecha OrElse (Lote <> "-1" AndAlso Lote <> "") OrElse (Serie <> "-1" AndAlso Serie <> "") Then
                     If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
                         ExistenciaEspecificada = ObjInventario.DtResultados.FiltroPrimeroValor("Existencia", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                     End If
-
-                    'ExistenciaEspecificada = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=-1)
                     Existencia = ExistenciaEspecificada - CantidadenGrid
                 End If
 
@@ -1357,8 +1374,6 @@ Partial Class Inventarios_TraspasoAlmacen
         ChkTransitorio.Enabled = True
         TxtGastoIndirecto.Text = ""
 
-
-
         DivMov.Visible = False
         CargadoDeMov = False
 
@@ -1366,6 +1381,7 @@ Partial Class Inventarios_TraspasoAlmacen
         UpMov.Update()
 
         DtMovimientos.Rows.Clear()
+        ActualizaBitacora()
         CargaGvDatos()
     End Sub
 #End Region
@@ -1479,9 +1495,12 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub EscondeColumnasGVM(DtTemp As DataTable)
 
         GvDatos.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> ""
+        TdSerie.Visible = GvDatos.Columns(5).Visible : ThSerie.Visible = GvDatos.Columns(5).Visible
         GvDatos.Columns(6).Visible = DtTemp.MAX("Lote").ToString <> ""
+        TdLote.Visible = GvDatos.Columns(6).Visible : ThLote.Visible = GvDatos.Columns(6).Visible
         GvDatos.Columns(7).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
         GvDatos.Columns(7).Visible = DtTemp.MAX("FechaCaducidad").ToString.ToDate > MinFecha
+        TdFechaCaducidad.Visible = GvDatos.Columns(7).Visible : ThFechaCaducidad.Visible = GvDatos.Columns(7).Visible
         GvDatos.Columns(8).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString.ToEntero > 0
 
         ''TxtnSerie.Visible = False
@@ -1583,6 +1602,7 @@ Partial Class Inventarios_TraspasoAlmacen
         DbRow = DtMovimientos.Rows(e.RowIndex)
 
         DtMovimientos.Rows.Remove(DbRow)
+        ActualizaBitacora()
         CargaGvDatos()
     End Sub
 
@@ -3059,6 +3079,17 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
 
+    End Sub
+
+    Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
+
+        If IO.File.Exists(ArchivoBitacora) Then
+            DtMovimientos.ReadXml(ArchivoBitacora)
+            CargaGvDatos()
+            Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
+        Else
+            Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
+        End If
 
     End Sub
 End Class

Nomina/CalculoISRAnual.aspx

@@ -97,7 +97,7 @@
 
 
                     <asp:GridView ID="GVCalculoISRAnual" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCalculoISRAnual Widthall" AutoGenerateColumns="False"
-                        DataKeyNames="CvePersonal,Codigo,NombreCompleto,TipoIngreso,FechaInicio,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
+                        DataKeyNames="CvePersonal,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
                         <Columns>
                             <asp:TemplateField HeaderText="Aplica">
                                 <ItemTemplate>

Nomina/CalculoISRAnual.aspx.cs

@@ -72,15 +72,30 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
 
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
         var libro = wb.AddWorksheet("Asistencia");
-        int column = 1;
 
         int row = 1;
+        string imagePath = string.Format("{0}{1}\\Logo.png", ModExtensiones.DirectorioEmpresas, UsuarioActual.CveEmpresa);
+        if (System.IO.File.Exists(imagePath))
+        {
+            var image = libro.AddPicture(imagePath)
+                .MoveTo(libro.Cell(row, 2))//, libro.Cell(row, 5));
+                .Scale(.8);
+        }
+        row++;
+        libro.Range(row, 3, row, 5).Merge().Value = UsuarioActual.Empresa.Empresa;
+        row++;
+        libro.Range(row, 3, row, 5).Merge().Value = string.Format("Calculo I.S.R anual del ejercicio {0}", DdlEjercicios.SelectedValue);
 
+        row++;
+        row++;
+        int column = 1;
         libro.Cell(row, column++).Value = "Aplica";
         libro.Cell(row, column++).Value = "Causa";
         libro.Cell(row, column++).Value = "Código";
         libro.Cell(row, column++).Value = "Nombre";
         libro.Cell(row, column++).Value = "Tipo ingreso";
+        libro.Cell(row, column++).Value = "Fecha ingreso";
+        libro.Cell(row, column++).Value = "Fecha baja";
         libro.Cell(row, column++).Value = "Ingresos totales";
         libro.Cell(row, column++).Value = "Base gravada";
         libro.Cell(row, column++).Value = "Base exenta";
@@ -93,6 +108,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
         libro.Range(row, 1, row, column - 1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
         libro.Range(row, 1, row, column - 1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
         row++;
+        int initrowdata = row;
         using (ClsNominas onom = new ClsNominas())
         {
             if (onom.CalculoISRAnual(DdlEjercicios.SelectedValue.ToEntero(), UsuarioActual.Empresa.CveEmpresa) && onom.DtResultados.Rows.Count > 0)
@@ -105,7 +121,9 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
                     libro.Cell(row, column++).Value = drow["causa"];
                     libro.Cell(row, column++).Value = drow["Codigo"];
                     libro.Cell(row, column++).Value = drow["NombreCompleto"];
-                    libro.Cell(row, column++).Value = string.Format("{0} - {1:dd/MM/yyyy}", drow["TipoIngreso"], drow["FechaInicio"]);
+                    libro.Cell(row, column++).Value = string.Format("{0}", drow["TipoIngreso"], drow["FechaInicio"]);
+                    libro.Cell(row, column++).Value = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
+                    libro.Cell(row, column++).Value = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
                     libro.Cell(row, column++).Value = drow["IngresosTotales"];
                     libro.Cell(row, column++).Value = drow["BaseGravada"];
                     libro.Cell(row, column++).Value = drow["BaseExcenta"];
@@ -120,12 +138,12 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
             }
         }
 
-        libro.SheetView.Freeze(1, 4);
+        libro.SheetView.Freeze(initrowdata-1, 5);
         libro.ColumnsUsed().AdjustToContents();
-        libro.Range(1, 6, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+        libro.Range(initrowdata-1, 6, initrowdata-1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-        libro.Range(2, 6, row, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right;
+        libro.Range(initrowdata, 8, row, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right;
-        libro.Range(2, 6, row, column).SetDataType(ClosedXML.Excel.XLDataType.Number);
+        libro.Range(initrowdata, 8, row, column).SetDataType(ClosedXML.Excel.XLDataType.Number);
-        libro.Range(2, 6, row, column).Style.NumberFormat.Format = "$#,###,###,###,###,###,0.00";
+        libro.Range(initrowdata, 8, row, column).Style.NumberFormat.Format = "$#,###,###,###,###,###,0.00";
 
 
         System.IO.Stream fs = new System.IO.MemoryStream();
@@ -146,6 +164,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
         Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Calculo Anual"));
         Response.BinaryWrite(memoryStream.ToArray());
         Response.End();
+        //Alert(string.Format("<pre> {0} {1}</pre>",imagePath, System.IO.File.Exists(imagePath)));
     }
 
 

Site.master.vb

@@ -365,7 +365,7 @@ Partial Class Site
                         MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), drH("CveModulo"))
                         For Each drN As DataRow In Nietos
                             LinkNieto = drN("LIGA").ToString()
-                            If (drH("IsAngular").ToString() = "1") Then
+                            If (drN("IsAngular").ToString() = "1") Then
                                 LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain)
                             End If
                             If CveModulo = drN("CveModulo").ToString().ToEntero Then

Ventas/CatAutorizacionLimites.aspx

@@ -64,20 +64,20 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAutorizacion,CveCliente,CveVendedor,Importe"
-                EmptyDataText="No se encontraron autorizaciones" ToolTip="Listado de autorizaciones"
+                EmptyDataText="No se encontraron autorizaciones" ToolTip=""
                 CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None">
                 <Columns>
                     <asp:HyperLinkField DataTextField="NombreComercial" Target="_blank" HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
-                    <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
+                    <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-Width="15%" />
-                    <asp:BoundField DataField="Importe" ItemStyle-Width="15%" HeaderText="Importe" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="Importe" ItemStyle-Width="15%" HeaderText="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="15%" HeaderText="Limite Credito" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Credito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                    <asp:BoundField DataField="Saldo" ItemStyle-Width="15%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
                     <asp:BoundField DataField="TipoAutorizacionTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
-                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="15%" HeaderText="Dias Vencidos" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
+                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="Dias Vencidos" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
-                    <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo Documento" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
+                    <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
+                    <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                         <ItemTemplate>
                             <asp:Label ID="LblEstatus" Text='<%# Eval("Estatus") %>' runat="server"></asp:Label>
                         </ItemTemplate>

Ventas/CatAutorizacionLimites.aspx.vb

@@ -24,21 +24,25 @@ Partial Class Ventas_CatAutorizacionLimites
 #End Region
 
     Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
-            CargaCombos()
+            CargaCombos()
-            CargaDatos()
+            CargaDatos()
-        End If
+        End If
-    End Sub
+    End Sub
-
+
-#Region "CARGAS"
+#Region "CARGAS"
-    Private Sub CargaCombos()
+    Private Sub CargaCombos()
-        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+
+        DdlCliente.setEsWebService(True)
+        DdlClienteFiltro.setEsWebService(True)
+
+        'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         'If EsWS Then
-            DdlCliente.setEsWebService(True)
+        '    DdlCliente.setEsWebService(True)
-            DdlClienteFiltro.setEsWebService(True)
+        '    DdlClienteFiltro.setEsWebService(True)
-        Else
+        'Else
-            DdlCliente.setEsWebService(False)
+        '    DdlCliente.setEsWebService(False)
-            DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        '    DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
         '    DdlCliente.DataBind()
         '    DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
 

Ventas/Clientes.aspx.vb

@@ -1787,7 +1787,7 @@ Partial Class Clientes
                 If ObjClientes.TipoCliente = 2 Then
                     TabFiscalContable.Visible = False
                     TabCxC.Visible = False
-                    TabAnticipos.Visible = False
+                    'TabAnticipos.Visible = False
                     TabRetenciones.Visible = False
                     TabOS.Visible = False
                     TabComplementos.Visible = False

Ventas/PV.aspx.vb

@@ -6768,10 +6768,19 @@ Partial Class PV
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
 
+            DdlBCIAjuste.Items.Clear()
             If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
-                DdlBCIAjuste.Items.Clear()
                 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
 
             DdlTipoUso.Items.Clear()

Ventas/PopUpBuscarFolio.aspx

@@ -183,8 +183,8 @@
                 </tr>
                 <tr>
                     <td>
-                        <div id="DivFacturas" style="overflow-y: auto; width: 760px; max-height: 215px;">
+                        <div id="DivFacturas" style="overflow-y: auto; width: 760px; max-height: 165px;">
-                            <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None">
+                            <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"  GridLines="None">
                                 <Columns>
                                     <asp:TemplateField>
                                         <HeaderTemplate>Tipo</HeaderTemplate>
@@ -210,30 +210,36 @@
                                             <asp:Literal ID="LtlNombre" runat="server"></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:TemplateField>
+                                     <asp:TemplateField>
-                                        <HeaderTemplate>Pedido/OC</HeaderTemplate>
+                                        <HeaderTemplate>Sucursal</HeaderTemplate>
                                         <ItemTemplate>
-                                            <asp:Literal ID="LtlPedidoContrato" runat="server"></asp:Literal>
+                                            <asp:Literal ID="LtlSucursal" runat="server"></asp:Literal>
                                         </ItemTemplate>
-                                    </asp:TemplateField>
+                                    </asp:TemplateField>                                    
                                     <asp:TemplateField>
                                         <HeaderTemplate>Total</HeaderTemplate>
                                         <ItemTemplate>
                                             <asp:Literal ID="LtlTotal" runat="server"></asp:Literal>
                                         </ItemTemplate>
-                                    </asp:TemplateField>
+                                    </asp:TemplateField> 
                                     <asp:TemplateField>
-                                        <HeaderTemplate>Sucursal</HeaderTemplate>
+                                        <HeaderTemplate>Mon</HeaderTemplate>
                                         <ItemTemplate>
-                                            <asp:Literal ID="LtlSucursal" runat="server"></asp:Literal>
+                                            <asp:Literal ID="LtlMon" runat="server"></asp:Literal>
                                         </ItemTemplate>
-                                    </asp:TemplateField>
+                                    </asp:TemplateField> 
                                     <asp:TemplateField>
                                         <HeaderTemplate>Estatus</HeaderTemplate>
                                         <ItemTemplate>
                                             <asp:Literal ID="LtlEstatus" runat="server"></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
+                                    <asp:TemplateField>
+                                        <HeaderTemplate>Pedido/OC</HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlPedidoContrato" runat="server"></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
                                     <asp:TemplateField>
                                         <HeaderTemplate>XML</HeaderTemplate>
                                         <ItemTemplate>

Ventas/PopUpBuscarFolio.aspx.vb

@@ -151,19 +151,10 @@ Partial Class PopUpBuscarFolio
 
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            'If e.Row.RowIndex = 0 Then
+
-            '    e.Row.Cells(0).Width = Unit.Pixel(38)
-            '    e.Row.Cells(1).Width = Unit.Pixel(65)
-            '    e.Row.Cells(2).Width = Unit.Pixel(70)
-            '    e.Row.Cells(3).Width = Unit.Pixel(250)
-            '    'e.Row.Cells(4).Width = Unit.Pixel(75)
-            '    e.Row.Cells(4).Width = Unit.Pixel(75)
-            '    e.Row.Cells(5).Width = Unit.Pixel(100)
-            '    e.Row.Cells(6).Width = Unit.Pixel(100)
-            'End If
             e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
             'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
-            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
 
             Dim Liga As String = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveVenta"))
             If UsuarioActual.CveEmpresa = 140 AndAlso e.Row.DBCampo("TipoDocto").Contiene("Rem") Then
@@ -171,11 +162,12 @@ Partial Class PopUpBuscarFolio
             End If
 
             e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
-            e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
+            e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:95px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
             e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
             e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Nombre"))
             'e.Row.FCLiteral("LtlSubTotal").Text = Liga & e.Row.DBCampo("SubTotal").FormatoNumero & "&nbsp;</a>"
             e.Row.FCLiteral("LtlTotal").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Total").FormatoNumero)
+            e.Row.FCLiteral("LtlMon").Text = String.Format("<div class='truncate' style='width:30px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Abreviatura"))
             e.Row.FCLiteral("LtlSucursal").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("SubProyecto"))
             e.Row.FCLiteral("LtlEstatus").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("EstatusFactura"))
             e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("PedidoContrato"))

Ventas/RepAuxiliarFacturas.aspx.vb

@@ -65,12 +65,10 @@ Partial Class Ventas_RepAuxiliarFacturas
     End Sub
 
 #Region "C A R G A - C O M B O S"
-    Private Sub CargaClientes()
+    'Private Sub CargaClientes()
-        DdlClientes.ddl.Items.Clear()
+
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+    '    DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlClientes.DataBind()
+    'End Sub
-        DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
         DdlEstatus.Items.Clear()
@@ -139,7 +137,7 @@ Partial Class Ventas_RepAuxiliarFacturas
 
     Private Sub CargaCombos()
         'Cargo Clientes
-        CargaClientes()
+        'CargaClientes()
 
         'Cargo Proyectos
         DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)

Ventas/RepRemisiones.aspx

@@ -130,12 +130,15 @@
                             </ADS:Dropdownlost>
                             </div>
 
-                            <label class="col-md-1">Contrato: </label>
+                            <label class="col-md-1 ">Vendedor:</label>
-                            <div class="col-md-2">
+                        <div class="col-md-2">
-                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlContrato" DataTextField="ContratoCompleto" DataValueField="CveContrato" runat="server">
+                            <asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
-                                </asp:DropDownList>
+                            <%--     <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                            </div>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>--%>
+                        </div>
 
+                            
                         </div>
                     </div>
                 </div>
@@ -188,13 +191,13 @@
                             </div>
                         </div>
 
-                        <label class="col-md-1 ">Vendedor:</label>
+                        <label class="col-md-1">Contrato: </label>
-                        <div class="col-md-2">
+                            <div class="col-md-2">
-                            <asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlContrato" DataTextField="ContratoCompleto" DataValueField="CveContrato" runat="server">
-                            <%--     <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                </asp:DropDownList>
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </div>
-                            </asp:DropDownList>--%>
+
-                        </div>
+                        
                     </div>
                 </div>
             </div>
@@ -232,7 +235,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField>
                         <HeaderTemplate>
-                            <asp:Label Text="Fecha Vencimiento" runat="server" CausesValidation="false"> </asp:Label>
+                            <asp:Label Text="F. Vencimiento" runat="server" CausesValidation="false"> </asp:Label>
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaVencimiento" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
@@ -287,7 +290,7 @@
                             <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="10%"  >
                         <HeaderTemplate>
                             <asp:Label Text="Total" runat="server" CausesValidation="false"> </asp:Label>
                         </HeaderTemplate>

Ventas/RepVentasUtilidad.aspx.vb

@@ -66,7 +66,7 @@ Partial Class Ventas_RepVentasUtilidad
         'Cargo categorias
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
-
+        DdlCategoria.Items.Insert(0, New ListItem("Todas", "-1"))
 
         'Cargo Clasificaciones
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
@@ -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, 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, 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, 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/RepVentasUtilidadPadre.aspx

@@ -178,6 +178,16 @@
                         <div class="col-md-2">
                             <asp:Dropdownlist runat="server" ID="DdlMarcas" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="Marca" DataValueField="CveMarca" />
                         </div>
+                        <div class="col-md-1 truncate" id="divgarantia1" runat="server" visible="false">
+                            Garantía:
+                        </div>
+                        <div class="col-md-2" id="divgarantia2" runat="server" visible="false">
+                            <asp:Dropdownlist runat="server" ID="DdlGarantia" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                               </asp:Dropdownlist>
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/RepVentasUtilidadPadre.aspx.vb

@@ -71,6 +71,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
         'Cargo categorias
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
+        DdlCategoria.Items.Insert(0, New ListItem("Todas", "-1"))
 
         'Cargo Clasificaciones
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
@@ -90,6 +91,12 @@ Partial Class Ventas_RepVentasUtilidadPadre
             DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
+        'garantia
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            divgarantia1.visible = True
+            divgarantia2.visible = True
+        End If
+
         DdlMarcas.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarcas.DataBind()
         DdlMarcas.Items.Insert(0, New ListItem("Todas", "-1"))
@@ -125,7 +132,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
         If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientesWS.SelectedValue.ToEntero,
                                                     If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM), txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
                                                     UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
-                                                   DdlMarcas.SelectedValue.ToEntero) Then
+                                                   DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If

Ventas/Ventas.aspx.vb

@@ -2264,7 +2264,7 @@ Partial Class Ventas
                 DivPenalizacion.Visible = True
             End If
 
-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LnkSolicitarCredito.Visible = True
             End If
 
@@ -6532,7 +6532,7 @@ Partial Class Ventas
                             ObjVentas.Dispose()
                         Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
                             'RMF. codigo temporal para pruebas
-                            If Alertas AndAlso UsuarioActual.CveEmpresa = 140 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1937, 2275) AndAlso Now.Hour > 5 AndAlso Now.Hour < 9 Then
+                            If Alertas AndAlso UsuarioActual.CveEmpresa = 140 Then
                                 Dim Vta As New ClsVentas
                                 Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                                 Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
@@ -7560,17 +7560,17 @@ Partial Class Ventas
             End If
 
             'SERIE ALMACEN
-            If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 Then
+            If CveVenta > 0 AndAlso e.Row.DBCampo("Serie") <> "" Then
-                If CveVenta > 0 Then
+                e.Row.FCLiteral("LtlSerie").Visible = True
-                    e.Row.FCLiteral("LtlSerie").Visible = True
+            End If
-                Else
+
-                    e.Row.FCTextBox("TxtSerie").Visible = True
+            If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 And CveVenta <= 0 Then
+
+                e.Row.FCTextBox("TxtSerie").Visible = True
                     e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
                     e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
                     e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
                     e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
-                End If
-
 
                 'e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))
 
@@ -11548,7 +11548,7 @@ Partial Class Ventas
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
-                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado) Then
+                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -16026,8 +16026,9 @@ Partial Class Ventas
                     'falta verificar traer el acuse y reenviarlo 
 
                     If UsuarioActual.Empresa.UsaAC Then
-                        IDPoliza = GenerarPolizaAC(ObjAC, True)
+                        Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
-                        If IDPoliza <= 0 Then
+                        IDPoliza = IDMPoliza.IdPoliza
+                        If IDMPoliza.IdPoliza <= 0 Then
                             Mensaje = "No se pudo generar la poliza"
                             ErrorCancelar = True
                         End If
@@ -16116,8 +16117,9 @@ Partial Class Ventas
             ElseIf Respuesta.NoCertificadoSAT <> String.Empty Then
 
                 If UsuarioActual.Empresa.UsaAC Then
-                    IDPoliza = GenerarPolizaAC(ObjAC, True)
+                    Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
-                    If IDPoliza <= 0 Then
+                    IDPoliza = IDMPoliza.IdPoliza
+                    If IDMPoliza.IdPoliza <= 0 Then
                         Mensaje = "No se pudo generar la poliza"
                         ErrorCancelar = True
                     End If
@@ -18340,125 +18342,124 @@ Partial Class Ventas
     End Function
 
 
-    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
+    'Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer
-        Dim Retorno As Integer = 0
+    '    Dim Retorno As Integer = 0
-        Dim IDPoliza As Integer = 0
+    '    Dim IDPoliza As Integer = 0
 
-        Dim ErrorAC As Boolean = False
+    '    Dim ErrorAC As Boolean = False
-        'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
+    '    'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-        Dim Fecha As Date = TxtFecha.Text.ToDate
+    '    Dim Fecha As Date = TxtFecha.Text.ToDate
-        Dim Concepto As String = String.Format("GD {0}", NombreCliente)
+    '    Dim Concepto As String = String.Format("GD {0}", NombreCliente)
-        Dim Paridad As Integer = 1
+    '    Dim Paridad As Integer = 1
-        Dim TipoMovto As Boolean = False
+    '    Dim TipoMovto As Boolean = False
 
-        If CancelacionIngreso Then
+    '    If CancelacionIngreso Then
-            Concepto = String.Format("Cancelación GD {0}", NombreCliente)
+    '        Concepto = String.Format("Cancelación GD {0}", NombreCliente)
-            Paridad = -1
+    '        Paridad = -1
-            TipoMovto = True
+    '        TipoMovto = True
-        End If
+    '    End If
 
-        Dim TipoPoliza = If(DdlTipoComprobante.SelectedValue.ToString() = "OP" Or DdlTipoComprobante.SelectedValue.ToString() = "Com", 3, 1)
+    '    Dim TipoPoliza = If(DdlTipoComprobante.SelectedValue.ToString() = "OP" Or DdlTipoComprobante.SelectedValue.ToString() = "Com", 3, 1)
 
-        IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, TxtTotal.Text.ToDouble * 2, TxtTotal.Text.ToDouble * 2, UsuarioActual.CveUsuario, Fecha)
+    '    IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, TxtTotal.Text.ToDouble * 2, TxtTotal.Text.ToDouble * 2, UsuarioActual.CveUsuario, Fecha)
-        Dim dr As DataRow ' = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", DdlFuenteRecaudacion.SelectedValue))
+    '    Dim dr As DataRow ' = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", DdlFuenteRecaudacion.SelectedValue))
-        'Dim Importe As Double = TxtTotal.Text.ToDouble
+    '    'Dim Importe As Double = TxtTotal.Text.ToDouble
-        Dim CtaCliente As Integer = ViewState("IdCtaContClientes").ToString().ToEntero()
+    '    Dim CtaCliente As Integer = ViewState("IdCtaContClientes").ToString().ToEntero()
-        Dim CtaISSSTESON As Integer = 643
+    '    Dim CtaISSSTESON As Integer = 643
-        Dim CtaISPT As Integer = 1745
+    '    Dim CtaISPT As Integer = 1745
-        ' Dim NombreCliente As String = ViewState("NombreCliente").ToString()
+    '    ' Dim NombreCliente As String = ViewState("NombreCliente").ToString()
 
-        If IDPoliza > 0 Then
+    '    If IDPoliza > 0 Then
 
-            'Orden de PAGO 
+    '        'Orden de PAGO 
-            If DdlTipoComprobante.SelectedValue.ToString() = "OP" Then
+    '        If DdlTipoComprobante.SelectedValue.ToString() = "OP" Then
 
-                If DdlOrdenPago.SelectedValue.ToEntero() = 1 Then
+    '            If DdlOrdenPago.SelectedValue.ToEntero() = 1 Then
-                    'ISSSTESON
+    '                'ISSSTESON
 
-                    If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "") Then
+    '                If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "V||" & CveVenta) Then
-                        If Not ObjAC.AddMovimiento(IDPoliza, CtaISSSTESON, True, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "") Then
+    '                    If Not ObjAC.AddMovimiento(IDPoliza, CtaISSSTESON, True, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "V||" & CveVenta) Then
-                            ErrorAC = True
+    '                        ErrorAC = True
-                        End If
+    '                    End If
-                    Else
+    '                Else
-                        ErrorAC = True
+    '                    ErrorAC = True
-                    End If
+    '                End If
 
-                Else
+    '            Else
-                    'ISPT
+    '                'ISPT
 
-                    If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "") Then
+    '                If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "V||" & CveVenta) Then
-                        If Not ObjAC.AddMovimiento(IDPoliza, CtaISPT, True, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "") Then
+    '                    If Not ObjAC.AddMovimiento(IDPoliza, CtaISPT, True, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "V||" & CveVenta) Then
-                            ErrorAC = True
+    '                        ErrorAC = True
-                        End If
+    '                    End If
-                    Else
+    '                Else
-                        ErrorAC = True
+    '                    ErrorAC = True
-                    End If
+    '                End If
-                End If
+    '            End If
 
-                ' NORMAL
+    '            ' NORMAL
-            Else
+    '        Else
-                Dim Detalles = From gvr As GridViewRow In GvPS.Rows.Cast(Of GridViewRow)()
+    '            Dim Detalles = From gvr As GridViewRow In GvPS.Rows.Cast(Of GridViewRow)()
-                               Group gvr By Grp = New With {
+    '                           Group gvr By Grp = New With {
-                Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero()
+    '            Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero()
-                    } Into Group
+    '                } Into Group
-                               Select Grp.CvePresupuestoIngreso,
+    '                           Select Grp.CvePresupuestoIngreso,
-                                    TotalImporte = Group.Sum(Function(r) r.FCLiteral("LtlTotal").Text.ToDouble)
+    '                                TotalImporte = Group.Sum(Function(r) r.FCLiteral("LtlTotal").Text.ToDouble)
 
 
-                'Select Case TipoComprobante
+    '            'Select Case TipoComprobante
-                '    Case "Ing", "Egs"
+    '            '    Case "Ing", "Egs"
-                For Each grp In Detalles
+    '            For Each grp In Detalles
-                    dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso))
+    '                dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso))
-                    Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text)
+    '                Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text)
 
-                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+    '                If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
-                        If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+    '                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
-                            'CARGO la deuda del cliente 
+    '                        'CARGO la deuda del cliente 
-                            If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+    '                        If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
-                                'abono,
+    '                            'abono,
-                                If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+    '                            If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
-                                    ErrorAC = True
+    '                                ErrorAC = True
-                                End If
+    '                            End If
-                            Else
+    '                        Else
-                                ErrorAC = True
+    '                            ErrorAC = True
-                            End If
+    '                        End If
-                        Else
+    '                    Else
-                            ErrorAC = True
+    '                        ErrorAC = True
-                        End If
+    '                    End If
-                    Else
+    '                Else
-                        ErrorAC = True
+    '                    ErrorAC = True
-                    End If
+    '                End If
-                Next
+    '            Next
 
-                'Case "OP", "Com"
+    '            'Case "OP", "Com"
-                '    Dim Importe As Decimal = 0
+    '            '    Dim Importe As Decimal = 0
-                '    If ObjAC.AddMovimiento(123456, IDPoliza, CtaCliente, False, Importe, "", Concepto, 0, Fecha, "") Then
+    '            '    If ObjAC.AddMovimiento(123456, IDPoliza, CtaCliente, False, Importe, "", Concepto, 0, Fecha, "") Then
-                '        If ObjAC.AddMovimiento(123456, IDPoliza, CtaCliente, True, Importe, "", Concepto, 0, Fecha, "") Then
+    '            '        If ObjAC.AddMovimiento(123456, IDPoliza, CtaCliente, True, Importe, "", Concepto, 0, Fecha, "") Then
 
-                '        End If
+    '            '        End If
-                '    End If
+    '            '    End If
-                'End Select
+    '            'End Select
-            End If
+    '        End If
 
-        Else
+    '    Else
-            ErrorAC = True
+    '        ErrorAC = True
 
-        End If
+    '    End If
 
-        If Not ErrorAC Then
+    '    If Not ErrorAC Then
-            ObjAC.AjustaPoliza(IDPoliza)
+    '        ObjAC.AjustaPoliza(IDPoliza)
+    '        Retorno = IDPoliza
+    '    Else
+    '        Retorno = -1
+    '        Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError)
+    '    End If
 
-            Retorno = IDPoliza
+    '    ' ObjAC.Dispose()
-        Else
 
-            Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError)
+    '    Return Retorno
-        End If
 
-        ' ObjAC.Dispose()
+    'End Function
-
-        Return Retorno
-
-    End Function
     Private Sub SetValues()
         ViewState("TipoCambio") = 1
 

vwd.webinfo

@@ -394,6 +394,10 @@
     
   
     
+  
+    
+  
+