SOPORTES, ACTIVOS FIJIS (Interno,externo), generar remision del pescadito

Contratos/RepPedidosDevolucionesXContrato.aspx

@@ -140,7 +140,8 @@
                                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                     <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
+                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
                                 </Columns>
                             </asp:GridView>
                         </div>
@@ -180,7 +181,8 @@
                                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                     <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
+                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
                                 </Columns>
                             </asp:GridView>
                         </div>

Contratos/RepPedidosDevolucionesXContrato.aspx.vb

@@ -111,7 +111,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
                 e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;")
                 e.Row.Cells(1).Text = ""
                 e.Row.Cells(5).Text = ""
-                e.Row.Cells(6).Text = ""
+                e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
 
                 Dim Texto = $"Pedido: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
                 Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")
@@ -134,7 +135,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
                 e.Row.Attributes.Add("style", "background-color:#B9B5B4 !important;")
                 e.Row.Cells(1).Text = ""
                 e.Row.Cells(5).Text = ""
-                e.Row.Cells(6).Text = ""
+                e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
 
                 Dim Texto = $"Devolución: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
                 Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")

asmx/WSApp.asmx

@@ -43,6 +43,7 @@ Public Class WSApp
             ObjPS.Dispose()
         End Get
     End Property
+
     Property GlobalDTMonedas() As DataTable
         Get
             GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable)
@@ -326,33 +327,42 @@ Public Class WSApp
             Application("GlobalDTCompProveedores") = value
         End Set
     End Property
-    Property GlobalDTProductosServicios(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional Estatus As Integer = 1, Optional CvePS As Integer = -1, Optional AplicaParaVenta As Integer = -1, Optional CveTipoPS As Integer = -1) As DataTable
+    Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable
-        Get
+        Get
-            If CveEmpresa = -1 Then
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
-                GlobalDTProductosServicios = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
+            If CveEmpresa <> -1 Then
-            Else
+                'sino existe, recarga los datos
-
+                If Application(AppNombre) Is Nothing Then
-                Dim Cons = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow))
+                    Dim ObjPS As New ClsProductosServicios
-                Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
+                    If ObjPS.GetPSSimplificado(CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
-                If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
+                    ObjPS.Dispose()
-                If CveClasificacionCosto >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacionCosto) = CveClasificacionCosto))
+
-                If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
+                End If
-                If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
+
-                If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
+
-                If CveTipoPS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = CveTipoPS))
+                Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow))
-
+
-                'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable 
+                Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
-                Try
+                If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
-                    GlobalDTProductosServicios = Cons.OrderBy(Function(a) a!PS).CopyToDataTable
+                If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
-                Catch ex As Exception
+                If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
-                    GlobalDTProductosServicios = New DataTable
+                If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
-                End Try
+                If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
-            End If
+
-
+                Try
-        End Get
+                    GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable
-        Set(value As DataTable)
+                Catch ex As Exception
-            Application("GlobalDTProductosServicios") = value
+                    GlobalDTPSSimplificado = New DataTable
-        End Set
+                End Try
+
+            Else
+                GlobalDTPSSimplificado = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable
+            End If
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
     End Property
     Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
         Get
@@ -715,26 +725,39 @@ Public Class WSApp
                 End If
                 If ListaPS IsNot Nothing Then
                     Dim Continuar As Boolean = False
-                    Dim ObjPS As New ClsProductosServicios
+                    Dim ObjPS As New ClsProductosServicios
-                    For Each PS In ListaPS
+                    Try
-                        If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
+                        For Each PS In ListaPS
-                            If ObjPS.DtResultados.Rows.Count > 0 Then
+                            Dim CveTipoPS As Integer = GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero()
-                                Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal()
+                            If CveTipoPS > 0 Then
-                                Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero()
+                                If CveTipoPS = 2 Then
-
+                                    If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
-                                Continuar = (CveTipoPS = 2 AndAlso Existencia > 0) OrElse (CveTipoPS = 1)
+                                        If ObjPS.DtResultados.Rows.Count > 0 Then
-
+                                            Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal()
-                                If Not Continuar Then
+                                            'Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero()
-                                    Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
+
-                                    Exit For
+                                            Continuar = Existencia > 0
-                                End If
+
-                            Else
+                                            If Not Continuar Then
-                                Continuar = False
+                                                Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
-                                Retorno.Mensajes.Add("No se pudo comprobar la existencia.")
+                                                Exit For
-                                Exit For
+                                            End If
-                            End If
+                                        Else
-                        End If
+                                            Continuar = False
-                    Next
+                                            Retorno.Mensajes.Add("No se pudo comprobar la existencia.")
+                                            Exit For
+                                        End If
+                                    End If
+                                End If
+                            Else
+                                Continuar = False
+                                Retorno.Mensajes.Add("No se pudo comprobar si es producto o servicio.")
+                            End If
+                        Next
+                    Catch ex As Exception
+                        OnError("Ocurrió un error al consultar la existencia", ex)
+                        Continuar = False
+                    End Try
                     ObjPS.Dispose()
 
                     If Continuar Then
@@ -1374,8 +1397,8 @@ Public Class WSApp
 
         Row("Total") = (PS.Cantidad.Value * PS.Precio)
         Row("TotalImporte") = Math.Round(PS.Cantidad.Value * PS.Precio, 2)
-
+
-        Row("SATClaveProdServ") = DrPS("SATClavePS")
+        Row("SATClaveProdServ") = DrPS("SATClavePS")
         Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
 
         Row("EntregaDirecta") = EntregaDirecta