Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -3,7 +3,7 @@
|
||||
<asp:Content ContentPlaceHolderID="Css" runat="server">
|
||||
<style>
|
||||
.truncate {
|
||||
width: 300px;
|
||||
width: 300px;
|
||||
white-space: nowrap;
|
||||
overflow: hidden;
|
||||
text-overflow: ellipsis;
|
||||
|
||||
@@ -80,13 +80,29 @@ Partial Class Contabilidad_LibroDiario
|
||||
'FechaInicio = New Date(2016, 1, 1)
|
||||
'FechaFin = New Date(2016, 1, 31)
|
||||
|
||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ObjConta.GetLibroDiario(FechaInicio, FechaFin) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetLibroDiarioSIG(FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ObjConta.GetLibroDiario(FechaInicio, FechaFin) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
|
||||
|
||||
|
||||
If DtDatos IsNot Nothing Then
|
||||
ImgExcel.Visible = True
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
width: 300px;
|
||||
white-space: nowrap;
|
||||
overflow: hidden;
|
||||
text-overflow: ellipsis;
|
||||
text-overflow: ellipsis;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
|
||||
@@ -44,9 +44,17 @@ Partial Class Contabilidad_LibroMayor
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
BtnConsultar.Enabled = True
|
||||
Else
|
||||
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
BtnConsultar.Enabled = True
|
||||
Else
|
||||
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -70,13 +78,32 @@ Partial Class Contabilidad_LibroMayor
|
||||
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
|
||||
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
|
||||
|
||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
'140
|
||||
Dim CvecuentaPadre As Integer = 57416 '140
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
|
||||
|
||||
If DtDatos IsNot Nothing Then
|
||||
ImgExcel.Visible = True
|
||||
@@ -159,6 +186,7 @@ Partial Class Contabilidad_LibroMayor
|
||||
#Region " IMPRIMIR "
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
|
||||
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
|
||||
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
|
||||
|
||||
@@ -4,6 +4,9 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
tr.Titulos {
|
||||
display: table-row !important;
|
||||
}
|
||||
.GvMov input, .GvMov td {
|
||||
height: 20px !important;
|
||||
}
|
||||
@@ -498,7 +501,7 @@
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cargo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False" Text='<%# If(String.IsNullOrEmpty(Eval("Cargo").ToString), "", Eval("Cargo", "{0:0.00}")) %>'></asp:TextBox>
|
||||
<div id="divCargoME" runat="server" Visible="False">ME:<asp:TextBox ID="TxtCargoME" CssClass="" runat="server" Style="text-align: right" Width="55px"></asp:TextBox>
|
||||
TC:<asp:TextBox ID="TxtTC" CssClass="" runat="server" Style="text-align: right" Width="45px"></asp:TextBox>
|
||||
</div>
|
||||
@@ -508,7 +511,7 @@
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abono</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False" Text='<%# If(String.IsNullOrEmpty(Eval("Abono").ToString), "", Eval("Abono", "{0:0.00}")) %>' ></asp:TextBox>
|
||||
<div id="divAbonoME" runat="server" Visible="False">ME:<asp:TextBox ID="TxtAbonoME" CssClass="" runat="server" Style="text-align: right" Width="55px" ></asp:TextBox></div>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
|
||||
@@ -381,9 +381,17 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("EsComplementaria", Type.GetType("System.Boolean"))
|
||||
.Add("TC", Type.GetType("System.Decimal"))
|
||||
|
||||
|
||||
|
||||
End With
|
||||
|
||||
|
||||
If Not DtMovimientos.Columns.Contains("Cargo") Then
|
||||
DtMovimientos.Columns.Add("Cargo", Type.GetType("System.Decimal"))
|
||||
DtMovimientos.Columns.Add("Abono", Type.GetType("System.Decimal"))
|
||||
End If
|
||||
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub CargaNomina()
|
||||
@@ -517,9 +525,16 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
|
||||
DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not DtMovimientos.Columns.Contains("Cargo") Then
|
||||
DtMovimientos.Columns.Add("Cargo", GetType(Decimal))
|
||||
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
GvPrePoliza.DataBind()
|
||||
|
||||
If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
|
||||
@@ -1015,6 +1030,11 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim MsgError As String = ""
|
||||
Dim CveIE As Integer
|
||||
Dim FolioIE As String = ""
|
||||
Dim ContRegInsertados As Integer = 0
|
||||
|
||||
Dim TmpCargo As Decimal = 0D
|
||||
Dim TmpAbono As Decimal = 0D
|
||||
Dim DifCargoAbono As Decimal = 0D
|
||||
|
||||
Try
|
||||
|
||||
@@ -1032,7 +1052,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
FolioPoliza = ObjMov.FolioPoliza
|
||||
|
||||
|
||||
'inserto las compras que voy a pagarDdlSaldos
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
|
||||
@@ -1056,20 +1075,28 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
ImporteME = 0
|
||||
TipoCambio = 1
|
||||
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
TmpAbono = TmpAbono + Importe
|
||||
TipoMovto = True
|
||||
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then
|
||||
ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
|
||||
TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
|
||||
TmpCargo = TmpCargo + Importe
|
||||
TipoMovto = False
|
||||
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then
|
||||
ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
|
||||
TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not gvr.DataKey("CveConcepto").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
|
||||
@@ -1100,6 +1127,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio,
|
||||
CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
|
||||
ContRegInsertados = ContRegInsertados + 1
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar el detalle de la póliza2"
|
||||
Exit For
|
||||
@@ -1108,6 +1137,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then
|
||||
@@ -1124,40 +1154,48 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgError = "Error"
|
||||
MsgError = $"Error {ex.Message}"
|
||||
End Try
|
||||
|
||||
If MsgError = "" Then
|
||||
'MENSAJE IE
|
||||
|
||||
'If CveIE Then
|
||||
' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
'Else
|
||||
' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
'End If
|
||||
|
||||
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
|
||||
|
||||
|
||||
ObjIE.Commit()
|
||||
If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
TxtConcepto.Text = ""
|
||||
GvMov.DataBind()
|
||||
TxtFechaDocumento.Text = ""
|
||||
|
||||
Else
|
||||
Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
|
||||
ObjIE.RollBack()
|
||||
If Conta IsNot Nothing Then Conta.RollBack()
|
||||
If ContRegInsertados = 0 Then
|
||||
MsgError = $"No se insertaron registros (Revise que los importes de los registros contengan valores)"
|
||||
End If
|
||||
|
||||
ObjIE.Dispose()
|
||||
ObjMov.Dispose()
|
||||
If Conta IsNot Nothing Then Conta.Dispose()
|
||||
End If
|
||||
|
||||
If MsgError = "" Then
|
||||
'MENSAJE IE
|
||||
|
||||
'If CveIE Then
|
||||
' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
'Else
|
||||
' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
'End If
|
||||
|
||||
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
|
||||
|
||||
|
||||
ObjIE.Commit()
|
||||
If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
TxtConcepto.Text = ""
|
||||
'GvMov.DataBind()
|
||||
DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
|
||||
|
||||
TxtFechaDocumento.Text = ""
|
||||
|
||||
Else
|
||||
Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
|
||||
ObjIE.RollBack()
|
||||
If Conta IsNot Nothing Then Conta.RollBack()
|
||||
End If
|
||||
|
||||
ObjIE.Dispose()
|
||||
ObjMov.Dispose()
|
||||
If Conta IsNot Nothing Then Conta.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ActualizarPrePoliza()
|
||||
@@ -2004,7 +2042,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
If Rows.Count > 0 Then
|
||||
Dim dr As DataRow = Rows(0)
|
||||
|
||||
|
||||
dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero
|
||||
dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero
|
||||
dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text
|
||||
@@ -2012,9 +2049,33 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text
|
||||
dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text
|
||||
End If
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
If Not DtMovimientos.Columns.Contains("Cargo") Then
|
||||
DtMovimientos.Columns.Add("Cargo", GetType(Decimal))
|
||||
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
||||
End If
|
||||
|
||||
Dim IndexX As Integer = 0
|
||||
For Each PGvRow As GridViewRow In GvMov.Rows
|
||||
|
||||
If PGvRow.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
DtMovimientos.Rows(IndexX)("Cargo") = PGvRow.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
DtMovimientos.Rows(IndexX)("Abono") = PGvRow.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
|
||||
IndexX = IndexX + 1
|
||||
End If
|
||||
Next
|
||||
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
|
||||
'CveCuenta = DdlCuenta.SelectedValue.ToEntero
|
||||
'Folio = TxtDocumentoFolio.Text
|
||||
@@ -2798,6 +2859,12 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If Not DtMovimientos.Columns.Contains("Cargo") Then
|
||||
DtMovimientos.Columns.Add("Cargo", GetType(Decimal))
|
||||
DtMovimientos.Columns.Add("Abono", GetType(Decimal))
|
||||
End If
|
||||
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
|
||||
|
||||
@@ -235,6 +235,8 @@
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Concepto">
|
||||
@@ -275,6 +277,52 @@
|
||||
<RowStyle CssClass="Texto" />
|
||||
</asp:GridView>
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvOrigenAplicacionSIG" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta" Visible="false">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Concepto">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="400" HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="100" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="100" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<asp:TemplateField HeaderText="Origen">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HLOrigen" runat="server" Text='<%# Eval("Origen", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="100" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Aplicación">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HLAplicacion" runat="server" Text='<%# Eval("Aplicacion", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="100" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
</asp:GridView>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
@@ -84,11 +84,14 @@ Partial Class Contabilidad_RepOrigenAplicacion
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
TabMensual.Enabled = False
|
||||
TabAnual.Enabled = False
|
||||
TabMensual.Visible = False
|
||||
TabAnual.Visible = False
|
||||
TdFI.Visible = False
|
||||
tdTipoReporte.Visible = False
|
||||
|
||||
GvOrigenAplicacionSIG.Visible = True
|
||||
GvDatos.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -162,25 +165,26 @@ Partial Class Contabilidad_RepOrigenAplicacion
|
||||
Dim AnioAnteior As Integer = AnioActual - 1
|
||||
|
||||
|
||||
GvDatos.Columns(1).Visible = True
|
||||
GvDatos.Columns(2).Visible = True
|
||||
GvOrigenAplicacionSIG.Columns(1).Visible = True
|
||||
GvOrigenAplicacionSIG.Columns(2).Visible = True
|
||||
|
||||
GvDatos.Columns(1).HeaderText = AnioAnteior.ToString
|
||||
GvDatos.Columns(2).HeaderText = AnioActual.ToString
|
||||
GvOrigenAplicacionSIG.Columns(1).HeaderText = AnioAnteior.ToString
|
||||
GvOrigenAplicacionSIG.Columns(2).HeaderText = AnioActual.ToString
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
'GvOrigenAplicacionSIG
|
||||
If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjConta.DtResultados
|
||||
GvOrigenAplicacionSIG.DataSource = ObjConta.DtResultados
|
||||
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
LnkExcel.Visible = True
|
||||
End If
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
GvOrigenAplicacionSIG.DataSource = Nothing
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
GvDatos.DataBind()
|
||||
GvOrigenAplicacionSIG.DataBind()
|
||||
|
||||
|
||||
Else
|
||||
|
||||
@@ -214,6 +218,31 @@ Partial Class Contabilidad_RepOrigenAplicacion
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'Titulo y Sumatoria de cambios
|
||||
If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
|
||||
e.Row.FCLabel("LbNombre").Font.Bold = True
|
||||
End If
|
||||
|
||||
'CUENTAS
|
||||
If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
|
||||
e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
|
||||
End If
|
||||
|
||||
'TOTAL
|
||||
If e.Row.DBCampo("Nombre").ToString.Trim = "" Then
|
||||
e.Row.Attributes.Add("style", "border-top: 1px solid; margin-top:10px;")
|
||||
e.Row.FCLabel("LbNombre").Font.Bold = True
|
||||
e.Row.FCLabel("LbNombre").Font.Italic = True
|
||||
e.Row.FCLabel("LbNombre").Text = "TOTAL"
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub GvOrigenAplicacionSIG_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOrigenAplicacionSIG.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'Titulo y Sumatoria de cambios
|
||||
@@ -251,6 +280,12 @@ Partial Class Contabilidad_RepOrigenAplicacion
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
@@ -12,44 +12,50 @@
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" runat="server" Visible="false" />
|
||||
</div>
|
||||
<div class="titlefiltros caption">
|
||||
|
||||
<div class="row" runat="server" visible ="false" id="DvRowFiltrosContanSig1" >
|
||||
|
||||
<label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
|
||||
<div class="col-md-2" style="width: 125px;">
|
||||
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" style="width: 90px;">Periodo:</label>
|
||||
<div class="col-md-2" style="width: 130px;">
|
||||
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px" CssClass="select2me">
|
||||
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
|
||||
<asp:ListItem Text="Abril" Value="4"></asp:ListItem>
|
||||
<asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
|
||||
<asp:ListItem Text="Junio" Value="6"></asp:ListItem>
|
||||
<asp:ListItem Text="Julio" Value="7"></asp:ListItem>
|
||||
<asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
|
||||
<asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
|
||||
<asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
|
||||
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpFiltros" UpdateMode="Conditional" runat="server" >
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" runat="server" Visible="false" />
|
||||
</div>
|
||||
<div class="titlefiltros caption">
|
||||
<div class="row" runat="server" visible ="false" id="DvRowFiltrosContanSig1" >
|
||||
<label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
|
||||
<div class="col-md-2" style="width: 125px;">
|
||||
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" style="width: 90px;">Periodo:</label>
|
||||
<div class="col-md-2" style="width: 130px;">
|
||||
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px" CssClass="select2me">
|
||||
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
|
||||
<asp:ListItem Text="Abril" Value="4"></asp:ListItem>
|
||||
<asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
|
||||
<asp:ListItem Text="Junio" Value="6"></asp:ListItem>
|
||||
<asp:ListItem Text="Julio" Value="7"></asp:ListItem>
|
||||
<asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
|
||||
<asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
|
||||
<asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
|
||||
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -87,7 +93,9 @@
|
||||
<%-- FechaMovto Mensaje CveIE CveCompra CveVenta CvePrePoliza FolioPoliza--%>
|
||||
|
||||
|
||||
<asp:GridView ID="GvDatosSIG" CssClass="table table-advance table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None" Visible="false" >
|
||||
<asp:GridView ID="GvDatosSIG" CssClass="table table-advance table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None" Visible="false"
|
||||
EmptyDataText="No se encontraron descuadres" ToolTip="Listado de descuadres"
|
||||
>
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Fecha">
|
||||
|
||||
Reference in New Issue
Block a user