From 2b6e0233d7348a9a240006f4cd27b875a55e134b Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 16 May 2024 18:01:31 -0700
Subject: [PATCH] =?UTF-8?q?SMS=20-=20Entrega=20almac=C3=A9n.=20con=20lotes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/PopUpVerFactura.aspx.vb          |   2 +-
 Empresas/Grales/Formatos/Polizas.rdlc    | 296 ++++++++++++++++++++++-
 Inventarios/EntregaAlmacen.aspx.vb       |  23 +-
 Inventarios/RepExistenciasCostos.aspx    |   6 +-
 Inventarios/RepExistenciasCostos.aspx.vb | 188 ++------------
 OC/OC.aspx.vb                            |   4 +-
 6 files changed, 331 insertions(+), 188 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 61dc24738..4ba4d6a1c 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura
                         Else
                             params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
                         End If
-                        If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                        If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
                             params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
                         End If
                         If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
diff --git a/Empresas/Grales/Formatos/Polizas.rdlc b/Empresas/Grales/Formatos/Polizas.rdlc
index 42e9d4893..e77be5ab6 100644
--- a/Empresas/Grales/Formatos/Polizas.rdlc
+++ b/Empresas/Grales/Formatos/Polizas.rdlc
@@ -1488,6 +1488,295 @@
                     </TablixCell>
                   </TablixCells>
                 </TablixRow>
+                <TablixRow>
+                  <Height>2.44729cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="UsuarioRegistro1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Usuario Registró:</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!NombreUsuario.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>UsuarioRegistro1</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <VerticalAlign>Bottom</VerticalAlign>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox15">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox15</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox16</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox18">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox18</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox19">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox19</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox20">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox20</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
               </TablixRows>
             </TablixBody>
             <TablixColumnHierarchy>
@@ -1548,6 +1837,9 @@
                     <TablixMember>
                       <KeepWithGroup>Before</KeepWithGroup>
                     </TablixMember>
+                    <TablixMember>
+                      <KeepWithGroup>Before</KeepWithGroup>
+                    </TablixMember>
                   </TablixMembers>
                 </TablixMember>
               </TablixMembers>
@@ -1559,7 +1851,7 @@
               <ResetPageNumber>true</ResetPageNumber>
             </PageBreak>
             <Top>0.05076cm</Top>
-            <Height>3.18542cm</Height>
+            <Height>5.63271cm</Height>
             <Width>19.38789cm</Width>
             <Style>
               <Border>
@@ -1596,7 +1888,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>3.59805cm</Height>
+        <Height>5.68347cm</Height>
         <Style />
       </Body>
       <Width>19.38791cm</Width>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5bd2c8111..48e50512c 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaGvDatos()
 
     End Sub
-    Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
+    Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
 
         If DtDatos IsNot Nothing Then
 
@@ -1054,10 +1054,10 @@ Partial Class Inventarios_EntregaAlmacen
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then
                 GvDatos.Columns(10).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             End If
-            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
-
-            'SugerirFecha()
-            If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
+            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
+
+            'SugerirFecha()
+            If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
                 CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
 
                 If CargaBitacora Then
@@ -4182,8 +4182,13 @@ Partial Class Inventarios_EntregaAlmacen
         Next
         DtDatos.AcceptChanges()
 
-        CargaGvDatos()
-
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            CargaGvDatos(False)
+        Else
+            CargaGvDatos(True)
+        End If
+
+
         index2 = 0
         For Each Row As DataRow In DtDatos.Rows
             GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
@@ -4328,8 +4333,8 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Private Sub RecargaporAlmacenes()
-        If DdlAlmacen.SelectedValue <> "-1" Then
-            CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
+        If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
+            CargaGvDatos()
         End If
     End Sub
 
diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx
index b21529711..0276f6f7c 100644
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -146,9 +146,13 @@
                 <asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
                     ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
                     <Columns>
+
                         <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                         <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:BoundField HeaderText="Concepto"  DataField="Concepto" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+
+                        <asp:BoundField HeaderText="Folio Doc."  DataField="FolioDocto" />
                         <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb
index f4f57c011..5acd60656 100644
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -85,9 +85,12 @@ Partial Class Inventarios_RepExistenciasCostos
     End Sub
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(6).Visible = TienePermisoImportes
+        'GvM.Columns(6).Visible = TienePermisoImportes
+        'GvM.Columns(8).Visible = TienePermisoImportes
+        'GvM.Columns(10).Visible = TienePermisoImportes
         GvM.Columns(8).Visible = TienePermisoImportes
         GvM.Columns(10).Visible = TienePermisoImportes
+        GvM.Columns(11).Visible = TienePermisoImportes
 
     End Sub
     Public Sub CargaCombos()
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
-            e.Row.Cells(6).Visible = TienePermisoImportes
             e.Row.Cells(8).Visible = TienePermisoImportes
             e.Row.Cells(10).Visible = TienePermisoImportes
+            e.Row.Cells(12).Visible = TienePermisoImportes
 
             Select Case e.Row.DBCampo("Orden").ToEntero
                 Case 10
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                     e.Row.Cells(0).ColumnSpan = 3
                     e.Row.Cells(1).Visible = False
-                    e.Row.Cells(2).Visible = False
 
-                    e.Row.Cells(5).Text = ""
-                    e.Row.Cells(6).Text = ""
+                    e.Row.Cells(3).Visible = False
+
                     e.Row.Cells(7).Text = ""
                     e.Row.Cells(8).Text = ""
                     e.Row.Cells(9).Text = ""
                     e.Row.Cells(10).Text = ""
+                    e.Row.Cells(11).Text = ""
+                    e.Row.Cells(12).Text = ""
                 Case 15
                     If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
                         e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
-                        e.Row.Cells(2).Text = ""
+                        e.Row.Cells(3).Text = ""
                     End If
                 Case 20
                     e.Row.CssClass = "SubTotales"
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                     e.Row.Cells(0).ColumnSpan = 3
                     e.Row.Cells(1).Visible = False
-                    e.Row.Cells(2).Visible = False
+                    e.Row.Cells(3).Visible = False
 
-                    e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
-                    e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
+                    e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
+                    e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
             End Select
 
 
         End If
     End Sub
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        GvM.Columns(3).Visible = ChkActivoFijo.Checked
-        GvM.Columns(4).Visible = ChkSubProyecto.Checked
+        GvM.Columns(5).Visible = ChkActivoFijo.Checked
+        GvM.Columns(6).Visible = ChkSubProyecto.Checked
         UPPEquiv.Update()
     End Sub
 
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
 #End Region
 
 
-    '#Region "UNIFICAR PS"
-    '    Protected Sub BtnCargaPS_Click(sender As Object, e As EventArgs)
-    '        CargaPS()
-    '    End Sub
-    '    Private Sub CargaPS()
-    '        Dim DtPS As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
 
-    '        DdlPSPrimario.Items.Clear()
-    '        DdlPSUnificado.Items.Clear()
-    '        DdlPSPrimario.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '        DdlPSUnificado.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '        DdlPSPrimario.DataSource = DtPS
-    '        DdlPSUnificado.DataSource = DtPS
-    '        DdlPSPrimario.DataBind()
-    '        DdlPSUnificado.DataBind()
-    '        DtPS.Dispose()
-    '    End Sub
-    '    Protected Sub BtnUnificarPS_Click(sender As Object, e As EventArgs)
-    '        If DdlPSPrimario.SelectedValue = DdlPSUnificado.SelectedValue Then
-    '            Alert("El Producto/Servicio a unificar no puede ser el mismo al primario. Por favor verifique y vuelva a intetar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'Dim ObjPS As New ClsProductosServicios()
-
-    '        'If ObjPS.UnificarPS(DdlPSPrimario.SelectedValue.ToEntero, DdlPSUnificado.SelectedValue.ToEntero) Then
-    '        '    Alert("El Producto/Servicio Fue unificado correctamente.", TipoMensaje.MsgInformacion)
-
-    '        '    RegistraScript("$get('DivUnificarPS').style.display='none';")
-    '        '    DdlPSPrimario.SelectedValue = "-1"
-    '        '    DdlPSUnificado.SelectedValue = "-1"
-    '        '    'CargaPS()
-    '        'Else
-    '        '    Alert("Ocurrió un error al unificar el Producto/Servicio. Por favor vuelta a intentar.", TipoMensaje.MsgError)
-    '        'End If
-
-    '        'ObjPS.Dispose()
-
-    '        Dim CveMovimientoSalida = 0
-    '        Dim CveMovimientoEntrada = 0
-    '        Dim Existencia As Double
-
-    '        Dim IDPoliza As Integer = 0
-    '        Dim Folio = 0
-    '        Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
-
-    '        Dim TieneError = False
-    '        Dim TextoError = ""
-    '        Dim ObjInventario As New ClsInventarios
-    '        ObjInventario.IniciaTransacSQL()
-
-    '        Dim DtAlmacenes As New DataTable
-
-    '        If ObjInventario.GetAlmacenes() Then
-    '            DtAlmacenes = ObjInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-    '        Else
-    '            TieneError = True
-    '        End If
-
-
-
-    '        If Not TieneError Then
-    '            Dim CvePSPrimario = 0
-    '            Dim CveUMPrimario = 0
-    '            Dim CvePSUnificado = 0
-    '            Dim CveUMUnificado = 0
-    '            Dim DTPS1 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSPrimario.SelectedValue.ToEntero))
-    '            Dim DTPS2 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSUnificado.SelectedValue.ToEntero))
-
-    '            For Each dr As DataRow In DtAlmacenes.Rows
-    '                CvePSPrimario = DTPS1.Rows(0)("CvePS").ToString.ToEntero
-    '                CveUMPrimario = DTPS1.Rows(0)("CveUM").ToString.ToEntero
-    '                CvePSUnificado = DTPS2.Rows(0)("CvePS").ToString.ToEntero
-    '                CveUMUnificado = DTPS2.Rows(0)("CveUM").ToString.ToEntero
-
-
-    '                'VALIDA LA EXISTENCIA
-    '                Existencia = ObjInventario.GetExistenciasPS(CvePSUnificado, CveUMUnificado, UsuarioActual.CveEmpresa, dr("CveAlmacen").ToString.ToEntero)
-
-
-    '                'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
-    '                If Existencia > 0 Then
-
-    '                    'AGREGAMOS LA SALIDA
-    '                    Folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
-    '                    CveMovimientoSalida = ObjInventario.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
-
-    '                    If CveMovimientoSalida > 0 Then
-    '                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Existencia, CveUMUnificado, CvePSUnificado, 0, -1) Then
-    '                            TieneError = True
-    '                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
-    '                            Exit For
-    '                        End If
-    '                    Else
-    '                        TieneError = True
-    '                        TextoError = "No se pudo generar el movimiento de salida correctamente"
-    '                        Exit For
-    '                    End If
-
-
-    '                    'AGREGAMOS LA ENTRADA
-    '                    Folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-    '                    CveMovimientoEntrada = ObjInventario.AddMovimiento(1, 2, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
-
-    '                    If CveMovimientoEntrada > 0 Then
-
-    '                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-    '                            For Each dr2 As DataRow In ObjInventario.DtResultados.Rows
-    '                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr2("Cantidad").ToString.ToDouble, dr2("CveUM").ToString.ToEntero, CvePSPrimario, dr2("PU").ToString.ToDouble, -1) Then
-    '                                    TieneError = True
-    '                                    TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-    '                                    Exit For
-    '                                End If
-    '                            Next
-
-    '                            If TieneError Then Exit For
-    '                        Else
-    '                            Exit For
-    '                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-    '                        End If
-
-    '                    Else
-    '                        TieneError = True
-    '                        TextoError = "No se pudo generar el movimiento de entrada correctamente"
-    '                        Exit For
-    '                    End If
-
-    '                End If
-
-    '            Next
-    '            DTPS1.Dispose()
-    '            DTPS2.Dispose()
-    '        End If
-
-
-    '        If Not TieneError Then
-    '            ObjInventario.Commit()
-    '            Alert("El producto se ha unificado correctamente.", TipoMensaje.MsgInformacion)
-    '            CargaPS()
-    '        Else
-    '            ObjInventario.RollBack()
-    '            Alert(TextoError, TipoMensaje.MsgError)
-    '        End If
-
-    '        ObjInventario.Dispose()
-    '    End Sub
-
-    '    Private Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-    '        If DdlClasificacion.SelectedValue = "-1" Then
-    '            ddlProducto.DataSource = TmpPS
-    '        Else
-    '            If isWhitFamily() Then
-    '                ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue), "PS")
-    '            Else
-    '                ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "PS")
-    '            End If
-    '        End If
-    '        ddlProducto.Items.Clear()
-    '        ddlProducto.DataBind()
-    '        ddlProducto.Items.Insert(0, New ListItem("----", "-1"))
-    '    End Sub
-    '    #End Region
 
 
 End Class
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 6ead6e885..9793c9c20 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5465,10 +5465,10 @@ Partial Class OC_OC
 
     End Sub
 
-    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuaioCorreo As Integer)
+    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuarioCorreo As Integer)
         Dim Param As New List(Of String)
 
-        Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuaioCorreo, CveEmpresaActual)
+        Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuarioCorreo, CveEmpresaActual)
 
         'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then