This commit is contained in:
2019-12-02 16:59:28 -07:00
8 changed files with 68 additions and 46 deletions

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-2 text-size-12">
<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:DropDownList>
</div>

View File

@@ -84,8 +84,13 @@ Partial Class AC_RepFlujoEfectivo
'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO
If DtDatos IsNot Nothing Then
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
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
TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
End If
End If
CargaGrid()

View File

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

View File

@@ -124,12 +124,13 @@ Public Class ClsGralFolios
End Sub
#End Region
Public Function GetFolios(Optional TipoDocto As String = "-1", Optional CveEmpresa As Integer = -1) As Boolean
Public Function GetFolios(Optional TipoDocto As String = "-1", Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_FoliosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With

View File

@@ -83,8 +83,13 @@ Partial Class AC2_RepFlujoEfectivo
'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO
If DtDatos IsNot Nothing Then
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
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
TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble
End If
End If
CargaGrid()

View File

@@ -594,7 +594,7 @@
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
<label>Cargo Usado:</label>
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="false" />
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
<label>Bonificación Usado:</label>
@@ -3938,7 +3938,7 @@
<td style="text-align: right!important">$
<asp:Label runat="server" ID="LblUsadosImpCargo"></asp:Label></td>
<td style="text-align: right!important">
<asp:Button runat="server" Height="34px" Width="180px" ID="LnkFacturaUsadosCargos" CssClass="btn btn-primary" Text="Generar NC Cargo" data-toggle="confirmation" data-popout="true" data-original-title="Comfirmar generación de nota de crédito de cargos" data-btn-ok-label="si" OnClick="LnkFacturaUsadosCargos_Click"></asp:Button>
<asp:Button runat="server" Visible="false" Height="34px" Width="180px" ID="LnkFacturaUsadosCargos" CssClass="btn btn-primary" Text="Generar NC Cargo" data-toggle="confirmation" data-popout="true" data-original-title="Comfirmar generación de nota de crédito de cargos" data-btn-ok-label="si" OnClick="LnkFacturaUsadosCargos_Click"></asp:Button>
</td>
</tr>
<tr>
@@ -5561,7 +5561,7 @@
<div class="modal-content" style="width: 700px;">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Modificar Precio de Productos por Marca</h4>
<h4 class="modal-title">Modificar Condiciones Comerciales</h4>
</div>
<asp:UpdatePanel ID="UpPorcentaje" UpdateMode="Conditional" runat="server">
<ContentTemplate>

View File

@@ -8790,7 +8790,7 @@ Partial Class Clientes
' Alert("No esta asignada la funcionalidad CvePS Distruibuidor Bonificación Nota")
'End If
CreaObjetosVenta(2)
CreaObjetosVenta(1)
If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then
@@ -8919,7 +8919,7 @@ Partial Class Clientes
End If
LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False)
ObjAcum.Dispose()