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

BDH. Totalizador de usados

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-03-05 16:30:21 -07:00
parent 2b473850ff
commit 8a3e21e542
3 changed files with 224 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1342,7 +1342,7 @@ Partial Class PopUpVerFactura
'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
If CveConcepto.Contiene(2, 3, 26, 27) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
CveConceptoMovtoRelacionado = 37
ElseIf CveConcepto.Contiene(36, 37) Then
@@ -1361,8 +1361,31 @@ Partial Class PopUpVerFactura
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
DtMovimientos = ObjInventarios.DtResultados
Alert("asdf")
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
Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
For Each Dr As DataRow In DtUsados.Rows
Dr("No") = IndexInicialUsados
IndexInicialUsados += 1
Next
DtMovimientos.Merge(DtUsados)
End If
End If
End If
End If
DtMovimientos.Columns("No").AutoIncrement = True
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
DtMovimientos.Columns("No").AutoIncrementStep = 1
@@ -4638,18 +4661,28 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("TipoAuto", ModeloAuto))
'Informacion Consumidor
'Informacion Distribuidor
If (CveCliente > 0) Then
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
Dim Nombre As String = DatosClienteSeleccionado.Item("Nombre").ToString
Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
Dim Nombre As String = ""
Dim Ciudad As String = ""
Dim Estado As String = ""
Dim Direccion As String = ""
Dim Telefono As String = ""
If DatosClienteSeleccionado IsNot Nothing Then
Nombre = DatosClienteSeleccionado("Nombre").ToString
Ciudad = DatosClienteSeleccionado("Ciudad").ToString
Estado = DatosClienteSeleccionado("Estado").ToString
Direccion = DatosClienteSeleccionado("Direccion").ToString
Telefono = DatosClienteSeleccionado("Telefono").ToString
End If
params.Add(New ReportParameter("NombreCliente", Nombre))
params.Add(New ReportParameter("Direccion", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
params.Add(New ReportParameter("Direccion", Direccion))
params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
params.Add(New ReportParameter("TelConsumidor", Telefono))
End If
params.Add(New ReportParameter("Anio", Año))

114
Empresas/140/Formatos/Remision.rdlc
View File

@@ -1467,6 +1467,120 @@
</Border>
</Style>
</Rectangle>
<Tablix Name="Tablix3">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>2.99824cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.48004cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Importe">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Importe.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9.64pt</FontSize>
<FontWeight>=IIF(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
<Format>#,0.00</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Importe</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="ImpuestoLocal">
<GroupExpressions>
<GroupExpression>=Fields!ImpuestoLocal.Value</GroupExpression>
</GroupExpressions>
</Group>
<TablixHeader>
<Size>2.93858cm</Size>
<CellContents>
<Textbox Name="ImpuestoLocal">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value)</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9.64pt</FontSize>
<FontWeight>=iif(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>ImpuestoLocal</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>8.14637cm</Top>
<Left>15.11602cm</Left>
<Height>0.48004cm</Height>
<Width>5.93682cm</Width>
<ZIndex>10</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Tablix>
</ReportItems>
<Height>18.12046cm</Height>
<Style />

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

@@ -457,6 +457,13 @@
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Observaciones: </Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Observaciones.Value</Value>
<Style>
@@ -483,27 +490,36 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox28">
<Textbox Name="TotalProductos">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>= "Total: " &amp; FormatNumber(Sum(Fields!Cantidad.Value, "DsInventarios"),0)</Value>
<Value>Total Productos :</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Sum(iif(Not Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox28</rd:DefaultName>
<Top>1.33674cm</Top>
<Left>0.22985cm</Left>
<rd:DefaultName>TotalProductos</rd:DefaultName>
<Top>1.36143cm</Top>
<Left>0.09119in</Left>
<Height>0.6cm</Height>
<Width>2.5cm</Width>
<Width>5.49393cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -515,6 +531,47 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="TotalProductos2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Total Usados:</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Sum(iif(Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>TotalProductos</rd:DefaultName>
<Top>1.36143cm</Top>
<Left>5.78554cm</Left>
<Height>0.6cm</Height>
<Width>5.57331cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>1.05208in</Height>
<Style />
@@ -1339,6 +1396,10 @@
<DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Clasificacion">
<DataField>Clasificacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsInventarios</rd:DataSetName>