GDiaz 2024.05.21
This commit is contained in:
rakcsle
@@ -288,7 +288,7 @@
|
||||
</div>
|
||||
|
||||
<input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<div style="width: 100%; min-height: 200px; -webkit-overflow-scrolling: auto;">
|
||||
|
||||
<div class="portlet light xspadding bordered " id="pnldl2" runat="server">
|
||||
<div class="portlet-title">
|
||||
@@ -310,6 +310,7 @@
|
||||
<a href="javascript:;" onclick="FiltrarTablaV2('.TxtBusqueda','.GvMov')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold green"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="True"
|
||||
DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto, TC"
|
||||
@@ -333,6 +334,7 @@
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Concepto</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<%--<asp:Literal ID="LrlConcepto" runat="server" Text='<%# Eval("Concepto")%>'></asp:Literal>--%>
|
||||
<asp:TextBox ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto")%>' Width="100%"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
<ItemStyle />
|
||||
|
||||
@@ -1,4 +1,7 @@
|
||||
Imports System.Data
|
||||
Imports System.Runtime.CompilerServices
|
||||
Imports System.Runtime.Remoting
|
||||
|
||||
'Imports DocumentFormat.OpenXml
|
||||
Imports Extensiones
|
||||
Imports GemBox.Spreadsheet
|
||||
@@ -409,6 +412,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("EsMonedaExtranjera", Type.GetType("System.Boolean"))
|
||||
.Add("TC", Type.GetType("System.Decimal"))
|
||||
.Add("CvePrePoliza", Type.GetType("System.Int32"))
|
||||
.Add("CveMovimientoAlmacen", Type.GetType("System.Int32"))
|
||||
|
||||
End With
|
||||
|
||||
@@ -429,6 +433,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DtMovimientosEliminar.AcceptChanges()
|
||||
End Sub
|
||||
Private Function CargaPrePoliza(tCvePrePoliza As Integer) As Boolean
|
||||
HplImprimirPDF.Visible = False
|
||||
Dim retorno As Boolean = False
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjContabilidad.GetPrePoliza(tCvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
@@ -453,8 +458,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
|
||||
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
|
||||
DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
|
||||
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
|
||||
HplImprimirPDF.Visible = True
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
|
||||
|
||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
|
||||
@@ -528,6 +532,23 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
RegistraScript("comparar();")
|
||||
|
||||
LnkExcel.Visible = False
|
||||
|
||||
Dim CveIE As Integer = DtMovimientos.FiltroPrimeroValor("CveIE", " CveIE > 0 ").ToEntero
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(382).ToEntero = 1 AndAlso CveIE > 0 Then
|
||||
|
||||
Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={CveIE}")
|
||||
'HplListaProveedores.NavigateUrl = String.Format($"/Compras/PopUpVerFactura.aspx?P={StrEncript}", )
|
||||
|
||||
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
|
||||
HplImprimirPDF.Visible = True
|
||||
Else
|
||||
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
|
||||
HplImprimirPDF.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
BtnEliminar.Visible = False
|
||||
@@ -792,7 +813,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
GvPrePoliza.DataBind() ''limpio el grid
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
UPMovs.Update()
|
||||
|
||||
@@ -813,7 +834,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = "0", "", e.Row.DBCampo("Abono"))
|
||||
e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = "0", "", e.Row.DBCampo("Cargo"))
|
||||
e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion")
|
||||
e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Concepto")
|
||||
|
||||
If CvePeriodo > 0 Then
|
||||
e.Row.FCTextBox("TxtCargo").Enabled = False
|
||||
@@ -835,7 +856,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
|
||||
e.Row.FCLinkButton("imgD").Visible = True
|
||||
Else
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
|
||||
'
|
||||
'e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("MultipleSubProyecto") = "True" Then
|
||||
@@ -1667,6 +1689,35 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero <> 53 Then
|
||||
|
||||
Dim x As Integer = 0
|
||||
For Each gvRow As GridViewRow In GvMov.Rows
|
||||
|
||||
|
||||
DtMovimientos.Rows(x)("ContadoTipoTransaccion") = gvRow.DataKey("ContadoTipoTransaccion").ToEntero
|
||||
DtMovimientos.Rows(x)("ContadoCuenta") = gvRow.DataKey("ContadoCuenta").ToEntero
|
||||
DtMovimientos.Rows(x)("ContadoNumeroFolio") = gvRow.DataKey("ContadoNumeroFolio")
|
||||
DtMovimientos.Rows(x)("ContadoImporte") = gvRow.DataKey("ContadoImporte").ToDecimal
|
||||
DtMovimientos.Rows(x)("ContadoBeneficiario") = gvRow.DataKey("ContadoBeneficiario")
|
||||
DtMovimientos.Rows(x)("ContadoObservaciones") = gvRow.DataKey("ContadoObservaciones")
|
||||
|
||||
DtMovimientos.Rows(x)("Concepto") = gvRow.FCTextBox("TxtConcepto").Text
|
||||
DtMovimientos.Rows(x)("Cargo") = gvRow.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
DtMovimientos.Rows(x)("Abono") = gvRow.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
DtMovimientos.Rows(x)("TC") = gvRow.FCTextBox("TxtTC").Text.ToDecimal
|
||||
DtMovimientos.Rows(x)("ImporteME") = gvRow.FCTextBox("TxtAbonoME").Text.ToDecimal
|
||||
DtMovimientos.Rows(x)("CveSubProyecto") = gvRow.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero
|
||||
|
||||
x = x + 1
|
||||
Next
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
|
||||
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
|
||||
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
|
||||
@@ -1717,11 +1768,22 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
GvPrePoliza.EditIndex = -1
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
GvPrePoliza.Visible = True
|
||||
|
||||
If DdlPlantilla.SelectedValue.ToEntero <> 53 Then
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
UPMovs.Update()
|
||||
Else
|
||||
GvPrePoliza.EditIndex = -1
|
||||
GvPrePoliza.DataSource = DtMovimientos
|
||||
GvPrePoliza.DataBind()
|
||||
UpPrePoliza.Update()
|
||||
GvPrePoliza.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
|
||||
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
|
||||
|
||||
Reference in New Issue
Block a user