AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Hector
2021-08-03 23:34:44 -07:00
parent 99afe6f69b b94e34653d
commit 9486048981
8 changed files with 54 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsContabilidad.vb
View File

@@ -880,9 +880,10 @@ Public Class ClsContabilidad
Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, FechaVencimiento As Date, IdCtaContable As Integer, IdSegmentoNegocio As Integer, Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, FechaVencimiento As Date, IdCtaContable As Integer, IdSegmentoNegocio As Integer,
Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1,
Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveAcreedor As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveAcreedor As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1,
Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0, Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0,
Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True,
Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
If CvePrePoliza = 0 Then If CvePrePoliza = 0 Then
@@ -935,6 +936,7 @@ Public Class ClsContabilidad
.Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
.Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle .Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle
.Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
.Add("@CveNominaMovtoPermanente", SqlDbType.Money).Value = CveNominaMovtoPermanente
.Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With

2
App_Code/ClsNominas.vb
View File

@@ -2624,7 +2624,7 @@ Public Class ClsNominas
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero retorno = SqlAdapter.SelectCommand.Parameters("@CveMovtoPermanente").Value.ToString.ToEntero
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = -1 retorno = -1
OnError("Ocurrió un error al agregar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al agregar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

13
Bancos/Devoluciones.aspx.cs
View File

@@ -355,9 +355,10 @@ public partial class Bancos_Devoluciones : ClsPaginas
{ {
int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero(); int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero();
int total = hdnTotal.Text.ToEntero(); int total = hdnTotal.Text.ToEntero();
if (valor <> total) if (valor != total)
{ {
Alert("La cantidad total debe ser igual a lo seleccionado"); Alert("La cantidad total debe ser igual a lo seleccionado");
return;
} }
} }
@@ -442,8 +443,9 @@ public partial class Bancos_Devoluciones : ClsPaginas
string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd"); string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd");
bool estatus = true; bool estatus = true;
int CveCuenta = -1; int CveCuenta = -1;
int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta);
if (ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) < 0) if (CveMovtoPermanente < 0)
{ {
MsgError = "No se pudo insertar movimiento permanente"; MsgError = "No se pudo insertar movimiento permanente";
} }
@@ -453,7 +455,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
{ {
if (gvr.FCCheckBox("Chk").Checked) if (gvr.FCCheckBox("Chk").Checked)
{ {
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE)) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
break; break;
@@ -463,7 +465,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
//Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL(); //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
//GUARDA PREPOLIZAS DETALLE Via Nómina //GUARDA PREPOLIZAS DETALLE Via Nómina
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal)) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
} }
@@ -471,9 +473,6 @@ public partial class Bancos_Devoluciones : ClsPaginas
} }
} }
} }
else else
{ {

3
Compras/Compras.aspx.vb
View File

@@ -2702,6 +2702,9 @@ Partial Class Compras_Compras
TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
End If End If
If Not TmpDT.Columns.Contains("CveSATPSActualizado") Then
TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
End If
GvPS.DataSource = TmpDT GvPS.DataSource = TmpDT
GvPS.DataBind() GvPS.DataBind()

10
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -358,8 +358,8 @@
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField> <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" Visible="false"></asp:BoundField> <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" Visible="false"></asp:BoundField>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
<asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
<asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
@@ -391,9 +391,9 @@
<asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField> <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField> <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField> <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
<asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
<asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField> <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
<asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>

8
Nomina/CatPeriodos.aspx
View File

@@ -189,8 +189,8 @@
</thead> </thead>
</table> </table>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Tipo de Periodo Registrados" ToolTip="Listado de Tipo de Periodo" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Periodos Registrados"
Style="margin-top: -10px;" GridLines="None" data-rows="0" ShowHeader="false"> GridLines="None" data-rows="0" ShowHeader="false">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="250px"> <asp:TemplateField ItemStyle-Width="250px">
<ItemTemplate> <ItemTemplate>
@@ -364,7 +364,7 @@
<ContentTemplate> <ContentTemplate>
<br /> <br />
<div class="row"> <div class="row">
<div class="col-xs-2" style="text-align: left">Concepto:</div> <div class="col-xs-2" style="text-align: left">Tipo Periodo:</div>
<div class="col-xs-4"> <div class="col-xs-4">
<asp:DropDownList ID="DdlTipoPeriodoAdd" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlTipoPeriodoAdd" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList>
<asp:HiddenField runat="server" ID="hdnCvePerido" Value=""/> <asp:HiddenField runat="server" ID="hdnCvePerido" Value=""/>
@@ -436,7 +436,7 @@
<br /> <br />
<div class="row"> <div class="row">
<div class="col-xs-2" style="text-align: left;"> <div class="col-xs-2" style="text-align: left;">
Numero: Estatus:
</div> </div>
<div class="col-xs-4"> <div class="col-xs-4">
<asp:DropDownList ID="DdlEstatusAdd" runat="server" CssClass="select2me form-control" AppendDataBoundItems="true" DataTextField="Estatus" Width="100%" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlEstatusAdd" runat="server" CssClass="select2me form-control" AppendDataBoundItems="true" DataTextField="Estatus" Width="100%" ValidationGroup="GrpGuardar">

2
Ventas/ActualizarPrecios.aspx
View File

@@ -153,7 +153,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;" /> <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> <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> </div>
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Porcentaje,CodigoPS" <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Codigo2,Porcentaje,CodigoPS"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" ToolTip="Listado de Nombres"> CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" ToolTip="Listado de Nombres">
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%"> <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">

53
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -177,7 +177,7 @@ Partial Class Ventas_ActualizarPrecios
End If End If
objPS.Dispose() objPS.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
GVPrecios.Columns(2).Visible = True GVPrecios.Columns(2).Visible = True
End If End If
@@ -314,6 +314,7 @@ Partial Class Ventas_ActualizarPrecios
Select New With Select New With
{ {
.Codigo = row.DataKey("Codigo"), .Codigo = row.DataKey("Codigo"),
.Codigo2 = row.DataKey("Codigo2"),
.PS = row.DataKey("PS"), .PS = row.DataKey("PS"),
.Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal() .Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
}).QueryToDataTable(True) }).QueryToDataTable(True)
@@ -344,6 +345,11 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("Codigo").ColumnName = "Código" DtExcel.Columns("Codigo").ColumnName = "Código"
DtExcel.Columns("PS").ColumnName = "Producto / Servicio" DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
DtExcel.Columns("Codigo2").ColumnName = "Código CPK"
Else
DtExcel.Columns.Remove("Codigo2")
End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile() Dim FileExcel As New ExcelFile()
@@ -363,31 +369,6 @@ Partial Class Ventas_ActualizarPrecios
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1)) worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next Next
'worksheet.Cells.Style.Locked = False
'worksheet.Cells.Style.FormulaHidden = False
'worksheet.Columns(0).Cells.Style.Locked = True
'worksheet.Protected = True
'Dim protectionSettings = worksheet.ProtectionSettings
'protectionSettings.AllowDeletingColumns = False
'protectionSettings.AllowDeletingRows = True
'protectionSettings.AllowEditingObjects = True
'protectionSettings.AllowEditingScenarios = True
'protectionSettings.AllowFormattingCells = True
'protectionSettings.AllowFormattingColumns = True
'protectionSettings.AllowFormattingRows = True
'protectionSettings.AllowInsertingColumns = False
'protectionSettings.AllowInsertingRows = True
'protectionSettings.AllowSelectingLockedCells = True
'protectionSettings.AllowSelectingUnlockedCells = True
'protectionSettings.AllowSelectingUnlockedCells = True
'protectionSettings.AllowSorting = True
'protectionSettings.AllowUsingAutoFilter = True
'protectionSettings.AllowUsingPivotTableReports = True
'protectionSettings.SetPassword(ModExtensiones.IMEI)
FileExcel.Save(Response, "Precios.xlsx", SaveOptions.XlsxDefault) FileExcel.Save(Response, "Precios.xlsx", SaveOptions.XlsxDefault)
End Sub End Sub
@@ -420,19 +401,29 @@ Partial Class Ventas_ActualizarPrecios
Exit Sub Exit Sub
End If End If
If Not dt.Columns(0).ColumnName = "Código" Then If Not dt.Columns(0).ColumnName = "Código" Then
Alert("El nombre de la tercera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If Not dt.Columns(1).ColumnName = "Producto / Servicio" Then If Not dt.Columns(1).ColumnName = "Producto / Servicio" Then
Alert("El nombre de la cuarta columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la segunda columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If Not dt.Columns(2).ColumnName = "Precio" Then
Alert("El nombre de la sexta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError) If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
Exit Sub If Not dt.Columns(3).ColumnName = "Precio" Then
Alert("El nombre de la cuarta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
Else
If Not dt.Columns(2).ColumnName = "Precio" Then
Alert("El nombre de la tercera columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
End If End If
dt.TableName = "Datos" dt.TableName = "Datos"
Dim ProductosNoCargados As New StringBuilder() Dim ProductosNoCargados As New StringBuilder()
Dim RowsCargados As Integer = 0 Dim RowsCargados As Integer = 0