agregando "Es outsourcing" a los productos, agregando columna a Fluctuacion y alerta a clsOC

App_Code/ClsOC.vb

@@ -1269,10 +1269,11 @@ Public Class ClsOC
         Catch ex As Exception
 
             If ex.Message.Contains("CK_OC_OrdenesCompraDetalle_RetIVA_Total") Then
-                Alert("La retención de iva no coincide con su total", TipoMensaje.MsgAdvertencia)
+                OnError("La retención de iva no coincide con su total", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Else
+                OnError("Ocurrió un error al agregar el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
 
-            OnError("Ocurrió un error al agregar el detalle de OrdenCompras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno

App_Code/ClsProductosServicios.vb

@@ -99,6 +99,7 @@ Public Class ClsProductosServicios
     Public Property ClaveImpuestoUnidadMedida As String
     Public Property ClaveCategoriaToxicidad As String
 
+    Public Property EsOutSourcing As Boolean
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -290,7 +291,7 @@ Public Class ClsProductosServicios
                 ClaveImpuestoEmpaque = Data.Rows(0)("ClaveImpuestoEmpaque").ToString
                 ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
                 ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
-
+                EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
             End If
             Retorno = True
         Catch ex As SqlException
@@ -388,7 +389,7 @@ Public Class ClsProductosServicios
                           Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Integer
+                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -461,7 +462,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
             .Add("@Litraje", SqlDbType.Float).Value = Litraje
-
+            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
         End With
 
         Try
@@ -607,7 +608,7 @@ Public Class ClsProductosServicios
                              Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Boolean
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosUpdate")
@@ -681,7 +682,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
             .Add("@Litraje", SqlDbType.Float).Value = Litraje
-
+            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
         End With
 
         Try

Bancos/FluctuacionCambiaria.aspx

@@ -65,17 +65,18 @@
                         <br />
                         <br />
                         <asp:GridView ID="GvCompras" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio"
+                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio,FluctuacionTotal,GananciaPerdida"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
                                 <asp:BoundField HeaderText="# Facturas" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Fluctuación Pesos" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación Pesos" DataField="FluctuacionTotal" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="GananciaPerdida" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
                             </Columns>
                         </asp:GridView>
-                        <asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>
+                        <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
                     </ContentTemplate>
                 </ajax:TabPanel>
                 <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Ventas">

Bancos/FluctuacionCambiaria.aspx.vb

@@ -7,7 +7,14 @@ Partial Class Bancos_FluctuacionCambiaria
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-
+    Private Property LblTotal() As String
+        Get
+            Return ViewState("Total").ToString
+        End Get
+        Set(value As String)
+            ViewState("Total") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -60,16 +67,20 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Private Sub CargaDatosCompra()
         Dim ObjBancos As New ClsBancos
-        LblTotalCompras.Text = "0.00"
+        'LblTotalCompras.Text = "0.00"
         If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
             GvCompras.DataSource = ObjBancos.DtResultados
-            LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            'LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
             GvCompras.DataSource = Nothing
             Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvCompras.DataBind()
+        If GvCompras.Rows.Count > 0 Then
+            GvCompras.Rows(GvCompras.Rows.Count - 1).CssClass = "SubTotales2"
+        End If
     End Sub
 
     Private Sub CargaDatosVentas()
@@ -201,7 +212,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
 
-        Total = LblTotalCompras.Text.ToDecimal
+        Total = LblTotal.ToDecimal
         If Total > 0 Then
             CveConceptoContable = 64
             CveCuenta = CveCuentaGanancia

Ventas/ProductosServicios.aspx

@@ -568,7 +568,10 @@
                                             <label for="<%= DdlIEPSPorcentaje.ClientID.ToString()%>">IEPS Porcentaje:</label>
                                         </div>
 
-
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label>Es OutSourcing </label>
+                                            <asp:CheckBox ID="ChkEsOutSourcing" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Ventas/ProductosServicios.aspx.vb

@@ -866,7 +866,7 @@ Partial Class ProductosyServicios
                 CargaCaracteristicas()
 
                 LnkUnificar.Visible = True
-
+                ChkEsOutSourcing.Checked = ObjProductosServicios.EsOutSourcing
             Else
                 Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -1163,7 +1163,7 @@ Partial Class ProductosyServicios
                                            CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                            CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                            ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) > 0 Then
+                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) > 0 Then
                 ViewState("CvePS") = ObjProductosServicios.CvePS
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1208,7 +1208,7 @@ Partial Class ProductosyServicios
                                               CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                               ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) Then
+                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True