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

Acarreos/CatChoferes.aspx.vb

@@ -212,9 +212,11 @@ Partial Class Acarreos_CatChoferes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         HdnID.Value = GvRow.DataKey("CveChofer")
         UpDatos.Update()
-        If ObjAcar.RemoveChofer(HdnID.Value) Then
+        If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then
             CargaDatos()
             Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+        Else
+            Alert("No se puede eliminar el chofer. verifique que no tenga movimientos registrados.", TipoMensaje.MsgError)
         End If
         ObjAcar.Dispose()
         UpDatos.Update()
@@ -312,7 +314,7 @@ Partial Class Acarreos_CatChoferes
         If CPTxt > 0 And CveColonia > 0 Then
             Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero
             If CPTxt <> CP Then
-                Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+                Alert("El código postal seleccionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
             End If
         End If
     End Sub

App_Code/ClsAcarreos.vb

@@ -207,16 +207,17 @@ Public Class ClsAcarreos
         Return Retorno
     End Function
 
-    Public Function RemoveChofer(CveChofer As Integer) As Boolean
+    Public Function RemoveChofer(CveChofer As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Acar_ChoferesRemove")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
-
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@vRetorno", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = SqlAdapter.SelectCommand.Parameters("@vRetorno").Value.ToString = "1"
         Catch ex As Exception
             OnError("Ocurrió un error al eliminar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try

App_Code/ClsBancos.vb

@@ -3353,8 +3353,8 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer
-        Dim Retorno As Boolean = False
+        Dim Retorno As Integer = 0
 
         DataAdapter("PA_Banc_FluctuacionesBitacoraAdd")
 
@@ -3364,11 +3364,13 @@ Public Class ClsBancos
             .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@vCveFluctuacionBitacora", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = SqlAdapter.SelectCommand.Parameters("@vCveFluctuacionBitacora").Value.ToString.ToEntero
+
         Catch ex As Exception
             OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
@@ -3395,6 +3397,52 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
+
+    Public Function UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = True
+
+        DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+            .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+            .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function FluctuacionesBitacoraPrePolizaRemove(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = True
+
+        DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+            .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+            .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #End Region
 
 #Region "B A N C O S - T A R J E T A S  C R E D I T O S"

App_Code/ClsContabilidad.vb

@@ -6576,14 +6576,17 @@ Public Class ClsContabilidad
     End Function
 
 #Region "F L U C T U A C I O N - C A M B I A R I A"
-    Public Function UpdateVentaTCValuacion(CveVenta As Integer, TCValuacion As Decimal) As Boolean
+    Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean
         Dim Retorno = False
 
-        DataAdapter("PA_Conta_VentasTCValuacionUpdate")
+        DataAdapter("PA_Conta_TipoCambioValuacionUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
             .Add("@TCValuacion", SqlDbType.Decimal).Value = TCValuacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -6615,6 +6618,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
 #End Region
 
 #Region "IDisposable Support"

App_Code/ClsMovimientos.vb

@@ -1505,7 +1505,7 @@ Public Class ClsMovimientos
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
                                        Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
                                        Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
-                                        Optional CveCondicionesPago As Integer = -1) As Boolean
+                                        Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1530,6 +1530,7 @@ Public Class ClsMovimientos
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
             .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
@@ -1590,7 +1591,8 @@ Public Class ClsMovimientos
                                  Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
                                  Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1,
                                  Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing,
-                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
+                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
+                                 Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1620,6 +1622,8 @@ Public Class ClsMovimientos
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
             .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString

App_Code/Timbrado.vb

@@ -20,7 +20,7 @@ Public Class Timbrado
     Public Property CancelacionState As Integer
     Public Property CancelacionMensaje As String
     Public Property CancelacionFecha As Date
-
+    Public Const LigaVerificacionSAT = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
 
     Public Class AcuseCancelacionSAT
         Public Property CodigoEstatus As String
@@ -1956,8 +1956,9 @@ Public Class Timbrado
                     If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\")
 
                     Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                    Dim b As Byte() = cfdi.ConvertirQrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
+                    Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                    File.WriteAllBytes(RutaCBB, b)
+                    CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
+                    CBB = Nothing
 
                     Retorno = ""
                 Else
@@ -2342,7 +2343,7 @@ Public Class Timbrado
                 cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
                 If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                     For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
                         For Each transp In concep.MercanciasCantidadTransporta
                             cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
                         Next
@@ -2665,8 +2666,9 @@ Public Class Timbrado
 
                     Try
                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                        Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
+                        Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==")
-                        File.WriteAllBytes(RutaCBB, b)
+                        File.WriteAllBytes(RutaCBB, bCBB)
+                        bCBB = Nothing
                     Catch ex As Exception
                         OnError("Ocurrió un error al generar el QR", ex)
                     End Try
@@ -3268,8 +3270,9 @@ Public Class Timbrado
 
                         Try
                             Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                            Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
+                            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                            File.WriteAllBytes(RutaCBB, b)
+                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
+                            CBB = Nothing
                         Catch ex As Exception
                             OnError("Ocurrió un error al generar el QR", ex)
                         End Try
@@ -3684,7 +3687,7 @@ Public Class Timbrado
                 cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
                 If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                     For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
                         For Each transp In concep.MercanciasCantidadTransporta
                             cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
                         Next

Bancos/DepositosCaja.aspx

@@ -416,13 +416,19 @@
                         comisionNegativa = txtcomision * -1;
                     }
                     if (comisionNegativa > saldo) {
-                        $('#C_TxtComision').val(0);
+                         
-                        comision = 0;
+                        //var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?");
-                        descuento = 0;
+                        //if (opcion != true) {
-                        txtcomision = 0;
+                        //    debugger;
-                        alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado");
+                        //    $('#C_TxtComision').val(0);
-                        saldo = 0;
+                        //    comision = 0;
-                        $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+                        //    descuento = 0;
+                        //    txtcomision = 0;
+                        //    //alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado");
+                        //    saldo = 0;
+                        //    $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+                        //}
+                       
                     } else {
 
                         //debugger;
@@ -509,14 +515,18 @@
             if (comision2 < 0) {
                 comisionNegativa = comision2 * -1;
             }
-            if (comisionNegativa > ValorTotalSeleccionado) {
+            //if (comisionNegativa > ValorTotalSeleccionado) {
-                $('#C_TxtComision').val(0)
+            //    var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?");
-                alert("No es posible poner una comision superior a lo seleccionado")
+            //    if (opcion != true) {
-            } else {
+            //        debugger;
+            //        $('#C_TxtComision').val(0)
+            //       // alert("No es posible poner una comision superior a lo seleccionado")
+            //    }
+            //} else {
                 saldo = ValorTotalSeleccionado + comision2 + descuento - IVA - ComisionIntermediario;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 comision = ToDouble($('#C_TxtComision').val())
-            }
+            //}
                 
         }
 

Bancos/DepositosCaja.aspx.vb

@@ -236,17 +236,21 @@ Partial Class Bancos_DepositosCaja
             End If
 
         End If
+        Dim CveTransaccionBanco As Integer = 13
+
+        If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
+            CveTransaccionBanco = 6
+        End If
 
         'Entrada a bancos
-        FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13)
+        FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
         If Not FolioIE > 0 Then
             OcurrioError = True
         End If
-        CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
+        CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
 
         documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>  &nbsp &nbsp <br/> ", CveIEOrigen, FolioIE)
 
-
         If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
 
             If ChkFaltante.Checked Then
@@ -257,8 +261,6 @@ Partial Class Bancos_DepositosCaja
                         OcurrioError = True
                     End If
                 End If
-
-
             End If
 
             If ChkDescuento.Checked Then
@@ -270,12 +272,10 @@ Partial Class Bancos_DepositosCaja
                 End If
             End If
 
-
-
         Else
             OcurrioError = True
         End If
-
+        If Not OcurrioError Then
             For Each Gvr As GridViewRow In GvFacturas.Rows
 
                 If Gvr.FCCheckBox("ChkFactura").Checked Then
@@ -309,27 +309,25 @@ Partial Class Bancos_DepositosCaja
                         Exit For
                     End If
 
-
                 End If
 
             Next
 
             Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
 
-
             documentos += String.Format("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, "Depósito Bancario")
 
+        End If
+
         If OcurrioError Then
             ObjContabilidad.RollBack()
             Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
         Else
             ObjContabilidad.Commit()
-            CargaDatos()
-
             documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Prepóliza</a> <br/><br/> ", NuevaCvePrePoliza)
 
             Alert(documentos.ToString)
-
+            CargaDatos()
 
         End If
         TxtComision.Text = ""

Bancos/FluctuacionCambiaria.aspx

@@ -151,6 +151,7 @@
             </div>
             <div style="float: right; margin-right: 10px;">
                 <asp:Label runat="server" ID="LtlUltimaFluctuacion" Font-Italic="True"></asp:Label>
+                <asp:HiddenField ID="HdnCveFluctuacionBitacora" runat="server" />
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -159,7 +160,7 @@
     <asp:UpdatePanel ID="UpTabs" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <ajax:TabContainer runat="server" ID="T">
-                <ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Compras">
+                <ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Proveedores">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpIndicadores" UpdateMode="Conditional" runat="server" Visible="False">
                             <ContentTemplate>
@@ -223,7 +224,6 @@
 
                         <div class="row">
                              
-
                             <div class="col-md-5 form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="96%"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVTxtConceptoCompras" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCompras"
@@ -232,7 +232,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoCompras" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoCompras.ClientID.ToString()%>">
@@ -241,33 +241,32 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-6" style="text-align: right!important">
+                            <div class="col-md-2" style="text-align: right!important">
                                 <asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
-                            </div>
+                                <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
+                                <asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" /></div>
 
                         </div>
                          
-
-
-
                         <br />
                         <asp:GridView ID="GvCompras" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria"
+                            DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
-                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank"  DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:BoundField HeaderText="# Facturas" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                 <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Fluctuación Pesos" DataField="FluctuacionTotal" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="PerdidaGanancia" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="PerdidaGanancia" ItemStyle-Width="100"  />
                             </Columns>
                         </asp:GridView>
                         <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
                     </ContentTemplate>
                 </ajax:TabPanel>
-                <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Ventas">
+                <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Clientes">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpIndicadoresVentas" UpdateMode="Conditional" runat="server" Visible="false">
                             <ContentTemplate>
@@ -308,6 +307,7 @@
                                         <div class="widget-thumb text-uppercase  bordered">
                                             <h4 class="widget-thumb-heading">
                                                 <asp:Label ID="LblVentasPerdidaGanancia" runat="server" Text=""></asp:Label></h4>
+                                            
                                             <div class="widget-thumb-wrap">
                                                 <i id="IImagenFinalVentas" runat="server" class=""></i>
                                                 <div class="widget-thumb-body">
@@ -339,7 +339,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlsubProyectoVentas" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlsubProyectoVentas.ClientID.ToString()%>">
@@ -362,12 +362,13 @@
 
 
                         <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria" EmptyDataText="No se Encontraron Cuentas Bancarias."
+                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto,CveIE" EmptyDataText="No se Encontraron Cuentas Bancarias."
                             ToolTip="Listado de Cuentas Bancarias" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
-                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
+                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
-                                <asp:BoundField DataField="SerieFolio" HeaderText="SerieFolio" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="Diferencia" HeaderText="Diferencia TC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N4}" />
@@ -393,7 +394,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubproyectoBancos.ClientID.ToString()%>">
@@ -453,7 +454,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoDeudores.ClientID.ToString()%>">
@@ -504,7 +505,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoAcreedores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoAcreedores.ClientID.ToString()%>">
@@ -513,9 +514,6 @@
                                 <asp:RequiredFieldValidator ID="RFVDdlSubProyectoAcreedores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoAcreedores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedores"></asp:RequiredFieldValidator>
                                 <i></i>
                             </div> 
-
-
-
                             <div class="col-md-6" style="text-align: right!important">
                                 <asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
                             </div>
@@ -524,7 +522,7 @@
 
 
                         <asp:GridView ID="GvAcreedores" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio"
+                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio,IdCtaContComplementaria,CveIE"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
@@ -553,7 +551,7 @@
                                 <i></i>
                             </div>
 
-                            <div class="col-md-1 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:DropDownList ID="DdlSubProyectoFiliales" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
                                 <label for="<%= DdlSubProyectoFiliales.ClientID.ToString()%>">

Bancos/FluctuacionCambiaria.aspx.vb

@@ -131,6 +131,10 @@ Partial Class Bancos_FluctuacionCambiaria
             Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
 
             Dim Final As Double = GanaciaAux - PerdidaAux
+            HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0
 
             IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
 
@@ -281,7 +285,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         Dim idCta As Integer = 0
@@ -318,30 +322,38 @@ Partial Class Bancos_FluctuacionCambiaria
             ErrorRegistrar = True
         End If
 
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
 
+        If Not ErrorRegistrar Then
             'saco las cuentas de pérdida y ganancia
             For Each gvr As GridViewRow In GvCompras.Rows
                 Total = gvr.DataKey("Fluctuacion").ToDecimal
                 'si es pérdida o ganancia 
+                IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
-            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
                 'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 201, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
 
-            If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+                If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
 
             Next
 
+            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
+
+        End If
+
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-
         Else
             Conta.RollBack()
         End If
@@ -393,13 +405,18 @@ Partial Class Bancos_FluctuacionCambiaria
         End If
 
         Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
         Dim CveConconceptoCliente As Integer = 203
 
         'saco las cuentas de pérdida y ganancia
@@ -408,24 +425,30 @@ Partial Class Bancos_FluctuacionCambiaria
 
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
-            If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
+            If (gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0) OrElse (gvr.DataKey("CveVenta").ToEntero > 0 AndAlso gvr.DataKey("TipoDocto") = "Ant") Then
                 CveConconceptoCliente = 226
             Else
                 CveConconceptoCliente = 203
             End If
 
-            If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+            'movimiento de complementaria
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
 
-            'movimiento de complementaria
+            If Not Conta.UpdateTCValuacion(gvr.DataKey("CveVenta").ToEntero, -1, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
+
         Next
 
+        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+
+
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
@@ -705,7 +728,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -736,24 +759,40 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
 
         'saco las cuentas de pérdida y ganancia
         For Each gvr As GridViewRow In GvAcreedores.Rows
             Total = gvr.DataKey("Fluctuacion").ToDecimal
             'si es pérdida o ganancia 
-
+            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
             If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria) Then
                 ErrorRegistrar = True
                 Exit For
             End If
+
+            'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+            '    ErrorRegistrar = True
+            '    Exit For
+            'End If
+
         Next
 
+        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
+
+
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
@@ -761,160 +800,11 @@ Partial Class Bancos_FluctuacionCambiaria
             Conta.RollBack()
         End If
         Conta.Dispose()
+        Banco.Dispose()
     End Sub
 
 #End Region
      
-#Region "FLUCTUACION GENERAL"
-
-    '    Protected Sub BtnGenerar_Click(sender As Object, e As EventArgs)
-    '        Dim AcumuladoGananciaCompras = 0.0, AcumuladoPerdidaCompras = 0.0, AcumuladoGananciaBancos = 0.0, AcumuladoPerdidaBancos = 0.0
-    '        Dim IDPoliza = -1
-
-    '        'Valida datos de Compras
-    '        For Each gvr As GridViewRow In GvCompras.Rows
-    '            If gvr.DataKey("SinTipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                Alert("No se puede Generar la Fluctuación ya que faltan datos en Compras")
-    '                'Exit Sub
-    '            Else
-    '                If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                    If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
-    '                        AcumuladoGananciaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    Else
-    '                        AcumuladoPerdidaCompras += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
-    '                    End If
-    '                End If
-
-    '            End If
-    '        Next
-
-    '        'Valida datos de Bancos
-    '        For Each gvr As GridViewRow In GvCuentas.Rows
-    '            If Not gvr.DataKey("TipoCambio").ToString.ToEntero > 0 AndAlso Not gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                Alert("No se puede Generar la Fluctuación ya que faltan datos en Cuentas Bancarias")
-    '                'Exit Sub
-    '            Else
-    '                If gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                    If gvr.DataKey("Fluctuacion").ToString.ToDouble > 0 Then
-    '                        AcumuladoGananciaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    Else
-    '                        AcumuladoPerdidaBancos += gvr.DataKey("Fluctuacion").ToString.ToDouble * -1
-    '                    End If
-    '                End If
-
-    '            End If
-    '        Next
-
-    '        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-    '        ObjConta.IniciaTransacSQL()
-    '        Dim ObjBancos As New ClsBancos
-    '        ObjBancos.IniciaTransacSQL()
-    '        Dim ErrorGenerar = False
-    '        Dim Fecha As Date = TxtFecha.Text.ToDate
-
-    '        IDPoliza = ObjConta.AddPoliza(3, "Fluctuación Cambiaria", (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, (AcumuladoGananciaCompras + AcumuladoPerdidaCompras) * 2, UsuarioActual.CveUsuario, Fecha)
-
-    '        If IDPoliza > 0 Then
-
-    '            'COMIENZA: AGREGA CUENTAS BANCARIAS
-    '            If AcumuladoGananciaBancos > 0 Or AcumuladoPerdidaBancos > 0 Then
-    '                'Agrega movimientos
-    '                Dim Fluc As Double
-    '                For Each gvr As GridViewRow In GvCuentas.Rows
-    '                    Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                        If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Cuentas Bancarias", If(Fluc > 0, "Ganancia", "Perdida")), 0, Fecha, "") Then
-    '                            ErrorGenerar = True
-    '                            Exit For
-    '                        End If
-    '                    End If
-    '                Next
-
-    '                'Agrega acumulados
-    '                If Not ErrorGenerar AndAlso AcumuladoGananciaBancos > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, 2195, AcumuladoGananciaBancos > 0, AcumuladoGananciaBancos, "", "Acumulado Ganancia Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '                If Not ErrorGenerar AndAlso AcumuladoPerdidaBancos > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, 4695, AcumuladoPerdidaBancos > 0, AcumuladoPerdidaBancos, "", "Acumulado Pérdida Cambiaria de Cuentas Bancarias", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '            'TERMINA: AGREGA CUENTAS BANCARIAS
-
-
-    '            'COMIENZA: AGREGA COMPRAS
-    '            If AcumuladoGananciaCompras > 0 Or AcumuladoPerdidaCompras > 0 Then
-    '                'Agrega movimientos
-    '                Dim Fluc As Double
-    '                For Each gvr As GridViewRow In GvCompras.Rows
-    '                    Fluc = gvr.DataKey("Fluctuacion").ToString.ToDouble
-    '                    If Math.Abs(Fluc) > 0 AndAlso gvr.DataKey("IdCtaAfectable").ToString.ToEntero > 0 Then
-    '                        If Not ObjConta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaAfectable").ToString.ToEntero, Not Fluc > 0, Math.Abs(Fluc), "", String.Format("{0} Cambiaria de Compras", If(Fluc > 0, "Ganancia", "Pérdida")), 0, Fecha, "") Then
-    '                            ErrorGenerar = True
-    '                            Exit For
-    '                        End If
-    '                    End If
-    '                Next
-
-    '                'Agrega acumulados
-    '                If Not ErrorGenerar AndAlso AcumuladoGananciaCompras > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, Not AcumuladoGananciaCompras > 0, AcumuladoGananciaCompras, "", "Acumulado Ganancia Cambiaria de Compras", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '                If Not ErrorGenerar AndAlso AcumuladoPerdidaCompras > 0 Then
-    '                    If Not ObjConta.AddMovimiento(IDPoliza, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, Not AcumuladoPerdidaCompras > 0, AcumuladoPerdidaCompras, "", "Acumulado Pérdida Cambiaria de Compras", 0, Fecha, "") Then
-    '                        ErrorGenerar = True
-    '                    End If
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '            'TERMINA: AGREGA COMPRAS
-
-
-    '        Else
-    '            ErrorGenerar = True
-    '        End If
-
-
-    '        'Agrega en Bitacoras
-    '        If Not ErrorGenerar Then
-    '            If ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-    '                If Not ObjBancos.AddFluctuacionesBitacora(IDPoliza, Fecha, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-    '                    ErrorGenerar = True
-    '                End If
-    '            Else
-    '                ErrorGenerar = True
-    '            End If
-    '        End If
-
-
-    '        If Not ErrorGenerar Then
-
-    '            ObjConta.AjustaPoliza(IDPoliza)
-
-    '            ObjConta.Commit()
-    '            ObjBancos.Commit()
-    '            Alert(String.Format("Fluctuación realizada con exito.<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza))
-    '        Else
-    '            ObjConta.RollBack()
-    '            ObjBancos.RollBack()
-    '            Alert("Ocurrio un error al generar la poliza", TipoMensaje.MsgAdvertencia)
-    '        End If
-
-    '        ObjConta.Dispose()
-    '        ObjBancos.Dispose()
-    '    End Sub
-
-
-#End Region
-
 #Region "GRIDVIEWS"
 
     Protected Sub GvCompras_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompras.RowDataBound
@@ -981,4 +871,17 @@ Partial Class Bancos_FluctuacionCambiaria
 #End Region
 
 
+    Protected Sub BtnProveedoresRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+
+    End Sub
 End Class

Compras/Compras.aspx.vb

@@ -2194,6 +2194,9 @@ Partial Class Compras_Compras
             DdlRetISRConcepto.Items.Clear()
             DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
             DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
+            If UsuarioActual.CveEmpresa = 119 Then
+                DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+            End If
         End If
         UpPS.Update()
     End Sub
@@ -6315,7 +6318,10 @@ Partial Class Compras_Compras
                                                                         funcionalidad = 318
                                                                         ConceptoContable = 244
                                                                         ConceptoContableContra = 243
-
+                                                                    ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
+                                                                        funcionalidad = 348
+                                                                        ConceptoContable = 328
+                                                                        ConceptoContableContra = 327
                                                                     End If
 
                                                                     importeMovimiento = importeRetISRAcreditable
@@ -6352,7 +6358,9 @@ Partial Class Compras_Compras
                                                                     ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
                                                                         funcionalidad = 317
                                                                         ConceptoContable = 243
-
+                                                                    ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
+                                                                        funcionalidad = 348
+                                                                        ConceptoContable = 327
                                                                     End If
                                                                     importeMovimiento = importeRetISRxAcreditar
                                                                     importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador

Compras/PopUpVerFactura.aspx.vb

@@ -431,7 +431,7 @@ Partial Class PopUpVerFactura
 
 
         Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 50, 10)
+        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
         Dim barcodebyte As Byte()
         Using ms = New MemoryStream()
             img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)

Nomina/ChecadorAsistencia.aspx

@@ -8,23 +8,34 @@
             text-align: left;
         }
         
-        .AdsCHeader .GvNominas th:nth-child(1),
+         .GvNominas th:nth-child(1),
-        .AdsCHeader .GvNominas td:nth-child(1) {
+          .GvNominas td:nth-child(1) {
+            width:1px;
+            font-size:0px;
+            word-break: break-all;
+        }
+        .ADSContainer .GvNominas th:nth-child(1),
+        .ADSContainer .GvNominas td:nth-child(1) {
+            /* display:none;*/
+            visibility:hidden;
+        } 
+        .AdsCHeader .GvNominas th:nth-child(2),
+        .AdsCHeader .GvNominas td:nth-child(2) {
             text-align: left;
             width: 50px;
         }
 
-        .AdsCHeader .GvNominas th:nth-child(2),
+        .AdsCHeader .GvNominas th:nth-child(3),
-        .AdsCHeader .GvNominas td:nth-child(2) {
+        .AdsCHeader .GvNominas td:nth-child(3) {
             text-align: left;
             width: 200px;
         }
 
-        .GvNominas td:nth-child(n+3) {
+        .GvNominas td:nth-child(n+4) {
             text-align: center;
         }
 
-            .GvNominas td:nth-child(n+3) div {
+            .GvNominas td:nth-child(n+4) div {
                 text-align: center;
             }
 
@@ -138,8 +149,9 @@
                     </div>
                 </div>
                 <div class="portlet-body">
-                    <asp:GridView ID="GvNominas" runat="server" OnRowDataBound="GvNominas_RowDataBound" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas"
+                    <asp:GridView ID="GvNominas" runat="server" OnRowDataBound="GvNominas_RowDataBound" OnRowCreated="GvNominas_RowCreated" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas"
-                        Style="text-align: center;" GridLines="None" data-cols="2" data-rows="1" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true">
+                        Style="text-align: center;" GridLines="None" data-cols="3" data-rows="1" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true"
+                        DataKeyNames="CvePersonal,CveSubProyecto">
                         <Columns></Columns>
 
                     </asp:GridView>

Nomina/ChecadorAsistencia.aspx.cs

@@ -23,13 +23,18 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
     {
         if (!IsPostBack)
         {
-
             DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
             DdlTurno.DataBind();
 
             CargaTiposPeriodo();
             TxtRpdFechaInicio.Text = string.Format("{0:dd/MM/yyyy}", DateTime.Now);
             TxtRpdFechaFin.Text = string.Format("{0:dd/MM/yyyy}", DateTime.Now);
+
+            if (UsuarioActual.CveEmpresa == 119)
+            {
+                TxtRpdFechaInicio.Text = string.Format("{1}{0:/MM/yyyy}", DateTime.Now,(DateTime.Now.Day>15?"16":"01"));
+                DdlTipoVista.SelectedValue = "2";
+            }
             DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
             DdlTipoAsistencias.DataBind();
 
@@ -68,6 +73,9 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         DateTime FechaI = TxtRpdFechaInicio.Text.ToDateTime();
         DateTime FechaF = TxtRpdFechaFin.Text.ToDateTime().AddDays(1);
         DataTable dtCon = new DataTable();
+        dtCon.Columns.Add(new DataColumn("CvePersonal", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("CveSubProyecto", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("SubProyecto", typeof(string)));
         dtCon.Columns.Add(new DataColumn("Codigo", typeof(string)));
         dtCon.Columns.Add(new DataColumn("Empleado", typeof(string)));
         string strasis = "<i class='fa fa-check-square' style=\"color:green;\"></i>";
@@ -94,13 +102,28 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         }
         using (ClsNominas objnom = new ClsNominas())
         {
+            int CveSubProyecto = -1;
             if (objnom.GetchecadorAsistencia(FechaI, FechaF, UsuarioActual.CveEmpresa))
             {
                 DataTable dtASis = objnom.DTSetResultados.Tables[0];
                 dtper = objnom.DTSetResultados.Tables[1];
                 foreach (DataRow item in dtper.Rows)
                 {
+                    if (CveSubProyecto != item["CveSubProyecto"].ToString().ToEntero())
+                    {
+                        CveSubProyecto = item["CveSubProyecto"].ToString().ToEntero();
+
+                        DataRow drowsub = dtCon.NewRow();
+                        drowsub["CveSubProyecto"] = item["CveSubProyecto"];
+                        drowsub["SubProyecto"] = item["SubProyecto"];
+                        drowsub["Empleado"] = item["SubProyecto"];
+                        dtCon.Rows.Add(drowsub);
+                    }
+
                     DataRow drow = dtCon.NewRow();
+                    drow["CveSubProyecto"] = item["CveSubProyecto"];
+                    drow["SubProyecto"] = item["SubProyecto"];
+                    drow["CvePersonal"] = item["CvePersonal"];
                     drow["Codigo"] = item["Codigo"];
                     drow["Empleado"] = item["NombreCompleto"];
                     CFecha = FechaI;
@@ -247,6 +270,12 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         DataTable dtCon = generateTable();
         GvNominas.DataSource = dtCon;
         GvNominas.DataBind();
+        if (GvNominas.Columns.Count > 2)
+        {
+            GvNominas.Columns[0].Visible = false;
+            GvNominas.Columns[1].Visible = false;
+            GvNominas.Columns[2].Visible = false;
+        }
         DateTime fechai = TxtRpdFechaInicio.Text.ToDateTime();
         DateTime fechaf = TxtRpdFechaFin.Text.ToDateTime().AddDays(1);
         using (ClsGenerales ObjGral = new ClsGenerales())
@@ -275,11 +304,22 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         UpDatos.Update();
     }
 
+    protected void GvNominas_RowCreated(object sender, GridViewRowEventArgs e)
+    {
+        e.Row.Cells[0].Visible = false;
+        e.Row.Cells[1].Visible = false;
+        //e.Row.Cells[2].Visible = false;
+
+    }
     protected void GvNominas_RowDataBound(object sender, GridViewRowEventArgs e)
     {
 
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
+            if (e.Row.DataKey("CvePersonal").ToEntero() <= 0)
+            {
+                e.Row.CssClass = "Totales";
+            }
             for (int j = 0; j < e.Row.Cells.Count; j++)
             {
                 string encoded = e.Row.Cells[j].Text;
@@ -537,6 +577,29 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
         var libro = wb.AddWorksheet(dtCon, "Asistencia");
 
+        var myCustomStyle = ClosedXML.Excel.XLWorkbook.DefaultStyle;
+        myCustomStyle.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 187, 89));
+        //155,187,89
+        myCustomStyle.Font.SetBold(true);
+        myCustomStyle.Font.SetFontSize(14);
+        myCustomStyle.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        int cfila = 2;
+        foreach (DataRow drow in dtCon.Rows)
+        {
+            if (drow["CvePersonal"].ToString().ToEntero() > 0)
+            {
+
+            }
+            else
+            {
+                libro.Range(cfila,1, cfila, dtCon.Columns.Count).Style = myCustomStyle;
+            }
+            cfila++;
+        }
+        libro.Column(1).Delete();
+        libro.Column(1).Delete();
+        libro.Column(1).Delete();
+
         //string strinicio;
         //string strfin;
         //ClosedXML.Excel.IXLFontBase fini;
@@ -604,4 +667,5 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         Response.BinaryWrite(memoryStream.ToArray());
         Response.End();
     }
+
 }

Ventas/CatMetasVendedores.aspx

@@ -70,7 +70,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,CveClasificacionSup,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron metas registradas" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,CveClasificacionSup,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron metas registradas" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style=" width: 100%" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
@@ -122,7 +122,7 @@
                             <ajax:ValidatorCalloutExtender ID="VCMesAño" runat="server" HighlightCssClass="vco" TargetControlID="RFVMesAño" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Meta Cantidad">
+                    <asp:TemplateField HeaderText="Meta" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="LtlMetaCantidad" runat="server" Text='<%# Eval("MetaCantidad", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -132,9 +132,9 @@
                             <ajax:ValidatorCalloutExtender ID="VCMetaCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVMetaCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Meta Importe">
+                    <asp:TemplateField HeaderText="$ Meta" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMetaImporte" runat="server" Text='<%# Eval("MetaImporte", "{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMetaImporte" runat="server" Text='<%# Eval("MetaImporte", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMetaImporte" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MetaImporte") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>

Ventas/CatMetasVendedores.aspx.vb

@@ -15,6 +15,7 @@ Partial Class CatMetasVendedores
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString
             CargaDatosModal()
             CargaCombos()
             CargaDatos()
@@ -87,7 +88,7 @@ Partial Class CatMetasVendedores
             Dim ObjVentas As New ClsVentas
             If BtnAgregarMetaVendedor.Text = "Agregar" Then
                 If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
-                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero) Then
+                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                     Alert("Se agregó la meta al vendedor")
                 Else
                     Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
@@ -280,18 +281,21 @@ Partial Class CatMetasVendedores
             Dim RowsCargados As Integer = 0
             Dim RowsNoCargados As Integer = 0
             Dim ObjMetas As New ClsVentas
-            'ObjPS.IniciaTransacSQL()
+            Dim Correcto As Boolean = True
+            ObjMetas.IniciaTransacSQL()
             Try
                 Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
                 Dim DtClasificaciones As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
                 Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
 
+
                 For Each row As DataRow In dt.Rows
-                    Dim Correcto As Boolean = False
+
+                    If Correcto Then
                         Dim TieneError As Boolean = False
-                    Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("Vendedor LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("trim(Vendedor) LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero
-                    Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero
-                    Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
                         Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
 
                         Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
@@ -301,7 +305,7 @@ Partial Class CatMetasVendedores
 
                         Dim FechaRef As New DateTime(Anio, Mes, 1)
                         If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then
-                        Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion)
+                            Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion, UsuarioActual.CveEmpresa)
                             If Correcto Then
                                 RowsCargados += 1
                             End If
@@ -310,13 +314,16 @@ Partial Class CatMetasVendedores
                         If Not Correcto Then
                             RowsNoCargados += 1
                         End If
+                    End If
+
                 Next
             Catch ex As Exception
                 OnError("Ocurrió un error al cargar los precios.", ex)
             Finally
-                ObjMarcas.Dispose()
-
                 Dim MensajeFinal As New StringBuilder()
+
+                If Correcto Then
+                    ObjMetas.Commit()
                     If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
                         MensajeFinal.Append("Las metas se cargaron correctamente. <br/><br/>")
                     End If
@@ -328,56 +335,20 @@ Partial Class CatMetasVendedores
                     End If
 
                     Alert(MensajeFinal.ToString())
+                Else
+                    ObjMetas.RollBack()
+                    If RowsNoCargados > 0 Then
+                        MensajeFinal.Append("No se pudieron actualizar <b>" & RowsNoCargados & "</b> metas. <br/>")
+                    End If
+                    Alert(MensajeFinal.ToString())
+                End If
+
+
+
 
             End Try
 
         End If
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
-    End Function
 End Class

Ventas/MetasVendedores.aspx

@@ -52,7 +52,7 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Metas de Vendedores
+  Scorecard Ventas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
@@ -144,59 +144,86 @@
                     CssClass="table table-advance Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                     <Columns>
-                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
+                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="250px">
                             <ItemTemplate>
                                 <asp:Label ID="HlkGrupo" runat="server" Target="_blank" Text='<%# Eval("Titulo").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Real Mes" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="Real" ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
-                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Real Mes %" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                               %Inte
+                            </HeaderTemplate>
                             <ItemTemplate>
                                 <asp:Label ID="lblRealMesPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealMesPorcentaje").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Venta Mes Año Anterior" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                                Año<br />Anterior
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Obj Mes" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
+                            <HeaderTemplate>
+                              Obj.<br />Mes
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblObjMes" runat="server" Target="_blank" Text='<%# Eval("ObjMes").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblObjMes" runat="server" Target="_blank" Text='<%# Eval("ObjMes", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Var Mes A.A" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
+                            <HeaderTemplate>
+                              Var <br />Mes A.A
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblVarMesAA" runat="server" Target="_blank" Text='<%# Eval("VarMesAA").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblVarMesAA" runat="server" Target="_blank" Text='<%# Eval("VarMesAA", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Var Mes Obj" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
+                            <HeaderTemplate>
+                              Var <br />Obj.
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblVarMesObj" runat="server" Target="_blank" Text='<%# Eval("VarMesObj").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblVarMesObj" runat="server" Target="_blank" Text='<%# Eval("VarMesObj", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Real Acumulado" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
+                            <HeaderTemplate>
+                             Real<br/>Acum.
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Real Acumulado %" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                                %Inte
+                            </HeaderTemplate>
                             <ItemTemplate>
                                 <asp:Label ID="lblRealAcumuladoPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealAcumuladoPorcentaje").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="A. Ant. Acumulado" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                               Acum<br />Año Ant
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblAAntAcumulado" runat="server" Target="_blank" Text='<%# Eval("AAntAcumulado").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblAAntAcumulado" runat="server" Target="_blank" Text='<%# Eval("AAntAcumulado", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Obj Acumulado" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                             <HeaderTemplate>
+                              Obj.<br />Acum
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblObjAcumulado" runat="server" Target="_blank" Text='<%# Eval("ObjAcumulado").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblObjAcumulado" runat="server" Target="_blank" Text='<%# Eval("ObjAcumulado", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
 <%--                        <asp:TemplateField HeaderText="%Var vs AA" ItemStyle-HorizontalAlign="Center">
@@ -204,14 +231,20 @@
                                 <asp:Label ID="lblVarVSAAPerc" runat="server" Target="_blank" Text='<%# Eval("VarVSAAPerc").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>--%>
-                        <asp:TemplateField HeaderText="Var vs AA" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                                Var <br />vs AA
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblVarVSAA" runat="server" Target="_blank" Text='<%# Eval("VarVSAA").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblVarVSAA" runat="server" Target="_blank" Text='<%# Eval("VarVSAA", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Var vs ObjAcum" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">
+                             <HeaderTemplate>
+                                Var<br /> Obj.
+                            </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Label ID="lblVarVSObjAcum" runat="server" Target="_blank" Text='<%# Eval("VarVSObjAcum").ToString() %>'> </asp:Label>
+                                <asp:Label ID="lblVarVSObjAcum" runat="server" Target="_blank" Text='<%# Eval("VarVSObjAcum", "{0:#,###}").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
                     </Columns>

Ventas/MetasVendedores.aspx.vb

@@ -86,7 +86,7 @@ Partial Class MetasVendedores
 
             Select Case e.Row.DBCampo("TipoFila")
                 Case "1"
-                    e.Row.CssClass = "GrupoSuperior"
+                    e.Row.CssClass = "Totales"
                 '    e.Row.FCLabel("lblRealMes").Text = ""
                 '    e.Row.FCLabel("lblVtaMesAA").Text = ""
                 '    e.Row.FCLabel("lblObjMes").Text = ""
@@ -98,11 +98,11 @@ Partial Class MetasVendedores
                 '    e.Row.FCLabel("lblVarVSAA").Text = ""
                 '    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
                 Case "2"
-                    e.Row.CssClass = "Totales"
-                Case "3"
                     e.Row.CssClass = "SubTotales2"
-                Case "4"
+                Case "3"
                     e.Row.CssClass = "SubTotales"
+                Case "4"
+                    e.Row.CssClass = "SubTotales3"
             End Select
 
             If e.Row.DataKey("Titulo") = "" Then

Ventas/ProductosServicios.aspx

@@ -264,7 +264,7 @@
                                             <i></i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright col-xs-3" id="divLitraje" visible="false" runat="server">
-                                            <asp:TextBox ID="TxtLitraje" CssClass="form-control " runat="server" ReadOnly="true"></asp:TextBox>
+                                            <asp:TextBox ID="TxtLitraje" CssClass="form-control " runat="server" ></asp:TextBox>
                                             <%--<ajax:FilteredTextBoxExtender ID="FTBETVentaMinima" TargetControlID="TxtVentaMinima" FilterType="Numbers" runat="server" ValidChars=".," />--%>
                                             <label class="truncate" style="padding-left: 16px;" for="<%= TxtLitraje.ClientID.ToString()%>">Litraje:</label>
                                             <i></i>

Ventas/ProductosServicios.aspx.vb

@@ -1372,7 +1372,7 @@ Partial Class ProductosyServicios
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                 CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) > 0 Then
+                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1423,7 +1423,7 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                   CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) Then
+                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True

Ventas/RepProductosServicios.aspx.vb

@@ -194,7 +194,7 @@ Partial Class Ventas_RepProductosServicios
         DdlSubProyectoEjecucion.DataBind()
 
         'Vendedor
-        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,3)") 'vendedores y vendedores de piso
         DdlVendedor.DataBind()
 
         'CargaUsuarios

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -451,12 +451,13 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlGrupo.SelectedValueExist(GPO)
         RblTipoCambio.SelectedValue = TipoCambio.ToString
         If TipoCambio > 1 Then CveMoneda = -1
+        CargarMarcas(CveMarca)
 
         CargaProvedores(CveProveedorCompra)
         'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra
         DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle)
-        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca, ModalidadContable)
+        CargaDatos()
-        CargarMarcas(CveMarca)
+
     End Sub
 #End Region
 
@@ -497,32 +498,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
-    Private Sub CargaDatos(CveProyecto As String, CveSubProyecto As String, CveCategoria As String, CveClasificacion As String, CvePS As String, Mes As String, MesEjec As String, CveCliente As Integer, CveSubProyectoEjecucion As String, CveVendedor As Integer, CveUsuario As String, CveEstatus As String, Gpo As Integer, TipoDocto As String, CveMarca As Integer, ModalidadContable As Boolean)
-        Dim ObjVentas As New ClsVentas()
-        Dim FechaI, FechaF, FechaIEjec, FechaFEjec As Date
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
-        FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.ToDate, MinFecha)
-        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
-        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
-        Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
-
-        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
-
-        If ObjVentas.GetRepProductosServiciosDetalle(CveProyecto.ToEntero, CveSubProyecto.ToEntero, CveCategoria.ToEntero, CveClasificacion.ToEntero, CvePS.ToEntero,
-                                                     FechaI, FechaF, Mes.ToEntero, FechaIEjec, FechaFEjec, MesEjec.ToEntero, CveCliente.ToEntero, CveSubProyectoEjecucion.ToEntero,
-                                                     CveVendedor, CveUsuario.ToEntero, CveEstatus.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
-                                                     GPO:=Gpo, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                                     CveProveedorCompra:=CveProveedorCompra, CveMarca:=CveMarca, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
-            GvDatos.DataSource = ObjVentas.DtResultados
-            TmpDT = ObjVentas.DtResultados
-        Else
-            GvDatos.DataSource = Nothing
-        End If
-        ObjVentas.Dispose()
-        GvDatos.DataBind()
-        Agrupador = DdlGrupo.SelectedItem.Text
-    End Sub
     Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs)
         CargaDatos()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
@@ -533,14 +508,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
             DivMarca.Visible = True
             LblMarca.Visible = True
 
-            Dim ObjMarcas As New ClsProductosServicios
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                ObjMarcas.Dispose()
             DdlMarcaPSDes.DataBind()
         End If
-        End If
+        DdlMarcaPSDes.Items.Insert(0, New ListItem("Todas", "-1"))
-        DdlMarcaPSDes.Items.Insert(0, New ListItem(" - ", "-1"))
         DdlMarcaPSDes.Items.FindByValue(CStr(CveMarca)).Selected = True
     End Sub
 #End Region
@@ -573,14 +544,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                 End If
             Else
                 If Not e.Row.DBCampo("CveVenta").ToEntero > 0 Then
-                    'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
+
-                    'e.Row.Cells(0).Width = Unit.Pixel(200)
-                    'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-                    'e.Row.Cells(1).Width = Unit.Pixel(60)
-                    'e.Row.Cells(2).Width = Unit.Pixel(90)
-                    'e.Row.Cells(3).Width = Unit.Pixel(90)
-                    'e.Row.Cells(5).Width = Unit.Pixel(80)
-                    'e.Row.Cells(8).Width = Unit.Pixel(100)
                     If e.Row.DBCampo("Gpo") = "" Then
                         e.Row.Cells(5).Text = e.Row.DBCampo("Moneda").ToString
                         e.Row.CssClass = "Totales"
@@ -593,9 +557,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             End If
 
 
-
-
-
             'Dim FechaI, FechaF As String
             'FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
             'FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
@@ -663,7 +624,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
             DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
         Else
-
             DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
             DdlProveedor.DataBind()
             DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))

Ventas/RepRecuperacion.aspx.vb

@@ -180,15 +180,15 @@ Partial Class Ventas_RepRecuperacion
                 End If
             End If
 
-            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
+            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
 
             e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
 
-            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
+            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 

Ventas/RepRecuperacionDetalle.aspx

@@ -179,8 +179,8 @@
                             </asp:DropDownList>
                         </div>
                         
-                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
+                            <div class="col-md-1 truncate">Fecha Aplicado I: </div>
-                            <div class="col-md-1"  style="padding-left: 0px !important;">
+                            <div class="col-md-2"  style="padding-left: 0px !important;">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -194,8 +194,8 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Fecha Aplicado Fin: </div>
+                            <div class="col-md-1 truncate">Fecha Aplicado F: </div>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -219,8 +219,14 @@
                                         <asp:ListItem Text="No" Value="0"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
-                                <div class="col-md-1 truncate">F. Registro IE inicio:</div>
+                                <label id="Label2" class="col-md-1 truncate">Tipo Transacción:</label>
-                                <div class="col-md-1" style="padding-left: 0px !important;">
+                                <div class="col-md-2" id="div1" >
+                                   <asp:DropDownList ID="DdlTipoTransaccion" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                        
+                                    </asp:DropDownList>
+                                </div>
+                                <div class="col-md-1 truncate">F. Registro IE Inicio:</div>
+                                <div class="col-md-2" style="padding-left: 0px !important;">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; ">
                                         <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">
@@ -235,7 +241,7 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                                 <div class="col-md-1 truncate">F. Registro IE Fin:</div>
-                                <div class="col-md-1" >
+                                <div class="col-md-2">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding-left: 0px !important;">
                                         <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">
@@ -249,6 +255,17 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoFfvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
+
+                            </div>
+                    <div class="row">
+                        <div class="col-md-1 truncate">Condiciones de Pago</div>
+                            <div class="col-md-2">
+                            <asp:DropDownList ID="DdlCondicionesPago" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+
                     </div>
                 </div>
             </div>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -133,8 +133,9 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlMoneda.DataBind()
 
-        'txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones().FiltraParametros("Tipo = 'Ing' and Estatus = True ")
-        'txtFechaF.Text = Now.ToShortDateString
+        DdlTipoTransaccion.DataBind()
+        DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'Cargamos las fechas
         FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
@@ -146,11 +147,11 @@ Partial Class Ventas_RepRecuperacionDetalle
             txtFechaI.Text = FechaI
         End If
 
-        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing And Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
+        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing AndAlso Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
-        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing And Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
+        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing AndAlso Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
 
-        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing And Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
+        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing AndAlso Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
-        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing And Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
+        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing AndAlso Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
 
         If FechaAplicadoF <> "-1" Then
             TxtFechaAplicadoF.Text = FechaAplicadoF
@@ -230,6 +231,8 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion)
         DdlClienteSucursal.SelectedValueExist(CveClienteSucursal)
         DdlDistribuidor.SelectedValueExist(EsDistribuidor)
+        DdlTipoTransaccion.SelectedValueExist(IfNull(Request("CveTipoTransaccion"), "-1").ToString.ToEntero)
+        DdlCondicionesPago.SelectedValueExist(IfNull(Request("CveCondicionesPago"), "-1").ToString.ToEntero)
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             lblEsDistribuidor.Visible = True
@@ -256,7 +259,8 @@ Partial Class Ventas_RepRecuperacionDetalle
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
                                    DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
                                    TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
-                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF) Then
+                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF,
+                                    CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados

Ventas/Ventas.aspx.vb

@@ -8985,6 +8985,15 @@ Partial Class Ventas
 
                         ViewState("CveVenta") = ObjFactura.CveVenta
 
+
+
+
+                        If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
+
+                            If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveEmbarqueManifiesto").ToEntero()) Then
+
+                            End If
+                        End If
                         GVAnticipos.DataBind()