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

App_Code/ClsPaginas.vb

@@ -5928,6 +5928,7 @@ Public Class ClsPaginas
         If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP)
         If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
         If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
+        If Not String.IsNullOrEmpty(Vta.SubProyecto.Telefono) AndAlso UsuarioActual.CveEmpresa = 141 Then SBDomicilioSucursal.AppendFormat(", Tel: {0}", Vta.SubProyecto.Telefono)
 
         DomicilioSucursal = SBDomicilioSucursal.ToString
 

App_Code/EntityModel.vb

@@ -49,7 +49,11 @@ Namespace Modelos
                                     Case "Single"
                                         prop.SetValue(Me, CSng(row(prop.Name)))
                                     Case "String"
-                                        prop.SetValue(Me, CStr(row(prop.Name)))
+                                        If String.IsNullOrEmpty(row(prop.Name)) Then
+                                            prop.SetValue(Me, "")
+                                        Else
+                                            prop.SetValue(Me, CStr(row(prop.Name)))
+                                        End If
                                     Case "UInt32"
                                         prop.SetValue(Me, CUInt(row(prop.Name)))
                                     Case "UInt64"

App_Code/Modelos.vb

@@ -8729,6 +8729,7 @@ Namespace Modelos
             FormatoFactura = ""
             SubProyecto = ""
             Correo = ""
+            Telefono = ""
             UTCOffsetVerano = -7
             UTCOffsetInvierno = -7
         End Sub
@@ -8738,20 +8739,8 @@ Namespace Modelos
         Public Sub New(Row As System.Data.DataRow)
             SetDefaultValues()
             If Row IsNot Nothing Then
-                Calle = Row("Calle").ToString
+                Me.setValues(Row)
-                NoExt = Row("NoExt").ToString
-                NoInt = Row("NoInt").ToString
-                Colonia = Row("Colonia").ToString
-                Localidad = Row("Localidad").ToString
-                Municipio = Row("Municipio").ToString
-                Estado = Row("Estado").ToString
-                Pais = Row("Pais").ToString
-                CP = Row("CP").ToString
-                SubProyecto = Row("SubProyecto").ToString
-                UTCOffsetVerano = Row("UTCOffsetVerano").ToString.ToEntero()
-                UTCOffsetInvierno = Row("UTCOffsetInvierno").ToString.ToEntero()
             End If
-
         End Sub
 
         Public ReadOnly Property LugarExp As String

Ashx/SIGWeb.ashx

@@ -177,6 +177,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function GetClientes(ByVal context As HttpContext) As String
         Dim retorno As String = ""
         Dim DtRetorno As DataTable = Nothing
+        Dim ColumnaNombre As String = "NombreComercial"
+        'Abreviaturas. N. Nombre, NC. NombreComercial,...
+        If IfNull(context.Request("ColTexto"), "") = "N" Then
+            ColumnaNombre = "Nombre"
+        End If
 
         Dim usuario As Usuario = UsuarioActual(context)
         Dim CveEmpresa As String
@@ -209,7 +214,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
             DtRetorno.Columns("CveCliente").ColumnName = "id"
-            DtRetorno.Columns("NombreComercial").ColumnName = "text"
+            DtRetorno.Columns(ColumnaNombre).ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
             context.Response.Write(retorno)
         Else

OC/OC.aspx

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

OC/OC.aspx.vb

@@ -744,6 +744,8 @@ Partial Class OC
                 BtnSolicitudAnticipo.Visible = False
             End If
 
+            Ddlcliente.ddlWS.Attributes.Add("data-coltexto", "N")
+
             'Nuevo Proceso que permite modificar detalles
             If Not UsuarioActual.TienePermisoProceso(131) Then
                 If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then
@@ -5380,9 +5382,9 @@ Partial Class OC
         End If
     End Sub
 
-    Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Ddlcliente.selectedindexchange
 
-        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.txtValue.Value}"))
+        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.SelectedValue}"))
 
         DdlDireccionEnvio.Visible = False
         TxtLugarEntregaDirecta.Visible = False

Scripts/custom.js

@@ -1084,6 +1084,7 @@ function setwebservice(idDdlWS, idhdValue, idhdText, btn) {
                         CveSubProyecto: (!(DdlWS.data('cvesubproyecto')) || DdlWS.data('cvesubproyecto') == '') ? ((!(DdlWS.parent().data('cvesubproyecto')) || DdlWS.parent().data('cvesubproyecto') == '') ? -1 : DdlWS.parent().data('cvesubproyecto')) : DdlWS.data('cvesubproyecto'),
                         metodo: (!(DdlWS.data('metodo')) || DdlWS.data('metodo') == 'getps') ? ((!(DdlWS.parent().data('metodo')) || DdlWS.parent().data('metodo') == 'getps') ? 'getps' : DdlWS.parent().data('metodo')) : DdlWS.data('metodo'),
                         Pagina: (!(DdlWS.data('pagina')) || DdlWS.data('pagina') == '') ? '-2' : DdlWS.data('pagina'),
+                        ColTexto: (!(DdlWS.data('coltexto')) || DdlWS.data('coltexto') == '') ? 'NC' : DdlWS.data('coltexto')
                         //Metodo: metodo
                     };
                 },

Ventas/RepIngresosDetalle.aspx

@@ -188,11 +188,16 @@
                             <asp:Label runat="server" Text='<%# Eval("Total", "${0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign ="Right">
+                    <asp:TemplateField HeaderText="Amortización" ItemStyle-HorizontalAlign ="Right">
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%#If(Eval("EsAmortizacion").ToString = "True", "Si", "No")%>'> </asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha Venta" ItemStyle-HorizontalAlign ="Right">
+                        <ItemTemplate>
+                            <asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'> </asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -6683,7 +6683,7 @@ Partial Class Ventas
         'If (UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 81, 83) And UsuarioActual.CveUsuario = 100) Or UsuarioActual.CveEmpresa.Contiene(80, 83) Or UsuarioActual.CveUsuario = 100 Then
         If (Archivo.Exists Or Archivo2.Exists) And IfNull(CveVenta, 0).ToString.ToEntero > 0 Then
             HplDownPDF.Visible = True
-            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))
+            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
         End If
 
         UpnTools.Update()
@@ -9763,7 +9763,7 @@ Partial Class Ventas
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then
-                                ConceptoContable = If(UsuarioActual.CveEmpresa.Contiene(1, 119), 95, ConceptoContable)
+                                ConceptoContable = If(UsuarioActual.CveEmpresa.Contiene(119), 95, ConceptoContable)
                                 importeMovimiento = ObjFactura.SubTotal * ValorMultiplicador
                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago