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

Acumuladores/CatFoliosGarantia.aspx

@@ -82,7 +82,7 @@
                     <ContentTemplate>
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng"
+                            DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto"
                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                             data-sort="true"
@@ -95,6 +95,12 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 
+                                <asp:TemplateField HeaderText="SubProyecto" ItemStyle-Width="150px">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                                 <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="150px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
@@ -196,6 +202,17 @@
                                     <i></i>
                                 </div>
                                 
+                                <br />
+                                
+                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
+                                    <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="200px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEProducto2" runat="server" HighlightCssClass="vco" TargetControlID="RFVProducto2" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= DdlSubProyectos.ClientID.ToString()%>">SubProyecto:</label>
+                                    <i></i>
+                                </div>
+
+                                <br />
 
                                 <div class="form-group form-md-line-input input-iconright">
                                     <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>&nbsp;

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -37,6 +37,7 @@ Partial Class Acumuladores_CatFoliosGarantia
     Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+            CargaSubProyectos()
             CargadatosGvFolioGarantia()
         End If
 
@@ -45,6 +46,12 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
 #Region "Folios Garantía"
+    Private Sub CargaSubProyectos()
+        DdlSubProyectos.Items.Clear()
+        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     Private Sub CargadatosGvFolioGarantia()
 
@@ -88,6 +95,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         TxtFolioGarantia.Text = ""
         ChkEstatus.Checked = True
+        DdlSubProyectos.SelectedValueExist("-1")
 
         Actualizar = False
         UpGral.Update()
@@ -108,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
         If Not Actualizar Then
-            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 ChkEstatus.Checked = True
@@ -127,7 +135,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError)
             End If
         Else
-            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario) Then
+            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 ChkEstatus.Checked = True
@@ -195,10 +203,11 @@ Partial Class Acumuladores_CatFoliosGarantia
         'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00")
         'TxtPuntos.Text = GvRow.DataKey("Puntos").ToDecimal.ToString("###,###,###.00")
 
-        'DdlPS.Items.Clear()
+        DdlSubProyectos.Items.Clear()
-        'DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        'DdlPS.DataBind()
+        DdlSubProyectos.DataBind()
-        'DdlPS.SelectedValueExist(GvRow.DataKey("CvePSCargo").ToEntero)
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
         BtnAgregarFolioGarantiaModal.Text = "Actualizar"
 

App_Code/ClsAcumuladores.vb

@@ -480,7 +480,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -492,6 +492,7 @@ Public Class ClsAcumuladores
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 
@@ -507,7 +508,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer) As Boolean
+    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -519,6 +520,7 @@ Public Class ClsAcumuladores
             .Add("@FolioGarantia", SqlDbType.VarChar).Value = FolioGarantia
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 

App_Code/ClsBancos.vb

@@ -1363,7 +1363,7 @@ Public Class ClsBancos
             _Folio = SqlAdapter.SelectCommand.Parameters("@FolioRegistro").Value.ToString
 
         Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
+            If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then
                 Alert("Ya existe un movimiento bancario con el mismo Folio: <b>" & Folio & "</b>.", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al Guardar el Movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

App_Code/ClsContPAQi.vb

@@ -443,7 +443,7 @@ Public Class ClsContPAQi
         End If
 
         ' no puede ser menor el subtotal al IVA, para evitar numeros negativos, excepto VSH
-        If Not CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
+        If Not CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
             If Math.Abs(SubTotal) < Math.Abs(IVA) Then
                 Return False
             End If

Bancos/PagoDeudor.aspx

@@ -374,7 +374,7 @@
                     <div class="col-md-12">
                         <asp:UpdatePanel ID="UpMovDeudor" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvMovDeudor" runat="server" AutoGenerateColumns="False" DataKeyNames="CveIE,CveProveedor,CveMoneda,Importe,Saldo,Pagado,Folio,TipoCambio" Width="100%" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMovDeudor_RowDataBound">
+                                <asp:GridView ID="GvMovDeudor" runat="server" AutoGenerateColumns="False" DataKeyNames="CveIE,CveProveedor,CveMoneda,Importe,Saldo,Pagado,Folio,TipoCambio,FechaDocumento" Width="100%" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMovDeudor_RowDataBound">
                                     <Columns>
                                         <asp:TemplateField>
                                             <HeaderTemplate></HeaderTemplate>

Bancos/PagoDeudor.aspx.cs

@@ -445,7 +445,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
         }
 
         bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
-        if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
+       // if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
                    
         if (AutoConta && MsgError.Equals(""))
         {
@@ -708,6 +708,14 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                 {
                     if (gvr.FCCheckBox("Chk").Checked)
                     {
+
+                        Decimal TCDoc = gvr.DataKey("TipoCambio").ToDecimal(); // tipo de cambio de IE                       
+                        if (gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth())
+                        {
+                            // si la fecha del documento a pagar es menor al primer dia del mes del pago, toma el TC del mes anterior
+                            TCDoc = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();
+                        }
+
                         Importe = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
                         ImporteMN = Importe;
                         ImporteComplementaria = 0;
@@ -722,11 +730,11 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                             if (UsaComplementaria)
                             {
                                 ImporteMN = Importe;
-                                ImporteComplementaria = Importe * gvr.DataKey("TipoCambio").ToDecimal() - Importe;
+                                ImporteComplementaria = Importe * TCDoc - Importe;
                             }
                             else
                             {
-                                ImporteMN = Importe * gvr.DataKey("TipoCambio").ToDecimal();
+                                ImporteMN = Importe * TCDoc;
                                 ImporteComplementaria = 0;
                             }
                         }
@@ -740,11 +748,11 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                             if (UsaComplementaria)
                             {
                                 ImporteMN = Importe;
-                                ImporteComplementaria = Importe * gvr.DataKey("TipoCambio").ToDecimal() - Importe;
+                                ImporteComplementaria = Importe * TCDoc  - Importe;
                             }
                             else
                             {
-                                ImporteMN = Importe * gvr.DataKey("TipoCambio").ToDecimal();
+                                ImporteMN = Importe * TCDoc;
                                 ImporteComplementaria = 0;
                             }
                         }
@@ -755,32 +763,32 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                         if (tCveMoneda != 1)
                         {
 
-                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC,CveSubProyecto:DdlSubProyectoPago.SelectedValue.ToEntero()))
+                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableDeudor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TCDoc, TipoCambioPago: TC,CveSubProyecto:DdlSubProyectoPago.SelectedValue.ToEntero()))
                             {
                                 MsgError = "No se pudo insertar concepto de pago deudor";
                                 break;
                             }
                             if (UsaComplementaria)
                             {
-                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePagoComplementaria, Conc, DateTime.Now, IDCtaContableDeudorComplementaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: gvr.DataKey("TipoCambio").ToDecimal(), TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
+                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContablePagoComplementaria, Conc, DateTime.Now, IDCtaContableDeudorComplementaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TCDoc, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                                 {
                                     MsgError = "No se pudo insertar concepto de deudor complementaria";
                                 }
                             }
 
-                            if (TC != gvr.DataKey("TipoCambio").ToDecimal())
+                            if (TC != TCDoc)
                             {
                                 int CveConceptoDiferenciaCambiaria = 0;
                                 bool TipoMovto = false;
                                 int IdCtaContableDiferenciaCambiaria = 0;
-                                if (TC <gvr.DataKey("TipoCambio").ToDecimal())
+                                if (TC < TCDoc)
                                 {
                                     CveConceptoDiferenciaCambiaria = 65;
                                     IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria;
                                     TipoMovto = false;
                                     Importe = (Importe * gvr.DataKey("TipoCambio").ToDecimal()) - (Importe * TC);
                                 }
-                                else if (TC > gvr.DataKey("TipoCambio").ToDecimal())
+                                else if (TC > TCDoc)
                                 {
                                     CveConceptoDiferenciaCambiaria = 64;
                                     IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria;

Bancos/PolizaCheque.aspx.vb

@@ -900,14 +900,14 @@ Partial Class Bancos_PolizaCheque
                                                 Importe = Importe * TC
                                             End If
 
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=If(UsuarioActual.CveEmpresa = 119, gvr.FCDropDownList("DdlSubProyecto").ToEntero, gvr.DataKey("CveSubProyecto").ToEntero), CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(gvr.DataKey("IDCuenta").ToEntero, UsuarioActual.CveEmpresa), -1), TipoCambio:=TC) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(gvr.DataKey("IDCuenta").ToEntero, UsuarioActual.CveEmpresa), -1), TipoCambio:=TC) Then
                                                 MsgError = "no se pudo insertar el detalle de la póliza2"
                                             End If
 
                                             If gvr.DataKey("CveConcepto").ToEntero = 30 Then
                                                 If CveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
                                                     'Agregamos complementaria
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, 0, gvr.FCTextBox("TxtConcepto").Text, 204, TxtObservaciones.Text, Now, dr("IDCtaContableComplementaria").ToString.ToEntero, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=If(UsuarioActual.CveEmpresa = 119, gvr.FCDropDownList("DdlSubProyecto").ToEntero, gvr.DataKey("CveSubProyecto").ToEntero), CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe * TC - Importe, ImporteME:=Importe, TipoCambio:=TC) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, 0, gvr.FCTextBox("TxtConcepto").Text, 204, TxtObservaciones.Text, Now, dr("IDCtaContableComplementaria").ToString.ToEntero, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe * TC - Importe, ImporteME:=Importe, TipoCambio:=TC) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                     End If
                                                 End If

Bancos/ProveedoresAbonar.aspx

@@ -367,7 +367,7 @@
                             <asp:CheckBox ID="Chk" runat="server"></asp:CheckBox>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="95px">
+                    <asp:TemplateField ItemStyle-Width="115px">
                         <HeaderTemplate>Factura</HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink ID="HplF" CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}")%>' Text='<%# Eval("SerieFolio")%>' runat="server"></asp:HyperLink>

Bancos/ProveedoresAbonar.aspx.vb

@@ -637,7 +637,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 e.Row.FCTextBox("TxtAbonar").Enabled = False
 
                                 ' si  tiene un porcentaje mayor ingresado, que este halla sido por OC, debe de permitirlo
-                                If e.Row.DBCampo("ImporteAlmacenPorcentaje").ToDecimal >= 100 Then  'si ya se recibió el 100%
+                                If e.Row.DBCampo("ImporteAlmacenPorcentaje").ToDecimal >= 99.0 Then  'si ya se recibió el 100%
                                     e.Row.FCCheckBox("Chk").Enabled = True
                                     e.Row.FCTextBox("TxtAbonar").Enabled = True
                                 End If
@@ -1811,7 +1811,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 End If
                             End If
 
-                            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                            If MsgError <> "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                                 If ObjMov.ValorPolizaDescuadre > 0 Then
                                     MsgError = ObjMov.MensajePolizaDescuadre + " " + ObjMov.ValorDiferencia
                                     GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")

Compras/Compras.aspx

@@ -5561,26 +5561,29 @@
             //var Proporcional = ((ToDouble(TxtCantidad.value) * 100) / CantidadOriginal) / 100;
 
             
+            var TotalGravado = ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value);
+            var Total  = ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value);
 
             HdnDescuento.value = ToDouble(DescuentoOriginal * ToDouble(TxtCantidad.value) / CantidadOriginal);
             if (true) {
-                HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (Total - ToDouble(HdnDescuento.value)));
+            }
+            if (IEPSIVAOriginal > 0) {
+                HdnIEPSIVA.value = ToDouble(IEPSPSIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
+                TotalGravado += ToDouble(IEPSPSIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
             }
 
             if (IVAOriginal > 0) {
-                HdnIVA.value = ToDouble(IVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnIVA.value = ToDouble(IVAPorcentaje * (TotalGravado - ToDouble(HdnDescuento.value)));
             }
             if (RetIVAOriginal > 0) {
-                HdnRetIVA.value = ToDouble(RetIVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnRetIVA.value = ToDouble(RetIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
             }
             if (RetISROriginal > 0) {
-                HdnRetISR.value = ToDouble(RetISRPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnRetISR.value = ToDouble(RetISRPorcentaje * (Total - ToDouble(HdnDescuento.value)));
-            }
-            if (IEPSIVAOriginal > 0) {
-                HdnIEPSIVA.value = ToDouble(IEPSPSIVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
             }
           
-            TxtTotal.value = FormatoNumero(ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value), 2);
+            TxtTotal.value = FormatoNumero(Total - ToDouble(HdnDescuento.value), 2);
             //RECALCULA IMPORTES GENERALES
             CalculaTotalesOC();
 
@@ -5628,7 +5631,7 @@
 
             //Amortizacion = ToDouble($get('C_Tab_TabGenerales_LblAmortizacion').innerText);
 
-            SumaTotal = SumaSubTotal + SumaIVA + SumaIEPSIVA + SumaIEPS - SumaRetIVA - SumaRetISR;
+            SumaTotal = SumaSubTotal + SumaIVA + SumaIEPS - SumaRetIVA - SumaRetISR;
 
             if ($get("C_Tab_TabOC_LbSubTotalOC1")) {
                 $get("C_Tab_TabOC_LbSubTotalOC1").innerText = FormatoNumero(SumaSubTotal + SumaDescuento, 2);

Compras/Compras.aspx.vb

@@ -6376,9 +6376,9 @@ Partial Class Compras_Compras
 
                                                                     Dim DTDistinct = DT.Copy
                                                                     If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                                                                     Else
-                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                                                                     End If
                                                                     'RMF, si es concepto relacionado a flete o importacion, no debe de afectar al gasto
                                                                     If CveFlete > 0 OrElse CveImportacion > 0 Then
@@ -16635,6 +16635,7 @@ Partial Class Compras_Compras
                     If ViewState("IVAPS").ToString.ToEntero() = -1 Then
                         Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
+                        DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
 
                         'DdlIVA.Enabled = True
 

Compras/PopUpVerFactura.aspx.vb

@@ -890,6 +890,7 @@ Partial Class PopUpVerFactura
             Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
             Vta.RefDocto = dtVentas(0)("Ref").ToString
             Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
+            Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
             Vta.Version = dtVentas(0)("Version").ToString
 
             Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
@@ -1081,6 +1082,12 @@ Partial Class PopUpVerFactura
                 If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
                     If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
                         Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                        If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+                            If Vta.TipoDocto.Contiene("Dev") Then
+                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+                            End If
+                        End If
                     End If
                 End If
             End If
@@ -2991,34 +2998,24 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
 
-            If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
-                TmpDTOS = ObjOS.DtResultados
-            End If
-
-            If ObjOS.GetDetalleMateriales(-1, CveOS) Then
-                TmpDTMaterialesOS = ObjOS.DtResultados
-            End If
-
-            Dim lrds As New List(Of ReportDataSource)
-            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
-            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-
-            lrds.Add(rds)
-            lrds.Add(rds2)
-            ObjOS.Dispose()
-
-            ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-        Else
-            Dim lrds As New List(Of ReportDataSource)
-            Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
-            Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-
-            lrds.Add(rds)
-            lrds.Add(rds2)
-            ObjOS.Dispose()
-
-            ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
         End If
+
+        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
+            TmpDTOS = ObjOS.DtResultados
+        End If
+
+        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+            TmpDTMaterialesOS = ObjOS.DtResultados
+        End If
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
+        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
+
+        lrds.Add(rds)
+        lrds.Add(rds2)
+        ObjOS.Dispose()
+
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
     End Sub
     Private Sub CreaDT()
         TmpDTOS = New DataTable

Compras/Proveedores.aspx.vb

@@ -768,6 +768,11 @@ Partial Class Compras_Proveedores
                 DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
                 DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
 
+                'EMD: Si no es prisila desablita este campo
+                If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
+                    DdlCveTipoProveedor.Enabled = False
+                    DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
+                End If
 
                 If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
 

Compras/RepComprasPrecios.aspx

@@ -83,9 +83,9 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+    <%--    <li>
         <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+    </li>--%>
     <li>
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
@@ -121,7 +121,7 @@
                         <div class="row">
                             <label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
+                               <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                             </div>
                         </div>
                     </div>
@@ -141,18 +141,17 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText="No se encontró información"
+            <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
-                data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS">
                 <Columns>
 
-<%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
+                    <%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>
+                    </asp:TemplateField>--%>
 
-                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
+                    <%--                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -163,11 +162,10 @@
                             <asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>--%>
-
                 </Columns>
-                <HeaderStyle CssClass="Titulos" />
+                <%--                <HeaderStyle CssClass="Titulos" />
                 <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />--%>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>

Compras/RepComprasPrecios.aspx.vb

@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaProveedor()
-            CargaDatos()
+            'CargaDatos()
         End If
     End Sub
 
@@ -33,11 +33,12 @@ Partial Class RepComprasPrecios
         If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjCompras.DtResultados
             DtCompras = ObjCompras.DtResultados
-            GvDatos.DataBind()
+
-            UPDatos.Update()
         End If
 
         ObjCompras.Dispose()
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
 #End Region
 
@@ -45,11 +46,14 @@ Partial Class RepComprasPrecios
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px")
+
             GvDatos.HeaderRow.Cells(0).Visible = False
             e.Row.Cells(0).Visible = False
 
             e.Row.HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(1).Width = Unit.Pixel(125)
 
             If e.Row.DBCampo("CvePS") = "" Then
                 e.Row.CssClass = "Totales"
@@ -70,64 +74,31 @@ Partial Class RepComprasPrecios
                 End If
             Next
 
-            'Cuando es titulo
-            'If e.Row.DBCampo("PS").ToString.Trim = "" Then
-            '    e.Row.CssClass = "Totales"
-
-            '    e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
-            '    e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-            '    e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
-            'End If
-
         End If
     End Sub
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.SelectedText = "Todos"
         DdlProveedor.SelectedValue = "-1"
     End Sub
 #End Region
 
 #Region "IMPRESION"
-    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
-        Imprime("PDF")
+    '    Imprime("PDF")
-    End Sub
+    'End Sub
     Private Sub Imprime(Formato As String)
-        'If DtInventarios IsNot Nothing Then
+        If DtCompras IsNot Nothing Then
-        '    Dim StrFiltro As New StringBuilder
+            Dim StrFiltro As New StringBuilder
-        '    If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
+            StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
-        '    If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
+            GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
-
+        Else
-        '    If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        '    If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
+        End If
-        '    If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
-
-        '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-        '    Dim FechaI, FechaF As String
-        '    FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
-        '    FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
-
-        '    Dim params As New List(Of ReportParameter)
-        '    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        '    params.Add(New ReportParameter("FechaInicio", FechaI))
-        '    params.Add(New ReportParameter("FechaFin", FechaF))
-        '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        '    params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        '    If Imagen.Exists Then
-        '        params.Add(New ReportParameter("LogoPath", logouri))
-        '    Else
-        '        params.Add(New ReportParameter("LogoPath", ""))
-        '    End If
-        '    ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
-        'Else
-        '    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        'End If
     End Sub
 #End Region
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -137,4 +108,6 @@ Partial Class RepComprasPrecios
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         Imprime("Excel")
     End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class

Compras/RepNotasCredito.aspx.vb

@@ -169,7 +169,7 @@ Partial Class Compras_RepNotasCredito
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
-                If TC <> TCCompra AndAlso CveMoneda > 1 AndAlso UsaComplementaria Then
+                If TC <> TCCompra AndAlso CveMoneda > 1 Then
                     Dim difFluctuacion As Decimal = TC - TCCompra
                     Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida
                     Dim TipoMovtoFluctua As Boolean = True

Compras/RepReqOCCompraInv.aspx

@@ -152,7 +152,7 @@
                                 </div>
                             </div>
 
-                            <label class="col-md-1">Sucursal:</label>
+                            <label class="col-md-1">SubProyecto:</label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlSucursal" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm  input-small select2me"></asp:DropDownList>
                             </div>
@@ -165,7 +165,7 @@
                     <div class="row">
                         <label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                         </div>
 
 <%--                        <label class="col-md-1 truncate">Recibido:</label>

Compras/RepReqOCCompraInv.aspx.vb

@@ -100,15 +100,15 @@ Partial Class RepReqOCCompraInv
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaSucursal()
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
         DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSucursal.SelectedValue = "-1"
     End Sub
     Private Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.SelectedText = "Todos"
         DdlProveedor.SelectedValue = "-1"
     End Sub
 #End Region

Contabilidad/ConceptosContables.aspx

@@ -15,76 +15,78 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <table class="table table-striped table-hover">
+            <table class="table table-striped table-hover" id="tcontaheader">
                 <thead>
                     <tr class="Titulos">
-                        <th width="110px">
+                        <th >
                             <asp:LinkButton ID="LbCveConceptoContable" runat="server" CausesValidation="false" Text="" CommandArgument="CveConceptoContable" OnClick="LbOrden_Click">
                                 Clave
                                 <asp:Literal ID="ImgCveConceptoContable" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="110px">
+                        <th >
                             <asp:LinkButton ID="LbTipo" runat="server" CausesValidation="false" Text="" CommandArgument="Tipo" OnClick="LbOrden_Click">
                                 Tipo
                                 <asp:Literal ID="ImgTipo" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="260px">
+                        <th >
                             <asp:LinkButton ID="LbConceptoContable" runat="server" CausesValidation="false" Text="" CommandArgument="ConceptoContable" OnClick="LbOrden_Click">
                                 Concepto Contable
                                 <asp:Literal ID="ImgConceptoContable" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="100px">
+                        <th >
                             <asp:LinkButton ID="LbEstado" runat="server" CausesValidation="false" Text="" CommandArgument="Estado" OnClick="LbOrden_Click">
                                 Estado
                                 <asp:Literal ID="ImgEstado" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="100px">
+                        <th >
                             <asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click">
                                 Fecha Ing
                                 <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="100px">
+                        <th >
                             <asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
                                 Usuario
                                 <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                             </asp:LinkButton>
                         </th>
-                        <th width="161px">Comandos</th>
+                        <th  colspan="2">Comandos</th>
+                    </tr>
+                    <tr>
+                        <th style="text-align: center;">
+                            <asp:TextBox ID="TxtCveConceptoContable" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="84px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVCveConceptoContable" runat="server" ControlToValidate="TxtCveConceptoContable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCCveConceptoContable" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveConceptoContable" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </th>
+                        <th style="text-align: center;">
+                            <asp:TextBox ID="TxtTipo" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="84px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="TxtTipo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCTipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </th>
+                        <th style="text-align: center;">
+                            <asp:TextBox ID="TxtConceptoContable" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVConceptoContable" runat="server" ControlToValidate="TxtConceptoContable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto Contable'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCConceptoContable" runat="server" HighlightCssClass="vco" TargetControlID="RFVConceptoContable" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </th>
+                        <th>&nbsp;</th>
+                        <th>&nbsp;</th>
+                        <th>&nbsp;</th>
+                        <th style="text-align: center;" colspan="2">
+                            <asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="btn btn-default" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></th>
                     </tr>
                 </thead>
-                <tr>
-                    <td style="text-align: center;">
-                        <asp:TextBox ID="TxtCveConceptoContable" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="84px"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVCveConceptoContable" runat="server" ControlToValidate="TxtCveConceptoContable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCCveConceptoContable" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveConceptoContable" Width="300px"></ajax:ValidatorCalloutExtender>
-                    </td>
-                    <td style="text-align: center;">
-                        <asp:TextBox ID="TxtTipo" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="84px"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="TxtTipo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCTipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
-                    </td>
-                    <td style="text-align: center;">
-                        <asp:TextBox ID="TxtConceptoContable" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="234px"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVConceptoContable" runat="server" ControlToValidate="TxtConceptoContable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto Contable'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCConceptoContable" runat="server" HighlightCssClass="vco" TargetControlID="RFVConceptoContable" Width="300px"></ajax:ValidatorCalloutExtender>
-                    </td>
-                    <td>&nbsp;</td>
-                    <td>&nbsp;</td>
-                    <td>&nbsp;</td>
-                    <td style="text-align: center;">
-                        <asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
-                </tr>
             </table>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional" >
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveConceptoContable" EmptyDataText="No se encontraron Conceptos Contables Registrados" ToolTip="Listado de Estado de Conceptos Contables" CssClass="table table-striped table-advance table-hover" Style="text-align: center;" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveConceptoContable" data-tableheader="#tcontaheader"
+                EmptyDataText="No se encontraron Conceptos Contables Registrados" ToolTip="Listado de Estado de Conceptos Contables"
+                CssClass="table table-striped table-advance table-hover ScrollAD Widthall" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <ItemTemplate>

Contabilidad/RegPoliza.aspx.vb

@@ -1819,15 +1819,19 @@ Partial Class RegPoliza
 
                     Dim Referencia As String = Row("Referencia").ToString
                     Dim Cuenta As String = Row("Código Cuenta").ToString + " - " + Row("Nombre Cuenta").ToString
+                    Dim Cuenta2 = AgregaComilla(Cuenta) 'Agregar otra comilla simple adicional cuando contenga una
+
                     Dim CveCuenta As String = ""
-                    If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'") IsNot Nothing Then
+                    If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'") IsNot Nothing Then
-                        CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'")("Id").ToString
+                        CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'")("Id").ToString
                     End If
 
                     Dim SegNeg As String = Row("SegNeg").ToString
+                    Dim SegNeg2 = AgregaComilla(SegNeg) 'Agregar otra comilla simple adicional cuando contenga una
+
                     Dim IdSegNeg As String = ""
-                    If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'") IsNot Nothing Then
+                    If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'") IsNot Nothing Then
-                        IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'")("Id").ToString
+                        IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'")("Id").ToString
                     End If
 
                     Dim Concepto As String = Row("Nombre/Concepto").ToString
@@ -1884,4 +1888,18 @@ Partial Class RegPoliza
         DescargarFormato()
     End Sub
 
+    Private Function AgregaComilla(str As String) As String
+        If str.Contains("'") Then
+            Dim arr = Split(str, "'")
+            str = ""
+            For i = 0 To arr.Length() - 1
+                If i = arr.Length - 1 Then
+                    str += arr(i)
+                Else
+                    str += arr(i) + "''"
+                End If
+            Next
+        End If
+        Return str
+    End Function
 End Class

CxC/RepCxCDetalle.aspx

@@ -386,12 +386,19 @@
 
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron Ventas con los filtros especificados" data-sort="true" ToolTip="Listado de Ventas" CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" 
-                DataKeyNames="CveVenta">
+                EmptyDataText="No se encontraron Ventas con los filtros especificados" data-sort="true" ToolTip="Listado de Ventas" 
+                CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
+                DataKeyNames="CveVenta,TipoDocto">
                 <Columns>
                     <asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
-                    <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ControlStyle-Width ="85px"  DataTextField="SerieFolio" />
+                    <asp:TemplateField HeaderText="Folio">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HlFolio" runat="server" ControlStyle-Width="85px"></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%--<asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ControlStyle-Width ="85px"  DataTextField="SerieFolio" />--%>
                     <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" Visible="false" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" Visible="false" ItemStyle-HorizontalAlign="Right" />

CxC/RepCxCDetalle.aspx.vb

@@ -433,6 +433,15 @@ Partial Class RepCxCDetalle
                 e.Row.Cells(1).Width = Unit.Pixel(70)
                 e.Row.Cells(2).Width = Unit.Pixel(75)
             End If
+            e.Row.FCHyperLink("HlFolio").Text = e.Row.DBCampo("SerieFolio")
+
+            If e.Row.DBCampo("CveVenta").ToEntero() > 0 Then
+                If e.Row.DBCampo("TipoDocto") = "IxC" Then
+                    e.Row.FCHyperLink("HlFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveVenta"))
+                Else
+                    e.Row.FCHyperLink("HlFolio").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"))
+                End If
+            End If
 
             If e.Row.DBCampo("SubProyecto") = "" And e.Row.DBCampo("CveMoneda") = "1" Then
                 e.Row.Cells(11).Text = "Total Pesos"
@@ -928,21 +937,26 @@ Partial Class RepCxCDetalle
         UpCobranza.Update()
     End Sub
     Private Sub BtnAsignaCobranza_Click(sender As Object, e As EventArgs) Handles BtnAsignaCobranza.Click
-        Dim ObjVentas As New ClsVentas
         Dim time As DateTime
         Dim TieneError = False
 
+        Dim ObjVentas As New ClsVentas
         ObjVentas.IniciaTransacSQL()
-
+        Try
-        For Each row As GridViewRow In GvDatos.Rows
+            For Each row As GridViewRow In GvDatos.Rows
-            If row.FCCheckBox("ChkCobranza").Checked Then
+                Dim TipoDocto As String = row.DataKey("TipoDocto")
-                time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFechaCobranza.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))
+                If row.FCCheckBox("ChkCobranza").Checked AndAlso TipoDocto <> "IxC" Then
-                If Not ObjVentas.UpdateAsignaVentaCobranza(row.DataKey("CveVenta").ToEntero, DdlCobranzaEstatus.SelectedValue.ToEntero, DdlUsuarioCobranza.SelectedValue.ToEntero, DdlTurnoCobranza.SelectedValue.ToEntero, TxtObservacionCobranza.Text.Trim, time) Then
+                    time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFechaCobranza.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))
-                    TieneError = True
+                    If Not ObjVentas.UpdateAsignaVentaCobranza(row.DataKey("CveVenta").ToEntero, DdlCobranzaEstatus.SelectedValue.ToEntero, DdlUsuarioCobranza.SelectedValue.ToEntero, DdlTurnoCobranza.SelectedValue.ToEntero, TxtObservacionCobranza.Text.Trim, time) Then
+                        TieneError = True
+                    End If
                 End If
-            End If
 
-        Next
+            Next
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar", ex)
+            TieneError = True
+        End Try
 
         If Not TieneError Then
             ObjVentas.Commit()

Empresas/119/Formatos/NotaDevolucion.rdlc

@@ -2,6 +2,52 @@
 <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <Body>
     <ReportItems>
+      <Rectangle Name="Rectangle4">
+        <ReportItems>
+          <Textbox Name="Textbox43">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!TipoRelacionTexto.Value</Value>
+                    <Style>
+                      <FontFamily>Myriad Pro</FontFamily>
+                      <FontSize>8pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox29</rd:DefaultName>
+            <Top>0.7092cm</Top>
+            <Left>10.09673cm</Left>
+            <Height>0.41981cm</Height>
+            <Width>7.14985cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+        </ReportItems>
+        <KeepTogether>true</KeepTogether>
+        <Top>5.67653in</Top>
+        <Left>0.06096in</Left>
+        <Height>1.11356in</Height>
+        <Width>8.15264in</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Rectangle>
       <Rectangle Name="Rectangle3">
         <ReportItems>
           <Textbox Name="Textbox45">
@@ -229,6 +275,7 @@
         <Left>0.16719in</Left>
         <Height>1.4758in</Height>
         <Width>8.12499in</Width>
+        <ZIndex>1</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -803,7 +850,7 @@
         <Left>0.04219in</Left>
         <Height>0.34081in</Height>
         <Width>8.23727in</Width>
-        <ZIndex>1</ZIndex>
+        <ZIndex>2</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -835,7 +882,7 @@
         <Left>0.77448in</Left>
         <Height>0.18861in</Height>
         <Width>7.22552in</Width>
-        <ZIndex>2</ZIndex>
+        <ZIndex>3</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -864,7 +911,7 @@
         <Top>9.95583cm</Top>
         <Height>0.0882cm</Height>
         <Width>21.06212cm</Width>
-        <ZIndex>3</ZIndex>
+        <ZIndex>4</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,10 +938,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.23641cm</Top>
+        <Top>14.20466cm</Top>
         <Height>0.14316cm</Height>
         <Width>21.06212cm</Width>
-        <ZIndex>4</ZIndex>
+        <ZIndex>5</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -924,7 +971,7 @@
         <Top>9.08065cm</Top>
         <Height>0.14316cm</Height>
         <Width>21.06212cm</Width>
-        <ZIndex>5</ZIndex>
+        <ZIndex>6</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -958,7 +1005,7 @@
         <Left>0.42466cm</Left>
         <Height>0.34219cm</Height>
         <Width>13.97836cm</Width>
-        <ZIndex>6</ZIndex>
+        <ZIndex>7</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1076,7 +1123,7 @@
         <Left>12.94818cm</Left>
         <Height>0.48004cm</Height>
         <Width>7.28058cm</Width>
-        <ZIndex>7</ZIndex>
+        <ZIndex>8</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1101,7 +1148,7 @@
         <Top>8.27399cm</Top>
         <Height>0.14316cm</Height>
         <Width>21.06212cm</Width>
-        <ZIndex>8</ZIndex>
+        <ZIndex>9</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1433,7 +1480,7 @@
         <Left>4.38498cm</Left>
         <Height>1.62208in</Height>
         <Width>3.6362in</Width>
-        <ZIndex>9</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1532,7 +1579,7 @@
         <Left>0.15484cm</Left>
         <Height>2.1447cm</Height>
         <Width>4.08234cm</Width>
-        <ZIndex>10</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1800,7 +1847,7 @@
         <Left>5.59571in</Left>
         <Height>1.62345in</Height>
         <Width>2.64893in</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1927,7 +1974,7 @@
         <Left>15.01302cm</Left>
         <Height>2.63207cm</Height>
         <Width>5.92837cm</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1946,15 +1993,466 @@
         <Left>0.04219in</Left>
         <Height>0.99993in</Height>
         <Width>1.62599in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
           </Border>
         </Style>
       </Image>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.42456cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.05585cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.03631cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>7.7847cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.44125cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Folio</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#008204</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox12">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox12</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#008204</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2222">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Importe</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2222</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#008204</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox11">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Folio Fiscal</Value>
+                              <Style>
+                                <FontFamily>myriad Pro</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox11</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#008204</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.41479cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolio.Value</Value>
+                              <Style>
+                                <FontFamily>myriad pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Fecha.Value</Value>
+                              <Style>
+                                <FontFamily>myriad pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                                <Format>dd/MM/yyyy</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Fecha</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>myriad pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                                <Format>#,0.00;-#,0.00;'-'</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="FolioFiscal">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!FolioFiscal.Value</Value>
+                              <Style>
+                                <FontFamily>myriad pro</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>FolioFiscal</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details1" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet4</DataSetName>
+        <Top>15.68638cm</Top>
+        <Left>3.50335cm</Left>
+        <Height>0.85604cm</Height>
+        <Width>15.30142cm</Width>
+        <ZIndex>15</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox42">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Tipo Relación:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox29</rd:DefaultName>
+        <Top>15.12759cm</Top>
+        <Left>4.93316cm</Left>
+        <Height>0.41981cm</Height>
+        <Width>5.31841cm</Width>
+        <ZIndex>16</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox41">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>CFDI Relacionados</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>10.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>White</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>14.4466cm</Top>
+        <Left>0.21692cm</Left>
+        <Height>0.54004cm</Height>
+        <Width>20.7077cm</Width>
+        <ZIndex>17</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <BackgroundColor>#008204</BackgroundColor>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox5">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>VERSION 3.3</Value>
+                <Style>
+                  <FontFamily>MYRiad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>16.55158cm</Top>
+        <Left>17.56899cm</Left>
+        <Height>0.6cm</Height>
+        <Width>3.32021cm</Width>
+        <ZIndex>18</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>5.66125in</Height>
+    <Height>6.91125in</Height>
     <Style />
   </Body>
   <Width>21.14151cm</Width>
@@ -1990,7 +2488,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox29</rd:DefaultName>
           <Top>0.17639cm</Top>
-          <Left>0.42814cm</Left>
+          <Left>0.42466cm</Left>
           <Height>0.41981cm</Height>
           <Width>6.40316cm</Width>
           <Style>
@@ -2029,7 +2527,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox31</rd:DefaultName>
           <Top>0.17639cm</Top>
-          <Left>8.48417cm</Left>
+          <Left>8.48069cm</Left>
           <Height>0.41981cm</Height>
           <Width>6.02198cm</Width>
           <ZIndex>1</ZIndex>
@@ -2064,7 +2562,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox35</rd:DefaultName>
           <Top>0.17639cm</Top>
-          <Left>18.21986cm</Left>
+          <Left>18.21638cm</Left>
           <Height>0.41981cm</Height>
           <Width>2.5cm</Width>
           <ZIndex>2</ZIndex>
@@ -2117,6 +2615,13 @@
       </ConnectionProperties>
       <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
     </DataSource>
+    <DataSource Name="DsDesgloseImpuestos">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
   </DataSources>
   <DataSets>
     <DataSet Name="DsOC">
@@ -2291,6 +2796,38 @@
         <rd:TableAdapterName />
       </rd:DataSetInfo>
     </DataSet>
+    <DataSet Name="DataSet4">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FolioFiscal">
+          <DataField>FolioFiscal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsDesgloseImpuestos</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
   </DataSets>
   <ReportParameters>
     <ReportParameter Name="ClienteCodigo">

Empresas/72/Formatos/OrdenServicio.rdlc

@@ -23,7 +23,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>3.63358cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.11767cm</Left>
         <Height>0.47364cm</Height>
         <Width>18.64497cm</Width>
         <Style>
@@ -78,7 +78,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>0.5338cm</Top>
-        <Left>8.84441cm</Left>
+        <Left>8.89208cm</Left>
         <Height>0.47364cm</Height>
         <Width>4.43083cm</Width>
         <ZIndex>1</ZIndex>
@@ -134,7 +134,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>6.93966cm</Top>
-        <Left>0.07344cm</Left>
+        <Left>0.12111cm</Left>
         <Height>0.48cm</Height>
         <Width>18.65153cm</Width>
         <ZIndex>2</ZIndex>
@@ -190,7 +190,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>2.08369cm</Top>
-        <Left>8.84441cm</Left>
+        <Left>8.89208cm</Left>
         <Height>0.47364cm</Height>
         <Width>4.43083cm</Width>
         <ZIndex>3</ZIndex>
@@ -246,7 +246,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>0.5338cm</Top>
-        <Left>13.45163cm</Left>
+        <Left>13.4993cm</Left>
         <Height>0.47364cm</Height>
         <Width>5.24334cm</Width>
         <ZIndex>4</ZIndex>
@@ -302,7 +302,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>1.00743cm</Top>
-        <Left>13.45163cm</Left>
+        <Left>13.4993cm</Left>
         <Height>0.97042cm</Height>
         <Width>5.26334cm</Width>
         <ZIndex>5</ZIndex>
@@ -358,7 +358,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>2.62788cm</Top>
-        <Left>13.45163cm</Left>
+        <Left>13.4993cm</Left>
         <Height>0.89986cm</Height>
         <Width>5.26334cm</Width>
         <ZIndex>6</ZIndex>
@@ -414,7 +414,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>2.15424cm</Top>
-        <Left>13.45163cm</Left>
+        <Left>13.4993cm</Left>
         <Height>0.47364cm</Height>
         <Width>5.25334cm</Width>
         <ZIndex>7</ZIndex>
@@ -454,7 +454,7 @@
         <Value>Logo1</Value>
         <Sizing>FitProportional</Sizing>
         <Top>0.1546in</Top>
-        <Left>0.07918in</Left>
+        <Left>0.09795in</Left>
         <Height>1.2065in</Height>
         <Width>1.21875in</Width>
         <ZIndex>8</ZIndex>
@@ -503,7 +503,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
         <Top>1.00743cm</Top>
-        <Left>3.29673cm</Left>
+        <Left>3.3444cm</Left>
         <Height>2.52032cm</Height>
         <Width>5.37129cm</Width>
         <ZIndex>9</ZIndex>
@@ -560,8 +560,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>9.69619cm</Top>
+        <Top>10.0666cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.44775cm</Height>
         <Width>18.65497cm</Width>
         <ZIndex>10</ZIndex>
@@ -616,8 +616,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>13.43126cm</Top>
+        <Top>13.97806cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.99688cm</Height>
         <Width>18.64497cm</Width>
         <ZIndex>11</ZIndex>
@@ -672,8 +672,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>12.95762cm</Top>
+        <Top>13.39858cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.47364cm</Height>
         <Width>18.64497cm</Width>
         <ZIndex>12</ZIndex>
@@ -744,8 +744,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>15.56836cm</Top>
+        <Top>16.28274cm</Top>
-        <Left>0.20112cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.89754cm</Height>
         <Width>6.17587cm</Width>
         <ZIndex>13</ZIndex>
@@ -816,8 +816,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>15.56836cm</Top>
+        <Top>16.28274cm</Top>
-        <Left>6.67991cm</Left>
+        <Left>6.48338cm</Left>
         <Height>0.89754cm</Height>
         <Width>6.17587cm</Width>
         <ZIndex>14</ZIndex>
@@ -873,10 +873,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>15.56836cm</Top>
+        <Top>16.28274cm</Top>
-        <Left>13.29827cm</Left>
+        <Left>12.96369cm</Left>
         <Height>0.89754cm</Height>
-        <Width>5.28334cm</Width>
+        <Width>5.54792cm</Width>
         <ZIndex>15</ZIndex>
         <Style>
           <Border>
@@ -929,8 +929,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>16.4659cm</Top>
+        <Top>17.68299cm</Top>
-        <Left>0.20112cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.47421cm</Height>
         <Width>18.64497cm</Width>
         <ZIndex>16</ZIndex>
@@ -999,8 +999,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox165</rd:DefaultName>
-        <Top>16.94011cm</Top>
+        <Top>18.58053cm</Top>
-        <Left>0.20112cm</Left>
+        <Left>0.13112cm</Left>
         <Height>7.1417cm</Height>
         <Width>17.72549cm</Width>
         <ZIndex>17</ZIndex>
@@ -1052,8 +1052,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Copia</rd:DefaultName>
-        <Top>24.08181cm</Top>
+        <Top>25.72223cm</Top>
-        <Left>0.20112cm</Left>
+        <Left>0.13112cm</Left>
         <Height>0.6cm</Height>
         <Width>18.38049cm</Width>
         <ZIndex>18</ZIndex>
@@ -1466,8 +1466,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Top>4.10722cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.11767cm</Left>
-        <Height>2.26772cm</Height>
+        <Height>2.26771cm</Height>
         <Width>18.62496cm</Width>
         <ZIndex>19</ZIndex>
         <Style>
@@ -1525,7 +1525,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
         </Paragraphs>
         <rd:DefaultName>Textbox21</rd:DefaultName>
         <Top>6.37494cm</Top>
-        <Left>0.07cm</Left>
+        <Left>0.11767cm</Left>
         <Height>0.49417cm</Height>
         <Width>18.64497cm</Width>
         <ZIndex>20</ZIndex>
@@ -1712,7 +1712,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Top>1.00743cm</Top>
-        <Left>8.84441cm</Left>
+        <Left>8.89208cm</Left>
         <Height>0.97042cm</Height>
         <Width>4.43082cm</Width>
         <ZIndex>21</ZIndex>
@@ -1895,7 +1895,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Top>2.55733cm</Top>
-        <Left>8.84441cm</Left>
+        <Left>8.89208cm</Left>
         <Height>0.97042cm</Height>
         <Width>4.43082cm</Width>
         <ZIndex>22</ZIndex>
@@ -2106,9 +2106,9 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Top>7.41966cm</Top>
-        <Left>0.07344cm</Left>
+        <Left>0.12111cm</Left>
-        <Height>1.09417cm</Height>
+        <Height>1.09416cm</Height>
-        <Width>18.65497cm</Width>
+        <Width>18.65498cm</Width>
         <ZIndex>23</ZIndex>
         <Style>
           <Border>
@@ -2117,113 +2117,6 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
           <FontSize>9pt</FontSize>
         </Style>
       </Tablix>
-      <Tablix Name="Tablix3">
-        <TablixBody>
-          <TablixColumns>
-            <TablixColumn>
-              <Width>9.30904cm</Width>
-            </TablixColumn>
-          </TablixColumns>
-          <TablixRows>
-            <TablixRow>
-              <Height>0.6cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox23">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Equipo</Value>
-                              <Style>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox23</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>Solid</Style>
-                        </Border>
-                        <BackgroundColor>Silver</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-            <TablixRow>
-              <Height>0.44125cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox29">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Parameters!Equipo.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox29</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>Solid</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember />
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember />
-            <TablixMember />
-          </TablixMembers>
-        </TablixRowHierarchy>
-        <Top>8.58438cm</Top>
-        <Left>0.07344cm</Left>
-        <Height>1.04125cm</Height>
-        <Width>9.30904cm</Width>
-        <ZIndex>24</ZIndex>
-        <Style>
-          <Border>
-            <Style>Solid</Style>
-          </Border>
-        </Style>
-      </Tablix>
       <Textbox Name="Textbox32">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -2318,11 +2211,11 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox32</rd:DefaultName>
-        <Top>10.32033cm</Top>
+        <Top>10.5849cm</Top>
-        <Left>0.20112cm</Left>
+        <Left>0.13112cm</Left>
         <Height>2.63729cm</Height>
         <Width>3.53804cm</Width>
-        <ZIndex>25</ZIndex>
+        <ZIndex>24</ZIndex>
         <Style>
           <Border />
           <PaddingLeft>2pt</PaddingLeft>
@@ -2331,11 +2224,315 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Tablix Name="Tablix4">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>1.64066cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.82591cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>8.24827cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>6.93013cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox14">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Cantidad</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox14</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>UM</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox25">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Descripcion</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox25</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Observaciones</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox27</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Cantidad">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Cantidad.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Cantidad</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="UM">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!UM.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>UM</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="PS">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!PS.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>PS</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Observaciones">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Observaciones.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Observaciones</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details1" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>8.69021cm</Top>
+        <Left>0.13112cm</Left>
+        <Height>1.2cm</Height>
+        <Width>18.64497cm</Width>
+        <ZIndex>25</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+          <FontSize>7pt</FontSize>
+        </Style>
+      </Tablix>
     </ReportItems>
-    <Height>9.8435in</Height>
+    <Height>10.79142in</Height>
     <Style />
   </Body>
-  <Width>7.48268in</Width>
+  <Width>7.54841in</Width>
   <Page>
     <PageHeight>27.94cm</PageHeight>
     <PageWidth>21.59cm</PageWidth>

Inventarios/EntradasSalidas.aspx.vb

@@ -1161,8 +1161,19 @@ Partial Class Inventarios_EntradasSalidas
         If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub
 
         Dim Valido As Boolean = True
+
+        Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
+
+        Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
+
+        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(SerieLote.Trim()) OrElse SerieLote = "-1") Then
+            Valido = False
+            Alert("El producto requiere Serie-Lote", TipoMensaje.MsgAdvertencia)
+        End If
+
         'salida
-        If DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
+        If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
+
             Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(SerieLote = "", "-1", SerieLote), If(Lote = "", "-1", Lote), If(Batch = "", "-1", Batch))
             LbAgregar.ToolTip = Existencia.ToString
             If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(SerieLote <> "", $" AND SerieLote = '{SerieLote}'", "")}") < 0 Then
@@ -1181,6 +1192,7 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
+
         If Valido Then
             Dim CveClasificacion As Integer
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")

Inventarios/PrestamosdeProveedor.aspx

@@ -84,6 +84,7 @@
                                             </div>
                                         </div>
                                          <div class="row">
+                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" />
                                             <label class="col-md-3">Almacén:</label>
                                             <div class="col-md-9">
                                                 <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true"  runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -6,12 +6,8 @@ Partial Class Inventarios_PrestamosdeProveedor
     Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
-			 Dim a As New ClsValidaCFDi("EBFD0EF4-F7D2-4243-9A79-9C484D6C1323", "FRU880930R72", "AJA850608L7A", 39)
+
-            Alert(a.EsValida)
+
- Dim lista As New List(Of String)
-            lista.Add("93")
-			 lista.Add("100")
-            Notificaciones.AlertaVentana("hola", lista)
             CargaDatos()
         End If
     End Sub
@@ -45,6 +41,11 @@ Partial Class Inventarios_PrestamosdeProveedor
 
         If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = ObjInv.DtResultados
+            Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                HdnCveProveedor.Value = Dr("CveProveedor")
+            End If
+
         End If
 
         ObjInv.Dispose()
@@ -128,7 +129,7 @@ Partial Class Inventarios_PrestamosdeProveedor
             Dim Fecha As Date = TxtFechaEntrega.Text.ToDate
 
             Dim CveMovimientoSalida As Integer
-            Dim tCveProveedor As Integer = ddlProveedor.SelectedValue.ToEntero
+            Dim tCveProveedor As Integer = HdnCveProveedor.Value.ToEntero
             Dim CvePS As Integer = 0
 
             'AGREGAMOS LA SALIDA
@@ -173,8 +174,7 @@ Partial Class Inventarios_PrestamosdeProveedor
 
                     Dim CveConceptoContable As Integer = 69
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
-                    idCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {CveClasifCosto}").ToEntero
+                    IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero
-
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
@@ -196,6 +196,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                 TxtRecibio.Text = ""
                 TxtFechaEntrega.Text = Now.ToShortDateString
                 TxtObservacionesEntrega.Text = ""
+                HdnCveProveedor.Value = ""
 
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)

Inventarios/RecepcionEntrega.aspx.vb

@@ -1628,7 +1628,7 @@ Partial Class Inventarios_RecepcionEntrega
                 'Exit Sub
 
                 Dim TieneErrorExistencia = False
-                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
                         TieneErrorExistencia = True
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -2520,7 +2520,7 @@ Partial Class Inventarios_RecepcionEntrega
         StrXML.Append("</conceptos>")
 
         Dim TieneErrorExistencia = False
-        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 TieneErrorExistencia = True
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows

Inventarios/RecepcionUsados.aspx.vb

@@ -374,7 +374,7 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "  PERMISOS PAGINAS  "
     Private Function PermiteGuardar() As Boolean
-        Return If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
+        Return True 'If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
     End Function
     ''' <summary>
     ''' Este permiso solo habilita el Btn del GV. Debe ir en conjunto con el permiso 181 [PermiteGuardar]

Inventarios/RepVentasXSurtir.aspx

@@ -28,9 +28,7 @@
                         <div class="row">
                             <label class="col-md-1">Producto: </label>
                             <div class="col-md-2">
-                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlPS" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" runat="server">
+                                <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
-                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
                             </div>
                             <label class="col-md-1 ">Sucursal:</label>
                             <div class="col-md-2">

Inventarios/RepVentasXSurtir.aspx.vb

@@ -16,9 +16,20 @@ Partial Class Inventarios_RepVentasXSurtir
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
 
-        DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        'Carga Productos
-        DdlPS.DataBind()
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.SelectedText = "Todos"
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+        'Carga Sucursales
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectos.DataBind()
 

Inventarios/TraspasoAlmacen.aspx

@@ -60,9 +60,9 @@
     Traspaso de Almacén
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <%--    <li>
+        <li>
-        <asp:HyperLink ID="LnkEnviarMail" runat="server" Style="color: #686868;" Visible="false"><i class="fa fa-envelope" style="color: #686868;"></i> Enviar Mail</asp:HyperLink>
+        <asp:HyperLink ID="LnkCargarExcel" runat="server" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelConceptos" Style="color: #686868;" ><i class="fa fa-file-excel-o" style="color: #686868;"></i> Cargar Conceptos</asp:HyperLink>
-    </li>--%>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -780,7 +780,52 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
+        <%--CARGA EXCEL--%>
+    <div id="DivCargaExcelConceptos" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Cargar Conceptos</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
+                            <asp:TextBox ID="TxtExcelConceptos" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarFormatoExcelConceptos" OnClick="BtnDescargarFormatoExcelConceptos_Click" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarFormatoExcelConceptos" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>                                   
+                                    <asp:Button ID="BtnCargaExcelConceptos" runat="server" OnClick="BtnCargaExcelConceptos_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -4,6 +4,7 @@ Option Strict On
 Imports System.Data
 Imports System.IO
 Imports Extensiones
+Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_TraspasoAlmacen
@@ -1042,18 +1043,18 @@ Partial Class Inventarios_TraspasoAlmacen
                 ThSerieLote.Visible = True
                 TdSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
-                GvDatos.Columns(4).Visible = True
+                GvDatos.Columns(5).Visible = True
             End If
             If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 6", "PS").Rows.Count > 0 Then
                 TxtnLote.Visible = True
                 ThLote.Visible = True
                 TdLote.Visible = True
-                GvDatos.Columns(5).Visible = True
+                GvDatos.Columns(6).Visible = True
 
                 TxtnBatch.Visible = True
                 ThBatch.Visible = True
                 TdBatch.Visible = True
-                GvDatos.Columns(6).Visible = True
+                GvDatos.Columns(7).Visible = True
             End If
         End If
 
@@ -2423,4 +2424,217 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
         ObjAcar.Dispose()
     End Sub
+    Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs)
+        If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            CargarArchivoConceptos(Directorio, file.filename)
+            RegistraScript("$('#DivCargaExcelConceptos').modal('hide');")
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+    Protected Sub BtnDescargarFormatoExcelConceptos_Click(sender As Object, e As EventArgs)
+        Dim DtExcel As New DataTable
+        DtExcel.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+        DtExcel.Columns.Add(New DataColumn("Codigo", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Producto", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("SerieLote", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Observaciones", GetType(String)))
+
+        DtExcel.TableName = "Traspaso"
+
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        FileExcel.Save(Response, "Traspaso.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+
+    Protected Sub CargarArchivoConceptos(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la primera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Codigo" Then
+                Alert("El nombre de la segunda columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la tercera columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "SerieLote" Then
+                Alert("El nombre de la cuarta columna debe ser 'SerieLote'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "Observaciones" Then
+                Alert("El nombre de la quinta columna debe ser 'Observaciones'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim NoPSConSerieLote As Integer = 0
+            Try
+                Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                For Each RowExcel As DataRow In dt.Rows
+                    Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
+
+                    Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
+                    Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
+
+                    Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
+                    Dim SerieLote As String = RowExcel("SerieLote").ToString()
+                    Dim Observaciones As String = RowExcel("Observaciones").ToString()
+
+                    If CveProducto > 0 Then
+
+                        Dim Valido As Boolean = True
+
+                        Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
+
+                        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(SerieLote.Trim()) OrElse SerieLote = "-1") Then
+                            Valido = False
+                            Alert($"El producto '{RowPS("PS")}' requiere 'SerieLote'", TipoMensaje.MsgAdvertencia)
+                            ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                        End If
+
+                        If CveMetodoInventario = 5 AndAlso Not String.IsNullOrEmpty(SerieLote.Trim()) Then
+                            NoPSConSerieLote = NoPSConSerieLote + 1
+                        End If
+
+                        If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then
+                            If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
+                                Valido = False
+                                ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                            End If
+                        End If
+
+                        If Valido Then
+                            Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, "-1"), "-1", "-1")
+                        End If
+
+                        If Valido Then
+                            AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, If(Not String.IsNullOrEmpty(SerieLote), SerieLote, ""), "", "", False)
+                            RowsCargados = RowsCargados + 1
+                        Else
+                            RowsNoCargados = RowsNoCargados + 1
+                            ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                        End If
+
+                    Else
+                        RowsNoCargados = RowsNoCargados + 1
+                        ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
+                    End If
+                Next
+            Catch ex As Exception
+                OnError("Ocurrió un error al cargar los productos.", ex)
+            Finally
+
+                If NoPSConSerieLote > 0 Then
+                    ThSerieLote.Visible = True
+                    TdSerieLote.Visible = True
+                    TxtnSerieLote.Visible = True
+                    GvDatos.Columns(5).Visible = True
+                End If
+
+                Dim MensajeFinal As New StringBuilder()
+                If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
+                    MensajeFinal.Append("Los productos se cargaron correctamente. <br/><br/>")
+                End If
+                If RowsCargados > 0 Then
+                    MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> productos correctamente.")
+                End If
+                If RowsNoCargados > 0 Then
+                    MensajeFinal.Append("No se pudieron cargar  <b>" & RowsNoCargados & "</b> productos. <br/>Los siguientes productos no se pudieron cargar: " & ProductosNoCargados.ToString())
+                End If
+
+                Alert(MensajeFinal.ToString())
+
+            End Try
+            UpDatos.Update()
+        End If
+    End Sub
+
+
+    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+
+        Dim unnamed As Integer = 0
+        Dim cols As Integer
+        Dim columns As String()
+        Dim curRow As Integer = 0
+        Dim curCol As Integer = 0
+        Dim dataTable As DataTable = New DataTable()
+        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+
+        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+            If firstRowHasHeaders Then
+
+                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                Else
+                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                End If
+
+                curRow = 1
+            Else
+                dataTable.Columns.Add("Column " & (cols + 1))
+            End If
+        Next
+
+        While curRow < worksheet.Rows.Count
+            columns = New String(cols - 1) {}
+
+            For curCol = 0 To cols - 1
+
+                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                    columns(curCol) = ""
+                Else
+                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                End If
+            Next
+
+            dataTable.Rows.Add(columns)
+            curRow += 1
+        End While
+
+        Return dataTable
+    End Function
+
 End Class

OC/OC.aspx

@@ -855,7 +855,8 @@
 
 
 
-                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
+                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" 
+                                        DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <EditItemTemplate>
@@ -1192,26 +1193,21 @@
 
                 <ajax:TabPanel HeaderText="Cotizaciones" runat="server" ID="tabCotizaciones" Enabled="false">
                     <ContentTemplate>
-
                         <div class="row">
                             <div class="col-md-6">
                             </div>
                             <div class="col-md-6" style="text-align: right!important">
-
+                                <asp:HyperLink ID="hplCargarCotExcel" Font-Size="13" CssClass="Texto" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelCotizaciones" runat="server" Text="<i class='fa fa-file-excel-o'></i>&nbsp; Cargar Cotización"></asp:HyperLink>
+                                &nbsp;&nbsp;
                                 <asp:HyperLink ID="hplAgregarCotizacion" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-plus'></i>&nbsp;Agregar Cotizacion" Style="cursor: pointer;" ToolTip="Agregar Cotizacion"></asp:HyperLink>
                                 &nbsp;&nbsp;
-                               
                                 <asp:HyperLink ID="hplEnviarCorreo" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-envelope'></i>&nbsp;Enviar cotización por correo" Style="cursor: pointer;" ToolTip="Enviar cotización por correo"></asp:HyperLink>
-
                             </div>
                             <div class="col-md-6">
                             </div>
                         </div>
-
                         <asp:UpdatePanel ID="uppCotizaciones" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-
-
                                 <asp:GridView ID="gvCotizacionesANT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontro ninguna Cotización" Visible="false" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover table-advance Widthall">
                                     <Columns>
                                         <asp:TemplateField>
@@ -1366,11 +1362,8 @@
 
                             </ContentTemplate>
                         </asp:UpdatePanel>
-
                     </ContentTemplate>
-
                 </ajax:TabPanel>
-
                 <ajax:TabPanel HeaderText="Almacen" runat="server" ID="TabAlmacen" Visible="false">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpAlmacen" UpdateMode="Conditional" runat="server">
@@ -2548,15 +2541,63 @@
             </asp:UpdatePanel>
         </div>
     </div>
-
+    <%--CARGA EXCEL--%>
-
+    <div id="DivCargaExcelCotizaciones" class="modal ADS fade" role="dialog">
-
+        <div class="modal-dialog">
-
+            <!-- Modal content-->
-
+            <div class="modal-content">
-
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Cargar Cotizaciones</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row v-center">
+                        <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: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>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
+                            <asp:TextBox ID="TxtExcelCot" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarFormatoCot" OnClick="BtnDescargarFormatoCot_Click" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarFormatoCot" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>                                   
+                                    <asp:Button ID="BtnCargaExcelCot" runat="server" OnClick="BtnCargaExcelCot_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
-
-
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>

OC/OC.aspx.vb

@@ -1,5 +1,4 @@
 Option Explicit On
-Option Strict On
 
 Imports System.Data
 Imports Extensiones
@@ -176,7 +175,7 @@ Partial Class OC
     End Property
     Private Property NumCotizacionesEvaluar As Integer
         Get
-            NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "-1", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
+            NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "0", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("NumCotizacionesEvaluar") = value
@@ -1509,7 +1508,7 @@ Partial Class OC
 
 
             'Si requiere cotizacion y el estatus siguiente es el final, desabilitar el combo del estatus
-            If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
+            If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
                 CboE.Enabled = False
                 LblMsgEstatus.Visible = True
                 LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1669,7 +1668,7 @@ Partial Class OC
 
 
             'If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
-            If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
                 CboE.Enabled = False
                 LblMsgEstatus.Visible = True
                 LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1745,6 +1744,11 @@ Partial Class OC
         DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
         DdlProveedores.DataBind()
         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
 
@@ -2019,12 +2023,15 @@ Partial Class OC
             dr("Descuento") = Descuento
             dr("Total") = Math.Round(Total, 2)
             dr("CveUnidadMedida") = CveUnidadMedida
-            dr("IVAPorcentaje") = If(IVAPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVAPS)
+
-            dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * Total, 2)
             dr("IEPSPSPorcentaje") = IEPSPS
             dr("IEPSPS") = Math.Round(IEPSPS * Total, 2)
             dr("IEPSPSIVAPorcentaje") = IEPSPSIVA
             dr("IEPSPSIVA") = Math.Round(IEPSPSIVA * Total, 2)
+            dr("IVAPorcentaje") = If(IVAPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVAPS)
+            Dim TotalGravado As Decimal = Total
+            If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
+            dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * TotalGravado, 2)
             dr("RetIVAPorcentaje") = RetIVA
             dr("RetIVA") = Math.Round(RetIVA * Total, 2)
             dr("RetISRPorcentaje") = RetISR
@@ -2766,9 +2773,9 @@ Partial Class OC
                     If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                         If CveConfianzaProveedor > 0 Then
 
-                            If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones >= 1 Then
+                            If CveConfianzaProveedor = 1 AndAlso Me.NumCotizacionesEvaluar >= 1 Then
                                 TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
-                            ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then
+                            ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizacionesEvaluar >= 2 Then
                                 TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
                             Else
                                 TieneError = True
@@ -2878,13 +2885,15 @@ Partial Class OC
         Promocion = TxtPromocion.Text.Trim
 
         Try
-            If ChkCotizacion.Checked Then
+            Dim NoProveedoresCot As Integer = DtDetalle.COUNT("CveProveedor", "CveProveedor > 0")
+
+            If ChkCotizacion.Checked AndAlso NoProveedoresCot > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
                 Dim CveProveedor = -1
                 Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
                 Dim IdPoliza = -1
 
 
-                For Each dr As DataRow In DtDetalle.FiltraParametros("", "CveProveedor").Rows
+                For Each dr As DataRow In DtDetalle.FiltraParametros("CveProveedor > 0", "CveProveedor").Rows
 
                     'SI ES DIFERENTE PROVEEDOR AGREGA UNA OC
                     If CveProveedor <> dr("CveProveedor").ToString.ToEntero Then
@@ -2932,6 +2941,7 @@ Partial Class OC
                             HuboError = True
                             Exit For
                         End If
+
                     End If
 
                     'AGREGA DETALLES
@@ -3657,18 +3667,23 @@ Partial Class OC
         dr(0)("Importe") = Importe
         dr(0)("Descuento") = Descuento
         dr(0)("Total") = Total
-        'If DdlIVA.SelectedValue.ToDouble = 1 Then dr(0)("IVA") = 0 Else dr(0)("IVA") = IvaPS * Total
-        dr(0)("IVAPorcentaje") = If(IvaPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), 0)
-        dr(0)("IVA") = dr(0)("IVAPorcentaje").ToString.ToDouble * Total
-        dr(0)("RetIVA") = RetIVA * Total
-        dr(0)("RetIVAPorcentaje") = RetIVA
-        dr(0)("RetISR") = RetISR * Total
-        dr(0)("RetISRPorcentaje") = RetISR
         dr(0)("IEPSPS") = IEPSPS * Total
         dr(0)("IEPSPSPorcentaje") = IEPSPS
         dr(0)("IEPSPSIVA") = IEPSPSIVA * Total
         dr(0)("IEPSPSIVAPorcentaje") = IEPSPSIVA
 
+        'If DdlIVA.SelectedValue.ToDouble = 1 Then dr(0)("IVA") = 0 Else dr(0)("IVA") = IvaPS * Total
+        dr(0)("IVAPorcentaje") = If(IvaPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), 0)
+        Dim TotalGravado As Decimal = Total
+        If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
+        dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDouble * TotalGravado, 2)
+
+        dr(0)("RetIVA") = RetIVA * Total
+        dr(0)("RetIVAPorcentaje") = RetIVA
+        dr(0)("RetISR") = RetISR * Total
+        dr(0)("RetISRPorcentaje") = RetISR
+
+
         dr(0)("CveActivoFijo") = CveActivoFijo
         dr(0)("CodigoAF") = Codigo
 
@@ -4174,7 +4189,7 @@ Partial Class OC
         '    uppOpciones.Update()
         'End If
 
-        If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
+        If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
             CboE.Enabled = False
             LblMsgEstatus.Visible = True
             LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -7307,4 +7322,173 @@ Partial Class OC
 
 #End Region
 
+#Region "C A R G A R  E X C E L "
+    Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
+        If TxtExcelCot.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            CargarArchivoCot(Directorio, file.filename)
+
+            CargaCotizaciones(CveOrdenCompra)
+            RegistraScript("$('#DivCargaExcelCotizaciones').modal('hide');")
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
+    Protected Sub BtnDescargarFormatoCot_Click(sender As Object, e As EventArgs)
+        'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
+        Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
+        Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
+                                    Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
+                                    Where row.RowType = DataControlRowType.DataRow
+                                    Select New With
+                                        {
+                                            .Cantidad = row.DataKey("Cantidad"),
+                                            .Codigo = rowPS("Codigo"),
+                                            .Producto = rowPS("PSCodigo"),
+                                            .PrecioUnitario = row.DataKey("Importe").ToDecimal(),
+                                            .FechaEntrega = "",
+                                            .Observacion = row.DataKey("Observacion")
+                                        }).QueryToDataTable(True)
+        If DtExcel.Rows.Count < 2 Then
+            Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        DtExcel.TableName = "Cotización"
+        'DtExcel.Columns("Codigo").ColumnName = "Código"
+        'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        FileExcel.Save(Response, "Cotizacion.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+    Protected Sub CargarArchivoCot(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+            'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
+            If DdlProveedorCot.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la tercera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Codigo" Then
+                Alert("El nombre de la cuarta columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la cuarta columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "PrecioUnitario" Then
+                Alert("El nombre de la sexta columna debe ser 'PrecioUnitario'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "FechaEntrega" Then
+                Alert("El nombre de la sexta columna debe ser 'FechaEntrega'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(5).ColumnName = "Observacion" Then
+                Alert("El nombre de la sexta columna debe ser 'Observacion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim TieneError As Boolean = False
+
+            Dim objCotizacion As New ClsOC
+            objCotizacion.IniciaTransacSQL()
+
+            Try
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
+                Dim DtOCDetalle As DataTable = (From row As GridViewRow In GvD.Rows
+                                                Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
+                                                Where row.RowType = DataControlRowType.DataRow
+                                                Select New With
+                                                {
+                                                    .CvePS = row.DataKey("CvePS").ToEntero(),
+                                                    .CveUnidadMedida = rowPS("CveUnidadMedida").ToString().ToEntero(),
+                                                    .CveOrdenCompraDetalle = row.DataKey("CveOrdenCompraDetalle").ToString().ToEntero(),
+                                                    .Codigo = rowPS("Codigo")
+                                                }).QueryToDataTable(True)
+
+
+
+                Dim Folio As String = ""
+                Dim CveProveedor As Integer = DdlProveedorCot.SelectedValue.ToEntero()
+
+                If CveProveedor > 0 Then
+                    If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, -1, Folio, TxtFecha.Text, "", DdlMoneda.SelectedValue.ToEntero, 0, UsuarioActual.CveUsuario) Then
+                        For Each dr As DataRow In dt.Rows
+                            Dim RowPS = DtOCDetalle.FiltroPrimero(String.Format("Codigo='{0}'", dr("Codigo").ToString()))
+
+                            Dim CveOrdenCompraDetalle As Integer = RowPS("CveOrdenCompraDetalle").ToString().ToEntero()
+                            Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
+                            Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
+                            Dim Fecha As String = If(String.IsNullOrEmpty(dr("FechaEntrega").ToString()), "", If(IsDate(dr("FechaEntrega").ToString()), dr("FechaEntrega").ToString(), ""))
+
+                            TieneError = Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, CvePS, dr("PrecioUnitario").ToString().ToDecimal(), dr("Cantidad").ToString().ToDouble, CveUnidadMedida,
+                                                                              dr("Cantidad").ToString().ToDouble, Fecha, dr("Observacion").ToString(), CveOrdenCompraDetalle)
+                            If TieneError = True Then Exit For
+                        Next
+                    End If
+                Else
+                    TieneError = False
+                End If
+
+            Catch ex As Exception
+                TieneError = True
+                OnError("Ocurrió un error al cargar las cotizaciones.", ex)
+            Finally
+                If TieneError Then
+                    objCotizacion.RollBack()
+                    Alert("Ocurrió un error al cargar las cotizaciones.")
+                Else
+                    objCotizacion.Commit()
+                    Alert("Las cotizaciones se cargaron correctamente.")
+                End If
+                objCotizacion.Dispose()
+            End Try
+
+        End If
+    End Sub
+#End Region
+
 End Class

OS/OrdenesServicios.aspx.vb

@@ -498,21 +498,21 @@ Partial Class OS_OrdenesServicios
                 '    LnkTecnico.Visible = True
                 'End If
 
-                'If TipoEstatus = 3 Then
+                If TipoEstatus = 3 Then
-                '    DisableAll()
+                    DisableAll()
 
-                '    If SeFacturara = "True" Then
+                    If SeFacturara = "True" Then
-                '        HplFacturar.Visible = True
+                        HplFacturar.Visible = True
-                '        If ObjOS.CveCotizacion > 0 Then
+                        If ObjOS.CveCotizacion > 0 Then
-                '            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
+                            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
-                '        Else
+                        Else
-                '            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
+                            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
-                '        End If
+                        End If
-                '    End If
+                    End If
 
-                'ElseIf TipoEstatus = 4 Then
+                ElseIf TipoEstatus = 4 Then
-                '    DisableAll()
+                    DisableAll()
-                'End If
+                End If
 
                 DivCliente.Attributes.Add("class", "col-md-8")
                 DivFolio.Visible = True
@@ -2410,6 +2410,7 @@ Partial Class OS_OrdenesServicios
 #Region "I M P R I M I R   PDF"
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
         Dim mensajeImprimir As New StringBuilder
+        mensajeImprimir.AppendFormat(String.Format("<br/>Descargar Orden de Servicio con Folio: <a class=""Texto"" href='/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/>", CveOS, CveFolio))
         mensajeImprimir.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", CveOS)))
         Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion)
     End Sub

Scripts/custom.js

@@ -761,7 +761,7 @@ ADSScroll = function (tablescroll) {
         /* Se Combinan las tablas titulo y cuerpo */
         if (idTheader && idTheader.length) {
             if ($(idTheader).length) {
-                $($(idTheader + "> tbody > tr,> thead > tr,> tr").get().reverse()).each(function () {
+                $($(idTheader + "> tbody > tr," + idTheader + "> thead > tr," + idTheader +"> tr").get().reverse()).each(function () {
                     var trthis = $(this);
                     tablescroll.prepend(trthis);
                     rowVisibles += 1;

Ventas/ActualizarPrecios.aspx

@@ -229,11 +229,11 @@
                                 </div>
                             </div>
                             <asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios"
-                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" OnRowDataBound="gvSucursal_RowDataBound" Style="text-align: center;" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField>
                                         <ItemTemplate>
-                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked='<%# Eval("Activo") %>' CssClass="CsMCheckGvSucursal" />
+                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked="false" CssClass="CsMCheckGvSucursal" />
                                             <asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1)  %>' />
                                         </ItemTemplate>
                                     </asp:TemplateField>
@@ -415,6 +415,9 @@
                 $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
             }
         }
+        function FncSeleccionaChk(chk) {
+            chk.checked = true;
+        }
 
 
 

Ventas/ActualizarPrecios.aspx.vb

@@ -471,4 +471,9 @@ Partial Class Ventas_ActualizarPrecios
     End Function
 #End Region
 
+    Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
+        End If
+    End Sub
 End Class

Ventas/Clientes.aspx.vb

@@ -2538,11 +2538,6 @@ Partial Class Clientes
 
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
-                CargaHistorial()
-                CargaDatos()
-                UpDatos.Update()
-                UpnHistorial.Update()
-
                 If EstatusAnteriorCliente <> ChkEstado.Checked Then
 
                     Dim DTVendedor As New DataTable
@@ -2551,7 +2546,7 @@ Partial Class Clientes
                     If DTVendedor.Rows.Count > 0 Then
                         Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString
 
-                        If _CorreoVendedor.Length > 0 Then
+                        If _CorreoVendedor.Length > 0 And UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 Then
 
                             Dim Asunto As String = ""
                             Dim Para As String = _CorreoVendedor
@@ -2559,18 +2554,21 @@ Partial Class Clientes
 
                             If ChkEstado.Checked Then
                                 Asunto = "Activación de cliente " & TxtNombre.Text
-                                SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del  cliente {0}  a sido activado.", TxtNombre.Text))
+                                SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del  cliente {0} ha sido activado.", TxtNombre.Text))
                             Else
                                 Asunto = "Desactivación de cliente " & TxtNombre.Text
-                                SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del  cliente {0}  a sido desactivado.", TxtNombre.Text))
+                                SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del  cliente {0} ha sido desactivado.", TxtNombre.Text))
                             End If
-                            EstatusAnteriorCliente = ChkEstado.Checked
+                            MandaCorreo(Asunto, Para + "", SBBody.ToString)
-                            MandaCorreo(Asunto, Para, SBBody.ToString)
                         End If
                     End If
 
                 End If
 
+                CargaHistorial()
+                CargaDatos()
+                UpDatos.Update()
+                UpnHistorial.Update()
 
             End If
         End If

Ventas/PV.aspx

@@ -223,7 +223,7 @@
 
                         <table border="0" width="463px">
                             <tr align="left">
-                                <td width="95px"><b>Nombre:</b>&nbsp;</td>
+                                <td width="110px"><b>Nombre:</b>&nbsp;</td>
                                 <td width="200px">
                                     <asp:Label ID="LblCliente" runat="server" Text="Cliente"></asp:Label></td>
                                 <td width="85px" runat="server" id="LblEnviarMail"><b>Enviar Mail:</b></td>
@@ -303,6 +303,14 @@
                                 </td>
                             </tr>
 
+                            <tr align="left" style="border: 4px solid red" runat="server" id="TrEsDistribuidor" visible="false">
+                                <td><b style="color: red;">Es Distribuidor</b></td>
+                                <td></td>
+                                <td><b style="color: red">Vendedor:</b></td>
+                                <td>
+                                    <asp:Label ID="LbVendedor" runat="server" Text=""></asp:Label></td>
+                            </tr>
+
                         </table>
                     </div>
                 </div>
@@ -2592,13 +2600,6 @@
                                                                 <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-8">
-                                                            <asp:UpdatePanel ID="UpBtnDescuento" runat="server" class="portlet-body form" UpdateMode="Conditional">
-                                                                <ContentTemplate>
-                                                                    <asp:LinkButton ID="ImgDescPU" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" />
-                                                                </ContentTemplate>
-                                                            </asp:UpdatePanel>
-                                                        </div>
                                                     </div>
 
                                                     <asp:UpdatePanel runat="server" ID="UpClasificacion" UpdateMode="Conditional">
@@ -2660,35 +2661,47 @@
                                                         </div>
                                                     </div>
 
-                                                    <br />
+                                                    <div id="DivRecepcionUsados" runat="server">
 
-                                                    <div class="row">
+                                                        <div class="row">
-                                                        <div class="col-md-12" id="DivRecepcionUsados" runat="server" visible="false">
+                                                            <div class="col-md-5">
-                                                            <asp:GridView ID="GvRecepcionUsados" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
+                                                                <label>Modelo:</label>
-                                                                data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-height="100"
+                                                                <br />
-                                                                DataKeyNames="CvePSCargo,CveUM,Cargo,CveTamaño">
+                                                                <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
-                                                                <Columns>
+                                                                </asp:DropDownList>
-                                                                    <asp:BoundField DataField="CodigoPS" HeaderText="Tamaño" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="35%" />
+                                                            </div>
-                                                                    <asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="20%">
+                                                        </div>
+
+                                                        <br />
+
+                                                        <div class="row">
+                                                            <div class="col-md-12" visible="false">
+                                                                <asp:GridView ID="GvRecepcionUsados" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
+                                                                    data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-height="100"
+                                                                    DataKeyNames="CvePSCargo,CveUM,Cargo,CveTamaño">
+                                                                    <Columns>
+                                                                        <asp:BoundField DataField="CodigoPS" HeaderText="Tamaño" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="35%" />
+                                                                        <asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="20%">
+                                                                            <ItemTemplate>
+                                                                                <asp:TextBox ID="TxtCantidad" CssClass="form-control linewhitsize" runat="server" Width="90%" Height="30px"></asp:TextBox>
+                                                                                <ajax:FilteredTextBoxExtender ID="FTBECantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <%--                                                                    <asp:TemplateField HeaderText="Modelo" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="30%">
                                                                         <ItemTemplate>
-                                                                            <asp:TextBox ID="TxtCantidad" CssClass="form-control linewhitsize" runat="server" Width="90%" Height="30px"></asp:TextBox>
+                                                                            <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
-                                                                            <ajax:FilteredTextBoxExtender ID="FTBECantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
-                                                                        </ItemTemplate>
-                                                                    </asp:TemplateField>
-                                                                    <asp:TemplateField HeaderText="Modelo" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="30%">
-                                                                        <ItemTemplate>
-                                                                            <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto" >
                                                                             </asp:DropDownList>
                                                                         </ItemTemplate>
-                                                                    </asp:TemplateField>
+                                                                    </asp:TemplateField>--%>
-                                                                    <asp:TemplateField HeaderText="BCI" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
+                                                                        <asp:TemplateField HeaderText="BCI" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
-                                                                        <ItemTemplate>
+                                                                            <ItemTemplate>
-                                                                            <asp:DropDownList ID="DdlBCIUsado" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="90%">
+                                                                                <asp:DropDownList ID="DdlBCIUsado" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="90%">
-                                                                            </asp:DropDownList>
+                                                                                </asp:DropDownList>
-                                                                        </ItemTemplate>
+                                                                            </ItemTemplate>
-                                                                    </asp:TemplateField>
+                                                                        </asp:TemplateField>
-                                                                </Columns>
+                                                                    </Columns>
-                                                            </asp:GridView>
+                                                                </asp:GridView>
+                                                            </div>
                                                         </div>
                                                     </div>
 
@@ -2704,15 +2717,27 @@
 
                                                     <br />
 
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                                    <div class="row">
-                                                        <asp:TextBox ID="TxtPrecio" runat="server" onkeypress="setFocus(event,'LbAgregar');" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GrpAddVenta" Width="76px" CssClass="form-control "></asp:TextBox>
+                                                        <div class="col-md-3">
-                                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
+                                                            <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
+                                                                <asp:TextBox ID="TxtPrecio" runat="server" onkeypress="setFocus(event,'LbAgregar');" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GrpAddVenta" Width="76px" CssClass="form-control "></asp:TextBox>
-                                                        <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
-                                                        <asp:CustomValidator ID="CVPrecio" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GrpAddVenta"></asp:CustomValidator>
+                                                                <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
-                                                        <ajax:ValidatorCalloutExtender ID="VCEPrecio" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                        <label for="<%= TxtPrecio.ClientID.ToString()%>">Precio:</label>
+                                                                <asp:CustomValidator ID="CVPrecio" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GrpAddVenta"></asp:CustomValidator>
+                                                                <ajax:ValidatorCalloutExtender ID="VCEPrecio" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                <label for="<%= TxtPrecio.ClientID.ToString()%>">Precio:</label>
+                                                            </div>
+                                                        </div>
+                                                        <div class="col-md-8">
+                                                            <asp:UpdatePanel ID="UpBtnDescuento" runat="server" class="portlet-body form" UpdateMode="Conditional">
+                                                                <ContentTemplate>
+                                                                    <asp:LinkButton ID="ImgDescPU" runat="server" Text="<i class='fa fa-tags' style='color:dimgray;'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" />
+                                                                </ContentTemplate>
+                                                            </asp:UpdatePanel>
+                                                        </div>
                                                     </div>
+
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <div class="row">
                                                             <div class="col-md-6">
@@ -2742,6 +2767,9 @@
                                         </div>
                                     </div>
                                     <asp:UpdatePanel ID="UpAjuste" runat="server" class="portlet-body form" UpdateMode="Conditional">
+                                        <Triggers>
+                                            <asp:PostBackTrigger ControlID="BtnPDFHistorial" />
+                                        </Triggers>
                                         <ContentTemplate>
                                             <div class="col-md-1" id="DivAjuste" runat="server" visible="false">
                                                 <div class="portlet light xspadding bordered">
@@ -2751,10 +2779,10 @@
                                                             <span class="caption-subject bold uppercase">Ajuste </span>
                                                         </div>
                                                         <div class="tools">
+                                                            <asp:LinkButton ID="BtnPDFHistorial" OnClick="BtnPDFHistorial_Click" runat="server" data-toggle="tooltip" Title="PDF"><i class="fa fa-file-pdf-o" style="font-size:15px; font-weight:bold; color:dimgray;"></i></asp:LinkButton>
                                                             <a href="javascript;" class="collapse" data-original-title="" title=""></a>
                                                         </div>
                                                     </div>
-
                                                     <div class="row">
                                                         <div class="col-md-12">
                                                             <div class="form-group form-md-line-input input-iconright">
@@ -2765,14 +2793,14 @@
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-9">
+                                                        <div class="col-md-12">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:DropDownList ID="DdlPSAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" OnSelectedIndexChanged="DdlPSAjuste_selectedindexchange" Width="100%" AutoPostBack="true">
                                                                 </asp:DropDownList>
                                                                 <label for="<%= DdlPSAjuste.ClientID.ToString()%>">Producto/Servicio a Recibir:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-3">
+                                                        <%--                                                        <div class="col-md-3">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtPUFactura" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVPUFactura" runat="server" ControlToValidate="TxtPUFactura" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''PU Factura''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
@@ -2780,10 +2808,10 @@
                                                                 <ajax:FilteredTextBoxExtender ID="FTBEPUFactura" runat="server" TargetControlID="TxtPUFactura" FilterType="Custom, Numbers" ValidChars=".," />
                                                                 <label for="<%= TxtPUFactura.ClientID.ToString()%>">P.U.:</label>
                                                             </div>
-                                                        </div>
+                                                        </div>--%>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%">
                                                                 </asp:DropDownList>
@@ -2792,7 +2820,7 @@
                                                                 <label for="<%= DdlFolioGarantia.ClientID.ToString()%>">Folio:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtConsecutivoAjuste" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
                                                                 <%--<asp:RequiredFieldValidator ID="RFVConsecutivoAjuste" runat="server" ControlToValidate="TxtConsecutivoAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Consec.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
@@ -2802,15 +2830,16 @@
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                <%--<asp:RequiredFieldValidator ID="RFVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
+                                                                <asp:RegularExpressionValidator ID="REVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[0-9][A-HJ-M]([[0-2][1-9]|3[0-1])([A-Z]|X[1-9])[ACEN][A-HJ-NO-Z][A-F]$"></asp:RegularExpressionValidator>
+                                                                <%--<asp:RequiredFieldValidator ID="RFVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%
                                                                 <%--<ajax:ValidatorCalloutExtender ID="VCECodEnsamble" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodEnsamble"></ajax:ValidatorCalloutExtender>--%>
                                                                 <label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:DropDownList ID="DdlTipoUso" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoUso" DataValueField="CveTipoUso" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoUso_SelectedIndexChanged">
                                                                 </asp:DropDownList>
@@ -2822,7 +2851,7 @@
                                                     </div>
                                                     <br />
                                                     <div class="row">
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtCodLinea" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                                                 <%--<asp:RequiredFieldValidator ID="RFVCodLinea" runat="server" ControlToValidate="TxtCodLinea" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Linea''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
@@ -2830,34 +2859,31 @@
                                                                 <label for="<%= TxtCodLinea.ClientID.ToString()%>">Cod.Linea:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
-                                                            <div class="row">
+                                                            <label for="<%= TxtFechaAjuste.ClientID.ToString()%>">Fecha:</label>
-                                                                <div class="col-md-4" style="text-align: left">Fecha:</div>
+                                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                                                <div class="col-md-6">
+                                                                <asp:TextBox ID="TxtFechaAjuste" CssClass="form-control input-sm ADSMaskDate" Width="100%" runat="server"></asp:TextBox>
-                                                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                                                <span class="input-group-btn ">
-                                                                        <asp:TextBox ID="TxtFechaAjuste" CssClass="form-control input-sm ADSMaskDate" Width="100%" runat="server"></asp:TextBox>
+                                                                    <asp:LinkButton ID="LnkFechaAjuste" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                                        <span class="input-group-btn ">
+                                                                </span>
-                                                                            <asp:LinkButton ID="LnkFechaAjuste" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                <ajax:MaskedEditExtender ID="MEEFechaAjuste" runat="server" TargetControlID="TxtFechaAjuste" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                                        </span>
+                                                                <ajax:CalendarExtender runat="server" ID="CEEFechaAjuste" TargetControlID="TxtFechaAjuste" PopupButtonID="LnkFechaAjuste" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
-                                                                        <ajax:MaskedEditExtender ID="MEEFechaAjuste" runat="server" TargetControlID="TxtFechaAjuste" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                <asp:RequiredFieldValidator ID="RFVFechaAjuste" runat="server" ControlToValidate="TxtFechaAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
-                                                                        <ajax:CalendarExtender runat="server" ID="CEEFechaAjuste" TargetControlID="TxtFechaAjuste" PopupButtonID="LnkFechaAjuste" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                                                <ajax:ValidatorCalloutExtender ID="VCEFechaAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAjuste"></ajax:ValidatorCalloutExtender>
-                                                                        <asp:RequiredFieldValidator ID="RFVFechaAjuste" runat="server" ControlToValidate="TxtFechaAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
-                                                                        <ajax:ValidatorCalloutExtender ID="VCEFechaAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAjuste"></ajax:ValidatorCalloutExtender>
-                                                                    </div>
-                                                                </div>
                                                             </div>
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtCodInspeccion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                <asp:RegularExpressionValidator ID="REVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[A-L][3-9][1-9A-V][A-FK-O]$"></asp:RegularExpressionValidator>
                                                                 <%--<asp:RequiredFieldValidator ID="RFVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspeccion''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
                                                                 <%--<ajax:ValidatorCalloutExtender ID="VCECodInspeccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodInspeccion"></ajax:ValidatorCalloutExtender>--%>
                                                                 <label for="<%= TxtCodInspeccion.ClientID.ToString()%>">Cod. Inspección:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtMesesUso" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVMesesUso" runat="server" ControlToValidate="TxtMesesUso" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Meses de Uso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
@@ -2868,16 +2894,25 @@
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlTipoDefecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoDefecto" DataValueField="CveTipoDefecto" Width="100%">
+                                                                <asp:DropDownList ID="DdlTipoDefecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoDefecto" DataValueField="CveTipoDefecto" Width="100%" OnSelectedIndexChanged="DdlTipoDefecto_SelectedIndexChanged" AutoPostBack="true">
                                                                 </asp:DropDownList>
                                                                 <asp:RequiredFieldValidator ID="RFVTipoDefecto" runat="server" ControlToValidate="DdlTipoDefecto" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Defecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCETipoDefecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDefecto"></ajax:ValidatorCalloutExtender>
                                                                 <label for="<%= DdlTipoDefecto.ClientID.ToString()%>">Tipo de Defecto:</label>
                                                             </div>
                                                         </div>
-                                                        <div class="col-md-6">
+                                                        <div class="col-md-4">
+                                                            <div id="DivCodigoTD" class="form-group form-md-line-input input-iconright" runat="server" visible="false">
+                                                                <asp:TextBox ID="TxtCodigoTD" CssClass="form-control" runat="server" MaxLength="11" Width="100%"></asp:TextBox>
+                                                                <asp:RequiredFieldValidator ID="RFVCodigoTD" runat="server" ControlToValidate="TxtCodigoTD" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
+                                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodigoTD"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtCodigoTD" FilterType="Custom, Numbers, UppercaseLetters " ValidChars="." />
+                                                                <label for="<%= TxtCodigoTD.ClientID.ToString()%>">Código:</label>
+                                                            </div>
+                                                        </div>
+                                                        <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtPorcentajeAjuste" CssClass="form-control" Enabled="false" runat="server" MaxLength="50"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVPorcentajeAjuste" runat="server" ControlToValidate="TxtPorcentajeAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''% Ajuste''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
@@ -3080,6 +3115,7 @@
 
                 var Descuento = parseFloat($get("TxtPorDescP").value);
                 $get("LblPrecioFinal").innerText = formato_numero(Monto - ((Monto * Descuento) / 100), 2, '.', ',');
+                $get("TxtPrecio").value = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ',');
                 var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", ""));
                 $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ',');
                 $get("HdnDescuento").value = Total;
@@ -3107,6 +3143,7 @@
                 var Descuento = parseFloat($get("TxtDescP").value);
                 $get("TxtPorDescP").value = Descuento * 100 / Monto * 10
                 $get("LblPrecioFinal").innerText = formato_numero(Monto - Descuento, 2, '.', ',');
+                $get("TxtPrecio").value = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ',');
                 var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", ""));
                 $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ',');
                 $get("HdnDescuento").value = Total;

Ventas/PV.aspx.vb

@@ -8,6 +8,7 @@ Imports System.Linq
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Globalization
 Imports System.Net.Http
+Imports Microsoft.Reporting.WebForms
 
 Partial Class PV
     Inherits ClsPaginas
@@ -932,6 +933,14 @@ Partial Class PV
             ViewState("DtPUFacturas") = value
         End Set
     End Property
+    Private Property DtModelosAuto As DataTable
+        Get
+            Return CType(ViewState("DtModelosAuto"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtModelosAuto") = value
+        End Set
+    End Property
 #End Region
 
 #Region "PROPIEDADES ACUMULADORES"
@@ -1166,6 +1175,7 @@ Partial Class PV
                 DdlTipoComprobante.Items.Add(New ListItem("Remisión", "Rem"))
                 DdlTipoComprobante.SelectedValueExist("Rem")
             End If
+            DdlTipoDefecto.Width = New Unit(260%)
 
             'Le quitamos el tamaño extra
             'RegistraScript("window.onload = function AjustarVentana() { $('.page-content').css('min-height','100%'); }")
@@ -1601,6 +1611,11 @@ Partial Class PV
                 ViewState("CodCliente") = ObjCliente.Codigo
                 ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
 
+                If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
+                    TrEsDistribuidor.Visible = True
+                    LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
+                End If
+
                 ViewState("CliNoExt") = ObjCliente.NoExt
                 ViewState("CliNoInt") = ObjCliente.NoInt
                 ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
@@ -2772,10 +2787,8 @@ Partial Class PV
                     DivRecepcionUsados.Visible = True
                     If DdlTipoComprobante.SelectedValue <> "Rem" Then
                         GvRecepcionUsados.Columns(2).Visible = False
-                        GvRecepcionUsados.Columns(3).Visible = False
                     Else
                         GvRecepcionUsados.Columns(2).Visible = True
-                        GvRecepcionUsados.Columns(3).Visible = True
                     End If
                 End If
 
@@ -2858,6 +2871,16 @@ Partial Class PV
     Protected Sub DdlPS_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPS.selectedindexchange
         DdlPSIndexChange(DdlPS.SelectedValue.ToEntero, DdlPS)
     End Sub
+
+    Protected Sub DdlTipoDefecto_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlTipoDefecto.SelectedIndexChanged
+        If DdlTipoDefecto.SelectedValue.ToEntero = 17 Then
+            DivCodigoTD.Visible = True
+            DdlTipoDefecto.Width = New Unit(140%)
+        Else
+            DivCodigoTD.Visible = False
+            DdlTipoDefecto.Width = New Unit(200%)
+        End If
+    End Sub
     Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
         CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero)
     End Sub
@@ -3462,10 +3485,10 @@ Partial Class PV
             End If
         Next
 
-        If CantidadUsados > TxtCantidad.Text.ToEntero() Then
+        'If CantidadUsados > TxtCantidad.Text.ToEntero() Then
-            Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
+        '    Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
-            Return False
+        '    Return False
-        End If
+        'End If
 
         'VALIDA PROMOCIONES
         Dim ObjVentas As New ClsVentas
@@ -4922,6 +4945,7 @@ Partial Class PV
 
         Dim DtTamanios = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0")
 
+        CargaModelos()
         GvRecepcionUsados.DataSource = DtTamanios
         GvRecepcionUsadosModal.DataSource = DtTamanios
 
@@ -4941,6 +4965,15 @@ Partial Class PV
         DivChkAjuste.Visible = True
     End Sub
 
+    Private Sub CargaModelos()
+        Dim ObjGral As New ClsGenerales
+        If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then
+            DtModelosAuto = ObjGral.DtResultados
+            DdlModeloAuto.DataSource = DtModelosAuto
+        End If
+        DdlModeloAuto.DataBind()
+    End Sub
+
     Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
@@ -4953,10 +4986,6 @@ Partial Class PV
             e.Row.FCDropDownList("DdlBCIUsado").DataBind()
             'e.Row.FCDropDownList("DdlBCIUsado").SelectedValue = e.Row.DBCampo("CveBCIUsado")
 
-            If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then
-                e.Row.FCDropDownList("DdlModeloAuto").DataSource = ObjGral.DtResultados
-            End If
-            e.Row.FCDropDownList("DdlModeloAuto").DataBind()
         End If
     End Sub
 
@@ -4989,7 +5018,7 @@ Partial Class PV
         LimpiaAjuste()
         If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.FiltraParametros($"ConsecutivoVenta = {ConsecutivoVenta}").Rows.Count > 0 Then
             ModalidadAjuste = "U"
-            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
+            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
             ChkAjuste.Checked = True
             DivAjuste.Visible = True
             CargaAjusteDetalle()
@@ -5005,7 +5034,7 @@ Partial Class PV
         TxtCodEnsamble.Text = ""
         DdlTipoUso.SelectedIndex = -1
         TxtCodLinea.Text = ""
-        TxtPUFactura.Text = ""
+        TxtPrecio.Text = ""
         TxtFechaAjuste.Text = Now.ToShortDateString
         CEEFechaAjuste.EndDate = Now
         TxtCodInspeccion.Text = ""
@@ -5014,7 +5043,7 @@ Partial Class PV
         TxtPorcentajeAjuste.Text = ""
         TxtPoliza.Text = ""
         TxtImporteAjuste.Text = ""
-        DdlPSAjuste.SelectedIndex = 0
+        DdlPSAjuste.SelectedIndex = -1
         ChkAjuste.Checked = False
         DivAjuste.Visible = False
     End Sub
@@ -5047,8 +5076,8 @@ Partial Class PV
             CargaPSAjuste()
             DdlPSAjuste.SelectedValueExist(Dr("CvePS").ToString)
             TxtFechaAjuste.Text = Dr("FechaAjuste").ToString.ToDate.ToShortDateString
-            TxtPUFactura.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2)
+            TxtPrecio.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2)
-            TxtPUFactura.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0
+            TxtPrecio.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0
         End If
     End Sub
     Protected Sub BtnCalculaMesesUso_Click(sender As Object, e As EventArgs)
@@ -5056,7 +5085,17 @@ Partial Class PV
     End Sub
 
     Private Sub CalculaMesesUso()
-        TxtMesesUso.Text = DateDiff(DateInterval.Month, TxtFechaAjuste.Text.ToDate, Now).ToEntero.ToString
+        Dim FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1)
+        Dim FechaF = Now
+        'Dim NumDiasAlMes As Double = (365 / 12)
+
+        'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
+
+        'Dim MesesTranscurridos As Double = DiasTranscurridos / NumDiasAlMes
+
+        'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
+
+        TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString()
         CalculaPorcentajeAjuste()
     End Sub
 
@@ -5099,7 +5138,7 @@ Partial Class PV
             If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                 If ObjAcum.DtResultados.Rows.Count > 0 Then
                     TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
-                    TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDouble * TxtPUFactura.Text.ToDouble).FormatoNumero
+                    TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDouble * TxtPrecio.Text.ToDouble).FormatoNumero
 
                     Dim CargoActual As Decimal = 0
                     Dim CargoAnterior As Decimal = 0
@@ -5128,8 +5167,8 @@ Partial Class PV
                         End If
                     End If
 
-                    TxtDescuentoAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior)).FormatoNumero
+                    TxtDescuentoAjuste.Text = ((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior)).FormatoNumero
-                    TxtDescuentoAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoActual - CargoAnterior).FormatoNumero}."
+                    TxtDescuentoAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoActual - CargoAnterior).FormatoNumero}."
                 End If
             End If
             ObjAcum.Dispose()
@@ -5163,7 +5202,7 @@ Partial Class PV
     'End Function
 
     Private Sub GuardaAjuste()
-        TxtPUFactura.Text = TxtPrecio.Text
+        TxtPrecio.Text = TxtPrecio.Text
         UpAjuste.Update()
 
         Dim CargoAnterior As Double = 0
@@ -5187,7 +5226,7 @@ Partial Class PV
             Row("CvePS") = DdlPSAjuste.SelectedValue
             Row("PS") = DdlPSAjuste.SelectedItem.Text
             Row("CveVenta") = DdlFacturas.SelectedValue
-            Row("PUFactura") = TxtPUFactura.Text.ToDouble
+            Row("PUFactura") = TxtPrecio.Text.ToDouble
             Row("Cantidad") = 1
             Dim CveUM As Integer = -1
             If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
@@ -5217,7 +5256,7 @@ Partial Class PV
             TmpDTAjustes.Rows(IndexAjuste)("CvePS") = DdlPSAjuste.SelectedValue
             TmpDTAjustes.Rows(IndexAjuste)("PS") = DdlPSAjuste.SelectedItem.Text
             TmpDTAjustes.Rows(IndexAjuste)("CveVenta") = DdlFacturas.SelectedValue
-            TmpDTAjustes.Rows(IndexAjuste)("PUFactura") = TxtPUFactura.Text.ToDouble
+            TmpDTAjustes.Rows(IndexAjuste)("PUFactura") = TxtPrecio.Text.ToDouble
             TmpDTAjustes.Rows(IndexAjuste)("Cantidad") = 1
             Dim CveUM As Integer = -1
             If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
@@ -5244,7 +5283,7 @@ Partial Class PV
                     End If
                 End If
 
-                Dr("Descuento") = Math.Round((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior), NumeroDecimales)
+                Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior), NumeroDecimales)
 
                 Dim TotalCalculableImpuestos As Decimal = (Dr("Cantidad").ToString.ToDecimal * (Dr("PU").ToString.ToDecimal)) - Dr("Descuento").ToString.ToDecimal
                 Dr("ImporteIVA") = Math.Round(Dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
@@ -5281,8 +5320,8 @@ Partial Class PV
             DivAjuste.Attributes.Add("class", "col-md-6")
             DivDatosVenta.Attributes.Remove("class")
             DivDatosVenta.Attributes.Add("class", "col-md-6")
-            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
+            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
-            TxtPUFactura.Text = TxtPrecio.Text
+            TxtPrecio.Text = TxtPrecio.Text
         Else
             For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
                 If Gvr.RowType = DataControlRowType.DataRow Then
@@ -5363,7 +5402,7 @@ Partial Class PV
                     Row("CveVentaDetalle") = -1
                     Row("PU") = Gvr.DataKey("Cargo").ToDouble
                     Row("CveBCIUsado") = Gvr.FCDropDownList("DdlBCIUsado").SelectedValue.ToEntero
-                    Row("CveModeloAuto") = Gvr.FCDropDownList("DdlModeloAuto").SelectedValue.ToEntero
+                    Row("CveModeloAuto") = DdlModeloAuto.SelectedValue.ToEntero
                     TmpDTRecepcionUsados.Rows.Add(Row)
 
                 End If
@@ -5376,13 +5415,13 @@ Partial Class PV
         Next
         StrCargos.Remove(StrCargos.Length - 1, 1)
 
-        If TotalCantidad > TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").SUMD("Cantidad") Then
+        'If TotalCantidad > TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").SUMD("Cantidad") Then
-            Dim drt As DataRow() = TmpDT.Select("CvePS = " & CvePS)
+        '    Dim drt As DataRow() = TmpDT.Select("CvePS = " & CvePS)
-            TmpDT.Rows.Remove(drt(0))
+        '    TmpDT.Rows.Remove(drt(0))
 
-            Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
+        '    Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
         For Each Dr As DataRow In TmpDT.FiltraParametros($"EsCargo = True AND CvePS IN ({StrCargos})").Rows
 
@@ -5628,6 +5667,46 @@ Partial Class PV
     End Sub
 #End Region
 
+    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim DtDatos As New DataTable
 
+        Dim params As New List(Of ReportParameter)
+        'Informacion Distribuidor
+        params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
+        params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
+        params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
+        params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
 
+        'Informacion de Garantia o ajuste
+        params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
+        params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
+        params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
+        params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
+        params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
+
+        'Informacion Acumulador
+        params.Add(New ReportParameter("CodEnsamble", If(TxtCodEnsamble.Text.Length > 7, TxtCodEnsamble.Text.Trim.Substring(0, 7), "")))
+        params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
+        params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
+
+        'Informacion Vehiculo
+        params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+        params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+
+        'Informacion Consumidor
+        params.Add(New ReportParameter("Direccion", LblDireccion.Text))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
+
+    End Sub
 End Class

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -122,36 +122,9 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                 sb.AppendFormat("Es Cancelable: {0} <br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EsCancelable);
                 sb.AppendFormat("Estatus de Cancelación: {0} <br/><br/>", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EstatusCancelacion);
 
-                //var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC).Mensaje;
+                if (!UsuarioActual.Empresa.FacturaProduccion && (string.IsNullOrEmpty(uuid) || uuid.Contains("test")))
-
-                //sb.AppendFormat("{0} <br/>", FueCancelado);
-                //if (CveEstatus.Contiene(4, 5) && EsRefacturacion)
-                //{
-                //    Response.Redirect(string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta));
-                //}
-
-                if ((resp.EsCancelable.ToUpper() == "NO CANCELABLE"))
                 {
-                    sb.Append("Esta factura no es cancelable.");
+                    var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC).Mensaje;
-                    return sb.ToString();
-                }
-
-                if (resp.Estado.ToUpper().Trim() == "CANCELADO" || resp.EstatusCancelacion.ToUpper() == "PLAZO VENCIDO")
-                {
-                    CveEstatus = 5;
-                    var solicitud = new WSGF.Service1SoapClient();
-                    var acuse = solicitud.GetAcuse(emisor, "rene.molina@adsistemas.mx", "rene2018", uuid);
-
-                    if (acuse.Estado == 0)
-                    {
-                        var xmlAcuse = new System.Xml.XmlDocument();
-                        xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64));
-
-                        CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")[0].InnerText;
-                        CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes["Fecha"].Value.ToDate();
-                    }
-
-                    var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion).Mensaje;
 
                     sb.AppendFormat("{0} <br/>", FueCancelado);
                     if (CveEstatus.Contiene(4, 5) && EsRefacturacion)
@@ -159,20 +132,52 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                         Response.Redirect(string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta));
                     }
                 }
-                else if (resp.EstatusCancelacion.ToUpper() == "SOLICITUD RECHAZADA")
+                else
                 {
-                    //ASIGNAMOS ESTATUS EMITIDA
+                    if ((resp.EsCancelable.ToUpper() == "NO CANCELABLE"))
-                    CveEstatus = 3;
-                    var ObjVentas = new ClsVentas();
-                    if (ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa))
                     {
-                        sb.Append("El estatus de la factura fue cambiado a 'Emitida'.");
+                        sb.Append("Esta factura no es cancelable.");
+                        return sb.ToString();
                     }
-                    else
+
+                    if (resp.Estado.ToUpper().Trim() == "CANCELADO" || resp.EstatusCancelacion.ToUpper() == "PLAZO VENCIDO")
                     {
-                        sb.Append("Ocurrió un error al cambiar el estatus de la factura.");
+                        CveEstatus = 5;
+                        var solicitud = new WSGF.Service1SoapClient();
+                        var acuse = solicitud.GetAcuse(emisor, "rene.molina@adsistemas.mx", "rene2018", uuid);
+
+                        if (acuse.Estado == 0)
+                        {
+                            var xmlAcuse = new System.Xml.XmlDocument();
+                            xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64));
+
+                            CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")[0].InnerText;
+                            CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes["Fecha"].Value.ToDate();
+                        }
+
+                        var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion).Mensaje;
+
+                        sb.AppendFormat("{0} <br/>", FueCancelado);
+                        if (CveEstatus.Contiene(4, 5) && EsRefacturacion)
+                        {
+                            Response.Redirect(string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta));
+                        }
+                    }
+                    else if (resp.EstatusCancelacion.ToUpper() == "SOLICITUD RECHAZADA")
+                    {
+                        //ASIGNAMOS ESTATUS EMITIDA
+                        CveEstatus = 3;
+                        var ObjVentas = new ClsVentas();
+                        if (ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa))
+                        {
+                            sb.Append("El estatus de la factura fue cambiado a 'Emitida'.");
+                        }
+                        else
+                        {
+                            sb.Append("Ocurrió un error al cambiar el estatus de la factura.");
+                        }
+                        ObjVentas.Dispose();
                     }
-                    ObjVentas.Dispose();
                 }
             }
             else

Ventas/Ventas.aspx

@@ -3417,7 +3417,7 @@
                             </div>
 
                             <div class="col-md-8">
-                                <asp:DropDownList ID="DdlTipoRelacion" runat="server" Width="250px" CssClass="select2me">
+                                <asp:DropDownList ID="DdlTipoRelacionAnticipo" runat="server" Width="250px" CssClass="select2me">
                                     <asp:ListItem Text="-" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="07 - CFDI por aplicación de anticipo" Value="7"></asp:ListItem>
                                 </asp:DropDownList>

Ventas/Ventas.aspx.vb

@@ -1335,6 +1335,17 @@ Partial Class Ventas
             ViewState("CveOC") = value
         End Set
     End Property
+
+    Private Property RegistroxOC As Boolean
+        Get
+            Return CBool(IfNull(ViewState("RegistroxOC"), False))
+        End Get
+        Set(value As Boolean)
+            ViewState("RegistroxOC") = value
+        End Set
+    End Property
+
+
     Private Property EnviarCorreoCliente As Boolean
         Get
             Return CBool(ViewState("EnviarCorreoCliente").ToString)
@@ -3784,7 +3795,7 @@ Partial Class Ventas
                 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString
                 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString = "True"
                 DdlTipoAmortizacionAnticipo.SelectedValueExist(DbRowVenta("CveTipoAmortizacionAnticipo"))
-                DdlTipoRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion"))
+                DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion"))
 
                 'HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString
                 'HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2)
@@ -5612,7 +5623,7 @@ Partial Class Ventas
     End Sub
     Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating
         'Dim TipoDescuento As Integer
-        Dim Cantidad, PU, Descuento As Decimal
+        Dim Cantidad, PU, Descuento, CantidadInventario As Decimal
         Dim CuentaPredial As String
 
         Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal
@@ -5620,6 +5631,7 @@ Partial Class Ventas
         Descuento = Math.Round(GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Text.ToDecimal, NumeroDecimales)
         CuentaPredial = GvPS.Rows(e.RowIndex).FCTextBox("TxtPredial").Text.Trim
 
+
         Dim DatarowPS As DataRow = Nothing
         DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero).FiltroPrimero("") ' Estado = -1
 
@@ -5632,6 +5644,136 @@ Partial Class Ventas
             End If
         End If
 
+
+        'si es remisión, ingreso, anticipo debe de considerar el preciominimo
+
+        If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
+            Dim CvePS As Integer = DatarowPS("CvePS").ToString.ToEntero
+
+            CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString.ToDecimal
+            Dim ValidaExistencia As Boolean = True
+            If CantidadInventario > 0 Then 'si ya hay algo surtido, que no valide existencia
+                ValidaExistencia = False
+            End If
+
+            'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
+            If UsuarioActual.Empresa.UsaInventarios AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then
+                Dim ObjInventarios As New ClsInventarios
+                Dim Existencia As Decimal
+                If ValidaExistencia Then
+                    Existencia = ObjInventarios.GetExistenciasPS(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
+                End If
+
+                Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero)
+
+                'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
+                If Costo = 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1)
+
+                ObjInventarios.Dispose()
+                Dim PrecioMinimo As Decimal = 0
+                'RMF. condicion temporal, para reubicación, precio mínimo 
+                If UsuarioActual.CveEmpresa = 119 Then
+                    'Dim CvePrecioLista As Integer = 38
+                    Dim objPS As New ClsProductosServicios
+                    If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then
+                        PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal
+                        If PrecioMinimo > 0 Then
+                            Costo = PrecioMinimo
+                        End If
+                    End If
+                    objPS.Dispose()
+
+                End If
+
+                If ValidaExistencia AndAlso DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False AndAlso Not RegistroxOC Then
+                    'VALIDA EXISTENCIA
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then
+                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS}") < TxtCantidad.Text.ToDouble Then
+                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+
+                        End If
+                    End If
+                End If
+
+                'VALIDA COSTOS
+                If Not CveContrato > 0 Then
+
+                    'BANDERAS PARA VALIDACIONES
+                    Dim EsValido = False
+                    Dim EsValidoMayor = False
+                    Dim CostoMenor = 0.0D
+                    Dim CostoMayor = 0.0D
+
+                    'PRECIO MINIMO
+                    If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                        CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo)
+                        If PrecioMinimo > 0 Then CostoMenor = PrecioMinimo
+
+                        'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
+                        If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
+                            EsValido = True
+                        End If
+                    Else
+                        EsValido = True
+                    End If
+
+                    'PRECIO MAXIMO
+                    If UsuarioActual.Empresa.Funcionalidad(133).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                        CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
+                        'SI EL PRECIO ES MAYOR AL COSTO MAXIMO, SI PASA
+                        If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then
+                            EsValidoMayor = True
+                        End If
+                    Else
+                        EsValidoMayor = True
+                    End If
+
+                    ''VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR
+                    ''SIRVE PARA VALIDAR PRECIOS DEBAJO DEL PRECIO MINIMO PERMITIDO
+                    'If Not EsValido Then
+                    '    If DtPromociones.FiltraParametros($"CvePS = {CvePS}").Rows.Count > 0 Then
+                    '        If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then
+                    '            EsValido = True
+                    '        End If
+                    '    End If
+                    'End If
+
+                    'NO DEJA REGISTRAR MENOS AL PRECIO MINIMO
+                    Dim MensajeCosto As New StringBuilder
+                    Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
+                    If Not EsValido Then
+                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", DatarowPS("PS").ToString)
+                        If TienePermisoImportes Then
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                        End If
+
+
+                        Alert(String.Format(MensajeCosto.ToString), TipoMensaje.MsgAdvertencia)
+                        e.Cancel = True
+                        Exit Sub
+                    End If
+
+                    'NO DEJA REGISTRAR MAS AL PRECIO MAXIMO
+                    If Not EsValidoMayor Then
+                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
+                        If TienePermisoImportes Then
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                        End If
+                        Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia)
+                        e.Cancel = True
+                        Exit Sub
+                    End If
+
+                End If
+            End If
+        End If
+
+
+
         If TmpDT.Rows(e.RowIndex)("CvePS").ToString <> GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue Then
             'eliminar y cargar el ps ***
             Dim DdlUM As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida")
@@ -6431,8 +6573,12 @@ Partial Class Ventas
                         actualindex = actualindex + 1
                     Next
                 End If
+                Dim EsNCAmortizacion As Boolean = False
+                If DdlTipoComprobante.SelectedValue = "Egs" AndAlso ChkAplicaNCAnticipo.Checked Then
+                    EsNCAmortizacion = True
+                End If
 
-                GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS, ObjEventos, ObjCGame, ObjClientes)
+                GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS, ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion)
 
                 'SI ES REFACTURACION
                 Dim ObjNC As List(Of Object) = Nothing
@@ -6455,57 +6601,9 @@ Partial Class Ventas
                     End If
                 End If
 
-                ''[IPP]
-                ''DATATABLES A USAR
-                'Dim DtSites As New DataTable
-                'Dim DtExcel As New DataTable
 
-                ''CARGAS EXCEL EN DATATABLE
+                    'SI ES amortizacion 3.3
-                'DtExcel = TmpDT
+                    Dim Obj2 As New List(Of Object)
-
-                ''CARGAS LOS SITES REGISTRADOS
-                'If ObjBancos.GetBancos() Then
-                '    DtSites = ObjBancos.DtResultados
-                'End If
-
-                ''PROCESAS EXCEL
-                'Dim CveSiteActual = -1
-                'For Each Row As DataRow In TmpDT.Rows
-
-                '    'VALIDA QUE EXISTA EL SITE
-                '    If DtExcel.Select($"Site = {Row("SITE")}").Count = 0 Then 'SI NO EXISTE AGREGA EL SITE
-                '        CveSiteActual = ObjBancos.AddComplementoPago(-1, -1, "", -1, -1, -1)
-
-                '        'VALIDAS QUE SE HALLA AGREGADO
-                '        If CveSiteActual > 0 Then
-                '            'AGREGA NUEVO SITE AL DATATABLE TEMPORAL DE SITES
-                '            Dim DrNuevoSite = DtExcel.NewRow
-                '            DrNuevoSite("CVE") = CveSiteActual
-                '            DrNuevoSite("SITE") = Row("SITE")
-                '        Else
-                '            Alert("ERROR AL AGREGAR EL SITE")
-                '            Exit For
-                '        End If
-
-                '    ElseIf DtExcel.Select($"Site = {Row("SITE")}").Count = 1 Then 'SI EXISTE OBTIENES CVE
-                '        CveSiteActual = DtExcel.Select($"Site = {Row("SITE")}")(0)("Cve").ToString.ToEntero
-                '    Else
-                '        Alert("ERROR SOLO DEBE DAR RESULTADO 0 ó 1")
-                '        Exit For
-                '    End If
-
-                '    'AGREGA A TABLA CON LA DE MAS INFORMACION
-                '    If Not ObjBancos.AddBancos_EstatusIE(CveSiteActual, Row("CAMPOS").ToString, Row("CAMPOS_EXTRA").ToString.ToEntero) Then
-                '        Alert("ERROR AL GUARDAR")
-                '        Exit For
-                '    End If
-
-                'Next
-
-
-
-                'SI ES amortizacion 3.3
-                Dim Obj2 As New List(Of Object)
 
                 If ErrorList.Count = 0 Then
                     '  cambiar la condicion para saber si hay seleccionado
@@ -7016,7 +7114,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.UsoCFDI = DdlUsoCFDI.SelectedItem.Text
         ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
 
-        ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero
+        ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
         ObjFacturaDevolucion.TipoRelacion = "07"
         Dim Fol As New List(Of String)
         Fol.Add(FolioFiscalRelacionado)
@@ -7311,6 +7409,8 @@ Partial Class Ventas
 
             If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
                 DtVentasNC.Rows(0)("Importe") = Total
+                DtVentasNC.Rows(0)("TC") = factura.TipoCambio
+                DtVentasNC.Rows(0)("TCCambioValuacion") = factura.TipoCambio
             End If
 
             ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
@@ -7846,7 +7946,7 @@ Partial Class Ventas
         End If
 
         'Amortizacion 
-        ObjFactura.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero
+        ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
         If ObjFactura.CveTipoRelacion > 0 Then
             Select Case ObjFactura.CveTipoRelacion
                 Case 7
@@ -7859,16 +7959,19 @@ Partial Class Ventas
         ObjFactura.AplicaDevolucion = Me.AplicaDevolucion
 
         ObjFactura.CveTipoAmortizacionAnticipo = DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero
+        ObjFactura.Timbre.Comprobante.TipoComprobante = If(ObjFactura.TipoDocto.Contiene("Ing", "Ant"), "I", If(ObjFactura.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
 
         If ObjFactura.Timbre.Comprobante.TipoComprobante = "E" Then
-            If ObjFactura.TipoDocumento.Contiene("Nota de Crédito") Then
+            If ObjFactura.TipoDocto = "Egs" Then
                 ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "01"
                 ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+
             End If
-            If ObjFactura.TipoDocumento.Contiene("Nota de Devolución") Then
+            If ObjFactura.TipoDocto = "Dev" Then
                 ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "03"
                 ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
             End If
+            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
             ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
         End If
         ' cuando es refacturacoin es cfdirelacionado, con relacion 04
@@ -7879,18 +7982,12 @@ Partial Class Ventas
         End If
 
 
-        If ObjFactura.TipoDocto = "Egs" Then
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
-        End If
-        If ObjFactura.TipoDocto = "Dev" Then
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
-        End If
         If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso NuevaFactura = 1 Then ' refacturación
             ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
         End If
 
-        If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTiposRelacion.SelectedValue.ToEntero > 0 Then ' refacturación
+        If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero > 0 Then ' refacturación
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
+            ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
             If GVAnticipos.Rows.Count > 0 Then
                 For Each gvr As GridViewRow In GVAnticipos.Rows
                     If gvr.FCCheckBox(String.Format("Chk{0}", gvr.RowIndex)).Checked AndAlso gvr.DataKey("CveConceptoContable") = "12" Then ' solo notas de crédito
@@ -8288,7 +8385,7 @@ Partial Class Ventas
 
         Else
             'SI LA FACTURA VIENE DE SER CANCELADA SISTEMA CUANDO SE REFACTURO NO HAY QUE RELACIONAR
-            If (CveEstatusFacturaPadre > 0 AndAlso CveEstatusFacturaPadre <> 4) OrElse (DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0) Then
+            If (CveEstatusFacturaPadre > 0 AndAlso CveEstatusFacturaPadre <> 4) OrElse (DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0) OrElse HdnFolioFiscalNC.Value.ToString <> "" Then
                 If Obj.CveTipoRelacion > 0 Then
 
                     Select Case Obj.CveTipoRelacion
@@ -8655,6 +8752,7 @@ Partial Class Ventas
         If GVOC.Rows.Count > 0 Or GvOCPS.Rows.Count > 0 Then
             'Checa las facturas selecionadas
             VerificaOrdenesCompra(DTOrdenesCompra)
+            RegistroxOC = False
 
             Dim dtSeleccionadas As DataTable = DTOrdenesCompra.FiltraParametros("Aplicado = True")
             If GvPS.Rows.Count > 0 Then
@@ -8697,7 +8795,7 @@ Partial Class Ventas
                 sb.Remove(sb.Length - 1, 1)
                 If ObjClientes.GetVentasOCTotales(CveCliente, sb.ToString, If(ChkPSOC.Checked, 2, 1)) Then
                     DTOrdenesCompraPS = ObjClientes.DtResultados
-
+                    RegistroxOC = True
                     Dim tCantidad As Decimal = 0
                     For Each Dr As DataRow In DTOrdenesCompraPS.Select()
                         tCantidad = If(ChkPSOC.Checked, GvOCPS.Rows(IndiceGVDataKey(GvOCPS, "CveOrdenCompraDetalle", $"{Dr("CveOrdenCompraDetalle")}")).FCTextBox("TxtCantidadOC").Text, Dr("Cantidad")).ToString.ToDecimal
@@ -9134,7 +9232,7 @@ Partial Class Ventas
 
             If ErrorList.Count = 0 Then
                 'prepoliza
-                GuardarVentaPrePolizas(ObjConta, factura, TmpDTDetalle, CveNCaVincular, objContPaqi, ObjBancos, ObjVentas, ObjEventos:=ObjEventos)
+                GuardarVentaPrePolizas(ObjConta, factura, TmpDTDetalle, CveNCaVincular, objContPaqi, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, EsNCAmortizacion:=EsNCAmortizacion)
                 If ErrorList.Count = 0 Then
                     'inventarios
                     If Not EsNCAmortizacion Then
@@ -9182,7 +9280,7 @@ Partial Class Ventas
         If DdlTipoComprobante.SelectedValue <> "Cot" Then
             If factura.CvePrePoliza > 0 Then
 
-                If ProcesoPrepolizas(ObjConta, factura, CveIE, TmpDTDetalleMovimientos, objContPaqi, 1, ObjBancos, ObjVentas, ObjEventos:=ObjEventos) Then
+                If ProcesoPrepolizas(ObjConta, factura, CveIE, TmpDTDetalleMovimientos, objContPaqi, 1, ObjBancos, ObjVentas, ObjEventos:=ObjEventos, EsNCAmortizacion:=EsNCAmortizacion) Then
                     ErrorList.Add("Ocurrió un error al agregar los Movimientos de la prepoliza.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                 End If
 
@@ -9440,9 +9538,8 @@ Partial Class Ventas
                                         TipoCambioNC = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
                                     End If
 
-                                    If Not EsNCAmortizacion Then
+                                    'APLICA NC SALDOS DIRECTOS
-                                        'APLICA NC SALDOS DIRECTOS
+                                    If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
-                                        If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
                                             For Each Dr As DataRow In DtVentasNC.Rows
 
 
@@ -9580,8 +9677,6 @@ Partial Class Ventas
                                                 Exit For
                                             End If
                                         End If
-                                    End If
-
 
                                     'APLICA DEVOLUCION SALDOS DIRECTOS
                                     If AplicaDevolucion Then
@@ -9901,6 +9996,13 @@ Partial Class Ventas
                                     CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                 End If
 
+                                ''Cuando se está amortizando con un anticipo y es la modalidad de NC
+                                'If ObjFactura.TipoDocto.Contiene("Ing") AndAlso CveAnticipo > 0 AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
+                                '    ConceptoContableAplicar = 11
+                                '    CveVentaAplicar = CveAnticipo
+                                '    CveVentaAmortizacionAplicar = ObjFactura.CveVenta
+                                'End If
+
                                 ' If UsuarioActual.CveEmpresa = 119 Then
 
                                 'código fijo en base el porcentaje iva, que se afecten las clasificaciones
@@ -9976,20 +10078,12 @@ Partial Class Ventas
 
                             importeMovimiento = 0
                         Case 150 'Descuento sobre ventas
-                            If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
+                            If ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
 
                                 Dim ConceptoContableAplicar = 150
                                 Dim CveVentaAplicar = ObjFactura.CveVenta
                                 Dim CveVentaAmortizacionAplicar = -1
 
-                                'cuando es NC, por amortización de anticipo, no debe de registrar el concepto 11,
-                                'pero cuando es NC y se aplicó anticipo, debe de restarle el importe
-                                If ObjFactura.TipoDocto.Contiene("Egs") And CveAnticipo > 0 AndAlso ChkAplicaNCAnticipo.Checked = True Then
-                                    ConceptoContableAplicar = 11
-                                    CveVentaAplicar = CveAnticipo
-                                    CveVentaAmortizacionAplicar = ObjFactura.CveVenta
-                                End If
-
                                 If UsuarioActual.CveEmpresa = 119 Then
 
                                     'código fijo en base el porcentaje iva, que se afecten las clasificaciones
@@ -9998,16 +10092,6 @@ Partial Class Ventas
                                         'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                         If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "18097") Then
 
-                                            'If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal > 0 Then
-                                            '    If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal = 0.08 Then
-                                            '        TmpDTDetalle(i)("CveClasificacion") = 20242  'clasif: ventas tasa 8%
-                                            '    Else
-                                            '        TmpDTDetalle(i)("CveClasificacion") = 19929  'clasif: ventas tasa 16%
-                                            '    End If
-                                            'Else
-                                            '    TmpDTDetalle(i)("CveClasificacion") = 19930  'clasif: ventas tasa 0%
-                                            'End If
-
                                             If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
                                                 TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString
                                             End If
@@ -15507,7 +15591,7 @@ Partial Class Ventas
             End If
 
         Catch ex As Exception
-            Alert("No se pudo verificar la fecha del certificado", TipoMensaje.MsgError)
+            Alert("No se pudo verificar la fecha del certificado", TipoMensaje.ToastError)
         End Try
     End Sub
 #End Region
@@ -15754,6 +15838,10 @@ Partial Class Ventas
         TxtOrdenCompra.Enabled = True
         TxtPedidoContrato.Enabled = True
         TxtObsAlmacen.Enabled = True
+        DdlUsoCFDI.Enabled = True
+        DdlMetodoPago33.Enabled = True
+        DdlFormaPago33.Enabled = True
+        UPCondicionesPago.Update()
 
         ModalidadEdicion = True
 
@@ -20872,6 +20960,8 @@ Partial Class Ventas
                             Gv.DataKey("SATClaveProdServ").ToString, Gv.DataKey("SATClaveUM").ToString, -1, Gv.DataKey("CveVentaDetalle").ToString.ToEntero, -1, -1, -1, -1)
             End If
         Next
+        TrTipoRelacion.Visible = True
+        DdlTiposRelacion.SelectedValueExist("3")
 
         LimpiaDocumentoDEV()
 
@@ -21326,10 +21416,10 @@ Partial Class Ventas
 
             If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then DivConceptoNC.Visible = True Else DivConceptoNC.Visible = False
 
-            DdlTipoRelacion.SelectedValueExist("7")
+            DdlTipoRelacionAnticipo.SelectedValueExist("7")
         Else
             DivConceptoNC.Visible = False
-            DdlTipoRelacion.SelectedValueExist("-1")
+            DdlTipoRelacionAnticipo.SelectedValueExist("-1")
         End If
 
     End Sub