AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Entradas salidas Resumen

Browse Source
This commit is contained in:
rakcsle
2022-03-30 21:16:14 -07:00
parent 167a1c441d
commit 43ff59ebb7
8 changed files with 46 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsInventarios.vb
View File

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

14
Compras/PopUpVerFactura.aspx.vb
View File

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

7
Empresas/140/Formatos/Salidas.rdlc
View File

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

16
Empresas/48/Formatos/Factura.rdlc
View File

@@ -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>
<Left>1.93416in</Left>
<Height>0.5625in</Height>
<Top>0.56417in</Top>
<Left>1.94458in</Left>
<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>
<Left>3.77202in</Left>
<Height>0.54861in</Height>
<Top>0.56417in</Top>
<Left>3.78244in</Left>
<Height>0.52083in</Height>
<Width>1.786in</Width>
<ZIndex>9</ZIndex>
<Style>

3
Inventarios/EntradasSalidas.aspx
View File

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

6
Inventarios/EntradasSalidas.aspx.vb
View File

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

2
Ventas/Clientes.aspx
View File

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

13
Ventas/Clientes.aspx.vb
View File

@@ -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"))
CargaDirClienteColonia()
DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
CargaDirClienteLocalidad()
DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
CargaDirClienteColonia()
DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)