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"
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
DataAdapter("PA_Inv_ResguardoUniformesRep")
@@ -4643,6 +4643,7 @@ Public Class ClsInventarios
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Todo", SqlDbType.Bit).Value = Todo
End With
Try
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
' 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)
If CveOCSolicitudAnticipo > 0 Then
' End If
'End If
Dim ObjOC As New ClsOC
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
End Function
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()
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)
GvCC.DataSource = Conta.DSResultados.Tables(1)

2
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -1663,7 +1663,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
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

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

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

2
RH/Personal.aspx.vb
View File

@@ -5105,7 +5105,7 @@ Partial Class RH_Personal
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
UniformesInfo = ObjInv.DtResultados
Else

2
RH/RepUniformesResguardo.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Reporte de Uniformes
Reporte de Resguardo Uniformes
</asp:Content>
<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
strFechaFin = dfecha.ToString("yyyy/MM/dd")
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
DTDatos = ObjInv.DtResultados
Else