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

-

Browse Source
This commit is contained in:
rrene
2023-06-30 18:09:55 -07:00
parent 57715b2c07 23160334a9
commit ce134ca300
6 changed files with 2388 additions and 2231 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Bancos/IE.aspx.vb
View File

@@ -4778,7 +4778,8 @@ Partial Class Bancos_IE
filemove = fileItem.filename filemove = fileItem.filename
Next Next
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If filemove <> "" Then If filemove <> "" Then
filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If End If

42
Bancos/RepEgresosSinComprobante.aspx
View File

@@ -13,14 +13,11 @@
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton> <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Saldar</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton> <asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar Proveedores</asp:LinkButton>
</li>
<li> <li>
<asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton> <asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton>
</li> </li>
@@ -146,6 +143,43 @@
<br /> <br />
<asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" id="DVSaldar" runat="server" visible="false">
<div class="col-lg-1">
Concepto:
</div>
<div class="col-lg-2">
<asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="100%" MaxLength="100"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtConcepto" runat="server" Enabled="true" CssClass="help-block errorimput" ControlToValidate="TxtConcepto" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
</div>
<div class="col-lg-1">
<asp:Label runat="server" ID="LblSubproyecto"></asp:Label>:
</div>
<div class="col-lg-2">
<asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSubProyecto" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
</div>
<div class="col-lg-1">
<asp:LinkButton ID="LnkSaldar" Visible="true" OnClick="LnkSaldar_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpSaldar">
<i class="fa fa-money"></i> Saldar
</asp:LinkButton>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" > <ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" >
<ajax:TabPanel ID="tabProveedores" runat="server" HeaderText="Proveedores"> <ajax:TabPanel ID="tabProveedores" runat="server" HeaderText="Proveedores">

42
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -59,6 +59,8 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlProveedores.SelectedValue = "-1" DdlProveedores.SelectedValue = "-1"
CargaDatos() CargaDatos()
TxtConcepto.Text = "Saldo de Egresos por comprobar"
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
End If End If
End Sub End Sub
@@ -169,14 +171,19 @@ Partial Class Bancos_RepEgresosSinComprobante
End Sub End Sub
Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
For Each gr As GridViewRow In GvESC.Rows For Each gr As GridViewRow In GvESC.Rows
If gr.DataKey("CveIE") <> "" Then If gr.DataKey("CveIE") <> "" Then
gr.FCCheckBox("Chk").Visible = True gr.FCCheckBox("Chk").Visible = True
LnkSaldar.Visible = True
LnkHabilitarSaldar.Visible = False
UPDatos.Update() UPDatos.Update()
End If End If
Next Next
TxtConcepto.Text = "Saldo de Egresos por comprobar"
DVSaldar.Visible = True
UpSaldar.Update()
End Sub End Sub
Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click
For Each gr As GridViewRow In GvPersonal.Rows For Each gr As GridViewRow In GvPersonal.Rows
@@ -191,15 +198,8 @@ Partial Class Bancos_RepEgresosSinComprobante
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
Dim ObjConta As New ClsContabilidad
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
Dim CvePrePoliza As Integer = 0
Dim MsgError As String = ""
Try
Dim Contador As Integer = 0 Dim Contador As Integer = 0
For Each gr As GridViewRow In GvESC.Rows For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then If gr.FCCheckBox("Chk").Checked Then
@@ -207,9 +207,25 @@ Partial Class Bancos_RepEgresosSinComprobante
End If End If
Next Next
If Not Contador > 0 Then
Alert("No se hay movimientos seleccionados")
Exit Sub
End If
Dim ObjConta As New ClsContabilidad
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
Dim CvePrePoliza As Integer = 0
Dim MsgError As String = ""
Try
If Contador > 0 Then If Contador > 0 Then
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now, CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
"Saldo de Egresos por comprobar", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each gr As GridViewRow In GvESC.Rows For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then If gr.FCCheckBox("Chk").Checked Then
@@ -282,8 +298,10 @@ Partial Class Bancos_RepEgresosSinComprobante
If MsgError = "" Then If MsgError = "" Then
LnkSaldar.Visible = False 'LnkSaldar.Visible = False
LnkHabilitarSaldar.Visible = True 'LnkHabilitarSaldar.Visible = True
DVSaldar.Visible = False
ObjConta.Commit() ObjConta.Commit()
CargaDatos() CargaDatos()
Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)

378
Empresas/Grales/Formatos/FlujoDiario.rdlc
View File

@@ -1,12 +1,175 @@
<?xml version="1.0" encoding="utf-8"?> <?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>
<DataSource Name="DataSet2">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
<DataSource Name="DataSet4">
<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="CveCuenta">
<DataField>CveCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</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>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet2</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</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>DataTable2</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</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>DataTable3</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet4</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="CveCuenta">
<DataField>CveCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</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>DataTable4</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body> <Body>
<ReportItems> <ReportItems>
<Tablix Name="Tablix1"> <Tablix Name="Tablix1">
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>10.07247cm</Width> <Width>12.45372cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.4525cm</Width> <Width>3.4525cm</Width>
@@ -462,9 +625,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>0.08599cm</Left> <Left>0.24474cm</Left>
<Height>1.69417cm</Height> <Height>1.69417cm</Height>
<Width>17.21559cm</Width> <Width>19.59685cm</Width>
<Style> <Style>
<Border> <Border>
<Color>#e0e3da</Color> <Color>#e0e3da</Color>
@@ -476,7 +639,7 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>10.07247cm</Width> <Width>12.45372cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.47235cm</Width> <Width>3.47235cm</Width>
@@ -921,9 +1084,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet2</DataSetName> <DataSetName>DataSet2</DataSetName>
<Top>2.08222cm</Top> <Top>2.08222cm</Top>
<Left>0.08599cm</Left> <Left>0.24474cm</Left>
<Height>1.72062cm</Height> <Height>1.72062cm</Height>
<Width>17.25529cm</Width> <Width>19.63655cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -935,7 +1098,7 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>10.09232cm</Width> <Width>12.47357cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.4525cm</Width> <Width>3.4525cm</Width>
@@ -1376,9 +1539,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet3</DataSetName> <DataSetName>DataSet3</DataSetName>
<Top>4.05351cm</Top> <Top>4.05351cm</Top>
<Left>0.06614cm</Left> <Left>0.22489cm</Left>
<Height>1.69417cm</Height> <Height>1.69417cm</Height>
<Width>17.25529cm</Width> <Width>19.63655cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1390,7 +1553,7 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>10.09232cm</Width> <Width>12.45372cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.43265cm</Width> <Width>3.43265cm</Width>
@@ -1832,9 +1995,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet4</DataSetName> <DataSetName>DataSet4</DataSetName>
<Top>6.02637cm</Top> <Top>6.02637cm</Top>
<Left>0.08599cm</Left> <Left>0.24474cm</Left>
<Height>1.69417cm</Height> <Height>1.69417cm</Height>
<Width>17.21559cm</Width> <Width>19.577cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1849,7 +2012,7 @@
<Width>8.01401in</Width> <Width>8.01401in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>3.11037cm</Height> <Height>3.33262cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1863,6 +2026,7 @@
<Value>=Parameters!NombreEmpresa.Value</Value> <Value>=Parameters!NombreEmpresa.Value</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -1874,9 +2038,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.22833cm</Top> <Top>0.22833cm</Top>
<Left>6.0099cm</Left> <Left>4.58115cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>9.74549cm</Width> <Width>11.78278cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1897,7 +2061,6 @@
<Value>FLUJO DIARIO</Value> <Value>FLUJO DIARIO</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -1912,7 +2075,6 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -1924,9 +2086,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.86361cm</Top> <Top>0.86361cm</Top>
<Left>6.0099cm</Left> <Left>4.58115cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>9.74549cm</Width> <Width>11.78278cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1942,7 +2104,6 @@
<Source>External</Source> <Source>External</Source>
<Value>=Parameters!LogoPath.Value</Value> <Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>0.22833cm</Top>
<Left>0.08599cm</Left> <Left>0.08599cm</Left>
<Height>2.40883cm</Height> <Height>2.40883cm</Height>
<Width>4.0834cm</Width> <Width>4.0834cm</Width>
@@ -1959,19 +2120,23 @@
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun>
<Value>Fecha: </Value>
<Style />
</TextRun>
<TextRun> <TextRun>
<Value>=Parameters!Fecha.Value</Value> <Value>=Parameters!Fecha.Value</Value>
<Style /> <Style />
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Right</TextAlign> <TextAlign>Left</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.91108cm</Top> <Top>2.51466cm</Top>
<Left>14.00032cm</Left> <Left>0.08599cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>6.2766cm</Width> <Width>6.2766cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -1986,7 +2151,7 @@
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line1"> <Line Name="Line1">
<Top>3.01512cm</Top> <Top>3.33262cm</Top>
<Left>0.04947cm</Left> <Left>0.04947cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>20.22745cm</Width> <Width>20.22745cm</Width>
@@ -2202,167 +2367,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing> <ColumnSpacing>0.13cm</ColumnSpacing>
<Style /> <Style />
</Page> </Page>
<AutoRefresh>0</AutoRefresh> </ReportSection>
<DataSources> </ReportSections>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
<DataSource Name="DataSet2">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
<DataSource Name="DataSet4">
<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="CveCuenta">
<DataField>CveCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</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>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet2</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</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>DataTable2</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="PagueseA">
<DataField>PagueseA</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</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>DataTable3</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet4</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="CveCuenta">
<DataField>CveCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMoneda">
<DataField>CveMoneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Banco">
<DataField>Banco</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.String</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>DataTable4</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportParameters> <ReportParameters>
<ReportParameter Name="NombreEmpresa"> <ReportParameter Name="NombreEmpresa">
<DataType>String</DataType> <DataType>String</DataType>

89
RH/CatTurno.aspx
View File

@@ -143,12 +143,12 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" /> <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" AutoPostBack="true" OnCheckedChanged="chkComida_CheckedChanged" />
<label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label> <label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
</div> </div>
<div class="row"> <div class="row" runat="server" id="DVHorarioComida" visible="false">
<div class="col-lg-6"> <div class="col-lg-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox> <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
@@ -174,17 +174,37 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label> <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtRetardo" FilterType="Numbers" />
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Retardo"></asp:Label> <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Retardo"></asp:Label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFretardo" FilterType="Numbers" />
<asp:CustomValidator ID="CVTxtFretardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFretardo" ClientValidationFunction="validaRetardoEntrada"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Retardo debe de ser superior al campo Tolerancia Entrada." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DvToleranciaSRetardo" visible="false">
<asp:TextBox ID="TxtToleranciaSRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtToleranciaSRetardo" runat="server" Text="Tolerancia salida Temprano"></asp:Label>
<asp:CustomValidator ID="CVTxtToleranciaSRetardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtToleranciaSRetardo" ClientValidationFunction="validaSalidaTemprano"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Tolerancia salida Temprano debe de ser menor al campo Tolerancia salida." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtToleranciaSRetardo" FilterType="Numbers" />
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Tolerancia salida"></asp:Label> <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Tolerancia salida"></asp:Label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFsalida" FilterType="Numbers" />
</div> </div>
<div class="form-group form-md-line-input input-iconright ocultar"> <div class="form-group form-md-line-input input-iconright ocultar">
<asp:DropDownList ID="ddlDiaDescanso" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%"> <asp:DropDownList ID="ddlDiaDescanso" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">
<asp:ListItem Value="-1" Text="Sin Asignar" Selected="True"></asp:ListItem> <asp:ListItem Value="-1" Text="Sin Asignar" Selected="True"></asp:ListItem>
@@ -219,4 +239,63 @@
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script>
function validaRetardoEntrada(sender, args) {
let respuesta = false;
let StrToleranciaEntrada = $('#<%= TxtRetardo.ClientID %>').val()
let ToleranciaEntrada = isNaN(StrToleranciaEntrada) ? 0 : parseFloat(StrToleranciaEntrada);
let StrToleranciaEntradaRetardo = $('#<%= TxtFretardo.ClientID %>').val()
let ToleranciaEntradaRetardo = isNaN(StrToleranciaEntradaRetardo) ? 0 : parseFloat(StrToleranciaEntradaRetardo);
if (ToleranciaEntradaRetardo > 0) {
if (ToleranciaEntradaRetardo > ToleranciaEntrada) {
respuesta = true;
} else {
respuesta = false;
}
} else {
respuesta = true;
}
args.IsValid = respuesta;
}
function validaSalidaTemprano(sender, args) {
let respuesta = false;
let StrToleranciaSRetardo = $('#<%= TxtToleranciaSRetardo.ClientID %>').val()
let ToleranciaSRetardo = isNaN(StrToleranciaSRetardo) ? 0 : parseFloat(StrToleranciaSRetardo);
let StrFsalida = $('#<%= TxtFsalida.ClientID %>').val()
let Fsalida = isNaN(StrFsalida) ? 0 : parseFloat(StrFsalida);
if (ToleranciaSRetardo > 0) {
if (ToleranciaSRetardo < Fsalida) {
respuesta = true;
} else {
respuesta = false;
}
} else {
respuesta = true;
}
args.IsValid = respuesta;
}
</script>
</asp:Content> </asp:Content>

23
RH/CatTurno.aspx.vb
View File

@@ -12,6 +12,11 @@ Partial Class RH_CatTurno
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaDdlChecadorHorario() CargaDdlChecadorHorario()
CargaDatos() CargaDatos()
If UsuarioActual.CveEmpresa <> 158 Then
DvToleranciaSRetardo.Visible = True
End If
End If End If
End Sub End Sub
@@ -42,14 +47,14 @@ Partial Class RH_CatTurno
If ChkEstatus.Checked Then Estatus = True If ChkEstatus.Checked Then Estatus = True
If HdnModalidad.Value = "A" Then If HdnModalidad.Value = "A" Then
If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
CargaDatos() CargaDatos()
CargaGlobalDTTurno() CargaGlobalDTTurno()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If End If
ElseIf HdnModalidad.Value = "U" Then ElseIf HdnModalidad.Value = "U" Then
If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
CargaDatos() CargaDatos()
CargaGlobalDTTurno() CargaGlobalDTTurno()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
@@ -80,8 +85,11 @@ Partial Class RH_CatTurno
chkComida.Checked = (GvRow.DataKey("Comida") = "1") chkComida.Checked = (GvRow.DataKey("Comida") = "1")
TxtComidade.Text = GvRow.DataKey("ComidaDe") TxtComidade.Text = GvRow.DataKey("ComidaDe")
TxtComidaA.Text = GvRow.DataKey("ComidaA") TxtComidaA.Text = GvRow.DataKey("ComidaA")
TxtToleranciaSRetardo.Text = GvRow.DataKey("ToleranciaSRetardo")
ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso")) ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso"))
chkComida_CheckedChanged(Nothing, Nothing)
UpAddTurno.Update() UpAddTurno.Update()
'CargaGlobalDTTurno() 'CargaGlobalDTTurno()
@@ -103,6 +111,7 @@ Partial Class RH_CatTurno
ddlDiaDescanso.SelectedValueExist("-1") ddlDiaDescanso.SelectedValueExist("-1")
CargaDdlChecadorHorario() CargaDdlChecadorHorario()
ChkEstatus.Checked = True ChkEstatus.Checked = True
DVHorarioComida.Visible = True
UpAddTurno.Update() UpAddTurno.Update()
@@ -154,4 +163,14 @@ Partial Class RH_CatTurno
End If End If
End If End If
End Sub End Sub
Protected Sub chkComida_CheckedChanged(sender As Object, e As EventArgs)
If chkComida.Checked Then
DVHorarioComida.Visible = True
Else
DVHorarioComida.Visible = False
End If
UpAddTurno.Update()
End Sub
End Class End Class