Cat Folios Garantia acualizar Area

2024-05-18 09:56:35 -07:00
parent b7e7060a30
commit 991a1b0548
5 changed files with 61 additions and 44 deletions
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia
            End If
        Else
            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
-                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
+                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then

                TxtFolioGarantia.Text = ""
                DdlEstatusEditar.SelectedValueExist("1")
@@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia
        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSubProyectos.DataBind()
        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
-
+        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+
+        DdlArea.SelectedValueExist(GvRow.DataKey("Area"))
+
        BtnAgregarFolioGarantiaModal.Text = "Actualizar"

        UpModalFolioGarantia.Update()
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -543,7 +543,7 @@ Public Class ClsAcumuladores
        Return Retorno
    End Function

-    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
+    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean
        Dim Retorno As Boolean = False
        'Data = New DataTable

@@ -558,6 +558,7 @@ Public Class ClsAcumuladores
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
            .Add("@Limite", SqlDbType.Int).Value = Limite
+            .Add("@Area", SqlDbType.Int).Value = Area

        End With

--- a/Empresas/186/Formatos/TrasladoAngeles.rdlc
+++ b/Empresas/186/Formatos/TrasladoAngeles.rdlc
@@ -780,7 +780,6 @@
                            <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
                          </Style>
                        </Textbox>
-                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -1588,7 +1587,7 @@
                  </TablixCells>
                </TablixRow>
                <TablixRow>
-                  <Height>0.33542cm</Height>
+                  <Height>0.2825cm</Height>
                  <TablixCells>
                    <TablixCell>
                      <CellContents>
@@ -1972,7 +1971,7 @@
            <DataSetName>DsInventarios</DataSetName>
            <Top>0.14111cm</Top>
            <Left>0.10068cm</Left>
-            <Height>3.1562cm</Height>
+            <Height>3.10328cm</Height>
            <Width>25.45761cm</Width>
            <Style>
              <Border>
@@ -2048,6 +2047,18 @@
              <PaddingBottom>2pt</PaddingBottom>
            </Style>
          </Textbox>
+          <Line Name="Line4">
+            <Top>4.79214cm</Top>
+            <Left>0.10068cm</Left>
+            <Height>0cm</Height>
+            <Width>25.72414cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+            </Style>
+          </Line>
        </ReportItems>
        <Height>1.88667in</Height>
        <Style />
@@ -2055,7 +2066,7 @@
      <Width>10.19535in</Width>
      <Page>
        <PageHeader>
-          <Height>4.44499cm</Height>
+          <Height>4.55082cm</Height>
          <PrintOnFirstPage>true</PrintOnFirstPage>
          <PrintOnLastPage>true</PrintOnLastPage>
          <ReportItems>
@@ -2544,7 +2555,7 @@ Municipio y/o Delegación:  </Value>
              <rd:DefaultName>Textbox7</rd:DefaultName>
              <Top>2.32101cm</Top>
              <Left>0.13678cm</Left>
-              <Height>2.12398cm</Height>
+              <Height>2.05342cm</Height>
              <Width>20.93288cm</Width>
              <ZIndex>9</ZIndex>
              <Style>
@@ -2565,7 +2576,7 @@ Municipio y/o Delegación:  </Value>
          </Style>
        </PageHeader>
        <PageFooter>
-          <Height>3.8269cm</Height>
+          <Height>2.5569cm</Height>
          <PrintOnFirstPage>true</PrintOnFirstPage>
          <PrintOnLastPage>true</PrintOnLastPage>
          <ReportItems>
@@ -2588,7 +2599,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
              <Left>5.68986cm</Left>
              <Height>0.50243cm</Height>
              <Width>5.79375cm</Width>
@@ -2624,7 +2635,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
              <Left>14.40467cm</Left>
              <Height>0.50243cm</Height>
              <Width>5.78664cm</Width>
@@ -2675,9 +2686,9 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.66375cm</Top>
+              <Top>1.02875cm</Top>
              <Left>5.69781cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
              <Width>5.78664cm</Width>
              <ZIndex>2</ZIndex>
              <Visibility>
@@ -2726,9 +2737,9 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
              <Left>14.41177cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
              <Width>5.78664cm</Width>
              <ZIndex>3</ZIndex>
              <Visibility>
@@ -2763,7 +2774,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
              <Left>5.69781cm</Left>
              <Height>0.6cm</Height>
              <Width>5.78664cm</Width>
@@ -2800,7 +2811,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
              <Left>14.41177cm</Left>
              <Height>0.6cm</Height>
              <Width>5.78664cm</Width>
@@ -2835,7 +2846,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>0.45106cm</Top>
+              <Top>0.41931cm</Top>
              <Left>10.04017cm</Left>
              <Height>0.63528cm</Height>
              <Width>5.78664cm</Width>
@@ -2886,9 +2897,9 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
              <Left>10.04727cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
              <Width>5.78664cm</Width>
              <ZIndex>7</ZIndex>
              <Visibility>
@@ -2923,7 +2934,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
              <Left>10.04727cm</Left>
              <Height>0.6cm</Height>
              <Width>5.78664cm</Width>
@@ -2971,7 +2982,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox29</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
              <Left>0.10068cm</Left>
              <Height>0.41981cm</Height>
              <Width>5.78083cm</Width>
@@ -3009,7 +3020,7 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
              <Left>11.33129cm</Left>
              <Height>0.41981cm</Height>
              <Width>5.13762cm</Width>
@@ -3035,23 +3046,12 @@ Municipio y/o Delegación:  </Value>
                </Border>
              </Style>
            </Line>
-            <Line Name="Line4">
-              <Left>0.13678cm</Left>
-              <Height>0cm</Height>
-              <Width>25.72414cm</Width>
-              <ZIndex>12</ZIndex>
-              <Style>
-                <Border>
-                  <Style>Solid</Style>
-                </Border>
-              </Style>
-            </Line>
            <Line Name="Line6">
-              <Top>3.26597cm</Top>
+              <Top>1.99597cm</Top>
              <Left>0.10068cm</Left>
              <Height>0cm</Height>
              <Width>25.76024cm</Width>
-              <ZIndex>13</ZIndex>
+              <ZIndex>12</ZIndex>
              <Style>
                <Border>
                  <Style>Solid</Style>
@@ -3077,11 +3077,11 @@ Municipio y/o Delegación:  </Value>
                </Paragraph>
              </Paragraphs>
              <rd:DefaultName>Textbox10</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
              <Left>23.00537cm</Left>
              <Height>0.41981cm</Height>
              <Width>2.55292cm</Width>
-              <ZIndex>14</ZIndex>
+              <ZIndex>13</ZIndex>
              <Style>
                <Border>
                  <Style>None</Style>
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2258,8 +2258,22 @@ Partial Class Inventarios_EntregaAlmacen
                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                    If ObjInventario.DtResultados.Rows.Count > 0 Then
                        TieneErrorExistencia = True
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} <br/>", Dr("CodigoPS"), Dr("Existencia"))
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                            Dim SerieLoteCaducidad As String = ","
+                            If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
+                            End If
+                            If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
+                            End If
+                            If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
+                            End If
+
+                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
+
+
                        Next
                    End If
                Else
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -2106,20 +2106,20 @@
                                  <asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">                                
                                </asp:DropDownList>
                                <label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label>                                                              
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                  <i></i>
                            </div>
                            <div class="form-group form-md-line-input input-iconright">                                
                                <asp:TextBox ID="TxtCantidadEquivalencia" runat="server"   Width="60"  CausesValidation="true" MaxLength="10"></asp:TextBox>
                                 <label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label>   
-                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                <i></i>
                            </div>
                         
                    <div class="modal-footer">
                        <asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
                            <ContentTemplate>
-                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click"> Guardar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click" ValidationGroup="GrpAgregarEquivalencia" > Guardar</asp:LinkButton>
                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                            </ContentTemplate>
                        </asp:UpdatePanel>