Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -4001,7 +4001,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
             PaginaDict.Add("/Contabilidad/RegPrePoliza.aspx".ToUpper(), 398)
-            PaginaDict.Add("/Contabilidad/RegPrePoliza1.aspx".ToUpper(), 398)
+            PaginaDict.Add("/Contabilidad/RegPrePoliza1.aspx".ToUpper(), 398)
+            PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398)
             PaginaDict.Add("/Contabilidad/DescargaRespaldos.aspx".ToUpper(), 400)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneral2.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/CatEjercicios.aspx".ToUpper(), 570)

Bancos/ProveedoresAbonar.aspx.vb

@@ -880,8 +880,24 @@ Partial Class Bancos_ProveedoresAbonar
                             Dim tipoCambioCompra As Decimal
                             Dim TipoCambioPago As Decimal = 0
                             Dim TipoCambioGeneral As Decimal = 0
-                            Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
+                            Dim tipoCambioCompraValuacion As Decimal = 1
-
+                            Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
+
+                            Dim TipoCambioFluctuacion As Decimal = 1
+                            Dim FechaUltimaFluctuacion As Date = MinFecha
+                            If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
+                                If ObjIE.DtResultados.Rows.Count > 0 Then
+                                    Dim tFecha As Date = TxtFechaDocumento.Text.ToDate
+                                    Dim FechaC As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
+                                    Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & FechaC & "#", "Fecha DESC")
+
+                                    If drr IsNot Nothing Then
+                                        FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate
+                                        TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal
+                                    End If
+
+                                End If
+                            End If
 
                             'inserto las compras que voy a pagar
                             For Each gvr As GridViewRow In GvCxP.Rows
@@ -895,11 +911,13 @@ Partial Class Bancos_ProveedoresAbonar
                                     ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
                                         TipoCambioPago = TxtTC.Text.ToDecimal
                                         tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                        tipoCambioCompraValuacion = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
                                         PorcentajePago = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) / gvr.DataKey("Original").ToDecimal).RoundSQL
                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
                                         'TipoCambioPago = 'GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToString.ToDecimal
                                         TipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
-                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                        tipoCambioCompraValuacion = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
                                         PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / gvr.DataKey("Original").ToDecimal
                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                         TipoCambioPago = TxtTCDolares.Text.ToDecimal
@@ -926,17 +944,17 @@ Partial Class Bancos_ProveedoresAbonar
                                                         importeMX = ImporteMovimiento
                                                     ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                         ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                        importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra
+                                                        importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompraValuacion
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                         ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                        importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra
+                                                        importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompraValuacion
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                         ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                        importeMX = ImporteMovimiento * tipoCambioCompra
+                                                        importeMX = ImporteMovimiento * tipoCambioCompraValuacion
                                                     End If
                                                     ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                     importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                    TipoCambioGeneral = tipoCambioCompra
+                                                    TipoCambioGeneral = tipoCambioCompraValuacion
                                                     ConceptoMovimiento = $"{HplProveedor.Text} F:{gvr.DataKey("SerieFolio")}"
                                                     'cuando son dolares, y tienen complementaria, se hace el registro
                                                     If gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -948,7 +966,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                         CveCuenta = CveCuentaProveedorExtranjera
                                                         If ImporteMovimiento <> 0 AndAlso (UsuarioActual.CveEmpresa = 119 Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos 
                                                             importeMX = ImporteMovimiento
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, 206, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuentaComplementaria) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, 206, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion, CveCuenta:=CveCuentaComplementaria) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -961,12 +979,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
@@ -1007,18 +1027,20 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
                                                         ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                         importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = TipoCambioPago
+                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
@@ -1041,12 +1063,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
@@ -1086,18 +1110,20 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
                                                         ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                         importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = TipoCambioPago
+                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
@@ -1120,12 +1146,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
@@ -1165,18 +1193,20 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
                                                         ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                         importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = TipoCambioPago
+                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
@@ -1199,18 +1229,20 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
                                                         ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                         importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = TipoCambioPago
+                                                        TipoCambioGeneral = tipoCambioCompra
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
@@ -1233,18 +1265,20 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
                                                         ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
                                                         importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = TipoCambioPago
+                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
@@ -1267,12 +1301,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
@@ -1300,12 +1336,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
@@ -1517,12 +1555,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                                 ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
                                                                 importeMX = ImporteMovimiento
                                                             ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                                tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                                 ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
                                                                 importeMX = ImporteMovimiento * tipoCambioCompra
                                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                                 ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
                                                                 importeMX = ImporteMovimiento * tipoCambioCompra
                                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                                tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                                 ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
                                                                 importeMX = ImporteMovimiento * tipoCambioCompra
                                                             End If
@@ -1539,12 +1579,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
@@ -1579,12 +1621,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                                 ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
                                                                 importeMX = ImporteMovimiento
                                                             ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                                tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                                 ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
                                                                 importeMX = gvr.DataKey("IVADeducible").ToDecimal * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                                 ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
                                                                 importeMX = ImporteMovimiento * tipoCambioCompra
                                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                                tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                                 ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
                                                                 importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                             End If
@@ -1601,12 +1645,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                             ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
@@ -1654,12 +1700,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento
                                                     ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * tipoCambioCompra
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * tipoCambioCompra
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * tipoCambioCompra
                                                     End If
@@ -1680,12 +1728,14 @@ Partial Class Bancos_ProveedoresAbonar
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento
                                                     ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * tipoCambioCompra
                                                     ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
                                                         ImporteMovimiento = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
                                                         importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                     End If
@@ -1700,49 +1750,101 @@ Partial Class Bancos_ProveedoresAbonar
                                                         End If
                                                     End If
                                                 Case 64 'Ganancia
-                                                    If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
+                                                    If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
-                                                        Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+
-
+                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
-                                                        'Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
+                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-                                                        Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
+                                                        'tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
-                                                        Dim IEPS As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago) 'If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
+                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion)
-
+
-                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                        Dim Diferencia As Decimal = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioCompraValuacion) - ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * TipoCambioPago) 'Añadimos la diferencia de perdida en la venta
-                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
+                                                        Diferencia -= ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
-                                                        TipoCambioGeneral = TCImpuestos
+                                                        Diferencia += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
-                                                        '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                        Diferencia += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
-                                                        If TipoCambioPago < tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        Diferencia -= ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
-                                                            ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) 'Añadimos la diferencia de ganancia en la venta
+                                                        Diferencia = Math.Round(Diferencia, 2)
-                                                            ImporteMovimiento -= (IVA * TCImpuestos) - (IVA * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA
+
-                                                            ImporteMovimiento += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        '' se considera, las diferencias, y no el tipo de cambio, por el caso de las fluctuaciones
-                                                            ImporteMovimiento += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR
+
-                                                            ImporteMovimiento -= (IEPS * TCImpuestos) - (IEPS * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioventa
-                                                            ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero))
+                                                        If Diferencia > 0 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            importeMX = ImporteMovimiento
+                                                            ImporteMovimiento = Math.Abs(Diferencia)
-                                                        End If
+                                                            importeMX = ImporteMovimiento
+                                                        End If
+
+                                                        '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioventa
+                                                        'If tipoCambioPago > tipoCambioVentaDiferenciaCambiaria AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        '    ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioPago) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioVentaDiferenciaCambiaria) 'Añadimos la diferencia de ganancia en la venta
+                                                        '    ImporteMovimiento -= ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioVentaDiferenciaCambiaria) 'Añadimos la diferencia de ganancia en el IVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVentaDiferenciaCambiaria) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVentaDiferenciaCambiaria) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        '    ImporteMovimiento -= ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVentaDiferenciaCambiaria) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        '    ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero))
+                                                        '    importeMX = ImporteMovimiento
+                                                        'End If
+
+
+                                                        'Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+
+                                                        ''Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
+                                                        'Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
+                                                        'Dim IEPS As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago) 'If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
+
+                                                        'IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                        'CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                        'Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion)
+                                                        'TipoCambioGeneral = TCImpuestos
+                                                        ''' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                        'If TipoCambioPago < tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        '    ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) 'Añadimos la diferencia de ganancia en la venta
+                                                        '    ImporteMovimiento -= (IVA * TCImpuestos) - (IVA * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        '    ImporteMovimiento -= (IEPS * TCImpuestos) - (IEPS * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        '    ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero))
+                                                        '    importeMX = ImporteMovimiento
+                                                        'End If
                                                     Else
                                                         ImporteMovimiento = 0
                                                     End If
                                                 Case 65 'Perdida
                                                     If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
-                                                        Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                        Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
-                                                        Dim IEPS As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago) 'If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
 
-                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
+                                                        'tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
-                                                        '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        If TipoCambioPago > tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+
-                                                            ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) 'Añadimos la diferencia de ganancia en la venta
+                                                        Dim Diferencia As Decimal = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioCompraValuacion) - ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * TipoCambioPago) 'Añadimos la diferencia de perdida en la venta
-                                                            ImporteMovimiento -= (IVA * tipoCambioCompra) - (IVA * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
+                                                        Diferencia -= ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
-                                                            ImporteMovimiento += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        Diferencia += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
-                                                            ImporteMovimiento += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        Diferencia += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
-                                                            ImporteMovimiento -= (IEPS * tipoCambioCompra) - (IEPS * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        Diferencia -= ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
-                                                            ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero))
+                                                        Diferencia = Math.Round(Diferencia, 2)
-                                                            importeMX = ImporteMovimiento
+                                                        'si la diferencia es negativa es pérdida, si es positiva es ganancia
+                                                        If Diferencia < 0 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                            ImporteMovimiento = Math.Abs(Diferencia)
+                                                            importeMX = ImporteMovimiento
                                                         End If
+
+                                                        'Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
+                                                        'Dim IVA As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IVAPorPagar").ToDecimal - (gvr.DataKey("IVA").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IVAPorPagar").ToDecimal, gvr.DataKey("IVA").ToDecimal * PorcentajePago)
+                                                        'Dim IEPS As Decimal = If(TotalImporte = gvr.DataKey("Saldo").ToDecimal AndAlso Math.Abs(Math.Round(gvr.DataKey("IEPSPorPagar").ToDecimal - (gvr.DataKey("IEPS").ToDecimal * PorcentajePago), 2)) <= 0.02, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago) 'If(TotalImporte = gvr.DataKey("Saldo").ToDecimal, gvr.DataKey("IEPSPorPagar").ToDecimal, gvr.DataKey("IEPS").ToDecimal * PorcentajePago)
+
+                                                        'IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                        'CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                        'Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion)
+                                                        '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                        'If TipoCambioPago > tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
+                                                        '    ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) 'Añadimos la diferencia de ganancia en la venta
+                                                        '    ImporteMovimiento -= (IVA * tipoCambioCompra) - (IVA * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        '    ImporteMovimiento += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioCompra) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        '    ImporteMovimiento -= (IEPS * tipoCambioCompra) - (IEPS * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        '    ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero))
+                                                        '    importeMX = ImporteMovimiento
+                                                        'End If
                                                     Else
                                                         ImporteMovimiento = 0
                                                     End If

Compras/Compras.aspx.vb

@@ -4396,7 +4396,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                 Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -4408,7 +4408,7 @@ Partial Class Compras_Compras
                                         If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
                                             CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
                                         End If
-                                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) Then
                                             CveConceptoContableAlmacen = 205
                                         End If
                                     Else

Compras/EvaluacionProveedor.aspx.vb

@@ -334,9 +334,10 @@ Partial Class Compras_EvaluacionProveedor
             'ObjCarta.Guardar(PathDestino)
             ObjCarta.GuardarStreamPDF()
             archivoCarta.ArchivoBinario = ObjCarta.GetBytesDocumento()
+
             Dim fileinfo As New FileInfo(PathDestino)
             Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority) & "/temp/" & fileinfo.Name
-            Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority) & "/temp/" & fileinfo.Name
+
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)
             End If

Contabilidad/RegPrePoliza.aspx.vb

@@ -171,6 +171,10 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
+            End If
+
             CveMoneda = 1
             ViewState("CvePrePoliza") = 0
             ViewState("CvePeriodo") = "0"

Contabilidad/RegPrePoliza1.aspx.vb

@@ -175,18 +175,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Beneficiario = "-1"
             Actualizar = False
 
-            Dim dt As DataTable = Nothing
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
-            If UsuarioActual.Empresa.UsaContabilidad Then
-                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                     DivTipoGasto.Visible = True
                     ThTipoGasto.Visible = True
                     CargaTiposGasto()
@@ -250,14 +239,9 @@ Partial Class ContabilidadC_RegPrePoliza
                     GvMov.Columns(4).Visible = False
                 End If
 
-            Else
-                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-                BtnIEGuardar.Enabled = False
-                BtnEliminar.Visible = False
-                LbAgregar.Enabled = False
-            End If
 
-        End If
+
+            End If
 
     End Sub
 

Contabilidad/RegPrePolizaS.aspx

@@ -0,0 +1,883 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePolizaS.aspx.vb" Inherits="ContabilidadC_RegPrePolizaS" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .GvMov input, .GvMov td {
+            height: 20px !important;
+        }
+
+        .GvSize tr > th:nth-child(1), .GvSize tr > th:nth-child(3), .GvSize tr > th:nth-child(5),
+        .GvSize tr > td:nth-child(1), .GvSize tr > td:nth-child(3), .GvSize tr > td:nth-child(5) {
+            width: 17%;
+        }
+
+        .GvSize tr > th:nth-child(2), .GvSize tr > td:nth-child(2) {
+            width: 9%;
+        }
+
+        .GvSize tr > th:nth-child(4), .GvSize tr > th:nth-child(8),
+        .GvSize tr > td:nth-child(4), .GvSize tr > td:nth-child(8) {
+            width: 12%;
+        }
+
+        .GvSize tr > th:nth-child(6), .GvSize tr > th:nth-child(7),
+        .GvSize tr > td:nth-child(6), .GvSize tr > td:nth-child(7) {
+            width: 8%;
+        }
+
+        .AutoExtender {
+            font-family: Verdana, Helvetica, sans-serif;
+            font-size: .9em;
+            font-weight: normal;
+            border: solid 1px #006699;
+            line-height: 20px;
+            padding: 2px;
+            background-color: White;
+            margin-left: 2px;
+            overflow: auto;
+            list-style-type: none;
+        }
+
+        .AutoExtenderList {
+            cursor: pointer;
+            color: darkgray;
+            text-align: left;
+        }
+
+        .AutoExtenderHighlight {
+            color: White;
+            background-color: #084784;
+            cursor: pointer;
+        }
+
+        #divwidth {
+            width: 150px !important;
+        }
+
+            #divwidth div {
+                width: 150px !important;
+            }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
+    </li>
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" Visible="false"><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <table border="0" cellpadding="0" cellspacing="0" width="100%">
+        <tr>
+            <td align="left" style="width: 665px;">
+
+                <asp:UpdatePanel ID="UPPDocumento" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <div id="DivConceptoPrePoliza" runat="server" class="chequesie22">
+                            <div class="chequesie12" runat="server" id="divDatosPrincipales">
+                                <div class="row">
+                                    <label class="col-md-2 control-label text-left">Fecha:  </label>
+                                    <div class="col-md-4" style="width: 42%;">
+                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                            <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                            </span>
+                                        </div>
+
+                                        <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+
+
+
+                                    <div class="col-md-1" style="width: 5px;">
+                                        <asp:CheckBox ID="ChkAutoConta" runat="server"></asp:CheckBox>
+                                    </div>
+                                    <label class="col-md-2">AutoContabilizar</label>
+
+                                </div>
+
+                                <div class="row" runat="server" id="divTipoPolAdd">
+                                    <label class="col-md-2">Tipo Póliza:</label>
+                                    <div class="col-md-4">
+                                        <asp:DropDownList ID="DdlTipoPolizaAdd" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="150px" ValidationGroup="GrpGuardar">
+                                            <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="chequesie22" runat="server" id="divObservaciones">
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                    </div>
+                                </div>
+
+                                <div class="row">
+                                    <label class="col-md-2">Observaciones:</label>
+                                    <div class="col-md-5">
+                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="400px" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                    </div>
+
+                                    <label class="col-md-1">Movimiento:</label>
+                                    <div class="col-md-4">
+                                        <asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar">
+                                        </asp:DropDownList>
+
+                                    </div>
+
+                                </div>
+                                <div class="row" id="trNotificar" runat="server" visible="False">
+                                    <label class="col-md-2">Notificar:</label>
+                                    <div class="col-md-10">
+                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
+                                    </div>
+                                </div>
+                                <div class="row" id="trCuentaDeposito" runat="server" visible="False">
+                                    <label class="col-md-2">Cuenta Depósito:</label>
+                                    <div class="col-md-10">
+                                        <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
+                                        <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                    </div>
+                                </div>
+                            </div>
+
+                            <div class="row">
+                                <div class="col-md-6">
+                                    <br />
+                                </div>
+                            </div>
+                            <div class="chequesie22">
+                                <div class="row" id="DivAgregarConceptos" runat="server" visible="true">
+                                    <div class="col-md-12">
+                                        <table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
+                                            <tr class="Titulos TextTab">
+                                                <th>Concepto<asp:HiddenField ID="HdnCve" runat="server" />
+                                                </th>
+                                                <th>Cta. Contable</th>
+                                                <th>Referencia</th>
+                                                <th>Descripción</th>
+                                                <th>SubProyecto</th>
+                                                <th>Cargo</th>
+                                                <th>Abono</th>
+                                                <th style="width: 100px;">Comandos</th>
+                                                <th runat="server" visible="false" id="nomostrar2"></th>
+                                            </tr>
+                                            <tr class="TextTab">
+                                                <th>
+                                                    <asp:DropDownList ID="DdlConceptosContables" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
+                                                    </asp:DropDownList><br />
+
+                                                    <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
+                                                    <br />
+                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />
+                                                </th>
+                                                <th>
+                                                    <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">
+                                                    </asp:DropDownList><br />
+                                                </th>
+                                                <th>
+                                                    <asp:TextBox ID="TxtReferencia" runat="server" Rows="2" TextMode="MultiLine" Width="150px"></asp:TextBox>
+                                                </th>
+                                                <th>
+                                                    <asp:TextBox ID="TxtDescripcion" runat="server" Rows="2" TextMode="MultiLine" Width="150px"></asp:TextBox>
+                                                </th>
+                                                <th>
+                                                    <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="160px">
+                                                    </asp:DropDownList><br />
+                                                </th>
+                                                <th>
+                                                    <asp:TextBox ID="TxtCargo" runat="server" Width="76px" Height="24px" CssClass="txtcargo"></asp:TextBox>
+                                                </th>
+                                                <th>
+                                                    <asp:TextBox ID="TxtAbono" runat="server" Width="76px" Height="24px" CssClass="txtabono"></asp:TextBox>
+                                                </th>
+                                                <th align="center">
+                                                    <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" Enabled="true" Text="Agregar"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LbCancelarEdicion" runat="server" Visible="false" CssClass="Texto" Enabled="true" Text="Cancelar"></asp:LinkButton>
+                                                </th>
+                                                <th runat="server" visible="false" id="nomostrar"></th>
+                                            </tr>
+                                        </table>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+
+                <asp:UpdatePanel ID="UpPoliza" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <div class="row" visible="false" runat="server" id="DivDatosPoliza">
+                            <label class="col-md-1">Tipo Póliza:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlTipoPoliza" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1">Fecha:</label>
+                            <div class="col-md-2">
+                                <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                    <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton runat="server" ID="ImgCalendarioPoliza" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendarioPoliza" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RFVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                            </div>
+
+                            <label class="col-md-1">Concepto:</label>
+                            <div class="col-md-5">
+                                <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
+                            </div>
+
+                        </div>
+                        <div class="row" visible="false" runat="server" id="divContabilziada">
+                            <label class="col-md-1">Contabilizada:</label>
+                            <div class="col-md-2">
+                                <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
+                            </div>
+                        </div>
+                        <div class="row" visible="false" runat="server" id="DivTipoGasto">
+                            <label class="col-md-1">Tipo Gasto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlTipoGasto" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoGasto_SelectedIndexChanged" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </td>
+        </tr>
+    </table>
+
+    <asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
+            <table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
+                <tr class="Titulos">
+                    <th>Cuenta</th>
+                    <th>Referencia</th>
+                    <th>Descripción</th>
+                    <th>SubProyecto
+                        <br />
+                        <asp:DropDownList ID="DdlSubProyectoFiltroMov" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltroMov_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList></br/>
+                    <th id="ThTipoGasto" runat="server" visible="false">Tipo Gasto</th>
+                        <th>Ref. Bancaria</th>
+                        <th>Cargo</th>
+                        <th>Abono</th>
+                        <th></th>
+                </tr>
+            </table>
+
+            <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                    <Columns>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Cuenta</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal><br />
+                                <asp:Label ID="LblCuentaCon" Font-Italic="true" Font-Size="7pt" runat="server" Text='<%# Eval("CodigoCuenta") %>'></asp:Label>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Referencia</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Literal>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Concepto</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:TextBox ID="TxtConcepto" runat="server" Width="150px" Text='<%# Eval("Concepto")%>'></asp:TextBox>
+                            </ItemTemplate>
+                            <ItemStyle />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>SubProyecto</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="140px"></asp:DropDownList>
+                            </ItemTemplate>
+                            <ItemStyle />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>TipoGasto</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                            </ItemTemplate>
+                            <ItemStyle />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Ref. Bancaria</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:DropDownList ID="DdlSaldos" CssClass="select2me" runat="server" DataValueField="CveIE" DataTextField="RazonSocialSaldo" Visible="false" Style="width: 150px;"></asp:DropDownList>
+                            </ItemTemplate>
+                            <ItemStyle />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Cargo</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Right" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Abono</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Right" />
+                        </asp:TemplateField>
+
+                        <asp:TemplateField HeaderText="Eliminar">
+                            <ItemTemplate>
+                                <asp:LinkButton ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                <asp:ImageButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
+
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+
+                    </Columns>
+                    <RowStyle CssClass="Texto" />
+                    <AlternatingRowStyle CssClass="TextoAlterno" />
+                    <HeaderStyle CssClass="Titulos" />
+                </asp:GridView>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel ID="UpPrePoliza" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
+                <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal" Width="100%" CssClass="table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                    <Columns>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Movimiento</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />
+<%--                                <asp:HiddenField ID="HdnConceptoContable" runat="server" Value='<%# Eval("CveConceptoContable") %>' />
+                                <asp:HiddenField ID="HdnProveedor" runat="server" Value='<%# Eval("CveProveedor") %>' />
+                                <asp:HiddenField ID="HdnCompra" runat="server" Value='<%# Eval("CveCompra") %>' />
+                                <asp:HiddenField ID="HdnPersonal" runat="server" Value='<%# Eval("CvePersonal") %>' />
+                                <asp:HiddenField ID="HdnCliente" runat="server" Value='<%# Eval("CveCliente") %>' />
+                                <asp:HiddenField ID="HdnVenta" runat="server" Value='<%# Eval("CveVenta") %>' />--%>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="150px" />
+                        </asp:TemplateField>
+
+                        <asp:TemplateField>
+                            <HeaderTemplate>Documento</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:HyperLink ID="HlReferencia" Target="_blank" runat="server" Text='<%# Eval("FolioFactura") %>'></asp:HyperLink>
+                                <br />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="150px" />
+                        </asp:TemplateField>
+
+                        <asp:TemplateField>
+                            <HeaderTemplate>Referencia</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="TxtRef" runat="server" Text='<%# Eval("Referencia") %>'></asp:Literal><br />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="280px" />
+                        </asp:TemplateField>
+
+                        <asp:TemplateField>
+                            <HeaderTemplate>Concepto</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto") %>'></asp:Literal><br />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="400px" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>
+                                SubProyecto
+                                <%--                                <asp:DropDownList ID="DdlSubProyectoFiltro" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltro_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList>--%>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="DdlSubProyecto" runat="server" Text='<%# If(Eval("CveSubProyecto").ToString = "0", "-", Eval("SubProyecto")) %>'></asp:Literal><br />
+                                <%--<asp:HiddenField ID="HdnSubProyecto" runat="server" Value='<%# Eval("CveSubProyecto") %>' />--%>
+                                <%--<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />--%>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="150px" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>TipoGasto</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="DdlTipoGasto" runat="server" Text='<%# Eval("TipoGasto") %>'></asp:Literal><br />
+                                <%--<asp:HiddenField ID="HdnTipoGasto" runat="server" Value='<%# Eval("CveTipoGasto") %>' />--%>
+                                <%--<asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>--%>
+                            </ItemTemplate>
+                            <ItemStyle />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Cuenta</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="DdlCtaContable" runat="server" Text='<%# Eval("CodigoCuentaContable") %>'></asp:Literal><br />
+                                <%--<asp:HiddenField ID="HdnCtaContable" runat="server" Value='<%# Eval("IdCtaContable") %>' />--%>
+                                <%--<asp:DropDownList ID="DdlCtaContable" runat="server" Width="200px" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />--%>
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="300px" />
+                        </asp:TemplateField>
+                        <asp:TemplateField Visible="false">
+                            <HeaderTemplate>TC</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlTC" runat="server" Text='<%#  String.Format("{0}-${1}", Eval("TC"), Eval("ImporteME", "{0:N2}")) %>'></asp:Literal><br />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="300px" />
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Cargo</HeaderTemplate>
+                            <ItemTemplate>
+                                <div style="text-align: right">
+                                    <asp:Literal ID="TxtCargo" runat="server" Text='<%# If(Eval("TipoMovto").ToString = "False", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:Literal><br />
+                                </div>
+                                <%--                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField>
+                            <HeaderTemplate>Abono</HeaderTemplate>
+                            <ItemTemplate>
+                                <div style="text-align: right">
+                                    <asp:Literal ID="TxtAbono" runat="server" Text='<%# If(Eval("TipoMovto").ToString = "True", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:Literal><br />
+                                </div>
+                                <%--                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+                        <asp:TemplateField>
+                            <ItemTemplate>
+                                <asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Right" Width="20px" />
+                        </asp:TemplateField>
+
+                    </Columns>
+                    <RowStyle CssClass="Texto" />
+                    <AlternatingRowStyle CssClass="TextoAlterno" />
+                    <HeaderStyle CssClass="Titulos" />
+                </asp:GridView>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <table class="table table-striped table-advance table-hover Widthall">
+        <tr>
+            <td style="width: 730px">&nbsp;</td>
+            <th style="width: 70px;">
+                <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="70px" Text="0.00"></asp:TextBox></th>
+            <th style="width: 70px;">
+                <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="70px" Text="0.00"></asp:TextBox></th>
+            <asp:HiddenField ID="HdnTotales" runat="server" ClientIDMode="Static" />
+        </tr>
+        <tr>
+            <td colspan="3" style="text-align: center;">
+                <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
+                        <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
+                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
+                        <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </td>
+        </tr>
+    </table>
+
+    <div id="DivContadoModal" align="center" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel ID="UpBancos" runat="server" class="modal-content" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloPago" runat="server" Text="Contado" />
+                        </h4>
+                    </div>
+
+                    <div class="modal-body">
+                        <asp:Panel ID="PnlContado" runat="server" Visible="False">
+                            <asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" AutoPostBack="True">
+                                <asp:ListItem Value="1" Selected="True">Bancos</asp:ListItem>
+                                <asp:ListItem Value="6">Caja Chica</asp:ListItem>
+                                <asp:ListItem Value="2">F y E</asp:ListItem>
+                                <asp:ListItem Value="4">Deudores</asp:ListItem>
+                                <asp:ListItem Value="5">Acreedores</asp:ListItem>
+                                <asp:ListItem Value="3">Créditos</asp:ListItem>
+                            </asp:RadioButtonList>
+                        </asp:Panel>
+                        <br />
+
+                        <div runat="server" id="DivContado">
+                            <asp:Panel ID="PnlContadoBancos" CssClass="chequesie text-small" runat="server" Width="400px" Visible="true">
+                                <div class="chequesie1">
+                                    <div class="row">
+                                        <label class="col-md-2">Movimiento:</label>
+                                        <div class="col-md-6">
+                                            <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpContado"></asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                    </div>
+                                    <div class="row">
+                                        <label class="col-md-2">Cuenta:</label>
+                                        <div class="col-md-6">
+                                            <asp:DropDownList ID="DdlCuenta" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpContado"></asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="chequesie2">
+                                    <div class="row">
+                                        <asp:Label ID="LblFolio" runat="server" Text="Número:" class="col-md-2"></asp:Label>
+                                        <div class="col-md-4">
+                                            <asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" runat="server" MaxLength="12"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                        <label class="col-md-2">Importe</label>
+                                        <div class="col-md-4 input-icon">
+                                            <i style="margin: 0px;">$</i>
+                                            <asp:TextBox ID="TxtDocumentoImporte" CssClass="form-control input-sm " Enabled="False" runat="server" MaxLength="12" Width="80px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                            <ajax:FilteredTextBoxExtender ID="FTBEDocumentoImporte" runat="server" TargetControlID="TxtDocumentoImporte" FilterType="Custom, Numbers" ValidChars=".," />
+                                        </div>
+                                    </div>
+
+                                    <div class="row">
+                                        <asp:Label ID="LblBeneficiario" runat="server" Text="Beneficiario:" class="col-md-2"></asp:Label>
+                                        <div class="col-md-8">
+                                            <asp:TextBox ID="TxtDocumentoBeneficiario" runat="server" CssClass="form-control input-sm"></asp:TextBox>
+                                        </div>
+                                    </div>
+
+                                    <div class="row">
+                                        <label class="col-md-2">Observaciones:</label>
+                                        <div class="col-md-8">
+                                            <asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="12" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                        </div>
+                                    </div>
+                                </div>
+
+                            </asp:Panel>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnContado" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" />
+                        <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+
+                    <asp:HiddenField ID="HiddenField1" runat="server" Value="-1" ClientIDMode="Static" />
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+
+    <div id="DivEditConcepto" align="center" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel ID="UpdatePanel1" runat="server" class="modal-content" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTitulo" runat="server" Text="Editar Concepto" />
+                        </h4>
+                    </div>
+
+                    <div class="modal-body" style="margin-left: 20px">
+                        <asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <br />
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">Concepto:</div>
+                                    <div class="col-xs-4">
+                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
+                                        </asp:DropDownList>
+                                        <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                        <ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
+                                        <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
+                                    </div>
+                                </div>
+
+                                <br />
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">
+                                        Cuenta:
+                                    </div>
+                                    <div class="col-xs-4">
+                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                    </div>
+                                </div>
+                                <br />
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">Referencia:</div>
+                                    <div class="col-xs-4">
+                                        <asp:TextBox ID="TxtReferenciaE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
+                                    </div>
+                                </div>
+                                <br />
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">Descripción:</div>
+                                    <div class="col-xs-4">
+                                        <asp:TextBox ID="TxtConceptoE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
+                                    </div>
+                                </div>
+                                <br />
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">
+                                        SubProyecto:
+                                    </div>
+                                    <div class="col-xs-3">
+                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
+                                    </div>
+                                </div>
+                                <br />
+                                <div id="DivTG" runat="server">
+                                    <div class="row">
+                                        <div class="col-xs-2" style="text-align: left">Tipo Gasto:</div>
+                                        <div class="col-xs-3">
+                                            <asp:DropDownList ID="DdlTipoGastoE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                                        </div>
+                                    </div>
+                                    <br />
+                                </div>
+                                <div class="row">
+                                    <div class="col-xs-2" style="text-align: left">
+                                        Cargo:
+                                    </div>
+                                    <div class="col-xs-3">
+                                        <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" txtcargo form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                        <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                    <div class="col-xs-1" style="text-align: left">
+                                        Abono:
+                                    </div>
+                                    <div class="col-xs-3">
+                                        <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" txtabono form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                        <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" />
+                        <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+
+    <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript" language="javascript">
+
+
+        $(document).ready(function () {
+            CargaTxtFunciones();
+            Sys.Application.add_load(function (s, e) {
+                CargaTxtFunciones();
+            });
+        });
+
+        function FnSuma(t, txt, importe) {
+            if (t.checked) {
+                txt.value = FormatNumber(importe, 2, true, true, true);
+            } else {
+                txt.value = "";
+            }
+            $get('TxtAbono').value = FormatNumber(SumaValores(), 2, true, true, true);
+        }
+
+        function FncImporte(txt, rowtxt, opcion) {
+            // opcion = 1, se registro desde el txtimporte
+            if (opcion == 1) {
+                $get(rowtxt).value = $get(txt).value == '' ? '' : FormatNumber(ToDouble($get(txt).value), 2, true, true, true);
+                debugger;
+                if ($get('ChkAbonoCuenta')) {
+                    $get('ChkAbonoCuenta').checked = ($get(txt).value > 2000);
+                }
+                FormatoMoneda($get(txt));
+            } else {
+                $get(txt).value = $get(rowtxt).value == '' ? '' : FormatNumber(ToDouble($get(rowtxt).value), 2, true, true, true);
+            }
+        }
+
+        function FncImporteCuenta(txt) {
+            if ($get('ChkAbonoCuenta')) {
+                $get('ChkAbonoCuenta').checked = (parseFloat(txt.value.replace(/,/g, '')) > 2000);
+            }
+            FormatoMoneda(txt);
+        }
+
+        function SumaValores() {
+            var Importe = 0;
+            var topLevelElem = document.getElementById("form1");
+            var textBoxes = topLevelElem.getElementsByTagName("input");
+            for (var i = 0; i < textBoxes.length; i++) {
+                if (textBoxes[i].type == "text") {
+                    if (textBoxes[i].id.indexOf('C_GvMov_TxtAbono') >= 0) {
+                        if (textBoxes[i].value != '') {
+                            Importe = parseFloat(Importe) + parseFloat(textBoxes[i].value.split(',').join(''));
+                            alert(Importe);
+                        }
+                    }
+                }
+            }
+            return Importe;
+        }
+
+        function FnCambia(chk, txt) {
+            if (txt.value != '') {
+                chk.checked = true;
+            } else {
+                chk.checked = false;
+            }
+            $get('TxtImporte').value = FormatNumber(SumaValores(), 2, true, true, true);
+        }
+
+        function getCuenta(pId) {
+            $get('HdnCveCuenta').value = pId;
+            PageMethods.wsGetNombreCuenta(pId, OnSucceeded);
+        }
+
+        function OnSucceeded(result, userContext, methodName) {
+            if (methodName == 'wsGetNombreCuenta') {
+                $get('TxtCuentaContable').value = result;
+            }
+        }
+
+        function myItemSelectedHandler(source, eventArgs) {
+            //debugger;
+            var CC = $get('HdnCveCuenta');
+            CC.value = eventArgs.get_value();
+            //             var b = $get('C_Tabs_TabConyuge_BtnTruco');
+            //             b.Click;
+            var aTargetElement = 'BtnSelCuenta';
+            __doPostBack(aTargetElement, eventArgs.get_value());
+            //alert(" Key : " + eventArgs.get_text() + "  Value :  " + eventArgs.get_value());
+        }
+
+        function LimpiaImporte(t, txt) {
+            if (t.value != '' && $get(txt)) {
+                $get(txt).value = '';
+            }
+        }
+
+
+        function CargaTxtFunciones() {
+            $(".txtcargo").each(function () {
+                $(this).keyup(function () {
+                    calculateCargo();
+                    comparar();
+                });
+            });
+            $(".txtabono").each(function () {
+                $(this).keyup(function () {
+                    calculateAbono();
+                    comparar();
+                });
+            });
+        }
+
+        function comparar() {
+            var TextoCargos = ToDouble(document.getElementById('<%= TxtTotalCargos.ClientID %>').value);
+            var TextoAbonos = ToDouble(document.getElementById('<%= TxtTotalAbonos.ClientID %>').value);
+
+            if (TextoCargos == TextoAbonos) {
+                document.getElementById('<%= TxtTotalCargos.ClientID %>').style.border = "2px solid #04B431";
+                document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.border = "2px solid #04B431";
+                document.getElementById('<%= TxtTotalCargos.ClientID %>').style.color = "";
+                document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.color = "";
+                $('#<%= HdnTotales.ClientID  %>').value = 1;
+            }
+            else {
+
+                document.getElementById('<%= TxtTotalCargos.ClientID %>').style.border = "2px solid #ff0000";
+                document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.border = "2px solid #ff0000";
+                document.getElementById('<%= TxtTotalCargos.ClientID %>').style.color = "#ff0000";
+                document.getElementById('<%= TxtTotalAbonos.ClientID %>').style.color = "#ff0000";
+            }
+        }
+
+        function calculateCargo() {
+            var sum = 0;
+            $(".txtcargo").each(function () {
+                if (!isNaN(this.value.split(',').join('')) && this.value.length != 0) {
+                    sum += parseFloat(this.value.split(',').join(''));
+                }
+            });
+            $('#<%= TxtTotalCargos.ClientID %>').val(FormatoNumero(sum.toFixed(2), 2));
+        }
+
+        function calculateAbono() {
+            var sum = 0;
+            $(".txtabono").each(function () {
+                if (!isNaN(this.value.split(',').join('')) && this.value.length != 0) {
+                    sum += parseFloat(this.value.split(',').join(''));
+                }
+            });
+            $('#<%= TxtTotalAbonos.ClientID %>').val(FormatoNumero(sum.toFixed(2), 2));
+        }
+
+
+    </script>
+</asp:Content>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2999,7 +2999,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+        If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjContaAC.IniciaTransacSQL()
             If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
@@ -3029,6 +3029,7 @@ Partial Class Inventarios_RecepcionAlmacen
             ObjInventario.RollBack()
             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+            GuardaLog(MensajeError)
             Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 

OC/OC.aspx

@@ -587,11 +587,10 @@
                         <div class="portlet-body">
                             <div class="row">
                                 <div class="col-md-1" style="max-width: 60px;">
-                                    Cliente:
+                                    Cliente:                               
-                               
                                 </div>
                                 <div class="col-md-2">
-                                    <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="CodigoNombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"    OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
                                     <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>

OC/OC.aspx.vb

@@ -529,7 +529,19 @@ Partial Class OC
                                 If DrCot IsNot Nothing Then
                                     HLCotizacion.Text = String.Format("{0}-{1}", DrCot("Serie"), DrCot("Folio")) 'CveVendedor
                                     DdlVendedor.SelectedValueExist(DrCot("CveVendedor").ToString())
-                                    Ddlcliente.SelectedValueExist(DrCot("CveCliente").ToString())
+
+
+                                    Try
+                                        Ddlcliente.txtText.Value = DrCot("ClienteNombre").ToString()
+                                        Ddlcliente.txtValue.Value = DrCot("CveCliente").ToString()
+                                    Catch ex As Exception
+
+                                    End Try
+
+
+
+
+
                                 End If
                             End If
                         End If
@@ -1207,10 +1219,15 @@ Partial Class OC
 
             ''DATOS DE VENTA
             If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
-                Ddlcliente.SelectedValueExist(objOC.CveCliente.ToString)
+
-                If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
+                Ddlcliente.txtValue.Value = objOC.CveCliente.ToString
-                    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
+                Ddlcliente.txtText.Value = objOC.NombreCliente
-                End If
+
+                'If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
+
+                '    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
+
+                'End If
 
                 DdlVendedor.SelectedValueExist(objOC.CveVendedor.ToString)
                 If DdlVendedor.SelectedValue <> objOC.CveVendedor.ToString Then
@@ -2121,7 +2138,7 @@ Partial Class OC
         Dim TieneError = False
 
         'Entrega Directa requiere Cliente y Vendedor
-        If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
+        If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
             Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
             Return True
         End If
@@ -2138,6 +2155,11 @@ Partial Class OC
             Return True
         End If
 
+        If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
 
 
         'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
@@ -2372,7 +2394,7 @@ Partial Class OC
                 If Not TieneError Then ' AGREGAR REQUISICION
                     If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                      LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
+                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                      RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
                                      IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
 
@@ -2406,7 +2428,7 @@ Partial Class OC
 
                 If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                  LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
                                  CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                  Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
@@ -2539,7 +2561,7 @@ Partial Class OC
             End If
 
             If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
-                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero,
+                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero,
                                     DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                     Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
                                     PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then
@@ -2939,6 +2961,13 @@ Partial Class OC
 
     End Sub
     Protected Function GeneraOrdenes(ByRef objOrdenCompra As ClsOC, Conta As ClsContPAQi, ByRef ObjInventarios As ClsInventarios) As Boolean
+
+
+        'If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+        '    Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+        '    Exit Function
+        'End If
+
         If TipoOS Then Return False
 
         Dim CveCotizacion As Integer = 0
@@ -2978,7 +3007,7 @@ Partial Class OC
                         RetISR = TxtRetISR.Text.ToDecimal
 
                         If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                         PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                          EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                          CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then
@@ -3045,7 +3074,7 @@ Partial Class OC
 
             Else
                 If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                  EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                                  Promocion:=Promocion) Then
@@ -4855,7 +4884,9 @@ Partial Class OC
             generarAnticipo.Visible = True
             Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)
             Ddlcliente.DataBind()
-            Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            'Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
             DdlVendedor.DataSource = GlobalDTVendedores(CveEmpresaActual)
             DdlVendedor.DataBind()
             DdlVendedor.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -5349,7 +5380,7 @@ Partial Class OC
 
     Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.SelectedValue}"))
+        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.txtValue.Value}"))
 
         DdlDireccionEnvio.Visible = False
         TxtLugarEntregaDirecta.Visible = False
@@ -5363,7 +5394,7 @@ Partial Class OC
     End Sub
     Private Sub CargaDireccionesEnvioCliente()
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.SelectedValue.ToEntero, -1) Then
+        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.txtValue.Value.ToEntero, -1) Then
             DdlDireccionEnvio.DataSource = ObjClientes.DtResultados
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 DdlDireccionEnvio.Visible = True
@@ -6563,7 +6594,7 @@ Partial Class OC
     End Sub
     Protected Sub ImgCambiaClienteVendedor_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaClienteVendedor.Click
         Dim OC As New ClsOC
-        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
+        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
             CargaHistorial()
             Alert("El cambio de cliente/vendedor se hizo correctamente", TipoMensaje.MsgInformacion)
         End If
@@ -7238,7 +7269,7 @@ Partial Class OC
             End If
         Next
         TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.SelectedValue = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue
 
         CargaSuperior()
         CargaDatosDetalles()
@@ -7282,7 +7313,7 @@ Partial Class OC
 
         DdlClienteSucursalEnvio.Items.Clear()
 
-        If ObjCliente.GetSucursales(Ddlcliente.SelectedValue.ToEntero) Then
+        If ObjCliente.GetSucursales(Ddlcliente.txtValue.Value.ToEntero) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
             End If
@@ -7312,7 +7343,7 @@ Partial Class OC
 
     Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
 
-        If Not Ddlcliente.SelectedValue.ToEntero > 0 Then
+        If Not Ddlcliente.txtValue.Value.ToEntero > 0 Then
             Alert("Tiene que tener un cliente seleccionado", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -7321,7 +7352,7 @@ Partial Class OC
         Dim TieneError = False
         Dim Estatus = If(ChkEstatus.Checked, 1, 0)
 
-        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.SelectedValue.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.txtValue.Value.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
 
         If CveDireccionEnvio < 0 Then
             TieneError = True

Ventas/ClientesAbonar.aspx.vb

@@ -1385,7 +1385,7 @@ Partial Class Ventas_ClientesAbonar
                                             ImporteMovimiento = 0
                                     End Select
 
-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
                                         If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)

Ventas/Ventas.aspx.vb

@@ -11709,6 +11709,7 @@ Partial Class Ventas
                 End If
 
             End If
+            saldo = saldo.RoundSQL()
 
             Dim maxsaldo As Decimal
             If total > saldo Then
@@ -14701,6 +14702,8 @@ Partial Class Ventas
         TmpDT.Columns.Add("EsOutSourcing", GetType(Boolean))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
 
+        TmpDT.Columns("EsOutSourcing").DefaultValue = False
+
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable

asmx/WsTSoft.asmx

@@ -65,13 +65,20 @@ Public Class WsTSoft
         If Continuar Then
             'CONSULTA DIRECCIONES
             Dim Direcciones As JArray = ConsultarDirecciones(ObjGPS.DtResultados, "Lat", "Lng")
-            For Each Dir As JObject In Direcciones
+            Try
-                ObjGPS.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                If Direcciones IsNot Nothing Then
-            Next
+                    For Each Dir As JObject In Direcciones
-
+                        ObjGPS.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
-            ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
+                    Next
-            ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
+                End If
-            ObjPos.Direccion = ObjGPS.DtResultados.Rows("0")("Direccion").ToString
+
+                ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
+                ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
+                ObjPos.Direccion = ObjGPS.DtResultados.Rows("0")("Direccion").ToString
+            Catch ex As Exception
+                ObjPos.CurrentError = "No se pudo obtener la posición."
+                OnError("Ocurrió un error al asignar las direcciones", ex)
+            End Try
         Else
             ObjPos.CurrentError = "No se pudo obtener la posición."
         End If
@@ -103,17 +110,25 @@ Public Class WsTSoft
         Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico)
         Dim objRem As New GetRemisionHistorialesObj
         If Continuar Then
-            Dim Dt = objTsoft.DtResultados.Copy()
+            Try
-            Dt.Columns.Add("Direccion", GetType(String))
+                Dim Dt = objTsoft.DtResultados.Copy()
+                Dt.Columns.Add("Direccion", GetType(String))
 
-            'CONSULTA DIRECCIONES
+                'CONSULTA DIRECCIONES
-            Dim Direcciones As JArray = ConsultarDirecciones(Dt, "Lat", "Lon")
+                Dim Direcciones As JArray = ConsultarDirecciones(Dt, "Lat", "Lon")
-            For Each Dir As JObject In Direcciones
+                If Direcciones IsNot Nothing Then
-                Dt.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                    For Each Dir As JObject In Direcciones
-            Next
+                        Dt.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                    Next
+                End If
 
-            objRem.Historial = Dt.DataTableToObject(Of GetRemisionHistorialsObj)
+                objRem.Historial = Dt.DataTableToObject(Of GetRemisionHistorialsObj)
-            objRem.CurrentError = ""
+                objRem.CurrentError = ""
+            Catch ex As Exception
+                objRem.CurrentError = "Ocurrió un error al asignar las direcciones"
+                OnError("Ocurrió un error al asignar las direcciones", ex)
+            End Try
+
         Else
             objRem.Historial = New List(Of GetRemisionHistorialsObj)
             objRem.CurrentError = objTsoft.MyCurrentError
@@ -129,11 +144,17 @@ Public Class WsTSoft
         Dim objTsoft As New ClsTSoft
         If objTsoft.GetInfoEventosPenske(FechaInicio.ToDateTime(), FechaFin.ToDateTime()) Then
             If objTsoft.DtResultados.Rows.Count > 0 Then
-                'CONSULTA DIRECCIONES
+                Try
-                Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados)
+                    'CONSULTA DIRECCIONES
-                For Each Dir As JObject In Direcciones
+                    Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados)
-                    objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                    If Direcciones IsNot Nothing Then
-                Next
+                        For Each Dir As JObject In Direcciones
+                            objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                        Next
+                    End If
+                Catch ex As Exception
+                    OnError("Ocurrió un error al asignar las direcciones", ex)
+                End Try
 
                 retorno = objTsoft.DtResultados.DataTableToJSONIPP()
             Else

vwd.webinfo

@@ -21,6 +21,10 @@
   
     
   
+    
+  
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>