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

App_Code/ClsPaginas.vb

@@ -5934,7 +5934,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -6042,7 +6042,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)

App_Code/ClsVentas.vb

@@ -604,7 +604,7 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
-                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
+                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasObservacionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -619,6 +619,9 @@ Public Class ClsVentas
             .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
             .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
             .Add("@FechaPago", SqlDbType.Date).Value = FechaPago
+            .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
+
+
         End With
         Try
             SqlAdapter.Fill(Data)

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -2130,6 +2130,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                     If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
 
+                        If dColumn.ColumnName = "SinSubProyecto" Then
+                            'TxtSub = "Sin SubProyecto"
+                            'Continue For
+                            Exit For
+                        End If
+
                         CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
                         GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
 
@@ -2143,10 +2149,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                             Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
 
-                            If dColumn.ColumnName = "SinSubProyecto" Then
+
-                                TxtSub = "Sin SubProyecto"
-                                Continue For
-                            End If
 
 
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub

Ventas/Ventas.aspx

@@ -4205,7 +4205,7 @@
                                             <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
                                             <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
-                                            <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
+                                            <br /><asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
                                             <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
 
                                         </td>

Ventas/Ventas.aspx.vb

@@ -5322,7 +5322,7 @@ Partial Class Ventas
             End If
 
             If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
-                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm")
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm")
                 DVMEEFechaEje.Visible = False
             Else
                 TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
@@ -33655,6 +33655,9 @@ Partial Class Ventas
             UpPS.Update()
         End If
 
+        TxtDescripcionVenta.Enabled = True
+
+        UpCliente.Update()
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
@@ -33673,7 +33676,7 @@ Partial Class Ventas
         ObjVentas.IniciaTransacSQL()
 
         If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
+                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then
             TieneError = True
         End If