Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsAcumuladores.vb

@@ -483,7 +483,7 @@ Public Class ClsAcumuladores
 
 #Region " FOLIOS GARANTÍA "
 
-    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer) As Boolean
+    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -491,6 +491,7 @@ Public Class ClsAcumuladores
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 

App_Code/ClsClientes.vb

@@ -568,7 +568,7 @@ Public Class ClsClientes
                                Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True,
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
-                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
+                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -702,6 +702,7 @@ Public Class ClsClientes
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
             .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
+            .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -747,7 +748,7 @@ Public Class ClsClientes
                                 Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
-                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
+                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -897,6 +898,7 @@ Public Class ClsClientes
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
             .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
+            .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsContabilidad.vb

@@ -5768,6 +5768,7 @@ Public Class ClsContabilidad
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
             .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
+            .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 800).Direction = ParameterDirection.Output
             .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output
         End With
 

App_Code/Modelos.vb

@@ -368,7 +368,7 @@ Namespace Modelos
             End If
             Timbre = New CFDITimbre
         End Sub
-        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "")
+        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "", Optional EsCancelacion As Boolean = False)
             Me.UsuarioActual = UsuarioActual
             Me.CveVenta = CveVenta
             Me.CveEmpresa = CveEmpresa
@@ -393,7 +393,7 @@ Namespace Modelos
                 Me.DtDetalle = ObjVentas.DtResultados.Copy()
             End If
             ObjVentas.Dispose()
-            IniciaValoresVentas()
+            IniciaValoresVentas(EsCancelacion)
             If String.IsNullOrEmpty(DirectorioServidor) Then
                 DirectorioServidor = HttpContext.Current.Server.MapPath("/")
             End If
@@ -446,7 +446,7 @@ Namespace Modelos
             Me.IEPS = 0
             Me.CveAlmacenTraspasoOrigen = 0
         End Sub
-        Private Sub IniciaValoresVentas()
+        Private Sub IniciaValoresVentas(Optional EsCancelacion As Boolean = False)
             If CveVenta > 0 AndAlso CveEmpresa > 0 Then
                 Me.DtAnticipos = New DataTable()
                 Me.DtAntNCVinculadas = New DataTable()
@@ -492,6 +492,10 @@ Namespace Modelos
                             Me.DtNCVinculadas = ObjVentas.DtResultados.Copy()
                         End If
 
+                        If TipoDocto.Contiene("Ant") AndAlso EsCancelacion Then
+                            EsNCAmortizacion = True
+                        End If
+
                         If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then
                             Me.DtAnticipos = ObjVentas.DtResultados.Copy()
                         End If
@@ -2333,7 +2337,7 @@ Namespace Modelos
                                     Exit Select
                                 End If
 
-                                If ObjFactura.TipoDocto.Contiene("Ing", "Egs") AndAlso ValorMultiplicador = -1 Then
+                                If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant") AndAlso ValorMultiplicador = -1 Then
                                     For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows
                                         If row2("CveConceptoContable").ToString().ToEntero = 11 Then
                                             importeMovimiento = row2("Importe").ToString().ToDecimal * ValorMultiplicador '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
@@ -2344,7 +2348,10 @@ Namespace Modelos
                                             CveSubProyectoContabilizar = CveSubProyectoVenta
 
                                             If importeMovimiento <> 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString().ToEntero, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
+                                                                                     CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=row2("CveVenta").ToString().ToEntero, CveCliente:=ObjFactura.CveCliente,
+                                                                                     CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta,
+                                                                                     CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
                                                     ErrorPrepoliza = True
                                                     Exit For
                                                 Else

App_Code/modExtensiones.vb

@@ -54,8 +54,8 @@ Namespace Extensiones
 
             '    BaseDatos = CType(System.Web.HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.BaseDatosNombre
             'End If
-
+            Return ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-            Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)
+            ' Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)
 
 
         End Function

Ashx/SIGWeb.ashx

@@ -247,13 +247,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             'ObjProveedores.Dispose()
             Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"RazonSocial like  '%{Name}%'")
+                DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like  '%{Name}%'")
             End If
         End If
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
             DtRetorno.Columns("CveProveedor").ColumnName = "id"
-            DtRetorno.Columns("RazonSocial").ColumnName = "text"
+            DtRetorno.Columns("NombreCortoProveedor").ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
             context.Response.Write(retorno)
         Else

Compras/PopUpVerFactura.aspx.vb

@@ -1471,7 +1471,7 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
 
                         'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
                             Dim CiudadSucursal As String = ""
                             Dim DomicilioSucursal As String = ""
                             Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
@@ -1487,7 +1487,7 @@ Partial Class PopUpVerFactura
                             End If
 
 
-                            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
 
                                 params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                                 params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))

Contabilidad/RegPrePoliza.aspx

@@ -373,6 +373,9 @@
                         <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
                                 <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                                  <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged1"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
+
                             </ItemTemplate>
                         </asp:TemplateField>
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza
                     e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
                 End If
             End If
+
+            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then
+                e.Row.FCDropDownList("DdlProveedores").Visible = True
+                e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlProveedores").DataBind()
+                e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem("  -  ", "-1"))
+
+                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+                '    e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green"
+                'End If
+            End If
+
         End If
     End Sub
 
@@ -857,12 +869,17 @@ Partial Class ContabilidadC_RegPrePoliza
                     End If
 
 
+                    Dim CveProveedor As Integer = -1
+                    Dim CveCompra As Integer = -1
 
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvMov.Rows
                         If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                             IdCtaContable = gvr.DataKey("IDCuenta")
                         End If
+                        CveProveedor = gvr.DataKey("CveProveedor").ToEntero
+                        CveCompra = gvr.DataKey("CveCompra").ToEntero
+                        CveConcepto = gvr.DataKey("CveConcepto").ToEntero
 
                         If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -871,6 +888,11 @@ Partial Class ContabilidadC_RegPrePoliza
                             Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
                             TipoMovto = False
                         End If
+                        'Registra pago de compra
+                        If CveConcepto = 17 Then
+                            CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero
+                            CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero
+                        End If
 
                         If CveConcepto = 41 Then
                             CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
@@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         If Importe <> 0 Then
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
-                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
@@ -1565,5 +1587,29 @@ Partial Class ContabilidadC_RegPrePoliza
 
 
 
+    Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs)
+        Dim ddl As DropDownList = CType(sender, DropDownList)
+        Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras")
+        CargaCompras2(ddl.SelectedValue.ToEntero, ddl2)
+    End Sub
+
+    Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList)
+
+        Dim ObjCompras As New ClsCompras
+
+        ddl.ClearSelection()
+        If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+            ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+            ddl.Visible = True
+        Else
+            ddl.DataSource = Nothing
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+
+        End If
+        ObjCompras.Dispose()
+    End Sub
 End Class
 

Empresas/146/Formatos/Factura.rdlc

@@ -1749,19 +1749,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.12527cm</Width>
+              <Width>1.34132cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.02474cm</Width>
+              <Width>1.32237cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.17786cm</Width>
+              <Width>2.53649cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>8.96945cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.52862cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.15415cm</Width>
+              <Width>3.27979cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -1776,7 +1779,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Cantidad</Value>
+                              <Value>Cant.</Value>
                               <Style>
                                 <FontFamily>calibri</FontFamily>
                                 <FontSize>9pt</FontSize>
@@ -1838,6 +1841,42 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Código</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>#ff1037</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox79">
@@ -1973,7 +2012,7 @@
                               <Value>=Fields!Cantidad.Value</Value>
                               <Style>
                                 <FontSize>7pt</FontSize>
-                                <Format>#,0.00;(#,0.00)</Format>
+                                <Format>#,0;(#,0)</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -2041,6 +2080,48 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Codigo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Codigo.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Codigo</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>None</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>None</Style>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>None</Style>
+                        </LeftBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="PS1">
@@ -2225,6 +2306,38 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox83">
@@ -2336,6 +2449,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -2355,7 +2469,7 @@
         <Top>5.75246cm</Top>
         <Left>0.11468cm</Left>
         <Height>1.07241cm</Height>
-        <Width>20.01064cm</Width>
+        <Width>19.97804cm</Width>
         <ZIndex>26</ZIndex>
         <Style>
           <Border>

Empresas/80/Formatos/Entradas.rdlc

@@ -1742,6 +1742,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="TipoDocumento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">

Inventarios/Kardex.aspx

@@ -161,6 +161,10 @@
                                         </span>
                                         <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                         <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>
                                 </div>
                             </div>
@@ -175,6 +179,10 @@
                                     </div>
                                     <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
                             <div class="col-md-1">

Inventarios/RecepcionEntrega.aspx.vb

@@ -1868,112 +1868,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
             ' TERMINA: GARANTIAS
 
-            ' COMIENZA: VIRTUAL
-            If TipoDocto.Contiene("Ing") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
 
-                Dim DtPSVirtual As New DataTable("DtTamanios")
-                DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-                DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-
-                Dim DtTamanios As DataTable = Nothing
-
-                If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                    DtTamanios = ObjAcumuladores.DtResultados.Copy()
-                End If
-
-                Dim CveConceptoMovimientoVirtual As Integer = -1
-                Dim CveAlmacenVirtual As Integer = -1
-                Dim CveMovimientoRelacionadoVirtual As Integer = -1
-                Dim ValidaVirtual As Boolean = False
-
-                If TipoMovimiento = 1 Then
-                    For Each GvRow As GridViewRow In GvDatos.Rows
-                        If GvRow.RowType = DataControlRowType.DataRow Then
-
-                            If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then
-                                ValidaVirtual = True ' si tiene tamaño, debe de tener virtual
-                                Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño")))
-                                If drr IsNot Nothing Then
-
-                                    Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero()
-                                    Dim Row As DataRow = DtPSVirtual.NewRow()
-                                    Row("CvePS") = CvePSCargo
-                                    Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
-                                    Row("PU") = 0
-                                    Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
-
-                                    DtPSVirtual.Rows.Add(Row)
-                                End If
-
-                            End If
-
-                        End If
-                    Next
-                    CveConceptoMovimientoVirtual = 3
-                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-
-                ElseIf TipoMovimiento = 2 Then
-                    ValidaVirtual = True
-                    Dim CveMovimientoSalidaDev As Integer = -1
-                    If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
-                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
-                        CveMovimientoSalidaDev = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                        CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero()
-                        CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar."
-                    End If
-
-                    'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDev, UsuarioActual.CveEmpresa) Then
-                        DtPSVirtual = ObjInventario.DtResultados.Copy()
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar."
-                    End If
-                    CveConceptoMovimientoVirtual = 18
-                End If
-
-                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
-                    FolioVirtual = ObjInventario.Folio
-
-                    If CveMovimientoVirtual > 0 Then
-                        For Each RowUsado As DataRow In DtPSVirtual.Rows
-                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                            Dim PU As Double = RowUsado("PU").ToString().ToDouble()
-                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
-                    Else
-                        ErrorMovInv = True
-                    End If
-
-                Else
-                    If ValidaVirtual Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
-
-                    End If
-                End If
-
-                If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
-                    ErrorMovInv = True
-                    TextoError = "No se tienen productos para el almacen virtual."
-                End If
-            End If
-
-            ' TERMINA: VIRTUAL
 
             If Not ErrorMovInv Then
                 Dim ConceptoMovimiento = 3
@@ -2316,8 +2211,81 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
             End If
 
-            'AGREGA BITACORA A VENTA
+            ' COMIENZA: VIRTUAL
-            If Not ErrorMovInv Then
+            If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
+                Dim DtPSVirtual As New DataTable("DtTamanios")
+
+                If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                    DtPSVirtual = ObjInventario.DtResultados
+                End If
+
+                '
+                'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                'Dim DtTamanios As DataTable = Nothing
+
+                'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                '    DtTamanios = ObjAcumuladores.DtResultados.Copy()
+                'End If
+
+                Dim CveConceptoMovimientoVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = -1
+                Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
+                Dim ValidaVirtual As Boolean = False
+                CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+                If TipoMovimiento = 1 Then
+                    CveConceptoMovimientoVirtual = 37
+
+                ElseIf TipoMovimiento = 2 Then
+                    ValidaVirtual = True
+                    CveConceptoMovimientoVirtual = 36
+                End If
+
+                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
+                        FolioVirtual = ObjInventario.Folio
+
+                        If CveMovimientoVirtual > 0 Then
+                            For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                                Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+                                    ErrorMovInv = True
+                                    TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                                    Exit For
+                                End If
+                            Next
+                        Else
+                            ErrorMovInv = True
+                        End If
+
+                    Else
+                        If ValidaVirtual Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
+
+                        End If
+                    End If
+
+                    If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                        ErrorMovInv = True
+                        TextoError = "No se tienen productos para el almacen virtual."
+                    End If
+                End If
+
+                ' TERMINA: VIRTUAL
+
+
+                'AGREGA BITACORA A VENTA
+                If Not ErrorMovInv Then
                 Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta")
                 If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then
                     ErrorMovInv = True
@@ -2334,7 +2302,7 @@ Partial Class Inventarios_RecepcionEntrega
             RegistraScript("playsonidito('beep-07.wav')")
             Dim Msg As New StringBuilder
 
-            Msg.AppendFormat("Movimiento Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio)
+            Msg.AppendFormat("Movimiento {2}: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada"))
             Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
 
             If CveMovimientoEntrada > 0 Then
@@ -2355,7 +2323,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
 
             If CveMovimientoVirtual > 0 Then
-                Msg.AppendFormat("<br/><br/> Movimiento de Salida del Almacen Virtual: ")
+                Msg.AppendFormat("<br/><br/> {0} Almacen Virtual: ", If(TipoMovimiento = 1, "Salida", "Entrada"))
                 Msg.AppendFormat("<b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoVirtual, FolioVirtual)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual)))
             End If

Inventarios/TraspasoAlmacen.aspx.vb

@@ -804,7 +804,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio
             Dim dtvirtual As DataTable = Nothing
 
@@ -829,11 +829,11 @@ Partial Class Inventarios_TraspasoAlmacen
         'AGREGAMOS LA ENTRADA
         If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO
             If Not ErrorMovInv Then
-                Dim TipoMovimientoEntrada = 9
+                Dim TipoMovimientoEntrada = 36
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada <= 0 Then
                     TextoError = "Ocurrió un error al generar el movimiento de entrada"

OC/OC.aspx

@@ -2556,9 +2556,11 @@
                         <div class="col-md-6 v-center">
                             <label class="col-md-6 v-center truncate">Proveedor:</label>
                             <div class="col-md-6 v-center">
-                                <asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                                <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
-                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
-                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    
+<%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </div>
                         </div>
                     </div>

OC/OC.aspx.vb

@@ -1294,7 +1294,12 @@ Partial Class OC
                             HplCompraContabilizada.Text = "No"
                         End If
 
-                        DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
+                        DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
+                        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                        Else
+                            DdlProveedores.SelectedText = "-"
+                        End If
 
                         'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ
                         Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero
@@ -1330,7 +1335,12 @@ Partial Class OC
                         lblFolio.Text = "REQ " + objOC.Folio.ToString
                         lblTipoPadreHijo.Text = "OC"
                         ChkCotizacion.Visible = True
-                        DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
+                        DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
+                        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                        Else
+                            DdlProveedores.SelectedText = "-"
+                        End If
 
                         If objOC.CveProveedorSucursal.ToEntero > 0 Then
                             DivProveedorSucursal.Visible = True
@@ -1741,20 +1751,25 @@ Partial Class OC
         CboUnidadMedida.DataBind()
     End Sub
     Private Sub CargaProveedores()
-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlProveedores.setEsWebService(True)
-            DdlProveedores.Attributes.Add("metodo", "getproveedores")
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Seleccione"
+            DdlProveedores.SelectedValue = "-1"
+            DdlProveedorCot.setEsWebService(True)
+            DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores")
         Else
 
-            GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
             DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
             DdlProveedores.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+            DdlProveedorCot.DataBind()
+            DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
-        'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
-        DdlProveedorCot.DataBind()
-        DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         UPProv.Update() : UPPEmp.Update()
     End Sub
@@ -2105,6 +2120,8 @@ Partial Class OC
             Return True
         End If
 
+
+
         'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
         'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
         '    If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O
@@ -2222,6 +2239,13 @@ Partial Class OC
             TieneError = True
         End If
 
+        'Valida que tenga proveedore
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
+
         'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
             If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
@@ -5966,7 +5990,7 @@ Partial Class OC
 
     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 excelFile As ExcelFile = excelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer

Planeacion/CatSubProyectos.aspx.vb

@@ -119,7 +119,7 @@ Partial Class CatSubProyectos
     Public Sub CargaDatos()
 
         Dim ObjSub As New ClsSubProyectos
-        If ObjSub.GetSubProyectos() Then
+        If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
             GvDatos.DataBind()
         End If
@@ -204,7 +204,7 @@ Partial Class CatSubProyectos
         If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+            GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
             Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -232,7 +232,7 @@ Partial Class CatSubProyectos
             If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then
                 GvDatos.EditIndex = -1
                 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+                GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             Else
                 ErrorSubProyecto = True

Ventas/Clientes.aspx

@@ -271,10 +271,10 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-     <asp:UpdatePanel runat="server" ID="UPUsadosReset" RenderMode="Inline" UpdateMode="Conditional" Visible="false">
+    <asp:UpdatePanel runat="server" ID="UPUsadosReset" RenderMode="Inline" UpdateMode="Conditional" Visible="false">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkUsadosReset" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  data-placement="left" title="Inicializar Usados" runat="server" Text="<i class='fa fa-pencil'></i> Inicializar Usados"></asp:LinkButton>
+                <asp:LinkButton ID="LnkUsadosReset" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" data-placement="left" title="Inicializar Usados" runat="server" Text="<i class='fa fa-pencil'></i> Inicializar Usados"></asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -594,7 +594,7 @@
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
                                             <label>Cargo Usado:</label>
-                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true"  />
+                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
                                             <label>Bonificación Usado:</label>
@@ -732,6 +732,7 @@
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
                                                         Sucursal/Depto
+                                                   
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
                                                         <div class="truncate" style="width: 200px;">
@@ -742,6 +743,7 @@
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
                                                         Contacto
+                                                   
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
                                                         <div class="truncate" style="width: 100px;">
@@ -752,6 +754,7 @@
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
                                                         Ciudad
+                                                   
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
                                                         <div class="truncate" style="width: 90px;">
@@ -773,6 +776,7 @@
                                         </asp:GridView>
                                         <div>
                                             Condiciones Entrega:
+                                           
                                             <asp:DropDownList ID="DdlCondicionesEntrega" runat="server" DataValueField="CveCondicionEntrega" DataTextField="CondicionEntrega" Width="200px"></asp:DropDownList>
                                         </div>
                                     </div>
@@ -832,29 +836,44 @@
                                                     <asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <i></i>
                                                 </div>
-                                                <div class="row" id="DivRetenciones" runat="server">
+                                                <div id="DivRetenciones" runat="server">
-                                                    <div class="col-md-6">
+                                                    <div id="DivTipoRetenciones" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
-                                                        <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlTipoRetencion" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
-                                                            <asp:TextBox ID="TxtRetIVA" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
+                                                            <asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
-                                                            <asp:RequiredFieldValidator ID="RFVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención de IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                            <asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
-                                                            <asp:CompareValidator ID="CVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="El campo <b>''Retención de IVA''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                            <asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>
-                                                            <label for="<%= TxtRetIVA.ClientID.ToString()%>">¿El Cliente nos retiene IVA?: </label>
+                                                            <asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
-                                                            <i style="font-weight: bold;">%</i>
+                                                            <asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
-                                                        </div>
+                                                        </asp:DropDownList>
+                                                        <label for="<%= DdlTipoRetencion.ClientID.ToString()%>">Tipo de Retención:</label>
+                                                        <asp:RequiredFieldValidator ID="RFVTipoRetencion" runat="server" ControlToValidate="DdlTipoRetencion" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Retención''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <i></i>
                                                     </div>
-                                                    <div class="col-md-6">
+                                                    <div class="row">
-                                                        <div class="form-group form-md-line-input input-iconright">
+                                                        <div class="col-md-6">
-                                                            <asp:TextBox ID="TxtRetISR" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
+                                                            <div class="form-group form-md-line-input input-iconright">
-                                                            <asp:RequiredFieldValidator ID="RFVRetISR" runat="server" class="help-block errorimput" ControlToValidate="TxtRetISR" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención ISR''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                <asp:TextBox ID="TxtRetIVA" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
-                                                            <asp:CompareValidator ID="CVRetISR" runat="server" class="help-block errorimput" ControlToValidate="TxtRetISR" ErrorMessage="El campo <b>''Retención ISR''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                <asp:RequiredFieldValidator ID="RFVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención de IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                            <label for="<%= TxtRetISR.ClientID.ToString()%>">¿El Cliente nos retiene ISR?: </label>
+                                                                <asp:CompareValidator ID="CVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="El campo <b>''Retención de IVA''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                            <i style="font-weight: bold;">%</i>
+                                                                <label for="<%= TxtRetIVA.ClientID.ToString()%>">¿El Cliente nos retiene IVA?: </label>
+                                                                <i style="font-weight: bold;">%</i>
+                                                            </div>
+                                                        </div>
+                                                        <div class="col-md-6">
+                                                            <div class="form-group form-md-line-input input-iconright">
+                                                                <asp:TextBox ID="TxtRetISR" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
+                                                                <asp:RequiredFieldValidator ID="RFVRetISR" runat="server" class="help-block errorimput" ControlToValidate="TxtRetISR" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención ISR''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                <asp:CompareValidator ID="CVRetISR" runat="server" class="help-block errorimput" ControlToValidate="TxtRetISR" ErrorMessage="El campo <b>''Retención ISR''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                <label for="<%= TxtRetISR.ClientID.ToString()%>">¿El Cliente nos retiene ISR?: </label>
+                                                                <i style="font-weight: bold;">%</i>
+                                                            </div>
                                                         </div>
                                                     </div>
                                                 </div>
                                                 <div class="form-group form-md-line-input" id="DivRetFletes" runat="server" visible="false">
                                                     ¿El Cliente nos retiene IVA por Fletes y Acarreos?:
-					                                   <asp:CheckBox ID="ChkRetIVAFletesAcarreos" CssClass="make-switchsd" runat="server" />
+					                                  
+                                                    <asp:CheckBox ID="ChkRetIVAFletesAcarreos" CssClass="make-switchsd" runat="server" />
                                                 </div>
                                                 <br />
                                                 <br />
@@ -888,7 +907,8 @@
 
                                                 <div class="form-group form-md-line-input" id="DivDesglosaIEPS" runat="server">
                                                     El cliente desglosa IEPS:
-					                                   <asp:CheckBox ID="ChkDesglosarIEPS" Checked="true" CssClass="make-switchsd" runat="server" />
+					                                  
+                                                    <asp:CheckBox ID="ChkDesglosarIEPS" Checked="true" CssClass="make-switchsd" runat="server" />
                                                 </div>
 
                                                 <br />
@@ -1059,6 +1079,7 @@
                                         <div class="row">
                                             <div class="col-md-6">
                                                 Cantidad de Ventas:
+                                           
                                             </div>
                                             <div class="col-md-6">
 
@@ -1068,6 +1089,7 @@
                                         <div class="row">
                                             <div class="col-md-6">
                                                 Total Vendido:
+                                           
                                             </div>
                                             <div class="col-md-6">
 
@@ -1078,6 +1100,7 @@
                                         <div class="row">
                                             <div class="col-md-6">
                                                 Venta Mínima:
+                                           
                                             </div>
                                             <div class="col-md-6">
                                                 <asp:Literal ID="LtlMinima" runat="server"></asp:Literal>
@@ -1086,6 +1109,7 @@
                                         <div class="row">
                                             <div class="col-md-6">
                                                 Promedio de Ventas:
+                                           
                                             </div>
                                             <div class="col-md-6">
                                                 <asp:Literal ID="LtlPromedio" runat="server"></asp:Literal>
@@ -1094,6 +1118,7 @@
                                         <div class="row">
                                             <div class="col-md-6">
                                                 Venta Máxima:
+                                           
                                             </div>
                                             <div class="col-md-6">
 
@@ -1231,6 +1256,7 @@
                                         <div class="row">
                                             <div class="col-md-9">
                                                 Cantidad de Cotizaciones:  
+                                           
                                             </div>
                                             <div class="col-md-3 ">
                                                 <asp:Literal ID="LtlCantidadCotizaciones" runat="server"></asp:Literal>
@@ -1239,9 +1265,11 @@
                                         <div class="row">
                                             <div class="col-md-9">
                                                 Factor de Cotizaciones VS Ventas:  
+                                           
                                             </div>
                                             <div class="col-md-3 ">
                                                 <asp:Literal ID="LtlFactorCotVentas" runat="server"></asp:Literal>&nbsp;% 
+                                           
                                             </div>
                                         </div>
                                     </div>
@@ -1269,7 +1297,7 @@
 
                                         <div class="actions">
                                             <div class="btn-group">
-                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos" >
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos">
                                                     <ContentTemplate>
                                                         <asp:LinkButton ID="LnkCotizacionesPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
                                                         <asp:LinkButton ID="LnkCotizacionesExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
@@ -1418,19 +1446,31 @@
                                                                             <asp:Label ID="LblDiasPago" runat="server" Text="Dias de pago:"></asp:Label>
                                                                             <br />
                                                                             <label><b>L</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>M</b></label>&nbsp;&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>MI</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>J</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>V</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>S</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <br />
 
                                                                             <asp:CheckBox ID="ChkLunes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkMartes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkMiercoles" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkJueves" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkSabado" runat="server" />&nbsp;                                                                   
+                                                                       
                                                                         </div>
                                                                     </div>
 
@@ -1464,19 +1504,31 @@
                                                                             <asp:Label ID="LblDiasRevision" runat="server" Text="Dias de Revisión:"></asp:Label>
                                                                             <br />
                                                                             <label><b>L</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>M</b></label>&nbsp;&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>MI</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>J</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>V</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <label><b>S</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <br />
 
                                                                             <asp:CheckBox ID="ChkRevLunes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkRevMartes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkRevMiercoles" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkRevJueves" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkRevViernes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkRevSabado" runat="server" />&nbsp;                                                                                                                                                          
+                                                                       
                                                                         </div>
                                                                     </div>
                                                                 </div>
@@ -1783,6 +1835,7 @@
                                         <div class="row">
                                             <div class="pull-right">
                                                 <asp:HyperLink ID="HplAbonarMasivo" Visible="True" runat="server" NavigateUrl="#" ToolTip="Pago de múltiples facturas">Pago múltiples facturas&nbsp;<img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>&nbsp; &nbsp;&nbsp;&nbsp
+                                           
                                             </div>
                                         </div>
                                         <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" ToolTip="Listado de CxC"
@@ -1801,16 +1854,19 @@
                                                 <asp:TemplateField HeaderText="Monto Venta" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                   
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:TemplateField HeaderText="Abonado" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}")%>'></asp:Literal>&nbsp;
+                                                   
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                   
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:BoundField HeaderText="Estatus" DataField="CobranzaEstatus" />
@@ -1888,16 +1944,19 @@
                                                     <asp:TemplateField HeaderText="Monto Venta (Saldo Orig)" ItemStyle-HorizontalAlign="Right">
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                       
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Abonado" ItemStyle-HorizontalAlign="Right">
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                       
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                       
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Auxiliar" ItemStyle-HorizontalAlign="Center">
@@ -2219,6 +2278,7 @@
                                             <asp:TemplateField HeaderText="Cheque" ItemStyle-HorizontalAlign="Center">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HplCheque" Visible="False" runat="server" CssClass="Texto" Text='<%# Eval("FolioCobro")%>' NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>'></asp:HyperLink>&nbsp;
+                                               
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Abonado" ItemStyle-HorizontalAlign="Right">
@@ -2851,37 +2911,39 @@
                                         <div class="row">
                                             <div class="col-md-4">
                                                 Fecha Inicial: 
-                                                            <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                                           
-                                                                <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control"></asp:TextBox>
+                                                <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                                                <span class="input-group-btn ">
+                                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control"></asp:TextBox>
-                                                                    <button runat="server" id="imgCalendario" class="btn default" type="button">
+                                                    <span class="input-group-btn ">
-                                                                        <i class="fa fa-calendar"></i>
+                                                        <button runat="server" id="imgCalendario" class="btn default" type="button">
-                                                                    </button>
+                                                            <i class="fa fa-calendar"></i>
-                                                                </span>
+                                                        </button>
-                                                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    </span>
-                                                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsultarAsistencia"></asp:RequiredFieldValidator>
+                                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsultarAsistencia"></asp:CompareValidator>
+                                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsultarAsistencia"></asp:RequiredFieldValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsultarAsistencia"></asp:CompareValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                            </div>
+                                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
                                             </div>
                                             <div class="col-md-4">
                                                 Fecha Final: 
-                                           <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                          
-                                               <asp:TextBox ID="txtFechaF" CssClass="form-control" runat="server"></asp:TextBox>
+                                                <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                               <span class="input-group-btn ">
+                                                    <asp:TextBox ID="txtFechaF" CssClass="form-control" runat="server"></asp:TextBox>
-                                                   <button runat="server" id="imgCalendarioF" class="btn default" type="button">
+                                                    <span class="input-group-btn ">
-                                                       <i class="fa fa-calendar"></i>
+                                                        <button runat="server" id="imgCalendarioF" class="btn default" type="button">
-                                                   </button>
+                                                            <i class="fa fa-calendar"></i>
-                                               </span>
+                                                        </button>
-                                               <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    </span>
-                                               <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                               <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsultarAsistencia"></asp:RequiredFieldValidator>
+                                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                               <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsultarAsistencia"></asp:CompareValidator>
+                                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpConsultarAsistencia"></asp:RequiredFieldValidator>
-                                               <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsultarAsistencia"></asp:CompareValidator>
-                                               <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                           </div>
+                                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
                                             </div>
                                             <div class="col-md-2">
                                                 <asp:Button ID="BtnConsultarAsistencia" runat="server" Text="Consultar" ValidationGroup="GrpConsultarAsistencia" class="btn btn-primary" />
@@ -3194,14 +3256,17 @@
                                     <div class="portlet-body">
                                         <div class="form-group">
                                             Estado:
+                                           
                                             <asp:CheckBox ID="ChkEstado" runat="server" CssClass="make-switchsd" data-size="small" />
                                         </div>
                                         <div class="form-group">
                                             Fecha de Captura:
+                                           
                                             <asp:Label ID="LblFechaCaptura" runat="server"></asp:Label>
                                         </div>
                                         <div class="form-group">
                                             Usuario Capturó:
+                                           
                                             <asp:Label ID="LblUsuarioCapturo" runat="server"></asp:Label>
                                         </div>
                                     </div>
@@ -3227,21 +3292,25 @@
                                                     <div class="col-md-6">
                                                         <div class="form-group">
                                                             Usuario Activo: 
+                                                           
                                                             <asp:Label ID="LblUsuarioActivo" runat="server" Text="No"></asp:Label>
                                                             <asp:HiddenField ID="HdnCveUsuarioPortalAdmin" runat="server" />
                                                             <asp:HiddenField ID="HdnCveUsuarioPortalActivado" Value="0" runat="server" />
                                                         </div>
 
                                                         Usuario:
+                                                       
                                                         <asp:Label ID="LblUsuarioPortalCliente" runat="server" Text=""></asp:Label><br />
                                                         <br />
                                                         <div id="trEnviarActivacion" visible="true" runat="server" class="form-group">
                                                             Enviar Activación:
+                                                           
                                                             <asp:Label ID="LblActivacionPortal" runat="server" Text="Capturar correo del responsable" Visible="false"></asp:Label>
                                                             <asp:LinkButton ID="LbEnviarActivacionPortal" runat="server" CssClass="Texto" Text="Envíar Activación al portal"></asp:LinkButton>
                                                         </div>
                                                         <div id="trDesactivarUsuario" visible="false" runat="server" class="form-group">
                                                             Desactivar Usuario:
+                                                           
                                                             <asp:LinkButton ID="LbDesactivaPortal" runat="server" Text="Desactivar Usuarios del portal" CausesValidation="False" CssClass="Texto" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"></asp:LinkButton>
                                                         </div>
                                                     </div>
@@ -3334,12 +3403,14 @@
                                                                         <th width="15%">
                                                                             <asp:LinkButton ID="LbNombre1" runat="server" CausesValidation="false" Text="" CommandArgument="Nombre1;1">
                                                                                 Nombre
+                                                                               
                                                                                 <asp:Literal ID="ImgNombre1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                             </asp:LinkButton>
                                                                         </th>
                                                                         <th width="16%">
                                                                             <asp:LinkButton ID="LbCorreo" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario/Correo1;1">
                                                                                 Correo/Usuario
+                                                                               
                                                                                 <asp:Literal ID="ImgCorreo1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                             </asp:LinkButton>
                                                                         </th>
@@ -3368,13 +3439,15 @@
                                                                         <th width="7%">
                                                                             <asp:LinkButton ID="LbFechaIng1" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng1;1">
                                                                                 Fecha
-                                                                                                        <asp:Literal ID="ImgFechaIn1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                                       
+                                                                                <asp:Literal ID="ImgFechaIn1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                             </asp:LinkButton>
                                                                         </th>
                                                                         <th width="16%">
                                                                             <asp:LinkButton ID="LbUsuarioCreo" runat="server" CausesValidation="false" Text="" CommandArgument="UsuarioCreo1;1">
                                                                                 Usuario
-                                                                                                        <asp:Literal ID="ImgUsuarioCreo1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                                       
+                                                                                <asp:Literal ID="ImgUsuarioCreo1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                                             </asp:LinkButton>
                                                                         </th>
                                                                         <th width="10%">Comandos</th>
@@ -3570,7 +3643,8 @@
                                                                             <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                                             &nbsp;<asp:LinkButton ID="ImgR" runat="server" AlternateText="Restablecer Contraseña" ToolTip="Restablecer Contraseña" CausesValidation="False" CommandName="RestablecerContraseña" CssClass="btn btn-circle btn-sm blue" CommandArgument='<%# Eval("CveUsuarioIng").ToString() %>' OnClientClick="return confirm('Está seguro que desea restablecer la contraseña?')" Text="<i class='fa fa-rotate-left'></i>" />
                                                                             &nbsp;
-                                                                                        <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                                                       
+                                                                            <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                                         </ItemTemplate>
                                                                         <ItemStyle Width="10%" />
                                                                     </asp:TemplateField>
@@ -3799,6 +3873,7 @@
                                             <div class="row">
                                                 <div class="col-md-1 truncate" style="width: 120px">
                                                     Fecha Inicio:
+                                               
                                                 </div>
                                                 <div class="col-md-1" style="width: 120px">
                                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -3814,6 +3889,7 @@
                                                 </div>
                                                 <div class="col-md-1 truncate" style="width: 120px">
                                                     Fecha Fin: 
+                                               
                                                 </div>
                                                 <div class="col-md-1" style="width: 120px">
                                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -3936,14 +4012,16 @@
                                                     <tr>
                                                         <td>Importe Cargo</td>
                                                         <td style="text-align: right!important">$
+                                                           
                                                             <asp:Label runat="server" ID="LblUsadosImpCargo"></asp:Label></td>
                                                         <td style="text-align: right!important">
-                                                            <asp:Button runat="server" Visible="false"  Height="34px" Width="180px" ID="LnkFacturaUsadosCargos" CssClass="btn btn-primary" Text="Generar NC Cargo" data-toggle="confirmation" data-popout="true" data-original-title="Comfirmar generación de nota de crédito de cargos" data-btn-ok-label="si" OnClick="LnkFacturaUsadosCargos_Click"></asp:Button>
+                                                            <asp:Button runat="server" Visible="false" Height="34px" Width="180px" ID="LnkFacturaUsadosCargos" CssClass="btn btn-primary" Text="Generar NC Cargo" data-toggle="confirmation" data-popout="true" data-original-title="Comfirmar generación de nota de crédito de cargos" data-btn-ok-label="si" OnClick="LnkFacturaUsadosCargos_Click"></asp:Button>
                                                         </td>
                                                     </tr>
                                                     <tr>
                                                         <td>Importe Bonificación</td>
                                                         <td style="text-align: right!important">$
+                                                           
                                                             <asp:Label runat="server" ID="LblusadosImpBonificacion"></asp:Label></td>
                                                         <td style="text-align: right!important">
                                                             <asp:Button runat="server" Height="34px" Width="180px" ID="LnkFacturaUsadosBonificacion" CssClass="btn btn-primary" Text="Generar NC Bonificación" data-toggle="confirmation" data-popout="true" data-original-title="Comfirmar generación de nota de crédito de bonificación" data-btn-ok-label="si" OnClick="LnkFacturaUsadosBonificacion_Click"></asp:Button>
@@ -3988,6 +4066,7 @@
                                                             <div class="row">
                                                                 <div class="col-md-1 truncate" style="width: 120px">
                                                                     Fecha Inicio:
+                                                               
                                                                 </div>
                                                                 <div class="col-md-1" style="width: 120px">
                                                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -4003,6 +4082,7 @@
                                                                 </div>
                                                                 <div class="col-md-1 truncate" style="width: 120px">
                                                                     Fecha Fin: 
+                                                               
                                                                 </div>
                                                                 <div class="col-md-1" style="width: 120px">
                                                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -4141,6 +4221,7 @@
                                 <div class="col-xs-4">
                                     Con copia para:<br />
                                     (Separar con: ;)
+                               
                                 </div>
                                 <div class="col-xs-8">
                                     <asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
@@ -4193,6 +4274,7 @@
                                 <div class="col-xs-4">
                                     Con copia para:<br />
                                     (Separar con: ;)
+                               
                                 </div>
                                 <div class="col-xs-8">
                                     <asp:TextBox ID="TxtCC2" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
@@ -4246,7 +4328,8 @@
                             <asp:CompareValidator ID="CVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
                             <ajax:ValidatorCalloutExtender ID="VCOFechaPago1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
                             &nbsp;
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
+                       
+                            <ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
                             &nbsp;
                         </td>
                         <tr>
@@ -4750,6 +4833,7 @@
                             <div class="row">
                                 <div class="col-md-1">
                                     Cliente:
+                               
                                 </div>
                                 <div class="col-md-5">
                                     <ADS:Dropdownlost ID="DdlClienteImportarSaldos" data-metodo="getcliente" DataValueField="CveCliente" DataTextField="CodigoNombre" Width="260px" CssClass="select2me" runat="server"></ADS:Dropdownlost>
@@ -4758,6 +4842,7 @@
                                 </div>
                                 <div class="col-md-1">
                                     Fecha:
+                               
                                 </div>
                                 <div class="col-md-3">
                                     <div class="input-group input-small date date-picker" style="width: 100px !important;" data-date-format="dd/mm/yyyy">
@@ -4784,6 +4869,7 @@
 
                                 <div class="col-md-6 pull-right" style="text-align: right;">
                                     Importe total:
+                                   
                                     <asp:TextBox Text="" ID="TxtSaldoImportar" ClientIDMode="Static" Enabled="false" runat="server" />
                                 </div>
                             </div>
@@ -5249,6 +5335,7 @@
                         </div>
                         <div class="row" align="center">
                             <h4>Estatus:
+                               
                                 <asp:Label ID="LblEstatusModal" runat="server"></asp:Label></h4>
                         </div>
                         <div class="row">
@@ -5266,7 +5353,8 @@
                                                 <span data-counter="counterup" data-value="1349">
                                                     <b>
                                                         <asp:Label runat="server" Text="0" ID="LblVentasModal"></asp:Label></span></b>
-                                    <asp:Label runat="server" ID="LblPor" Text=""></asp:Label>
+                                   
+                                                <asp:Label runat="server" ID="LblPor" Text=""></asp:Label>
                                             </h4>
                                             <small>Ventas</small>
                                         </div>
@@ -5281,7 +5369,8 @@
                                                 <span data-counter="counterup" data-value="1349">
                                                     <b>
                                                         <asp:Label runat="server" Text="0" ID="LblPagadoModal"></asp:Label></span></b>
-                                    <asp:Label runat="server" ID="Label2" Text=""></asp:Label>
+                                   
+                                                <asp:Label runat="server" ID="Label2" Text=""></asp:Label>
                                             </h4>
                                             <small>Pagado</small>
                                         </div>
@@ -5296,7 +5385,8 @@
                                                 <span data-counter="counterup" data-value="1349">
                                                     <b>
                                                         <asp:Label runat="server" Text="0" ID="LblRotacionModal"></asp:Label></span></b>
-                                    <asp:Label runat="server" ID="Label3" Text=""></asp:Label>
+                                   
+                                                <asp:Label runat="server" ID="Label3" Text=""></asp:Label>
                                             </h4>
                                             <small>Rotación</small>
                                         </div>
@@ -5311,7 +5401,8 @@
                                                 <span data-counter="counterup" data-value="1349">
                                                     <b>
                                                         <asp:Label runat="server" Text="0" ID="LblDiasModal"></asp:Label></span></b>
-                                    <asp:Label runat="server" ID="Label4" Text=""></asp:Label>
+                                   
+                                                <asp:Label runat="server" ID="Label4" Text=""></asp:Label>
                                             </h4>
                                             <small>Dias</small>
                                         </div>
@@ -5326,7 +5417,8 @@
                                                 <span data-counter="counterup" data-value="1349">
                                                     <b>
                                                         <asp:Label runat="server" Text="0" ID="LblDiasCreditoModal"></asp:Label></span></b>
-                                    <asp:Label runat="server" ID="Label5" Text=""></asp:Label>
+                                   
+                                                <asp:Label runat="server" ID="Label5" Text=""></asp:Label>
                                             </h4>
                                             <small>Dias Credito</small>
                                         </div>
@@ -5349,6 +5441,7 @@
                             </div>
                             <div class="col-md-6" align="center">
                                 <h4>Límite de Crédito $
+                                   
                                     <asp:Literal ID="LtlLimiteCreditoModal" runat="server"></asp:Literal>MN</h4>
                                 <br />
                                 <div id="chartdiv2"></div>
@@ -5402,6 +5495,7 @@
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
                                                     <ItemTemplate>
                                                         <asp:LinkButton ID="LnkAutorizar" runat="server" OnClick="LnkAutorizar_Click" Text="Autorizar" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea autorizar el pedido?" data-btn-ok-label="si" />&nbsp;&nbsp;&nbsp;&nbsp;
+                                                       
                                                         <asp:LinkButton ID="LnkCancelar" runat="server" OnClick="LnkCancelar_Click" Text="Cancelar" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el pedido?" data-btn-ok-label="si" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>

Ventas/Clientes.aspx.vb

@@ -820,6 +820,10 @@ Partial Class Clientes
                 UpFiscalContable.Update()
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                DivTipoRetenciones.Visible = True
+            End If
+
             If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
@@ -1375,6 +1379,7 @@ Partial Class Clientes
                 DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString
                 TxtCC.Text = ObjClientes.NotificarA
                 ChkMail.Checked = ObjClientes.EnviarFactura
+                DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString)
                 TxtRetIVA.Text = ObjClientes.RetIVA.ToString
                 TxtRetISR.Text = ObjClientes.RetISR.ToString
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
@@ -2411,7 +2416,7 @@ Partial Class Clientes
                                     CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero,
                                     CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2505,7 +2510,8 @@ Partial Class Clientes
                                         AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero,
                                         CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
-                                        ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then
+                                        ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
+                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)

Ventas/PV.aspx.vb

@@ -5018,7 +5018,7 @@ Partial Class PV
 
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If

Ventas/Ventas.aspx

@@ -812,7 +812,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
         
-        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 30%;display: flex;flex-direction:row;color:white;background-color:#c49f47">
+        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" Visible="false" class="portlet light xspadding bordered whitoutcol" style="width: 20%;display: flex;flex-direction:row;color:white;background-color:#c49f47">
             <ContentTemplate>
                 <div id="DivTurno" runat="server" style="width:100%;text-align:center;">
                     Turno: <asp:Label runat="server" ID="LblTurno"></asp:Label>
@@ -1367,9 +1367,20 @@
                                                         <tr id="TrRetIVA" runat="server" align="right" style="display: none;">
                                                             <td style="border: 1px none white"><b>Ret. IVA:</b></td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox></td>
+                                                                <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox>
+                                                            </td>
                                                             <td>
-                                                                <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)</td>
+                                                                <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)
+                                                            </td>
+                                                            <td>
+                                                                <asp:DropDownList ID="DdlTipoRetencion" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
+                                                                    <asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
+                                                                    <asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>
+                                                                    <asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
+                                                                    <asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
+                                                                </asp:DropDownList>
+                                                            </td>
                                                         </tr>
 
                                                         <tr id="TrRetISR" runat="server" align="right" style="display: none;">
@@ -3240,11 +3251,8 @@
                                                 <asp:TextBox ID="TxtObsAlmacen" runat="server" Rows="2" TextMode="MultiLine" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                                         </tr>
                                         <tr align="left" id="TrKilometraje" runat="server" visible ="false">
-                                            <td>Kilometraje&nbsp;</td>
+                                            <td>Kilometraje&nbsp;                                        
-                                        </tr>
+                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
-                                        <tr align="left" id="TrKilometrajeTxt" runat="server" visible ="false">
-                                            <td>
-                                                <asp:TextBox ID="TxtKilometraje" runat="server" Rows="1" TextMode="MultiLine" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                                         </tr>
                                     </table>
                                 </div>

Ventas/Ventas.aspx.vb

@@ -2523,7 +2523,8 @@ Partial Class Ventas
                 DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
                 DivContadoOtros.Visible = True
                 TrKilometraje.Visible = True
-                TrKilometrajeTxt.Visible = True
+                TrPedido.Visible = False
+                ' TrKilometrajeTxt.Visible = True
             End If
 
         End If
@@ -2582,8 +2583,9 @@ Partial Class Ventas
                 LkbEstadodeCaja.Visible = True
                 LkbIngreso.Visible = True
                 LkbRetiro.Visible = True
-                UpTurno.Update()
+                UpTurno.Visible = True
             Else
+                UpTurno.Visible = False
                 'Ingresar un nuevo Turno
                 RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
             End If
@@ -4111,6 +4113,7 @@ Partial Class Ventas
 
                 'Sección Detalle
                 DdlMoneda.Enabled = False
+                DdlTipoRetencion.Enabled = False
                 TxtFechaEjecucion.ReadOnly = True
                 ImgCalendarFechaEje.Enabled = False
                 'DdlSucursalEjecucion.Enabled = False
@@ -4699,6 +4702,9 @@ Partial Class Ventas
                 ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
                 ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
 
+                DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
+                DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
+
                 ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
                 If ObjCliente.RetieneIVAFletes Then
                     TrRetIVA.Style.Add("display", "")
@@ -5920,6 +5926,20 @@ Partial Class Ventas
             Dim TotalCalculableImpuestosIVA As Decimal = 0
             TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal)
 
+            Dim ClienteRetIVA = Me.ClienteRetIVA
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                    ClienteRetIVA = 0.1D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                    ClienteRetIVA = 0.04D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") Then
+                    ClienteRetIVA = 0.06D
+                End If
+
+                LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+                DdlTipoRetencion.Visible = True
+            End If
+
 
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
             TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text
@@ -6462,22 +6482,32 @@ Partial Class Ventas
         End If
         'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras)
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+
+            If txtkilometraje.text.toentero = 0 Then
+                'cuando es la clasificacion de llantas
+                Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero
+                If FaltaObservacion = 20342 Then
+                    Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+            End If
+
             If TxtObsFact.Text = "" Then
                 Dim FaltaObservacion As Integer = -1
-                For Each PS As GridViewRow In GvPS.Rows
+                'For Each PS As GridViewRow In GvPS.Rows
-                    Dim PsRenglon As GridViewRow = PS
+                '    Dim PsRenglon As GridViewRow = PS
-                    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
+                '    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
-                    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
+                '    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
-                        FaltaObservacion = CveClasificacion
+                '        FaltaObservacion = CveClasificacion
-                        Exit For
+                '        Exit For
-                    End If
+                '    End If
-                Next
+                '
+                FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero
+                'cuando es la clasificacion de polizas
                 If FaltaObservacion = 20345 Then
                     Alert("No se ha especificado la <strong>serie</strong> para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia)
                     Exit Sub
-                ElseIf FaltaObservacion = 20342 Then
-                    Alert("No se ha especificado el <strong>kilometraje</strong> para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
                 End If
             End If
         End If
@@ -7581,10 +7611,10 @@ Partial Class Ventas
     End Function
 
 
-    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
+    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False)
 
         If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
-            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=EsCancelacion)
         Else
             ObjFactura = New Modelos.Factura
         End If
@@ -9125,7 +9155,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                           Kilometraje:=TxtKilometraje.Text.todouble) Then
 
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
 
@@ -14215,6 +14245,20 @@ Partial Class Ventas
             Row("PorcentajeIVA") = DrPS("IVA")
         End If
 
+        Dim ClienteRetIVA = Me.ClienteRetIVA
+        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                ClienteRetIVA = 0.1D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                ClienteRetIVA = 0.04D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso DrPS("CveTipoPS").ToString().ToEntero() = 1 Then
+                ClienteRetIVA = 0.06D
+            End If
+
+            LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+            DdlTipoRetencion.Visible = True
+        End If
+
         Row("IVA") = Row("PorcentajeIVA")
         Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
         Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
@@ -14276,7 +14320,7 @@ Partial Class Ventas
 
 
         'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
 
             For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                 Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
@@ -16408,7 +16452,7 @@ Partial Class Ventas
                                       Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                       PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
                                       CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                      OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                                      OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             OcurrioError = True
         End If
 
@@ -18433,7 +18477,8 @@ Partial Class Ventas
             CancelarRefacturada()
         End If
 
-        CreaObjetosVenta()
+        CreaObjetosVenta(EsCancelacion:=True)
+
         Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
 
         If ObjFactura IsNot Nothing AndAlso ObjFactura.CveVenta > 0 Then
@@ -18451,9 +18496,6 @@ Partial Class Ventas
                 End If
 
                 ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
-                If ChkDevAlm.Checked Then
-                    ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
-                End If
 
                 resp = ObjFactura.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar)
             End If
@@ -22080,7 +22122,7 @@ Partial Class Ventas
                                   Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                   PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero,
                                   CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             MensajeError = "Ocurrió un error al actualizar la información de la cotización"
             OcurrioError = True
         End If
@@ -23857,10 +23899,12 @@ Partial Class Ventas
         CargaRNC()
         RegistraScript("$('#ModalAplicarRemisionesNC').modal({backdrop: 'static', keyboard: false });")
     End Sub
+
+#Region "P O L I Z A - V I R T U A L"
     Protected Sub GeneraPolizaVentaWS(ObjFactura As Modelos.Factura)
         Dim DtUsados As DataTable = Nothing
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.GetGarantiasDetalle(ObjFactura.CveVenta) Then
+        If ObjAcum.GetGarantiasPolizaVirtual(ObjFactura.CveVenta) Then
             DtUsados = ObjAcum.DtResultados.Copy()
         End If
         ObjAcum.Dispose()
@@ -23984,5 +24028,39 @@ Partial Class Ventas
 
         Return Retorno
     End Function
+#End Region
+
+    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+                For Each RowServicio As DataRow In TmpDT.Rows
+                    Dim ClienteRetIVA = Me.ClienteRetIVA
+                    If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                        ClienteRetIVA = 0.1D
+                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                        ClienteRetIVA = 0.04D
+                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso RowServicio("CveTipoPS").ToString().ToEntero() = 1 Then
+                        ClienteRetIVA = 0.06D
+                    End If
+
+                    Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
+                    RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
+                    RowServicio("PorcentajeRetIVA") = ClienteRetIVA
+
+                Next
+                TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
+                Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
+                If PorcentajeRetIVA > 0 Then
+                    DdlTipoRetencion.Visible = True
+                End If
+
+                GvPS.DataSource = TmpDT
+                GvPS.DataBind()
+
+                UpPS.Update()
+            End If
+        End If
+    End Sub
 
 End Class