From 67e4aadedae3ee3f52869f2e4acb1414f380b32e Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Mon, 19 Aug 2019 12:09:43 -0700
Subject: [PATCH] Guarda Folio correcto en la Referencia de PrePoliza

---
 Bancos/IE.aspx.vb | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 78282a279..7a2b5318c 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2376,13 +2376,18 @@ Partial Class Bancos_IE
 
                 'valida prepoliza
                 If CvePrePoliza > 0 Then
-                    Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text)
-                    Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text)
-
+                    Dim Folio As String = ""
 
                     CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
 
+                    If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+                        Folio = ObjIE.Folio
+                    End If
+
+                    Dim Conc As String = If(TxtObservaciones.Text = "", Folio, TxtObservaciones.Text)
+                    Dim Ref As String = If(TxtObservaciones.Text = "", Folio, TxtObservaciones.Text)
+
                     If CveIE > 0 Then
 
                         If Comprobante <> "" Then
@@ -2562,7 +2567,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicar = 0.0D
                                 Dim ImporteAplicarMN = 0.0D
                                 Dim ImporteAplicarME = 0.0D
-                                Dim ReferenciaAplicar = TxtFolio.Text
+                                Dim ReferenciaAplicar = Folio
                                 Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}"
 
                                 ImporteAplicar = TxtImporte.Text.ToDecimal
@@ -2643,7 +2648,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicar = 0.0D
                                 Dim ImporteAplicarMN = 0.0D
                                 Dim ImporteAplicarME = 0.0D
-                                Dim ReferenciaAplicar = TxtFolio.Text
+                                Dim ReferenciaAplicar = Folio
 
                                 Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"
 
@@ -3038,11 +3043,11 @@ Partial Class Bancos_IE
                             If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
                             ConceptoRenglon = String.Format("Anticipo {0}", PagueseA)
 
-                            IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq)
+                            IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, Folio, TipoChq)
 
                             If IDPoliza > 0 Then
                                 FolioPoliza = Conta.Folio
-                                Referencia = TxtFolio.Text
+                                Referencia = Folio
                                 ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text)
 
                                 Total = TxtImporte.Text.ToDouble