Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
CompraActual.UsuarioActual = UsuarioActual
|
||||
CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
|
||||
|
||||
|
||||
|
||||
'Importe de pago
|
||||
Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||
'Tipos de cambio
|
||||
@@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
If descuentoParts.Length = 0 Then
|
||||
Descuento = 0
|
||||
Else
|
||||
|
||||
For i As Integer = 0 To descuentoParts.Length - 1
|
||||
Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
|
||||
If descuentoPart > 0 Then
|
||||
Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
Next
|
||||
Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||
'For i As Integer = 0 To descuentoParts.Length - 1
|
||||
' Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
|
||||
' If descuentoPart > 0 Then
|
||||
' Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
|
||||
' Else
|
||||
' Continue For
|
||||
' End If
|
||||
'Next
|
||||
|
||||
End If
|
||||
|
||||
@@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
FolioRNC = serieFolioArray(0)
|
||||
End If
|
||||
|
||||
Descuento = Descuento.RoundSQL(2)
|
||||
'Descuento = Descuento.RoundSQL(2)
|
||||
If PorcentajeIVA > 0 Then
|
||||
|
||||
Descuento = ((Descuento) / (1 + PorcentajeIVA))
|
||||
|
||||
@@ -1,5 +1,55 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
|
||||
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
|
||||
<AutoRefresh>0</AutoRefresh>
|
||||
<DataSources>
|
||||
<DataSource Name="DataSet">
|
||||
<ConnectionProperties>
|
||||
<DataProvider>System.Data.DataSet</DataProvider>
|
||||
<ConnectString>/* Local Connection */</ConnectString>
|
||||
</ConnectionProperties>
|
||||
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
|
||||
</DataSource>
|
||||
</DataSources>
|
||||
<DataSets>
|
||||
<DataSet Name="DataSet1">
|
||||
<Query>
|
||||
<DataSourceName>DataSet</DataSourceName>
|
||||
<CommandText>/* Local Query */</CommandText>
|
||||
</Query>
|
||||
<Fields>
|
||||
<Field Name="Almacen">
|
||||
<DataField>Almacen</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Gpo">
|
||||
<DataField>Gpo</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Total">
|
||||
<DataField>Total</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoAlmacen">
|
||||
<DataField>TipoAlmacen</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Existencia">
|
||||
<DataField>Existencia</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
</Fields>
|
||||
<rd:DataSetInfo>
|
||||
<rd:DataSetName>DataSet</rd:DataSetName>
|
||||
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
|
||||
<rd:TableName>DataTable1</rd:TableName>
|
||||
<rd:TableAdapterFillMethod />
|
||||
<rd:TableAdapterGetDataMethod />
|
||||
<rd:TableAdapterName />
|
||||
</rd:DataSetInfo>
|
||||
</DataSet>
|
||||
</DataSets>
|
||||
<ReportSections>
|
||||
<ReportSection>
|
||||
<Body>
|
||||
<ReportItems>
|
||||
<Tablix Name="Tablix2">
|
||||
@@ -114,7 +164,7 @@
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Format>#,0.00</Format>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
<Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -128,7 +178,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -149,7 +199,7 @@
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Format>#,0.00;(#,0.00)</Format>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
<Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -163,7 +213,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -265,34 +315,34 @@
|
||||
<TablixMember>
|
||||
<Group Name="Almacen">
|
||||
<GroupExpressions>
|
||||
<GroupExpression>=Fields!Almacen.Value</GroupExpression>
|
||||
<GroupExpression>=Fields!Gpo.Value</GroupExpression>
|
||||
</GroupExpressions>
|
||||
</Group>
|
||||
<TablixHeader>
|
||||
<Size>5cm</Size>
|
||||
<CellContents>
|
||||
<Textbox Name="Almacen">
|
||||
<Textbox Name="Gpo">
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>=Fields!Almacen.Value</Value>
|
||||
<Value>=Fields!Gpo.Value</Value>
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
<Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style />
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Almacen</rd:DefaultName>
|
||||
<rd:DefaultName>Gpo</rd:DefaultName>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -316,7 +366,7 @@
|
||||
<Value>=Fields!TipoAlmacen.Value</Value>
|
||||
<Style>
|
||||
<FontSize>7.5pt</FontSize>
|
||||
<Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
|
||||
<Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -328,7 +378,7 @@
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
<PaddingRight>2pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
@@ -673,7 +723,6 @@
|
||||
</Style>
|
||||
</Textbox>
|
||||
<Line Name="Line1">
|
||||
<Top>0in</Top>
|
||||
<Height>0cm</Height>
|
||||
<Width>19.26933cm</Width>
|
||||
<ZIndex>5</ZIndex>
|
||||
@@ -730,50 +779,8 @@
|
||||
<ColumnSpacing>0.13cm</ColumnSpacing>
|
||||
<Style />
|
||||
</Page>
|
||||
<AutoRefresh>0</AutoRefresh>
|
||||
<DataSources>
|
||||
<DataSource Name="DataSet">
|
||||
<ConnectionProperties>
|
||||
<DataProvider>System.Data.DataSet</DataProvider>
|
||||
<ConnectString>/* Local Connection */</ConnectString>
|
||||
</ConnectionProperties>
|
||||
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
|
||||
</DataSource>
|
||||
</DataSources>
|
||||
<DataSets>
|
||||
<DataSet Name="DataSet1">
|
||||
<Query>
|
||||
<DataSourceName>DataSet</DataSourceName>
|
||||
<CommandText>/* Local Query */</CommandText>
|
||||
</Query>
|
||||
<Fields>
|
||||
<Field Name="Almacen">
|
||||
<DataField>Almacen</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Total">
|
||||
<DataField>Total</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoAlmacen">
|
||||
<DataField>TipoAlmacen</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Existencia">
|
||||
<DataField>Existencia</DataField>
|
||||
<rd:TypeName>System.Double</rd:TypeName>
|
||||
</Field>
|
||||
</Fields>
|
||||
<rd:DataSetInfo>
|
||||
<rd:DataSetName>DataSet</rd:DataSetName>
|
||||
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
|
||||
<rd:TableName>DataTable1</rd:TableName>
|
||||
<rd:TableAdapterFillMethod />
|
||||
<rd:TableAdapterGetDataMethod />
|
||||
<rd:TableAdapterName />
|
||||
</rd:DataSetInfo>
|
||||
</DataSet>
|
||||
</DataSets>
|
||||
</ReportSection>
|
||||
</ReportSections>
|
||||
<ReportParameters>
|
||||
<ReportParameter Name="NombreEmpresa">
|
||||
<DataType>String</DataType>
|
||||
|
||||
@@ -127,7 +127,7 @@
|
||||
<div style="text-align: center;" class="col-sm-12">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />
|
||||
<asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" Visible="false" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
@@ -23,11 +23,16 @@ Partial Class Inventarios_PrestamosdeProveedor
|
||||
|
||||
Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CargaCombos()
|
||||
CveMovimiento = 0
|
||||
CveProveedor = 0
|
||||
|
||||
CargaDatos()
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(409) Then
|
||||
BtnRecibir.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -144,7 +144,7 @@
|
||||
<asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
|
||||
<div class="col-md-1">
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlAplicaInventario" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
|
||||
<asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
|
||||
@@ -157,7 +157,7 @@
|
||||
|
||||
|
||||
<div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
|
||||
<div class="col-md-1">
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
|
||||
@@ -178,7 +178,7 @@
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None"
|
||||
DataKeyNames="Gpo,CveAlmacen,CveClasificacion" >
|
||||
DataKeyNames="Gpo,CveAlmacen,CveClasificacion,FechaInicio,FechaFin" >
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Almacén">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -46,6 +46,9 @@ Partial Class Inventarios_RepAlmacen
|
||||
Private Sub CargaDatos()
|
||||
Dim objInv As New ClsInventarios
|
||||
|
||||
GVAlmacen.Columns(1).Visible = If(DdlGrupo.SelectedValue.ToEntero = 1, True, False)
|
||||
GVAlmacen.Columns(1).HeaderText = If(DdlGrupo.SelectedValue.ToEntero = 1, "Almacen", "Clasificación")
|
||||
|
||||
Dim FechaI, FechaF As String
|
||||
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
|
||||
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
|
||||
@@ -98,7 +101,10 @@ Partial Class Inventarios_RepAlmacen
|
||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
|
||||
|
||||
Dim Archivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepAlmacen.rdlc", "RepAlmacenClasificacion.rdlc")
|
||||
|
||||
ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", TmpDT, params, "ReporteAlmacen", Formato)
|
||||
End Sub
|
||||
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
GenerarPDF()
|
||||
@@ -111,17 +117,21 @@ Partial Class Inventarios_RepAlmacen
|
||||
' e.Row.CssClass = "Totales"
|
||||
'End If
|
||||
|
||||
If e.Row.Cells(0).Text = "" Then
|
||||
If e.Row.DataKey("Gpo") = "Total" Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("CveAlmacen").ToEntero > 0 Then
|
||||
Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1"
|
||||
|
||||
Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
|
||||
e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
|
||||
<asp:HyperLink ID = "HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>-
|
||||
End If
|
||||
|
||||
'If DdlGrupo.SelectedValue.ToEntero = 1 Then
|
||||
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
|
||||
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
'Else
|
||||
' Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
|
||||
' e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -74,10 +74,25 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
FechaFinal = "-1"
|
||||
|
||||
CargaCombos()
|
||||
|
||||
GvM.DataBind(True)
|
||||
If Not IsNothing(Request("CveAlmacen")) Then
|
||||
DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
|
||||
CargaRequest()
|
||||
CargaPermisos()
|
||||
CargaGvBitacora()
|
||||
|
||||
' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRequest()
|
||||
|
||||
Dim CveAlmacen As Integer = If(Not IsNothing(Request("CveAlmacen")) AndAlso Request("CveAlmacen").ToEntero > 0, Request("CveAlmacen").ToEntero, -1)
|
||||
Dim CveClasificacion As Integer = If(Not IsNothing(Request("CveClasificacion")) AndAlso Request("CveClasificacion").ToEntero > 0, Request("CveClasificacion").ToEntero, -1)
|
||||
|
||||
If CveAlmacen > 0 Or CveClasificacion > 0 Then ' CveClasificacion
|
||||
|
||||
DdlAlmacen.SelectedValuesIfExist(CveAlmacen.ToString)
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
|
||||
TxtFechaI.Text = "01/01/2000"
|
||||
If Not IsNothing(Request("FechaCorte")) Then
|
||||
TxtFechaF.Text = Request("FechaCorte")
|
||||
@@ -91,14 +106,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
|
||||
End If
|
||||
|
||||
btConsultar_Click(Nothing, Nothing)
|
||||
CargaDatos()
|
||||
End If
|
||||
CargaPermisos()
|
||||
CargaGvBitacora()
|
||||
' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
Private Sub CargaPermisos()
|
||||
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
|
||||
|
||||
|
||||
@@ -7055,7 +7055,7 @@ Partial Class RH_Personal
|
||||
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
|
||||
TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
|
||||
TxtFIDiasVacaciones.Text = If(diasvaca > 11, diasvaca, 12).ToString()
|
||||
Else
|
||||
TxtFIDiasVacaciones.Text = "12"
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user