Ventas/Ventas.aspx.vb

@@ -1727,6 +1727,10 @@ Partial Class Ventas
 
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2"))
 
+            If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then
+                DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("NC de Remisión", "RNC"))
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL.
                 GvPS.Columns(ColumnaPredial).Visible = True
                 thPredial1.Visible = True
@@ -3772,7 +3776,7 @@ Partial Class Ventas
                 End If
 
                 TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString
-                If DbRowVenta("TipoCambio").ToString.ToDecimal <> DbRowVenta("TipoCambioValuacion").ToString.ToDecimal Then
+                If DbRowVenta("UltimasFluctuaciones").ToString <> "" Then
                     LblTCValuacion.Text = String.Format("Ult. Val:{0}", DbRowVenta("UltimasFluctuaciones").ToString)
                     LblTCValuacion.Visible = True
                 End If
@@ -6568,11 +6572,11 @@ Partial Class Ventas
                         'ContPAQ El movimiento 1 es el de Venta
                         Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
-                        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "Cot", "Ped", "Pd2", "PA", "NC") Then
+                        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
                             AutoConta = False
                         End If
 
-                        If AutoConta And UsuarioActual.Empresa.UsaContabilidad = True Then
+                        If AutoConta Then
                             If idCuentaContabilizacion > 0 Then
                                 If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
 
@@ -6623,7 +6627,7 @@ Partial Class Ventas
                         Dim EstatusSMS = 0
 
                         'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO
-                        If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
+                        If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "RNC", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
 
                             Dim DebeTimbrar As Boolean = True
                             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
@@ -9110,7 +9114,7 @@ Partial Class Ventas
                 CvePlantilaPoliza = 4
             ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                 CvePlantilaPoliza = 7
-            ElseIf ObjFactura.TipoDocto = "Rem" Then
+            ElseIf ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                 CvePlantilaPoliza = 4
             End If
 
@@ -9179,7 +9183,7 @@ Partial Class Ventas
 
                     Select Case ConceptoContable
                         Case 1 'Cliente
-                            If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
                                 importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -9253,6 +9257,37 @@ Partial Class Ventas
                                 ViewState("SeGuardoPrePoliza") = True
                             End If
 
+                        Case 277 'Remisión del cliente
+
+                            If ObjFactura.TipoDocto = "RNC" Then
+                                importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
+                                importeMX = importeMovimiento * tipoCambio * Multiplicador
+                                FechaMovimiento = ObjFactura.FechaPago
+                                CveSubProyectoContabilizar = CveSubProyectoVenta
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                                If tipoCambio = 1 Then
+                                    IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
+                                    CveCuenta = ObjFactura.Cliente.CveCuentaClientes
+                                Else
+                                    IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
+                                    CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
+                                End If
+                                IdCtaContableCliente = IdCtaContable
+                                CveCuentaCliente = CveCuenta
+
+                                If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                        ErrorPrepoliza = True
+                                    End If
+                                Else
+                                    ErrorPrepoliza = True
+                                End If
+
+                                importeMovimiento = 0
+                                ViewState("SeGuardoPrePoliza") = True
+                            End If
+
                         Case 12 'Nota de Credito
                             If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                                 importeMovimiento = ObjFactura.Total * ValorMultiplicador
@@ -9718,7 +9753,7 @@ Partial Class Ventas
                             importeMovimiento = 0
 
                         Case 4 'Venta Clasificacion
-                            If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then
 
                                 Dim ConceptoContableAplicar = 4
                                 Dim CveVentaAplicar = ObjFactura.CveVenta
@@ -9896,7 +9931,7 @@ Partial Class Ventas
 
                             importeMovimiento = 0
                         Case 103 'Descuento
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
 
                                 importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
@@ -9943,7 +9978,7 @@ Partial Class Ventas
                             End If
 
                         Case 8 'Ret IVA por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                 importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -9974,7 +10009,7 @@ Partial Class Ventas
                             End If
 
                         Case 9 'Ret ISR por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                 importeMovimiento = ObjFactura.RetISR * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -10004,7 +10039,7 @@ Partial Class Ventas
                                 End If
                             End If
                         Case 13 'Iva por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                 importeMovimiento = ObjFactura.IVA * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -11154,6 +11189,7 @@ Partial Class Ventas
 
             Dim ObjConta As New ClsContabilidad
             Dim ObjVenta As New ClsVentas(ObjConta.IniciaTransacSQL())
+            Dim ObjIE As New ClsBancos(ObjConta.IniciaTransacSQL())
             Dim ObjContpaq As ClsContPAQi = Nothing
 
             Dim CvePrepoliza As Integer
@@ -11186,11 +11222,16 @@ Partial Class Ventas
             '    FechaMaxima = "01/01/2018".ToDate
             'End If
 
+
+
+
+
             CvePrepoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If CvePrepoliza > 0 Then
                 Dim tipoCambioPago As Decimal = 1
                 Dim tipoCambioVenta As Decimal = 1
+                Dim tipoCambioVentaValuacion As Decimal = 1
                 Dim PorcentajePago As Decimal = 100
                 Dim dtConceptos As DataTable = Nothing
                 Dim CveMonedaVenta = DdlMoneda.SelectedValue.ToEntero
@@ -11214,21 +11255,42 @@ Partial Class Ventas
                 For Each gvr As GridViewRow In GVAnticipos.Rows
                     If gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
 
+
+                        Dim FechaUltimaFluctuacion As Date = MinFecha
+                        Dim TipoCambioFluctuacion As Decimal = 1
+                        If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
+                            If ObjIE.DtResultados.Rows.Count > 0 Then
+                                Dim tFecha As Date = gvr.DataKey("Fecha").ToDate
+                                Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
+                                Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
+
+                                If drr IsNot Nothing Then
+                                    FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate
+                                    TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal
+                                End If
+
+                            End If
+                        End If
+
                         If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en Pesos y se va a pagar en Pesos
                             tipoCambioPago = 1
                             tipoCambioVenta = 1
+                            tipoCambioVentaValuacion = 1
                             PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
                         ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
                             tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
                             tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
+                            tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
                             PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
                         ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
                             tipoCambioPago = gvr.DataKey("TipoCambio").ToString.ToDecimal
                             tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
+                            tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
                             PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
                         ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                             tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
                             tipoCambioVenta = 1
+                            tipoCambioVentaValuacion = 1
                             PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
                         End If
 
@@ -11255,17 +11317,17 @@ Partial Class Ventas
                                                 importeMX = importeMovimiento
                                             ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                                importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVenta
+                                                importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVentaValuacion
                                             ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                 importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                                importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVenta
+                                                importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVentaValuacion
                                             ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                 importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
                                                 importeMX = importeMovimiento
                                             End If
                                             importeMovimiento = Math.Round(importeMovimiento, 2)
                                             importeMX = Math.Round(importeMX, 2)
-                                            TipoCambioGeneral = tipoCambioVenta
+                                            TipoCambioGeneral = tipoCambioVentaValuacion
 
                                             If CveMonedaVenta = 1 Then
                                                 IdCtaContable = IdCtaContClientes
@@ -11286,7 +11348,7 @@ Partial Class Ventas
                                                         CveCuentaContabilizacion = 0
                                                     End If
 
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVenta) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
                                                         ErrorConta = True
                                                     End If
 
@@ -11514,13 +11576,14 @@ Partial Class Ventas
                                         If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                             CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                            Dim TipoCambioGanancia As Decimal = If(Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66), tipoCambioVentaValuacion, tipoCambioVenta)
 
-                                            If tipoCambioPago > tipoCambioVenta AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVenta) 'Añadimos la diferencia de ganancia en la venta
+                                            If tipoCambioPago > TipoCambioGanancia AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * TipoCambioGanancia) 'Añadimos la diferencia de ganancia en la venta
                                                 importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2))
                                                 importeMX = importeMovimiento
                                             End If
-                                            Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioVenta, tipoCambioPago)
+                                            Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioGanancia, tipoCambioPago)
                                             TipoCambioGeneral = TCImpuestos
                                         Else
                                             importeMovimiento = 0
@@ -11529,13 +11592,14 @@ Partial Class Ventas
                                         If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                             CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                            Dim TipoCambioPerdida As Decimal = If(Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66), tipoCambioVentaValuacion, tipoCambioVenta)
 
-                                            If tipoCambioPago < tipoCambioVenta AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVenta) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
+                                            If tipoCambioPago < TipoCambioPerdida AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * TipoCambioPerdida) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
                                                 importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2))
                                                 importeMX = importeMovimiento
                                             End If
-                                            Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioVenta, tipoCambioPago)
+                                            Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPerdida, tipoCambioPago)
                                             TipoCambioGeneral = TCImpuestos
                                         Else
                                             importeMovimiento = 0
@@ -11598,6 +11662,8 @@ Partial Class Ventas
             End If
 
             ObjConta.Dispose()
+            ObjIE.Dispose()
+
         Else
 
             'cuando no se ha registrado la venta
@@ -19932,13 +19998,19 @@ Partial Class Ventas
         CalculaTotalesVenta(True)
 
 
+
         'condicióon, en la que se verifica que el importe total de aplicación de la nota de crédito sea igual al del total de la nota de crédito, ej. saldo de la factura 1000.01 y la nota de crédito se generó po 1000.00
         If Not AplicaNCMasiva Then
             Dim TT As Decimal = TxtNCImporte.Text.ToDecimal
             If TT > TxtTotal.Text.ToDecimal Then TT = TxtTotal.Text.ToDecimal
             CargaNCDT(CveVenta, TT)
-        End If
 
+        End If
+        'verifica el tipo de cambio que se actualice
+        If DdlMoneda.SelectedValue <> "1" Then
+            TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString
+        End If
+        LblTCValuacion.Visible = False
         UpPS.Update()
 
         LBNotaCredito.Visible = False
@@ -20337,6 +20409,26 @@ Partial Class Ventas
         TrFolioFiscal.Visible = False
         TxtFecha.Text = Now.ToShortDateString()
         TipoCambioFactura = TxtTipoCambio.Text.ToDecimal
+
+        If DdlMoneda.SelectedValue.ToEntero > 1 Then
+            Dim ObjIE As New ClsBancos
+            If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
+                If ObjIE.DtResultados.Rows.Count > 0 Then
+                    Dim tFecha As Date = TxtFecha.Text.ToDate
+                    Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
+                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
+
+                    If drr IsNot Nothing Then
+                        TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal
+                    End If
+
+                End If
+            End If
+            ObjIE.Dispose()
+        Else
+            TipoCambioFactura = 1
+        End If
+
         TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString
         DivEstatusFac.Visible = False