--Cambio de Codigo2 a NumeroParte, codigo y clases
This commit is contained in:
@@ -117,7 +117,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,Codigo2,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,NumeroParte,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" HeaderText="Serie-Folio" ItemStyle-Width="100px" Target="_blank" ControlStyle-CssClass="Texto" >
|
||||
@@ -129,7 +129,7 @@
|
||||
|
||||
|
||||
<asp:BoundField HeaderText="Serie" DataField="Serie" />
|
||||
<asp:BoundField HeaderText="Codigo CPK" DataField="Codigo2" />
|
||||
<asp:BoundField HeaderText="Codigo CPK" DataField="NumeroParte" />
|
||||
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" />
|
||||
<asp:TemplateField HeaderText="Marca">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -31,7 +31,7 @@ Public Class ClsProductosServicios
|
||||
Public Property SATClavePS As String
|
||||
Public Property SATDescripcion As String
|
||||
Public Property Codigo As String
|
||||
Public Property Codigo2 As String
|
||||
Public Property NumeroParte As String
|
||||
Public Property CodigoBarras As String
|
||||
Public Property PS As String
|
||||
Public Property Precio As Double
|
||||
@@ -202,7 +202,7 @@ Public Class ClsProductosServicios
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
|
||||
Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional NumeroParte As String = "-1",
|
||||
Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
|
||||
Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
|
||||
Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
|
||||
@@ -213,7 +213,7 @@ Public Class ClsProductosServicios
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
|
||||
.Add("@Codigo2", SqlDbType.VarChar).Value = Codigo2
|
||||
.Add("@NumeroParte", SqlDbType.VarChar).Value = NumeroParte
|
||||
.Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
|
||||
.Add("@PS", SqlDbType.VarChar).Value = PS
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
@@ -242,7 +242,7 @@ Public Class ClsProductosServicios
|
||||
SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
|
||||
Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
|
||||
Me.Codigo = Data.Rows(0)("Codigo").ToString
|
||||
Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
|
||||
Me.NumeroParte = Data.Rows(0)("NumeroParte").ToString
|
||||
Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString
|
||||
Me.PS = Data.Rows(0)("PS").ToString
|
||||
Precio = Data.Rows(0)("Precio").ToString.ToDouble
|
||||
@@ -400,7 +400,7 @@ Public Class ClsProductosServicios
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
|
||||
Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
|
||||
AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer,
|
||||
Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1,
|
||||
Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
|
||||
@@ -425,7 +425,7 @@ Public Class ClsProductosServicios
|
||||
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
|
||||
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
|
||||
.Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
|
||||
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
|
||||
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
|
||||
.Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
|
||||
.Add("@Precio", SqlDbType.Float).Value = Precio
|
||||
@@ -553,7 +553,7 @@ Public Class ClsProductosServicios
|
||||
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = PS.CveClasificacionCosto
|
||||
.Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
|
||||
.Add("@Codigo2", SqlDbType.VarChar).Value = If(PS.Codigo2 = "", "-1", PS.Codigo2)
|
||||
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(PS.NumeroParte = "", "-1", PS.NumeroParte)
|
||||
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(PS.CodigoBarras = "", "-1", PS.CodigoBarras)
|
||||
.Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
|
||||
.Add("@Precio", SqlDbType.Float).Value = PS.Precio
|
||||
@@ -646,7 +646,7 @@ Public Class ClsProductosServicios
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
|
||||
Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
|
||||
AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1,
|
||||
Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
|
||||
Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
|
||||
@@ -669,7 +669,7 @@ Public Class ClsProductosServicios
|
||||
.Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
|
||||
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
|
||||
.Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
|
||||
.Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
|
||||
.Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
|
||||
.Add("@PS", SqlDbType.VarChar).Value = PS
|
||||
.Add("@Precio", SqlDbType.Float).Value = Precio
|
||||
|
||||
@@ -8769,7 +8769,7 @@ Namespace Modelos
|
||||
CveClasificacionCosto = -1
|
||||
CveClasificacion = -1
|
||||
Codigo = ""
|
||||
Codigo2 = ""
|
||||
NumeroParte = ""
|
||||
CodigoBarras = ""
|
||||
CveMetodoInventario = -1
|
||||
CveTipoPS = -1
|
||||
@@ -8796,7 +8796,7 @@ Namespace Modelos
|
||||
Public Property UnidadMedida As String
|
||||
Public Property SATClaveUnidadMedida As String
|
||||
Public Property Codigo As String
|
||||
Public Property Codigo2 As String
|
||||
Public Property NumeroParte As String
|
||||
Public Property CodigoBarras As String
|
||||
Public Property PS As String
|
||||
Public Property SATClavePS As String
|
||||
|
||||
@@ -459,8 +459,6 @@ Public Class Timbrado
|
||||
|
||||
Clave = "12345678a"
|
||||
TimbraProduccion = False
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
End If
|
||||
|
||||
Dim llaveByte As Byte(), certByte As Byte()
|
||||
@@ -1011,6 +1009,8 @@ Public Class Timbrado
|
||||
Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String
|
||||
Dim Retorno As String = ""
|
||||
Try
|
||||
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
|
||||
Using httpClient As New HttpClient()
|
||||
httpClient.Timeout = New TimeSpan(0, 1, 0)
|
||||
Using request As New HttpRequestMessage(HttpMethod.Post, New Uri(url))
|
||||
@@ -3171,8 +3171,6 @@ Public Class Timbrado
|
||||
|
||||
Clave = "12345678a"
|
||||
TimbraProduccion = False
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -4991,7 +4991,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
dt.Rows(dt.Rows.Count - 1)("Producto") = rr(6).Trim
|
||||
dt.Rows(dt.Rows.Count - 1)("Serie") = rr(7).Trim
|
||||
dt.Rows(dt.Rows.Count - 1)("Cantidad") = 1
|
||||
dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("Codigo2 = '{0}'", rr(5).Trim))
|
||||
dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("NumeroParte = '{0}'", rr(5).Trim))
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -222,14 +222,14 @@
|
||||
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD"
|
||||
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS"
|
||||
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,NumeroParte,PS"
|
||||
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
|
||||
<Columns>
|
||||
|
||||
<%--0--%>
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
|
||||
<%--1--%>
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="NumeroParte" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="NumeroParte" />
|
||||
<%--2--%>
|
||||
<asp:BoundField Visible="false" DataField="CodigoBarras" HeaderText="CodigoBarras" ItemStyle-Width="10%" />
|
||||
<%--3--%>
|
||||
|
||||
@@ -29,6 +29,7 @@
|
||||
<asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
|
||||
<asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
|
||||
<asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
|
||||
<asp:ListItem Text="Localidades" Value="GlobalDTLocalidad"></asp:ListItem>
|
||||
<asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
|
||||
<asp:ListItem Text="Colonias" Value="GlobalDTGralColonias"></asp:ListItem>
|
||||
<asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>
|
||||
|
||||
@@ -39,7 +39,9 @@ Partial Class Sistemas_CatSesiones
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
|
||||
CargaColonias()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
|
||||
CargaMunicipios()
|
||||
CargaMunicipios()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTLocalidad" Then
|
||||
CargaLocalidades()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
|
||||
CargaPoblaciones()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEscolaridades" Then
|
||||
@@ -494,6 +496,13 @@ Partial Class Sistemas_CatSesiones
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
|
||||
'Gral.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaLocalidades()
|
||||
GlobalDTLocalidad() = Nothing
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
|
||||
'Gral.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPoblaciones()
|
||||
|
||||
@@ -207,7 +207,7 @@
|
||||
<input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Codigo2,Porcentaje,CodigoPS"
|
||||
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,NumeroParte,Porcentaje,CodigoPS"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
|
||||
@@ -216,13 +216,12 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Codigo" ItemStyle-Width="5%" HeaderText="Código" />
|
||||
<%--<asp:BoundField DataField="Codigo2" ItemStyle-Width="5%" HeaderText="Código CPK"/>--%>
|
||||
<asp:TemplateField ItemStyle-Width="5%" Visible="false" >
|
||||
<HeaderTemplate>
|
||||
<asp:Literal ID="LtlCodigo2" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCodigo2" runat="server" Text='<%# Eval("Codigo2", "{0}")%>'></asp:Literal>
|
||||
<asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# Eval("NumeroParte", "{0}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />
|
||||
|
||||
@@ -405,7 +405,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
Select New With
|
||||
{
|
||||
.Codigo = row.DataKey("Codigo"),
|
||||
.Codigo2 = row.DataKey("Codigo2"),
|
||||
.NumeroParte = row.DataKey("NumeroParte"),
|
||||
.PS = row.DataKey("PS"),
|
||||
.Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
|
||||
}).QueryToDataTable(True)
|
||||
@@ -436,7 +436,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
|
||||
DtExcel.Columns("Codigo").ColumnName = "Código"
|
||||
DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
|
||||
DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
|
||||
DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
@@ -687,7 +687,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
NewRow("Código") = Row("Codigo")
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
|
||||
NewRow("Código CPK") = Row("Codigo2")
|
||||
NewRow("Código CPK") = Row("NumeroParte")
|
||||
End If
|
||||
|
||||
NewRow("Producto/Servicio") = Row("PS")
|
||||
|
||||
@@ -948,7 +948,7 @@ Partial Class ProductosyServicios
|
||||
DdlMarca.SelectedValue = ObjProductosServicios.CveMarca.ToString
|
||||
DdlMarcaPSDes.SelectedValue = ObjProductosServicios.CveMarca.ToString
|
||||
TxtCodigo.Text = ObjProductosServicios.Codigo
|
||||
TxtNumeroParte.Text = ObjProductosServicios.Codigo2
|
||||
TxtNumeroParte.Text = ObjProductosServicios.NumeroParte
|
||||
TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras
|
||||
CodigoBarrasCargado = ObjProductosServicios.CodigoBarras
|
||||
TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString
|
||||
@@ -3177,7 +3177,7 @@ Partial Class ProductosyServicios
|
||||
End If
|
||||
|
||||
If Agregar Then
|
||||
If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
|
||||
If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
|
||||
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
|
||||
CveEmpresaFranquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
|
||||
CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
|
||||
@@ -3197,7 +3197,7 @@ Partial Class ProductosyServicios
|
||||
|
||||
If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
|
||||
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
|
||||
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
|
||||
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
|
||||
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
|
||||
EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
|
||||
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
|
||||
|
||||
Reference in New Issue
Block a user