-- mejoras en error de combo concepto

Contabilidad/RegPrePolizaS.aspx

@@ -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>
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -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
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
-                                    ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
-                                    TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal
+
-                                End If
                             Else
                                 Importe = gvr.DataKey("Abono").ToDecimal
                                 TmpAbono = TmpAbono + Importe
                                 TipoMovto = True
 
-                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
-                                    ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
-                                    TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
+
-                                End If
                             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
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
-                                    ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal
-                                    TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
-                                End If
                             Else
                                 Importe = gvr.DataKey("Cargo").ToDecimal
                                 TmpCargo = TmpCargo + Importe
                                 TipoMovto = False
 
-                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
-                                    ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
-                                    TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
-                                End If
                             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.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientesE.DataBind()
+        '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()