RegPrePoliza actualizar fecha, concepto

Compras/Compras.aspx.vb

@@ -5835,6 +5835,12 @@ Partial Class Compras_Compras
                                                                             End If
                                                                         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

Contabilidad/RegPrePoliza.aspx.vb

@@ -818,6 +818,10 @@ Partial Class ContabilidadC_RegPrePoliza
         If CvePrePoliza > 0 Then
             'Nuevo Modulo Charlie
             ActualizarPrePoliza()
+
+
+
+
         Else
             Dim MensajeAlert = New StringBuilder
             Dim ObjIE As New ClsBancos()
@@ -968,8 +972,17 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim ObjContabilidad As New ClsContabilidad
         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,
@@ -1003,6 +1016,13 @@ Partial Class ContabilidadC_RegPrePoliza
 
         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