Compras correcion devolucion en dolares, Saldos iniciales mensajes codig, numero de parte

App_Code/ClsProductosServicios.vb

@@ -537,7 +537,21 @@ Public Class ClsProductosServicios
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
             ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
+
+                If Ex1.Message.Contains("UK_ProductosServicios_Codigo_Empresa") Then
+                    Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_CodigoBarras") Then
+                    Alert("El Nuevo Producto o Servicio tiene Codigo de barras duplicado:" & CodigoBarras, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_NumeroParte") Then
+                    Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_EmpresaNumeroParte") Then
+                    Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                Else
+                    Alert("El Nuevo Producto o Servicio duplicado(ND):" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                End If
+
+
+
             Else
                 Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

Compras/Compras.aspx

@@ -1329,7 +1329,16 @@
                                                 </ItemTemplate>
                                                 <HeaderStyle CssClass="Titulos" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />
+
+                                             <asp:TemplateField>
+                                                 <HeaderTemplate>
+                                                     Unidad    
+                                                 </HeaderTemplate>
+                                                 <ItemTemplate>
+                                                     <asp:Label ID="LtlUnidadMedida" runat="server" Text='<%# Eval("UM") %>'></asp:Label>
+                                                 </ItemTemplate>
+                                             </asp:TemplateField>
+                                            <%--<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />--%>
                                             <asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText=" Servicio" DataField="PS" />
                                             <asp:BoundField ItemStyle-Width="7.5%" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                             <asp:TemplateField ItemStyle-Width="10%">

Compras/Compras.aspx.vb

@@ -2308,6 +2308,7 @@ Partial Class Compras_Compras
                         GvPS.DataSource = TmpDT
                         GvPS.DataBind()
                         UpPS.Update()
+                        CargaGvInv()
                     End If
                 End If
             Else
@@ -11117,6 +11118,48 @@ Partial Class Compras_Compras
 
             End If
 
+
+
+            ''VALIDA UNIDAD DE MEDIDA
+            'If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
+            '    Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
+
+            '    'SI UM NO ESTA REGISTRADA
+            '    If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
+            '        e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
+            '    End If
+
+            '    'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+
+            '    'EQUIVALENCIA
+            '    If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
+
+            '        If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
+            '            If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
+            '                'UM NO BASE
+            '                e.Row.FCLinkButton("LBAplicarEquivalencia").Visible = True
+
+            '                'e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(2,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}')")
+            '                e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger centrarUM"
+            '                e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '                e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida NO medida base")
+            '            End If
+            '        Else
+            '            'SIN EQUIVALENCIA
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
+            '            e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
+            '        End If
+            '        DtEquivalencias.Dispose()
+            '    End If
+            'End If
+
+
+
         End If
 
         'HEADER GvInv
@@ -13620,18 +13663,19 @@ Partial Class Compras_Compras
     'End Sub
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
         Try
-            Dim subtotaldevolucion As Double = 0
+            Dim subtotaldevolucion As Decimal = 0
             Dim realizadevolucion As Boolean = False
 
 
             'Calculo los subtotales para comparar con la NC
-            Dim cantidad As Double = 0.0
+            Dim cantidad As Decimal = 0D
 
             For Each Dr As GridViewRow In GVDevolucion.Rows
-                cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
+                cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
                 If cantidad > 0 Then
                     realizadevolucion = True
-                    subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad
+                    Dim PU As Decimal = If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr.DataKey("PUExtranjero").ToString.ToDecimal, Dr.DataKey("PU").ToString.ToDecimal)
+                    subtotaldevolucion += PU * cantidad
                 End If
             Next
 

Empresas/119/Formatos/Cotizacion.rdlc

@@ -1237,6 +1237,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -2787,12 +2788,6 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
-    <ReportParameter Name="CEClavePedimento">
-      <DataType>String</DataType>
-      <Nullable>true</Nullable>
-      <AllowBlank>true</AllowBlank>
-      <Prompt>ReportParameter1</Prompt>
-    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuescuadron">