-- solo cargar cuentas al editar o agregar

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,6 +658,8 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub CargaCuentasContables()
+
+        If DdlCuentaContable.Items.Count = 0 Then
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                 DdlCuentaContableE.DataSource = ObjConta.DtResultados
@@ -674,6 +671,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
             DdlCuentaContableE.DataBind()
             DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+        End If
     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