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

Empresas/186/Formatos/Traslado.rdlc

@@ -724,7 +724,7 @@
       <Width>8.06981in</Width>
       <Page>
         <PageHeader>
-          <Height>4.8037cm</Height>
+          <Height>5.67302cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -824,7 +824,7 @@ CIUDAD DE MEXICO</Value>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "AVISO", "ENTRADA") &amp; " DE TRASLADO "</Value>
+                      <Value>=Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "PRE-REMISIÓN", "ENTRADA DE TRASLADO")</Value>
                       <Style>
                         <FontSize>12pt</FontSize>
                       </Style>
@@ -982,7 +982,7 @@ CIUDAD DE MEXICO</Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox12</rd:DefaultName>
-              <Top>2.21518cm</Top>
+              <Top>2.85018cm</Top>
               <Left>16.09549cm</Left>
               <Height>0.44478cm</Height>
               <Width>4.32987cm</Width>
@@ -1187,7 +1187,7 @@ CIUDAD DE MEXICO</Value>
                 </Textbox>
               </ReportItems>
               <KeepTogether>true</KeepTogether>
-              <Top>2.70907cm</Top>
+              <Top>3.66157cm</Top>
               <Height>2.01145cm</Height>
               <Width>20.32792cm</Width>
               <ZIndex>8</ZIndex>
@@ -1229,6 +1229,39 @@ CIUDAD DE MEXICO</Value>
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
+            <Textbox Name="Textbox36">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Parameters!Observaciones.Value</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox31</rd:DefaultName>
+              <Top>2.27107cm</Top>
+              <Left>0.13678cm</Left>
+              <Height>1.37286cm</Height>
+              <Width>13.15003cm</Width>
+              <ZIndex>10</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>

Inventarios/EntregaAlmacen.aspx.vb

@@ -654,6 +654,10 @@ Partial Class Inventarios_EntregaAlmacen
                     TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
+                    If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
+                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
+                    End If
+
                     LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
                     HLFolio.Text = drE("SerieFolio").ToString()
                     If UsuarioActual.TienePermisoProceso(201) Then

Inventarios/RepNotasSinAlmacen.aspx

@@ -165,11 +165,23 @@
                         </div>
                         <asp:UpdatePanel ID="UpDatosGvVentas" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvVentas" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0"  CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+
+                                <asp:GridView ID="GvVentas" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0"  CssClass="table table-striped table-hover Widthall ScrollAD"  OnRowDataBound="GvVentas_RowDataBound"
+                                    data-sort="true"   EmptyDataText="No se encontraron resultados."   AutoGenerateColumns="False"   >
                                     <Columns>
                                         <asp:BoundField HeaderText="Tipo Docto" DataField="TipoDocto" ItemStyle-Width="55px" />
                                         <asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" ItemStyle-Width="80px" HeaderText="SerieFolio" ControlStyle-CssClass="Texto" DataTextField="SerieFolio" />
-                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Center" />
+                                        
+                                       <%-- <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Center" />--%>
+
+                                         <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Center">
+                                             <ItemTemplate>
+                                                 <asp:Label ID="LtlFechaFactura" runat="server"   ></asp:Label>
+                                             </ItemTemplate>
+                                         </asp:TemplateField>
+                                          
+                                        
+
                                         <asp:HyperLinkField DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="~/Ventas/Clientes.aspx?CveCliente={0}" Target="_blank" HeaderText="Cliente" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Nombre" />
                                         <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Sucursal" DataField="SubProyecto" ItemStyle-Width="100px" />

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -1,9 +1,10 @@
 Imports System.Data
 Imports Extensiones
-Imports Microsoft.Reporting.WebForms
+Imports Microsoft.Reporting.WebForms
-
+Imports Stimulsoft.Report.QuickButtons.StiWpfQuickButtonAttribute
-Partial Class RepNotasSinAlmacen
+Partial Class RepNotasSinAlmacen
     Inherits ClsPaginas
+
 #Region "propiedades"
 
     Private Property dt As DataTable
@@ -57,10 +58,12 @@ Partial Class RepNotasSinAlmacen
         End Get
         Set(value As DataTable)
             ViewState("DtNotasSinAlmacenCompras") = value
-        End Set
+        End Set
-    End Property
+    End Property
+
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -82,8 +85,10 @@ Partial Class RepNotasSinAlmacen
             GvVentas.Columns(6).Visible = True
             GvVentas.Columns(7).Visible = True
             TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString
-            CType(GvVentas.Columns(2), BoundField).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
+
-            CType(GvVentas.Columns(2), BoundField).ItemStyle.Width = Unit.Pixel(120)
+            GvVentas.Columns(0).ItemStyle.Width = Unit.Pixel(120)
+            'CType(GvVentas.Columns(2), Literal).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
+            'CType(GvVentas.Columns(2), Literal).ItemStyle.Width = Unit.Pixel(120)
         End If
 
     End Sub
@@ -194,16 +199,15 @@ Partial Class RepNotasSinAlmacen
 
         End If
 
-        UpFiltros.Update()
+        UpFiltros.Update()
-
+    End Sub
-    End Sub
+
-
+
-
 #Region " EXPORTAR - PDF - EXCEL "
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        ImprimirPDFExcel("Excel")
+        ImprimirPDFExcel("Excel")
-    End Sub
+    End Sub
-
+
 #Region "P D F"
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
         ImprimirPDFExcel()
@@ -276,8 +280,10 @@ Partial Class RepNotasSinAlmacen
                 e.Row.FCLinkButton("lnkAccion").Visible = False
                 If GvCompras.Columns(4).Visible Then
                     e.Row.Cells(4).Text = ""
-                End If
+                End If
-
+
+
+
             End If
         End If
     End Sub
@@ -294,7 +300,7 @@ Partial Class RepNotasSinAlmacen
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos
-            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, Usuarioactual.CveUsuario) Then
+            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then
                 If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
                     Alert("El producto se marcó como 'no recibido' correctamente.")
                 End If
@@ -308,4 +314,16 @@ Partial Class RepNotasSinAlmacen
 
     End Sub
 
+
+    Protected Sub GvVentas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
+                e.Row.Cells(2).Text = $"<div style='display:none'>{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}</div> {e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm")}"
+            Else
+                e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}"
+            End If
+
+        End If
+    End Sub
 End Class