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

Uniformes y RepAnexoCatalogoVertical(parametros)

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-08-11 08:58:52 -07:00
parent 774a1e151c
commit eca126a861
10 changed files with 1228 additions and 1300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -4632,7 +4632,7 @@ Public Class ClsInventarios
#Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO"
Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional Todo As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ResguardoUniformesRep") DataAdapter("PA_Inv_ResguardoUniformesRep")
@@ -4643,6 +4643,7 @@ Public Class ClsInventarios
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Todo", SqlDbType.Bit).Value = Todo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

22
Bancos/IE.aspx.vb
View File

@@ -2469,17 +2469,25 @@ Partial Class Bancos_IE
'If CveOCSolicitudAnticipo > 0 Then
' If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
' EsValido = False If CveOCSolicitudAnticipo > 0 Then
' Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
' End If Dim ObjOC As New ClsOC
'End If If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
Else
SaldoOCAnticipo = 0
End If
ObjOC.Dispose()
If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
EsValido = False
Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
End If
End If
Return EsValido Return EsValido
End Function End Function
Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)

2
Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
View File

@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
Private Sub CargaDatos() Private Sub CargaDatos()
Dim Conta As New ClsContabilidad Dim Conta As New ClsContabilidad
If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
GvCC.DataSource = Conta.DSResultados.Tables(1) GvCC.DataSource = Conta.DSResultados.Tables(1)

2
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -1663,7 +1663,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next IndiceInicio Next IndiceInicio
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}" e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then

132
Empresas/Grales/Formatos/EntradaSalida.rdlc
View File

@@ -6,22 +6,19 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>1.72112cm</Width> <Width>1.14223cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.33244cm</Width> <Width>3.14766cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>7.27452cm</Width> <Width>11.67011cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.70027cm</Width> <Width>2.70027cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.89819cm</Width> <Width>1.73945cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.57864cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -172,7 +169,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Serie Lote</Value> <Value>Serie</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -253,51 +250,6 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Batch</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<BackgroundColor>White</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -314,7 +266,7 @@
<TextRun> <TextRun>
<Value>=Fields!Cantidad.Value</Value> <Value>=Fields!Cantidad.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>0;(0)</Format>
</Style> </Style>
</TextRun> </TextRun>
@@ -347,7 +299,7 @@
<TextRun> <TextRun>
<Value>=Fields!Codigo.Value</Value> <Value>=Fields!Codigo.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -379,7 +331,7 @@
<TextRun> <TextRun>
<Value>=Fields!PS.Value</Value> <Value>=Fields!PS.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -409,7 +361,7 @@
<TextRun> <TextRun>
<Value>=Fields!SerieLote.Value</Value> <Value>=Fields!SerieLote.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -439,7 +391,7 @@
<TextRun> <TextRun>
<Value>=Fields!Lote.Value</Value> <Value>=Fields!Lote.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -458,36 +410,6 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Batch">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Batch.Value</Value>
<Style>
<FontSize>10.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Batch</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
</TablixRows> </TablixRows>
@@ -503,11 +425,6 @@
<Hidden>=IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False)</Hidden> <Hidden>=IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False)</Hidden>
</Visibility> </Visibility>
</TablixMember> </TablixMember>
<TablixMember>
<Visibility>
<Hidden>=IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False)</Hidden>
</Visibility>
</TablixMember>
</TablixMembers> </TablixMembers>
</TablixColumnHierarchy> </TablixColumnHierarchy>
<TablixRowHierarchy> <TablixRowHierarchy>
@@ -524,7 +441,7 @@
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>0.22456cm</Left> <Left>0.22456cm</Left>
<Height>1.11096cm</Height> <Height>1.11096cm</Height>
<Width>17.50518cm</Width> <Width>20.39971cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -567,7 +484,7 @@
<Height>0.82291in</Height> <Height>0.82291in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.06771in</Width> <Width>8.11979in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>4.11151cm</Height> <Height>4.11151cm</Height>
@@ -593,7 +510,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.28677cm</Top> <Top>0.28677cm</Top>
<Left>3.73711cm</Left> <Left>4.37211cm</Left>
<Height>0.67056cm</Height> <Height>0.67056cm</Height>
<Width>8.97552cm</Width> <Width>8.97552cm</Width>
<Style> <Style>
@@ -625,7 +542,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox34</rd:DefaultName> <rd:DefaultName>Textbox34</rd:DefaultName>
<Top>1.02789cm</Top> <Top>1.02789cm</Top>
<Left>3.73711cm</Left> <Left>4.37211cm</Left>
<Height>0.95277cm</Height> <Height>0.95277cm</Height>
<Width>8.10916cm</Width> <Width>8.10916cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -804,7 +721,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35028cm</Top> <Top>0.35028cm</Top>
<Left>12.99791cm</Left> <Left>13.63291cm</Left>
<Height>0.89103cm</Height> <Height>0.89103cm</Height>
<Width>2.06494cm</Width> <Width>2.06494cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -840,7 +757,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.31501cm</Top> <Top>0.31501cm</Top>
<Left>15.06284cm</Left> <Left>15.69784cm</Left>
<Height>0.9263cm</Height> <Height>0.9263cm</Height>
<Width>2.57165cm</Width> <Width>2.57165cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
@@ -872,7 +789,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.09701cm</Top>
<Left>12.33674cm</Left> <Left>12.65424cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -893,7 +810,9 @@
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!Almacen.Value</Value> <Value>=Parameters!Almacen.Value</Value>
<Style /> <Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -903,9 +822,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName> <rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.34505cm</Top>
<Left>14.14cm</Left> <Left>14.4575cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.65324cm</Width> <Width>5.9022cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -926,6 +845,7 @@
<TextRun> <TextRun>
<Value>=Parameters!Fecha.Value</Value> <Value>=Parameters!Fecha.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize>
<Format>d</Format> <Format>d</Format>
</Style> </Style>
</TextRun> </TextRun>
@@ -937,9 +857,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.09701cm</Top>
<Left>14.14cm</Left> <Left>14.4575cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>3.65324cm</Width> <Width>5.9022cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -969,7 +889,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.34505cm</Top>
<Left>12.33674cm</Left> <Left>12.65424cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>

2359
Empresas/Grales/Formatos/RepUniformesResguardo.rdlc
View File

File diff suppressed because it is too large Load Diff

2
RH/Personal.aspx
View File

@@ -772,7 +772,7 @@
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkSurtir" runat="server" PostBackUrl="" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" aria-hidden="true"></i> Surtir Uniforme</asp:LinkButton> <asp:LinkButton ID="LnkSurtir" runat="server" PostBackUrl="" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" aria-hidden="true"></i> Resguardar Uniforme</asp:LinkButton>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>

2
RH/Personal.aspx.vb
View File

@@ -5105,7 +5105,7 @@ Partial Class RH_Personal
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1) Then If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then
GvUniformesResguardo.DataSource = ObjInv.DtResultados GvUniformesResguardo.DataSource = ObjInv.DtResultados
UniformesInfo = ObjInv.DtResultados UniformesInfo = ObjInv.DtResultados
Else Else

2
RH/RepUniformesResguardo.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Reporte de Uniformes Reporte de Resguardo Uniformes
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">

2
RH/RepUniformesResguardo.aspx.vb
View File

@@ -63,7 +63,7 @@ Partial Class RH_RepUniformesResguardo
If dfecha.Year > 1900 Then If dfecha.Year > 1900 Then
strFechaFin = dfecha.ToString("yyyy/MM/dd") strFechaFin = dfecha.ToString("yyyy/MM/dd")
End If End If
If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin) Then If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin, Todo:=False) Then
GvUniformes.DataSource = ObjInv.DtResultados GvUniformes.DataSource = ObjInv.DtResultados
DTDatos = ObjInv.DtResultados DTDatos = ObjInv.DtResultados
Else Else