Reportes conta 177, Compras reembolsos unificaion de poliza al actualizar

Compras/Compras.aspx.vb

@@ -9,7 +9,7 @@ Imports System.IO
 Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
-
+Imports System.Activities.Expressions
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -1167,6 +1167,25 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+
+    Private Property NumeroReembolsoOriginal As String
+        Get
+
+            If ViewState("NumeroReembolsoOriginal") Is Nothing Then
+                ViewState("NumeroReembolsoOriginal") = ""
+            End If
+
+            Return ViewState("NumeroReembolsoOriginal").ToString
+        End Get
+        Set(value As String)
+            ViewState("NumeroReembolsoOriginal") = value
+        End Set
+
+
+    End Property
+
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -2700,6 +2719,10 @@ Partial Class Compras_Compras
                     TrRembolsoCajaChica.Visible = True
                 End If
 
+                If dr("CvePersonal").ToString.ToEntero > 0 Or dr("CveCajaChica").ToString.ToEntero > 0 Then
+                    NumeroReembolsoOriginal = dr("NumeroReembolso").ToString
+                End If
+
                 VisualizaEstatusCompraSaldo(dr("TipoDocto").ToString, dr("Saldo").ToString.ToDecimal, dr("Total").ToString.ToDecimal)
                 If dr("IdPoliza").ToString.ToEntero > 0 Then
                     HplCompraContabilizada.Text = "Si"
@@ -2766,6 +2789,9 @@ Partial Class Compras_Compras
                     ImgDownPDF.Visible = True : ImgDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", dr("CveFactura"), dr("RFC").ToString.Replace("&", "%26%"))))
                 End If
 
+
+                TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True)
+
                 'CargaDetalle
                 If ObjCompra.GetCompraDetalle(CveCompra) Then
                     TmpDT = ObjCompra.DtResultados
@@ -9251,6 +9277,36 @@ Partial Class Compras_Compras
 
                     End If
 
+
+                    If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then
+
+                        'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
+                        If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
+                            If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
+                                Dim CvePreComprobacion As Integer
+                                If ObjCompra.DtResultados.Rows.Count = 0 Then
+                                    'sino existe, creamos la comprobacion
+                                    Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text)
+                                    tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim)
+
+                                    CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                                    If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+
+                                    End If
+                                Else
+                                    'si ya existe, obtenemos la prepóliza
+                                    CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+                                End If
+
+                                ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
+                            End If
+
+                        End If
+
+
+                    End If
+
                 Else
                     Retorno = False
                 End If