--cambios en TC al registrar

2022-05-09 09:38:18 -07:00
parent d45afc9131
commit e2900eae42
2 changed files with 217 additions and 492 deletions
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -276,7 +276,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                End If
                ValidaCrearAPartirDe()
                DvPlantilla.Visible = False
-                UPPDocumento.Visible = False
+

                If UsuarioActual.Empresa.TipoContabilidad = 1 Then

@@ -318,9 +318,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                TxtConcepto.Enabled = True
                TxtUsuarioElaboro.Text = UsuarioActual.Usuario
                DvPlantilla.Visible = True
-                LnkAddConcepto.Visible = False
+                'LnkAddConcepto.Visible = False

-                UpPrePoliza.Visible = False
+                'UpPrePoliza.Visible = False

            End If

@@ -366,7 +366,9 @@ Partial Class ContabilidadC_RegPrePolizaS
            .Add("Concepto", Type.GetType("System.String"))
            .Add("Cargo", Type.GetType("System.Double"))
            .Add("Abono", Type.GetType("System.Double"))
-            .Add("TipoMovto", Type.GetType("System.Int32"))
+            .Add("TipoMovto", Type.GetType("System.Boolean"))
+            .Add("ImporteMN", Type.GetType("System.Decimal"))
+            .Add("ImporteME", Type.GetType("System.Decimal"))
            .Add("EsComodin", Type.GetType("System.Int32"))
            .Add("CveConcepto", Type.GetType("System.Int32"))
            .Add("CveSubProyecto", Type.GetType("System.Int32"))
@@ -384,6 +386,10 @@ Partial Class ContabilidadC_RegPrePolizaS
            .Add("IdCtaContable", Type.GetType("System.Int32"))
            .Add("ConceptoContable", Type.GetType("System.String"))
            .Add("CveCuenta", Type.GetType("System.Int32"))
+            .Add("CodigoNombreCuenta", Type.GetType("System.String"))
+            .Add("SubProyecto", Type.GetType("System.String"))
+            .Add("FolioFactura", Type.GetType("System.String"))
+            .Add("TipoGasto", Type.GetType("System.String"))

            .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
            .Add("ContadoCuenta", Type.GetType("System.Int32"))
@@ -396,6 +402,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            .Add("EsComplementaria", Type.GetType("System.Boolean"))
            .Add("TC", Type.GetType("System.Decimal"))

+
        End With


@@ -547,9 +554,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                    DtMovimientos.Columns.Add("Abono", GetType(Decimal))
                End If

-
-
-
                GvPrePoliza.DataBind()

                If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
@@ -584,9 +588,7 @@ Partial Class ContabilidadC_RegPrePolizaS

                'divDatosPrincipales.Visible = False
                'divObservaciones.Visible = False
-                UPMovs.Visible = False
-                UPMovs.Update()
-                UPPDocumento.Update()
+
                UpPrePoliza.Update()

                RegistraScript("comparar();")
@@ -847,12 +849,25 @@ Partial Class ContabilidadC_RegPrePolizaS

        If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
            DivAgregarConceptos.Visible = True
+            LnkAddConcepto.Visible = True
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
+                'DivAgregarConceptos.Visible = True
+                LnkAddConcepto.Visible = True
+                CargaConceptos()
+                CargaSubProyectos()
+                CargaCuentasContables()
+            End If
+            GvPrePoliza.Visible = True
+            DivAgregarConceptos.Visible = False
+            divMovtos.Visible = False
+            UPMovs.Update()
+
        Else
            DivAgregarConceptos.Visible = False
+            divMovtos.Visible = True
+            UPMovs.Update()
        End If

-
-
        Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero

        Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
@@ -919,7 +934,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            e.Row.Height = Unit.Pixel(1)
            e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta")

-            If e.Row.DBCampo("TipoMovto") = "1" Then
+            If e.Row.DBCampo("TipoMovto") = "True" Then
                e.Row.FCTextBox("TxtAbono").Visible = True
            Else
                e.Row.FCTextBox("TxtCargo").Visible = True
@@ -957,8 +972,8 @@ Partial Class ContabilidadC_RegPrePolizaS
            End If

            If e.Row.DBCampo("EsComplementaria") = "True" Then
-                If e.Row.DBCampo("TipoMovto") = "0" Then e.Row.FindControl("divCargoME").Visible = True
-                If e.Row.DBCampo("TipoMovto") = "1" Then e.Row.FindControl("divAbonoME").Visible = True
+                If e.Row.DBCampo("TipoMovto") = "False" Then e.Row.FindControl("divCargoME").Visible = True
+                If e.Row.DBCampo("TipoMovto") = "True" Then e.Row.FindControl("divAbonoME").Visible = True
            End If


@@ -1000,7 +1015,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        Dim CvePrePolizaInsertada As Integer = -1

        If CvePrePolizaOrigen > 0 Then
-            CrarPrePolizaApartirDe()
+            CrearPrePolizaApartirDe()
            Exit Sub
        End If

@@ -1039,9 +1054,6 @@ Partial Class ContabilidadC_RegPrePolizaS

        End If

-
-
-
        'terminan validaciones

        If CvePrePoliza > 0 Then
@@ -1102,7 +1114,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                        ImporteME = 0
                        TipoCambio = 1

-                        If gvr.DataKey("TipoMovto").ToDouble > 0 Then
+                        If gvr.DataKey("TipoMovto") = "True" Then
                            Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
                            TmpAbono = TmpAbono + Importe
                            TipoMovto = True
@@ -1173,9 +1185,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                        End If
                    End If

-
-
-
                Else
                    MsgError = "No se pudo insertar la póliza"
                End If
@@ -1204,8 +1213,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                ObjIE.Commit()
                If Conta IsNot Nothing Then Conta.Commit()

-                UPPDocumento.Update()
-
                TxtConcepto.Text = ""
                'GvMov.DataBind()
                DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
@@ -1331,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
        DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)

-        TxtModalConceptoTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
+        TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
        DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
        DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
        TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
@@ -1341,16 +1348,6 @@ Partial Class ContabilidadC_RegPrePolizaS

        DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)

-        'GvPrePoliza.Rows(IndiceGrid).DataKey("")
-
-        'dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
-        'dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
-        'dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
-        'dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
-        'dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
-        'dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
-
-
        DdlProveedoresE.SelectedValueExist(CveProveedor)
        DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
        DdlComprasE.SelectedValueExist(CveCompra)
@@ -1358,12 +1355,16 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlPersonalE.SelectedValueExist(CvePersonal)

        If CveCliente > 0 Then
+            DvModalconceptoCliente.Visible = True
            DdlClientesE.SelectedValue = CveCliente
-            DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
+            DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
            DdlClientesE_SelectedIndexChanged(DdlClientesE, e)

        End If
-        DdlVentasE.SelectedValueExist(CveVenta)
+        If CveVenta > 0 Then
+            DdlVentasE.SelectedValueExist(CveVenta)
+        End If
+

        If CveClasificacion > 0 Then
            DdlClasificacionesE.SelectedValue = CveClasificacion
@@ -1391,10 +1392,6 @@ Partial Class ContabilidadC_RegPrePolizaS
        Else
            CargaModalConceptoTipoTransaccion("Egs")
        End If
-
-
-
-
        UpModalConcepto.Update()

    End Sub
@@ -1457,6 +1454,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            Dim AplicaSubProyecto As Boolean = False
            Dim AplicaTC As Boolean = False 'ok
            Dim AplicaVenta As Boolean = False
+            Dim AplicaComplementaria As Boolean = False 'ok

            AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
            AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
@@ -1473,7 +1471,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
            AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
            AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
-
+            AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)


            If AplicaImpuesto Then
@@ -1514,26 +1512,19 @@ Partial Class ContabilidadC_RegPrePolizaS
                'DdlClasificacionesE.Visible = False
            End If

+            If AplicaVenta Then
+                DvModalconceptoVenta.Visible = True
+            Else
+                DvModalconceptoVenta.Visible = False
+            End If

            If AplicaCliente Then
                CargaClientesE()
-
                DvModalconceptoCliente.Visible = True
-                DvModalconceptoVenta.Visible = True
-
-
-                'DdlClientesE.Visible = True
-                'DdlVentasE.Visible = True
            Else
-
                DvModalconceptoCliente.Visible = False
-                DvModalconceptoVenta.Visible = False
-
-                'DdlClientesE.Visible = False
-                'DdlVentasE.Visible = False
            End If

-
            If AplicaBancos Then
                CargaModalConceptoTipoTransaccion("Egs")
                'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
@@ -1553,71 +1544,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                DVmodalConceptoTipoCambio.Visible = False
            End If

+            If AplicaComplementaria Then
+                DivMonedaExtranjera.Visible = True
+            Else
+                DivMonedaExtranjera.Visible = False
+            End If

        End If

-
-
-
-        'Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
-
-        'If dr IsNot Nothing Then
-        '    DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
-
-        'End If
-
-        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
-        '    CargaProveedoresE()
-        '    DdlProveedoresE.Visible = True
-        '    DdlComprasE.Visible = True
-        'Else
-        '    DdlProveedoresE.Visible = False
-        '    DdlComprasE.Visible = False
-        'End If
-
-        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
-        '    CargaPersonalE()
-        '    DdlPersonalE.Visible = True
-        'Else
-        '    DdlPersonalE.Visible = False
-        'End If
-
-        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
-        '    CargaClasificacionesE()
-        '    DdlClasificacionesE.Visible = True
-        'Else
-        '    DdlClasificacionesE.Visible = False
-        'End If
-
-        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
-        '    CargaClientesE()
-        '    DdlClientesE.Visible = True
-        '    DdlVentasE.Visible = True
-        'Else
-        '    DdlClientesE.Visible = False
-        '    DdlVentasE.Visible = False
-        'End If
-
-        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(30) Then
-
-        '    DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
-        '    DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
-        '    DvMoldalConceptoSeccion2.Visible = True
-        'Else
-
-        '    DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
-        '    DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
-        '    DvMoldalConceptoSeccion2.Visible = False
-        'End If
-
-
-
-
-
-
        UpModalConcepto.Update()
-
-
    End Sub
    Private Sub CargaProveedoresE()
        DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1648,12 +1583,18 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlClientesE.DataBind()
        '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
    End Sub
-    Private Sub CargaVentasE(CveCliente As Integer)
+    Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1)
+        DvModalconceptoVenta.Visible = True
        Dim ObjVentas As New ClsVentas

        DdlVentasE.ClearSelection()
        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
+            If CveMoneda = 2 Then
+                DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
+            Else
+                DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
+            End If
+
            DdlVentasE.DataBind()
            DdlVentasE.Items.Insert(0, New ListItem("  -  ", "-1"))
        Else
@@ -1678,7 +1619,8 @@ Partial Class ContabilidadC_RegPrePolizaS
        CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
    End Sub
    Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
-        CargaVentasE(DdlClientesE.SelectedValue.ToEntero)
+
+        CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1))
    End Sub


@@ -1691,181 +1633,121 @@ Partial Class ContabilidadC_RegPrePolizaS

            If DtMovimientos Is Nothing Then CreaDT()

-            If CvePrePoliza > 0 Then
-
-                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
-                Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = IdCtaContable
-                dr("CveCuenta") = DdlCuentaContableE.SelectedValue
-                'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-                dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
-                dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
-                dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
-                dr("Concepto") = TxtConceptoE.Text
-                dr("Referencia") = TxtReferenciaE.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
-                dr("Cargo") = TxtCargoE.Text.ToDouble
-                dr("Abono") = TxtAbonoE.Text.ToDouble
-                dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
-                dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
-                dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
-                dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
-                dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
-                dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
-                dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
-                dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                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
-
-                If DdlPorcentajeIVAE.Visible Then
-                    dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
-                End If
-
-
-
-                DtMovimientos.Rows.Add(dr)
-                DtMovimientos.AcceptChanges()
-
-                If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
-                    GvPrePoliza.DataSource = DtMovimientos
-                    GvPrePoliza.DataBind()
-                    UpPrePoliza.Update()
-                End If
-
-
-
-                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
-                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
-                UpTotalCargo.Update()
-                UpTotalAbono.Update()
-            Else
-                'Dim dr As DataRow = DtMovimientos.NewRow
-                'Dim CodigoCuenta As String = ""
-                'Dim NombreCuenta As String = ""
-
-                'dr("IdCuenta") = DdlCtaContableE.SelectedValue
-
-                'If DdlCtaContableE.SelectedValue.ToEntero > 0 Then
-                '    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContableE.SelectedValue))
-                '    If drr IsNot Nothing Then
-                '        CodigoCuenta = drr("CuentaFormato").ToString()
-                '        NombreCuenta = drr("Nombre").ToString()
-                '    End If
-                'End If
-
-                'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-                'dr("Cuenta") = DdlConceptosContablesE.SelectedItem.Text
-                'dr("Referencia") = TxtReferenciaE.Text
-                'dr("Concepto") = TxtConceptoE.Text
-                'dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
-                'dr("EsComodin") = 0
-                'dr("CveConcepto") = DdlConceptosContablesE.SelectedValue
-                'dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
-                'dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
-                'dr("Cargo") = TxtCargoE.Text.ToDouble
-                'dr("Abono") = TxtAbonoE.Text.ToDouble
-                ''dr("Descripcion") = TxtDescripcionE.Text
-                'dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
-                'dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
-                'dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
-                'dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
-                'dr("CveClasificacion") = -1
-                'dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
-                'dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-
-                'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero
-                'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero
-                'DtMovimientos.Rows.Add(dr)
-                'DtMovimientos.AcceptChanges()
-
-                'GvMov.DataSource = DtMovimientos
-                'GvMov.DataBind()
-                'UPMovs.Update()
-                'Actualizar = False
+            Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
+            Dim dr As DataRow = DtMovimientos.NewRow
+            dr("IdCtaContable") = IdCtaContable
+            dr("CveCuenta") = DdlCuentaContableE.SelectedValue
+            'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+            dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
+            dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
+            dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
+            dr("Concepto") = TxtConceptoE.Text
+            dr("Referencia") = TxtReferenciaE.Text
+            dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
+            dr("Cargo") = TxtCargoE.Text.ToDouble
+            dr("Abono") = TxtAbonoE.Text.ToDouble
+            dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
+            dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
+            dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
+            dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
+            dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
+            dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
+            dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
+            dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
+            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

+            If DdlPorcentajeIVAE.Visible Then
+                dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
            End If
+
+            DtMovimientos.Rows.Add(dr)
+            DtMovimientos.AcceptChanges()
+
+            If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
+                GvPrePoliza.DataSource = DtMovimientos
+                GvPrePoliza.DataBind()
+                UpPrePoliza.Visible = True
+            End If
+
+            TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+            TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+            UpTotalCargo.Update()
+            UpTotalAbono.Update()
+            RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+
        Else
            Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
+
            Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
-
-            If Rows.Count > 0 Then
-                Dim dr As DataRow = Rows(0)
-                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
-                dr("IdCtaContable") = IdCtaContable
-                dr("CveCuenta") = DdlCuentaContableE.SelectedValue
-                dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
-                dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
-                dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
-                dr("Concepto") = TxtConceptoE.Text
-                dr("Referencia") = TxtReferenciaE.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1)
-                dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
-                dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
-                dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
-                dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
-                dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
-                dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
-                dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
-                dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
-                dr("Modificado") = True
-
-                dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
-                dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
-                dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
-                dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
-                dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
-                dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
-
-                dr("TC") = TxtModalConceptoTipoCambio.Text.ToDecimal
-
-                dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToString.ToDecimal
-
-
-
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
-
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
-
-                If TxtCargoE.Text <> "" Then
-                    dr("Cargo") = TxtCargoE.Text.ToDouble
-                    dr("Abono") = "".ToDouble
-                Else
-                    dr("Abono") = TxtAbonoE.Text.ToDouble
-                    dr("Cargo") = "".ToDouble
-                End If
-
-
-                DtMovimientos.AcceptChanges()
-                GvPrePoliza.EditIndex = -1
-
-                If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
-                    GvPrePoliza.DataSource = DtMovimientos
-                    GvPrePoliza.DataBind()
-                    UpPrePoliza.Update()
-                End If
-                GvPrePoliza.Columns(11).Visible = True
-                GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
-
-                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
-                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
-                UpTotalCargo.Update()
-                UpTotalAbono.Update()
-
+            If CvePrePolizaDetalle <= 0 Then
+                Dim IdMov As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdMov").ToEntero
+                Rows = DtMovimientos.Select("IdMov = " & IdMov)
            End If
-            RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
-        End If
+            If Rows.Count > 0 Then
+                    Dim dr As DataRow = Rows(0)
+                    Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
+                    dr("IdCtaContable") = IdCtaContable
+                    dr("CveCuenta") = DdlCuentaContableE.SelectedValue
+                    dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
+                    dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
+                    dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
+                    dr("Concepto") = TxtConceptoE.Text
+                    dr("Referencia") = TxtReferenciaE.Text
+                dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
+                dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
+                    dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
+                    dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
+                    dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
+                    dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
+                    dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
+                    dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
+                    dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
+                    dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                    dr("Modificado") = True

+                    dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+                    dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+                    dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+                    dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+                    dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+                    dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal

-        UpPrePoliza.Update()
+                dr("TC") = TxtTipoCambio.Text.ToDecimal
+
+                dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
+
+                    If TxtCargoE.Text <> "" Then
+                        dr("Cargo") = TxtCargoE.Text.ToDouble
+                        dr("Abono") = "".ToDouble
+                    Else
+                        dr("Abono") = TxtAbonoE.Text.ToDouble
+                        dr("Cargo") = "".ToDouble
+                    End If
+
+                    DtMovimientos.AcceptChanges()
+                    GvPrePoliza.EditIndex = -1
+
+                'If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
+                GvPrePoliza.DataSource = DtMovimientos
+                        GvPrePoliza.DataBind()
+                        UpPrePoliza.Update()
+                GvPrePoliza.Visible = True
+                'End If
+
+                GvPrePoliza.Columns(11).Visible = True
+                    GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
+
+                    TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                    TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+                    UpTotalCargo.Update()
+                    UpTotalAbono.Update()
+
+                End If
+                RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+            End If
+            UpPrePoliza.Update()

    End Sub
    Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
@@ -1913,7 +1795,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("Cuenta") = DdlConceptosContables.SelectedItem
                dr("Referencia") = TxtReferencia.Text
                dr("Concepto") = TxtConcepto.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
                dr("EsComodin") = 0
                dr("CveConcepto") = DdlConceptosContables.SelectedValue
                dr("Cargo") = TxtCargo.Text.ToDouble
@@ -1943,7 +1825,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                dr("Concepto") = TxtDescripcion.Text
                dr("Referencia") = TxtReferencia.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
                dr("Cargo") = TxtCargo.Text.ToDouble
                dr("Abono") = TxtAbono.Text.ToDouble
                dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble)
@@ -1985,7 +1867,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("Cuenta") = DdlConceptosContables.SelectedItem.Text
                dr("Referencia") = TxtReferencia.Text
                dr("Concepto") = TxtConcepto.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
                dr("EsComodin") = 0
                dr("CveConcepto") = DdlConceptosContables.SelectedValue
                dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
@@ -2006,12 +1888,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                DtMovimientos.Rows.Add(dr)
                DtMovimientos.AcceptChanges()

-                'If CvePrePoliza > 0 Then
-                '    GvPrePoliza.DataSource = DtMovimientos
-                '    GvPrePoliza.DataBind()
-                '    UpPrePoliza.Update()
-                'End If
-
                GvMov.DataSource = DtMovimientos
                GvMov.DataBind()
                UPMovs.Update()
@@ -2140,7 +2016,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            Next
            UpPrePoliza.Update()
        End If
-        If UPMovs.Visible Then
+        If divMovtos.Visible Then
            For Each Gvr As GridViewRow In GvMov.Rows
                Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
            Next
@@ -2217,58 +2093,6 @@ Partial Class ContabilidadC_RegPrePolizaS

        End If

-        UPPDocumento.Update()
-        DivAgregarConceptos.Visible = True
-
-        'If DtMovimientos Is Nothing Then CreaDT()
-
-        'Dim dr As DataRow = DtMovimientos.NewRow
-        'Dim CodigoCuenta As String = ""
-        'Dim NombreCuenta As String = ""
-
-        'dr("IdCuenta") = DdlCtaContable.SelectedValue
-
-        'If DdlCtaContable.SelectedValue.ToEntero > 0 Then
-        '    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
-        '    If drr IsNot Nothing Then
-        '        CodigoCuenta = drr("CuentaFormato").ToString()
-        '        NombreCuenta = drr("Nombre").ToString()
-        '    End If
-        'End If
-
-        'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-        'dr("Cuenta") = DdlConceptosContables.SelectedItem
-        'dr("Referencia") = TxtReferencia.Text
-        'dr("Concepto") = TxtObservaciones.Text
-        'dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
-        'dr("EsComodin") = 0
-        'dr("CveConcepto") = DdlConceptosContables.SelectedValue
-        'dr("Cargo") = TxtCargo.Text.ToDouble
-        'dr("Abono") = TxtAbono.Text.ToDouble
-        'dr("Descripcion") = TxtDescripcion.Text
-        'dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
-        'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
-        'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
-        'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-        'dr("CveClasificacion") = -1
-        'dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
-        'dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
-
-        'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
-        'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
-        'DtMovimientos.Rows.Add(dr)
-
-        'If CvePrePoliza > 0 Then
-        '    GvPrePoliza.DataSource = DtMovimientos
-        '    GvPrePoliza.DataBind()
-        'End If
-
-
-        'GvMov.DataSource = DtMovimientos
-        'GvMov.DataBind()
-        'UPMovs.Update()
-
-
    End Sub

    Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click
@@ -2956,9 +2780,7 @@ Partial Class ContabilidadC_RegPrePolizaS

                'divDatosPrincipales.Visible = False
                'divObservaciones.Visible = False
-                UPMovs.Visible = False
-                UPMovs.Update()
-                UPPDocumento.Update()
+
                UpPrePoliza.Update()

                RegistraScript("comparar();")
@@ -2988,7 +2810,7 @@ Partial Class ContabilidadC_RegPrePolizaS
    End Sub


-    Private Sub CrarPrePolizaApartirDe()
+    Private Sub CrearPrePolizaApartirDe()
        Dim CvePrePoliza As Integer
        Dim FolioPoliza As Integer

@@ -3131,9 +2953,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                            MsgError = ObjMov.MensajePolizaDescuadre
                        End If
                    End If
-
-
-
                Else
                    MsgError = "No se pudo insertar la póliza"
                End If
@@ -3157,8 +2976,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                ObjIE.Commit()
                If Conta IsNot Nothing Then Conta.Commit()

-                UPPDocumento.Update()
-
                TxtConcepto.Text = ""
                GvMov.DataBind()
                TxtFechaDocumento.Text = ""