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

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

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">
@@ -2677,7 +2678,7 @@
                                                                     </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 ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
                                                                             </asp:DropDownList>
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
@@ -2704,15 +2705,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">
@@ -2868,15 +2881,24 @@
                                                         </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-2">
+                                                            <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="5" Width="120%"></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>''Importe''</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" ValidChars="." />
+                                                                <label for="<%= TxtCodigoTD.ClientID.ToString()%>">Código:</label>
+                                                            </div>
+                                                        </div>
                                                         <div class="col-md-6">
                                                             <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>
@@ -3080,6 +3102,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 +3130,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

@@ -1166,6 +1166,7 @@ Partial Class PV
                 DdlTipoComprobante.Items.Add(New ListItem("Remisión", "Rem"))
                 DdlTipoComprobante.SelectedValueExist("Rem")
             End If
+            DdlTipoDefecto.Width = New Unit(200%)
 
             'Le quitamos el tamaño extra
             'RegistraScript("window.onload = function AjustarVentana() { $('.page-content').css('min-height','100%'); }")
@@ -1601,6 +1602,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)
@@ -2858,6 +2864,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