Compras valida cambios de numero de comprovación

Compras/Compras.aspx.vb

@@ -13,6 +13,8 @@ Imports MoreLinq
 Imports System.Data.SqlClient
 Imports ClsPaginas
 Imports System.Activities.Expressions
+Imports Microsoft.Data.Edm.Expressions
+Imports Telerik.Web.UI
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -3549,7 +3551,7 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
-				RFCProveedor = ObjProveedor.RFC
+                RFCProveedor = ObjProveedor.RFC
                 If ObjProveedor.CveTipoProveedor = 2 Then
                     LblProveedor.Text = "Acreedor:"
                 Else
@@ -8693,10 +8695,6 @@ Partial Class Compras_Compras
         Next
 
 
-        'If Not validaNumeroReembolso() Then
-        '    Exit Sub
-        'End If
-
         Dim ObjCompra As New ClsCompras
         Dim ObjProveedores As New ClsCompProveedores(ObjCompra.IniciaTransacSQL())
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
@@ -9240,6 +9238,9 @@ Partial Class Compras_Compras
 
             End If
 
+            If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then
+                Retorno = False
+            End If
 
         Catch ex As Exception
             Alert("Ocurrió un error al actualizar la compra", TipoMensaje.MsgError)
@@ -9248,6 +9249,9 @@ Partial Class Compras_Compras
 
 
         Finally
+
+
+
             If Retorno Then
                 If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then
                     Alert(ObjContabilidad.MensajePolizaDescuadre.ToString)
@@ -9290,12 +9294,109 @@ Partial Class Compras_Compras
     End Sub
 
 
-    Private Function validaNumeroReembolso() As Boolean
+    Private Function validaNumeroReembolso(transaccionSql As SqlTransaction) As Boolean
 
-        If NumeroReembolsoOriginal <> TxtNumeroReembolso.Text Then
+
+        Dim objCompras As New ClsCompras(transaccionSql)
+        Dim objConta As New ClsContabilidad(transaccionSql)
+
+
+        Dim tienePagoContabilizado As Boolean = False
+        Dim ErrorProceso As Boolean = False
+
+        Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza
+        Dim CvePrePolizaReembolsoNuevo As Integer = -1
+
+        If TxtRembolsoNumero.Text.Trim.Length > 0 Then
+
+            Dim CvePersonalVal As Integer = -1
+            Dim CveCajaChicaVal As Integer = -1
+
+            If RblRembolso.SelectedValue.ToEntero = 1 Then
+                CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero
+            Else
+                CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero
+            End If
+
+            If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+
+                If objCompras.DtResultados.Rows.Count > 0 Then
+                    CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
+                Else
+
+                    Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
+
+                    tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
+
+                    CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then
+                        ErrorProceso = True
+                    End If
+
+
+                End If
+            End If
+
+
+            If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then
+
+
+                If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+
+                    If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then
+                        tienePagoContabilizado = True
+                    End If
+
+                    If tienePagoContabilizado Then
+                        Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text},  ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia)
+                        Return False
+                    End If
+
+
+                    If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+                        Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero
+
+                        If FolioPoliza > 0 Then
+                            If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+                                ErrorProceso = True
+                            End If
+                        End If
+
+                    End If
+
+
+                Else
+                    ErrorProceso = True
+                End If
+
+
+
+            ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then
+                'cambiar de  prepoliza la compra  actual, de la prepoliza  actual a la nueva
+                If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then
+                    ErrorProceso = True
+                End If
+            End If
+
+
+        Else
+
+            If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then
+                'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra  poner CvePrePolizaOriginal
+                If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then
+                    ErrorProceso = True
+                End If
+            End If
 
         End If
 
+
+
+
+        Return If(ErrorProceso, False, True)
+
     End Function
 
     Private Sub MandaCorreoActualizacionDetalle()
@@ -10785,7 +10886,7 @@ Partial Class Compras_Compras
         If ChkConsignacion.Checked Then
         End If
 
-        UpINV.Update()
+        UpInv.Update()
 
     End Sub