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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2019-12-02 16:59:57 -07:00
parent fd75484f1c 06bacb4acd
commit 111fcdbd24
6 changed files with 63 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AC/RepCambiosSituacionFinanciera.aspx
View File

@@ -51,7 +51,11 @@
<div class="col-md-1" style="text-align: right; font-size: 14px;"><span>Ejercicio:</span></div> <div class="col-md-1" style="text-align: right; font-size: 14px;"><span>Ejercicio:</span></div>
<div class="col-md-2 text-size-12"> <div class="col-md-2 text-size-12">
<asp:DropDownList Font-Size="14px" runat="server" ID="DdlEjercicio" Width="100%"> <asp:DropDownList Font-Size="14px" runat="server" ID="DdlEjercicio" Width="100%">
<asp:ListItem Text="2015" Value="2015" Selected="True" /> <asp:ListItem Text="2019" Value="2019" Selected="True" />
<asp:ListItem Text="2018" Value="2018" />
<asp:ListItem Text="2017" Value="2017" />
<asp:ListItem Text="2016" Value="2016" />
<asp:ListItem Text="2015" Value="2015" />
<asp:ListItem Text="2014" Value="2014" /> <asp:ListItem Text="2014" Value="2014" />
</asp:DropDownList> </asp:DropDownList>
</div> </div>

5
AC/RepFlujoEfectivo.aspx.vb
View File

@@ -84,9 +84,14 @@ Partial Class AC_RepFlujoEfectivo
'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO 'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO
If DtDatos IsNot Nothing Then If DtDatos IsNot Nothing Then
If UsuarioActual.CveEmpresa.Contiene(120) Then
TotalActual = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
TotalAnterior = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
Else
TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
End If End If
End If
CargaGrid() CargaGrid()

77
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -216,7 +216,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -324,7 +324,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior1</rd:DefaultName> <rd:DefaultName>ImporteAnterior1</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -383,10 +383,10 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression> <FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue>ACTIVO CIRCULANTE</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -547,7 +547,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -656,7 +656,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -712,10 +712,10 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression> <FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue>ACTIVO NO CIRCULANTE</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -880,7 +880,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -989,7 +989,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1038,10 +1038,10 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression> <FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue>PASIVO CIRCULANTE</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
@@ -1210,7 +1210,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1316,7 +1316,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1365,10 +1365,10 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression> <FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue>PASIVO NO CIRCULANTE</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
@@ -1607,7 +1607,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1715,7 +1715,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1764,10 +1764,17 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression> <FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue>PATRIMONIO GENERADO</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!Nombre.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue>PATRIMONIO CONTRIBUIDO</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -1842,7 +1849,7 @@
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>0.27027cm</Left> <Left>0.27027cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>4.81646cm</Width> <Width>4.34021cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1877,12 +1884,12 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>8.22172cm</Left> <Left>7.53381cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.55292cm</Width> <Width>2.72931cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1917,7 +1924,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>5.26312cm</Left> <Left>4.5752cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.95861cm</Width> <Width>2.95861cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
@@ -1996,7 +2003,7 @@
<Width>2.56738cm</Width> <Width>2.56738cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2068,9 +2075,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>10.77464cm</Left> <Left>10.26312cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>4.55974cm</Width> <Width>4.61265cm</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2105,12 +2112,12 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>17.82243cm</Left> <Left>17.64604cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.51584cm</Width> <Width>2.69223cm</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2145,9 +2152,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>15.33438cm</Left> <Left>14.87577cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.48805cm</Width> <Width>2.77027cm</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2224,7 +2231,7 @@
<Width>2.60266cm</Width> <Width>2.60266cm</Width>
<ZIndex>18</ZIndex> <ZIndex>18</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2744,7 +2751,7 @@
<Width>10.70896cm</Width> <Width>10.70896cm</Width>
<ZIndex>25</ZIndex> <ZIndex>25</ZIndex>
<Visibility> <Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,True,False)</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,True,False)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>

5
Contabilidad2/RepFlujoEfectivo.aspx.vb
View File

@@ -83,9 +83,14 @@ Partial Class AC2_RepFlujoEfectivo
'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO 'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO
If DtDatos IsNot Nothing Then If DtDatos IsNot Nothing Then
If UsuarioActual.CveEmpresa.Contiene(120) Then
TotalActual = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
TotalAnterior = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
Else
TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble
TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
End If End If
End If
CargaGrid() CargaGrid()

BIN
Empresas/Grales/Formatos/LibroDiario.rpt
View File

Binary file not shown.

21
Ventas/Ventas.aspx.vb
View File

@@ -15255,7 +15255,8 @@ Partial Class Ventas
DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0") DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
End If End If
If DtMovimientos.Rows.Count > 0 Then 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR
If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then
Dim GeneroMovimientoAlmacen As Boolean = False Dim GeneroMovimientoAlmacen As Boolean = False
For Each dr As DataRow In DtMovimientos.Rows For Each dr As DataRow In DtMovimientos.Rows
'Obtenemos los Movimientos de salida 'Obtenemos los Movimientos de salida
@@ -15360,24 +15361,6 @@ Partial Class Ventas
End If End If
ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
'If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
' Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados.Rows(0)("CveTipoAlmacen").ToString().ToEntero()
' If CveTipoAlmacen = 24 Then
' Dim RowMov As DataRow = ObjInventario.DtResultados.Rows(0)
' Dim CveMovimientoSalida As Integer = RowMov("CveMovimiento").ToString().ToEntero()
' Dim CveAlmacen As Integer = RowMov("CveAlmacen").ToString().ToEntero()
' Dim CveMoneda As Integer = RowMov("CveMoneda").ToString().ToEntero()
' GeneroMovimientoAlmacen = GenerarMovimientoAlmacenVirtual(ObjInventario, CveMovimientoSalida, CveAlmacen, CveMoneda) > 0
' If Not GeneroMovimientoAlmacen Then
' OcurrioError = True
' Exit For
' End If
' End If
'End If
'Esquema viejo, evitamos que aparezca por surtir 'Esquema viejo, evitamos que aparezca por surtir
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
OcurrioError = True OcurrioError = True