Entradas salidas Resumen

App_Code/ClsInventarios.vb

@@ -1156,7 +1156,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1) As Boolean
+    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleGet")
 
@@ -1165,6 +1165,8 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
+            .Add("@Resumen", SqlDbType.Int).Value = Resumen
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1209,13 +1211,14 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer, Optional Resumen As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleImpresionGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Resumen", SqlDbType.Bit).Value = Resumen
         End With
         Try
             SqlAdapter.Fill(Data)

Compras/PopUpVerFactura.aspx.vb

@@ -539,6 +539,12 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        If UrlParametros("OP").ToString = "Almr" Then
+            If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
+                CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=True)
+            End If
+        End If
+
         If UrlParametros("OP").ToString = "Etiqueta" Then
             If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
                 ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString)
@@ -2270,7 +2276,7 @@ Partial Class PopUpVerFactura
 
 #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
 
-    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
+    Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False)
         Dim ObjInventarios As New ClsInventarios
 
         ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
@@ -2366,11 +2372,11 @@ Partial Class PopUpVerFactura
         Dim CantidadUsados As Decimal = 0
 
         If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
-            If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                 DtMovimientos = ObjInventarios.DtResultados
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
-                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa, Resumen:=Resumen) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
                         Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
                         Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
 
@@ -2400,7 +2406,7 @@ Partial Class PopUpVerFactura
                 DtMovimientos.PrimaryKey = keys
             End If
         Else
-            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                 DtMovimientos = ObjInventarios.DtResultados.Copy()
                 CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then

Empresas/140/Formatos/Salidas.rdlc

@@ -12,10 +12,10 @@
               <Width>3.14766cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>11.67011cm</Width>
+              <Width>8.19668cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.70027cm</Width>
+              <Width>6.1737cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.73945cm</Width>
@@ -350,6 +350,7 @@
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="SerieLote">
+                      <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
@@ -568,7 +569,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>1.05208in</Height>
+    <Height>1.03125in</Height>
     <Style />
   </Body>
   <Width>8.1198in</Width>

Empresas/48/Formatos/Factura.rdlc

@@ -172,7 +172,7 @@
                 <Style>
                   <FontStyle>Normal</FontStyle>
                   <FontFamily>Calibri</FontFamily>
-                  <FontSize>12pt</FontSize>
+                  <FontSize>11pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                   <TextDecoration>None</TextDecoration>
                 </Style>
@@ -204,7 +204,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Left>1.93416in</Left>
-        <Height>0.56139in</Height>
+        <Height>0.53361in</Height>
         <Width>3.62386in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -380,9 +380,9 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.56139in</Top>
+        <Top>0.56417in</Top>
-        <Left>1.93416in</Left>
+        <Left>1.94458in</Left>
-        <Height>0.5625in</Height>
+        <Height>0.57698in</Height>
         <Width>1.79619in</Width>
         <ZIndex>8</ZIndex>
         <Style>
@@ -430,9 +430,9 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.56139in</Top>
+        <Top>0.56417in</Top>
-        <Left>3.77202in</Left>
+        <Left>3.78244in</Left>
-        <Height>0.54861in</Height>
+        <Height>0.52083in</Height>
         <Width>1.786in</Width>
         <ZIndex>9</ZIndex>
         <Style>

Inventarios/EntradasSalidas.aspx

@@ -63,6 +63,9 @@
             <li>
                 <asp:HyperLink ID="HplImprimir" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:HyperLink>
             </li>
+            <li>
+                <asp:HyperLink ID="HplImprimirResumen" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Resumen</asp:HyperLink>
+            </li>
             <li>
                 <asp:HyperLink ID="HplDescargaXml" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Descargar XML SAT</asp:HyperLink>
             </li>

Inventarios/EntradasSalidas.aspx.vb

@@ -787,6 +787,12 @@ Partial Class Inventarios_EntradasSalidas
             HdnIdPoliza.Value = Mov.IDPoliza.ToString
             HplImprimir.Visible = True
             HplImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+
+            HplImprimirResumen.Visible = True
+            HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
+
+
+
             CveCompra = Mov.CveCompra
             CveConcepto = Mov.CveConcepto
 

Ventas/Clientes.aspx

@@ -5234,7 +5234,7 @@
 
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList runat="server" ID="DdlDirClienteLocalidad" CssClass="form-control select2me" DataValueField="CveLocalidad" DataTextField="NombreLocalidad" Width="100%" CausesValidation="true"></asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RfvDdlDirClienteLocalidad" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <%--<asp:RequiredFieldValidator ID="RfvDdlDirClienteLocalidad" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
                                             <label for="<%= DdlDirClienteLocalidad.ClientID.ToString()%>">Localidad:</label>
                                             <i></i>
                                         </div>

Ventas/Clientes.aspx.vb

@@ -4533,15 +4533,20 @@ Partial Class Clientes
         TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
         TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
 
+
+
         DdlDirClientePais.SelectedValueExist(GvRow.DataKey("CvePais"))
         CargaDirClienteEstado()
         DdlDirClienteEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
         CargaDirClienteMunicipio()
-        DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
+        DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
-        CargaDirClienteColonia()
+
-        DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+
         CargaDirClienteLocalidad()
-
+        DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+
+
+        CargaDirClienteColonia()
         DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
 
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)