From 4e75a12e3a864c9378ea15e4128c8b172f7a9b34 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 6 Jun 2022 09:16:34 -0700
Subject: [PATCH] Compras Correcion  al agregar ieps,

---
 Compras/Compras.aspx.vb                  |  13 ++-
 Empresas/119/Formatos/ReciboDePago.rdlc  | 112 ++++-------------------
 Empresas/48/Formatos/OC.rdlc             |   6 --
 General/SaldosIniciales.aspx.vb          |   9 +-
 Inventarios/EntregaAlmacen.aspx          |  15 +++
 Inventarios/InventarioFisicoDetalle.aspx |  17 ++--
 6 files changed, 56 insertions(+), 116 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6d6681b78..2eaf27aaf 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18432,9 +18432,16 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If DrPS("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
-            CveTipoPS = 2
-        End If
+
+        Try
+            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
+                CveTipoPS = 2
+            End If
+        Catch ex As Exception
+
+        End Try
+
+
 
         Dim DecimalesPermitidos = 6
 
diff --git a/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc
index 6df0bec03..21a9869ea 100644
--- a/Empresas/119/Formatos/ReciboDePago.rdlc
+++ b/Empresas/119/Formatos/ReciboDePago.rdlc
@@ -416,7 +416,7 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>5.35332cm</Width>
+              <Width>7.35332cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.8cm</Width>
@@ -424,9 +424,6 @@
             <TablixColumn>
               <Width>1.8cm</Width>
             </TablixColumn>
-            <TablixColumn>
-              <Width>1.99576cm</Width>
-            </TablixColumn>
             <TablixColumn>
               <Width>1.8cm</Width>
             </TablixColumn>
@@ -549,41 +546,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox13">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>METODO</Value>
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                                <FontSize>9pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                                <Color>White</Color>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox13</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <BackgroundColor>#008204</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox31">
@@ -727,7 +689,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.44125cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -825,38 +787,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="MetodoDePagoDR">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!MetodoDePagoDR.Value</Value>
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                                <FontSize>8pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>MetodoDePagoDR</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="MonedaDR">
@@ -902,10 +832,13 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
+                                <Format>0.00;(0.00)</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
-                          <Style />
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
                         </Paragraph>
                       </Paragraphs>
                       <rd:DefaultName>NumParcialidad</rd:DefaultName>
@@ -1002,7 +935,6 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
-            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1017,8 +949,8 @@
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
         <Top>4.62704cm</Top>
-        <Height>1.09cm</Height>
-        <Width>20.5314cm</Width>
+        <Height>0.93125cm</Height>
+        <Width>20.53564cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -1693,7 +1625,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>6.16489cm</Top>
+        <Top>5.84739cm</Top>
         <Height>1.69cm</Height>
         <Width>20.5314cm</Width>
         <ZIndex>2</ZIndex>
@@ -2115,11 +2047,6 @@
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
               <TextRun>
                 <Value>=Parameters!UUIDPago.Value</Value>
                 <Style>
@@ -2133,9 +2060,9 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox45</rd:DefaultName>
-        <Top>8.45084cm</Top>
-        <Height>3.43104cm</Height>
-        <Width>16.51969cm</Width>
+        <Top>7.94284cm</Top>
+        <Height>3.30199cm</Height>
+        <Width>16.51971cm</Width>
         <ZIndex>5</ZIndex>
         <Style>
           <Border>
@@ -2162,7 +2089,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>8.18625cm</Top>
+        <Top>7.67825cm</Top>
         <Height>0.0882cm</Height>
         <Width>20.53564cm</Width>
         <ZIndex>6</ZIndex>
@@ -2181,7 +2108,7 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>3.3271in</Top>
+        <Top>3.1271in</Top>
         <Left>6.51771in</Left>
         <Height>1.3in</Height>
         <Width>1.5in</Width>
@@ -2207,8 +2134,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>12.02854cm</Top>
-        <Height>0.0882cm</Height>
+        <Top>11.36179cm</Top>
+        <Height>0.11466cm</Height>
         <Width>20.5314cm</Width>
         <ZIndex>8</ZIndex>
         <Style>
@@ -2223,7 +2150,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>12.29313cm</Height>
+    <Height>11.47645cm</Height>
     <Style />
   </Body>
   <Width>20.53564cm</Width>
@@ -2478,7 +2405,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>0.84667cm</Height>
+      <Height>0.41981cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -2502,7 +2429,6 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox35</rd:DefaultName>
-          <Top>0.21343cm</Top>
           <Left>17.09769cm</Left>
           <Height>0.41981cm</Height>
           <Width>2.94979cm</Width>
@@ -2549,7 +2475,6 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox29</rd:DefaultName>
-          <Top>0.21343cm</Top>
           <Left>0.31132cm</Left>
           <Height>0.41981cm</Height>
           <Width>6.8491cm</Width>
@@ -2598,7 +2523,6 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox31</rd:DefaultName>
-          <Top>0.21343cm</Top>
           <Left>9.1611cm</Left>
           <Height>0.41981cm</Height>
           <Width>6.02198cm</Width>
diff --git a/Empresas/48/Formatos/OC.rdlc b/Empresas/48/Formatos/OC.rdlc
index 898595d80..c50e103fb 100644
--- a/Empresas/48/Formatos/OC.rdlc
+++ b/Empresas/48/Formatos/OC.rdlc
@@ -2716,12 +2716,6 @@
         <Paragraphs>
           <Paragraph>
             <TextRuns>
-              <TextRun>
-                <Value>Ing. </Value>
-                <Style>
-                  <FontSize>8pt</FontSize>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>Ing. Hector Manuel Diaz Young</Value>
                 <Style>
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 94ba153ae..d44080854 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1113,6 +1113,8 @@ Partial Class General_SaldosIniciales
                     Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
 
 
+
+
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
                     If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
@@ -1211,7 +1213,7 @@ Partial Class General_SaldosIniciales
                 Dim DtClientes = New DataTable
                 'Dim ExisteVenta As Boolean = False
                 'Dim Contador As Integer = 0
-                DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
+                DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1)
                 Dim NoEncontrados As Integer = 0
                 Dim Encontrados As Integer = 0
                 Dim StrRFCNoencontrados As New StringBuilder
@@ -1220,6 +1222,7 @@ Partial Class General_SaldosIniciales
                 Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
                 Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
 
+
                 If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
                 '  If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
                 If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
@@ -1253,6 +1256,8 @@ Partial Class General_SaldosIniciales
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
                     Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
 
+                    Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
+
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
                     Dim Transaccion As String = "" ' Row("Transaccion2").ToString
@@ -1300,7 +1305,7 @@ Partial Class General_SaldosIniciales
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
                                               CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
-                                              ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal) Then
+                                              ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
                                 ErrorVentas = True
                                 Exit For
                             End If
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 8a4a1cf51..f9af8792f 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -670,6 +670,10 @@
                                         <asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" />
                                         <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                          <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie"    Display="None"  ClientValidationFunction="TamanioSerie"
+                                            ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener  un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
                                     <td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td>
                                     <td runat="server" id="TdCaducidad2">
@@ -1109,6 +1113,17 @@
             }
         }
 
+
+        function TamanioSerie(source, arguments) {
+
+            if (arguments.Value.trim().length >= 6) {
+                arguments.IsValid = true;
+            } else {
+                arguments.IsValid = false;
+            }
+
+        }
+
     </script>
 
 </asp:Content>
diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx
index ffd60da82..0c0c363bc 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx
+++ b/Inventarios/InventarioFisicoDetalle.aspx
@@ -340,17 +340,12 @@
                                         <asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
                                         <div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
 
-                                            <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ValidationGroup="GrpAgregaSerie" ></asp:TextBox>
-                                            
+                                            <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static"    ValidationGroup="GrpSerie"></asp:TextBox>                                            
                                             <label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
-
-
-                                              <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote"    Display="Dynamic"  ClientValidationFunction="TamanioSerie"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener  un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
+                                             <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote"    Display="None"  ClientValidationFunction="TamanioSerie"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener  un minimo de 6 caracteres."   />
                                             <ajax:ValidatorCalloutExtender ID="VACOE1231" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"  ></ajax:ValidatorCalloutExtender>
 
-
-
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
                                             <asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
@@ -372,10 +367,10 @@
                             </div>
                             <div class="modal-footer">
 
-                                <asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpAgregaSerie" CausesValidation="true"  Text="Guardar" />
+                                
                                 <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
-                                    <ContentTemplate>
-                                        
+                                    <ContentTemplate>                                        
+                                        <asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary"  CausesValidation="true"  ValidationGroup="GrpSerie"  Text="Guardar" />
                                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>