-- mejoras en error de combo concepto
This commit is contained in:
@@ -359,7 +359,7 @@
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
|
||||
DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, ImporteME"
|
||||
DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME"
|
||||
Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
@@ -477,7 +477,7 @@
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
|
||||
<asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
|
||||
DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" >
|
||||
DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" >
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Movimiento</HeaderTemplate>
|
||||
@@ -740,14 +740,14 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12" runat="server" id="DvMoldalConceptoSeccion1">
|
||||
|
||||
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-xs-2" style="text-align: left">Concepto:</div>
|
||||
<div class="col-xs-2" style="text-align: left">Con Admin:</div>
|
||||
<div class="col-xs-4" style="text-align: left">
|
||||
<asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
|
||||
</asp:DropDownList>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RFVConceptoE" runat="server" ControlToValidate="DdlConceptosContablesE" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto admin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEConceptoE" runat="server" HighlightCssClass="vco" TargetControlID="RFVConceptoE" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -61,10 +61,15 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
Public Property DrConceptoContable As DataRow
|
||||
Get
|
||||
Return CType(ViewState("ArregloMovs"), DataRow)
|
||||
If ViewState("DrConceptoContable") IsNot Nothing Then
|
||||
Return CType(ViewState("DrConceptoContable"), DataRow)
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As DataRow)
|
||||
ViewState("ArregloMovs") = value
|
||||
ViewState("DrConceptoContable") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
@@ -397,97 +402,18 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
.Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
|
||||
.Add("Modificado", Type.GetType("System.Boolean"))
|
||||
.Add("EsComplementaria", Type.GetType("System.Boolean"))
|
||||
.Add("EsMonedaExtranjera", 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()
|
||||
' Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
|
||||
' Dim ObjNomina As New ClsNominas
|
||||
' Dim ObjConta As New ClsContabilidad
|
||||
|
||||
' Dim Dt As DataTable = Nothing
|
||||
' Dim Cuenta As String = ""
|
||||
' Dim Concepto As String = ""
|
||||
' Dim IdCuenta As Integer = 0
|
||||
' Dim TipoMovto As Integer
|
||||
' Dim CveConcepto As Integer
|
||||
' Dim CodigoCuenta As String = ""
|
||||
' Dim NombreCuenta As String = ""
|
||||
' Dim Referencia As String = ""
|
||||
' Dim EsComodin As Integer = 0
|
||||
' DtMovimientos.Clear()
|
||||
|
||||
' If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
|
||||
' Dt = ObjNomina.DtResultados
|
||||
|
||||
' For Each drt As DataRow In Dt.Rows
|
||||
' Dim dr As DataRow = DtMovimientos.NewRow
|
||||
|
||||
' If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
|
||||
' CveConcepto = 98
|
||||
' Cuenta = "Nominas por Pagar"
|
||||
' IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero
|
||||
' Concepto = "Pago Nomina"
|
||||
' Referencia = "Pago Nomina"
|
||||
' Else
|
||||
' Concepto = drt("NombreCompleto")
|
||||
' Referencia = ""
|
||||
' CveConcepto = drt("CveConceptoContable").ToString.ToEntero
|
||||
' Cuenta = drt("ConceptoContable").ToString
|
||||
' IdCuenta = drt("IdCtaContable").ToString.ToEntero
|
||||
' End If
|
||||
|
||||
' Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
|
||||
' CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
|
||||
' NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
|
||||
|
||||
' TipoMovto = drt("TipoMovto")
|
||||
|
||||
' If TipoMovto = 0 Then
|
||||
' dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal)
|
||||
' dr("Abono") = 0
|
||||
' Else
|
||||
' dr("Cargo") = 0
|
||||
' dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal)
|
||||
' End If
|
||||
|
||||
' dr("IdCuenta") = IdCuenta
|
||||
' dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
' dr("Cuenta") = Cuenta
|
||||
' dr("Concepto") = Concepto
|
||||
' dr("Descripcion") = Concepto
|
||||
' dr("Referencia") = Referencia
|
||||
' dr("TipoMovto") = TipoMovto
|
||||
' dr("EsComodin") = EsComodin
|
||||
' dr("CveConcepto") = CveConcepto
|
||||
' dr("CveProveedor") = "-1"
|
||||
' dr("CveSubProyecto") = drt("CveSubProyecto")
|
||||
' dr("CvePersonal") = drt("CvePersonal")
|
||||
' dr("CveClasificacion") = drt("CveClasificacion")
|
||||
' dr("CveTipoGasto") = drt("CveTipoGasto")
|
||||
|
||||
' DtMovimientos.Rows.Add(dr)
|
||||
' Next
|
||||
|
||||
' GvMov.DataSource = DtMovimientos
|
||||
' GvMov.DataBind()
|
||||
' UPMovs.Update()
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaPrePoliza()
|
||||
BtnEliminar.Visible = True
|
||||
LblEncabezado.Text = "Edición de Póliza"
|
||||
@@ -864,16 +790,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
IdCuenta = 0
|
||||
CodigoCuenta = ""
|
||||
NombreCuenta = ""
|
||||
'If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
|
||||
' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
|
||||
' If drr IsNot Nothing Then
|
||||
' IdCuenta = drt("IdCtaContable").ToString.ToEntero
|
||||
' CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
' NombreCuenta = drr("Nombre").ToString()
|
||||
' 'Cuenta = drr("Nombre").ToString()
|
||||
' End If
|
||||
' EsComodin = 0
|
||||
'End If
|
||||
|
||||
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
|
||||
@@ -894,7 +811,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
|
||||
dr("CveCuenta") = drt("CveCuenta")
|
||||
dr("EsComplementaria") = drt("EsComplementaria")
|
||||
'dr("FolioPoliza") = 0 'drt("FolioPoliza")
|
||||
dr("EsMonedaExtranjera") = drt("EsMonedaExtranjera")
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
Next
|
||||
@@ -1100,19 +1017,17 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
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
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
|
||||
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
|
||||
|
||||
Else
|
||||
Importe = gvr.DataKey("Abono").ToDecimal
|
||||
TmpAbono = TmpAbono + Importe
|
||||
TipoMovto = True
|
||||
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then
|
||||
ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
|
||||
TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
|
||||
End If
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
|
||||
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
|
||||
|
||||
End If
|
||||
Else
|
||||
If TipoGrid = 0 Then 'gvmov
|
||||
@@ -1120,22 +1035,16 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
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
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
|
||||
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
|
||||
Else
|
||||
Importe = gvr.DataKey("Cargo").ToDecimal
|
||||
TmpCargo = TmpCargo + Importe
|
||||
TipoMovto = False
|
||||
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then
|
||||
ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
|
||||
TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
|
||||
End If
|
||||
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
|
||||
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
|
||||
@@ -1153,16 +1062,19 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
If Importe <> 0 Then
|
||||
Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
|
||||
Dim tReferencia, tConcepto As String
|
||||
Dim tCveSubProyecto, tCveTipoGasto As Integer
|
||||
|
||||
Dim tReferencia As String = gvr.DataKey("Referencia")
|
||||
Dim tConcepto As String = gvr.DataKey("Concepto")
|
||||
Dim tCveSubProyecto As Integer = gvr.DataKey("CveSubProyecto").ToEntero
|
||||
Dim tCveTipoGasto As Integer = gvr.DataKey("CveTipoGasto").ToEntero
|
||||
If TipoGrid = 0 Then 'gvmov
|
||||
tReferencia = gvr.FCLiteral("LtlReferencia").Text
|
||||
tConcepto = gvr.FCTextBox("TxtConcepto").Text
|
||||
tCveSubProyecto = gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero
|
||||
tCveTipoGasto = gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero
|
||||
Else
|
||||
tReferencia = gvr.DataKey("Referencia")
|
||||
tConcepto = gvr.DataKey("Concepto")
|
||||
tCveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
|
||||
tCveTipoGasto = gvr.DataKey("CveTipoGasto").ToEntero
|
||||
End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, tReferencia, gvr.DataKey("CveConceptoContable").ToEntero, tConcepto,
|
||||
@@ -1199,7 +1111,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
MsgError = $"Error {ex.Message}"
|
||||
End Try
|
||||
|
||||
|
||||
If ContRegInsertados = 0 Then
|
||||
MsgError = $"No se insertaron registros (Revise que los importes de los registros contengan valores)"
|
||||
End If
|
||||
@@ -1414,6 +1325,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Private Sub CargaConceptosContablesE()
|
||||
DdlConceptosContablesE.DataSource = GlobalDTContaConceptosContables(-1)
|
||||
DdlConceptosContablesE.DataBind()
|
||||
DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaSubProyectoE()
|
||||
DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
@@ -1603,23 +1515,24 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
Private Sub CargaClientesE()
|
||||
DdlClientesE.setEsWebService(True)
|
||||
|
||||
DdlClientesE.Attributes.Add("data-metodo", "getcliente")
|
||||
DdlClientesE.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlClientesE.DataBind()
|
||||
'DdlClientesE.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
'DdlClientesE.DataBind()
|
||||
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1)
|
||||
DvModalconceptoVenta.Visible = True
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
DdlVentasE.DataSource = Nothing
|
||||
DdlVentasE.ClearSelection()
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
If CveMoneda = 2 Then
|
||||
DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
|
||||
Else
|
||||
DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1")
|
||||
End If
|
||||
|
||||
DdlVentasE.DataBind()
|
||||
DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
Else
|
||||
@@ -1657,7 +1570,12 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
|
||||
Private Function CargaValidacionesConcepto() As Boolean
|
||||
Dim Retorno As Boolean = true
|
||||
Dim Retorno As Boolean = True
|
||||
|
||||
If DdlConceptosContablesE.SelectedValue <= 0 Then
|
||||
Alert("No se ha especificado el concepto", TipoMensaje.ToastAdventencia)
|
||||
Return False
|
||||
End If
|
||||
|
||||
If DrConceptoContable IsNot Nothing Then
|
||||
Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString)
|
||||
@@ -1716,6 +1634,15 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
|
||||
If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString()
|
||||
dr("Modificado") = True
|
||||
dr("TC") = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If DrConceptoContable IsNot Nothing Then
|
||||
dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
|
||||
dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
|
||||
|
||||
If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
|
||||
|
||||
End If
|
||||
|
||||
If DdlPorcentajeIVAE.Visible Then
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||
@@ -1735,7 +1662,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
UpTotalCargo.Update()
|
||||
UpTotalAbono.Update()
|
||||
If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
|
||||
|
||||
Alert("Concepto Registrado", TipoMensaje.ToastInformacion)
|
||||
Else
|
||||
Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
|
||||
|
||||
@@ -1775,14 +1702,22 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
dr("TC") = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If DrConceptoContable IsNot Nothing Then
|
||||
dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
|
||||
dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
|
||||
|
||||
If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
|
||||
|
||||
End If
|
||||
|
||||
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
|
||||
|
||||
If TxtCargoE.Text <> "" Then
|
||||
dr("Cargo") = TxtCargoE.Text.ToDecimal
|
||||
dr("Abono") = "".ToDecimal
|
||||
dr("Abono") = 0
|
||||
Else
|
||||
dr("Abono") = TxtAbonoE.Text.ToDecimal
|
||||
dr("Cargo") = "".ToDecimal
|
||||
dr("Cargo") = 0
|
||||
End If
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
|
||||
Reference in New Issue
Block a user