-- solo cargar cuentas al editar o agregar

2023-10-07 11:53:43 -07:00
parent 60da5e5527
commit a36649a8c4
1 changed files with 39 additions and 32 deletions
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -261,6 +261,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            CveMoneda = 1
            ViewState("CvePrePoliza") = 0
            ViewState("CvePeriodo") = "0"
+            ViewState("CvePeriodo") = "0"

            CveTipoTransaccion = -1
            CveCuenta = -1
@@ -270,7 +271,6 @@ Partial Class ContabilidadC_RegPrePolizaS
            Beneficiario = "-1"
            Actualizar = False
            IdPoliza = -1
-            CargaCtaContableE()

            CargaConceptosContablesE()
            CargaModalConceptoCuentas()
@@ -319,7 +319,6 @@ Partial Class ContabilidadC_RegPrePolizaS

            ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then

-
                CvePrePolizaOrigen = Request("CvePrePolizaOrigen").ToEntero
                CreaDT()
                CargaPrePolizaOrigen()
@@ -342,7 +341,6 @@ Partial Class ContabilidadC_RegPrePolizaS

            End If

-
            TipoPlantilla = -1
            If IfNull(Request("Tipo"), "").ToString = "Ing" Then
                TipoPlantilla = 1
@@ -355,13 +353,10 @@ Partial Class ContabilidadC_RegPrePolizaS

            CargaConceptos()
            CargaSubProyectos()
-            CargaCuentasContables()
+            CargaCuentasBancos()

            'crea tabla temporal
            ArregloMovs = New ArrayList
-
-            CargaCuentas()
-
            If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                GvPrePoliza.Columns(5).Visible = False
                GvMov.Columns(5).Visible = False
@@ -663,17 +658,20 @@ Partial Class ContabilidadC_RegPrePolizaS
    End Sub

    Private Sub CargaCuentasContables()
-        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-            DdlCuentaContableE.DataSource = ObjConta.DtResultados
-            DdlCuentaContable.DataSource = ObjConta.DtResultados
-            DtCuentasContables = ObjConta.DtResultados
+
+        If DdlCuentaContable.Items.Count = 0 Then
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                DdlCuentaContableE.DataSource = ObjConta.DtResultados
+                DdlCuentaContable.DataSource = ObjConta.DtResultados
+                DtCuentasContables = ObjConta.DtResultados
+            End If
+            ObjConta.Dispose()
+            DdlCuentaContable.DataBind()
+            DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
+            DdlCuentaContableE.DataBind()
+            DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
        End If
-        ObjConta.Dispose()
-        DdlCuentaContable.DataBind()
-        DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
-        DdlCuentaContableE.DataBind()
-        DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
    End Sub

    Private Sub CargaTiposGasto()
@@ -1170,7 +1168,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                                                   CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
                                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
                                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
+                                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
+                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal,
+                                                                                   CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                                    OcurrioError = True
                                    Exit For
                                End If
@@ -1218,6 +1218,14 @@ Partial Class ContabilidadC_RegPrePolizaS
            OnError("Ocurrío un error al actualizar la PrePoliza", ex)
        End Try

+        If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+            If ObjContabilidad.ValorPolizaDescuadre > 0 Then
+                OcurrioError = True
+                Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
+                GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+            End If
+        End If
+
        If Not OcurrioError Then
            ObjContabilidad.Commit()
            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False)
@@ -1241,6 +1249,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        LtlTitulo.Text = "Agregar Concepto"
        BtnAceptar.Text = "Agregar"
        LimpiaCampos()
+        CargaCuentasContables()

        'CargaConceptosContablesE()
        CargaSubProyectoE()
@@ -1282,7 +1291,6 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
        DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)

-
        TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.####")

        TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
@@ -1318,7 +1326,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlSubProyectoE.SelectedValueExist(CveSubProyecto)
        CargaTipoGastoE()
        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
-
+        CargaCuentasContables()
        DdlCuentaContableE.SelectedValueExist(CveCuenta)

        If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero
@@ -1339,7 +1347,6 @@ Partial Class ContabilidadC_RegPrePolizaS

        End If

-
        If DdlConceptosContablesE.SelectedValue.ToEntero = 30 AndAlso CvePrePoliza > 0 Then
            DdlConceptosContablesE.Enabled = False
        Else
@@ -1371,16 +1378,16 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlTipoGastoE.DataBind()
        DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
    End Sub
-    Private Sub CargaCtaContableE()
-        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-            DdlCuentaContableE.DataSource = ObjConta.DtResultados
-        End If
-        ObjConta.Dispose()
+    'Private Sub CargaCtaContableE()
+    '    Dim ObjConta As New ClsContabilidad
+    '    If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+    '        DdlCuentaContableE.DataSource = ObjConta.DtResultados
+    '    End If
+    '    ObjConta.Dispose()

-        DdlCuentaContableE.DataBind()
-        DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
-    End Sub
+    '    DdlCuentaContableE.DataBind()
+    '    DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+    'End Sub


    Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
@@ -1982,7 +1989,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlTipoTransaccion.DataBind()
        DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
    End Sub
-    Private Sub CargaCuentas()
+    Private Sub CargaCuentasBancos()
        DdlCuenta.Items.Clear()
        DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
        DdlCuenta.DataBind()
@@ -2102,11 +2109,11 @@ Partial Class ContabilidadC_RegPrePolizaS
        Actualizar = True
        GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
        Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
-
        Dim DrM As DataRow = DtMovimientos.Rows(e.NewEditIndex)

        If DrM IsNot Nothing Then
            HdnCve.Value = idMov.ToString
+            CargaCuentasContables()

            DdlCuentaContable.SelectedValueExist(DrM("CveCuenta").ToString)
            TxtReferencia.Text = DrM("Referencia").ToString