Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Acumuladores/CatFoliosGarantia.aspx

@@ -110,14 +110,12 @@
    
     <asp:UpdatePanel ID="UpGral" runat="server" UpdateMode="Conditional">
         <ContentTemplate> 
-
             <div class="row">
-                <div class="Widthall" style="text-align: right!important; margin-top: 2px!important; margin-bottom: 2px!important">
+                <div class="Widthall" style="text-align: right!important;"">
                     <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvFolioGarantia.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvFolioGarantia.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
             </div> 
-
             <div class="row" style="margin: 5px">
                 <asp:UpdatePanel ID="UPGvFolioGarantia" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
@@ -125,7 +123,7 @@
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
-                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                             data-sort="true"
                             data-freezerows="1"
                             GridLines="None">
@@ -162,8 +160,12 @@
                                         &nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
+                                <asp:TemplateField HeaderText="Total">
-                                <asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Usuario">
                                     <ItemTemplate>
                                         <asp:Literal ID="lblUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                     </ItemTemplate>
@@ -371,19 +373,11 @@
                             </h4>
                         </div>
                         <div class="modal-body">                            
-                            <table>
-                                <tr>
-                                    <td>Folio Garantia:</td>
-                                    <td>
-                                        <asp:Label ID="LblFolio" Text="" Font-Bold="true" runat="server" />
-                                    </td>
-                                </tr>
-                            </table>
                             <div class="row">
-                                <div class="col-md-6">
+                                <div class="col-md-6">Folio Garantia:<asp:Label ID="LblFolio" Text="" Font-Bold="true" runat="server" />
                                 </div>
                                 <div class="col-md-6">
-                                    <div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
+                                    <div class="Widthall" style="text-align: right!important; ">
                                         <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvGarantiasDetalle.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvFolioGarantia.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                     </div>
@@ -395,21 +389,21 @@
                                         <asp:GridView ID="GvGarantiasDetalle" runat="server" AutoGenerateColumns="false" Width="100%" EmptyDataText="No se encontraron datos" CssClass="table table-striped table-hover Widthall" 
                                              OnRowDataBound="GvGarantiasDetalle_RowDataBound" DataKeyNames="Consecutivo,CodigoCliente,CodigoSucursal,Codigo,CodigoProducto2,CodigoTipoUso,CodigoTipoDefecto,CodigoEnsamble,CodigoLinea,CodigoInspeccion,FechaVenta,FechaReclamacion,TipoComprobante,Comprobante,Autorizo,Comentarios,ClaveAutorizacion" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
-                                                <asp:BoundField DataField="Consecutivo" HeaderText="Consecutivo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="Consecutivo" HeaderText="Consec" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="FolioRemision" HeaderText="Remisión" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                                                 <asp:BoundField DataField="FolioFactura" HeaderText="Factura" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
                                                 <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="PS" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
                                                 <asp:BoundField DataField="TipoUso" HeaderText="Tipo Uso" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
-                                                <asp:BoundField DataField="CodigoEnsamble" HeaderText="Código Ensamble" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="CodigoEnsamble" HeaderText="C. Ensamble" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
-                                                <asp:BoundField DataField="CodigoLinea" HeaderText="Código Linea" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="CodigoLinea" HeaderText="C. Linea" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
-                                                <asp:BoundField DataField="CodigoInspeccion" HeaderText="Código Inspeccion" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="CodigoInspeccion" HeaderText="C. Inspección" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
-                                                <asp:BoundField DataField="TipoComprobanteTexto" HeaderText="Tipo Comprobante" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="TipoComprobanteTexto" HeaderText="Tipo Comp." ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="Comprobante" HeaderText="Comprobante" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="FechaAjuste" HeaderText="Fecha Ajuste" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                                                 <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
-                                                <asp:TemplateField HeaderText="Descargar PDF" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80px">
+                                                <asp:TemplateField HeaderText="PDF" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25px">
                                                     <ItemTemplate>
                                                         <asp:HyperLink ID="HlDescargarPDF" runat="server" Text="<i class='fa fa-file-pdf-o' style='font-size:15px; font-weight:bold; color:dimgray;'></i>" Target="_blank" />
                                                     </ItemTemplate>
@@ -425,6 +419,7 @@
                                 <ContentTemplate>
                                     <asp:Button ID="BtnGenerarTxt" Text="Generar Archivo" CssClass="btn btn-primary" runat="server" OnClick="BtnGenerarTxt_Click" />
                                     <asp:Button ID="BtnExportarExcel" Text="Generar Excel" CssClass="btn btn-success" runat="server" OnClick="BtnExportarExcel_Click" />
+                                    <asp:HyperLink ID="HplGenerarSalida"  Text="Generar Salida" CssClass="btn btn-primary" runat="server" />
                                     <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                                 </ContentTemplate>
                                 <Triggers>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -124,7 +124,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 'TxtCompra.Text = ""
                 'TxtPuntos.Text = ""
 
-                CargadatosGvFolioGarantia(-1, "-1")
+                CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1")
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
                 UpGral.Update()
@@ -144,7 +144,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 'TxtCompra.Text = ""
                 'TxtPuntos.Text = ""
 
-                CargadatosGvFolioGarantia(-1, "-1")
+                CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1")
                 UpModalFolioGarantia.Update()
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
@@ -176,7 +176,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         End If
         objAcum.Dispose()
 
-        CargadatosGvFolioGarantia(-1, "-1")
+        CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1")
 
         CveFolioGarantia = -1
     End Sub
@@ -225,6 +225,8 @@ Partial Class Acumuladores_CatFoliosGarantia
         Using ObjAcum As New ClsAcumuladores
             If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
                 GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
+                HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
+
             End If
         End Using
         GvGarantiasDetalle.DataBind()
@@ -307,4 +309,8 @@ Partial Class Acumuladores_CatFoliosGarantia
             e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}"
         End If
     End Sub
+
+    Protected Sub BtnGenerarSalida_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class

App_Code/ClsPaginas.vb

@@ -150,7 +150,7 @@ Public Class ClsPaginas
 
             If Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then
 
-                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha = '{0}'", Fecha))
+                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC")
                 If dr IsNot Nothing Then
                     fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal()
                     fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime()
@@ -7132,13 +7132,7 @@ Public Class ClsPaginas
             Dim VendedorTelefono As String = ""
             Dim VendedorCelular As String = ""
 
-            Dim RowVendedor As DataRow = Nothing
+            Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
-
-            Dim ObjVendedores As New ClsVtaVendedores
-            If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
-                RowVendedor = ObjVendedores.DtResultados.FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
-            End If
-            ObjVendedores.Dispose()
 
             If Not IsNothing(RowVendedor) Then
                 VendedorNombre = RowVendedor("Vendedor").ToString

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -204,7 +204,6 @@ Partial Class Bancos_RepEgresosSinComprobante
         Try
             For Each gr As GridViewRow In GvESC.Rows
                 If gr.FCCheckBox("Chk").Checked Then
-                    Dim CveCuenta As Integer = 0
                     Dim IdCtaContable As Integer = 0
                     Dim TipoMovtoOtIngresos As Boolean = True
                     Dim TipoMovtoConcepto As Boolean = False
@@ -231,24 +230,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
                     End If
 
-                    If ObjConta.GetCuentaDobleConta(IdCtaContable, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
-                        End If
-                    End If
-
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
@@ -292,7 +285,6 @@ Partial Class Bancos_RepEgresosSinComprobante
         Try
             For Each gr As GridViewRow In GvPersonal.Rows
                 If gr.FCCheckBox("Chk").Checked Then
-                    Dim CveCuenta As Integer = 0
                     Dim IdCtaContPersonal As Integer = 0
                     Dim CveConceptoContable As Integer
                     Dim TipoMovtoOtIngresos As Boolean = True
@@ -319,24 +311,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
                     End If
 
-                    If ObjConta.GetCuentaDobleConta(IdCtaContPersonal, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
-                        End If
-                    End If
-
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If

Compras/Compras.aspx.vb

@@ -7287,17 +7287,17 @@ Partial Class Compras_Compras
                                                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
                                                                         For Each Gvr As GridViewRow In GvFacturaNC.Rows
                                                                             If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                                                                                Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+                                                                                'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                                 Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
                                                                                 Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                                                If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then
+                                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
                                                                                 Else
                                                                                     ErrorPrepoliza = True
                                                                                 End If
-                                                                                ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
+                                                                                'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
                                                                             End If
                                                                         Next
                                                                     End If

Inventarios/RecepcionAlmacen.aspx

@@ -1137,8 +1137,7 @@
                     <div class="modal-footer">
                         <div class="row">
                                  <div class="col-md-2" style="text-align: left">
-                                    
+                                  <asp:LinkButton ID="LbDescargarExcelConceptos" OnClick="LbDescargarExcelConceptos_Click" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
-                                            <asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
                                          
                                 </div> 
                                 <div class="col-md-10" style="text-align: center">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -4934,6 +4934,41 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
     End Sub
+
+    Protected Sub LbDescargarExcelConceptos_Click(sender As Object, e As EventArgs)
+        DescargarFormato()
+    End Sub
+
+    Public Sub DescargarFormato()
+        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoRecepcionAlmacen.xlsx"
+        Dim dtt As New DataTable
+        dtt = DtInv.Copy()
+        dtt.Columns.Remove("Cantidad")
+        dtt.Columns("CantidadF").ColumnName = "Cantidad"
+        dtt.Columns("PS").ColumnName = "Producto"
+        dtt.Columns("Codigo").ColumnName = "Código"
+
+        Dim existingcol As New List(Of String) '= {"Cantidad", "Producto", "Código"}
+
+        For Each col As DataColumn In dtt.Columns
+            If Not col.ColumnName.Contiene("Cantidad", "Producto", "Código") Then
+                existingcol.Add(col.ColumnName)
+            End If
+        Next
+
+        For Each colName As String In existingcol
+            dtt.Columns.Remove(colName)
+        Next
+
+        dtt.Columns("Cantidad").SetOrdinal(0)
+        dtt.Columns("Código").SetOrdinal(1)
+        dtt.Columns("Producto").SetOrdinal(2)
+
+        dtt.Columns.Add("Serie", GetType(String))
+        dtt.ExportToExcel("FormatoRecepcionAlmacen.xlsx")
+
+    End Sub
+
 #End Region
 
     'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs)
@@ -5041,4 +5076,5 @@ Partial Class Inventarios_RecepcionAlmacen
     End Class
 
 
+
 End Class

Inventarios/RecepcionUsados.aspx.vb

@@ -570,11 +570,13 @@ Partial Class Inventarios_RecepcionUsados
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
 
-        'Llenar el dropdownlist de almacén
+        Dim dtt As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
 
-        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'Llenar el dropdownlist de almacén
-        DdlAlmacen.SelectedValue = "-1"
+        DdlAlmacen.DataSource = dtt
+
+        'DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlAlmacen.SelectedValue = "-1"
         DdlAlmacen.DataBind()
 
         If IsNothing(Request("CveMovimiento")) Then
@@ -2916,6 +2918,11 @@ Partial Class Inventarios_RecepcionUsados
                 'CvePrecioLista = CvePrecioListaPS
             End If
 
+            DdlTipoUso.Items.Clear()
+            DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
+            DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlTipoUso.DataBind()
+
             Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString))
             If MarcaPorcentaje IsNot Nothing Then
                 Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100

Inventarios/TraspasoAlmacen.aspx

@@ -460,7 +460,7 @@
                             </table>
                           
                             <div style="max-height: 300px; overflow-y: auto;">
-                                <asp:GridView ID="GvDatos" DataKeyNames="No,PS,CvePS,CveUM,Serie,CveSeccionAlmacen,Cantidad" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None">
+                                <asp:GridView ID="GvDatos" DataKeyNames="No,PS,CvePS,CveUM,Serie,CveSeccionAlmacen,Lote,FechaCaducidad,Cantidad" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None">
                                     <Columns>
                                         <asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="23px" />
                                         <asp:TemplateField ItemStyle-Width="93px" ItemStyle-HorizontalAlign ="Right">

Inventarios/TraspasoAlmacen.aspx.vb

@@ -28,7 +28,6 @@ Partial Class Inventarios_TraspasoAlmacen
         End Set
     End Property
 
-
     Private Property CveAlmacenTransitorio As Integer
         Get
             Return CType(ViewState("CveAlmacenTransitorio"), Integer)
@@ -198,6 +197,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
             End If
 
+            If Request("CveFolioGarantia") IsNot Nothing AndAlso Request("CveFolioGarantia").ToString.ToEntero > 0 Then
+                CargaMovimientoGarantia(Request("CveFolioGarantia").ToString.ToEntero)
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
                 DivCodigoSeriePS.Visible = True
             Else
@@ -221,7 +224,7 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
 
             CantidadTotal = 0
-                CvePS = 0
+            CvePS = 0
             TipoSeccionAlmacen = 0
 
             If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
@@ -358,6 +361,56 @@ Partial Class Inventarios_TraspasoAlmacen
         UpMov.Update()
     End Sub
 
+
+
+    Private Sub CargaMovimientoGarantia(CveFolioGarantia As Integer)
+        Using ObjAcum As New ClsAcumuladores
+            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
+                ''carga
+                Dim dra As DataRow = ObjAcum.DtResultados(0)
+                DivMov.Visible = True
+                ltlFolio.Text = dra("FolioGarantia").ToString
+                Dim CveSub As Integer = dra("CveSubProyecto").ToString.ToEntero
+
+                'If Mov.CveCompra > 0 Then
+                '    hplRef.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={Mov.CveCompra}"
+                '    lblCompraRef.Visible = True
+                '    hplRef.Visible = True
+                'Else
+                '    hplRef.Visible = False
+                '    lblCompraRef.Visible = False
+                'End If
+                ChkTransitorio.Enabled = False
+                DdlAlmacenOrigen.Enabled = True
+                DdlAlmacenOrigen.Items.Clear()
+                DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub))
+                DdlAlmacenOrigen.DataBind()
+
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub))
+                DdlAlmacenDestino.DataBind()
+
+                CargadoDeMov = True
+
+                Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("", DistinctColumns:={"CvePS", "PS", "CveUM", "UnidadMedida", "Codigo"})
+
+                For Each drr As DataRow In dtt.Rows
+                    Dim dr As DataRow = DtMovimientos.NewRow
+                    dr("CvePS") = drr("CvePS")
+                    dr("PS") = String.Format("{0} - {1}", drr("Codigo"), drr("PS"))
+                    dr("CveUM") = drr("CveUM")
+                    dr("UnidadMedida") = drr("UnidadMedida")
+                    dr("Cantidad") = ObjAcum.DtResultados.COUNT("CvePS", "CvePS = " & drr("CvePS").ToString)
+                    DtMovimientos.Rows.Add(dr)
+                Next
+
+                CargaGvDatos()
+            End If
+        End Using
+
+        UpMov.Update()
+    End Sub
+
+
     Private Sub AlmacenTransitorioDefaults()
         ChkTransitorio.Checked = UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0
         ChkTransitorio.Enabled = Not UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0
@@ -898,16 +951,6 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "")
                 Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "")
 
-                'If UsuarioActual.CveEmpresa = 140 Then
-                '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
-
-                '    If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
-                '        Serie = "-1"
-                '    End If
-
-                'End If
-
-
                 Dim ExistenciaEspecificada As Decimal = 0
                 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
@@ -945,7 +988,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Lote = If(gvr.DataKey("Lote") = "", "-1", gvr.DataKey("Lote"))
                 FechaCaducidad = If(gvr.DataKey("FechaCaducidad") = "", MinFecha, gvr.DataKey("FechaCaducidad").ToDate)
 
-                If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
+                If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), 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
                 End If
@@ -1249,12 +1292,12 @@ Partial Class Inventarios_TraspasoAlmacen
                 RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimientoSalida))
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+            'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
-                Dim Correo As String = "jorgegonzalez@compuproveedores.com"
+            '    Dim Correo As String = "jorgegonzalez@compuproveedores.com"
-                If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then
+            '    If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then
-                    MandaCorreo(CveMovimientoSalida, Correo)
+            '        MandaCorreo(CveMovimientoSalida, Correo)
-                End If
+            '    End If
-            End If
+            'End If
 
             LimpiaMovimiento()
 
@@ -1769,7 +1812,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
 
-        If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(132) = "1" OrElse UsuarioActual.CveEmpresa = 140 Then
             DivCodigoSeriePSRecepcion.Visible = True
         Else
             DivCodigoSeriePSRecepcion.Visible = False
@@ -3330,7 +3373,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ")
 
-            SBMensaje.AppendLine($"<br><br>  <strong><a class='texto' target='_blank' href='../Ventas/ProductosServicios.aspx?CvePS={DrPS("CvePS").ToString}' > Corregir Producto </a></strong>")
+            SBMensaje.AppendLine($"<br><strong><a class='texto' target='_blank' href='/Ventas/ProductosServicios.aspx?CvePS={DrPS("CvePS").ToString}' > Editar Producto </a></strong>")
 
             Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia)
 

Ventas/PV.aspx.vb

@@ -4327,6 +4327,11 @@ Partial Class PV
             End If
         End If
 
+        ''condicion final, si es cambio de Vigencia, no aplica descuento
+        If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20637) Then
+            Descuento = 0
+        End If
+
         ObjDescuento.ImporteDescuento = Descuento
         ObjDescuento.CvePromocionDetalle = CvePromocionDetalle
         If SeAjustoPU Then

Ventas/RepProductosServicios.aspx

@@ -319,6 +319,16 @@
                                 <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </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>
                         <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />

Ventas/RepProductosServicios.aspx.vb

@@ -65,6 +65,9 @@ Partial Class Ventas_RepProductosServicios
             If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
                 LblLitraje.Visible = True
                 DvLitraje.Visible = True
+                'garantia
+                divgarantia1.Visible = True
+                divgarantia2.Visible = True
             End If
 
         End If
@@ -275,7 +278,7 @@ Partial Class Ventas_RepProductosServicios
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                               UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else

Ventas/RepVentasUtilidadPadre.aspx

@@ -179,7 +179,7 @@
                             <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:
+                            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%">