From a94811fe93e044598e800f41e870a44911778d7e Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Mon, 6 Jan 2020 13:13:57 -0700
Subject: [PATCH] RegPrePoliza actualizar fecha,   concepto

---
 Compras/Compras.aspx.vb           | 12 +++++++++---
 Contabilidad/RegPrePoliza.aspx.vb | 29 +++++++++++++++++++++++++----
 2 files changed, 34 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 530715b2b..cc7f2c705 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5833,9 +5833,15 @@ Partial Class Compras_Compras
                                                                                     CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
                                                                                 End If
                                                                             End If
-                                                                        End If
-
-                                                                        'Agregamos el Opuesto del 22 -> 15
+                                                                        End If
+
+
+                                                                        If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
+                                                                        End If
+
+
+                                                                        'Agregamos el Opuesto del 22 -> 15
                                                                         If importeMovimiento <> 0 Then
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                                 ErrorPrepoliza = True
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index d867a4a8e..623229efd 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -817,7 +817,11 @@ Partial Class ContabilidadC_RegPrePoliza
 
         If CvePrePoliza > 0 Then
             'Nuevo Modulo Charlie
-            ActualizarPrePoliza()
+            ActualizarPrePoliza()
+
+
+
+
         Else
             Dim MensajeAlert = New StringBuilder
             Dim ObjIE As New ClsBancos()
@@ -966,10 +970,19 @@ Partial Class ContabilidadC_RegPrePoliza
 
         Dim OcurrioError As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad
-        ObjContabilidad.IniciaTransacSQL()
+        ObjContabilidad.IniciaTransacSQL()
+
+
+
+        If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+            OcurrioError = True
+        End If
+
+
 
         ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate)
 
+
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
@@ -996,13 +1009,20 @@ Partial Class ContabilidadC_RegPrePoliza
         If Not OcurrioError Then
             ObjContabilidad.Commit()
             Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
-        Else
+        Else
             ObjContabilidad.RollBack()
             Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
         End If
 
         ObjContabilidad.Dispose()
         CargaPrePoliza()
+
+        If Not OcurrioError Then
+            If IdPoliza > 0 Then
+                BtnContabilizar_Click(Nothing, Nothing)
+            End If
+
+        End If
     End Sub
     Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
         RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
@@ -1463,13 +1483,14 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
 
     Private Sub Contabilizar()
+
         Dim ObjConta As New ClsContabilidad
 
         If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
             ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
         End If
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime) Then
             Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
         Else