") - strBody.Append(" ") - strBody.Append("
") - strBody.Append(" ")
- strBody.Append("")
- strBody.Append("
")
- strBody.Append("")
- Catch ex As Exception
- OnError("Ocurrio un error al general el correo.", ex)
- End Try
- Return strBody.ToString()
- End Function
-#End Region
-
+ End Function
+
+#Region "N O T F I C A C I O N - T R A Y E C T O S"
+ Private Sub EnviarCorreoTrayectos(ByVal context As HttpContext, CveTrayecto As Integer)
+ Dim Retorno As JObject = New JObject(New JProperty("EnvioCorreo", False), New JProperty("Mensaje", ""))
+ Try
+ Dim DtInfoTrayecto As DataTable = Nothing
+ Dim DtTrayecto As DataTable = Nothing
+
+ Using ObjGPS As New ClsGPS
+ If ObjGPS.GetTrayectos(CveTrayecto, -1, -1) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
+ DtTrayecto = ObjGPS.DtResultados.Copy()
+ End If
+
+ If ObjGPS.GetTrayectosDatos(CveTrayecto) Then
+ DtInfoTrayecto = ObjGPS.DtSetResultados.Tables(0).Copy()
+ End If
+ End Using
+
+ If DtTrayecto IsNot Nothing AndAlso DtInfoTrayecto IsNot Nothing AndAlso DtInfoTrayecto.Rows.Count > 0 Then
+ Dim RowTrayecto As DataRow = DtTrayecto.Rows(0)
+ Dim RowInfo As DataRow = DtInfoTrayecto.Rows(0)
+
+ Dim EnviarLiga As Boolean = CBool(RowTrayecto("EnviarLiga").ToString())
+
+ Dim Asunto As String = "Estatus de Trayecto"
+ Dim Cuerpo As String = GeneraCorreo(CveTrayecto, EnviarLiga, RowInfo)
+ Dim Correos As String = RowTrayecto("CorreosNotificacion").ToString()
+
+ Dim ObjMail As New ClsSisMail
+ If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, Asunto, Cuerpo) Then
+ Retorno("EnvioCorreo") = True
+ Retorno("Mensaje") = "El correo fue enviado correctamente"
+ Else
+ Retorno("EnvioCorreo") = False
+ Retorno("Mensaje") = "Ocurrió un error al enviar el correo"
+ End If
+
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al enviar el correo", ex)
+ End Try
+
+ context.Response.Write(Retorno.ToString())
+ End Sub
+
+ Protected Function GeneraCorreo(CveTrayecto As Integer, EnviarLiga As Boolean, Row As DataRow) As String
+ Dim strBody As New StringBuilder
+ Try
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("") + strBody.Append(" ") + strBody.Append("
") + strBody.Append(" ")
+ strBody.Append("")
+ strBody.Append("
")
+ strBody.Append("")
+ Catch ex As Exception
+ OnError("Ocurrio un error al general el correo.", ex)
+ End Try
+ Return strBody.ToString()
+ End Function
+#End Region
+
End Class
\ No newline at end of file
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index c4c0f3fcb..8ae61eb7e 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -106,7 +106,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim usuario As Usuario = UsuarioActual(context)
If Not IsNothing(usuario) Then
- Url = String.Format("{0}Empresas\{1}\{2}", AppDomain.CurrentDomain.BaseDirectory, usuario.CveEmpresa, Url)
+ Url = String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, usuario.CveEmpresa, Url)
Dim FileInfo As FileInfo = New FileInfo(Url)
If FileInfo.Exists Then
context.Response.ContentType = "image/png"
diff --git a/Ashx/SigFiles.ashx b/Ashx/SigFiles.ashx
new file mode 100644
index 000000000..bb4a91d48
--- /dev/null
+++ b/Ashx/SigFiles.ashx
@@ -0,0 +1,64 @@
+<%@ WebHandler Language="C#" Class="SigFiles" %>
+
+using System;
+using System.Web;
+using Extensiones;
+
+public class SigFiles : IHttpHandler
+{
+
+ public void ProcessRequest(HttpContext context)
+ {
+ //context.Response.ContentType = "text/plain";
+ //context.Response.Write("Hello World");
+ string path = "";
+ if (context.Request["FileUrl"] != null)
+ {
+ path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, context.Request["FileUrl"]);
+ }
+ if (context.Request["P"] != null)
+ {
+ path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas,ModExtensiones.Decripta( context.Request["P"]));
+ }
+ if (path != null && path.Length>0)
+ {
+
+ try
+ {
+ if (System.IO.File.Exists(path))
+ {
+ System.IO.FileInfo file = new System.IO.FileInfo(path);
+ string mimeType = "text/plain";
+ try
+ {
+ mimeType = MimeMapping.GetMimeMapping(path);
+ }
+ catch (Exception) { }//si truena no existe el arhivo
+ context.Response.Clear();
+ context.Response.ClearHeaders();
+ context.Response.ClearContent();
+ context.Response.AddHeader("Content-Disposition", $"attachment; filename= {Uri.EscapeDataString(file.Name)}");
+ context.Response.AddHeader("Content-Length", file.Length.ToString());
+ context.Response.ContentType = mimeType;
+ context.Response.Flush();
+ context.Response.TransmitFile(file.FullName);
+
+ }
+ }
+ catch (Exception ex)
+ {
+ this.GuardaLog(ex.ToString());
+ }
+ }
+ context.Response.End();
+ }
+
+ public bool IsReusable
+ {
+ get
+ {
+ return false;
+ }
+ }
+
+}
\ No newline at end of file
diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb
index 27ab10ceb..662e7ca6c 100644
--- a/Bancos/CargarConciliacionesBancarias.aspx.vb
+++ b/Bancos/CargarConciliacionesBancarias.aspx.vb
@@ -77,7 +77,7 @@ Partial Class Bancos_CargarConciliacionesBancarias
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs)
If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargaExcel(Directorio, file.filename, Tipo)
Else
diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb
index 70a1873b4..615b0c0b8 100644
--- a/Bancos/CreditosPagoMultiple.aspx.vb
+++ b/Bancos/CreditosPagoMultiple.aspx.vb
@@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple
Dim filemove As String = ""
Dim Comprobante As String = ""
For Each fileItem As Archivo In filesgral
- Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
filemove = fileItem.filename
Next
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index bebd16b8c..da3d4ae99 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -510,7 +510,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 25548fcf6..beb0c14e3 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -930,7 +930,7 @@ Partial Class Bancos_IE
If ObjIE.Comprobante <> "" Then
HplComprobante.Visible = True
- HplComprobante.NavigateUrl = String.Format("/Empresas/{0}/IE/{1}", UsuarioActual.CveEmpresa, ObjIE.Comprobante)
+ HplComprobante.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=IEComprobante&Comprobante={ObjIE.Comprobante}"))
End If
If CveIEDeposito > 0 Then
@@ -2471,7 +2471,7 @@ Partial Class Bancos_IE
If CveIE > 0 Then
- If DdlTipoTransaccion.SelectedValue = "1" AndAlso usuarioactual.cveempresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
+ If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
'valida prepoliza
@@ -2728,6 +2728,7 @@ Partial Class Bancos_IE
Dim TipoMovtoAplicar = False
For Each Dr As DataRow In ObjMov.DtResultados.FiltraParametros("CveConceptoContable IN (13,8,9,38)").Rows
+ Dim PorcentajeImpuesto As Decimal = Dr("PorcentajeImpuesto").ToString.ToDecimal()
CveConceptoContableAplciar = Dr("CveConceptoContable").ToString.ToEntero
TipoMovtoAplicar = Not CBool(Dr("TipoMovto").ToString)
ImporteAplicar = (Dr("Importe").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
@@ -2735,7 +2736,7 @@ Partial Class Bancos_IE
ImporteAplicarME = (Dr("ImporteME").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
IdCtaContableAplicar = Dr("IdCtaContable").ToString.ToEntero
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
Select Case CveConceptoContableAplciar
Case 13
CveConceptoContableAplciar = 61
@@ -2747,7 +2748,7 @@ Partial Class Bancos_IE
CveConceptoContableAplciar = 39
End Select
TipoMovtoAplicar = Not TipoMovtoAplicar
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
Exit Select
End If
@@ -3276,7 +3277,7 @@ Partial Class Bancos_IE
ElseIf DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1) Then
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero))
If Not Archivo.Exists Then
- Archivo = New System.IO.FileInfo(String.Format("{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory))
+ Archivo = New System.IO.FileInfo(String.Format("{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas))
End If
ElseIf DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(6) And UsuarioActual.CveEmpresa = 72 Then
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero))
@@ -4442,8 +4443,8 @@ Partial Class Bancos_IE
#Region " CARGAR - COMPROBANTE "
Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs)
- Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
- Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
+ Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+ Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then
Dim Extension As String = Path.GetExtension(ArchivoTemporal)
diff --git a/Bancos/IE2.aspx.vb b/Bancos/IE2.aspx.vb
index fabb39aa6..dd2087068 100644
--- a/Bancos/IE2.aspx.vb
+++ b/Bancos/IE2.aspx.vb
@@ -1598,8 +1598,8 @@ Partial Class Bancos_IE
#Region " CARGAR - COMPROBANTE "
Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs)
- Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
- Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
+ Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+ Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then
Dim Extension As String = Path.GetExtension(ArchivoTemporal)
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index 535b52b64..34d0a9b14 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -571,7 +571,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -845,7 +845,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 0a066a52f..6e56741cc 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -506,7 +506,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -908,7 +908,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index 91ae90038..0a8276153 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -211,25 +211,25 @@ Partial Class Bancos_PolizaCheque
End Sub
Private Sub CargaCuenta()
- DdlCuenta.Items.Clear()
-
- Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
-
-
-
-
+ DdlCuenta.Items.Clear()
+
+ Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+
+
+
+
If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
dt = dt.FiltraParametros("CveTipoCuenta = 7")
End If
'cuando es layout
- If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+ If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
dt = dt.FiltraParametros("UsaLayout = 1")
- End If
-
- 'cuando es layout Por Grupos
- If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+ End If
+
+ 'cuando es layout Por Grupos
+ If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
End If
@@ -1212,9 +1212,9 @@ Partial Class Bancos_PolizaCheque
End If
End If
Return Retorno
- End Function
-
-
-
+ End Function
+
+
+
End Class
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index fc10b964d..45868524e 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -410,7 +410,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -670,7 +670,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb
index 05e1a0d61..29b9d94e8 100644
--- a/Bancos/RepCobrado.aspx.vb
+++ b/Bancos/RepCobrado.aspx.vb
@@ -134,7 +134,7 @@ Partial Class Ventas_RepRecuperacion
If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cuenta Bancaria: {0}", DdlCuentaBancaria.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacion.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb
index 90671a616..b37cec1e1 100644
--- a/Bancos/RepCobradoDetalle.aspx.vb
+++ b/Bancos/RepCobradoDetalle.aspx.vb
@@ -193,7 +193,7 @@ Partial Class Ventas_RepRecuperacionDetalle
If DdlProveedorSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Proveedor Sucursal: {0}", DdlProveedorSucursal.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb
index 8ad3eeb40..1f22c766f 100644
--- a/Bancos/Reportes.aspx.vb
+++ b/Bancos/Reportes.aspx.vb
@@ -141,7 +141,7 @@ Partial Class Bancos_Reportes
rv.LocalReport.DataSources.Clear()
rv.LocalReport.DataSources.Add(rds)
rv.LocalReport.DataSources.Add(rds2)
- rv.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+ rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
rv.LocalReport.Refresh()
Dim paramList As New List(Of ReportParameter)
diff --git a/Bancos/ReportesOLD.aspx.vb b/Bancos/ReportesOLD.aspx.vb
index afc90b056..aac1c48b9 100644
--- a/Bancos/ReportesOLD.aspx.vb
+++ b/Bancos/ReportesOLD.aspx.vb
@@ -64,7 +64,7 @@ Partial Class Bancos_Reportes
rv.LocalReport.DataSources.Clear()
rv.LocalReport.DataSources.Add(rds)
rv.LocalReport.DataSources.Add(rds2)
- rv.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+ rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
rv.LocalReport.Refresh()
Dim paramList As New List(Of ReportParameter)
diff --git a/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll
index 1f9036671..133af1af3 100644
Binary files a/Bin/APP_Code_CSharp.dll and b/Bin/APP_Code_CSharp.dll differ
diff --git a/Bin/APP_Code_CSharp.pdb b/Bin/APP_Code_CSharp.pdb
index 3698a8127..54e2a37d6 100644
Binary files a/Bin/APP_Code_CSharp.pdb and b/Bin/APP_Code_CSharp.pdb differ
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 9bd14d662..bc1ce9c1a 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -1407,7 +1407,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if ((CveArchivo > 0))
{
string NombreNuevo = string.Format("{0}{1}", CveArchivo, FileExtension);
- string DirectorioNuevo = string.Format("{0}\\Empresas\\{1}\\Acercamientos\\{2}\\Imagenes\\", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CveAcercamiento);
+ string DirectorioNuevo = string.Format("{0}\\Empresas\\{1}\\Acercamientos\\{2}\\Imagenes\\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveAcercamiento);
if (!Directory.Exists(DirectorioNuevo))
{
Directory.CreateDirectory(DirectorioNuevo);
diff --git a/CRM/CatEmpresasCRM.aspx b/CRM/CatEmpresasCRM.aspx
index 7095cee60..c4391eec7 100644
--- a/CRM/CatEmpresasCRM.aspx
+++ b/CRM/CatEmpresasCRM.aspx
@@ -28,6 +28,11 @@
") + strBody.Append(" ") + strBody.Append("
") + strBody.Append("
+
+
diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs
index ad32655d5..9f8de821c 100644
--- a/CRM/CatEmpresasCRM.aspx.cs
+++ b/CRM/CatEmpresasCRM.aspx.cs
@@ -29,6 +29,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
{
if (!IsPostBack)
{
+ CargaTipoProcesos();
CargaMediosCaptacion();
CargaDatos();
}
@@ -60,12 +61,22 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
{
- DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+ DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue));
DdlMedioCaptacion.DataBind();
- DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1"));
}
ObjCRM.Dispose();
}
+
+ protected void CargaTipoProcesos()
+ {
+ ClsCRM ObjCRM = new ClsCRM();
+
+ if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+ {
+ DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+ }
+ DdlTipoProceso.DataBind();
+ }
#endregion
#region "ACCIONES - GRIEDVIEW"
@@ -106,4 +117,11 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
}
}
#endregion
+
+ protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
+ {
+ DdlMedioCaptacion.Items.Clear();
+ CargaMediosCaptacion();
+ UPFiltros.Update();
+ }
}
\ No newline at end of file
diff --git a/CRM/CatEtapasProceso.aspx b/CRM/CatEtapasProceso.aspx
index 27ce1e6dd..8dc6acbfb 100644
--- a/CRM/CatEtapasProceso.aspx
+++ b/CRM/CatEtapasProceso.aspx
@@ -23,8 +23,8 @@
-
@@ -130,22 +130,24 @@
+
+
+
-
-
+
-
<%--
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index e99b406e2..8f63e3791 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -225,6 +225,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{
CreoCliente = false;
RecuperaCve();
+ CargaTipoProceso();
CargaMetodosCaptacion();
CargaVendedores();
CargaSucursales();
@@ -548,12 +549,22 @@ public partial class CRM_EmpresaCRM : ClsPaginas
CveContactoEditado = -1;
}
+ protected void CargaTipoProceso()
+ {
+ ClsCRM ObjCRM = new ClsCRM();
+ if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+ {
+ DdlTipoPrceso2.DataSource = ObjCRM.DtResultados;
+ }
+ DdlTipoPrceso2.DataBind();
+ }
+
protected void CargaMetodosCaptacion()
{
ClsCRM ObjCRM = new ClsCRM();
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
{
- DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+ DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoPrceso2.SelectedValue));
DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
DdlMedioCaptacionAcercamiento.Items.Clear();
DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados;
@@ -673,7 +684,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlMedioCaptacionAcercamiento.Items.Clear();
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue.ToEntero()));
DdlMedioCaptacionAcercamiento.DataBind();
- DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1"));
+ if (DdlTipoProceso.SelectedValue != "-1")
+ {
+ DdlMedioCaptacionAcercamiento.Enabled = true;
+ }else
+ {
+ DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1"));
+ DdlMedioCaptacionAcercamiento.Enabled = false;
+ }
DdlProbabilidadAcercamiento.Items.Clear();
DdlProbabilidadAcercamiento.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
@@ -1299,7 +1317,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlTipoProceso.DataSource = ObjCRM.DtResultados;
if (ObjCRM.DtResultados.Rows.Count > 0)
+ {
DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+
+ DdlMedioCaptacionAcercamiento.Enabled = false;
+ }
DdlTipoProceso.DataBind();
}
@@ -1402,8 +1424,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
int CveAcercamiento = -1;
- CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
- FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+ if (ObjCRM.DtResultados.Rows.Count > 0)
+ {
+ CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
+ FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+ }else
+ {
+ Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia);
+ }
if (CveAcercamiento > 0)
{
@@ -1450,6 +1478,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
#region "PERMISOS"
protected void VerificaPermisos()
{
+
if (CveEmpresaCRM > 0)
{
if (!UsuarioActual.TienePermisoProceso(250))
@@ -1507,4 +1536,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, correoVendedor, Asunto,body);
}
}
+
+ protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
+ {
+ DdlMedioCaptacion.Items.Clear();
+ CargaMetodosCaptacion();
+ UpDatos.Update();
+ }
}
\ No newline at end of file
diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx
index 15532c432..c88c06c77 100644
--- a/CRM/RepAcercamientosProcesos.aspx
+++ b/CRM/RepAcercamientosProcesos.aspx
@@ -16,11 +16,13 @@
.form-group.form-md-line-input .form-control {
background-color: #fff;
- }
- .GVRep tr td a{
- display:block;
- text-align:center;
}
+
+ .GVRep tr td a {
+ display: block;
+ text-align: center;
+ }
+
#chartdiv {
width: 100%;
height: 500px;
@@ -46,90 +48,96 @@
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Consultar
-
- -
-
-
-
-
-
-
-
-
+
-
+
+
-
+
diff --git a/GPS/CatDistribuidoresMaster.aspx.vb b/GPS/CatDistribuidoresMaster.aspx.vb
index 5aa24c6f5..6b7de01b6 100644
--- a/GPS/CatDistribuidoresMaster.aspx.vb
+++ b/GPS/CatDistribuidoresMaster.aspx.vb
@@ -99,8 +99,8 @@ Partial Class GPS_CatDistribuidoresMaster
'If CveSucursal < 0 Then HuboError = True
End If
If Not HuboError Then
- If Not IO.Directory.Exists(String.Format("{0}\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa)) Then
- IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa))
+ If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then
+ IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa))
End If
Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
End If
@@ -198,7 +198,7 @@ Partial Class GPS_CatDistribuidoresMaster
Dim archivos As New List(Of ClsSisMail.ArchivoMail)
Dim ListArchivoMail As New List(Of ClsSisMail.ArchivoMail)
Dim ArchivoMail As New ClsSisMail.ArchivoMail
- ArchivoMail.Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\Grales\LogoSinFondo.png"
+ ArchivoMail.Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\Grales\LogoSinFondo.png"
ArchivoMail.NombreArchivo = "LogoSinFondo.png"
ListArchivoMail.Add(ArchivoMail)
objMail.SendMail(ClsPaginas.EmpresaNotificaciones, TxtMail.Text, "Activación de empresa", body, "", ListArchivoMail)
@@ -246,7 +246,7 @@ Partial Class GPS_CatDistribuidoresMaster
strBody.Append(" Se ha registrado como distribuidor master en SIG GPS ")
strBody.Append("")
'strBody.Append(Liga)
- strBody.AppendFormat("Éste es su liga de acceso al sistema
", String.Format("{0}\Login.aspx", ModExtensiones.DirectorioBaseEmpresas)) strBody.Append(" Sus Datos de Acceso son los siguientes: ")
strBody.Append(" ")
strBody.Append(" ", String.Format("{0}\Login.aspx", ModExtensiones.DirectorioBaseEmpresas))
strBody.Append(" Sus Datos de Acceso son los siguientes: ")
strBody.Append(" ")
strBody.Append("
-
-
@@ -185,13 +193,14 @@
+
-
+
-
+
-
-
-
+
-
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Consultar
+
+
", String.Format("{0}\Login.aspx", ModExtensiones.DirectorioBaseEmpresas)) strBody.Append("
- ")
diff --git a/GPS/CatDistribuidoresMaster.aspx.vb.exclude b/GPS/CatDistribuidoresMaster.aspx.vb.exclude
index c9dfe18a3..c7d77b3b1 100644
--- a/GPS/CatDistribuidoresMaster.aspx.vb.exclude
+++ b/GPS/CatDistribuidoresMaster.aspx.vb.exclude
@@ -96,8 +96,8 @@ Partial Class GPS_CatDistribuidoresMaster
If CveSucursal < 0 Then HuboError = True
End If
If Not HuboError Then
- If Not IO.Directory.Exists(String.Format("{0}\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa)) Then
- IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa))
+ If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then
+ IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa))
End If
Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
End If
@@ -195,7 +195,7 @@ Partial Class GPS_CatDistribuidoresMaster
Dim archivos As New List(Of ClsSisMail.ArchivoMail)
Dim ListArchivoMail As New List(Of ClsSisMail.ArchivoMail)
Dim ArchivoMail As New ClsSisMail.ArchivoMail
- ArchivoMail.Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\Grales\LogoSinFondo.png"
+ ArchivoMail.Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\Grales\LogoSinFondo.png"
ArchivoMail.NombreArchivo = "LogoSinFondo.png"
ListArchivoMail.Add(ArchivoMail)
objMail.SendMail(ClsPaginas.EmpresaNotificaciones, TxtMail.Text, "Activación de empresa", body, "", ListArchivoMail)
@@ -243,7 +243,7 @@ Partial Class GPS_CatDistribuidoresMaster
strBody.Append("
- ")
diff --git a/GPS/CatEventos.aspx.vb b/GPS/CatEventos.aspx.vb
index dc46e72c6..0c19d4965 100644
--- a/GPS/CatEventos.aspx.vb
+++ b/GPS/CatEventos.aspx.vb
@@ -109,7 +109,7 @@ Partial Class GPS_CatEventos
Try
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -122,7 +122,7 @@ Partial Class GPS_CatEventos
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -146,7 +146,7 @@ Partial Class GPS_CatEventos
Try
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -159,7 +159,7 @@ Partial Class GPS_CatEventos
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -214,7 +214,7 @@ Partial Class GPS_CatEventos
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.VerticalAlign = VerticalAlign.Middle
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEvento").ToString
- If File.Exists($"{AppDomain.CurrentDomain.BaseDirectory}Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
+ If File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
e.Row.FCLinkButton("PlaySonido").OnClientClick = $"javascript:PlaySonidito('{e.Row.DataKey("Sonido").ToString}');return false;"
Else
e.Row.FCLinkButton("PlaySonido").Visible = False
diff --git a/GPS/CatRemisionesVehiculos.aspx b/GPS/CatRemisionesVehiculos.aspx
index f60e75505..8bdf451b1 100644
--- a/GPS/CatRemisionesVehiculos.aspx
+++ b/GPS/CatRemisionesVehiculos.aspx
@@ -266,8 +266,6 @@
-
+
diff --git a/GPS/DispositivosControles.aspx.vb b/GPS/DispositivosControles.aspx.vb
index 9829b41fe..3f7d901bf 100644
--- a/GPS/DispositivosControles.aspx.vb
+++ b/GPS/DispositivosControles.aspx.vb
@@ -155,7 +155,7 @@ Partial Class GPS_DispositivosControles
If TxtCalibración.getfiles().Archivos.Count > 0 AndAlso CveControl > 0 AndAlso Not huboerror Then
Try
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -226,7 +226,7 @@ Partial Class GPS_DispositivosControles
huboerror = Not GPS.CalibracionDelete(CveControl)
If Not huboerror Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -448,7 +448,7 @@ Partial Class GPS_DispositivosControles
End Sub
Protected Sub LbDescargaFormato_Click(sender As Object, e As EventArgs)
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoCalibracion.xlsx"
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoCalibracion.xlsx"
Dim Archivo As New IO.FileInfo(Directorio)
If Archivo.Exists Then
Response.Clear()
diff --git a/GPS/EntradasSalidasGR.aspx b/GPS/EntradasSalidasGR.aspx
index 37d683f60..0c472d751 100644
--- a/GPS/EntradasSalidasGR.aspx
+++ b/GPS/EntradasSalidasGR.aspx
@@ -632,11 +632,6 @@
}
-
- <%----%>
+
diff --git a/GPS/GeoReferencias.aspx b/GPS/GeoReferencias.aspx
index eda63fbc8..f370c259d 100644
--- a/GPS/GeoReferencias.aspx
+++ b/GPS/GeoReferencias.aspx
@@ -769,12 +769,7 @@
}
-
- <%-- --%>
+
diff --git a/GPS/GeoReferencias.aspx.vb b/GPS/GeoReferencias.aspx.vb
index e14d3e9a8..9b898f0e8 100644
--- a/GPS/GeoReferencias.aspx.vb
+++ b/GPS/GeoReferencias.aspx.vb
@@ -157,7 +157,8 @@ Partial Class GPS_GeoReferencias
Finally
If TieneError Then
- ObjGPS.RollBack()
+ ObjGPS.RollBack()
+ Alert("Ocurrió un error al agregar la georeferencia", TipoMensaje.MsgError)
Else
ObjGPS.Commit()
Alert("Se agregó correctamente la Ruta", TipoMensaje.MsgInformacion)
diff --git a/GPS/PuntosDeInteres.aspx b/GPS/PuntosDeInteres.aspx
index 06a1fd834..bd1f058dc 100644
--- a/GPS/PuntosDeInteres.aspx
+++ b/GPS/PuntosDeInteres.aspx
@@ -754,11 +754,7 @@
}
-
- <%-- --%>
+
+
diff --git a/GPS/Rastreo.aspx b/GPS/Rastreo.aspx
index ffa349c1b..2e9dae495 100644
--- a/GPS/Rastreo.aspx
+++ b/GPS/Rastreo.aspx
@@ -3130,9 +3130,7 @@
}
-
+
diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb
index 3d48426b6..ebed128cf 100644
--- a/GPS/Rastreo.aspx.vb
+++ b/GPS/Rastreo.aspx.vb
@@ -1495,7 +1495,7 @@ Partial Class GPS_Rastreo
End If
'RegistraScript("CreaRuta();")
ElseIf HdnTipo.Value = "Geocerca" Then
- GeoRefString = $"POLYGON(({GeoCerca.Value}))"
+ GeoRefString = $"POLYGON(({GeoCerca.Value} {CommandArg.Value}))"
If ObjGPS.GeoReferenciaAdd(TxtNombre.Text, -1, GeoRefString, "Geocerca", True, TxtFechaIG.Text.ToDate, TxtFechaFG.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked, chkSabado.Checked, chkDomingo.Checked, MinFecha, MaxFecha, TxtColor.Text, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then
For Each Dr As GridViewRow In GvEquiposDetalle.Rows
If Dr.RowType = DataControlRowType.DataRow Then
diff --git a/GPS/RastreoTrayectos.aspx b/GPS/RastreoTrayectos.aspx
index 320c1d054..91db7fd2a 100644
--- a/GPS/RastreoTrayectos.aspx
+++ b/GPS/RastreoTrayectos.aspx
@@ -234,7 +234,7 @@
-
+
-
+
- Fecha Inicio: +
-
+ ++
+
- Fecha Fin: +
-
+ ++
+
- Fecha Inicio: +
-
+ ++
+
- Fecha Fin: +
-
+ ++
+
- Estatus: +
-
+
-
+
-
+
- Imprimir ", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=0", CveVenta))) End If - DiasCredito = DbRowVenta("DiasCredito").ToString.ToEntero - EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString) + DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero() + EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString()) Case "OP" TdOrdenPago.Visible = True - DdlOrdenPago.SelectedValue = DbRowVenta("Num3").ToString + DdlOrdenPago.SelectedValue = DbRowVenta("Num3").ToString() DdlOrdenPago.Enabled = False Case "Cot" - TxtAtencionA.Text = DbRowVenta("AtencionA").ToString - TxtFechaVencimientoCotizacion.Text = DbRowVenta("Vigencia").ToString + TxtAtencionA.Text = DbRowVenta("AtencionA").ToString() + TxtFechaVencimientoCotizacion.Text = DbRowVenta("Vigencia").ToString() PnlImprimir.Visible = True HLOrdendeCompra.Visible = True HLOrdendeCompra.NavigateUrl = String.Format("/OC/OC.aspx?Tipo=Req&CveCotizacion={0}", CveVenta) @@ -3700,7 +3701,7 @@ Partial Class Ventas If ObjOS.GetCotizacionOS(CveVenta) Then If ObjOS.DtResultados.Rows.Count > 0 Then Dim DbRowOS As DataRow = ObjOS.DtResultados.Rows(0) - ViewState("CveOS") = DbRowOS("CveOS").ToString.ToEntero + ViewState("CveOS") = DbRowOS("CveOS").ToString().ToEntero() CargaOS(CveOS) End If @@ -3712,7 +3713,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then PnlImprimir.Visible = True : LnkImprimir.OnClientClick = "javascript:ImprimirCotizacion();return false;" 'Deshabilitar impresión cuando no esté supervisada - If DbRowVenta("TipoEstatus").ToString.ToEntero = 2 Or UsuarioActual.Empresa.Funcionalidad(113) = "1" Then + If DbRowVenta("TipoEstatus").ToString().ToEntero() = 2 Or UsuarioActual.Empresa.Funcionalidad(113) = "1" Then PnlImprimir.Visible = True Else HplDownPDF.Visible = False @@ -3727,7 +3728,7 @@ Partial Class Ventas If Objeto.GetVendedores(UsuarioActual.CveEmpresa) Then Dim DTVendedores As New DataTable - DTVendedores = Objeto.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString)).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor)) + DTVendedores = Objeto.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor)) 'Verifico si es su supervisor asignado If DTVendedores.Rows.Count > 0 Then LkCotizacionAutorizar.Visible = True @@ -3737,7 +3738,7 @@ Partial Class Ventas Objeto.Dispose() End If - String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString) + String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString()) Case "Ant" @@ -3750,20 +3751,20 @@ Partial Class Ventas LblNCSaldoAnticipo.Visible = True ChkAplicaNCAnticipo.Visible = True ChkAplicaNCAnticipo.Checked = True - Me.SaldoAnticipo = DbRowVenta("SaldoAnticipo").ToString.ToDecimal + Me.SaldoAnticipo = DbRowVenta("SaldoAnticipo").ToString().ToDecimal If SaldoAnticipo > 0 Then InicializaDTAnticiposAmortizacion() ChkAplicaNCAnticipo.Enabled = False Else ChkAplicaNCAnticipo.Checked = False End If - 'If DbRowVenta("SaldoAnticipo").ToString.ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False - LblNCSaldoAnticipo.Text = String.Format("Saldo Anticipo: $ {0}", DbRowVenta("SaldoAnticipo").ToString.ToDouble.FormatoNumero) + 'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False + LblNCSaldoAnticipo.Text = String.Format("Saldo Anticipo: $ {0}", DbRowVenta("SaldoAnticipo").ToString().ToDouble.FormatoNumero) Case "Dev" DdlTipoComprobante.Items.Insert(0, New ListItem("Devolucion", "Dev")) HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto")))) - HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString - ViewState("CveDevolucion") = DbRowVenta("CveVentaPadre").ToString.ToEntero + HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString() + ViewState("CveDevolucion") = DbRowVenta("CveVentaPadre").ToString().ToEntero() Trsaldo.Visible = True HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) @@ -3776,30 +3777,30 @@ Partial Class Ventas Case "PA" BtnGenerarRemision.Visible = If(CveEstatus = 16, True, False) CvePedidoA = CveVenta - DiasCredito = DbRowVenta("DiasCredito").ToString.ToEntero - EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString) + DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero() + EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString()) Case "Pd2" CvePedido2 = CveVenta BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False) BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False) End Select - DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString + DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString() End If 'contado 0, credito 1, terminal 2 - If DbRowVenta("CondicionesPago").ToString.ToEntero = 1 Then + If DbRowVenta("CondicionesPago").ToString().ToEntero() = 1 Then RBLPago.SelectedValue = "1" RBLPago_SelectedIndexChanged(Nothing, Nothing) UPCondicionesPago.Update() - ElseIf DbRowVenta("CondicionesPago").ToString.ToEntero = 0 Then + ElseIf DbRowVenta("CondicionesPago").ToString().ToEntero() = 0 Then RBLPago.SelectedValue = "2" RBLPago.Items(0).Enabled = False RBLPago_SelectedIndexChanged(Nothing, Nothing) UPCondicionesPago.Update() Else - DdlCuentasTerminal.SelectedValue = DbRowVenta("CveCuentaTerminal").ToString + DdlCuentasTerminal.SelectedValue = DbRowVenta("CveCuentaTerminal").ToString() RBLPago.SelectedValue = "3" RBLPago.Items(0).Enabled = False RBLPago_SelectedIndexChanged(Nothing, Nothing) @@ -3815,37 +3816,37 @@ Partial Class Ventas UpnTools.Update() DivEstatusFac.Visible = True - HdnCveCliente.Value = CveCliente.ToString + HdnCveCliente.Value = CveCliente.ToString() ViewState("CveCliente") = CveCliente - ViewState("CveEmpresaCRM") = DbRowVenta("CveEmpresaCRM").ToString.ToEntero - ViewState("CveAcercamientoCRM") = DbRowVenta("CveAcercamientoCRM").ToString.ToEntero - Entrega = DbRowVenta("Entrega").ToString - Vigencia = DbRowVenta("Vigencia").ToString.ToDate.ToShortDateString - HplSaldoAuxiliar.Text = DbRowVenta("Saldo").ToString.FormatoNumero(2) + ViewState("CveEmpresaCRM") = DbRowVenta("CveEmpresaCRM").ToString().ToEntero() + ViewState("CveAcercamientoCRM") = DbRowVenta("CveAcercamientoCRM").ToString().ToEntero() + Entrega = DbRowVenta("Entrega").ToString() + Vigencia = DbRowVenta("Vigencia").ToString().ToDate.ToShortDateString + HplSaldoAuxiliar.Text = DbRowVenta("Saldo").ToString().FormatoNumero(2) If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then HplSaldoAuxiliar.Visible = False HplPagado.Visible = True - If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then + If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then ImgAntiPend.Visible = True Else ImgAntiPend.Visible = False End If End If - HdnPagado.Value = DbRowVenta("Pagado").ToString - TxtTotal.Text = DbRowVenta("Total").ToString.FormatoNumero(2) - HdnVentaSaldo.Value = (SaldoVenta).ToString - CvePrePoliza = DbRowVenta("CvePrePoliza").ToString.ToEntero - CveVentaFacturada = DbRowVenta("CveVentaFacturada").ToString.ToEntero + HdnPagado.Value = DbRowVenta("Pagado").ToString() + TxtTotal.Text = DbRowVenta("Total").ToString().FormatoNumero(2) + HdnVentaSaldo.Value = (SaldoVenta).ToString() + CvePrePoliza = DbRowVenta("CvePrePoliza").ToString().ToEntero() + CveVentaFacturada = DbRowVenta("CveVentaFacturada").ToString().ToEntero() - CveVentaRelacion = DbRowVenta("CveVentaRelacion").ToString.ToEntero - ImporteRelacion = DbRowVenta("ImporteRelacion").ToString.ToDouble + CveVentaRelacion = DbRowVenta("CveVentaRelacion").ToString().ToEntero() + ImporteRelacion = DbRowVenta("ImporteRelacion").ToString().ToDouble - DdlMoneda.SelectedValue = DbRowVenta("CveMoneda").ToString + DdlMoneda.SelectedValue = DbRowVenta("CveMoneda").ToString() CambiaMoneda() - If DbRowVenta("TipoDocto").ToString = "Pd2" Then + If DbRowVenta("TipoDocto").ToString() = "Pd2" Then 'CANTIDAD FACTURADA If TmpDT.SUM("CantidadFacturadaPed2") > 0 Then GvPS.Columns(7).Visible = True @@ -3859,7 +3860,7 @@ Partial Class Ventas ''ACTIVA EDITAR ''SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA - 'If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString.ToEntero Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") + 'If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") ' BtnPermisoEditarCotizacion.Visible = True 'End If @@ -3878,35 +3879,35 @@ Partial Class Ventas CargaCliente(CveCliente, -1) 'Estatus activo, se requiere para cargar una factura en la que el cliente a sido eliminado End If - ViewState("CveAlmacenTransitorio") = DbRowVenta("CveAlmacenTraspasoDestino").ToString.ToEntero - DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString.ToEntero + ViewState("CveAlmacenTransitorio") = DbRowVenta("CveAlmacenTraspasoDestino").ToString().ToEntero() + DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString().ToEntero() 'sino esta cargada la información del metodo de pago que le corresponde, la recarga para que se le pueda asignar - If DdlMetodoPago33.SelectedValue <> DbRowVenta("CveMetodoPago33").ToString Then - CargaFormaPago(DbRowVenta("CveMetodoPago33").ToString.ToEntero) + If DdlMetodoPago33.SelectedValue <> DbRowVenta("CveMetodoPago33").ToString() Then + CargaFormaPago(DbRowVenta("CveMetodoPago33").ToString().ToEntero()) End If - DdlMetodoPago33.SelectedValueExist(DbRowVenta("CveMetodoPago33").ToString) - DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString.ToEntero) + DdlMetodoPago33.SelectedValueExist(DbRowVenta("CveMetodoPago33").ToString()) + DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString().ToEntero()) - If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString And DbRowVenta("CveFormaPago33").ToString <> "" Then + If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then 'sino está seleccionada la asginada la debe de cargar Dim Nombre As String = GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPagoSAT", String.Format("CveFormaPago={0}", DbRowVenta("CveFormaPago33"))) - DdlFormaPago33.Items.Add(New ListItem(Nombre, DbRowVenta("CveFormaPago33").ToString)) - DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString.ToEntero) + DdlFormaPago33.Items.Add(New ListItem(Nombre, DbRowVenta("CveFormaPago33").ToString())) + DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString().ToEntero()) End If - DdlUsoCFDI.SelectedValueExist(DbRowVenta("CveUsoCFDI").ToString) + DdlUsoCFDI.SelectedValueExist(DbRowVenta("CveUsoCFDI").ToString()) If UsuarioActual.CveEmpresa = 126 Then CargaOrdenProduccion(2, CveVenta) - If DbRowVenta("CveTipoRelacion").ToString.ToEntero > 0 Then + If DbRowVenta("CveTipoRelacion").ToString().ToEntero() > 0 Then TrTipoRelacion.Visible = True - DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion").ToString.ToEntero) - HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString + DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion").ToString().ToEntero()) + HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString() End If - If DbRowVenta("Saldo").ToString.ToDouble < 0.01 Then - If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString.ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then + If DbRowVenta("Saldo").ToString().ToDouble < 0.01 Then + If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then ImgAntiPend.Visible = True Else ImgAntiPend.Visible = False @@ -3919,21 +3920,21 @@ Partial Class Ventas LiComplementoPago.Visible = True - ViewState("FolioFiscal") = DbRowVenta("FolioFiscal").ToString - LblSerie.Text = DbRowVenta("Serie").ToString - ViewState("Serie") = DbRowVenta("Serie").ToString - ViewState("Folio") = DbRowVenta("Folio").ToString.ToEntero - TxtFolio.Text = DbRowVenta("Folio").ToString - 'TxtDocto.Text = DbRowVenta("Ref").ToString - 'TxtNumCtaPago.Text = DbRowVenta("NumeroCuenta").ToString - LblFolioFiscal.Text = DbRowVenta("FolioFiscal").ToString - TxtFecha.Text = DbRowVenta("Fecha").ToString - TxtSubTotal.Text = DbRowVenta("SubTotal").ToString.FormatoNumero(2) - LblDescuentos.Text = DbRowVenta("Descuento").ToString.FormatoNumero(2) - LblAmortizacion.Text = DbRowVenta("Amortizacion").ToString.FormatoNumero(2) + ViewState("FolioFiscal") = DbRowVenta("FolioFiscal").ToString() + LblSerie.Text = DbRowVenta("Serie").ToString() + ViewState("Serie") = DbRowVenta("Serie").ToString() + ViewState("Folio") = DbRowVenta("Folio").ToString().ToEntero() + TxtFolio.Text = DbRowVenta("Folio").ToString() + 'TxtDocto.Text = DbRowVenta("Ref").ToString() + 'TxtNumCtaPago.Text = DbRowVenta("NumeroCuenta").ToString() + LblFolioFiscal.Text = DbRowVenta("FolioFiscal").ToString() + TxtFecha.Text = DbRowVenta("Fecha").ToString() + TxtSubTotal.Text = DbRowVenta("SubTotal").ToString().FormatoNumero(2) + LblDescuentos.Text = DbRowVenta("Descuento").ToString().FormatoNumero(2) + LblAmortizacion.Text = DbRowVenta("Amortizacion").ToString().FormatoNumero(2) TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) - TxtIVA.Text = DbRowVenta("IVA").ToString.FormatoNumero(2) - TxtRetIVA.Text = DbRowVenta("RetIVA").ToString.FormatoNumero(2) + TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2) + TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) If TxtRetIVA.Text.ToDecimal() > 0 Then TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True @@ -3946,53 +3947,53 @@ Partial Class Ventas End If End If - TxtRetISR.Text = DbRowVenta("RetISR").ToString.FormatoNumero(2) - TxtIEPS.Text = DbRowVenta("IEPS").ToString.FormatoNumero(2) + TxtRetISR.Text = DbRowVenta("RetISR").ToString().FormatoNumero(2) + TxtIEPS.Text = DbRowVenta("IEPS").ToString().FormatoNumero(2) TrIEPS.Visible = TxtIEPS.Text.ToDouble > 0 - TxtTotal.Text = DbRowVenta("Total").ToString.FormatoNumero(2) - HdnTotalVenta.Value = DbRowVenta("Total").ToString.FormatoNumero(2) - TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString - TxtObsFact.Text = DbRowVenta("Observaciones").ToString - LblUsuario.Text = DbRowVenta("Nombre").ToString - LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString.ToDate.ToShortDateString - LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString - LblMail.Text = DbRowVenta("EnvioMail").ToString - TxtFechaPago.Text = DbRowVenta("FechaVencimiento").ToString + TxtTotal.Text = DbRowVenta("Total").ToString().FormatoNumero(2) + HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2) + TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString() + TxtObsFact.Text = DbRowVenta("Observaciones").ToString() + LblUsuario.Text = DbRowVenta("Nombre").ToString() + LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString + LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString() + LblMail.Text = DbRowVenta("EnvioMail").ToString() + TxtFechaPago.Text = DbRowVenta("FechaVencimiento").ToString() TxtFechaVencimientoCotizacion.Text = Vigencia - TxtDet_OrdenCompra.Text = DbRowVenta("Det_OrdenCompra").ToString - TxtDet_FechaOrdenCompra.Text = DbRowVenta("Det_FechaOrdenCompra").ToString + TxtDet_OrdenCompra.Text = DbRowVenta("Det_OrdenCompra").ToString() + TxtDet_FechaOrdenCompra.Text = DbRowVenta("Det_FechaOrdenCompra").ToString() HdnIVAOriginal.Value = TxtIVA.Text - TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString + TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString() TxtPedidoContrato.Enabled = False - TxtKilometraje.Text = DbRowVenta("Kilometraje").ToString + TxtKilometraje.Text = DbRowVenta("Kilometraje").ToString() - HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString + HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString() HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2) - 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString - 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString = "True" + 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString() + 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString() = "True" DdlTipoAmortizacionAnticipo.SelectedValueExist(DbRowVenta("CveTipoAmortizacionAnticipo")) DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion")) - 'HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString + 'HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString() 'HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2) - 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString - 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString = "True" + 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString() + 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString() = "True" - If DbRowVenta("CveTipoRelacion").ToString.ToEntero > 0 Then + If DbRowVenta("CveTipoRelacion").ToString().ToEntero() > 0 Then TrTipoRelacion2.Visible = True - LblTipoRelacion.Text = DbRowVenta("TipoRelacion").ToString - HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString + LblTipoRelacion.Text = DbRowVenta("TipoRelacion").ToString() + HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString() End If - TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString + TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString() TxtOrdenCompra.Enabled = False - TxtObsAlmacen.Text = DbRowVenta("ObservacionesAlmacen").ToString - CvePAC = DbRowVenta("CvePAC").ToString.ToEntero + TxtObsAlmacen.Text = DbRowVenta("ObservacionesAlmacen").ToString() + CvePAC = DbRowVenta("CvePAC").ToString().ToEntero() - If DbRowVenta("Saldo").ToString.ToDecimal > 0 AndAlso UsuarioActual.TienePermisoProceso(204) AndAlso Not UsuarioActual.CveEmpresa.Contiene(119) Then + If DbRowVenta("Saldo").ToString().ToDecimal > 0 AndAlso UsuarioActual.TienePermisoProceso(204) AndAlso Not UsuarioActual.CveEmpresa.Contiene(119) Then TxtFechaSaldarVenta.Text = TxtFecha.Text CEFechaSaldarVenta.StartDate = TxtFecha.Text.ToDate HLSaldarVenta.Visible = True @@ -4004,9 +4005,9 @@ Partial Class Ventas End If 'Envio Direccion - If DbRowVenta("CveDireccionEnvio").ToString.ToEntero > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString IsNot Nothing Then + If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then ChkDireccionEnvio.Checked = True - DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString.ToEntero) + DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString().ToEntero()) DdlDireccionEnvio.Enabled = False ChkDireccionEnvio.Enabled = False DdlDireccionEnvio.Visible = True @@ -4015,24 +4016,24 @@ Partial Class Ventas 'ESTATUS FACTURA If Not (CveRemision > 0 Or CveCotizacion > 0) Then - CveEstatus = DbRowVenta("CveEstatusFactura").ToString.ToEntero + CveEstatus = DbRowVenta("CveEstatusFactura").ToString().ToEntero() End If - TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString - If DbRowVenta("UltimasFluctuaciones").ToString <> "" Then - LblTCValuacion.Text = String.Format("Ult. Val:{0}", DbRowVenta("UltimasFluctuaciones").ToString) + TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString() + If DbRowVenta("UltimasFluctuaciones").ToString() <> "" Then + LblTCValuacion.Text = String.Format("Ult. Val:{0}", DbRowVenta("UltimasFluctuaciones").ToString()) LblTCValuacion.Visible = True End If - ViewState("SelloCancelacion") = DbRowVenta("SelloCancelacion").ToString - ViewState("FechaCancelacion") = DbRowVenta("FechaCancelacion").ToString.ToDateTime - TxtAtencionA.Text = DbRowVenta("AtencionA").ToString - TxtTelefonoGenerico.Text = DbRowVenta("TelefonoGenerico").ToString - CveVentaPadre = DbRowVenta("CveVentaPadre").ToString.ToEntero - SerieFolioPadre = DbRowVenta("SerieFolioPadre").ToString + ViewState("SelloCancelacion") = DbRowVenta("SelloCancelacion").ToString() + ViewState("FechaCancelacion") = DbRowVenta("FechaCancelacion").ToString().ToDateTime + TxtAtencionA.Text = DbRowVenta("AtencionA").ToString() + TxtTelefonoGenerico.Text = DbRowVenta("TelefonoGenerico").ToString() + CveVentaPadre = DbRowVenta("CveVentaPadre").ToString().ToEntero() + SerieFolioPadre = DbRowVenta("SerieFolioPadre").ToString() - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If @@ -4048,40 +4049,40 @@ Partial Class Ventas End If - TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy") - 'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString) - 'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString) - DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString) - 'DdlSucursal.SelectedValueExist(DbRowVenta("CveSucursal").ToString) - 'DdlSubProyectoDatos.SelectedValueExist(DbRowVenta("CveSubProyecto").ToString) + TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy") + 'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString()) + 'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString()) + DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString()) + 'DdlSucursal.SelectedValueExist(DbRowVenta("CveSucursal").ToString()) + 'DdlSubProyectoDatos.SelectedValueExist(DbRowVenta("CveSubProyecto").ToString()) If DdlSubProyectoDatos.Items.Count = 0 Then DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If - DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString) + DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString(), DbRowVenta("SubProyecto").ToString()) CargarAlmacenes() If DdlSubProyectoCobranza.Items.Count = 0 Then DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1")) End If - DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString, GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoCobranza").ToString.ToEntero).FiltroPrimeroValor("SubProyecto").ToString) + DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoCobranza").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString()) If DdlSubProyectoEjecucion.Items.Count = 0 Then DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Seleccione", "-1")) End If - DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString, GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoEjecucion").ToString.ToEntero).FiltroPrimeroValor("SubProyecto").ToString) + DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoEjecucion").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString()) - CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString.ToEntero) + CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString().ToEntero()) - If DbRowVenta("CveContrato").ToString.ToEntero > 0 Then - CveContrato = DbRowVenta("CveContrato").ToString.ToEntero - NumeroContrato = DbRowVenta("NumeroContrato").ToString - DescripcionContrato = DbRowVenta("DescripcionContrato").ToString + If DbRowVenta("CveContrato").ToString().ToEntero() > 0 Then + CveContrato = DbRowVenta("CveContrato").ToString().ToEntero() + NumeroContrato = DbRowVenta("NumeroContrato").ToString() + DescripcionContrato = DbRowVenta("DescripcionContrato").ToString() DdlContrato.Visible = False HLContrato.Text = $"{DbRowVenta("NumeroContrato")} - {DbRowVenta("DescripcionContrato")}" HLContrato.NavigateUrl = $"/Contratos/Contrato.aspx?CveContrato={CveContrato}" 'trPresupuesto.Visible = True - 'HplPresupuesto.NavigateUrl = String.Format(" / Presupuestos / Presupuesto.aspx?CvePresupuesto={0}", DbRowVenta("CveContrato").ToString) + 'HplPresupuesto.NavigateUrl = String.Format(" / Presupuestos / Presupuesto.aspx?CvePresupuesto={0}", DbRowVenta("CveContrato").ToString()) Else NumeroContrato = "" DescripcionContrato = "" @@ -4089,34 +4090,34 @@ Partial Class Ventas 'DdlEstatus.Items.Remove(DdlEstatus.Items.FindByText("Cotización")) - If DbRowVenta("SeTimbro").ToString <> "No" Then + If DbRowVenta("SeTimbro").ToString() <> "No" Then HplDownXML.Visible = True 'If HLImprimir.Visible = False Then HplDownPDF.Visible = True 'End If ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" OrElse DdlTipoComprobante.SelectedValue = "Cot" Then - 'If drv("TipoEstatus").ToString.ToEntero = 2 AndAlso drv("TipoDocto").ToString = "Cot" Then + 'If drv("TipoEstatus").ToString().ToEntero() = 2 AndAlso drv("TipoDocto").ToString() = "Cot" Then ' ImgDownPDF.Visible = True 'Else HplDownPDF.Visible = False 'End If - ElseIf UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso DbRowVenta("SeTimbro").ToString = "No" AndAlso DbRowVenta("CveEstatusFactura").ToString = "2" AndAlso DbRowVenta("TipoDocto").ToString.Contiene("Ing", "Egs", "Dev", "Ant") Then + ElseIf UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso DbRowVenta("SeTimbro").ToString() = "No" AndAlso DbRowVenta("CveEstatusFactura").ToString() = "2" AndAlso DbRowVenta("TipoDocto").ToString().Contiene("Ing", "Egs", "Dev", "Ant") Then TrEmitir.Visible = True If TxtFecha.Text.ToDate < Now.AddDays(-3) Then TxtFecha.Enabled = True End If End If - If DbRowVenta("SeTimbro").ToString = "Si" Then + If DbRowVenta("SeTimbro").ToString() = "Si" Then TrEmitir.Visible = False End If 'CargaAcuseCancelacion - If DbRowVenta("CveEstatusFactura").ToString = "5" Then + If DbRowVenta("CveEstatusFactura").ToString() = "5" Then ImgDownCancelacion.Visible = True ImgDownCancelacion.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CAN&CVEVTA={0}", CveVenta))) End If - IdPoliza = DbRowVenta("IdPoliza").ToString.ToEntero + IdPoliza = DbRowVenta("IdPoliza").ToString().ToEntero() 'Carga si es Contabilizada If IdPoliza > 0 Then @@ -4135,14 +4136,14 @@ Partial Class Ventas End If End If - If DbRowVenta("IdPolizaCancelacion").ToString.ToEntero > 0 Then + If DbRowVenta("IdPolizaCancelacion").ToString().ToEntero() > 0 Then HPLContaCancelacion.Text = "Cancelación" HPLContaCancelacion.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", DbRowVenta("IdPolizaCancelacion")) trContabilizada.Visible = True End If - If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString.ToEntero = 0 Then + If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString().ToEntero() = 0 Then BtnGenerarOS.Visible = True BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta) ' BtnGenerarOS.OnClientClick = String.Format("/OS/OrdenesServicios.aspx?CveVenta={0}", CveVenta) @@ -4150,7 +4151,7 @@ Partial Class Ventas '[IPP] COMENTADO 12/MARZO/2018 -SABRA QUE SE QUERIA ESCONDER - 'If DbRowVenta("TipoDocto").ToString = "Rem" Then + 'If DbRowVenta("TipoDocto").ToString() = "Rem" Then ' GvPS.Columns(11).Visible = False ' GvPS.Columns(12).Visible = False 'End If @@ -4184,7 +4185,7 @@ Partial Class Ventas End If End If - DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString + DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString() DdlTipoComprobante.Enabled = False 'TxtDocto.Enabled = False @@ -4304,8 +4305,8 @@ Partial Class Ventas GvNC.DataBind() InicializaDTVentasNC() For Each Dr As DataRow In ObjVentas.DtResultados.Rows - If Dr("CveConceptoContable").ToString.ToEntero = 91 Then - CargaNCDT(Dr("CveVenta").ToString.ToEntero, Dr("Importe").ToString.ToDecimal, Dr("FolioFiscal").ToString, TC:=Dr("TipoCambio").ToString.ToDecimal) + If Dr("CveConceptoContable").ToString().ToEntero() = 91 Then + CargaNCDT(Dr("CveVenta").ToString().ToEntero(), Dr("Importe").ToString().ToDecimal, Dr("FolioFiscal").ToString(), TC:=Dr("TipoCambio").ToString().ToDecimal) End If Next End If @@ -4342,7 +4343,7 @@ Partial Class Ventas tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot") tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot") - If DbRowVenta("TipoDocto").ToString = "Rem" Then + If DbRowVenta("TipoDocto").ToString() = "Rem" Then 'CANTIDAD FACTURADA If TmpDT.SUM("CantidadFacturadaRem") > 0 Then GvPS.Columns(6).Visible = True @@ -4365,7 +4366,7 @@ Partial Class Ventas BtnsFacturar.Visible = True 'ACTIVA CONVERSION DE MONEDA - If DdlMoneda.SelectedValue.ToEntero = 1 Then + If DdlMoneda.SelectedValue.ToEntero() = 1 Then TrConversionDolares.Visible = True ChkConvertirDolares.Enabled = True TxtTipoCambioDlls.Enabled = True @@ -4379,7 +4380,7 @@ Partial Class Ventas 'Si es Empresa de Acumuladores If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Si ya se surtió y recibió - If (DbRowVenta("SaldoAlmacen").ToString.ToDecimal > 0 And (DtUsados Is Nothing Or DtUsados.Rows.Count = 0)) OrElse (TmpDT.MAX("CveTipoPS") = "1") Then + If (DbRowVenta("SaldoAlmacen").ToString().ToDecimal > 0 And (DtUsados Is Nothing Or DtUsados.Rows.Count = 0)) OrElse (TmpDT.MAX("CveTipoPS") = "1") Then BtnsFacturar.Visible = True Else BtnsFacturar.Visible = False @@ -4388,7 +4389,7 @@ Partial Class Ventas End If - If DbRowVenta("TipoDocto").ToString.Contiene("Cot", "Pd2") Then + If DbRowVenta("TipoDocto").ToString().Contiene("Cot", "Pd2") Then 'CANTIDAD FACTURADA If TmpDT.SUM("CantidadFacturadaCot") > 0 Then GvPS.Columns(7).Visible = True @@ -4402,7 +4403,7 @@ Partial Class Ventas 'ACTIVA EDITAR 'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA - If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString.ToEntero Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") + If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") BtnPermisoEditarCotizacion.Visible = True End If @@ -4437,7 +4438,7 @@ Partial Class Ventas End If End If - DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString) + DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString()) CargaPS(-1, DdlPS) @@ -4472,37 +4473,37 @@ Partial Class Ventas Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) 'CargaCliente - Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero + Dim CveCliente As Integer = drv("CveCliente").ToString().ToEntero() - HdnCveCliente.Value = CveCliente.ToString + HdnCveCliente.Value = CveCliente.ToString() ViewState("CveCliente") = CveCliente CargaCliente(CveCliente) 'Carga Detalle Sucursal - TxtFechaEjecucion.Text = drv("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy") - TxtFechaPago.Text = drv("FechaVencimiento").ToString.ToDateTime.ToString("dd/MM/yyyy") - 'DdlSucursalEjecucion.SelectedValueExist(drv("CveSucursalEjecucion").ToString) - 'DdlSucursalCobranza.SelectedValueExist(drv("CveSucursalCobranza").ToString) - DdlSucursalCliente.SelectedValueExist(drv("CveClienteSucursal").ToString) - 'DdlSucursal.SelectedValueExist(drv("CveSucursal").ToString) - DdlSubProyectoDatos.SelectedValueExist(drv("CveSubProyecto").ToString) - DdlSubProyectoEjecucion.SelectedValueExist(drv("CveSubProyectoEjecucion").ToString) - DdlSubProyectoCobranza.SelectedValueExist(drv("CveSubProyectoCobranza").ToString) + TxtFechaEjecucion.Text = drv("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy") + TxtFechaPago.Text = drv("FechaVencimiento").ToString().ToDateTime.ToString("dd/MM/yyyy") + 'DdlSucursalEjecucion.SelectedValueExist(drv("CveSucursalEjecucion").ToString()) + 'DdlSucursalCobranza.SelectedValueExist(drv("CveSucursalCobranza").ToString()) + DdlSucursalCliente.SelectedValueExist(drv("CveClienteSucursal").ToString()) + 'DdlSucursal.SelectedValueExist(drv("CveSucursal").ToString()) + DdlSubProyectoDatos.SelectedValueExist(drv("CveSubProyecto").ToString()) + DdlSubProyectoEjecucion.SelectedValueExist(drv("CveSubProyectoEjecucion").ToString()) + DdlSubProyectoCobranza.SelectedValueExist(drv("CveSubProyectoCobranza").ToString()) If CveDevolucion > 0 Then CambiaSucursalGeneral() End If - CargaClienteSucursal(drv("CveClienteSucursal").ToString.ToEntero) + CargaClienteSucursal(drv("CveClienteSucursal").ToString().ToEntero()) 'CargaDetalle If ObjVentas.GetVentaDetalle(CveVenta) Then For Each dr As DataRow In ObjVentas.DtResultados.Rows - AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, dr("CveClasificacion").ToString.ToEntero, dr("Clasificacion").ToString, - dr("CvePS").ToString.ToEntero, dr("PS").ToString, dr("Obs").ToString, dr("PU").ToString.ToDecimal, dr("Descuento").ToString.ToDecimal, - dr("CveProyecto").ToString.ToEntero, dr("Proyecto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString, - CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString.ToEntero, RegeneraIEPS:=False, SeActualiza:=True) + AgregarProductoServicio(dr("Cantidad").ToString().ToDecimal, dr("CveUM").ToString().ToEntero(), dr("UM").ToString(), dr("CveClasificacion").ToString().ToEntero(), dr("Clasificacion").ToString(), + dr("CvePS").ToString().ToEntero(), dr("PS").ToString(), dr("Obs").ToString(), dr("PU").ToString().ToDecimal, dr("Descuento").ToString().ToDecimal, + dr("CveProyecto").ToString().ToEntero(), dr("Proyecto").ToString(), dr("CveSubProyecto").ToString().ToEntero(), dr("SubProyecto").ToString(), + CveContratoDetalle:=dr("CveContratoDetalle").ToString().ToEntero(), CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString().ToEntero(), RegeneraIEPS:=False, SeActualiza:=True) Next @@ -4529,48 +4530,48 @@ Partial Class Ventas End If 'Carga Totales - ViewState("TipoDoctoDevolucion") = drv("TipoDocto").ToString - TxtSubTotal.Text = drv("SubTotal").ToString.FormatoNumero(2) - LblDescuentos.Text = drv("Descuento").ToString.FormatoNumero(2) - LblAmortizacion.Text = drv("Amortizacion").ToString.FormatoNumero(2) + ViewState("TipoDoctoDevolucion") = drv("TipoDocto").ToString() + TxtSubTotal.Text = drv("SubTotal").ToString().FormatoNumero(2) + LblDescuentos.Text = drv("Descuento").ToString().FormatoNumero(2) + LblAmortizacion.Text = drv("Amortizacion").ToString().FormatoNumero(2) TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) - TxtIVA.Text = drv("IVA").ToString.FormatoNumero(2) - TxtRetIVA.Text = drv("RetIVA").ToString.FormatoNumero(2) + TxtIVA.Text = drv("IVA").ToString().FormatoNumero(2) + TxtRetIVA.Text = drv("RetIVA").ToString().FormatoNumero(2) If TxtRetIVA.Text.ToDecimal() > 0 Then TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True End If - TxtRetISR.Text = drv("RetISR").ToString.FormatoNumero(2) - TxtTotal.Text = drv("Total").ToString.FormatoNumero(2) - TotalOriginal = Math.Round(drv("Total").ToString.ToDouble, 2) - HdnVentaSaldo.Value = drv("Total").ToString - TxtMotivoDescuento.Text = drv("MotivoDescuento").ToString - TxtObsFact.Text = drv("Observaciones").ToString - DdlMoneda.SelectedValue = drv("CveMoneda").ToString + TxtRetISR.Text = drv("RetISR").ToString().FormatoNumero(2) + TxtTotal.Text = drv("Total").ToString().FormatoNumero(2) + TotalOriginal = Math.Round(drv("Total").ToString().ToDouble, 2) + HdnVentaSaldo.Value = drv("Total").ToString() + TxtMotivoDescuento.Text = drv("MotivoDescuento").ToString() + TxtObsFact.Text = drv("Observaciones").ToString() + DdlMoneda.SelectedValue = drv("CveMoneda").ToString() CambiaMoneda() - TxtTipoCambio.Text = drv("TipoCambio").ToString - DdlVendedor.SelectedValue = drv("CveVendedor").ToString - CvePAC = drv("CvePAC").ToString.ToEntero + TxtTipoCambio.Text = drv("TipoCambio").ToString() + DdlVendedor.SelectedValue = drv("CveVendedor").ToString() + CvePAC = drv("CvePAC").ToString().ToEntero() - DdlUsoCFDI.SelectedValueExist(drv("CveUsoCFDI").ToString) - DdlMetodoPago33.SelectedValueExist(drv("CveMetodoPago33").ToString) - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) - DdlFormaPago33.SelectedValueExist(drv("CveFormaPago33").ToString) + DdlUsoCFDI.SelectedValueExist(drv("CveUsoCFDI").ToString()) + DdlMetodoPago33.SelectedValueExist(drv("CveMetodoPago33").ToString()) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) + DdlFormaPago33.SelectedValueExist(drv("CveFormaPago33").ToString()) - DdlTipoComprobante.SelectedValueExist(drv("TipoDocto").ToString) + DdlTipoComprobante.SelectedValueExist(drv("TipoDocto").ToString()) DdlTipoComprobante.Enabled = False HdnIVAOriginal.Value = TxtIVA.Text - HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString + HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString() HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2) 'JJMQ 20160506: Se agrego para la validacion de pago de contado. 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "") - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If - CveContrato = drv("CveContrato").ToString.ToEntero + CveContrato = drv("CveContrato").ToString().ToEntero() TabAlmacen.Enabled = False TabDetalleVentas.Enabled = False TabComplementos.Enabled = False @@ -4581,7 +4582,7 @@ Partial Class Ventas UpContado.Update() If CveDevolucion > 0 Then - HdnFolioFiscalNC.Value = drv("FolioFiscal").ToString + HdnFolioFiscalNC.Value = drv("FolioFiscal").ToString() 'CALCULA IMPUESTOS LOCALES CON LOS DATOS DEL CLIENTE AL MOMENTO DE LA NUEVA FACTURA NO LA VIEJA 'CalculaTotalesImpuestosLocales() 'CalculaTotales(CBool(ViewState("RetIVAFletes"))) @@ -4603,7 +4604,7 @@ Partial Class Ventas ' Dim ObjVenta As New ClsVentas If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - TxtFechaPago.Text = ObjVentas.DtResultados(0)("FechaVencimiento").ToString.ToDate.ToShortDateString + TxtFechaPago.Text = ObjVentas.DtResultados(0)("FechaVencimiento").ToString().ToDate.ToShortDateString End If End If 'ObjVenta.Dispose() @@ -4633,7 +4634,7 @@ Partial Class Ventas DdlMetodoPago33.DataBind() DdlMetodoPago33.SelectedValue = "3" - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) 'End If @@ -4705,9 +4706,9 @@ Partial Class Ventas 'Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}") 'si hay un proyecto relacionado con el subproyecto - If dr IsNot Nothing AndAlso dr("CveSubProyecto").ToString.ToEntero > 0 Then + If dr IsNot Nothing AndAlso dr("CveSubProyecto").ToString().ToEntero() > 0 Then DdlProyecto.SelectedValueExist(dr("CveProyecto")) - Retorno = dr("CveSubProyecto").ToString.ToEntero + Retorno = dr("CveSubProyecto").ToString().ToEntero() End If Return Retorno @@ -4720,14 +4721,14 @@ Partial Class Ventas Else Dim DTAlmacen As DataTable ddlAlmacen.Items.Clear() - DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}") + DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") ddlAlmacen.DataSource = DTAlmacen If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) ddlAlmacen.SelectedValue = "-1" End If ddlAlmacen.DataBind() - If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then + If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) End If End If @@ -4735,19 +4736,19 @@ Partial Class Ventas 'SI TIENE CONTRATO NO SE MUEVE If Not CveContrato > 0 Then DdlAlmacenAsignado.Items.Clear() - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero} AND CveTipoAlmacen IN (4,10)") + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (4,10)") DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacenAsignado.SelectedValue = "-1" DdlAlmacenAsignado.DataBind() - DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").ToString.ToEntero) + DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToString().ToEntero()) End If If CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}") + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacenAsignado.SelectedValue = "-1" DdlAlmacenAsignado.DataBind() - DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero) + DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()) End If UpINV.Update() @@ -4755,7 +4756,7 @@ Partial Class Ventas Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1) DdlSubProyecto.Items.Clear() DdlSubProyecto.SelectedValue = Nothing - If DdlProyecto.SelectedValue.ToEntero > 0 Then + If DdlProyecto.SelectedValue.ToEntero() > 0 Then DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) End If @@ -4782,9 +4783,9 @@ Partial Class Ventas UpCliente.Visible = True UpEmpresaCRM.Visible = False Else - LblEmpresaCRM.Text = ObjCRM.DtResultados.Rows(0)("Empresa").ToString - LblRFCCRM.Text = ObjCRM.DtResultados.Rows(0)("RFC").ToString - LblMedioCaptacionCRM.Text = ObjCRM.DtResultados.Rows(0)("MedioCaptacion").ToString + LblEmpresaCRM.Text = ObjCRM.DtResultados.Rows(0)("Empresa").ToString() + LblRFCCRM.Text = ObjCRM.DtResultados.Rows(0)("RFC").ToString() + LblMedioCaptacionCRM.Text = ObjCRM.DtResultados.Rows(0)("MedioCaptacion").ToString() ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = False LblEnviarMail.Visible = False @@ -4794,7 +4795,7 @@ Partial Class Ventas UpEmpresaCRM.Visible = True End If - DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString) + DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString()) DdlVendedor.Enabled = False LbAgregar.Enabled = True End If @@ -4812,7 +4813,7 @@ Partial Class Ventas If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then TxtCodigo.Text = ObjCliente.Codigo - DdlFormaEntrega.SelectedValueExist(ObjCliente.DtResultados(0)("CveCondicionEntrega").ToString) + DdlFormaEntrega.SelectedValueExist(ObjCliente.DtResultados(0)("CveCondicionEntrega").ToString()) LblCliente.Text = String.Format("{1}", CveCliente, ObjCliente.Nombre) ViewState("NombreCliente") = ObjCliente.Nombre LtlCliente.Text = ObjCliente.Nombre @@ -4822,7 +4823,7 @@ Partial Class Ventas LnkAgregarCliente.Visible = False - ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString) + ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString()) If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia) @@ -4848,8 +4849,8 @@ Partial Class Ventas LblCP.Text = ObjCliente.CP LblRFC.Text = ObjCliente.RFC LblTelefono.Text = ObjCliente.Telefono - LblRetIVA.Text = ObjCliente.RetIVA.ToString.FormatoNumero(5) - LblRetISR.Text = ObjCliente.RetISR.ToString.FormatoNumero(5) + LblRetIVA.Text = ObjCliente.RetIVA.ToString().FormatoNumero(5) + LblRetISR.Text = ObjCliente.RetISR.ToString().FormatoNumero(5) If UsuarioActual.Empresa.MostrarRetISR AndAlso ObjCliente.RetISR > 0 Then ' TrRetISR.Style.Add("display", "none") TrRetISR.Visible = True @@ -4860,7 +4861,7 @@ Partial Class Ventas ViewState("ClienteRetISR") = ObjCliente.RetISR / 100 If CveVenta <= 0 Then - DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) + DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString()) DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty) ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes @@ -5025,17 +5026,17 @@ Partial Class Ventas 'SELECIONAMOS VENDEDOR - SI ESTA EN MODO EDICIÓN SE QUEDA EL VENDEDOR ORIGINAL If Not ModalidadEdicion Then - If ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero > 0 Then - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero) + If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()) End If 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO - If Not DdlVendedor.SelectedValue.ToEntero > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString) + If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) End If End If - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If @@ -5210,10 +5211,10 @@ Partial Class Ventas 'RegistraScript("$('#DivDocsCliente').modal({ backdrop: 'static', keyboard: false });", "ModalArchivos") Dim Count = 0 For Each GvRow As GridViewRow In GvDocumentosCliente.Rows - If GvRow.DataKey("Orden").ToEntero = 1 Then + If GvRow.DataKey("Orden").ToEntero() = 1 Then IndexDocumentoCliente = Count - Documentacion = GvRow.DataKey("Documentacion").ToString - AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString + Documentacion = GvRow.DataKey("Documentacion").ToString() + AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString() Exit For End If Count = +1 @@ -5246,7 +5247,7 @@ Partial Class Ventas DdlTipoComprobante.SelectedValue = "PA" TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString 'si llegó por la opción de cotización no debe de restringuir - If IfNull(Request("Op"), "").ToString = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" + If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) @@ -5258,7 +5259,7 @@ Partial Class Ventas RBLPago.SelectedValue = "1" RBLPago_SelectedIndexChanged(Nothing, Nothing) UPCondicionesPago.Update() - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero) + Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then TrCreditoDisponible.Visible = True @@ -5283,7 +5284,7 @@ Partial Class Ventas DdlTipoComprobante.SelectedValue = "PA" TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString 'si llegó por la opción de cotización no debe de restringuir - If IfNull(Request("Op"), "").ToString = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" + If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" 'quito remisión y factura DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) @@ -5338,7 +5339,7 @@ Partial Class Ventas DdlTipoComprobante.SelectedValue = "PA" TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString 'si llegó por la opción de cotización no debe de restringuir - If IfNull(Request("Op"), "").ToString = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" + If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) @@ -5350,18 +5351,18 @@ Partial Class Ventas End If End If UPPCreditoDisponible.Update() - ElseIf UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString.ToEntero > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero) + ElseIf UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then + Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then Dim Vta As New ClsVentas Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:
-
@@ -703,7 +738,8 @@
$(document).ready(function () {
setTimeout("autoGuardado()", 60000);
});
-
+
+ loaderinited = loaderinit;
//$('#btnAutoGuardado').click(function () {
function autoGuardado() {
@@ -787,7 +823,7 @@
}
}, 500);
}
-
+
function TxtUsuarioB_Onchange() {
let obj = $('.TxtUsuarioB');
let text = '';
@@ -805,7 +841,7 @@
function chkAll_OncLick(valor) {
$('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", valor);
}
-
+
function chkAllB_OncLick(valor) {
$('.GVUsuariosB tr:visible input[type="checkbox"]').prop("checked", valor);
}
@@ -824,14 +860,14 @@
//e.Row.Attributes.Add("data-rol", CveRol);
//e.Row.Attributes.Add("data-sucursal", CveRol);
}
- function showhideUserB() {
+ function showhideUserB() {
let strusuario = usuariotextB.length > 0 ? ':contains("' + usuariotextB + '")' : '';// td:nth-child(2)
$('.GVUsuariosB tr.items').attr('hide', '1')//oculto todos
if (strusuario.length > 0) {
$('.GVUsuariosB tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro con usuario,sucursal y rol
} else {
- $('.GVUsuariosB tr.items' ).attr('hide', '');//muestro los que tienen filtro con sucursal y rol
+ $('.GVUsuariosB tr.items').attr('hide', '');//muestro los que tienen filtro con sucursal y rol
}
//e.Row.Attributes.Add("data-rol", CveRol);
@@ -909,9 +945,11 @@
//Div[0].appendChild(boton)
});
-
-
}
+ function OnAddedTareaNueva() {
+ $('.btnreloadTareas').click();
+ }
+
function SetEditor() {
}
function GetContents() {
@@ -922,14 +960,69 @@
// https://ckeditor.com/docs/ckeditor4/latest/api/CKEDITOR_editor.html#method-getData
alert(editor.getData());
}
+ function AgendarSiguienteReunion() {
+ $('.LnkTerminarMinuta').confirmation({
+ title: '¿Agendar Siguiente Reunión?',
+ btnOkClass: 'btn btn-sm btn-danger',
+ btnOkLabel: 'No',
+ btnOkIcon: '',
+ btnCancelClass: 'btn btn-sm btn-default',
+ btnCancelLabel: 'Si',
+ btnCancelIcon: 'glyphicon glyphicon-ok',
+ onCancel: function (event, element) { /*Alert('se agendo la siguiente reunion;');*/ $('#idDivAgendarMinuta').modal(); return false; /*event.preventDefault();*/ },
+ });
+ $('.LnkTerminarMinuta').removeClass('LnkTerminarMinuta');
+ //data-toggle="confirmation" data-popout="true" data-original-title="¿Agendar Siguiente Reunión?" data-btn-ok-label="No"
+ //data-btn-cancel-label="si" data-on-cancel="debugger;event.preventDefault();Alert('se agendo la siguiente reunion;')"
+ }
+ //function CargaPickers() {
+ // $.datetimepicker.setLocale('es');
+ // $('input.ADDateTimePicker').each(function () {
+ // var TThis = $(this);
+ // TThis.datetimepicker({
+ // dayOfWeekStart: 1,
+ // lang: 'es',
+ // format: 'd/m/Y H:i',
+ // formatDate: 'd/m/Y H:i',
+ // step: 30
+ // });
+ // var Div = TThis.parent()
+ // var boton = document.createElement('span');
+ // boton.className = "input-group-btn"
+
+ // var subboton = document.createElement('a')
+ // subboton.className = "btn default btnCalendar"
+ // subboton.innerHTML = ""
+ // subboton.addEventListener('click', function () {
+ // TThis.datetimepicker('show')
+ // });
+ // boton.appendChild(subboton)
+
+ // var agregar = true;
+ // for (var i = 0; i < Div[0].children.length; i++) {
+ // if (Div[0].children[i].isEqualNode(boton)) {
+ // agregar = false;
+ // }
+ // }
+ // if (agregar) {
+ // Div[0].appendChild(boton);
+ // }
+ // //Div[0].appendChild(boton)
+
+ // });
+
+
+ //}
function ADSReady() {
- SetEditor();
CargaPickers();
+ SetEditor();
+ //CargaPickers();
loadeventos();
showhideUser();
setchecklist();
+ AgendarSiguienteReunion();
}
diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs
index edcce172c..8630d0ac0 100644
--- a/OI/MinutaDetalle.aspx.cs
+++ b/OI/MinutaDetalle.aspx.cs
@@ -54,7 +54,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
LnkGuardar.Visible = false;
using (ClsOIEventos oieve = new ClsOIEventos())
{
- oieve.UpUsuarioseventosVisto(RCveEvento, UsuarioActual.CveUsuario);
+ oieve.UpUsuarioseventosVisto(RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
}
LoadMinuata();
}
@@ -98,6 +98,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
LnkEnviarMinuta.Visible = false;
TxtAsunto.Enabled = false;
TxtDescripcion.Enabled = false;
+ TxtCorreoExterno.Enabled = false;
+ tareanueva.CveEventoPadre = RCveEvento;
//LnkUpFileVisible = true;
//LnkUpUsuariosVisible = true;
System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0];
@@ -106,25 +108,18 @@ public partial class OI_MinutaDetalle : ClsPaginas
Avance = drow["Avance"].ToString().ToDecimal();
TxtAsunto.Text = drow["Asunto"].ToString();
+ TxtCorreoExterno.Text = drow["CorreoExterno"].ToString();
TxtDescripcion.Text = drow["Descripcion"].ToString();
TxtAcuerdos.Text = drow["Acuerdos"].ToString().Replace("<", "< ");
- //txtFechaI.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaInicio"]);
- //txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]);
- //DdlTema.SelectedValueExist(drow["CveRevision"].ToString());
- //DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString());
- //DDlEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString());
HypArchivo.Text = string.Format("{0}
", drow["Archivo"].ToString()); HypArchivo.NavigateUrl = string.Format("~/OI/TareaDetalle.aspx?Archivo={0}&filename={1}", ModExtensiones.Encripta(string.Format("OIFiles\\{0}\\{1}", Folio, drow["Archivo"])), ModExtensiones.Encripta(drow["Archivo"].ToString())); TxtArchivo.Visible = (drow["Archivo"].ToString().Length == 0); portletArchivo.Visible = !TxtArchivo.Visible; - //LnkUpFile.Text = (portletArchivo.Visible ? " Actualizar archivo" : " Agregar archivo"); - //Literal3.Text = portletArchivo.Visible ? "Actualizar archivo" : "Agregar archivo"; - //BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar"; int CveUsuarioIng = drow["CveUsuarioIng"].ToString().ToEntero(); CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); int CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); - if (CveEventoEstatus ==4) + if (CveEventoEstatus == 4) { LnkEnviarMinuta.Visible = true; LnkSaveAcuerdos.Visible = false; @@ -135,13 +130,6 @@ public partial class OI_MinutaDetalle : ClsPaginas } hdnCveEventoEstatus.Value = CveEventoEstatus.ToString(); hdnCveEvento.Value = RCveEvento.ToString(); - //TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]); - //TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]); - //TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy}", drow["FechaIng"]); - //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], - //OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng], - //OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance] - StringBuilder StrDeUser = new StringBuilder(); StringBuilder StrCCPara = new StringBuilder(); ltlTituloPage.Text = drow["Asunto"].ToString(); @@ -181,7 +169,7 @@ public partial class OI_MinutaDetalle : ClsPaginas { int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); CheckBox ChkOk = gvRow.FCCheckBox("ChkOk"); - if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray()))
+ if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray()))
{
ChkOk.Checked = true;
}
@@ -378,7 +366,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
using (ClsOIEventos oieve = new ClsOIEventos())
{
oieve.IniciaTransacSQL();
- Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, DateTime.Now, archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+ Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, DateTime.Now, archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCorreoExterno.Text);
CveEvento = oieve.CveEvento;
Folio = oieve.Folio;
@@ -447,13 +435,13 @@ public partial class OI_MinutaDetalle : ClsPaginas
CheckBox ChkOk = gvRow.FCCheckBox("ChkOk");
if (ChkOk.Checked)
{
- int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero();
+ int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero();
listaCCP.Add(CveUsuario);
}
}
}
int cveUsuarioPara = DdlTareaPara.SelectedValue.ToEntero();
-
+
OITipoEventos cveTipoEvento = OITipoEventos.Tarea;
string asunto = TxtTareaAsunto.Text;
string descripcion = TxtTareaDescripcion.Text;
@@ -512,12 +500,12 @@ public partial class OI_MinutaDetalle : ClsPaginas
if (cveUsuarioDe <= 0)
{
- errorMessage = "No se selecciono el miembro 'C C Para'";
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\"";
}
if (cveUsuarioPara <= 0)
{
- errorMessage = "No se selecciono el miembro 'Para'";
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\"";
}
if (errorMessage.Length == 0)
@@ -535,7 +523,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
using (ClsOIEventos objOI = new ClsOIEventos())
{
objOI.IniciaTransacSQL();
- Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento);
+ Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento);
CveEvento = objOI.CveEvento;
Folio = objOI.Folio;
if (CveEvento == 0)
@@ -636,12 +624,12 @@ public partial class OI_MinutaDetalle : ClsPaginas
if (cveUsuarioDe <= 0)
{
- errorMessage = "No se selecciono el miembro 'C C Para'";
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\"";
}
if (cveUsuarioPara <= 0)
{
- errorMessage = "No se selecciono el miembro 'Para'";
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\"";
}
if (errorMessage.Length == 0)
@@ -778,7 +766,12 @@ public partial class OI_MinutaDetalle : ClsPaginas
if (HuboError == false)
{
- Alert("La minuta se termino con exito.", ModExtensiones.TipoMensaje.MsgInformacion);
+ string script = "";
+ if (agendar)
+ {
+ script = string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEventoPadre={0}\");",RCveEvento );
+ }
+ Alert("La minuta se termino con exito.", ModExtensiones.TipoMensaje.MsgInformacion,script);
objOI.Commit();
}
else
@@ -826,7 +819,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail();
- Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString(), TxtAsunto.Text, Body.ToString(), CCP: ArrayCC);
+ Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + TxtCorreoExterno.Text, TxtAsunto.Text, Body.ToString(), CCP: ArrayCC);
Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion);
Retorno = true;
}
@@ -844,7 +837,6 @@ public partial class OI_MinutaDetalle : ClsPaginas
StringBuilder StrSB = new StringBuilder();
string DireccionURL = "";// GlobalDTParametros(SisParametros.URL).Cadena1;
- string Variables = "";
string Tarea;
string De;
@@ -1163,8 +1155,105 @@ public partial class OI_MinutaDetalle : ClsPaginas
protected void LnkSaveAcuerdos_Click(object sender, EventArgs e)
{
- using (ClsOIEventos ObjEventos =new ClsOIEventos()) {
+ using (ClsOIEventos ObjEventos = new ClsOIEventos())
+ {
ObjEventos.UpdateEventoMinuta(TxtAsunto.Text, TxtDescripcion.Text, TxtAcuerdos.Text.Replace("< ", "<"), new DateTime(1999, 1, 1), "-1", RCveEvento);
}
}
+
+ protected void btnreloadTareas_Click(object sender, EventArgs e)
+ {
+ cargarAgenda();
+ }
+ bool agendar = false;
+ protected void BtnTerminarYAgendar_Click(object sender, EventArgs e)
+ {
+
+
+
+ //string errorMessage = "";
+
+
+ //int cveUsuarioDe = UsuarioActual.CveUsuario;
+ //List listaCCP = new List();
+ ////int cveUsuarioPara = CveUsuarioPara;
+
+ //OITipoEventos cveTipoEvento = OITipoEventos.Agenda;
+ //string asunto = TxtAgendaAsunto.Text;
+ //string descripcion = string.Format("siguiente reunión Minuta \"{0}\"", TxtAsunto.Text);
+ //int prioridad = 1;
+ //int cveAgendaTipo = 4;
+ //string fechaInicio = "";
+ //string fechaFin = "1900/01/01 00:00";
+ //if (txtFechaI.Text.ToDateTimeExcat().Year <= 1999)
+ //{
+ // if (txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999)
+ // {
+ // errorMessage = "No se ingresó una fecha de inicio valida";
+
+ // }
+ // else
+ // {
+ // fechaInicio = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd HH:mm");
+ // fechaFin = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").AddHours(2).ToString("yyyy/MM/dd HH:mm");
+ // }
+ //}
+ //else
+ //{
+ // fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm");
+ // fechaFin = txtFechaI.Text.ToDateTimeExcat().AddHours(2).ToString("yyyy/MM/dd HH:mm");
+ //}
+ //int cveRevision = -1;
+ //string archivoname = "";
+
+
+
+ //int cveUsuarioIng = UsuarioActual.CveUsuario;
+ //int cveEmpresa = UsuarioActual.CveEmpresa;
+ //bool Continuar = true;
+ //int Folio = -1;
+ //int CveEvento = -1;
+
+ //if (errorMessage.Length == 0)
+ //{
+
+ // List chkList = new List();
+ // using (ClsOIEventos objOI = new ClsOIEventos())
+ // {
+ // objOI.IniciaTransacSQL();
+ // foreach (var cveUsuarioPara in LCveUsuarioCCP)
+ // {
+ // if (Continuar)
+ // {
+ // Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento, null, cveAgendaTipo);
+ // CveEvento = objOI.CveEvento;
+ // Folio = objOI.Folio;
+ // if (CveEvento == 0)
+ // {
+ // Continuar = false;
+ // }
+ // }
+ // }
+ // if (Continuar)
+ // {
+ // objOI.Commit();
+
+ // }
+ // else
+ // {
+ // objOI.RollBack();
+ // Continuar = false;
+ // }
+ // }
+ //if (Continuar && CveEvento > 0)
+ //{
+ agendar = true;
+ LnkTerminarMinuta_Click(null, null);
+ //this.Alert("Se ha agregadó la nueva agenda", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("window.open(\"/OI/TareaDetalle.aspx?CveEvento={0}\", \"_blank\");", CveEvento));
+ // }
+ //}
+ }
+
+
+
}
\ No newline at end of file
diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb
index f2f515513..7292474e9 100644
--- a/OI/PopUpAgenda.aspx.vb
+++ b/OI/PopUpAgenda.aspx.vb
@@ -785,18 +785,18 @@ Partial Class OI_PopUpAgenda
ObjEventos.Dispose()
End Sub
Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
- If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
- Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
- If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos")
- File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension)
+ If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
+ Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
+ If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos")
+ File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension)
Session("FileUpload") = ""
- If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
+ If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
Dim ObjActivosFijos As New ClsAF
If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then
'CargarArchivo()
Else
- File.Delete(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
+ File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
End If
ObjActivosFijos.Dispose()
@@ -840,8 +840,8 @@ Partial Class OI_PopUpAgenda
'End Sub
Protected Sub BtnAddObs_Click(sender As Object, e As EventArgs) Handles BtnAddObs.Click
- Dim RutaGuardar As String = String.Format("{0}Empresas\{1}\OI\", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
- Dim RutaArchivo As String = String.Format("{0}Empresas\{1}\OI\Temp\{2}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, Session("Eventos"))
+ Dim RutaGuardar As String = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+ Dim RutaArchivo As String = String.Format("{0}Empresas\{1}\OI\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("Eventos"))
Dim tCveSeguimiento As Integer
Dim Archivo As String = ""
diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs
index 035c07a72..8e861bd05 100644
--- a/OI/Proyecto.aspx.cs
+++ b/OI/Proyecto.aspx.cs
@@ -127,7 +127,7 @@ public partial class OI_Proyecto : ClsPaginas
//{
// archivoname = item.filenameO;
// ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- // rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename);
//}
diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs
index 4cb9cc150..a4680cdd7 100644
--- a/OI/RepProyectos.aspx.cs
+++ b/OI/RepProyectos.aspx.cs
@@ -99,7 +99,7 @@ public partial class OI_RepProyectos : ClsPaginas
//{
// archivoname = item.filenameO;
// ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- // rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename);
//}
diff --git a/OI/RepReuniones.aspx b/OI/RepReuniones.aspx
new file mode 100644
index 000000000..f0169055b
--- /dev/null
+++ b/OI/RepReuniones.aspx
@@ -0,0 +1,206 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepReuniones.aspx.cs" Inherits="OI_RepReuniones" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Reuniones
+
+
+
+
+
+
+
+
+
+
+
+ <%#Eval("Asunto")%>
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+ Minutas
+
+
+
+
+
+
+
+
+
+
+
+ <%#Eval("Asunto")%>
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs
new file mode 100644
index 000000000..3d96f3f8c
--- /dev/null
+++ b/OI/RepReuniones.aspx.cs
@@ -0,0 +1,144 @@
+using System;
+using System.Collections.Generic;
+using System.Data;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class OI_RepReuniones : ClsPaginas
+{
+ protected void Page_Load(object sender, EventArgs e)
+ {
+ if (!Page.IsPostBack)
+ {
+ // ORDEN ASIGNADAS
+ ViewState["Orden"] = "";
+
+ CargaFiltros();
+ CargaDatosOIMinutas();
+ CargaDatosReunion();
+ }
+
+ }
+
+
+
+
+ private void CargaFiltros()
+ {
+ TxtFechaI.Text = new DateTime(DateTime.Now.Year, DateTime.Now.Month, 1).ToShortDateString();
+ TxtFechaF.Text = DateTime.Now.ToShortDateString();
+ TxtCFechaInicio.Text = TxtFechaI.Text;
+ TxtCFechaFin.Text = TxtFechaF.Text;
+ }
+
+ public void CargaDatosReunion()
+ {
+ GVConvocatoria.DataSource = new DataTable();
+ using (ClsOIEventos ObjProspectos = new ClsOIEventos())
+ {
+ DateTime FechaI, FechaF;
+ FechaI = TxtCFechaInicio.Text.ToDate();
+ FechaF = TxtCFechaFin.Text.ToDate();
+
+ if (ObjProspectos.GetRepEventos(-1, 11, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF))
+ { GVConvocatoria.DataSource = ObjProspectos.DtResultados.FiltraParametros("","FechaInicio DESC"); }
+ }
+
+ GVConvocatoria.DataBind();
+ UpContenido.Update();
+ }
+ public void CargaDatosOIMinutas()
+ {
+ using (ClsOIEventos ObjProspectos = new ClsOIEventos())
+ {
+
+
+ DateTime FechaI, FechaF;
+ int CveEventoEstatus;
+ FechaI = TxtFechaI.Text.ToDate();
+ FechaF = TxtFechaF.Text.ToDate();
+ if (DdlEventoEstatus.SelectedValue.ToEntero() > 0)
+ CveEventoEstatus = DdlEventoEstatus.SelectedValue.ToEntero();
+ else
+ CveEventoEstatus = -1;
+
+ if (ObjProspectos.GetRepEventos(-1, 5, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF))
+ ViewState["DTOIMinutas"] = ObjProspectos.DtResultados;
+
+ }
+
+ if (ViewState["Orden"].ToString() != string.Empty) { CargaGridOIMinutas(ViewState["Orden"].ToString()); }
+ else { CargaGridOIMinutas(""); }
+
+ UpContenido.Update();
+ }
+
+ protected void GvDatosOIMinutas_RowDataBound(object sender, System.Web.UI.WebControls.GridViewRowEventArgs e)
+ {
+ if (e.Row.RowType == DataControlRowType.DataRow)
+ {
+ // e.Row.Cells(0).Width = Unit.Pixel(100) 'FechaInicio
+ // e.Row.Cells(1).Width = Unit.Pixel(200) 'Asunto
+ // e.Row.Cells(2).Width = Unit.Pixel(550) 'Descripcion
+ // e.Row.Cells(3).Width = Unit.Pixel(70) 'TareasTotal
+
+ //e.Row.FCLiteral("LtlFechaInicio").Text = string.Format("{1}", e.Row.DBCampo("CveEvento"), e.Row.DBCampo("FechaInicio").ToDateTime().ToString("dd/MM/yyyy"));
+ //e.Row.FCLiteral("LtlAsunto").Text = string.Format("{1}", e.Row.DBCampo("CveEvento"), e.Row.DBCampo("Asunto"));
+ }
+ }
+
+ //protected void LbOrden_Click(object sender, EventArgs e)
+ //{
+ // string Orden = "";
+ // string Campo = "";
+ // Literal Literal = null/* TODO Change to default(_) if this is not a reference type */;
+ // const string OrdenInicial = "";
+ // string[] Arg = new string[3];
+
+ // Arg = (LinkButton)sender.CommandArgument().ToString.Split(';');
+ // Campo = Arg[0];
+ // Literal = (Literal)(LinkButton)sender.NamingContainer.FindControl("Img" + Campo.Replace(",", "_"));
+
+ // if (ViewState(string.Format("O{0}", Campo)) != null && ViewState(string.Format("O{0}", Campo)).ToString == string.Format("{0} DESC", Campo))
+ // {
+ // ViewState(string.Format("O{0}", Campo)) = string.Format("{0} ASC", Campo);
+ // Literal.Text = string.Format("");
+ // }
+ // else
+ // {
+ // ViewState(string.Format("O{0}", Campo)) = string.Format("{0} DESC", Campo);
+ // Literal.Text = string.Format("");
+ // }
+ // Orden = OrdenInicial + ViewState(string.Format("O{0}", Campo)).ToString;
+ // ViewState("Orden") = Orden;
+ // CargaGridOIMinutas(Orden);
+ //}
+
+ private void CargaGridOIMinutas(string Orden)
+ {
+ if (Orden != string.Empty)
+ {
+ DataView DV = new DataView((DataTable)ViewState["DTOIMinutas"], "", Orden, DataViewRowState.CurrentRows);
+ GvDatosOIMinutas.DataSource = DV.ToTable();
+ DV.Dispose();
+ }
+ else { GvDatosOIMinutas.DataSource = (DataTable)ViewState["DTOIMinutas"]; }
+ GvDatosOIMinutas.DataBind();
+ }
+
+ protected void BtnConsultar_Click(object sender, EventArgs e)
+ {
+ CargaDatosOIMinutas();
+ UpContenido.Update();
+ }
+
+ protected void Button1_Click(object sender, EventArgs e)
+ {
+ CargaDatosReunion();
+ UpContenido.Update();
+
+ }
+}
\ No newline at end of file
diff --git a/OI/SoporteADS.aspx.vb b/OI/SoporteADS.aspx.vb
index 23c002de6..e91072dd1 100644
--- a/OI/SoporteADS.aspx.vb
+++ b/OI/SoporteADS.aspx.vb
@@ -1345,14 +1345,14 @@ Partial Class OI_SoporteADS
'CUANDO ES REENVIO
If CveEventoPadre > 0 Then
- If A2.HRef <> "" Then RutaArchivo = String.Format("{0}{1}", Request.PhysicalApplicationPath, A2.HRef.Substring(1))
+ If A2.HRef <> "" Then RutaArchivo = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, A2.HRef.Substring(1))
If File.Exists(RutaArchivo) Then
Archivo = Path.GetExtension(ArchivoReenvio)
End If
If UsuarioActual.CveRol = 1037 Then
- RutaGuardar = String.Format("{0}Empresas\70\OI\", Request.PhysicalApplicationPath)
+ RutaGuardar = String.Format("{0}Empresas\70\OI\", ModExtensiones.DirectorioBaseEmpresas)
RutaGuardar.DirectoryExistsCreate
End If
Else
@@ -2011,7 +2011,7 @@ Partial Class OI_SoporteADS
For Each fileItem As Archivo In Filesgral
- FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
'Filename = fileItem.filename
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2061,7 +2061,7 @@ Partial Class OI_SoporteADS
For Each fileItem As Archivo In Filesgral
- FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
'Filename = fileItem.filename
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2261,7 +2261,7 @@ Partial Class OI_SoporteADS
End Sub
Private Sub ImprimirReporte()
- Dim RutaDocumento As String = System.IO.Path.Combine(Server.MapPath("/"), "Empresas/Grales/FS.docx")
+ Dim RutaDocumento As String = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/FS.docx")
If File.Exists(RutaDocumento) Then
Dim GemDocumen As New clsGemBoxDocument(RutaDocumento)
diff --git a/OI/Tablero.aspx b/OI/Tablero.aspx
new file mode 100644
index 000000000..94f5aacc4
--- /dev/null
+++ b/OI/Tablero.aspx
@@ -0,0 +1,91 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Tablero.aspx.cs" Inherits="OI_Tablero" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%# Eval("CveTablero","r")%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OI/Tablero.aspx.cs b/OI/Tablero.aspx.cs
new file mode 100644
index 000000000..a3ec5ebcf
--- /dev/null
+++ b/OI/Tablero.aspx.cs
@@ -0,0 +1,134 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class OI_Tablero : ClsPaginas
+{
+
+ #region Propiedades
+ private int RcveTablero
+ {
+ get { return (ViewState["RcveTablero"] == null) ? 0 : Convert.ToInt32(ViewState["RcveTablero"]); }
+ set { ViewState["RcveTablero"] = value; }
+ }
+ private int CcveTablero
+ {
+ get { return (ViewState["CcveTablero"] == null) ? 0 : Convert.ToInt32(ViewState["CcveTablero"]); }
+ set { ViewState["CcveTablero"] = value; }
+ }
+
+ #endregion
+ protected void Page_Load(object sender, EventArgs e)
+ {
+
+ if (!IsPostBack)
+ {
+ //RcveTablero = Request["cveTablero"] == null ? 0 : Request["cveTablero"].ToString().ToEntero();
+
+ CargaDDl();
+ CargaTablero();
+ }
+ }
+
+ protected void CargaTablero()
+ {
+ using (ClsOIEventos ObjTabl = new ClsOIEventos())
+ {
+ ObjTabl.GetTablero(-1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+ GVTablero.DataSource = ObjTabl.DtResultados;
+
+ }
+ GVTablero.DataBind();
+ UpContenido.Update();
+ }
+ protected void CargaDDl()
+ {
+ DdlTablusuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+ DdlTablusuario.DataBind();
+ UPModalTabl.Update();
+ }
+ protected void LimpiaTablero()
+ {
+ TxtTabltablero.Text = "";
+ DdlTablusuario.SelectedValueExist( UsuarioActual.CveUsuario) ;
+ UPModalTabl.Update();
+ }
+ protected void LnkEditarTabl_Click(object sender, EventArgs e)
+ {
+ LimpiaTablero();
+ GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ CcveTablero = gvRow.DataKey("CveTablero").ToEntero();
+ string tablero = gvRow.DataKey("Tablero");
+ int cveUsuario = gvRow.DataKey("CveUsuario").ToEntero();
+ DateTime fechaIng = gvRow.DataKey("FechaIng").ToDateTime();
+ int cveUsuarioIng = gvRow.DataKey("CveUsuarioIng").ToEntero();
+ int cveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero();
+
+ TxtTabltablero.Text = tablero.ToString();
+ DdlTablusuario.SelectedValueExist(cveUsuario.ToString());
+ this.RegistraScript("$('#DModalTablero').modal();");
+ BtnTablADD.Visible = false;
+ BtnTablEdit.Visible = true;
+ UPModalTabl.Update();
+ }
+ protected void BtnTablADD_Click(object sender, EventArgs e)
+ {
+
+ string tablero = TxtTabltablero.Text;
+ int cveUsuario = DdlTablusuario.SelectedValue.ToEntero();
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.AddTablero(tablero, cveUsuario, UsuarioActual.CveUsuario , UsuarioActual.CveEmpresa);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ this.RegistraScript("$('#DModalTablero').modal('hide');");
+ LimpiaTablero();
+ CargaTablero();
+ UPModalTabl.Update();
+ this.Alert("El Tablero Se ha agregado");
+ }
+ }
+ protected void BtnTablEdit_Click(object sender, EventArgs e)
+ {
+
+ string tablero = TxtTabltablero.Text;
+ int cveUsuario = DdlTablusuario.SelectedValue.ToEntero();
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.UpTablero(CcveTablero, tablero, cveUsuario, UsuarioActual.CveEmpresa);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ this.RegistraScript("$('#DModalTablero').modal('hide');");
+ LimpiaTablero();
+ UPModalTabl.Update();
+ CargaTablero();
+ this.Alert("El Tablero Se ha actualizado");
+ }
+ }
+ protected void LnkEliminarTabl_Click(object sender, EventArgs e)
+ {
+ GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ CcveTablero = gvRow.DataKey("CveTablero").ToEntero();
+ int cveUsuario = gvRow.DataKey("cveUsuario").ToEntero();
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.RemoveTablero(CcveTablero, cveUsuario, UsuarioActual.CveEmpresa);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ CargaTablero();
+ this.Alert("El Tablero Se ha Eliminado");
+ }
+ }
+ protected void LnkTableros_Click(object sender, EventArgs e)
+ {
+ this.RegistraScript("$('#DModalTablero').modal();");
+ LimpiaTablero();
+ BtnTablADD.Visible = true;
+ BtnTablEdit.Visible = false;
+ UPModalTabl.Update();
+ }
+}
\ No newline at end of file
diff --git a/OI/TableroDetalle.aspx b/OI/TableroDetalle.aspx
new file mode 100644
index 000000000..a8d65518c
--- /dev/null
+++ b/OI/TableroDetalle.aspx
@@ -0,0 +1,196 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="TableroDetalle.aspx.cs" Inherits="OI_TableroDetalle" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OI/TableroDetalle.aspx.cs b/OI/TableroDetalle.aspx.cs
new file mode 100644
index 000000000..c835f322c
--- /dev/null
+++ b/OI/TableroDetalle.aspx.cs
@@ -0,0 +1,172 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class OI_TableroDetalle : ClsPaginas
+{
+
+ #region Propiedades
+ private int RcveTablero
+ {
+ get { return (ViewState["RcveTablero"] == null) ? 0 : Convert.ToInt32(ViewState["RcveTablero"]); }
+ set { ViewState["RcveTablero"] = value; }
+ }
+
+ private System.Data.DataTable DtDatos
+ {
+ get { return (ViewState["DtDatos"] == null) ? null : (System.Data.DataTable)ViewState["DtDatos"]; }
+ set { ViewState["DtDatos"] = value; }
+ }
+ private int CcveTableroLista
+ {
+ get { return (ViewState["CcveTableroLista"] == null) ? 0 : Convert.ToInt32(ViewState["CcveTableroLista"]); }
+ set { ViewState["CcveTableroLista"] = value; }
+ }
+
+ #endregion
+ protected void Page_Load(object sender, EventArgs e)
+ {
+
+ if (!IsPostBack)
+ {
+ RcveTablero = Request["cveTablero"] == null ? 0 : Request["cveTablero"].ToString().ToEntero();
+
+
+ if (RcveTablero > 0)
+ {
+
+ using (ClsOIEventos ObjTabl = new ClsOIEventos())
+ {
+ if (ObjTabl.GetTablero(RcveTablero, -1, UsuarioActual.CveEmpresa) && ObjTabl.DtResultados.Rows.Count > 0)
+ {
+ LtlTituloTablero.Text = string.Format("Tablero : {0}", ObjTabl.DtResultados.Rows[0]["Tablero"]);
+ }
+ else
+ {
+ RcveTablero = 0;
+ }
+
+ }
+ CargaTableroLista();
+ }
+ }
+ }
+ protected void CargaTableroLista()
+ {
+ using (ClsOIEventos ObjTabl = new ClsOIEventos())
+ {
+ if (ObjTabl.GetTableroListaTrello(RcveTablero))
+ {
+ DtDatos = ObjTabl.DtResultados;
+ RptrListas.DataSource = DtDatos.FiltraParametros("", "", new string[] { "CveTableroLista", "Lista" });
+ RptrListas.DataBind();
+ }
+ //GVTableroLista.DataSource = ObjTabl.DtResultados;
+
+ }
+ //GVTableroLista.DataBind();
+ UpContenido.Update();
+ }
+
+ protected void LimpiaTableroLista()
+ {
+ TxtTabllista.Text = "";
+ UPModalTabl.Update();
+ }
+ protected void LnkEditarTabl_Click(object sender, EventArgs e)
+ {
+ LimpiaTableroLista();
+ GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ CcveTableroLista = gvRow.DataKey("CveTableroLista").ToEntero();
+ int cveTablero = gvRow.DataKey("CveTablero").ToEntero();
+ string lista = gvRow.DataKey("Lista");
+
+ TxtTabllista.Text = lista.ToString();
+ this.RegistraScript("$('#DModalTableroLista').modal();");
+ BtnTablADD.Visible = false;
+ BtnTablEdit.Visible = true;
+ UPModalTabl.Update();
+ }
+ protected void LnkAgregarTabl_Click(object sender, EventArgs e)
+ {
+ this.RegistraScript("$('#DModalTableroLista').modal();");
+ LimpiaTableroLista();
+ BtnTablADD.Visible = true;
+ BtnTablEdit.Visible = false;
+ UPModalTabl.Update();
+ }
+ protected void BtnTablADD_Click(object sender, EventArgs e)
+ {
+
+ string lista = TxtTabllista.Text;
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.AddTableroLista(RcveTablero, lista, UsuarioActual.CveUsuario);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ this.RegistraScript("$('#DModalTableroLista').modal('hide');");
+ LimpiaTableroLista();
+ CargaTableroLista();
+ UPModalTabl.Update();
+ this.Alert("La Lista se ha agregadó",ModExtensiones.TipoMensaje.ToastInformacion);
+ }
+ }
+ protected void BtnTablEdit_Click(object sender, EventArgs e)
+ {
+
+ string lista = TxtTabllista.Text;
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.UpTableroLista(CcveTableroLista, lista);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ this.RegistraScript("$('#DModalTableroLista').modal('hide');");
+ LimpiaTableroLista();
+ UPModalTabl.Update();
+ CargaTableroLista();
+ this.Alert("La Lista Se ha actualizado");
+ }
+ }
+ protected void LnkEliminarTabl_Click(object sender, EventArgs e)
+ {
+ GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ CcveTableroLista = gvRow.DataKey("CveTableroLista").ToEntero();
+ ClsOIEventos ObjTabl = new ClsOIEventos();
+ bool Continuar = ObjTabl.RemoveTableroLista(CcveTableroLista);
+ ObjTabl.Dispose();
+ if (Continuar)
+ {
+ CargaTableroLista();
+ this.Alert("El Tablero_Lista Se ha Eliminado");
+ }
+ }
+ //Dim item As DataRowView = DirectCast(e.Item.DataItem, DataRowView)
+
+ protected void RptrListas_ItemDataBound(object sender, RepeaterItemEventArgs e)
+ {
+ System.Data.DataRowView item = (System.Data.DataRowView)e.Item.DataItem;
+ string Lista = item["Lista"].ToString();
+ int CveTableroLista = item["CveTableroLista"].ToString().ToEntero();
+
+ Repeater RptTareas = (Repeater)e.Item.FindControl("RptTareas");
+ RptTareas.DataSource =DtDatos.FiltraParametros(string.Format("CveTableroLista={0} AND CveEvento>0", CveTableroLista));
+ RptTareas.DataBind();
+ }
+
+ protected void BtnCargarDatos_Click(object sender, EventArgs e)
+ {
+ CargaTableroLista();
+ }
+
+ protected void BtnUpPosition_Click(object sender, EventArgs e)
+ {
+ using (ClsOIEventos eveobj = new ClsOIEventos())
+ {
+ eveobj.UpEventoLista(Txtcvetablerolista.Text.ToEntero(), txtCveEvento.Text.ToEntero());
+ }
+ }
+}
\ No newline at end of file
diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx
index 3767249c5..117bb5418 100644
--- a/OI/TareaDetalle.aspx
+++ b/OI/TareaDetalle.aspx
@@ -4,9 +4,16 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Guardar
+
+
+
+
+
+
+
+
+
+
+
diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs
new file mode 100644
index 000000000..eabbd1f5c
--- /dev/null
+++ b/UserControl/TareaNueva.ascx.cs
@@ -0,0 +1,327 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+
+public partial class UserControl_TareaNueva : System.Web.UI.UserControl
+{
+ //public const string iddivAgregarTarea = "iddivAgregarTarea";
+ public Usuario UsuarioActual { get { if (Context.Session["UsuarioSIG"] == null) { return null; } else { return (Usuario)Context.Session["UsuarioSIG"]; } } }
+ public int CveEventoPadre { get { return ViewState["CveEventoPadre"] != null ? ViewState["CveEventoPadre"].ToString().ToEntero() : 0; } set { ViewState["CveEventoPadre"] = value; } }
+ public OITipoEventos cveTipoEvento { get { return ViewState["cveTipoEvento"] != null ? (OITipoEventos)ViewState["cveTipoEvento"] : OITipoEventos.Tarea; } set { ViewState["cveTipoEvento"] = value; } }
+
+ //OITipoEventos cveTipoEvento = OITipoEventos.Tarea;
+ public bool Ismodal { get { return ViewState["Ismodal"] != null ? (bool)ViewState["Ismodal"] : true; } set { ViewState["Ismodal"] = value; } }
+ public string OnAddedTareaNueva { get { return ViewState["OnAddedTareaNueva"] != null ? ViewState["OnAddedTareaNueva"].ToString() : "OnAddedTareaNueva"; } set { ViewState["OnAddedTareaNueva"] = value; } }
+ public const string iddivAgregarTema = "divModalAgregartema";
+
+ protected System.Data.DataTable get_GlobalDTUsuarios(int CveUsuario = -1, int CveEmpresa = -1)
+ {
+ System.Text.StringBuilder Str = new System.Text.StringBuilder();
+ if (CveUsuario != -1) { Str.AppendFormat("CveUsuario = {0}", CveUsuario); }
+ if (CveEmpresa != -1) { Str.AppendFormat(" {0} CveEmpresa = {1}", Str.Length > 0 ? "AND" : "", CveEmpresa); }
+ System.Data.DataTable dt = null;
+ if (CveUsuario != -1 || CveEmpresa != -1)
+ {
+ System.Data.DataView Dv = new System.Data.DataView((System.Data.DataTable)Application["GlobalDTUsuarios"], Str.ToString(), "", System.Data.DataViewRowState.CurrentRows);
+ dt = Dv.ToTable();
+ Dv.Dispose();
+ }
+ else
+ { dt = (System.Data.DataTable)Application["GlobalDTUsuarios"]; }
+ return dt;
+ }
+ //public DataTable GlobalDTOIRevision
+ protected System.Data.DataTable get_GlobalDTOIRevision(int CveEmpresa = -1)
+ {
+ System.Data.DataTable dt = null;
+ System.Text.StringBuilder Str = new System.Text.StringBuilder();
+
+ if (CveEmpresa != -1)
+ {
+ string StrSQL = string.Format("CveEmpresa = {0}", CveEmpresa);
+ System.Data.DataView Dv = new System.Data.DataView((System.Data.DataTable)Application["GlobalDTOIRevision"], StrSQL, "", System.Data.DataViewRowState.CurrentRows);
+ dt = Dv.ToTable();
+ Dv.Dispose();
+ }
+ else { dt = (System.Data.DataTable)Application["GlobalDTOIRevision"]; }
+
+ return dt;
+ }
+
+ protected void Page_Load(object sender, EventArgs e)
+ {
+ if (!IsPostBack)
+ {
+ if (!Ismodal)
+ {
+ iddivAgregarTarea.CssClass = "";
+ iddivAgregarTareamodaldialog.CssClass = "";
+ iddivAgregarTareamodalbody.CssClass = "";
+ iddivAgregarTareamodalcontent.CssClass = "";
+ iddivAgregarTareamodalheader.Visible = false;
+ iddivAgregarTareamodalfooter.Visible = false;
+ }
+ if (CveEventoPadre > 0)
+ {
+ txtCveEventoPadre.Text = CveEventoPadre.ToString();
+ }
+ else
+ {
+ CveEventoPadre = -1;
+ txtCveEventoPadre.Text = "-1";
+ }
+ GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+
+ DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
+ DdlPara.DataBind();
+
+ DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
+ DdlTema.DataBind();
+ DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
+ GVUsuarios_TareaNueva.DataBind();
+ }
+ }
+
+ protected void BtnopenmodalConPadre_Click(object sender, EventArgs e)
+ {
+ CveEventoPadre = txtCveEventoPadre.Text.ToEntero();
+ if (Ismodal)
+ {
+ this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea.ClientID));
+
+ }
+ }
+
+ protected void BtnGuardarTarea_Click(object sender, EventArgs e)
+ {
+ string errorMessage = "";
+
+ TxtCveActivoFijo.Text = TxtCveActivoFijo.Text.ToEntero() > 0 ? TxtCveActivoFijo.Text : "-1";
+ TxtCveIE.Text = TxtCveIE.Text.ToEntero() > 0 ? TxtCveIE.Text : "-1";
+ TxtCveProspecto.Text = TxtCveProspecto.Text.ToEntero() > 0 ? TxtCveProspecto.Text : "-1";
+ TxtCveCliente.Text = TxtCveCliente.Text.ToEntero() > 0 ? TxtCveCliente.Text : "-1";
+ TxtCveOS.Text = TxtCveOS.Text.ToEntero() > 0 ? TxtCveOS.Text : "-1";
+ TxtCveOC.Text = TxtCveOC.Text.ToEntero() > 0 ? TxtCveOC.Text : "-1";
+ TxtCvePersonal.Text = TxtCvePersonal.Text.ToEntero() > 0 ? TxtCvePersonal.Text : "-1";
+ TxtCveProveedor.Text = TxtCveProveedor.Text.ToEntero() > 0 ? TxtCveProveedor.Text : "-1";
+ TxtCveCompra.Text = TxtCveCompra.Text.ToEntero() > 0 ? TxtCveCompra.Text : "-1";
+ TxtCveVenta.Text = TxtCveVenta.Text.ToEntero() > 0 ? TxtCveVenta.Text : "-1";
+ TxtCveContrato.Text = TxtCveContrato.Text.ToEntero() > 0 ? TxtCveContrato.Text : "-1";
+ TxtCveSubProyecto.Text = TxtCveSubProyecto.Text.ToEntero() > 0 ? TxtCveSubProyecto.Text : "-1";
+ TxtCveMovimientoAlmacen.Text = TxtCveMovimientoAlmacen.Text.ToEntero() > 0 ? TxtCveMovimientoAlmacen.Text : "-1";
+ TxtCveTableroLista.Text = TxtCveTableroLista.Text.ToEntero() > 0 ? TxtCveTableroLista.Text : "-1";
+
+ int cveUsuarioDe = UsuarioActual.CveUsuario;
+ List listaCCP = new List();
+ int cveUsuarioPara = DdlPara.SelectedValue.ToEntero();
+
+ foreach (GridViewRow gvRow in GVUsuarios_TareaNueva.Rows)
+ {
+ if (gvRow.RowType == DataControlRowType.DataRow)
+ {
+ CheckBox ChkOk = gvRow.FCCheckBox("ChkOk");
+ if (ChkOk.Checked)
+ {
+ int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero();
+ listaCCP.Add(CveUsuario);
+ }
+ }
+ }
+ //OITipoEventos cveTipoEvento = OITipoEventos.Tarea;
+ string asunto = TxtAsunto.Text;
+ string descripcion = TxtDescripcion.Text;
+ int prioridad = DdlPrioridad.SelectedValue.ToEntero();
+ string fechaInicio = "";
+ if (txtFechaI.Text.ToDateTimeExcat().Year <= 1999)
+ {
+ if (txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999)
+ {
+ errorMessage = "No se ingresó una fecha de inicio valida";
+
+ }
+ else
+ {
+ fechaInicio = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd HH:mm");
+ }
+ }
+ else
+ {
+ fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm");
+ }
+ string fechaFin = "";
+ if (txtFechaF.Text.ToDateTimeExcat().Year <= 1999)
+ {
+ if (txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999)
+ {
+ errorMessage = "No se ingresó una fecha fin valida";
+
+ }
+ else
+ {
+ fechaFin = string.Format("{0:yyyy/MM/dd} 23:59", txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy"));
+ }
+ }
+ else
+ {
+ fechaFin = txtFechaF.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm");
+ }
+ int cveRevision = DdlTema.SelectedValue.ToEntero();
+ string archivoname = "";
+ string rutaarchivoOri = "";
+ string ArchivoExtencion = "";
+ foreach (Archivo item in TxtArchivo.getfiles().Archivos)
+ {
+ archivoname = item.filenameO;
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ }
+
+
+ int cveUsuarioIng = UsuarioActual.CveUsuario;
+ int cveEmpresa = UsuarioActual.CveEmpresa;
+ bool Continuar = false;
+ int Folio = -1;
+ int CveEvento = -1;
+
+ if (cveUsuarioDe <= 0)
+ {
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\"";
+ }
+
+ if (cveUsuarioPara <= 0)
+ {
+ errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\"";
+
+ }
+ if (errorMessage.Length == 0)
+ {
+
+ List chkList = new List();
+
+ using (ClsOIEventos objOI = new ClsOIEventos())
+ {
+ objOI.IniciaTransacSQL();
+ Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList,
+ cveUsuarioIng, cveEmpresa, CveEventoPadre,
+ CveActivoFijo: TxtCveActivoFijo.Text.ToEntero(),
+ CveIE: TxtCveIE.Text.ToEntero(), CveProspecto: TxtCveProspecto.Text.ToEntero(), CveCliente: TxtCveCliente.Text.ToEntero(),
+ CveOS: TxtCveOS.Text.ToEntero(), CveOC: TxtCveOC.Text.ToEntero(), CvePersonal: TxtCvePersonal.Text.ToEntero(),
+ CveProveedor: TxtCveProveedor.Text.ToEntero(), CveCompra: TxtCveCompra.Text.ToEntero(), CveVenta: TxtCveVenta.Text.ToEntero(),
+ CveContrato: TxtCveContrato.Text.ToEntero(), CveSubProyecto: TxtCveSubProyecto.Text.ToEntero(), CveMovimientoAlmacen: TxtCveMovimientoAlmacen.Text.ToEntero(), CveTableroLista:TxtCveTableroLista.Text.ToEntero());
+
+ CveEvento = objOI.CveEvento;
+ Folio = objOI.Folio;
+ if (CveEvento == 0)
+ {
+ Continuar = false;
+ }
+ if (Continuar)
+ {
+ objOI.Commit();
+ //ObjEventosCorreo o = objOI.objCorreo;
+ //string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema);
+ //EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, "");
+ }
+ else
+ {
+ objOI.RollBack();
+ Continuar = false;
+ }
+ }
+ if (Continuar && CveEvento > 0)
+ {
+ if (rutaarchivoOri.Length > 0)
+ {
+ string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta);
+ if (!System.IO.Directory.Exists(ruta))
+ {
+ System.IO.Directory.CreateDirectory(ruta);
+ }
+ ruta = string.Format("{0}{1}\\", ruta, Folio);
+ if (!System.IO.Directory.Exists(ruta))
+ {
+ System.IO.Directory.CreateDirectory(ruta);
+ }
+ ruta = string.Format("{0}{1}", ruta, archivoname);//, ArchivoExtencion);
+ System.IO.File.Move(rutaarchivoOri, ruta);
+ }
+ this.Alert("Se ha agregadó la nueva tarea", ModExtensiones.TipoMensaje.ToastInformacion);
+
+ TxtAsunto.Text = "";
+ TxtDescripcion.Text = "";
+ txtFechaF.Text = "";
+ txtFechaI.Text = "";
+ if (Ismodal)
+ {
+ this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTarea.ClientID));
+ }
+ this.RegistraScript(string.Format("if({0}){0}();", OnAddedTareaNueva));
+ }
+ }
+ else
+ {
+ this.Alert(errorMessage.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia);
+
+ }
+ }
+
+ protected void GVUsuarios_TareaNueva_RowDataBound(object sender, GridViewRowEventArgs e)
+ {
+ if (e.Row.RowType == DataControlRowType.DataRow)
+ {
+ CheckBox ChkOk = e.Row.FCCheckBox("ChkOk");
+ int CveUsuario = e.Row.DataKey("CveUsuario").ToString().ToEntero();
+ if (CveUsuario == UsuarioActual.CveUsuario)
+ {
+ ChkOk.Checked = true;
+ }
+ string CveRol = e.Row.DBCampo("CveRol");
+ string CveSubProyecto = e.Row.DBCampo("CveSubProyecto");
+ e.Row.CssClass = "items";
+ e.Row.Attributes.Add("data-rol", CveRol);
+ e.Row.Attributes.Add("data-sucursal", CveRol);
+ }
+ }
+
+ protected void LnkAddTtemaB_Click(object sender, EventArgs e)
+ {
+
+ this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema));
+ }
+
+ private void CargaTemas()
+ {
+ DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
+ DdlTema.DataBind();
+ DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+ }
+ protected void BtnAgregarTema_Click(object sender, EventArgs e)
+ {
+
+ using (ClsOIEventos objoi = new ClsOIEventos())
+ {
+ if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+ {
+ this.Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion);
+ this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema));
+
+ if (Ismodal)
+ {
+ this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea.ClientID));
+ }
+ TxtTema.Text = "";
+ //set_GlobalDTOIRevision(-1, objoi.DtResultados);
+ Application["GlobalDTOIRevision"] = objoi.DtResultados;
+ CargaTemas();
+ UpModalTareaNueva.Update();
+ }
+ else { this.Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); }
+
+ }
+ }
+}
\ No newline at end of file
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 5ab17c534..459603c9b 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -3,6 +3,7 @@
<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %>
<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %>
+
")
- 'incio Cuerpo del correo
- SBBody.Append("
")
- 'Termino Cuerpo del correo
-
- Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
- Hilo.Start()
- Alert("El correo se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
- Catch ex As Exception
- OnError("Ocurrió error al mandar MAIL", ex)
- End Try
- End Sub
-
-
- Private Sub MandaCorreo(Asunto As String, Para As String, Body As String)
- Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
- a.GuardaLog()
- Dim Mail As New ClsSisMail()
- Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
- End Sub
-#End Region
-
-#Region " COTIZACIONES "
-
- Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
- If BtnVerMasCot.Text = "Ver Más" Then
- CargaCotizaciones(-1)
- BtnVerMasCot.Text = "Ver Menos"
- Else
- CargaCotizaciones(21)
- BtnVerMasCot.Text = "Ver Más"
- End If
- End Sub
- Private Function CargaCotizaciones(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) As Boolean
- Dim Retorno As Boolean = False
- Dim ObjClientes As New ClsClientes()
- If ObjClientes.GetCotizaciones(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
- If ObjClientes.DtResultados.Rows.Count > 0 Then
- 'Carga Generales
- LtlCantidadCotizaciones.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(2)
- LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00")
- 'Carga Grid
- GvCot.DataSource = ObjClientes.DtResultados
- DtCotizaciones = ObjClientes.DtResultados
-
- If UsuarioActual.Empresa.UsaOS Then
- GvCot.Columns(9).Visible = True
- Else
- GvCot.Columns(9).Visible = True
- End If
-
-
- Else
- LtlCantidadCotizaciones.Text = "0"
- LtlFactorCotVentas.Text = "0.00"
- GvCot.DataSource = Nothing
- DtCotizaciones = Nothing
- End If
- Else
- GvCot.DataSource = Nothing
- DtCotizaciones = Nothing
- End If
- ObjClientes.Dispose()
- GvCot.DataBind()
- Return Retorno
- End Function
- Protected Sub GVCotizaciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCot.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
-
- Dim HLFacturar As HtmlAnchor = DirectCast(e.Row.FindControl("HLFacturarCot"), HtmlAnchor)
-
-
- 'CABECERA
- If e.Row.RowIndex = 0 Then
- e.Row.BackColor = Drawing.Color.LightGray
- DirectCast(e.Row.FindControl("HLSendMail2"), HtmlAnchor).Visible = False
- e.Row.FindControl("HlOS").Visible = False
- HLFacturar.Visible = False
- End If
-
- e.Row.FCLiteral("LtlCotizacion").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio"))
- e.Row.FCLiteral("LtlFolioVenta").Text = String.Format("{1}", e.Row.DBCampo("CveVentaPadre"), e.Row.DBCampo("FolioVenta"))
- DirectCast(e.Row.FindControl("HLSendMail2"), HtmlAnchor).HRef = String.Format("javascript:$get('HdnTipoDocto2').value='Cot';$get('HdnCveVenta2').value='{0}';$get('HdnFolioVenta2').value='{1}';$get('TxtParaMail2').value='{2}';$get('HdnSerieFolio2').value='{2}';$get('HdnSubProyecto2').value='{2}'; $('#ModalDivMail2').modal();", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
-
-
-
- 'FACTURAR COTIZACION
- If e.Row.DBCampo("FolioVenta") <> "" Then
- HLFacturar.Visible = False
- Else
- HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
- End If
- End If
- End Sub
-#End Region
-
-#Region "D I R E C C I O N E N V I O "
- Public Sub Edit_Click(sender As Object, e As EventArgs)
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero
- TxtEnvioDireccion.Text = GvRow.DataKey("EnvioDireccion")
- TxtEnvioNoExt.Text = GvRow.DataKey("EnvioNoExt")
- TxtEnvioNoInt.Text = GvRow.DataKey("EnvioNoInt")
- TxtEnvioColonia.Text = GvRow.DataKey("EnvioColonia")
- TxtEnvioCiudad.Text = GvRow.DataKey("EnvioCiudad")
- TxtEnvioEstado.Text = GvRow.DataKey("EnvioEstado")
- TxtEnvioContacto.Text = GvRow.DataKey("EnvioContacto")
- 'TxtDepartamento.Text = GvRow.DataKey("EnvioDepartamento")
- TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
- TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
- ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString = "True", True, False)
- If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
- UpAddDireccion.Update()
- RegistraScript("$('#divAddDireccionEnvio').modal();")
- End Sub
- Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
- Dim ObjClientes As New ClsClientes
- Dim TieneError = False
- Dim Estatus = If(ChkEstatus.Checked, 1, 0)
-
- If CveDireccionEnvio < 0 Then
- CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
-
- If CveDireccionEnvio < 0 Then
- TieneError = True
- End If
- Else
-
- If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
- TieneError = True
- End If
-
- End If
-
- If TieneError Then
- Alert("Ocurrio un error al agregar/actualizar la dirección de envío", TipoMensaje.MsgError)
- Else
- RegistraScript("$('#divAddDireccionEnvio').modal('hide');")
- CveDireccionEnvio = -1
- CargaDireccionesEnvio()
- End If
- End Sub
- Private Sub BtnAgregarDireccionModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccionModal.Click
- TxtEnvioDireccion.Text = ""
- TxtEnvioNoExt.Text = ""
- TxtEnvioNoInt.Text = ""
- TxtEnvioColonia.Text = ""
- TxtEnvioCiudad.Text = ""
- TxtEnvioEstado.Text = ""
- TxtEnvioContacto.Text = ""
- 'TxtDepartamento.Text = ""
- TxtEnvioCP.Text = ""
- TxtEnvioTel.Text = ""
- DdlClienteSucursalEnvio.SelectedValue = "-1"
- UpAddDireccion.Update()
- RegistraScript("$('#divAddDireccionEnvio').modal();")
- End Sub
- Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDireccionesEnvio.RowDeleting
- Dim ObjClientes As New ClsClientes
- Dim TieneError = False
-
- Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero
-
- If Not ObjClientes.DireccionEnvioRemove(CveDireccionEnvio) Then
- TieneError = True
- End If
-
- If Not TieneError Then
- GvDireccionesEnvio.EditIndex = -1
- Alert("Se eliminó correctamente la dirección de envío.", TipoMensaje.MsgInformacion)
- Else
- Alert("Ocurrió un error al eliminar la dirección de envío.", TipoMensaje.MsgAdvertencia)
- End If
-
- CargaDireccionesEnvio()
- End Sub
-
-#End Region
-
-#Region " IMPORTAR SALDOS "
-
- Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
- CargaClientesImportarSaldos()
- RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
- End Sub
-
- Private Sub CargaClientesImportarSaldos()
- DdlClienteImportarSaldos.setEsWebService(True) '(UsuarioActual.Empresa.Funcionalidad(105) = "1")
- 'DdlClienteImportarSaldos.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- 'DdlClienteImportarSaldos.DataBind()
- UpImportarSaldos.Update()
- 'DdlClienteImportarSaldos.Items.Insert(0, New ListItem("Seleccione", "-1"))
- End Sub
- Protected Sub BtnConsultarSaldoCliente_Click(sender As Object, e As EventArgs)
- ConsultarAnticiposSaldosClientes()
- End Sub
- Private Sub ConsultarAnticiposSaldosClientes()
- Dim ObjMovtos As New ClsMovimientos()
- If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero) Then
- GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND Saldo > 0 AND CveIE > 0")
- Else
- GvImportarSaldos.DataSource = Nothing
- End If
- ObjMovtos.Dispose()
-
- TxtSaldoImportar.Text = ""
-
- GvImportarSaldos.DataBind()
- UpImportarSaldos.Update()
- End Sub
- Protected Sub BtnGuardarTransferencias_Click(sender As Object, e As EventArgs)
- Dim EsValida = False
-
- For Each Gvr As GridViewRow In GvImportarSaldos.Rows
- If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
- EsValida = True
- End If
- Next
-
- If Not EsValida Then
- Alert("El importe a importar de saldos debe ser mayor a cero. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
- Dim ObjConta As New ClsContabilidad
- ObjConta.IniciaTransacSQL()
- Dim TieneError = False
-
-
- Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Clientes/ImportarSaldos", 53, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaImportarSaldos.Text.ToDate, "Traspaso de saldos de anticipos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- Dim IVA As Decimal = 0
- Dim Importe As Decimal = 0
- Dim ImporteAplicar As Decimal = 0
- If CvePrePoliza > 0 Then
- For Each Gvr As GridViewRow In GvImportarSaldos.Rows
- If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
-
- Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
- IVA = Importe / Gvr.DataKey("Original").ToString.ToDecimal * Gvr.DataKey("IVA").ToString.ToDecimal 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
- ImporteAplicar = -(Importe - IVA)
- If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, "Traspaso de saldos de anticipos", 92, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, "Traspaso de saldos de anticipos", 66, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
- TieneError = True
- End If
- Else
- TieneError = True
- End If
-
- If Not TieneError Then
- If IVA > 0 Then
- If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, "Traspaso de saldos de anticipos.IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=-IVA) Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, "Traspaso de saldos de anticipos. IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=IVA) Then
- TieneError = True
- End If
- Else
- TieneError = True
- End If
- End If
- End If
-
-
- End If
- Next
- Else
- TieneError = True
- End If
-
-
- If Not TieneError Then
- ObjConta.Commit()
- Alert($"La importación de saldos se hizo correctamente.", TipoMensaje.MsgInformacion)
- TxtSaldoImportar.Text = ""
- ConsultarAnticiposSaldosClientes()
- Else
- ObjConta.RollBack()
- Alert("Ocurrió un error al importar los saldos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
- End If
-
- ObjConta.Dispose()
- End Sub
-
- Protected Sub GvImportarSaldos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvImportarSaldos.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
- e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
- End If
- End Sub
-#End Region
-
-#Region "Cuentas/Equipos"
- Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
- HdnModalidad.Value = "I"
- DivCicloComercial.Visible = False
- TxtIdentificador.Text = ""
- TxtNoSerie.Text = ""
- DdlTipoCuentaDetalle.SelectedIndex = 0
- ChkAnticipo.Checked = False
- PnlCicloComercial.Visible = False
- CargaCuentasCaracteristicas()
- UpBodyAgregarCuenta.Update()
- UpDatos.Update()
- RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
- End Sub
- Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
- Dim objCuentasEquipos As New ClsGenerales()
- Dim TieneError = False
- objCuentasEquipos.IniciaTransacSQL()
-
- If HdnModalidad.Value = "I" Then
- If Not objCuentasEquipos.AddCuentaEquipo(CveCliente, DdlTipoCuentaDetalle.SelectedValue.ToEntero, TxtIdentificador.Text.Trim, TxtNoSerie.Text.Trim, DdlClienteSucursal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
- TieneError = True
- End If
-
- If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, objCuentasEquipos.CveCuentaEquipo, objCuentasEquipos) Then
- TieneError = True
- End If
-
- ElseIf HdnModalidad.Value = "U" Then
-
- If Not objCuentasEquipos.UpdateCuentaEquipo(TxtIdentificador.Text, TxtNoSerie.Text, True, DdlClienteSucursal.SelectedValue.ToEntero, CveCuentaEquipo) Then
- TieneError = True
- End If
-
- If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, CveCuentaEquipo, objCuentasEquipos) Then
- TieneError = True
- End If
-
- End If
-
- If Not TieneError Then
- objCuentasEquipos.Commit()
- CargaCuentasEquipos()
- TxtIdentificador.Text = ""
- TxtNoSerie.Text = ""
- DdlTipoCuentaDetalle.SelectedIndex = 0
- ChkAnticipo.Checked = False
- Alert("Se agregó/Actualizó correctamente la Cuenta/Equipo.", TipoMensaje.MsgInformacion)
- UpBodyAgregarCuenta.Update()
- Else
- Alert("Ocurrió un erro al Agregar/Actualizar la Cuenta/Equipo.", TipoMensaje.MsgInformacion)
- objCuentasEquipos.RollBack()
- End If
-
- objCuentasEquipos.Dispose()
- RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarCuenta"))
- UpDatos.Update()
- End Sub
- Private Sub ChkCicloComercial_CheckedChanged(sender As Object, e As EventArgs) Handles ChkCicloComercial.CheckedChanged
- If ChkCicloComercial.Checked = True Then
- PnlCicloComercial.Visible = True
-
- DdlPS.Items.Clear()
- DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
- DdlPS.DataBind()
- DdlPS.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
- Else
- PnlCicloComercial.Visible = False
- End If
- End Sub
- Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
- Dim Objeto As New ClsGenerales
- If Objeto.AddCuentaEquipoPS(DdlPS.SelectedValue.ToEntero, CveCuentaEquipo) Then
- Alert("Se ha agregado correctamente.", TipoMensaje.MsgInformacion)
- CargaGridPS()
- End If
- Objeto.Dispose()
- End Sub
- Private Sub CargaGridPS()
- Dim Objeto As New ClsGenerales()
- If Objeto.GetCuentaEquipoPS(CveCuentaEquipo) Then
- GvPS.DataSource = Objeto.DtResultados
- GvPS.DataBind()
- Objeto.Dispose()
- End If
- UpDatos.Update()
-
- End Sub
- Public Sub imgE_Click(sender As Object, e As EventArgs)
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- Dim Objeto As New ClsGenerales()
-
- HdnModalidad.Value = "U"
- CveCuentaEquipo = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
- TxtIdentificador.Text = GvRow.DataKey("CuentaEquipo")
- TxtNoSerie.Text = GvRow.DataKey("NoSerie")
- DdlTipoCuentaDetalle.SelectedValueExist(GvRow.DataKey("CveTipoCuentaEquipo"))
- BtnGuardarCuenta.Text = "Guardar"
- DivCicloComercial.Visible = True
-
- If Objeto.GetCuentaEquipoPS(CveCuentaEquipo) Then
- If Objeto.DtResultados.Rows.Count > 0 Then
- GvPS.DataSource = Objeto.DtResultados
- GvPS.DataBind()
- ChkCicloComercial.Checked = True
- PnlCicloComercial.Visible = True
- DdlPS.Items.Clear()
- DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
- DdlPS.DataBind()
- DdlPS.Items.Insert(0, New ListItem("Seleccione", "-1"))
- Else
- ChkCicloComercial.Checked = False
- PnlCicloComercial.Visible = False
- End If
- End If
-
- If Objeto.GetCaracteristicasValores(-1, -1, -1, -1, CveCuentaEquipo, -1, 6, UsuarioActual.CveEmpresa) Then
- GvCuentasCaracteristicas.DataSource = Objeto.DtResultados
- Else
- GvCuentasCaracteristicas.DataSource = Nothing
- End If
- GvCuentasCaracteristicas.DataBind()
- GvCuentasCaracteristicas.Visible = True
- GvAddCuentaCaracteristica.Visible = False
-
- UpDatos.Update()
- UpBodyAgregarCuenta.Update()
- UpAgregarCuenta.Update()
- Objeto.Dispose()
- RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
- End Sub
- Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting
- Dim Objeto As New ClsGenerales
- Dim TieneError = False
- If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
- Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion)
- Else
- TieneError = True
- Alert("Error al eliminar la cuenta/equipo.", TipoMensaje.MsgError)
- End If
- Objeto.Dispose()
- UpDatos.Update()
- CargaCuentasEquipos()
-
-
- End Sub
- Public Sub GvPS_Delete(sender As Object, e As EventArgs)
- Dim Objeto As New ClsGenerales
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
- Dim CveCtaEq As Integer = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
- Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
-
- If Objeto.RemoveCuentaEquipoPS(CvePS, CveCtaEq) Then
- Alert("El PS se eliminó correctamente.", TipoMensaje.MsgInformacion)
- Else
- Alert("Error al eliminar el PS", TipoMensaje.MsgError)
- End If
-
- CargaGridPS()
- UpDatos.Update()
- Objeto.Dispose()
- End Sub
- Private Sub CargaCuentasCaracteristicas()
- Dim ObjCaracteristicas As New ClsGenerales
-
-
- If ObjCaracteristicas.GetCaracteristicas(-1, 6, UsuarioActual.CveEmpresa) Then
- GvAddCuentaCaracteristica.DataSource = ObjCaracteristicas.DtResultados
- Else
- GvAddCuentaCaracteristica.DataSource = Nothing
- End If
- GvAddCuentaCaracteristica.DataBind()
- GvAddCuentaCaracteristica.Visible = True
- GvCuentasCaracteristicas.Visible = False
-
- ObjCaracteristicas.Dispose()
- End Sub
- Private Sub GvCuentasCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCuentasCaracteristicas.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
- Dim dtTemp As New DataTable
- Dim objCaracteristicas As New ClsGenerales
-
- Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
- Dim CveCaracteristicaValor As Integer = e.Row.DataKey("CveCaracteristicaValor").ToEntero
- Dim CveCaracteristicaOpcion As Integer = e.Row.DataKey("CveCaracteristicaOpcion").ToEntero
- Dim CaracteristicaValor As String = e.Row.DataKey("CaracteristicaValor")
- Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
-
- Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
- Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
- Dim RdlCarcateristicaOpcion As RadioButtonList = e.Row.FCRadioButtonList("RdlCarcateristicaOpcion")
- Dim chkCaracteristicaValor As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor")
-
- Dim Requerido As Integer
- If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
- Requerido = 1
- Else
- Requerido = 0
- End If
-
- TxtCuentaValor.Visible = False
- Dim RFVCuentaValor1 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("RFVCuentaValor1")
- RFVCuentaValor1.Enabled = False
-
- DdlCarcateristicaOpcion.Visible = False
- Dim rfvDdlCarcateristicaOpcion1 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvDdlCarcateristicaOpcion1")
- rfvDdlCarcateristicaOpcion1.Enabled = False
-
- RdlCarcateristicaOpcion.Visible = False
- Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion")
- rfvRdlCarcateristicaOpcion.Enabled = False
-
- Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas")
- CalendarioCaractersiticas.Enabled = False
-
- Dim _cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF")
- _cvFechaF.Enabled = False
-
- chkCaracteristicaValor.Visible = False
-
- If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then
- dtTemp = objCaracteristicas.DtResultados
- End If
-
- If CaracteristicaValor.Length > 0 Then
- TxtCuentaValor.Text = CaracteristicaValor
- End If
-
- Select Case CveCaracteristicaTipo
- Case 0
- 'txt
- TxtCuentaValor.Visible = True
- TxtCuentaValor.MaxLength = Logitud
- If Requerido = 1 Then
- RFVCuentaValor1.Enabled = True
- End If
- Exit Select
- Case 1
- DdlCarcateristicaOpcion.Visible = True
- dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
- DdlCarcateristicaOpcion.DataSource = dtTemp
- DdlCarcateristicaOpcion.DataBind()
- DdlCarcateristicaOpcion.Items.Insert(0, New ListItem("-", "-1"))
-
- If CveCaracteristicaValor <> -1 Then
- DdlCarcateristicaOpcion.SelectedValueExist(CveCaracteristicaOpcion)
- End If
-
- If Requerido = 1 Then
- rfvDdlCarcateristicaOpcion1.Enabled = True
- End If
- Exit Select
- Case 2
- 'radio
- RdlCarcateristicaOpcion.Visible = True
- dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
- RdlCarcateristicaOpcion.DataSource = dtTemp
- RdlCarcateristicaOpcion.DataBind()
-
- If CveCaracteristicaValor <> -1 Then
- RdlCarcateristicaOpcion.SelectedValuesIfExist(CveCaracteristicaOpcion.ToString)
- End If
-
- If Requerido = 1 Then
- rfvRdlCarcateristicaOpcion.Enabled = True
- End If
- Exit Select
- Case 3
- 'Fecha txt Fecha
- TxtCuentaValor.Visible = True
- TxtCuentaValor.Width = 120
- cvFechaF.Enabled = True
- CalendarioCaractersiticas.Enabled = True
- RegistraScript(" $('#" & TxtCuentaValor.ClientID & "').mask('00/00/0000'); ")
- If Requerido = 1 Then
- RFVCuentaValor1.Enabled = True
- End If
- Exit Select
- Case 4
- 'Multiline
- TxtCuentaValor.Visible = True
- TxtCuentaValor.MaxLength = Logitud
- If Requerido = 1 Then
- RFVCuentaValor1.Enabled = True
- End If
- Exit Select
- Case 5
- 'CheckBox
- chkCaracteristicaValor.Visible = True
- If CaracteristicaValor = "1" Then
- chkCaracteristicaValor.Checked = True
- Else
- chkCaracteristicaValor.Checked = False
- End If
-
- Exit Select
- Case 6
- TxtCuentaValor.Visible = True
- TxtCuentaValor.TextMode = TextBoxMode.Number
-
- If Requerido = 1 Then
- RFVCuentaValor1.Enabled = True
- End If
- Exit Select
- End Select
-
- objCaracteristicas.Dispose()
- End If
- End Sub
- Private Sub GvAddCuentaCaracteristica_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAddCuentaCaracteristica.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
- Dim dtTemp As New DataTable
- Dim objCaracteristicas As New ClsGenerales
-
- Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
- Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
-
- Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
- Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
- Dim RdlCarcateristicaOpcion2 As RadioButtonList = e.Row.FCRadioButtonList("RdlCarcateristicaOpcion2")
- Dim chkCaracteristicaValor2 As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor2")
-
- If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then
- dtTemp = objCaracteristicas.DtResultados
- End If
-
- Dim Requerido As Integer
- If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
- Requerido = 1
- Else
- Requerido = 0
- End If
-
- TxtCuentaValor.Visible = False
- Dim RFVCuentaValor2 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("RFVCuentaValor2")
- RFVCuentaValor2.Enabled = False
-
- DdlCarcateristicaOpcion.Visible = False
- Dim rfvDdlCarcateristicaOpcion2 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvDdlCarcateristicaOpcion2")
- rfvDdlCarcateristicaOpcion2.Enabled = False
-
- RdlCarcateristicaOpcion2.Visible = False
- Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2")
- rfvRdlCarcateristicaOpcion.Enabled = False
-
- Dim cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF2")
- cvFechaF.Enabled = False
-
- Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas1")
- CalendarioCaractersiticas.Enabled = False
-
- chkCaracteristicaValor2.Visible = False
-
- Select Case CveCaracteristicaTipo
- Case 0
- TxtCuentaValor.Visible = True
- Exit Select
- Case 1
- DdlCarcateristicaOpcion.Visible = True
- dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
- DdlCarcateristicaOpcion.DataSource = dtTemp
- DdlCarcateristicaOpcion.DataBind()
- DdlCarcateristicaOpcion.Items.Insert(0, New ListItem("-", "-1"))
-
- If Requerido = 1 Then
- rfvDdlCarcateristicaOpcion2.Enabled = True
- End If
-
- Exit Select
- Case 2
- 'radio
- RdlCarcateristicaOpcion2.Visible = True
- dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
- RdlCarcateristicaOpcion2.DataSource = dtTemp
- RdlCarcateristicaOpcion2.DataBind()
-
- If Requerido = 1 Then
- rfvRdlCarcateristicaOpcion.Enabled = True
- End If
- Exit Select
- Case 3
- 'Fecha txt Fecha
- TxtCuentaValor.Visible = True
- TxtCuentaValor.Width = 120
- cvFechaF.Enabled = True
- CalendarioCaractersiticas.Enabled = True
- RegistraScript(" $('#" & TxtCuentaValor.ClientID & "').mask('00/00/0000'); ")
-
- If Requerido = 1 Then
- RFVCuentaValor2.Enabled = True
- End If
- Exit Select
- Case 4
- 'Multiline
- TxtCuentaValor.Visible = True
- TxtCuentaValor.MaxLength = Logitud
-
- If Requerido = 1 Then
- RFVCuentaValor2.Enabled = True
- End If
- Exit Select
- Case 5
- 'CheckBox
- chkCaracteristicaValor2.Visible = True
- Exit Select
- Case 6
- TxtCuentaValor.Visible = True
- TxtCuentaValor.TextMode = TextBoxMode.Number
-
- If Requerido = 1 Then
- RFVCuentaValor2.Enabled = True
- End If
- Exit Select
- End Select
- objCaracteristicas.Dispose()
- End If
- End Sub
- Private Function GuardaCaracteristicas(Modalidad As String, CveCuentaEquipo As Integer, ByRef ObjCarac As ClsGenerales) As Boolean
- Dim Retorno = False
-
- If Modalidad.ToString = "I" Then
- For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows
- Dim CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
- Dim CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
-
- Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
- Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
- Dim _RdlCarcateristicaOpcion As RadioButtonList = gvr.FCRadioButtonList("RdlCarcateristicaOpcion2")
- Dim _chkCaracteristicaValor As CheckBox = gvr.FCCheckBox("chkCaracteristicaValor2")
-
- Dim CveCaracteristicaOpcion As Integer = -1
- Dim CaracteristicaValor As String = ""
- Dim CaracteristicaValorDate As Date = Now
- Dim CaracteristicaValorInt As Integer = -1
-
- Dim AgregaCaracteristica As Boolean = False
-
- Select Case CveCaracteristicaTipo
- Case 0
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text
-
- If CaracteristicaValor.Trim.Length > 0 Then
- AgregaCaracteristica = True
- Else
- AgregaCaracteristica = False
- End If
- Exit Select
- Case 1
- 'drop
- CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
-
- If CveCaracteristicaOpcion > 0 Then
- AgregaCaracteristica = True
- Else
- AgregaCaracteristica = False
- End If
- Exit Select
- Case 2
- 'radio
- CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
-
- If CveCaracteristicaOpcion > 0 Then
- AgregaCaracteristica = True
- Else
- AgregaCaracteristica = False
- End If
- Exit Select
- Case 3
- 'Fecha txt Fecha
- If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
- CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
- CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
-
- If CaracteristicaValor.Trim.ToDate.ToString("dd/MM/yyyy").ToString.Length > 0 Then
- AgregaCaracteristica = True
- Else
- AgregaCaracteristica = False
- End If
- Else
- AgregaCaracteristica = False
- End If
- Case 4
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text
-
- If CaracteristicaValor.Trim.Length > 0 Then
- AgregaCaracteristica = True
- Else
- AgregaCaracteristica = False
- End If
- Exit Select
- Case 5
- 'CheckBox
- If _chkCaracteristicaValor.Checked Then
- CaracteristicaValor = "1"
- Else
- CaracteristicaValor = "0"
- End If
- AgregaCaracteristica = True
- Exit Select
- Case 6
- 'txt numerico
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
-
- AgregaCaracteristica = True
- Exit Select
- End Select
-
- If AgregaCaracteristica Then
- If ObjCarac.AddUpdateCaracteristicasValores(CveCaracteristica, CveCaracteristicaOpcion, CaracteristicaValor, UsuarioActual.CveUsuario, CveCuentaEquipo:=CveCuentaEquipo) Then
- Retorno = True
- Else
- Exit For
- End If
- End If
- Next
- ElseIf Modalidad.ToString = "U" Then
- For Each gvr As GridViewRow In GvCuentasCaracteristicas.Rows
- Dim _CaracteristicaValor As Integer = gvr.DataKey("CaracteristicaValor").ToEntero
- Dim _CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
- Dim _CveCaracteristicaValor As Integer = gvr.DataKey("CveCaracteristicaValor").ToEntero
- Dim _CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
-
- Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
- Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
- Dim _RdlCarcateristicaOpcion As RadioButtonList = gvr.FCRadioButtonList("RdlCarcateristicaOpcion")
- Dim _chkCaracteristicaValor As CheckBox = gvr.FCCheckBox("chkCaracteristicaValor")
-
- Dim CveCaracteristicaOpcion As Integer = -1
- Dim CaracteristicaValor As String = ""
- Dim CaracteristicaValorDate As Date = Now
- Dim CaracteristicaValorInt As Integer = -1
-
- Select Case _CveCaracteristicaTipo
- Case 0
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text
- Exit Select
- Case 1
- 'drop
- CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
- Exit Select
- Case 2
- 'radio
- CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
- Exit Select
- Case 3
- 'Fecha txt Fecha
- If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
- CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
- CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
- Exit Select
- End If
- Case 4
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text
- Exit Select
- Case 5
- 'CheckBox
- If _chkCaracteristicaValor.Checked Then
- CaracteristicaValor = "1"
- Else
- CaracteristicaValor = "0"
- End If
- Exit Select
- Case 6
- 'txt numerico
- 'txt
- CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
- Exit Select
- End Select
-
- If ObjCarac.AddUpdateCaracteristicasValores(_CveCaracteristica, CveCaracteristicaOpcion, CaracteristicaValor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=_CveCaracteristicaValor, CveCuentaEquipo:=CveCuentaEquipo) Then
- Retorno = True
- Else
- Exit For
- End If
- Next
- End If
-
- Return Retorno
- End Function
-#End Region
-
-#Region "GPS"
- Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
- If hdnArrayDispositivo.Value.Length > 0 Then
- CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
- End If
- End Sub
- Protected Sub DdlEstatusDispositivos_SelectedIndexChanged(sender As Object, e As EventArgs)
- CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
- End Sub
- Private Sub CargaDispositivos(Optional Estatus As Integer = 1)
- Dim ObjGPS As New ClsGPS
- If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
- GvDatos.DataSource = ObjGPS.DtResultados
- Else
- GvDatos.DataSource = Nothing
- End If
- ObjGPS.Dispose()
- GvDatos.DataBind()
- UpDispositivos.Update()
- End Sub
- Private Sub CargaGlobalDispositos()
- Dim ObjGPS As New ClsGPS
-
- If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
- GlobalDTDispositivos(-1) = ObjGPS.DtResultados
- End If
-
- If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
- GlobalDTDispositivosUsuarios(-1, -1) = ObjGPS.DtResultados
- End If
-
- ObjGPS.Dispose()
- End Sub
- Protected Sub GvDispositivos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- e.Row.VerticalAlign = VerticalAlign.Middle
- If e.Row.DBCampo("Estatus").ToString.ToEntero = 1 Then
- e.Row.FCLabel("LblEstatus").Text = "Activo"
- e.Row.FCLabel("LblEstatus").CssClass = "label label-success"
- Else
- e.Row.FCLabel("LblEstatus").Text = "Inactivo"
- e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
- End If
- e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
- End If
- End Sub
-
- Protected Sub GvDispositivos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
- Dim GPS As New ClsGPS
- Dim CveDispositivo As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveDispositivo").ToEntero
- If GPS.DispositivosDelete(CveDispositivo) Then
- Alert("El Dispositivo se eliminó correctamente", TipoMensaje.MsgInformacion)
- End If
- GPS.Dispose()
- CargaDispositivos()
- CargaGlobalDispositos()
- UpDispositivos.Update()
- End Sub
- Private Sub CargaEmpresasUsuario(CveEmpresa As Integer)
- Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
-
- If Dt IsNot Nothing Then
- If Dt.Rows.Count > 0 Then
- DdlEmpresaDispositivo.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
-
- If DdlEmpresaDispositivo.SelectedValue.ToEntero() <= 0 Then
- DdlEmpresaDispositivo.SelectedValueExist(CveEmpresa)
- End If
-
- DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
-
- DdlEmpresaDispositivo.DataBind()
- DdlClienteDispositivo.DataBind()
-
- DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
- End If
- End If
-
- End Sub
- Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
- Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
-
- If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
- DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
- DdlClienteDispositivo.DataBind()
-
- DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
- End If
- End Sub
- Protected Sub DdlEmpresaDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
- CargaClienteDispositivos(DdlEmpresaDispositivo.SelectedValue.ToEntero())
- End Sub
-
-
- Protected Sub ImgMoverDispositivo_Click(sender As Object, e As EventArgs)
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- Me.NombreDispositivo = GvRow.DataKey("Display")
- HTituloDispostivo.InnerText = $"Mover Dispositivo: {NombreDispositivo}"
-
- UpMoverDispositivo.Update()
- RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
-
- End Sub
-
-#End Region
-
-#Region "Sucursales"
- Public Sub CreaDTSucursales()
-
- If Not CveCliente > 0 Then
-
- TempDTSucursales = New DataTable
- TempDTSucursales.Columns.Add("CveClienteSucursal", Type.GetType("System.Int32"))
- TempDTSucursales.Columns.Add("SucursalCliente", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("CiudadSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("ColoniaSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("CPSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("DireccionSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("LocalidadSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("EstadoSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("PaisSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("NumExtSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("NumIntSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("TelefonoSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("CorreoSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("CorreoCotiziacionSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("ContactoSucursal", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("NumCuenta", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("CveVendedorSucursal", Type.GetType("System.Int32"))
- TempDTSucursales.Columns.Add("CveUsuario", Type.GetType("System.Int32"))
- TempDTSucursales.Columns.Add("CveMetodoPago", Type.GetType("System.Int32"))
- TempDTSucursales.Columns.Add("FechaIng", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("LT", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add("LG", Type.GetType("System.String"))
- TempDTSucursales.Columns.Add()
-
- End If
- End Sub
-
- Private Sub AddSucursalTemp()
- Dim RowSucursal As DataRow = TempDTSucursales.NewRow()
- RowSucursal("CveClienteSucursal") = 1
- RowSucursal("SucursalCliente") = TxtNombreSucursal.Text.Trim
- RowSucursal("CiudadSucursal") = TxtCiudadSucursal.Text.Trim
- RowSucursal("ColoniaSucursal") = TxtColoniaSucursal.Text.Trim
- RowSucursal("CPSucursal") = TxtCPSucursal.Text.Trim
- RowSucursal("DireccionSucursal") = TxtDireccionSucursal.Text.Trim
- RowSucursal("LocalidadSucursal") = TxtLocalidadSucursal.Text.Trim
- RowSucursal("EstadoSucursal") = TxtEstadoSucursal.Text.Trim
- RowSucursal("PaisSucursal") = TxtPaisSucursal.Text.Trim
- RowSucursal("NumExtSucursal") = TxtNumExtSucursal.Text.Trim
- RowSucursal("NumIntSucursal") = TxtNumIntSucursal.Text.Trim
- RowSucursal("TelefonoSucursal") = TxtTelefonoSucursal.Text.Trim
- RowSucursal("CorreoSucursal") = TxtCorreoSucursal.Text.Trim
- RowSucursal("CorreoCotiziacionSucursal") = TxtCorreoSucursalCotizacion.Text.Trim
- RowSucursal("ContactoSucursal") = TxtContactoSucursal.Text.Trim
- RowSucursal("NumCuenta") = TxtNumeroCuenta.Text
- RowSucursal("CveVendedorSucursal") = DdlVendedorSucursal.SelectedValue.ToEntero
- RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero
- RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
- RowSucursal("FechaIng") = Now.ToShortDateString
- RowSucursal("Usuario") = UsuarioActual.Usuario
-
- RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero
- RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero
- RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero
-
- RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
- RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
-
- TempDTSucursales.Rows.Add(RowSucursal)
-
- GVSucursales.DataSource = TempDTSucursales
- GVSucursales.DataBind()
- UpDatos.Update()
- End Sub
-
- Private Sub BtnSendMail2_Click(sender As Object, e As EventArgs) Handles BtnSendMail2.Click
- Try
- If HdnCveVenta2.Value <> "-1" AndAlso HdnFolioVenta2.Value <> "-1" Then
-
- Dim ObjMail As New ClsSisMail()
- Dim Ruta As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
-
- Dim Cuerpo As String = TxtBody2.Text
- Dim Asunto As String = ""
- Dim TipoComprobante = ""
-
- If HdnTipoDocto2.Value.ToString = "Ing" Then TipoComprobante = "Factura"
- If HdnTipoDocto2.Value.ToString = "Egs" Then TipoComprobante = "Nota de Crédito"
- If HdnTipoDocto2.Value.ToString = "Dev" Then TipoComprobante = "Nota de Devolución"
- If HdnTipoDocto2.Value.ToString = "Rem" Then TipoComprobante = "Remisión"
- If HdnTipoDocto2.Value.ToString = "Cot" Then TipoComprobante = "Cotización"
- If HdnTipoDocto2.Value.ToString = "Ant" Then TipoComprobante = "Anticipo"
-
-
- Dim ObjVenta As New ClsVentas
- Dim Dr As DataRow = Nothing
- If ObjVenta.GetVenta(HdnCveVenta2.Value.ToEntero, UsuarioActual.CveEmpresa) Then
- If ObjVenta.DtResultados.Rows.Count > 0 Then
- Dr = ObjVenta.DtResultados.Rows(0)
- End If
- End If
- ObjVenta.Dispose()
-
- If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
- Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
- Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
- Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
- Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
- Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
- If Dr IsNot Nothing Then
- Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString.ToDate.ToShortDateString)
- Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString.FormatoNumero)
- Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString.ToDate.ToShortDateString)
- End If
- End If
-
-
- If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
- Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
- Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
- Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString)
- Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
- End If
-
- If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
- If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml") Then
- Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf"
- Dim XML As String = $"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml"
-
-
- Dim ResultadoMail As Integer = 0
- Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-
- LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
- LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = XML})
-
-
-
- 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
- If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
- ResultadoMail = 1
- TxtCC2.Text = ""
- TxtBody2.Text = ""
- RegistraScript("$('#ModalDivMail2').modal('hide');")
- Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
- CargaHistorial()
- 'UpnHistorial.Update()
- Else
- Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgError)
- ResultadoMail = 3
- End If
-
- Dim ObjVentas As New ClsVentas
- ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
- ObjVentas.Dispose()
- Else
- Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
- End If
- ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
- If File.Exists(Ruta & "PDF\" & HdnFolioVenta2.Value & ".pdf") Then
- Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta2.Value & ".pdf"
-
- Dim ResultadoMail As Integer = 0
- Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
- LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
-
- 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
- If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
- ResultadoMail = 1
- TxtCC2.Text = ""
- TxtBody2.Text = ""
- RegistraScript("$('#ModalDivMail2').modal('hide');")
- Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
- CargaHistorial()
- UpnHistorial.Update()
- Else
- ResultadoMail = 3
- End If
-
- Dim ObjVentas As New ClsVentas
- ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
- ObjVentas.Dispose()
- Else
- Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
- End If
- ElseIf HdnTipoDocto2.Value = "Cot" Then
- If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") Then
- Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf"
-
- Dim ResultadoMail As Integer = 0
- Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
- LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
-
- 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
- If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
- ResultadoMail = 1
- TxtCC2.Text = ""
- TxtBody2.Text = ""
- RegistraScript("$('#ModalDivMail2').modal('hide');")
- Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
- CargaHistorial()
- UpnHistorial.Update()
- Else
- ResultadoMail = 3
- End If
-
- Dim ObjVentas As New ClsVentas
- ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
- ObjVentas.Dispose()
- Else
- Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
- End If
- End If
-
- 'End If
- 'ObjEmprea.Dispose()
- Else
- Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
- End If
- Catch ex As Exception
- OnError("Ocurrió error al mandar MAIL", ex)
- Dim ObjVentas As New ClsVentas
- ObjVentas.UpdateVentaMail(3, HdnCveVenta2.Value.ToEntero)
- ObjVentas.Dispose()
- End Try
- End Sub
-
- Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
- If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
- Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
- If Dr IsNot Nothing Then
- If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
- DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString)
- End If
- End If
- End If
- End Sub
-
-#End Region
-
-#Region "G P S"
-
-
-
- Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
-
- Try
- Dim Para = TxtEmail.Text.Trim
- Dim Asunto = "ACTIVACIÓN DEL PORTAL GPS"
- Dim SBBody As New StringBuilder
- 'Linia de estilos
- SBBody.Append("")
- 'incio Cuerpo del correo
- SBBody.Append("
-
+
Guardar
Enviar Minuta
- Terminar y Enviar Minuta
+ Terminar y Enviar Minuta
+
-
- Moderador:
+
+
-
+
+ Moderador:
+
+
-
+
+
+
+
+
+ Participantes:
+
+
+
-
-
-
-
-
-
+
-
- Participantes:
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -695,6 +699,37 @@
+
+
@@ -409,8 +403,9 @@
+
+
-
+
+
<%--//OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara],
//OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng],
//OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance]--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Terminar y Agendar
+
+
+
+
+
+
+
+
+
+ ", drow["Archivo"].ToString()); HypArchivo.NavigateUrl = string.Format("~/OI/TareaDetalle.aspx?Archivo={0}&filename={1}", ModExtensiones.Encripta(string.Format("OIFiles\\{0}\\{1}", Folio, drow["Archivo"])), ModExtensiones.Encripta(drow["Archivo"].ToString())); TxtArchivo.Visible = (drow["Archivo"].ToString().Length == 0); portletArchivo.Visible = !TxtArchivo.Visible; - //LnkUpFile.Text = (portletArchivo.Visible ? " Actualizar archivo" : " Agregar archivo"); - //Literal3.Text = portletArchivo.Visible ? "Actualizar archivo" : "Agregar archivo"; - //BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar"; int CveUsuarioIng = drow["CveUsuarioIng"].ToString().ToEntero(); CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); int CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); - if (CveEventoEstatus ==4) + if (CveEventoEstatus == 4) { LnkEnviarMinuta.Visible = true; LnkSaveAcuerdos.Visible = false; @@ -135,13 +130,6 @@ public partial class OI_MinutaDetalle : ClsPaginas } hdnCveEventoEstatus.Value = CveEventoEstatus.ToString(); hdnCveEvento.Value = RCveEvento.ToString(); - //TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]); - //TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]); - //TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy}", drow["FechaIng"]); - //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], - //OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng], - //OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance] - StringBuilder StrDeUser = new StringBuilder(); StringBuilder StrCCPara = new StringBuilder(); ltlTituloPage.Text = drow["Asunto"].ToString(); @@ -181,7 +169,7 @@ public partial class OI_MinutaDetalle : ClsPaginas { int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); CheckBox ChkOk = gvRow.FCCheckBox("ChkOk"); - if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray
+
+
+
+
+
+
+
+ -
+
+
+
+
+
+
+
+
+
+ -
+
+
+
+
+
+
+
+
+
+
+ --%>
+ Lista de Pendientes
+ + + +
+
+
+
+
+
+
+
+ Agregar Tarea
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Agregar Tema
+
+
+
+
+
+ ")
- SBBody.Append("
") - SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") - SBBody.Append("
") - SBBody.AppendFormat("
ADSistemas ", UrlSitio)
- SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("
") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) - - SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("ALTA DE CUENTA")
- SBBody.Append("
")
- SBBody.Append("") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) - - SBBody.Append("
")
- SBBody.Append("
") - - SBBody.Append("
")
- SBBody.Append(" Datos de Usuario:
")
- SBBody.Append("")
- SBBody.Append("
") - - SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("
")
- SBBody.Append(" Dirección de Acceso
")
- SBBody.AppendFormat("", Liga)
- SBBody.Append("") - - SBBody.Append("
Usuario:
")
- SBBody.AppendFormat("{0}
", Usuario)
- SBBody.Append("") - - SBBody.Append("
")
- SBBody.Append("
")
-
-
- SBBody.Append(" Haga click para activar su cuenta
")
- SBBody.AppendFormat("", LigaActivar)
- SBBody.Append("") - SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") - SBBody.Append("
")
- SBBody.Append("Nota Favor de NO responder este correo. ")
- SBBody.Append("
") - SBBody.AppendFormat("
ADSistemas ")
- SBBody.Append("
")
- 'Termino Cuerpo del correo
-
- Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
- Hilo.Start()
- Alert("El correo de activación se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
- Catch ex As Exception
- OnError("Ocurrió error al mandar MAIL", ex)
- End Try
- End Sub
-
- Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
- Dim ObjClientes As New ClsClientes
-
- If ObjClientes.RegistrarCliente(CveCliente) Then
- RegistraScript("location.reload();")
- End If
-
- ObjClientes.Dispose()
- End Sub
-
-
-#End Region
-
-#Region "C O N T R A T O S"
- Private Sub CargaDatosContrato()
- If CveCliente <= 0 Then
- Exit Sub
- End If
-
- Dim ObjContratos As New ClsContratos
- If ObjContratos.GetReporteContratosAvancesCP(UsuarioActual.CveEmpresa, CveCliente, -1, -1, -1, -1, 1) Then
- GvDatosAvance.DataSource = ObjContratos.DtResultados
- Else
- Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError)
- End If
-
- If ObjContratos.GetReporteContratosAvancesCP(UsuarioActual.CveEmpresa, CveCliente, -1, -1, -1, -1, -2) Then
- GvContratosClienteInactivos.DataSource = ObjContratos.DtResultados
- Else
- Alert("Ocurrió un Error al obtener el Reporte de Avances Inactivos. Por favor vuelva a intentar", TipoMensaje.MsgError)
- End If
-
- ObjContratos.Dispose()
- GvDatosAvance.DataBind()
- UpContratosInactivos.DataBind()
-
-
- If GvDatosAvance.Rows.Count > 0 Or GvContratosClienteInactivos.Rows.Count > 0 Then
- TabContratos.Visible = True
- End If
- End Sub
-
- Private Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
- e.Row.Cells(0).Text = "Total:"
- e.Row.CssClass = "Totales white"
- End If
- End If
- End Sub
-
- Private Sub GvContratosClienteInactivos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratosClienteInactivos.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
- e.Row.Cells(0).Text = "Total:"
- e.Row.CssClass = "Totales white"
- End If
- End If
- End Sub
-
-#End Region
-
-#Region "M E T O D O S "
- Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
- CargaHistorial(TipoDocto:=RblTipo.SelectedValue)
- End Sub
- Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
- CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
- CargaHistorial(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
- CargaCxC(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
- CargaAnticipos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
- CargaBancos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
-
- UpDatos.Update()
- End Sub
- Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click
- 'Alert("Se Van a desativar todos o eliminar todos, junto con el Admin?")
- Dim ObjUsuario As New ClsSisUsuarios
- Dim ErrorUsuario As Boolean = False
-
- ObjUsuario.IniciaTransacSQL()
-
- For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosCliente"), DataTable).Rows
- 'se desactiva el usuario y se restablece la contraseña
- If Not ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then
- ErrorUsuario = True
- End If
- Next
-
- If ErrorUsuario Then
- ObjUsuario.RollBack()
- Else
- LblUsuarioActivo.Text = "No"
- HdnCveUsuarioPortalActivado.Value = "0"
- trEnviarActivacion.Visible = True
- trDesactivarUsuario.Visible = False
-
- 'DivPermisosPortal.Visible = False
-
- ObjUsuario.GetUsuariosPortal(-1, CveCliente, -1)
-
- ViewState("DTUsuariosCliente") = ObjUsuario.DtResultados
- GvUsuariosPortal.DataSource = ViewState("DTUsuariosCliente")
- GvUsuariosPortal.DataBind()
- 'divUsuariosPortal.Visible = False
-
- ObjUsuario.Commit()
- End If
-
- ObjUsuario.Dispose()
-
- If UsuarioActual.Empresa.CvePlataforma = 1 Then
- CargaUsuariosPortalCliente()
- End If
-
- UpGvUsuarios.Update()
- UPPUsuarios.Update()
-
- End Sub
- Private Sub AbonaaCuenta()
-
- 'si usa bancos, se va abrir el popupie para la recepci[on del pago
- Dim MsgError As String = ""
-
- Dim ObjMov As New ClsContabilidad
- ObjMov.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Cli", 2, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaPago.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
- If CvePrePoliza > 0 Then
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 2, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 4, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
-
- Else
- MsgError = "no se pudo insertar el detalle de la póliza2"
- End If
- Else
- MsgError = "no se pudo insertar el detalle de la póliza"
- End If
- Else
- MsgError = "No se pudo insertar la póliza"
- End If
-
- If MsgError = "" Then
- Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "window.opener.location.href = window.opener.location.href; window.close();")
- ObjMov.Commit()
-
- UpDatos.Update()
-
- Else
- ObjMov.RollBack()
- End If
- ObjMov.Dispose()
-
-
-
- End Sub
- Private Sub ChecaPermiteCredito()
- ' DivParametros.Disabled = Not ChkPermiteCredito.Checked
- 'For Each Control As Control In UpParametros.Controls
- ' Control.Visible = ChkPermiteCredito.Checked
- 'Next
-
- DivPortal.Visible = UsuarioActual.TienePermisoProceso(162)
-
- TxtLimiteCredito.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtPlazoCobranza.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtPlazoCobranzaRemision.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- DdlTipoPago.Enabled = UsuarioActual.TienePermisoProceso(162)
- DdlResponsable.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- ChkLunes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkMartes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkMiercoles.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkJueves.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkViernes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkSabado.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- ChkRevLunes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkRevMartes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkRevMiercoles.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkRevJueves.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkRevViernes.Enabled = UsuarioActual.TienePermisoProceso(162)
- ChkRevSabado.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- TxtDiasEspecifico.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtDocumentacion.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtCobranzaContacto.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtCobranzaTelefono.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtCobranzaExt.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtCobranzaCorreo.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtHorario.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- TxtPortalFacturacion.Enabled = UsuarioActual.TienePermisoProceso(162)
- TxtObsDiasRevision.Enabled = UsuarioActual.TienePermisoProceso(162)
-
- UpParametros.Update()
- End Sub
- Private Function NombreCuenta(Id As Integer) As String
- Dim Retorno As String = ""
-
- If UsuarioActual.Empresa.ServerContPAQi = "" Then Return ""
- Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
- If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
- Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
- End If
-
- Return Retorno
- End Function
- Private Sub SetValues()
- ViewState("Orden") = ""
- ViewState("OrdenUsuarios") = ""
- TxtFechaPago.Text = Now.ToShortDateString
- txtFechaI.Text = Now.ToShortDateString
- txtFechaF.Text = Now.ToShortDateString
- TxtFechaImportarSaldos.Text = Now.ToShortDateString
- TxtFechaIUsados.Text = Now.FirstDayOfMonth.ToShortDateString
- TxtFechaFUsados.Text = Now.LastDayOfMonth.ToShortDateString
- CobranzaTelefono = ""
- CodigoCliente = ""
-
- End Sub
-
- Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
- If TxtExcel.getfiles().Archivos.Count > 0 Then
- Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
- Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
- CargarArchivo(Directorio, file.filename, Tipo)
- Else
- Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
- End If
- End Sub
- Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
- Dim dt As New DataTable
- Dim Conexion As Odbc.OdbcConnection = Nothing
- Dim ErrorArchivo = False
- Try
- Select Case Tipo
- Case "CSV"
- Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
- Conexion.Open()
- Dim cmd = Conexion.CreateCommand()
- cmd.CommandType = CommandType.Text
- cmd.CommandText = $"SELECT * FROM [{FileName}]"
- Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
- DataAdapter.Fill(dt)
- Case "EXCEL"
- Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
- Conexion.Open()
- Dim cmd = Conexion.CreateCommand()
- cmd.CommandType = CommandType.Text
- cmd.CommandText = "SELECT * FROM [Hoja1$]"
- Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
- DataAdapter.Fill(dt)
- Case Else
- Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
- Exit Sub
- End Select
- Catch ex As Exception
- ErrorArchivo = True
- OnError("Ocurrio un error al leer el archivo ")
- SBBody.Append("
") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal GPS de: {0}
", UsuarioActual.Empresa.Empresa) - SBBody.Append("
") - SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") - SBBody.Append("
") - SBBody.AppendFormat("ADSistemas ", UrlSitio)
- SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("ALTA DE CUENTA")
- SBBody.Append("
")
- SBBody.Append("") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal GPS de: {0}
", UsuarioActual.Empresa.Empresa) - SBBody.Append("
")
- SBBody.Append("
")
- SBBody.Append("Datos de usuario
")
- SBBody.Append("")
-
- SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("
")
-
- SBBody.Append(" Dirección de Acceso
")
- SBBody.AppendFormat("", Liga)
- SBBody.Append("")
- SBBody.Append("
")
-
- SBBody.Append(" Clave
")
- SBBody.AppendFormat("{0}
", CveCliente)
- SBBody.Append("")
- SBBody.Append("
")
-
- SBBody.Append(" Usuario
")
- SBBody.AppendFormat("{0}
", "Admin")
- SBBody.Append("")
- SBBody.Append("
")
-
-
- SBBody.Append(" Haga click para activar su cuenta
")
- SBBody.AppendFormat("", LigaActivar)
- SBBody.Append("") - SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") - SBBody.Append("
")
- SBBody.Append("Nota Favor de NO responder este correo. ")
- SBBody.Append("
") - SBBody.AppendFormat("
ADSistemas " & ex.Message, ex) - End Try - Conexion.Close() - If Not ErrorArchivo Then - If Not dt.Columns(0).ColumnName = "SerieFolio" Then - Alert("El nombre de la primera columna debe ser 'SerieFolio'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dt.Columns(1).ColumnName = "Fecha" Then - Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dt.Columns(2).ColumnName = "Importe" Then - Alert("El nombre de la tercera columna debe ser 'Importe'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dt.Columns(3).ColumnName = "Saldo" Then - Alert("El nombre de la cuarta columna debe ser 'Saldo'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - Dim XmlStream As New System.IO.MemoryStream - dt.TableName = "Datos" - Dim ObjClientes As New ClsClientes - Dim writer As New System.IO.StringWriter - dt.WriteXml(writer) - If ObjClientes.GetVentasConciliacion(CveCliente, DataTableToXml(writer)) Then - ObjClientes.DtResultados.ExportToExcel("Resultados") - End If - ObjClientes.Dispose() - End If - End Sub - Private Function DataTableToXml(ByVal stream As System.IO.TextWriter) As String - Return stream.ToString() - End Function - Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoClientes.csv" - Dim Archivo As New FileInfo(Directorio) - If Archivo.Exists Then - Response.Clear() - Response.ClearHeaders() - Response.ClearContent() - Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) - Response.AddHeader("Content-Length", Archivo.Length.ToString()) - Response.ContentType = "text/plain" - Response.Flush() - Response.TransmitFile(Archivo.FullName) - Response.End() - End If - End Sub - Private Sub EnviaCorreo2(Liga As String, LigaActivar As String) - - Try - Dim Para = TxtCorreoUsuarioPortal.Text.Trim - Dim Asunto = "ACTIVACIÓN DEL PORTAL DE CLIENTE" - Dim SBBody As New StringBuilder - 'Linia de estilos - SBBody.Append("") - 'incio Cuerpo del correo - SBBody.Append("
")
- SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("
") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombreUsuarioPortal.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) - SBBody.Append("
") - - SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("ALTA DE CUENTA")
- SBBody.Append("
")
- SBBody.Append("") - SBBody.AppendFormat(" Estimado {0}:
", TxtNombreUsuarioPortal.Text.ToUpper) - SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) - SBBody.Append("
")
- SBBody.Append("
")
- SBBody.Append("Datos de usuario
")
- SBBody.Append("")
-
- SBBody.Append("
")
- SBBody.Append("")
- SBBody.Append("
")
-
- 'SBBody.Append(" Dirección de Acceso
")
- SBBody.AppendFormat("", Liga)
- SBBody.Append("")
- 'SBBody.Append("
")
-
- SBBody.Append(" Clave
")
- 'SBBody.AppendFormat("{0}
", CveCliente)
- 'SBBody.Append("")
- SBBody.Append("
")
-
- SBBody.Append(" Usuario
")
- SBBody.AppendFormat("{0}
", TxtCorreoUsuarioPortal.Text)
- SBBody.Append("")
- SBBody.Append("
")
-
-
- SBBody.Append(" Contraseña Predeterminada
")
- SBBody.AppendFormat("{0}
", ContraseñaPredeterminada)
- SBBody.Append("") - - SBBody.Append("
")
- SBBody.Append("
")
-
- SBBody.Append(" Haga click para activar su cuenta
")
- SBBody.AppendFormat("", LigaActivar)
- SBBody.Append("") - SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") - SBBody.Append("
")
- SBBody.Append("Nota Favor de NO responder este correo. ")
- SBBody.Append("
") - - SBBody.AppendFormat("
ADSistemas Con la cuenta contable: {0}", NewCuenta) + + Else + + ObjContaAC.RollBack() + ObjContaAC.Dispose() + Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError) + ObjClientes.Dispose() + Exit Sub + End If + ObjContaAC.Dispose() + End If + + 'Si tiene contabilizacion automatica y la funcionalidad de carga cuenta automatica o UsaAC le agregamos automaticamente una cuenta al cliente + If UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 Or UsuarioActual.Empresa.UsaAC) AndAlso DdlCtaContableClientes.SelectedValue.ToEntero < 1 Then + If Not AgregarCuentaContable(BtnActivaRegistroClientes, DdlCtaContableClientes) Then + ErrorProceso = True + End If + End If + + Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero + If UsuarioActual.Empresa.CvePlataforma = 3 Then + MetodoPago = 1 + End If + + + + + If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), + TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, + TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, + DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, + DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, + DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text, + TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, MetodoPago, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, + TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, + TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, + CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero, + CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), + CobranzaExt:=TxtCobranzaExt.Text, CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text, + DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, + CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, + CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), + ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then + + ViewState("CveCliente") = ObjClientes.CveCliente + + + 'For Each gvr As GridViewRow In GvDocsVentas.Rows + ' If gvr.FCCheckBox("ChkDoc").Checked Then + + ' objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate) + + ' End If + + 'Next + GuardarDocumentosClientes() + + If Not AsignaCuentasAutomaticas(ObjClientes) Then + ErrorProceso = True + End If + + For Each GVR As GridViewRow In GvImpuestosLocales.Rows + If GVR.FCCheckBox("ChkDeduccion").Checked Then + ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero) + End If + Next + + For Each Row As DataRow In TempDTSucursales.Rows + If Not CveCliente > 0 Then + If ObjClientes.AddSucursal(ObjClientes.CveCliente, Row("SucursalCliente").ToString, UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString, Row("ColoniaSucursal").ToString, Row("CPSucursal").ToString, Row("DireccionSucursal").ToString, Row("EstadoSucursal").ToString, Row("LocalidadSucursal").ToString, + Row("PaisSucursal").ToString, Row("NumExtSucursal").ToString, Row("NumIntSucursal").ToString, Row("TelefonoSucursal").ToString, Row("CorreoSucursal").ToString, Row("CorreoCotiziacionSucursal").ToString, Row("ContactoSucursal").ToString, + Row("CveVendedorSucursal").ToString.ToEntero, Row("NumCuenta").ToString, Row("CveMetodoPago").ToString.ToEntero, Row("LimiteCredito").ToString.ToDecimal, Row("CveResponsableCobranza").ToString.ToEntero, + Row("CveUsoCFDI").ToString.ToEntero, Row("CveFormaPago33").ToString.ToEntero, Row("CveMetodoPago33").ToString.ToEntero, LT:=Row("LT").ToString, LG:=Row("LG").ToString) Then + End If + End If + Next + + If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso Not ErrorProceso Then + Dim GPS As New ClsGPS + GPS.IniciaTransacSQL() + For Each GvRow As GridViewRow In GvDatos.Rows + If Not GPS.DispositivosClienteUpdate(GvRow.DataKey("CveDispositivo").ToString.ToEntero, ObjClientes.CveCliente) Then + ErrorProceso = True + End If + Next + If ErrorProceso Then + GPS.RollBack() + Else + GPS.Commit() + End If + End If + + + If ErrorProceso Then + ObjClientes.RollBack() + Else + ObjClientes.Commit() + + 'JM 05-02-19: CRM ASIGAN CLIENTE A EMPRESACRM + Dim MensajeCRM As String = "" + If CveEmpresaCRM > 0 Then + If VincularEmpresaCRM() Then + MensajeCRM = "
Se vinculo el cliente a la Empresa CRM" + Else + MensajeCRM = "
Ocurrio un error al vincular la Empresa CRM, intente unificar el Cliente." + End If + End If + + Alert("El Cliente se guardó correctamente." & MsgCuentaContable & MensajeCRM, TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatClientes.aspx""") + End If + End If + Else + + Dim NombreCliente As String = "" + + If TxtRFC.Text.Length = 13 AndAlso TxtApellidoPaterno.Text <> "" AndAlso TxtApellidoMaterno.Text <> "" AndAlso TxtNombres.Text <> "" Then + NombreCliente = ($"{TxtNombres.Text} {TxtApellidoPaterno.Text} {TxtApellidoMaterno.Text}").Trim() + Else + NombreCliente = TxtNombre.Text.Trim() + End If + + If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, + TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, + ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue, + DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, + DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text, + DdlMonedaExtranjeraClientes.SelectedValue.ToEntero, DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero, DdlMonedaExtranjeraAnticipos.SelectedItem.Text, + TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, DdlMetodoPago.SelectedValue.ToEntero, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, + ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario, + CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero, + CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text, + CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text, + DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, + AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, + CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), + ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), + ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), + RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then + + + ObjClientes.LimpiaImpuestosLocales(CveCliente) + + For Each GVR As GridViewRow In GvImpuestosLocales.Rows + If GVR.FCCheckBox("ChkDeduccion").Checked Then + ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero) + End If + Next + + GuardarDocumentosClientes() + + 'For Each gvr As GridViewRow In GvDocsVentas.Rows + ' 'sino está registrada y se selecciona, se va a insertar + ' If gvr.DataKey("CveDocumentacionElectronica").ToEntero <= 0 Then + ' objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate) + ' Else + ' ', Observacion2:=gvr.FCTextBox("TxtObs2").Text + ' objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").ToEntero, gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate) + ' End If + + ' 'si ya estaba registrada y no se selecciona, se va a insertar + ' If gvr.DataKey("CveDocumentacionElectronica").ToEntero > 0 AndAlso Not gvr.FCCheckBox("ChkDoc").Checked Then + ' objDoc.DocumentacionElectronicaRemove(gvr.DataKey("CveDocumentacionElectronica").ToEntero, -1) + ' End If + + 'Next + + ObjClientes.Commit() + + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + + If EstatusAnteriorCliente <> ChkEstado.Checked Then + + Dim DTVendedor As New DataTable + DTVendedor = GlobalDTVendedores(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" CveVendedor = " & DdlVendedor.SelectedValue.ToEntero) + + Dim ObjVendedores As New ClsVtaVendedores + Dim DtVendedores As DataTable = Nothing + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + DtVendedores = ObjVendedores.DtResultados + End If + ObjVendedores.Dispose() + + If DTVendedor.Rows.Count > 0 Then + Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString + Dim _CorreoAsistente As String = "" + Dim _CorreoCoordinador As String = "" + + Dim CveSuperior As Integer = DTVendedor(0)("CveSuperior").ToString.ToEntero + If DTVendedor.Rows.Count > 0 Then + _CorreoAsistente = DtVendedores.FiltroPrimeroValor("Correo", "CveSuperior = " & DdlVendedor.SelectedValue.ToEntero) + _CorreoCoordinador = DtVendedores.FiltroPrimeroValor("Correo", "CveVendedor = " & CveSuperior) + End If + + If (_CorreoVendedor.Length > 0 Or _CorreoAsistente.Length > 0 Or _CorreoCoordinador.Length > 0) And UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 Then + + Dim Asunto As String = "" + Dim Para As String = If(_CorreoVendedor.Length > 0, _CorreoVendedor & ";", "") & If(_CorreoAsistente.Length > 0, _CorreoAsistente & ";", "") & _CorreoCoordinador + Dim SBBody As New StringBuilder + + If ChkEstado.Checked Then + Asunto = "Activación de cliente " & TxtNombre.Text + SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del cliente {0} ha sido activado.", TxtNombre.Text)) + Else + Asunto = "Desactivación de cliente " & TxtNombre.Text + SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del cliente {0} ha sido desactivado.", TxtNombre.Text)) + End If + MandaCorreo(Asunto, Para + "", SBBody.ToString) + End If + End If + + End If + + CargaHistorial() + CargaDatos() + UpDatos.Update() + UpnHistorial.Update() + + End If + End If + ObjClientes.Dispose() + objDoc.Dispose() + RecargaGlobal() + End Sub + +#End Region + + +#Region "G L O B L A L" + Private Sub RecargaGlobal() + 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) + 'Hilo.Start() + GeneraGlobalDT() + End Sub + Private Sub GeneraGlobalDT() + GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing + 'Dim Objclientes As New ClsClientes + 'If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then + ' Application("GlobalDTCliente") = Objclientes.DtResultados + 'End If + 'Objclientes.Dispose() + End Sub +#End Region + + +#Region "G R I D V I E W S" + Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Dim HLSendMail As HtmlAnchor = DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor) + 'Dim HLRemision As HtmlAnchor = DirectCast(e.Row.FindControl("HLRemision"), HtmlAnchor) + + + e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + + + If e.Row.RowIndex = 0 Then + e.Row.BackColor = Drawing.Color.LightGray + HLSendMail.Visible = False + 'HLRemision.Visible = False + End If + + + 'If e.Row.RowIndex > 0 AndAlso e.Row.DBCampo("TipoDocto") <> "Rem" Then + ' HLRemision.Visible = False + 'ElseIf e.Row.RowIndex > 0 AndAlso e.Row.DBCampo("TipoDocto") = "Rem" AndAlso e.Row.DBCampo("CveVentaFacturada") <> String.Empty Then + ' HLRemision.Visible = False + 'End If + 'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}" + + Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta")) + HLSendMail.HRef = String.Format("javascript:$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto")) + e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio")) + + UpSendMail.Update() + End If + End Sub + Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowIndex = 1 Then + e.Row.Cells(0).Width = Unit.Pixel(60) + e.Row.Cells(1).Width = Unit.Pixel(120) + e.Row.Cells(2).Width = Unit.Pixel(70) + e.Row.Cells(3).Width = Unit.Pixel(80) + e.Row.Cells(4).Width = Unit.Pixel(80) + e.Row.Cells(5).Width = Unit.Pixel(90) + e.Row.Cells(6).Width = Unit.Pixel(90) + e.Row.Cells(7).Width = Unit.Pixel(90) + e.Row.Cells(8).Width = Unit.Pixel(80) + e.Row.Cells(9).Width = Unit.Pixel(70) + End If + + e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right + + If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red + If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red + If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = "" + If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = "" + + If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = "" + + If e.Row.DBCampo("CveVenta") <> "" Then + e.Row.FCHyperLink("LtlAux").NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=420&width=1000", CveCliente, e.Row.DBCampo("CveVenta")) + e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIEVentas.aspx?CveVenta={0}&TB_iframe=true&height=550&width=700", e.Row.DBCampo("CveVenta")) + e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio")) + Else + e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("SerieFolio") + e.Row.FCHyperLink("LtlAux").Visible = False + e.Row.BackColor = Drawing.Color.LightGray + e.Row.FCHyperLink("ImgAbonar").Visible = False + End If + + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 72) Then + e.Row.Cells(9).Visible = True + e.Row.Cells(9).Font.Bold = True + Dim OBjClientes As New ClsClientes + If OBjClientes.GetVisitasCobranza(-1, e.Row.DBCampo("CveVenta").ToEntero, -1) Then + If OBjClientes.DtResultados.Rows.Count > 0 Then + e.Row.FCLinkButton("ImgVisitas").Visible = True + GvVisitas.DataSource = OBjClientes.DtResultados + GvVisitas.DataBind() + Else + e.Row.FCLinkButton("ImgVisitas").Visible = False + End If + End If + OBjClientes.Dispose() + End If + + If UsuarioActual.TienePermisoProceso(100) And e.Row.DBCampo("CveVenta") <> "" Then + e.Row.FCHyperLink("ImgAbonar").Visible = True + Else + e.Row.FCHyperLink("ImgAbonar").Visible = False + End If + + End If + End Sub + Protected Sub GvCxCHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxCHistorial.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.RowIndex = 1 Then + e.Row.Cells(0).Width = Unit.Pixel(90) + e.Row.Cells(1).Width = Unit.Pixel(125) + e.Row.Cells(2).Width = Unit.Pixel(155) + e.Row.Cells(3).Width = Unit.Pixel(232) + e.Row.Cells(4).Width = Unit.Pixel(302) + e.Row.Cells(5).Width = Unit.Pixel(90) + e.Row.Cells(6).Width = Unit.Pixel(90) + e.Row.Cells(7).Width = Unit.Pixel(90) + End If + e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right + + If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red + If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red + If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = "" + If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = "" + If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = "" + + If e.Row.DBCampo("CveVenta") <> "" Then + e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio")) + Else + e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("SerieFolio") + e.Row.BackColor = Drawing.Color.LightGray + End If + + + End If + End Sub + Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound, GVAnticiposHistorial.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("ISTotal") = "1" Then + e.Row.FCLiteral("LtlFecha").Text = String.Format("Total {0} ", e.Row.DataKey("Tipo")) + e.Row.BackColor = Drawing.Color.LightGray + End If + + 'If e.Row.DataKey("Saldo").ToDouble < 0 Then e.Row.Cells(2).ForeColor = Drawing.Color.Red + 'If e.Row.DataKey("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAnticipos"), Literal).Text = "" + + If e.Row.RowIndex > -1 Then + If e.Row.DBCampo("Folio") = "N/D" Then + e.Row.FCLiteral("LtlFactura").Text = e.Row.DataKey("Folio") + Else + If e.Row.DataKey("CveIE").ToString.ToEntero > 0 Then + e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DataKey("CveIE"), e.Row.DataKey("Folio")) + Else + e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DataKey("CveVenta"), e.Row.DataKey("Folio")) + End If + End If + End If + + If UsuarioActual.TienePermisoProceso(247) Then + If CType(sender, GridView).ID = "GVAnticipos" And e.Row.DBCampo("CveVenta").ToEntero > 0 And e.Row.DBCampo("Tipo") = "NC" Then + Dim Parametros = Encripta($"CveVenta={e.Row.DBCampo("CveVenta").ToEntero}&SerieFolio={e.Row.DBCampo("Folio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveCliente={CveCliente}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}") + e.Row.FCHyperLink("HLDevolverDinero").Visible = True + e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinV&P={Parametros}" + End If + End If + + End If + End Sub +#End Region + +#Region "R H" + + Private Sub CargaPersonalAsignado() + Dim ObjPersonal As New ClsRH + If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then + GVPersonal.DataSource = ObjPersonal.DtResultados + Else + GVPersonal.DataSource = Nothing + End If + ObjPersonal.Dispose() + GVPersonal.DataBind() + End Sub + + Protected Sub GVPersonal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVPersonal.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowIndex = 0 Then + e.Row.Cells(0).Width = Unit.Pixel(70) + e.Row.Cells(1).Width = Unit.Pixel(300) + e.Row.Cells(2).Width = Unit.Pixel(80) + e.Row.Cells(3).Width = Unit.Pixel(80) + e.Row.Cells(4).Width = Unit.Pixel(120) + e.Row.Cells(5).Width = Unit.Pixel(120) + e.Row.Cells(6).Width = Unit.Pixel(60) + End If + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Left + + Dim Liga As String = "" + e.Row.FCLiteral("LtlCodigo").Text = Liga & e.Row.FCLiteral("LtlCodigo").Text & "" + e.Row.FCLiteral("LtlPersonal").Text = Liga & e.Row.FCLiteral("LtlPersonal").Text & "" + End If + End Sub + + Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click + Dim objpersonal As New ClsRH + If objpersonal.GetAsistencias(-1, CveCliente, -1, -1, -1, 1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then + GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL") + Else + GVAsistencia.DataSource = Nothing + End If + objpersonal.Dispose() + GVAsistencia.DataBind() + UpDatos.Update() + End Sub + + Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.RowIndex = 0 Then + e.Row.Cells(0).Width = Unit.Pixel(75) + e.Row.Cells(1).Width = Unit.Pixel(145) + e.Row.Cells(2).Width = Unit.Pixel(70) + e.Row.Cells(3).Width = Unit.Pixel(100) + e.Row.Cells(4).Width = Unit.Pixel(100) + e.Row.Cells(5).Width = Unit.Pixel(145) + e.Row.Cells(6).Width = Unit.Pixel(220) + End If + + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Left + + If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString + + If e.Row.DBCampo("SeModifico") = "0" Then + e.Row.BackColor = Drawing.Color.LightBlue + ElseIf e.Row.DBCampo("SeModifico") = "1" Then + e.Row.ForeColor = Drawing.Color.Red + End If + + End If + End Sub +#End Region + +#Region "S U C U R S A L E S" + Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click + ChkEstatusSucursal.Checked = True + DivEstatusSucursal.Visible = False + TxtNumeroCuenta.Text = "" + DdlMetodoPagoSucursal.SelectedIndex = 0 + UpAgregarSucursal.Update() + Me.CveClienteSuc = -1 + Me.Actualizar = False + txtLg.Text = "" + txtLt.Text = "" + HDMAPOP.Value = "2" + + UpModalDivMapa.Update() + + + RegistraScript("showDivEC();") + End Sub + Public Function CargaSucursalesCliente() As Boolean + Dim Retorno As Boolean = False + Dim ObjCliente As New ClsClientes + If ObjCliente.GetSucursales(CveCliente) Then + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + Retorno = True + Else + ViewState("DTSucursalesCliente") = Nothing + Me.GVSucursales.DataSource = Nothing + End If + + ObjCliente.Dispose() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + Return Retorno + End Function + Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click + Dim ObjCliente As New ClsClientes + + Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") + Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") + + If CveCliente > 0 Then + If Actualizar Then + + + Dim Estatus As Boolean = ChkEstatusSucursal.Checked + + + + If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, + TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero, + DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then + GVSucursales.EditIndex = -1 + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + End If + ObjCliente.Dispose() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + + Else + If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, + DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero, + DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then + TxtNombreSucursal.Text = "" + TxtCiudadSucursal.Text = "" + TxtColoniaSucursal.Text = "" + TxtCPSucursal.Text = "" + TxtDireccionSucursal.Text = "" + TxtEstadoSucursal.Text = "" + TxtLocalidadSucursal.Text = "" + TxtPaisSucursal.Text = "" + TxtNumExtSucursal.Text = "" + TxtNumIntSucursal.Text = "" + TxtTelefonoSucursal.Text = "" + TxtCorreoSucursal.Text = "" + TxtCorreoSucursalCotizacion.Text = "" + TxtContactoSucursal.Text = "" + DdlVendedorSucursal.SelectedIndex = 0 + DdlMetodoPagoSucursal.SelectedIndex = 0 + TxtNumeroCuenta.Text = "" + TxtLimiteCreditoSucursal.Text = "" + DdlResponsableSucursal.SelectedIndex = 0 + DdlSucursalUsoCFDI.SelectedIndex = 0 + DdlSucursalFormaPago33.SelectedIndex = 0 + DdlSucursalMetodoPago33.SelectedIndex = 0 + Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion) + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + End If + End If + + Else + AddSucursalTemp() + End If + + txtLg.Text = "" + txtLt.Text = "" + + UpModalDivMapa.Update() + + + UpAgregarSucursal.Update() + CargaDdlSucursalCliente() + ObjCliente.Dispose() + + Me.Actualizar = False + Me.CveClienteSuc = -1 + RegistraScript("hideDivEC();") + + End Sub + Protected Sub LnkAgragarDireccion_Click(sender As Object, e As EventArgs) + + txtLg.Text = "0" + txtLt.Text = "0" + + RegistraScript("muestraMapa();") + HDMAPOP.Value = "1" + + UpModalDivMapa.Update() + + End Sub +#Region "G V S U C U R S A L E S" + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowIndex = 0 Then + ' e.Row.Cells(0).Width = Unit.Pixel(150) + e.Row.Cells(1).Width = Unit.Pixel(40) + e.Row.Cells(2).Width = Unit.Pixel(40) + End If + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left + + + + If Not CveCliente > 0 Then + e.Row.Cells(3).Visible = False + End If + End If + + End Sub + + Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVSucursales.RowDeleting + Dim ObjCliente As New ClsClientes + + If CveCliente > 0 Then + If ObjCliente.RemoveSucursal(CveCliente, GVSucursales.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + GVSucursales.EditIndex = -1 + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + Alert("La Sucursal del Cliente se eliminó correctamente.", TipoMensaje.MsgInformacion) + End If + Else + TempDTSucursales.Rows.RemoveAt(e.RowIndex) + TempDTSucursales.AcceptChanges() + GVSucursales.DataSource = TempDTSucursales + GVSucursales.DataBind() + UpDatos.Update() + End If + + ObjCliente.Dispose() + End Sub + Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GVSucursales.RowCancelingEdit + GVSucursales.EditIndex = -1 + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + End Sub + Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GVSucursales.RowUpdating + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + + End Sub + Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing + + Me.Actualizar = True + Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero + + + Dim ObjCliente As New ClsClientes + + If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then + + DivEstatusSucursal.Visible = True + TxtNombreSucursal.Text = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString + ChkEstatusSucursal.Checked = If(ObjCliente.DtResultados.Rows(0)("Estatus").ToString = "Activo", True, False) + TxtCiudadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Ciudad").ToString + TxtColoniaSucursal.Text = ObjCliente.DtResultados.Rows(0)("Colonia").ToString + TxtCPSucursal.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString + TxtDireccionSucursal.Text = ObjCliente.DtResultados.Rows(0)("Direccion").ToString + TxtEstadoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString + TxtLocalidadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Localidad").ToString + TxtPaisSucursal.Text = ObjCliente.DtResultados.Rows(0)("Pais").ToString + TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString + TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString + TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString + TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString + TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString + TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString + DdlVendedorSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString) + DdlMetodoPagoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString) + TxtNumeroCuenta.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString + LblUsuarioSucursal.Text = String.Format("Usuario Registró: {0}", ObjCliente.DtResultados.Rows(0)("Usuario").ToString) + LblFechaSucursal.Text = String.Format("Fecha de Registro: {0}", ObjCliente.DtResultados.Rows(0)("FechaIng").ToString.ToDate.ToShortDateString) + TxtLimiteCreditoSucursal.Text = ObjCliente.DtResultados.Rows(0)("LimiteCredito").ToString.FormatoNumero + DdlResponsableSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveResponsableCobranza").ToString) + + DdlSucursalUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString) + DdlSucursalMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString) + DdlSucursalFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString) + + txtLg.Text = ObjCliente.DtResultados.Rows(0)("LG").ToString + txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString + HDMAPOP.Value = "2" + + + UpAgregarSucursal.Update() + UpModalDivMapa.Update() + + 'Dim scriptReg As String = $" SelTxtLat = '#{ GVSucursales.Rows(e.NewEditIndex).FCTextBox("txtLt").ClientID}'; SelTxtLon = '#{ GVSucursales.Rows(e.NewEditIndex).FCTextBox("txtLg").ClientID}''" + 'RegistraScript("$('#divAgregarSucursal').modal();" & scriptReg) + + RegistraScript("$('#divAgregarSucursal').modal();") + + Else + Alert("No se pudieron cargar los datos de la sucursal") + End If + + ObjCliente.Dispose() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + End Sub +#End Region + +#Region "G V U S U A R I O S P O R T A L" + Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand + If e.CommandName = "RestablecerContraseña" Then + Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero + Dim Usuario As New ClsSisUsuarios + If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then + Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("") + + If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, CveCliente, -1, cveUsuarioPortal, UsuarioActual.CveUsuario) Then + + GvUsuariosPortal.EditIndex = -1 + ViewState("DTUsuariosCliente") = Usuario.DtResultados.FiltraParametros("Usuario <> 'Admin'") + Alert("Contraseña Restablecida.
La nueva contraseña es: """ & ContraseñaPredeterminada & "", TipoMensaje.MsgInformacion) + End If + + End If + + Usuario.Dispose() + + End If + End Sub + + Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.RowIndex = 0 Then + ''e.Row.Cells(0).Width = Unit.Pixel(180) + ''e.Row.Cells(1).Width = Unit.Pixel(180) + ''e.Row.Cells(2).Width = Unit.Pixel(180) + + ''e.Row.Cells(3).Width = Unit.Pixel(50) + ''e.Row.Cells(4).Width = Unit.Pixel(50) + ''e.Row.Cells(5).Width = Unit.Pixel(50) + ''e.Row.Cells(6).Width = Unit.Pixel(50) + ''e.Row.Cells(7).Width = Unit.Pixel(50) + ''e.Row.Cells(8).Width = Unit.Pixel(50) + ''e.Row.Cells(9).Width = Unit.Pixel(50) + ''e.Row.Cells(10).Width = Unit.Pixel(50) + ''e.Row.Cells(11).Width = Unit.Pixel(50) + ''e.Row.Cells(12).Width = Unit.Pixel(45) + + ''e.Row.Cells(3).Width = Unit.Pixel(68) + ''e.Row.Cells(4).Width = Unit.Pixel(70) + ''e.Row.Cells(5).Width = Unit.Pixel(130) + End If + + If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then + If e.Row.DBCampo("Usuario") = "Admin" Then + + End If + End If + + End If + End Sub + + Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing + + GvUsuariosPortal.EditIndex = e.NewEditIndex + + If ViewState("OrdenUsuarios").ToString() <> String.Empty Then + CargaGrid(ViewState("OrdenUsuarios").ToString(), 1) + Else + CargaGrid("", 1) + End If + 'CargaUsuariosPortal() + + End Sub + + Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating + + Dim ObjUsuario As New ClsSisUsuarios + + Dim ErrorUsuario As Boolean = False + + Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex) + + Dim Nombre As String = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim + Dim Correo As String = gvr.FCTextBox("TxtCorreoUsuarioPortalEdit").Text.Trim + Dim Estatus As Boolean = gvr.FCCheckBox("ChkEstatus").Checked + Dim CveUsuario As Integer = gvr.DataKey("CveUsuario").ToEntero + Dim pCveCliente As Integer = gvr.DataKey("CveCliente").ToEntero + + Dim PermisoHistorialCompras As Boolean = gvr.FCCheckBox("ChkPermiso1").Checked + Dim PermisoCxP As Boolean = gvr.FCCheckBox("ChkPermiso2").Checked + Dim PermisoAnticipo As Boolean = gvr.FCCheckBox("ChkPermiso3").Checked + Dim PermisoRH As Boolean = gvr.FCCheckBox("ChkPermiso4").Checked + Dim PermisoOS As Boolean = gvr.FCCheckBox("ChkPermiso5").Checked + Dim PermisoCotiza As Boolean = gvr.FCCheckBox("ChkPermiso6").Checked + Dim PermisoSistema As Boolean = gvr.FCCheckBox("ChkPermiso7").Checked + + ObjUsuario.IniciaTransacSQL() + + If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", pCveCliente, -1, CveUsuario, UsuarioActual.CveUsuario) Then + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 229, PermisoHistorialCompras, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 230, PermisoCxP, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 231, PermisoAnticipo, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 232, PermisoOS, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 233, PermisoRH, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 234, PermisoSistema, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 235, PermisoCotiza, UsuarioActual.CveUsuario) Then ErrorUsuario = True + End If + + If ErrorUsuario Then + ObjUsuario.RollBack() + Else + ObjUsuario.Commit() + End If + + GvUsuariosPortal.EditIndex = -1 + + ObjUsuario.GetUsuariosPortal(-1, CveCliente, -1) + ViewState("DTUsuariosCliente") = ObjUsuario.DtResultados + + ObjUsuario.Dispose() + + If ViewState("OrdenUsuarios").ToString() <> String.Empty Then + CargaGrid(ViewState("OrdenUsuarios").ToString(), 1) + Else + CargaGrid("", 1) + End If + + End Sub + + Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting + + Dim Usuario As New ClsSisUsuarios + If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then + GvUsuariosPortal.EditIndex = -1 + ViewState("DTUsuariosCliente") = Usuario.DtResultados + End If + + Usuario.Dispose() + + If ViewState("OrdenUsuarios").ToString() <> String.Empty Then + CargaGrid(ViewState("OrdenUsuarios").ToString(), 1) + Else + CargaGrid("", 1) + End If + + End Sub + + Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit + + GvUsuariosPortal.EditIndex = -1 + + If ViewState("OrdenUsuarios").ToString() <> String.Empty Then + CargaGrid(ViewState("OrdenUsuarios").ToString(), 1) + Else + CargaGrid("", 1) + End If + + End Sub +#End Region + +#Region "O R D E N A M I E N T O" + Private Sub CargaGrid(Orden As String, gvi As Integer) + If gvi = 0 Then + If CType(ViewState("DTSucursalesCliente"), DataTable).Rows.Count > 0 Then + If Orden <> String.Empty Then + Dim DV As New DataView(CType(ViewState("DTSucursalesCliente"), DataTable), "", Orden, DataViewRowState.CurrentRows) + GVSucursales.DataSource = DV.ToTable() + DV.Dispose() + Else + GVSucursales.DataSource = CType(ViewState("DTSucursalesCliente"), DataTable) + End If + ViewState("Orden") = Orden + GVSucursales.DataBind() + UpDatos.Update() + End If + ElseIf gvi = 1 Then + If CType(ViewState("DTUsuariosCliente"), DataTable).Rows.Count > 0 Then + If Orden <> String.Empty Then + Dim DV As New DataView(CType(ViewState("DTUsuariosCliente"), DataTable), "", Orden, DataViewRowState.CurrentRows) + GvUsuariosPortal.DataSource = DV.ToTable() + DV.Dispose() + Else + GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosCliente"), DataTable) + End If + + End If + ViewState("OrdenUsuarios") = Orden + GvUsuariosPortal.DataBind() + UPPUsuarios.Update() + End If + + End Sub +#End Region + + +#End Region + +#Region "U S U A R I O S" + Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click + Dim ObjUsuario As New ClsSisUsuarios + Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero + Dim Usuario As String = TxtEmail.Text + Dim NomUsuario As String = "Admin" + Dim CorreoUsuario As String = TxtEmail.Text + Dim CvePlataforma As Integer = 6 + Dim ErrorUsuario As Boolean = True + 'DECLARAMOS PERMISOS DE ADMIN + Dim Permisos() As Integer = {234, 233, 232, 231, 230, 229} + + If Not CveCliente > 0 Then + Alert("Favor de guardar los datos del cliente antes de activar el Portal del Cliente.", TipoMensaje.MsgAdvertencia) + Return + End If + + ObjUsuario.IniciaTransacSQL() + + 'AGREGAMOS USUARIO ADMIN NUEVO + If CveUsr = 0 Then + 'CREA USUARIO + CveUsr = ObjUsuario.AddUsuarioPortal(Usuario, ContraseñaPredeterminadaEncriptada, NomUsuario, CorreoUsuario, CveCliente, -1, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveUsr > 0 Then + ' AGREGA PERMISO A MODULO PORTALCLIENTE + If ObjUsuario.UpdateUsuariosModulos(CveUsr, 1101, True, UsuarioActual.CveUsuario) Then + 'AGREGAMOS PERMISOS A ADMIN + For Each permiso In Permisos + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then + ErrorUsuario = True + Exit For + End If + ErrorUsuario = False + Next + If Not ErrorUsuario Then + HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString + trDesactivarUsuario.Visible = True + trEnviarActivacion.Visible = False + LblUsuarioActivo.Text = "Si" + 'DivPermisosPortal.Visible = False + End If + End If + End If + Else + 'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO + If ObjUsuario.UpdateUsuarioPortal(Usuario, "Admin", CorreoUsuario, True, ContraseñaPredeterminadaEncriptada, CveCliente, -1, CveUsr, UsuarioActual.CveUsuario) Then + + 'ACTUALIZAMOS PERMISOS A ADMIN + For Each permiso In Permisos + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then + ErrorUsuario = True + Exit For + End If + ErrorUsuario = False + Next + If Not ErrorUsuario Then + HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString + trDesactivarUsuario.Visible = True + trEnviarActivacion.Visible = False + LblUsuarioActivo.Text = "Si" + 'DivPermisosPortal.Visible = True + + End If + End If + End If + + 'VERIFICAMOS SI HUBO ERRORES + If ErrorUsuario Then + ObjUsuario.RollBack() + CveUsr = -1 + Else + ObjUsuario.Commit() + End If + + If CveUsr > 0 Then + 'ENVIA CORREO DE ACTIVACION + Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL) + Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx" + + If UsuarioActual.CveEmpresa = 43 Then + Liga = ObjParametro.Cadena1 & "AIMMGM/Portal.aspx" + End If + + Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) + + If UsuarioActual.Empresa.CvePlataforma = 3 Then + EnviaCorreoGPS(Liga, LigaActivar) + Else + EnviaCorreo(Liga, LigaActivar) + End If + + 'HABILITA Y ACTUALIZA SECCION AGREGAR NUEVOS USUARIOS + ObjUsuario.GetUsuariosPortal(-1, CveCliente, -1) + + ViewState("DTUsuariosCliente") = ObjUsuario.DtResultados + GvUsuariosPortal.DataSource = ViewState("DTUsuariosCliente") + GvUsuariosPortal.DataBind() + 'divUsuariosPortal.Visible = True + ObjUsuario.Dispose() + + If UsuarioActual.Empresa.CvePlataforma = 1 Then + CargaUsuariosPortalCliente() + End If + + UpGvUsuarios.Update() + UPPUsuarios.Update() + End If + End Sub + + Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click + Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL) + Dim ObjUsuario As New ClsSisUsuarios + + Dim Liga As String = ObjParametro.Cadena1 & "Login.aspx" + Dim CveUsuario = -1 + Dim CvePlataforma As Integer = 6 + Dim ErrorUsuario As Boolean = False + + If UsuarioActual.CveEmpresa = 43 Then + Liga = ObjParametro.Cadena1 & "AIMMGM/Portal.aspx" + End If + + Dim PermisoHistorialCompras As Boolean = ChkPermiso1.Checked + Dim PermisoCxP As Boolean = ChkPermiso2.Checked + Dim PermisoAnticipo As Boolean = ChkPermiso3.Checked + Dim PermisoRH As Boolean = ChkPermiso4.Checked + Dim PermisoOS As Boolean = ChkPermiso5.Checked + Dim PermisoCotiza As Boolean = ChkPermiso6.Checked + Dim PermisoSistema As Boolean = ChkPermiso7.Checked + + ObjUsuario.IniciaTransacSQL() + + CveUsuario = ObjUsuario.AddUsuarioPortal(TxtCorreoUsuarioPortal.Text, ContraseñaPredeterminadaEncriptada, TxtNombreUsuarioPortal.Text, TxtCorreoUsuarioPortal.Text, CveCliente, -1, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveUsuario > 0 Then + If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1101, True, UsuarioActual.CveUsuario) Then + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 229, PermisoHistorialCompras, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 230, PermisoCxP, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 231, PermisoAnticipo, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 232, PermisoOS, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 233, PermisoRH, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 234, PermisoSistema, UsuarioActual.CveUsuario) Then ErrorUsuario = True + If Not ObjUsuario.UpdateUsuariosProcesos(CveUsuario, 235, PermisoCotiza, UsuarioActual.CveUsuario) Then ErrorUsuario = True + End If + End If + + If ErrorUsuario Then + ObjUsuario.RollBack() + Else + ObjUsuario.Commit() + + Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) + EnviaCorreo2(Liga, LigaActivar) + + LimpiaAgregarUsuarioPortal() + + Alert("Usuario Creado.
El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'", TipoMensaje.MsgInformacion) + End If + + ObjUsuario.GetUsuariosPortal(-1, CveCliente, -1) + ViewState("DTUsuariosCliente") = ObjUsuario.DtResultados + + ObjUsuario.Dispose() + + If ViewState("OrdenUsuarios").ToString() <> String.Empty Then + CargaGrid(ViewState("OrdenUsuarios").ToString(), 1) + Else + CargaGrid("", 1) + End If + End Sub + + Protected Sub LimpiaAgregarUsuarioPortal() + TxtNombreUsuarioPortal.Text = "" + TxtCorreoUsuarioPortal.Text = "" + + ChkPermiso1.Checked = False + ChkPermiso2.Checked = False + ChkPermiso3.Checked = False + ChkPermiso4.Checked = False + ChkPermiso5.Checked = False + ChkPermiso6.Checked = False + ChkPermiso7.Checked = False + End Sub +#End Region + +#Region "E V E N T O - B I T A C O R A" + Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowIndex = 0 Then + e.Row.Cells(0).Width = Unit.Pixel(175) + e.Row.Cells(1).Width = Unit.Pixel(175) + e.Row.Cells(2).Width = Unit.Pixel(100) + e.Row.Cells(4).Width = Unit.Pixel(30) + End If + + If e.Row.DBCampo("Archivo").ToString <> "" Then + e.Row.FCLinkButton("LinkArchivo").Visible = True + e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString) + ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione + End If + + End If + End Sub + Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click + Dim ObjEventoBitacora As New ClsOIEventos + + Dim FileExtension As String = "-1" + Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos + Dim filemove As String = "" + + For Each fileItem As Archivo In filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + filemove = fileItem.filename + Next + + If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then + If filemove <> "" Then + filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa)) + End If + + GvEB.DataSource = ObjEventoBitacora.DtResultados + TxtEventoDescripcion.Text = "" + Anexo.Text = "[]" + Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion) + RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") + End If + ObjEventoBitacora.Dispose() + GvEB.DataBind() + + UPEventoBitacora.Update() + CargaEventoBitacora() + UPAddEventoBitacora.Update() + End Sub + Private Sub CargaEventoBitacora() + Dim ObjEventoBitacora As New ClsOIEventos() + If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)") + Else + GvEB.DataSource = Nothing + End If + ObjEventoBitacora.Dispose() + GvEB.DataBind() + End Sub + + Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs) + Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument) + Dim Archivo As New System.IO.FileInfo(filePath) + + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(filePath) + HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + + Archivo = Nothing + End Sub + + + Private Sub BtnCancelarSucursal_Click(sender As Object, e As EventArgs) Handles BtnCancelarSucursal.ServerClick + GvDatos_RowCancelingEdit(Nothing, Nothing) + End Sub + + Public Sub BtnAgregaCuentaContable(sender As Object, e As EventArgs) Handles BtnActivaRegistroClientes.Click, BtnActivaRegistroAnticipos.Click, BtnActivaRegistroIVA.Click, BtnActivaRegistroISR.Click + Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString + Dim Button = DirectCast(sender, Button) + Select Case CuentaContable + Case "Clientes" + AgregarCuentaContable(Button, DdlCtaContableClientes) + Case "Anticipos" + AgregarCuentaContable(Button, DdlCtaContableAnticipos) + Case "RetIVA" + AgregarCuentaContable(Button, DdlCtaContableRetIVA) + Case "RetISR" + AgregarCuentaContable(Button, DdlCtaContableRetISR) + End Select + + End Sub + + Private Function AgregarCuentaContable(btn As Button, ddl As DropDownList) As Boolean + Dim IdCuentaContable As Integer = -1 + Dim CtaCodigo As String = "" + Dim TieneError = False + Dim IdCtaContableClientes As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableRetIVA As Integer = -1, IdCtaContableRetISR As Integer = -1 + Dim ProcesoCorrecto As Boolean + + Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa) + + ObjContaAC.IniciaTransacSQL() + + Dim CuentaPadre = -1 + + Select Case btn.CommandArgument.ToString + Case "Clientes" + CuentaPadre = UsuarioActual.Empresa.Funcionalidad(211).ToEntero + Case "Anticipos" + CuentaPadre = UsuarioActual.Empresa.Funcionalidad(212).ToEntero + Case "RetIVA" + CuentaPadre = UsuarioActual.Empresa.Funcionalidad(213).ToEntero + Case "RetISR" + CuentaPadre = UsuarioActual.Empresa.Funcionalidad(214).ToEntero + + End Select + + 'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS + Dim NombreCuenta = If(TxtNombreComercial.Text.Trim.Length > 50, TxtNombreComercial.Text.Trim.Substring(0, 50), TxtNombreComercial.Text.Trim) + + IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, Tipo:="A", CuentaMayor:=2) + If IdCuentaContable > 0 Then + + ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) + Dim dt = ObjContaAC.DtResultados + + If dt.Rows.Count = 1 Then + + Dim row As DataRow = dt.Rows(0) + CtaCodigo = CStr(row("CtaCodigo")) + + Select Case btn.CommandArgument.ToString + Case "Clientes" + IdCtaContableClientes = IdCuentaContable + Case "Anticipos" + IdCtaContableAnticipos = IdCuentaContable + Case "RetIVA" + IdCtaContableRetIVA = IdCuentaContable + Case "RetISR" + IdCtaContableRetISR = IdCuentaContable + End Select + + + Dim ObjClientes As New ClsClientes + If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then + TieneError = True + End If + + ObjClientes.Dispose() + + Else + TieneError = True + End If + + Else + TieneError = True + End If + + If Not TieneError Then + ObjContaAC.Commit() + Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) + ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString) + btn.Visible = False + ddl.Width = 206 + ProcesoCorrecto = True + Else + ObjContaAC.RollBack() + Alert("error", TipoMensaje.MsgError) + ProcesoCorrecto = False + End If + + + ObjContaAC.Dispose() + UpFiscalContable.Update() + + + Return ProcesoCorrecto + End Function + + Private Sub ActivarRegistroAutomatico() + + 'Clientes + If DdlCtaContableClientes.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 Then + BtnActivaRegistroClientes.Visible = True + End If + + 'Anticipos + If DdlCtaContableAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(212).ToEntero > 0 Then + BtnActivaRegistroAnticipos.Visible = True + End If + + 'Ret IVA + If DdlCtaContableRetIVA.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(213).ToEntero > 0 Then + BtnActivaRegistroIVA.Visible = True + End If + + 'Ret ISR + If DdlCtaContableRetISR.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(214).ToEntero > 0 Then + BtnActivaRegistroISR.Visible = True + End If + + End Sub +#End Region + +#Region " I M P R I M I R P D F" + + Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs) + DdlTipoDocto.ClearSelection() + If ChkAntIXCNC.Checked Then + DdlTipoDocto.SelectedValuesIfExistM("Ing,Rem,Ant,Egs,IxC") + Else + DdlTipoDocto.SelectedValuesIfExistM("Ing,Rem") + End If + End Sub + Protected Sub LnkGenerarReporteCxC_Click(sender As Object, e As EventArgs) Handles LnkGenerarReporteCxC.Click + GenerarPDFCrystal(RBLGenerarReporteCxC.SelectedValue) + End Sub + + Protected Sub GenerarReporte(sender As Object, e As EventArgs) + GenerarRepCrystal("PDF") + End Sub + + Protected Sub GenerarReporteExcel(sender As Object, e As EventArgs) + GenerarRepCrystal("Excel") + End Sub + + Private Sub GenerarRepCrystal(Formato As String) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim params As New List(Of ReportParameter) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else params.Add(New ReportParameter("LogoPath", "")) - End If - ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) - + End If + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + + Dim ObjGPS As New ClsGPS + Dim tablaReporte As DataTable + If ObjGPS.DispositivosGet(-1, DdlEstatusDispositivos.SelectedValue.ToEntero(), CveCliente) Then + tablaReporte = ObjGPS.DtResultados + ImprimirPDF("Empresas/Grales/Formatos/EquiposGPS.rdlc", tablaReporte, params, "Equipo GPS", Formato) + Else + Alert("No hay lista de dispositivos para imprimir") + End If + + End Sub + + Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + 'OBTENEMOS LOS DATOS + + Dim DtCxCFact As DataTable = Nothing + + Dim FI = If(TxtFechaInicioCxP.Text = "" Or TxtFechaInicioCxP.Text = "__/__/____", "-1", TxtFechaInicioCxP.Text) + Dim FF = If(TxtFechaFinCxP.Text = "" Or TxtFechaFinCxP.Text = "__/__/____", "-1", TxtFechaFinCxP.Text) + + Dim SaldoIngDolares As Double = 0 + Dim SaldoIngPesos As Double = 0 + Dim SaldoIngDolaresPesos As Double = 0 + Dim TotalIng As Double = 0 + + Dim SaldoAntDolares As Double = 0 + Dim SaldoAntPesos As Double = 0 + Dim SaldoAntDolaresPesos As Double = 0 + Dim TotalAnt As Double = 0 + Dim ContaIng As Integer = 0 + Dim ContaAnt As Integer = 0 + Dim FechaCorte As Date = ("9999/01/01").ToDate + Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) + Dim TipoDocto2 As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM(True)) + Dim FechaVencimientoI As String = If(TxtFechaVICxP.Text = "", "-1", TxtFechaVICxP.Text).ToString + Dim FechaVencimientoF As String = If(TxtFechaVFCxP.Text = "", "-1", TxtFechaVFCxP.Text).ToString + + Dim ObjMovtos As New ClsMovimientos() + If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then + DtCxCFact = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("", "TipoDocto").Copy, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "TipoDocto")) + 'cargo los anticipos NC + DtCxCFact.Columns.Add("SaldoAnticipo", GetType(Decimal)) + + Dim dtt As DataTable = Nothing + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, -1, -1) Then + dtt = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("SaldoVentaAnticipo = 0 AND ((Tipo = 'IxC' AND CveIE > 0) OR (Tipo = 'Ant' AND CveVenta > 0) OR (Tipo = 'NC' AND CveVenta > 0) OR (Tipo = 'Egs' AND CveVenta > 0) )"), ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND SaldoVentaAnticipo = 0 AND ((Tipo = 'IxC' AND CveIE > 0) OR (Tipo = 'Ant' AND CveVenta > 0) OR (Tipo = 'NC' AND CveVenta > 0) OR (Tipo = 'Egs' AND CveVenta > 0) )")) ' que tenga saldo de anticipo y no de cliente + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + For Each drt As DataRow In dtt.Rows + Dim drr As DataRow = DtCxCFact.NewRow + + drr("TipoDocto") = drt("Tipo") + drr("SerieFolio") = drt("Folio") + drr("Original") = drt("Original") + drr("TipoCambio") = drt("TipoCambio") + drr("Saldo") = 0 + drr("SaldoAnticipo") = drt("Saldo") + drr("Fecha") = drt("Fecha") + drr("Moneda") = drt("Moneda") + drr("CveMoneda") = drt("CveMoneda") + DtCxCFact.Rows.Add(drr) + + Next + End If + + End If + + End If + ObjMovtos.Dispose() + + If DtCxCFact IsNot Nothing Then + For Each Row As DataRow In DtCxCFact.FiltraParametros($"TipoDocto IN ({TipoDocto2})").Rows + If Row("TipoDocto").ToString = "Ing" Or Row("TipoDocto").ToString = "Rem" Or (Row("TipoDocto").ToString = "Ant" And Row("Saldo").ToString.ToDouble > 0) Then 'Ingresos + ContaIng = ContaIng + 1 + If Row("CveMoneda").ToString.ToEntero = 1 Then + SaldoIngPesos = SaldoIngPesos + Row("Saldo").ToString.ToDouble + ElseIf Row("CveMoneda").ToString.ToEntero = 2 Then + SaldoIngDolares = SaldoIngDolares + Row("Saldo").ToString.ToDouble + SaldoIngDolaresPesos = SaldoIngDolaresPesos + (Row("Saldo").ToString.ToDouble * Row("TipoCambio").ToString.ToDouble) + End If + + ElseIf (Row("TipoDocto").ToString = "Ant" And Row("Saldo").ToString.ToDouble = 0) Or Row("TipoDocto").ToString = "IxC" Or Row("TipoDocto").ToString = "NC" Or Row("TipoDocto").ToString = "Dev" Then 'Anticipos, NC, IxC + ContaAnt = ContaAnt + 1 + If Row("CveMoneda").ToString.ToEntero = 1 Then + If Row("TipoDocto").ToString = "Dev" Then + SaldoAntPesos = SaldoAntPesos + Row("Saldo").ToString.ToDouble + Else + SaldoAntPesos = SaldoAntPesos + Row("SaldoAnticipo").ToString.ToDouble + End If + ElseIf Row("CveMoneda").ToString.ToEntero = 2 Then + SaldoAntDolares = SaldoAntDolares + Row("Saldo").ToString.ToDouble + SaldoAntDolaresPesos = SaldoAntDolaresPesos + (Row("SaldoAnticipo").ToString.ToDouble * Row("TipoCambio").ToString.ToDouble) + End If + End If + Next + End If + + TotalIng = SaldoIngPesos + SaldoIngDolaresPesos + TotalAnt = SaldoAntPesos + SaldoAntDolaresPesos + + Dim DtCxCFact2 As DataTable = DtCxCFact.FiltraParametros($"TipoDocto IN ({TipoDocto2})") + + 'INGRESOS + If SaldoIngPesos > 0 Then + Dim drr As DataRow = DtCxCFact2.NewRow + drr("SerieFolio") = "Total Ing Pesos" + drr("Original") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Original", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Abonado") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Abonado", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Saldo") = SaldoIngPesos + drr("CveMoneda") = 1 + DtCxCFact2.Rows.Add(drr) + End If + If SaldoIngDolares > 0 Then + Dim drr As DataRow = DtCxCFact2.NewRow + drr("SerieFolio") = "Total Ing Dólares" + drr("Original") = DtCxCFact2.FiltraParametros("CveMoneda = 2").SUM("Original", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Abonado") = DtCxCFact2.FiltraParametros("CveMoneda = 2").SUM("Abonado", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Saldo") = SaldoIngDolares + drr("CveMoneda") = 2 + DtCxCFact2.Rows.Add(drr) + End If + + 'ANTICIPOS + If SaldoAntPesos > 0 Then + Dim drr As DataRow = DtCxCFact2.NewRow + drr("SerieFolio") = "Total Pesos" + 'drr("Original") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Original", "TipoDocto IN ('IxC','Egs,'Dev') OR (TipoDocto = 'Ant' AND Saldo = 0)") + 'drr("Abonado") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Abonado", "TipoDocto IN ('IxC','Egs','Dev') OR (TipoDocto = 'Ant' AND Saldo = 0)") + drr("SaldoAnticipo") = SaldoAntPesos + drr("CveMoneda") = 1 + DtCxCFact2.Rows.Add(drr) + End If + If SaldoAntDolares > 0 Then + Dim drr As DataRow = DtCxCFact2.NewRow + drr("SerieFolio") = "Total Dólares" + ' drr("Original") = DtCxCFact2.FiltraParametros("CveMoneda = 2").SUM("Original", "TipoDocto IN ('IxC','Egs,'Dev') OR (TipoDocto = 'Ant' AND Saldo = 0)") + ' drr("Abonado") = DtCxCFact2.FiltraParametros("CveMoneda = 2").SUM("Abonado", "TipoDocto IN ('IxC','Egs,'Dev') OR (TipoDocto = 'Ant' AND Saldo = 0)") + drr("SaldoAnticipo") = SaldoAntDolares + drr("CveMoneda") = 2 + DtCxCFact2.Rows.Add(drr) + End If + + If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then + Dim dr As DataRow = DtCxCFact2.Rows(0) + Dim lista = New List(Of CrystalParametro) + lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) + lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) + lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) + lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) + lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) + lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text))) + lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text)) + lista.Add(New CrystalParametro("ClienteCiudad", TxtCiudad.Text)) + lista.Add(New CrystalParametro("ClienteRFC", TxtRFC.Text)) + lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text)) + lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text)) + lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text)) + lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - DtCxCFact2(0)("Saldo").ToString.ToDouble).FormatoNumero)) + + lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero)) + lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero)) + lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero)) + lista.Add(New CrystalParametro("ContaIng", ContaIng)) + lista.Add(New CrystalParametro("ContaAnt", ContaAnt)) + + + + If Imagen.Exists Then + lista.Add(New CrystalParametro("LogoPath", logouri)) + Else + lista.Add(New CrystalParametro("LogoPath", "")) + End If + + If ChkCobranzaEnviarCorreo.Checked Then + Try + Dim File As Byte() + If Archivo.Exists Then + File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato) + Else + File = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato) + End If + + Try + Dim Cuerpo As String = String.Format("Estimado cliente {0}, al presente del correo se anexa su estado actual de cartera en {1}.
+
+ Quedamos a sus ordenes para cualquier duda o aclaración con su agente de Ventas.
+
+
+ Gracias por la atención brindada al presente.
Reciba un cordial saludo.
+
+ ESTE CORREO SE GENERO EN FORMA AUTOMATICA.", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa) + Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True)) + Hilo.Start() + Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion) + Catch ex As Exception + Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgAdvertencia) + + End Try + + Catch ex As Exception + OnError("Ocurrió error al mandar MAIL de Orden de Compra", ex) + End Try + Else + If Archivo.Exists Then + ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) + Else + ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) + End If + + End If + Else + Dim lista = New List(Of CrystalParametro) + lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) + lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) + lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) + lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) + lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) + lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text))) + lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text)) + lista.Add(New CrystalParametro("ClienteCiudad", TxtCiudad.Text)) + lista.Add(New CrystalParametro("ClienteRFC", TxtRFC.Text)) + lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text)) + lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text)) + lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text)) + lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble).FormatoNumero)) + + lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero)) + lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero)) + lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero)) + lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero)) + lista.Add(New CrystalParametro("ContaIng", ContaIng)) + lista.Add(New CrystalParametro("ContaAnt", ContaAnt)) + + If Imagen.Exists Then + lista.Add(New CrystalParametro("LogoPath", logouri)) + Else + lista.Add(New CrystalParametro("LogoPath", "")) + End If + + Dim drr As DataRow = DtCxCFact2.NewRow + drr("SerieFolio") = "Total Ing Pesos" + drr("Original") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Original", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Abonado") = DtCxCFact2.FiltraParametros("CveMoneda = 1").SUM("Abonado", "TipoDocto IN ('Ing','Rem') OR (TipoDocto = 'Ant' AND Saldo > 0)") + drr("Saldo") = 0 + drr("SaldoAnticipo") = 0 + drr("CveMoneda") = 1 + DtCxCFact2.Rows.Add(drr) + + If Archivo.Exists Then + ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) + Else + ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) + End If + End If + End Sub + Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False) + + Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) + 'a.GuardaLog() + Dim Mail As New ClsSisMail() + + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoDeCuenta.pdf"}) + + Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail) + + If Envio AndAlso GuardarBitacora Then + Using ObjBitacora As New ClsOIEventos + ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente) + End Using + End If + + End Sub +#End Region + +#Region "E N V I O C O R R E O" + Private Sub EnviaCorreo(Liga As String, LigaActivar As String) + + Try + Dim Para = TxtEmail.Text.Trim + Dim Asunto = "ACTIVACIÓN DEL PORTAL DE CLIENTE" + Dim Usuario = TxtEmail.Text.Trim + + Dim SBBody As New StringBuilder + 'Linia de estilos + SBBody.Append("") + 'incio Cuerpo del correo + SBBody.Append("
")
+ SBBody.Append("
") + SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") + SBBody.Append("
") + SBBody.AppendFormat("ADSistemas ", UrlSitio)
+ SBBody.Append("
")
+ SBBody.Append("")
+ 'Termino Cuerpo del correo
+
+ Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
+ Hilo.Start()
+ Alert("El correo se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
+ Catch ex As Exception
+ OnError("Ocurrió error al mandar MAIL", ex)
+ End Try
+ End Sub
+
+
+ Private Sub MandaCorreo(Asunto As String, Para As String, Body As String)
+ Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
+ a.GuardaLog()
+ Dim Mail As New ClsSisMail()
+ Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
End Sub
-#End Region
+#End Region
-#Region "VENTAS"
+#Region " COTIZACIONES "
- Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
- Dim ObjVentas As New ClsVentas
- Dim Vta As Modelos.Factura = Nothing
+ Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
+ If BtnVerMasCot.Text = "Ver Más" Then
+ CargaCotizaciones(-1)
+ BtnVerMasCot.Text = "Ver Menos"
+ Else
+ CargaCotizaciones(21)
+ BtnVerMasCot.Text = "Ver Más"
+ End If
+ End Sub
+ Private Function CargaCotizaciones(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ Dim ObjClientes As New ClsClientes()
+ If ObjClientes.GetCotizaciones(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
+ If ObjClientes.DtResultados.Rows.Count > 0 Then
+ 'Carga Generales
+ LtlCantidadCotizaciones.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(2)
+ LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00")
+ 'Carga Grid
+ GvCot.DataSource = ObjClientes.DtResultados
+ DtCotizaciones = ObjClientes.DtResultados
+
+ If UsuarioActual.Empresa.UsaOS Then
+ GvCot.Columns(9).Visible = True
+ Else
+ GvCot.Columns(9).Visible = True
+ End If
+
+
+ Else
+ LtlCantidadCotizaciones.Text = "0"
+ LtlFactorCotVentas.Text = "0.00"
+ GvCot.DataSource = Nothing
+ DtCotizaciones = Nothing
+ End If
+ Else
+ GvCot.DataSource = Nothing
+ DtCotizaciones = Nothing
+ End If
+ ObjClientes.Dispose()
+ GvCot.DataBind()
+ Return Retorno
+ End Function
+ Protected Sub GVCotizaciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCot.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ Dim HLFacturar As HtmlAnchor = DirectCast(e.Row.FindControl("HLFacturarCot"), HtmlAnchor)
+
+
+ 'CABECERA
+ If e.Row.RowIndex = 0 Then
+ e.Row.BackColor = Drawing.Color.LightGray
+ DirectCast(e.Row.FindControl("HLSendMail2"), HtmlAnchor).Visible = False
+ e.Row.FindControl("HlOS").Visible = False
+ HLFacturar.Visible = False
+ End If
+
+ e.Row.FCLiteral("LtlCotizacion").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio"))
+ e.Row.FCLiteral("LtlFolioVenta").Text = String.Format("{1}", e.Row.DBCampo("CveVentaPadre"), e.Row.DBCampo("FolioVenta"))
+ DirectCast(e.Row.FindControl("HLSendMail2"), HtmlAnchor).HRef = String.Format("javascript:$get('HdnTipoDocto2').value='Cot';$get('HdnCveVenta2').value='{0}';$get('HdnFolioVenta2').value='{1}';$get('TxtParaMail2').value='{2}';$get('HdnSerieFolio2').value='{2}';$get('HdnSubProyecto2').value='{2}'; $('#ModalDivMail2').modal();", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
+
+
+
+ 'FACTURAR COTIZACION
+ If e.Row.DBCampo("FolioVenta") <> "" Then
+ HLFacturar.Visible = False
+ Else
+ HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
+ End If
+ End If
+ End Sub
+#End Region
- Dim TmpDTImpuestos = New DataTable
- TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
- TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
- TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
+#Region "D I R E C C I O N E N V I O "
+ Public Sub Edit_Click(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero
+ TxtEnvioDireccion.Text = GvRow.DataKey("EnvioDireccion")
+ TxtEnvioNoExt.Text = GvRow.DataKey("EnvioNoExt")
+ TxtEnvioNoInt.Text = GvRow.DataKey("EnvioNoInt")
+ TxtEnvioColonia.Text = GvRow.DataKey("EnvioColonia")
+ TxtEnvioCiudad.Text = GvRow.DataKey("EnvioCiudad")
+ TxtEnvioEstado.Text = GvRow.DataKey("EnvioEstado")
+ TxtEnvioContacto.Text = GvRow.DataKey("EnvioContacto")
+ 'TxtDepartamento.Text = GvRow.DataKey("EnvioDepartamento")
+ TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
+ TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
+ ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString = "True", True, False)
+ If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
+ UpAddDireccion.Update()
+ RegistraScript("$('#divAddDireccionEnvio').modal();")
+ End Sub
+ Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
+ Dim ObjClientes As New ClsClientes
+ Dim TieneError = False
+ Dim Estatus = If(ChkEstatus.Checked, 1, 0)
+
+ If CveDireccionEnvio < 0 Then
+ CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+
+ If CveDireccionEnvio < 0 Then
+ TieneError = True
+ End If
+ Else
+
+ If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
+ TieneError = True
+ End If
+
+ End If
+
+ If TieneError Then
+ Alert("Ocurrio un error al agregar/actualizar la dirección de envío", TipoMensaje.MsgError)
+ Else
+ RegistraScript("$('#divAddDireccionEnvio').modal('hide');")
+ CveDireccionEnvio = -1
+ CargaDireccionesEnvio()
+ End If
+ End Sub
+ Private Sub BtnAgregarDireccionModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccionModal.Click
+ TxtEnvioDireccion.Text = ""
+ TxtEnvioNoExt.Text = ""
+ TxtEnvioNoInt.Text = ""
+ TxtEnvioColonia.Text = ""
+ TxtEnvioCiudad.Text = ""
+ TxtEnvioEstado.Text = ""
+ TxtEnvioContacto.Text = ""
+ 'TxtDepartamento.Text = ""
+ TxtEnvioCP.Text = ""
+ TxtEnvioTel.Text = ""
+ DdlClienteSucursalEnvio.SelectedValue = "-1"
+ UpAddDireccion.Update()
+ RegistraScript("$('#divAddDireccionEnvio').modal();")
+ End Sub
+ Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDireccionesEnvio.RowDeleting
+ Dim ObjClientes As New ClsClientes
+ Dim TieneError = False
+
+ Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero
+
+ If Not ObjClientes.DireccionEnvioRemove(CveDireccionEnvio) Then
+ TieneError = True
+ End If
+
+ If Not TieneError Then
+ GvDireccionesEnvio.EditIndex = -1
+ Alert("Se eliminó correctamente la dirección de envío.", TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrió un error al eliminar la dirección de envío.", TipoMensaje.MsgAdvertencia)
+ End If
+
+ CargaDireccionesEnvio()
+ End Sub
- Dim TmpDTImpuestosIVAIEPS = New DataTable
- TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
- TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
- TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
- TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer))
+#End Region
- If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
- Dim dtVentas As DataTable = ObjVentas.DtResultados
+#Region " IMPORTAR SALDOS "
- ' se rellenan los campos de la factura
- Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)
+ Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
+ CargaClientesImportarSaldos()
+ RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
+ End Sub
+
+ Private Sub CargaClientesImportarSaldos()
+ DdlClienteImportarSaldos.setEsWebService(True) '(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+ 'DdlClienteImportarSaldos.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ 'DdlClienteImportarSaldos.DataBind()
+ UpImportarSaldos.Update()
+ 'DdlClienteImportarSaldos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+ Protected Sub BtnConsultarSaldoCliente_Click(sender As Object, e As EventArgs)
+ ConsultarAnticiposSaldosClientes()
+ End Sub
+ Private Sub ConsultarAnticiposSaldosClientes()
+ Dim ObjMovtos As New ClsMovimientos()
+ If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero) Then
+ GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND Saldo > 0 AND CveIE > 0")
+ Else
+ GvImportarSaldos.DataSource = Nothing
+ End If
+ ObjMovtos.Dispose()
+
+ TxtSaldoImportar.Text = ""
+
+ GvImportarSaldos.DataBind()
+ UpImportarSaldos.Update()
+ End Sub
+ Protected Sub BtnGuardarTransferencias_Click(sender As Object, e As EventArgs)
+ Dim EsValida = False
+
+ For Each Gvr As GridViewRow In GvImportarSaldos.Rows
+ If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
+ EsValida = True
+ End If
+ Next
+
+ If Not EsValida Then
+ Alert("El importe a importar de saldos debe ser mayor a cero. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ Dim ObjConta As New ClsContabilidad
+ ObjConta.IniciaTransacSQL()
+ Dim TieneError = False
+
+
+ Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Clientes/ImportarSaldos", 53, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaImportarSaldos.Text.ToDate, "Traspaso de saldos de anticipos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim IVA As Decimal = 0
+ Dim Importe As Decimal = 0
+ Dim ImporteAplicar As Decimal = 0
+ If CvePrePoliza > 0 Then
+ For Each Gvr As GridViewRow In GvImportarSaldos.Rows
+ If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
+
+ Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
+ IVA = Importe / Gvr.DataKey("Original").ToString.ToDecimal * Gvr.DataKey("IVA").ToString.ToDecimal 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
+ ImporteAplicar = -(Importe - IVA)
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, "Traspaso de saldos de anticipos", 92, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, "Traspaso de saldos de anticipos", 66, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
+ TieneError = True
+ End If
+ Else
+ TieneError = True
+ End If
+
+ If Not TieneError Then
+ If IVA > 0 Then
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, "Traspaso de saldos de anticipos.IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=-IVA) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, "Traspaso de saldos de anticipos. IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=IVA) Then
+ TieneError = True
+ End If
+ Else
+ TieneError = True
+ End If
+ End If
+ End If
+
+
+ End If
+ Next
+ Else
+ TieneError = True
+ End If
+
+
+ If Not TieneError Then
+ ObjConta.Commit()
+ Alert($"La importación de saldos se hizo correctamente.", TipoMensaje.MsgInformacion)
+ TxtSaldoImportar.Text = ""
+ ConsultarAnticiposSaldosClientes()
+ Else
+ ObjConta.RollBack()
+ Alert("Ocurrió un error al importar los saldos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+ End If
+
+ ObjConta.Dispose()
+ End Sub
+
+ Protected Sub GvImportarSaldos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvImportarSaldos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
+ e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
+ End If
+ End Sub
+#End Region
- Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
- 'se rellena la sucursal
- 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
- Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
- Vta.Cliente = New Modelos.ClienteModel
- Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
- Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
- Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
- Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
- Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
- Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
- Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
- Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
- Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
- Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
- Vta.AtencionA = dtVentas(0)("AtencionA").ToString
- Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
- Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
- Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
- Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
- Vta.RefDocto = dtVentas(0)("Ref").ToString
- Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
- Vta.Version = dtVentas(0)("Version").ToString
+#Region "Cuentas/Equipos"
+ Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
+ HdnModalidad.Value = "I"
+ DivCicloComercial.Visible = False
+ TxtIdentificador.Text = ""
+ TxtNoSerie.Text = ""
+ DdlTipoCuentaDetalle.SelectedIndex = 0
+ ChkAnticipo.Checked = False
+ PnlCicloComercial.Visible = False
+ CargaCuentasCaracteristicas()
+ UpBodyAgregarCuenta.Update()
+ UpDatos.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
+ End Sub
+ Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
+ Dim objCuentasEquipos As New ClsGenerales()
+ Dim TieneError = False
+ objCuentasEquipos.IniciaTransacSQL()
+
+ If HdnModalidad.Value = "I" Then
+ If Not objCuentasEquipos.AddCuentaEquipo(CveCliente, DdlTipoCuentaDetalle.SelectedValue.ToEntero, TxtIdentificador.Text.Trim, TxtNoSerie.Text.Trim, DdlClienteSucursal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ TieneError = True
+ End If
+
+ If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, objCuentasEquipos.CveCuentaEquipo, objCuentasEquipos) Then
+ TieneError = True
+ End If
+
+ ElseIf HdnModalidad.Value = "U" Then
+
+ If Not objCuentasEquipos.UpdateCuentaEquipo(TxtIdentificador.Text, TxtNoSerie.Text, True, DdlClienteSucursal.SelectedValue.ToEntero, CveCuentaEquipo) Then
+ TieneError = True
+ End If
+
+ If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, CveCuentaEquipo, objCuentasEquipos) Then
+ TieneError = True
+ End If
+
+ End If
+
+ If Not TieneError Then
+ objCuentasEquipos.Commit()
+ CargaCuentasEquipos()
+ TxtIdentificador.Text = ""
+ TxtNoSerie.Text = ""
+ DdlTipoCuentaDetalle.SelectedIndex = 0
+ ChkAnticipo.Checked = False
+ Alert("Se agregó/Actualizó correctamente la Cuenta/Equipo.", TipoMensaje.MsgInformacion)
+ UpBodyAgregarCuenta.Update()
+ Else
+ Alert("Ocurrió un erro al Agregar/Actualizar la Cuenta/Equipo.", TipoMensaje.MsgInformacion)
+ objCuentasEquipos.RollBack()
+ End If
+
+ objCuentasEquipos.Dispose()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarCuenta"))
+ UpDatos.Update()
+ End Sub
+ Private Sub ChkCicloComercial_CheckedChanged(sender As Object, e As EventArgs) Handles ChkCicloComercial.CheckedChanged
+ If ChkCicloComercial.Checked = True Then
+ PnlCicloComercial.Visible = True
+
+ DdlPS.Items.Clear()
+ DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+ DdlPS.DataBind()
+ DdlPS.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ Else
+ PnlCicloComercial.Visible = False
+ End If
+ End Sub
+ Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
+ Dim Objeto As New ClsGenerales
+ If Objeto.AddCuentaEquipoPS(DdlPS.SelectedValue.ToEntero, CveCuentaEquipo) Then
+ Alert("Se ha agregado correctamente.", TipoMensaje.MsgInformacion)
+ CargaGridPS()
+ End If
+ Objeto.Dispose()
+ End Sub
+ Private Sub CargaGridPS()
+ Dim Objeto As New ClsGenerales()
+ If Objeto.GetCuentaEquipoPS(CveCuentaEquipo) Then
+ GvPS.DataSource = Objeto.DtResultados
+ GvPS.DataBind()
+ Objeto.Dispose()
+ End If
+ UpDatos.Update()
+
+ End Sub
+ Public Sub imgE_Click(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Dim Objeto As New ClsGenerales()
+
+ HdnModalidad.Value = "U"
+ CveCuentaEquipo = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
+ TxtIdentificador.Text = GvRow.DataKey("CuentaEquipo")
+ TxtNoSerie.Text = GvRow.DataKey("NoSerie")
+ DdlTipoCuentaDetalle.SelectedValueExist(GvRow.DataKey("CveTipoCuentaEquipo"))
+ BtnGuardarCuenta.Text = "Guardar"
+ DivCicloComercial.Visible = True
+
+ If Objeto.GetCuentaEquipoPS(CveCuentaEquipo) Then
+ If Objeto.DtResultados.Rows.Count > 0 Then
+ GvPS.DataSource = Objeto.DtResultados
+ GvPS.DataBind()
+ ChkCicloComercial.Checked = True
+ PnlCicloComercial.Visible = True
+ DdlPS.Items.Clear()
+ DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+ DdlPS.DataBind()
+ DdlPS.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ Else
+ ChkCicloComercial.Checked = False
+ PnlCicloComercial.Visible = False
+ End If
+ End If
+
+ If Objeto.GetCaracteristicasValores(-1, -1, -1, -1, CveCuentaEquipo, -1, 6, UsuarioActual.CveEmpresa) Then
+ GvCuentasCaracteristicas.DataSource = Objeto.DtResultados
+ Else
+ GvCuentasCaracteristicas.DataSource = Nothing
+ End If
+ GvCuentasCaracteristicas.DataBind()
+ GvCuentasCaracteristicas.Visible = True
+ GvAddCuentaCaracteristica.Visible = False
+
+ UpDatos.Update()
+ UpBodyAgregarCuenta.Update()
+ UpAgregarCuenta.Update()
+ Objeto.Dispose()
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
+ End Sub
+ Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting
+ Dim Objeto As New ClsGenerales
+ Dim TieneError = False
+ If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+ Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion)
+ Else
+ TieneError = True
+ Alert("Error al eliminar la cuenta/equipo.", TipoMensaje.MsgError)
+ End If
+ Objeto.Dispose()
+ UpDatos.Update()
+ CargaCuentasEquipos()
+
+
+ End Sub
+ Public Sub GvPS_Delete(sender As Object, e As EventArgs)
+ Dim Objeto As New ClsGenerales
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+ Dim CveCtaEq As Integer = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
+ Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
+
+ If Objeto.RemoveCuentaEquipoPS(CvePS, CveCtaEq) Then
+ Alert("El PS se eliminó correctamente.", TipoMensaje.MsgInformacion)
+ Else
+ Alert("Error al eliminar el PS", TipoMensaje.MsgError)
+ End If
+
+ CargaGridPS()
+ UpDatos.Update()
+ Objeto.Dispose()
+ End Sub
+ Private Sub CargaCuentasCaracteristicas()
+ Dim ObjCaracteristicas As New ClsGenerales
+
+
+ If ObjCaracteristicas.GetCaracteristicas(-1, 6, UsuarioActual.CveEmpresa) Then
+ GvAddCuentaCaracteristica.DataSource = ObjCaracteristicas.DtResultados
+ Else
+ GvAddCuentaCaracteristica.DataSource = Nothing
+ End If
+ GvAddCuentaCaracteristica.DataBind()
+ GvAddCuentaCaracteristica.Visible = True
+ GvCuentasCaracteristicas.Visible = False
+
+ ObjCaracteristicas.Dispose()
+ End Sub
+ Private Sub GvCuentasCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCuentasCaracteristicas.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
+ Dim dtTemp As New DataTable
+ Dim objCaracteristicas As New ClsGenerales
+
+ Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
+ Dim CveCaracteristicaValor As Integer = e.Row.DataKey("CveCaracteristicaValor").ToEntero
+ Dim CveCaracteristicaOpcion As Integer = e.Row.DataKey("CveCaracteristicaOpcion").ToEntero
+ Dim CaracteristicaValor As String = e.Row.DataKey("CaracteristicaValor")
+ Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
+
+ Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
+ Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
+ Dim RdlCarcateristicaOpcion As RadioButtonList = e.Row.FCRadioButtonList("RdlCarcateristicaOpcion")
+ Dim chkCaracteristicaValor As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor")
+
+ Dim Requerido As Integer
+ If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
+ Requerido = 1
+ Else
+ Requerido = 0
+ End If
+
+ TxtCuentaValor.Visible = False
+ Dim RFVCuentaValor1 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("RFVCuentaValor1")
+ RFVCuentaValor1.Enabled = False
+
+ DdlCarcateristicaOpcion.Visible = False
+ Dim rfvDdlCarcateristicaOpcion1 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvDdlCarcateristicaOpcion1")
+ rfvDdlCarcateristicaOpcion1.Enabled = False
+
+ RdlCarcateristicaOpcion.Visible = False
+ Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion")
+ rfvRdlCarcateristicaOpcion.Enabled = False
+
+ Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas")
+ CalendarioCaractersiticas.Enabled = False
+
+ Dim _cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF")
+ _cvFechaF.Enabled = False
+
+ chkCaracteristicaValor.Visible = False
+
+ If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then
+ dtTemp = objCaracteristicas.DtResultados
+ End If
+
+ If CaracteristicaValor.Length > 0 Then
+ TxtCuentaValor.Text = CaracteristicaValor
+ End If
+
+ Select Case CveCaracteristicaTipo
+ Case 0
+ 'txt
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.MaxLength = Logitud
+ If Requerido = 1 Then
+ RFVCuentaValor1.Enabled = True
+ End If
+ Exit Select
+ Case 1
+ DdlCarcateristicaOpcion.Visible = True
+ dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
+ DdlCarcateristicaOpcion.DataSource = dtTemp
+ DdlCarcateristicaOpcion.DataBind()
+ DdlCarcateristicaOpcion.Items.Insert(0, New ListItem("-", "-1"))
+
+ If CveCaracteristicaValor <> -1 Then
+ DdlCarcateristicaOpcion.SelectedValueExist(CveCaracteristicaOpcion)
+ End If
+
+ If Requerido = 1 Then
+ rfvDdlCarcateristicaOpcion1.Enabled = True
+ End If
+ Exit Select
+ Case 2
+ 'radio
+ RdlCarcateristicaOpcion.Visible = True
+ dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
+ RdlCarcateristicaOpcion.DataSource = dtTemp
+ RdlCarcateristicaOpcion.DataBind()
+
+ If CveCaracteristicaValor <> -1 Then
+ RdlCarcateristicaOpcion.SelectedValuesIfExist(CveCaracteristicaOpcion.ToString)
+ End If
+
+ If Requerido = 1 Then
+ rfvRdlCarcateristicaOpcion.Enabled = True
+ End If
+ Exit Select
+ Case 3
+ 'Fecha txt Fecha
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.Width = 120
+ cvFechaF.Enabled = True
+ CalendarioCaractersiticas.Enabled = True
+ RegistraScript(" $('#" & TxtCuentaValor.ClientID & "').mask('00/00/0000'); ")
+ If Requerido = 1 Then
+ RFVCuentaValor1.Enabled = True
+ End If
+ Exit Select
+ Case 4
+ 'Multiline
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.MaxLength = Logitud
+ If Requerido = 1 Then
+ RFVCuentaValor1.Enabled = True
+ End If
+ Exit Select
+ Case 5
+ 'CheckBox
+ chkCaracteristicaValor.Visible = True
+ If CaracteristicaValor = "1" Then
+ chkCaracteristicaValor.Checked = True
+ Else
+ chkCaracteristicaValor.Checked = False
+ End If
+
+ Exit Select
+ Case 6
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.TextMode = TextBoxMode.Number
+
+ If Requerido = 1 Then
+ RFVCuentaValor1.Enabled = True
+ End If
+ Exit Select
+ End Select
+
+ objCaracteristicas.Dispose()
+ End If
+ End Sub
+ Private Sub GvAddCuentaCaracteristica_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAddCuentaCaracteristica.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
+ Dim dtTemp As New DataTable
+ Dim objCaracteristicas As New ClsGenerales
+
+ Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
+ Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
+
+ Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
+ Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
+ Dim RdlCarcateristicaOpcion2 As RadioButtonList = e.Row.FCRadioButtonList("RdlCarcateristicaOpcion2")
+ Dim chkCaracteristicaValor2 As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor2")
+
+ If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then
+ dtTemp = objCaracteristicas.DtResultados
+ End If
+
+ Dim Requerido As Integer
+ If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
+ Requerido = 1
+ Else
+ Requerido = 0
+ End If
+
+ TxtCuentaValor.Visible = False
+ Dim RFVCuentaValor2 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("RFVCuentaValor2")
+ RFVCuentaValor2.Enabled = False
+
+ DdlCarcateristicaOpcion.Visible = False
+ Dim rfvDdlCarcateristicaOpcion2 As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvDdlCarcateristicaOpcion2")
+ rfvDdlCarcateristicaOpcion2.Enabled = False
+
+ RdlCarcateristicaOpcion2.Visible = False
+ Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2")
+ rfvRdlCarcateristicaOpcion.Enabled = False
+
+ Dim cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF2")
+ cvFechaF.Enabled = False
+
+ Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas1")
+ CalendarioCaractersiticas.Enabled = False
+
+ chkCaracteristicaValor2.Visible = False
+
+ Select Case CveCaracteristicaTipo
+ Case 0
+ TxtCuentaValor.Visible = True
+ Exit Select
+ Case 1
+ DdlCarcateristicaOpcion.Visible = True
+ dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
+ DdlCarcateristicaOpcion.DataSource = dtTemp
+ DdlCarcateristicaOpcion.DataBind()
+ DdlCarcateristicaOpcion.Items.Insert(0, New ListItem("-", "-1"))
+
+ If Requerido = 1 Then
+ rfvDdlCarcateristicaOpcion2.Enabled = True
+ End If
+
+ Exit Select
+ Case 2
+ 'radio
+ RdlCarcateristicaOpcion2.Visible = True
+ dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & CveCaracteristica)
+ RdlCarcateristicaOpcion2.DataSource = dtTemp
+ RdlCarcateristicaOpcion2.DataBind()
+
+ If Requerido = 1 Then
+ rfvRdlCarcateristicaOpcion.Enabled = True
+ End If
+ Exit Select
+ Case 3
+ 'Fecha txt Fecha
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.Width = 120
+ cvFechaF.Enabled = True
+ CalendarioCaractersiticas.Enabled = True
+ RegistraScript(" $('#" & TxtCuentaValor.ClientID & "').mask('00/00/0000'); ")
+
+ If Requerido = 1 Then
+ RFVCuentaValor2.Enabled = True
+ End If
+ Exit Select
+ Case 4
+ 'Multiline
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.MaxLength = Logitud
+
+ If Requerido = 1 Then
+ RFVCuentaValor2.Enabled = True
+ End If
+ Exit Select
+ Case 5
+ 'CheckBox
+ chkCaracteristicaValor2.Visible = True
+ Exit Select
+ Case 6
+ TxtCuentaValor.Visible = True
+ TxtCuentaValor.TextMode = TextBoxMode.Number
+
+ If Requerido = 1 Then
+ RFVCuentaValor2.Enabled = True
+ End If
+ Exit Select
+ End Select
+ objCaracteristicas.Dispose()
+ End If
+ End Sub
+ Private Function GuardaCaracteristicas(Modalidad As String, CveCuentaEquipo As Integer, ByRef ObjCarac As ClsGenerales) As Boolean
+ Dim Retorno = False
+
+ If Modalidad.ToString = "I" Then
+ For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows
+ Dim CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
+ Dim CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
+
+ Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
+ Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
+ Dim _RdlCarcateristicaOpcion As RadioButtonList = gvr.FCRadioButtonList("RdlCarcateristicaOpcion2")
+ Dim _chkCaracteristicaValor As CheckBox = gvr.FCCheckBox("chkCaracteristicaValor2")
+
+ Dim CveCaracteristicaOpcion As Integer = -1
+ Dim CaracteristicaValor As String = ""
+ Dim CaracteristicaValorDate As Date = Now
+ Dim CaracteristicaValorInt As Integer = -1
+
+ Dim AgregaCaracteristica As Boolean = False
+
+ Select Case CveCaracteristicaTipo
+ Case 0
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text
+
+ If CaracteristicaValor.Trim.Length > 0 Then
+ AgregaCaracteristica = True
+ Else
+ AgregaCaracteristica = False
+ End If
+ Exit Select
+ Case 1
+ 'drop
+ CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
+
+ If CveCaracteristicaOpcion > 0 Then
+ AgregaCaracteristica = True
+ Else
+ AgregaCaracteristica = False
+ End If
+ Exit Select
+ Case 2
+ 'radio
+ CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
+
+ If CveCaracteristicaOpcion > 0 Then
+ AgregaCaracteristica = True
+ Else
+ AgregaCaracteristica = False
+ End If
+ Exit Select
+ Case 3
+ 'Fecha txt Fecha
+ If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
+ CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
+ CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
+
+ If CaracteristicaValor.Trim.ToDate.ToString("dd/MM/yyyy").ToString.Length > 0 Then
+ AgregaCaracteristica = True
+ Else
+ AgregaCaracteristica = False
+ End If
+ Else
+ AgregaCaracteristica = False
+ End If
+ Case 4
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text
+
+ If CaracteristicaValor.Trim.Length > 0 Then
+ AgregaCaracteristica = True
+ Else
+ AgregaCaracteristica = False
+ End If
+ Exit Select
+ Case 5
+ 'CheckBox
+ If _chkCaracteristicaValor.Checked Then
+ CaracteristicaValor = "1"
+ Else
+ CaracteristicaValor = "0"
+ End If
+ AgregaCaracteristica = True
+ Exit Select
+ Case 6
+ 'txt numerico
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
+
+ AgregaCaracteristica = True
+ Exit Select
+ End Select
+
+ If AgregaCaracteristica Then
+ If ObjCarac.AddUpdateCaracteristicasValores(CveCaracteristica, CveCaracteristicaOpcion, CaracteristicaValor, UsuarioActual.CveUsuario, CveCuentaEquipo:=CveCuentaEquipo) Then
+ Retorno = True
+ Else
+ Exit For
+ End If
+ End If
+ Next
+ ElseIf Modalidad.ToString = "U" Then
+ For Each gvr As GridViewRow In GvCuentasCaracteristicas.Rows
+ Dim _CaracteristicaValor As Integer = gvr.DataKey("CaracteristicaValor").ToEntero
+ Dim _CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
+ Dim _CveCaracteristicaValor As Integer = gvr.DataKey("CveCaracteristicaValor").ToEntero
+ Dim _CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
+
+ Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
+ Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
+ Dim _RdlCarcateristicaOpcion As RadioButtonList = gvr.FCRadioButtonList("RdlCarcateristicaOpcion")
+ Dim _chkCaracteristicaValor As CheckBox = gvr.FCCheckBox("chkCaracteristicaValor")
+
+ Dim CveCaracteristicaOpcion As Integer = -1
+ Dim CaracteristicaValor As String = ""
+ Dim CaracteristicaValorDate As Date = Now
+ Dim CaracteristicaValorInt As Integer = -1
+
+ Select Case _CveCaracteristicaTipo
+ Case 0
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text
+ Exit Select
+ Case 1
+ 'drop
+ CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
+ Exit Select
+ Case 2
+ 'radio
+ CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
+ Exit Select
+ Case 3
+ 'Fecha txt Fecha
+ If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
+ CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
+ CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
+ Exit Select
+ End If
+ Case 4
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text
+ Exit Select
+ Case 5
+ 'CheckBox
+ If _chkCaracteristicaValor.Checked Then
+ CaracteristicaValor = "1"
+ Else
+ CaracteristicaValor = "0"
+ End If
+ Exit Select
+ Case 6
+ 'txt numerico
+ 'txt
+ CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
+ Exit Select
+ End Select
+
+ If ObjCarac.AddUpdateCaracteristicasValores(_CveCaracteristica, CveCaracteristicaOpcion, CaracteristicaValor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=_CveCaracteristicaValor, CveCuentaEquipo:=CveCuentaEquipo) Then
+ Retorno = True
+ Else
+ Exit For
+ End If
+ Next
+ End If
+
+ Return Retorno
+ End Function
+#End Region
- Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
- Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
- Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")
+#Region "GPS"
+ Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
+ If hdnArrayDispositivo.Value.Length > 0 Then
+ CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
+ End If
+ End Sub
+ Protected Sub DdlEstatusDispositivos_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
+ End Sub
+ Private Sub CargaDispositivos(Optional Estatus As Integer = 1)
+ Dim ObjGPS As New ClsGPS
+ If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
+ GvDatos.DataSource = ObjGPS.DtResultados
+ Else
+ GvDatos.DataSource = Nothing
+ End If
+ ObjGPS.Dispose()
+ GvDatos.DataBind()
+ UpDispositivos.Update()
+ End Sub
+ Private Sub CargaGlobalDispositos()
+ Dim ObjGPS As New ClsGPS
+
+ If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
+ GlobalDTDispositivos(-1) = ObjGPS.DtResultados
+ End If
+
+ If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
+ GlobalDTDispositivosUsuarios(-1, -1) = ObjGPS.DtResultados
+ End If
+
+ ObjGPS.Dispose()
+ End Sub
+ Protected Sub GvDispositivos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ e.Row.VerticalAlign = VerticalAlign.Middle
+ If e.Row.DBCampo("Estatus").ToString.ToEntero = 1 Then
+ e.Row.FCLabel("LblEstatus").Text = "Activo"
+ e.Row.FCLabel("LblEstatus").CssClass = "label label-success"
+ Else
+ e.Row.FCLabel("LblEstatus").Text = "Inactivo"
+ e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
+ End If
+ e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
+ End If
+ End Sub
+
+ Protected Sub GvDispositivos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+ Dim GPS As New ClsGPS
+ Dim CveDispositivo As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveDispositivo").ToEntero
+ If GPS.DispositivosDelete(CveDispositivo) Then
+ Alert("El Dispositivo se eliminó correctamente", TipoMensaje.MsgInformacion)
+ End If
+ GPS.Dispose()
+ CargaDispositivos()
+ CargaGlobalDispositos()
+ UpDispositivos.Update()
+ End Sub
+ Private Sub CargaEmpresasUsuario(CveEmpresa As Integer)
+ Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+
+ If Dt IsNot Nothing Then
+ If Dt.Rows.Count > 0 Then
+ DdlEmpresaDispositivo.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
+
+ If DdlEmpresaDispositivo.SelectedValue.ToEntero() <= 0 Then
+ DdlEmpresaDispositivo.SelectedValueExist(CveEmpresa)
+ End If
+
+ DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
+
+ DdlEmpresaDispositivo.DataBind()
+ DdlClienteDispositivo.DataBind()
+
+ DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End If
+ End If
+
+ End Sub
+ Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
+ Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+
+ If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
+ DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
+ DdlClienteDispositivo.DataBind()
+
+ DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End If
+ End Sub
+ Protected Sub DdlEmpresaDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaClienteDispositivos(DdlEmpresaDispositivo.SelectedValue.ToEntero())
+ End Sub
+
+
+ Protected Sub ImgMoverDispositivo_Click(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Me.NombreDispositivo = GvRow.DataKey("Display")
+ HTituloDispostivo.InnerText = $"Mover Dispositivo: {NombreDispositivo}"
+
+ UpMoverDispositivo.Update()
+ RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
+
+ End Sub
- Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
- 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
+#End Region
- Vta.ClienteSucursal = New Modelos.SucursalModel
- Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
- Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
- Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
- Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
- Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
- Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
- Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
- Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
- Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
- Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
- Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
- Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
- Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString
+#Region "Sucursales"
+ Public Sub CreaDTSucursales()
+
+ If Not CveCliente > 0 Then
+
+ TempDTSucursales = New DataTable
+ TempDTSucursales.Columns.Add("CveClienteSucursal", Type.GetType("System.Int32"))
+ TempDTSucursales.Columns.Add("SucursalCliente", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("CiudadSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("ColoniaSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("CPSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("DireccionSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("LocalidadSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("EstadoSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("PaisSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("NumExtSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("NumIntSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("TelefonoSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("CorreoSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("CorreoCotiziacionSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("ContactoSucursal", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("NumCuenta", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("CveVendedorSucursal", Type.GetType("System.Int32"))
+ TempDTSucursales.Columns.Add("CveUsuario", Type.GetType("System.Int32"))
+ TempDTSucursales.Columns.Add("CveMetodoPago", Type.GetType("System.Int32"))
+ TempDTSucursales.Columns.Add("FechaIng", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("LT", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add("LG", Type.GetType("System.String"))
+ TempDTSucursales.Columns.Add()
+
+ End If
+ End Sub
+
+ Private Sub AddSucursalTemp()
+ Dim RowSucursal As DataRow = TempDTSucursales.NewRow()
+ RowSucursal("CveClienteSucursal") = 1
+ RowSucursal("SucursalCliente") = TxtNombreSucursal.Text.Trim
+ RowSucursal("CiudadSucursal") = TxtCiudadSucursal.Text.Trim
+ RowSucursal("ColoniaSucursal") = TxtColoniaSucursal.Text.Trim
+ RowSucursal("CPSucursal") = TxtCPSucursal.Text.Trim
+ RowSucursal("DireccionSucursal") = TxtDireccionSucursal.Text.Trim
+ RowSucursal("LocalidadSucursal") = TxtLocalidadSucursal.Text.Trim
+ RowSucursal("EstadoSucursal") = TxtEstadoSucursal.Text.Trim
+ RowSucursal("PaisSucursal") = TxtPaisSucursal.Text.Trim
+ RowSucursal("NumExtSucursal") = TxtNumExtSucursal.Text.Trim
+ RowSucursal("NumIntSucursal") = TxtNumIntSucursal.Text.Trim
+ RowSucursal("TelefonoSucursal") = TxtTelefonoSucursal.Text.Trim
+ RowSucursal("CorreoSucursal") = TxtCorreoSucursal.Text.Trim
+ RowSucursal("CorreoCotiziacionSucursal") = TxtCorreoSucursalCotizacion.Text.Trim
+ RowSucursal("ContactoSucursal") = TxtContactoSucursal.Text.Trim
+ RowSucursal("NumCuenta") = TxtNumeroCuenta.Text
+ RowSucursal("CveVendedorSucursal") = DdlVendedorSucursal.SelectedValue.ToEntero
+ RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero
+ RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
+ RowSucursal("FechaIng") = Now.ToShortDateString
+ RowSucursal("Usuario") = UsuarioActual.Usuario
+
+ RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero
+ RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero
+ RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero
+
+ RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
+ RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
+
+ TempDTSucursales.Rows.Add(RowSucursal)
+
+ GVSucursales.DataSource = TempDTSucursales
+ GVSucursales.DataBind()
+ UpDatos.Update()
+ End Sub
+
+ Private Sub BtnSendMail2_Click(sender As Object, e As EventArgs) Handles BtnSendMail2.Click
+ Try
+ If HdnCveVenta2.Value <> "-1" AndAlso HdnFolioVenta2.Value <> "-1" Then
+
+ Dim ObjMail As New ClsSisMail()
+ Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+
+ Dim Cuerpo As String = TxtBody2.Text
+ Dim Asunto As String = ""
+ Dim TipoComprobante = ""
+
+ If HdnTipoDocto2.Value.ToString = "Ing" Then TipoComprobante = "Factura"
+ If HdnTipoDocto2.Value.ToString = "Egs" Then TipoComprobante = "Nota de Crédito"
+ If HdnTipoDocto2.Value.ToString = "Dev" Then TipoComprobante = "Nota de Devolución"
+ If HdnTipoDocto2.Value.ToString = "Rem" Then TipoComprobante = "Remisión"
+ If HdnTipoDocto2.Value.ToString = "Cot" Then TipoComprobante = "Cotización"
+ If HdnTipoDocto2.Value.ToString = "Ant" Then TipoComprobante = "Anticipo"
+
+
+ Dim ObjVenta As New ClsVentas
+ Dim Dr As DataRow = Nothing
+ If ObjVenta.GetVenta(HdnCveVenta2.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+ If ObjVenta.DtResultados.Rows.Count > 0 Then
+ Dr = ObjVenta.DtResultados.Rows(0)
+ End If
+ End If
+ ObjVenta.Dispose()
+
+ If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
+ Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
+ Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+ Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
+ Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+ Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
+ If Dr IsNot Nothing Then
+ Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString.ToDate.ToShortDateString)
+ Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString.FormatoNumero)
+ Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString.ToDate.ToShortDateString)
+ End If
+ End If
+
+
+ If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
+ Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+ Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+ Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString)
+ Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
+ End If
+
+ If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
+ If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml") Then
+ Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf"
+ Dim XML As String = $"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml"
+
+
+ Dim ResultadoMail As Integer = 0
+ Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+
+ LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
+ LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = XML})
+
+
+
+ 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
+ If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
+ ResultadoMail = 1
+ TxtCC2.Text = ""
+ TxtBody2.Text = ""
+ RegistraScript("$('#ModalDivMail2').modal('hide');")
+ Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+ CargaHistorial()
+ 'UpnHistorial.Update()
+ Else
+ Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgError)
+ ResultadoMail = 3
+ End If
+
+ Dim ObjVentas As New ClsVentas
+ ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+ ObjVentas.Dispose()
+ Else
+ Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
+ End If
+ ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
+ If File.Exists(Ruta & "PDF\" & HdnFolioVenta2.Value & ".pdf") Then
+ Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta2.Value & ".pdf"
+
+ Dim ResultadoMail As Integer = 0
+ Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+ LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
+
+ 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
+ If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
+ ResultadoMail = 1
+ TxtCC2.Text = ""
+ TxtBody2.Text = ""
+ RegistraScript("$('#ModalDivMail2').modal('hide');")
+ Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+ CargaHistorial()
+ UpnHistorial.Update()
+ Else
+ ResultadoMail = 3
+ End If
+
+ Dim ObjVentas As New ClsVentas
+ ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+ ObjVentas.Dispose()
+ Else
+ Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
+ End If
+ ElseIf HdnTipoDocto2.Value = "Cot" Then
+ If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") Then
+ Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf"
+
+ Dim ResultadoMail As Integer = 0
+ Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+ LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
+
+ 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
+ If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail2.Text.Trim, Asunto, Cuerpo, TxtCC2.Text.Trim, LSRutasMail) Then
+ ResultadoMail = 1
+ TxtCC2.Text = ""
+ TxtBody2.Text = ""
+ RegistraScript("$('#ModalDivMail2').modal('hide');")
+ Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+ CargaHistorial()
+ UpnHistorial.Update()
+ Else
+ ResultadoMail = 3
+ End If
+
+ Dim ObjVentas As New ClsVentas
+ ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+ ObjVentas.Dispose()
+ Else
+ Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
+ End If
+ End If
+
+ 'End If
+ 'ObjEmprea.Dispose()
+ Else
+ Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió error al mandar MAIL", ex)
+ Dim ObjVentas As New ClsVentas
+ ObjVentas.UpdateVentaMail(3, HdnCveVenta2.Value.ToEntero)
+ ObjVentas.Dispose()
+ End Try
+ End Sub
+
+ Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+ If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+ Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+ If Dr IsNot Nothing Then
+ If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+ DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString)
+ End If
+ End If
+ End If
+ End Sub
- Vta.EnviarA = New Modelos.EnviarAModel
- Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
- Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
- Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
- Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
- Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
- Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
+#End Region
- Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString
- Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString
- Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString
- 'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString
+#Region "G P S"
- 'INE COMPLEMENTO
- If dtVentas(0)("TipoComite").ToString <> "" Then
- Dim INE As New Modelos.ComplementoINE
- INE.INETipoComite = dtVentas(0)("TipoComite").ToString
- INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString
- INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero
- Vta.ComplementoINE = INE
+
+
+ Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
+
+ Try
+ Dim Para = TxtEmail.Text.Trim
+ Dim Asunto = "ACTIVACIÓN DEL PORTAL GPS"
+ Dim SBBody As New StringBuilder
+ 'Linia de estilos
+ SBBody.Append("")
+ 'incio Cuerpo del correo
+ SBBody.Append("")
+ SBBody.Append("
") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) + + SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("ALTA DE CUENTA")
+ SBBody.Append("
")
+ SBBody.Append("") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) + + SBBody.Append("
")
+ SBBody.Append("
") + + SBBody.Append("
")
+ SBBody.Append(" Datos de Usuario:
")
+ SBBody.Append("")
+ SBBody.Append("
") + + SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("
")
+ SBBody.Append(" Dirección de Acceso
")
+ SBBody.AppendFormat("", Liga)
+ SBBody.Append("") + + SBBody.Append("
Usuario:
")
+ SBBody.AppendFormat("{0}
", Usuario)
+ SBBody.Append("") + + SBBody.Append("
")
+ SBBody.Append("
")
+
+
+ SBBody.Append(" Haga click para activar su cuenta
")
+ SBBody.AppendFormat("", LigaActivar)
+ SBBody.Append("") + SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") + SBBody.Append("
")
+ SBBody.Append("Nota Favor de NO responder este correo. ")
+ SBBody.Append("
") + SBBody.AppendFormat("
ADSistemas ")
+ SBBody.Append("
")
+ 'Termino Cuerpo del correo
+
+ Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
+ Hilo.Start()
+ Alert("El correo de activación se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
+ Catch ex As Exception
+ OnError("Ocurrió error al mandar MAIL", ex)
+ End Try
+ End Sub
+
+ Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
+ Dim ObjClientes As New ClsClientes
+
+ If ObjClientes.RegistrarCliente(CveCliente) Then
+ RegistraScript("location.reload();")
+ End If
+
+ ObjClientes.Dispose()
+ End Sub
+
+
+#End Region
+
+#Region "C O N T R A T O S"
+ Private Sub CargaDatosContrato()
+ If CveCliente <= 0 Then
+ Exit Sub
+ End If
+
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetReporteContratosAvancesCP(UsuarioActual.CveEmpresa, CveCliente, -1, -1, -1, -1, 1) Then
+ GvDatosAvance.DataSource = ObjContratos.DtResultados
+ Else
+ Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError)
+ End If
+
+ If ObjContratos.GetReporteContratosAvancesCP(UsuarioActual.CveEmpresa, CveCliente, -1, -1, -1, -1, -2) Then
+ GvContratosClienteInactivos.DataSource = ObjContratos.DtResultados
+ Else
+ Alert("Ocurrió un Error al obtener el Reporte de Avances Inactivos. Por favor vuelva a intentar", TipoMensaje.MsgError)
+ End If
+
+ ObjContratos.Dispose()
+ GvDatosAvance.DataBind()
+ UpContratosInactivos.DataBind()
+
+
+ If GvDatosAvance.Rows.Count > 0 Or GvContratosClienteInactivos.Rows.Count > 0 Then
+ TabContratos.Visible = True
+ End If
+ End Sub
+
+ Private Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
+ e.Row.Cells(0).Text = "Total:"
+ e.Row.CssClass = "Totales white"
+ End If
+ End If
+ End Sub
+
+ Private Sub GvContratosClienteInactivos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratosClienteInactivos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
+ e.Row.Cells(0).Text = "Total:"
+ e.Row.CssClass = "Totales white"
+ End If
+ End If
+ End Sub
+
+#End Region
+
+#Region "M E T O D O S "
+ Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
+ If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
+
+ Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
+ If tmp.Rows.Count > 0 Then
+ Dim Totales As DataRow = tmp.NewRow
+ Totales("SubTotal") = tmp.SUM("SubTotal")
+ Totales("Total") = tmp.SUM("Total")
+ Totales("Descuento") = tmp.SUM("Descuento")
+ Totales("Amortizacion") = tmp.SUM("Amortizacion")
+ Totales("MAX_Total") = tmp.MAX("MAX_Total")
+ Totales("AVG_Total") = tmp.AVG("AVG_Total")
+ Totales("MIN_Total") = tmp.MIN("MIN_Total")
+ Totales("CountTotal") = tmp.COUNT("CountTotal")
+ tmp.Rows.InsertAt(Totales, 0)
End If
-
-
- Dim DR As DataRow = TmpDTImpuestos.NewRow()
- If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
-
- 'solo para eclipse, que muesre un subtotal debajo de IVA
- If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
-
- If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
-
- If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
-
- If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
- Vta.DtDetalle = ObjVentas.DtResultados
- End If
-
- If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
-
- Dim dtImpuesto As DataTable = ObjVentas.DtResultados
- If dtImpuesto.Rows.Count > 0 Then
- For Each Row As DataRow In dtImpuesto.Rows
- Dim Orden = 80
- If Row("Importe").ToString.ToDouble <> 0 Then
- DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
- DR("Importe") = Row("Importe").ToString.ToDouble
- DR("Orden") = Orden
- TmpDTImpuestos.Rows.Add(DR)
- DR = TmpDTImpuestos.NewRow()
- Orden = Orden + 1
- End If
- Next
- End If
- Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
-
- End If
-
- 'TmpDT DESGLOSE DE IMPUESTOS 3.3
- For Each dr1 As DataRow In Vta.DtDetalle.Rows
- Dim DrIVA As DataRow = Nothing
- Dim DrIEPS As DataRow = Nothing
-
- Try
- DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0)
- Catch ex As Exception
- DrIVA = Nothing
- End Try
-
- If DrIVA IsNot Nothing Then
- DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble
- TmpDTImpuestosIVAIEPS.AcceptChanges()
- Else
- Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
- If dr1("PorcentajeIVA").ToString.ToDouble >= 0 Then
- DR2("Impuesto") = "IVA" : DR2("tasa") = "16 %" : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1"
- TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
- TmpDTImpuestosIVAIEPS.AcceptChanges()
- End If
- End If
-
- Try
- DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0)
- Catch ex As Exception
- DrIEPS = Nothing
- End Try
-
- If DrIEPS IsNot Nothing Then
- DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble
- TmpDTImpuestosIVAIEPS.AcceptChanges()
- Else
- Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
- If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
- DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", ""))))
- TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
- TmpDTImpuestosIVAIEPS.AcceptChanges()
- End If
- End If
-
- Next
- Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")
-
- If ObjVentas.GetVentasFirmas(CveVenta) Then
- Vta.DtFirmas = ObjVentas.DtResultados
- End If
-
- If UsuarioActual.CveEmpresa.Contiene(119) Then
- If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
- 'carga as notas de credito vinculadas
- If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
- Vta.DtDocumentosRelacionados = ObjVentas.DtResultados
-
- End If
- End If
-
- If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
- If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
- Vta.DtDocumentosRelacionados = ObjVentas.DtResultados
- End If
- End If
- End If
-
-
- 'CFDI RELACIONADO
- If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then
- Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
- If Vta.Timbre.Comprobante.TipoComprobante = "E" Then
- If Vta.TipoDocto.Contiene("Egs") Then
- Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
- Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
- End If
- If Vta.TipoDocto.Contiene("Dev") Then
- Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
- Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
- End If
- Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
- End If
- ' cuando es refacturacoin es cfdirelacionado, con relacion 04
- If Vta.Timbre.Comprobante.TipoComprobante = "I" AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
- Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
- Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
- Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
- End If
- End If
-
+ GVHistorial.DataSource = tmp
+ ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then
+ GVHistorial.DataSource = DTHistorialVentas
End If
- ObjVentas.Dispose()
+ GVHistorial.DataBind()
+ End Sub
+ Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
+ CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+ CargaHistorial(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+ CargaCxC(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+ CargaAnticipos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+ CargaBancos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+
+ UpDatos.Update()
+ End Sub
+ Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click
+ 'Alert("Se Van a desativar todos o eliminar todos, junto con el Admin?")
+ Dim ObjUsuario As New ClsSisUsuarios
+ Dim ErrorUsuario As Boolean = False
+
+ ObjUsuario.IniciaTransacSQL()
+
+ For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosCliente"), DataTable).Rows
+ 'se desactiva el usuario y se restablece la contraseña
+ If Not ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then
+ ErrorUsuario = True
+ End If
+ Next
+
+ If ErrorUsuario Then
+ ObjUsuario.RollBack()
+ Else
+ LblUsuarioActivo.Text = "No"
+ HdnCveUsuarioPortalActivado.Value = "0"
+ trEnviarActivacion.Visible = True
+ trDesactivarUsuario.Visible = False
+
+ 'DivPermisosPortal.Visible = False
+
+ ObjUsuario.GetUsuariosPortal(-1, CveCliente, -1)
+
+ ViewState("DTUsuariosCliente") = ObjUsuario.DtResultados
+ GvUsuariosPortal.DataSource = ViewState("DTUsuariosCliente")
+ GvUsuariosPortal.DataBind()
+ 'divUsuariosPortal.Visible = False
+
+ ObjUsuario.Commit()
+ End If
+
+ ObjUsuario.Dispose()
+
+ If UsuarioActual.Empresa.CvePlataforma = 1 Then
+ CargaUsuariosPortalCliente()
+ End If
+
+ UpGvUsuarios.Update()
+ UPPUsuarios.Update()
+
+ End Sub
+ Private Sub AbonaaCuenta()
+
+ 'si usa bancos, se va abrir el popupie para la recepci[on del pago
+ Dim MsgError As String = ""
+
+ Dim ObjMov As New ClsContabilidad
+ ObjMov.IniciaTransacSQL()
+ Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Cli", 2, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaPago.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If CvePrePoliza > 0 Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 2, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 4, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
+
+ Else
+ MsgError = "no se pudo insertar el detalle de la póliza2"
+ End If
+ Else
+ MsgError = "no se pudo insertar el detalle de la póliza"
+ End If
+ Else
+ MsgError = "No se pudo insertar la póliza"
+ End If
+
+ If MsgError = "" Then
+ Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "window.opener.location.href = window.opener.location.href; window.close();")
+ ObjMov.Commit()
+
+ UpDatos.Update()
+
+ Else
+ ObjMov.RollBack()
+ End If
+ ObjMov.Dispose()
+
+
+
+ End Sub
+ Private Sub ChecaPermiteCredito()
+ ' DivParametros.Disabled = Not ChkPermiteCredito.Checked
+ 'For Each Control As Control In UpParametros.Controls
+ ' Control.Visible = ChkPermiteCredito.Checked
+ 'Next
+
+ DivPortal.Visible = UsuarioActual.TienePermisoProceso(162)
+
+ TxtLimiteCredito.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtPlazoCobranza.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtPlazoCobranzaRemision.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ DdlTipoPago.Enabled = UsuarioActual.TienePermisoProceso(162)
+ DdlResponsable.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ ChkLunes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkMartes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkMiercoles.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkJueves.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkViernes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkSabado.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ ChkRevLunes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkRevMartes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkRevMiercoles.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkRevJueves.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkRevViernes.Enabled = UsuarioActual.TienePermisoProceso(162)
+ ChkRevSabado.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ TxtDiasEspecifico.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtDocumentacion.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtCobranzaContacto.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtCobranzaTelefono.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtCobranzaExt.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtCobranzaCorreo.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtHorario.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ TxtPortalFacturacion.Enabled = UsuarioActual.TienePermisoProceso(162)
+ TxtObsDiasRevision.Enabled = UsuarioActual.TienePermisoProceso(162)
+
+ UpParametros.Update()
+ End Sub
+ Private Function NombreCuenta(Id As Integer) As String
+ Dim Retorno As String = ""
+
+ If UsuarioActual.Empresa.ServerContPAQi = "" Then Return ""
+ Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+ If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
+ Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
+ End If
+
+ Return Retorno
+ End Function
+ Private Sub SetValues()
+ ViewState("Orden") = ""
+ ViewState("OrdenUsuarios") = ""
+ TxtFechaPago.Text = Now.ToShortDateString
+ txtFechaI.Text = Now.ToShortDateString
+ txtFechaF.Text = Now.ToShortDateString
+ TxtFechaImportarSaldos.Text = Now.ToShortDateString
+ TxtFechaIUsados.Text = Now.FirstDayOfMonth.ToShortDateString
+ TxtFechaFUsados.Text = Now.LastDayOfMonth.ToShortDateString
+ CobranzaTelefono = ""
+ CodigoCliente = ""
+
+ End Sub
+
+ Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+ If TxtExcel.getfiles().Archivos.Count > 0 Then
+ Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+ Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+ Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ CargarArchivo(Directorio, file.filename, Tipo)
+ Else
+ Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+ End If
+ End Sub
+ Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+ Dim dt As New DataTable
+ Dim Conexion As Odbc.OdbcConnection = Nothing
+ Dim ErrorArchivo = False
+ Try
+ Select Case Tipo
+ Case "CSV"
+ Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
+ Conexion.Open()
+ Dim cmd = Conexion.CreateCommand()
+ cmd.CommandType = CommandType.Text
+ cmd.CommandText = $"SELECT * FROM [{FileName}]"
+ Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+ DataAdapter.Fill(dt)
+ Case "EXCEL"
+ Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
+ Conexion.Open()
+ Dim cmd = Conexion.CreateCommand()
+ cmd.CommandType = CommandType.Text
+ cmd.CommandText = "SELECT * FROM [Hoja1$]"
+ Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+ DataAdapter.Fill(dt)
+ Case Else
+ Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
+ Exit Sub
+ End Select
+ Catch ex As Exception
+ ErrorArchivo = True
+ OnError("Ocurrio un error al leer el archivo ")
+ SBBody.Append("
") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal GPS de: {0}
", UsuarioActual.Empresa.Empresa) + SBBody.Append("
") + SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") + SBBody.Append("
") + SBBody.AppendFormat("ADSistemas ", UrlSitio)
+ SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("ALTA DE CUENTA")
+ SBBody.Append("
")
+ SBBody.Append("") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal GPS de: {0}
", UsuarioActual.Empresa.Empresa) + SBBody.Append("
")
+ SBBody.Append("
")
+ SBBody.Append("Datos de usuario
")
+ SBBody.Append("")
+
+ SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("
")
+
+ SBBody.Append(" Dirección de Acceso
")
+ SBBody.AppendFormat("", Liga)
+ SBBody.Append("")
+ SBBody.Append("
")
+
+ SBBody.Append(" Clave
")
+ SBBody.AppendFormat("{0}
", CveCliente)
+ SBBody.Append("")
+ SBBody.Append("
")
+
+ SBBody.Append(" Usuario
")
+ SBBody.AppendFormat("{0}
", "Admin")
+ SBBody.Append("")
+ SBBody.Append("
")
+
+
+ SBBody.Append(" Haga click para activar su cuenta
")
+ SBBody.AppendFormat("", LigaActivar)
+ SBBody.Append("") + SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") + SBBody.Append("
")
+ SBBody.Append("Nota Favor de NO responder este correo. ")
+ SBBody.Append("
") + SBBody.AppendFormat("
ADSistemas " & ex.Message, ex) + End Try + Conexion.Close() + If Not ErrorArchivo Then + If Not dt.Columns(0).ColumnName = "SerieFolio" Then + Alert("El nombre de la primera columna debe ser 'SerieFolio'.Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not dt.Columns(1).ColumnName = "Fecha" Then + Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not dt.Columns(2).ColumnName = "Importe" Then + Alert("El nombre de la tercera columna debe ser 'Importe'.Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not dt.Columns(3).ColumnName = "Saldo" Then + Alert("El nombre de la cuarta columna debe ser 'Saldo'.Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + Dim XmlStream As New System.IO.MemoryStream + dt.TableName = "Datos" + Dim ObjClientes As New ClsClientes + Dim writer As New System.IO.StringWriter + dt.WriteXml(writer) + If ObjClientes.GetVentasConciliacion(CveCliente, DataTableToXml(writer)) Then + ObjClientes.DtResultados.ExportToExcel("Resultados") + End If + ObjClientes.Dispose() + End If + End Sub + Private Function DataTableToXml(ByVal stream As System.IO.TextWriter) As String + Return stream.ToString() + End Function + Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoClientes.csv" + Dim Archivo As New FileInfo(Directorio) + If Archivo.Exists Then + Response.Clear() + Response.ClearHeaders() + Response.ClearContent() + Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) + Response.AddHeader("Content-Length", Archivo.Length.ToString()) + Response.ContentType = "text/plain" + Response.Flush() + Response.TransmitFile(Archivo.FullName) + Response.End() + End If + End Sub + Private Sub EnviaCorreo2(Liga As String, LigaActivar As String) + + Try + Dim Para = TxtCorreoUsuarioPortal.Text.Trim + Dim Asunto = "ACTIVACIÓN DEL PORTAL DE CLIENTE" + Dim SBBody As New StringBuilder + 'Linia de estilos + SBBody.Append("") + 'incio Cuerpo del correo + SBBody.Append("
")
+ SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("
") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombreUsuarioPortal.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) + SBBody.Append("
") + + SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("ALTA DE CUENTA")
+ SBBody.Append("
")
+ SBBody.Append("") + SBBody.AppendFormat(" Estimado {0}:
", TxtNombreUsuarioPortal.Text.ToUpper) + SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso al Portal del Cliente de: {0}
", UsuarioActual.Empresa.Empresa) + SBBody.Append("
")
+ SBBody.Append("
")
+ SBBody.Append("Datos de usuario
")
+ SBBody.Append("")
+
+ SBBody.Append("
")
+ SBBody.Append("")
+ SBBody.Append("
")
+
+ 'SBBody.Append(" Dirección de Acceso
")
+ SBBody.AppendFormat("", Liga)
+ SBBody.Append("")
+ 'SBBody.Append("
")
+
+ SBBody.Append(" Clave
")
+ 'SBBody.AppendFormat("{0}
", CveCliente)
+ 'SBBody.Append("")
+ SBBody.Append("
")
+
+ SBBody.Append(" Usuario
")
+ SBBody.AppendFormat("{0}
", TxtCorreoUsuarioPortal.Text)
+ SBBody.Append("")
+ SBBody.Append("
")
+
+
+ SBBody.Append(" Contraseña Predeterminada
")
+ SBBody.AppendFormat("{0}
", ContraseñaPredeterminada)
+ SBBody.Append("") + + SBBody.Append("
")
+ SBBody.Append("
")
+
+ SBBody.Append(" Haga click para activar su cuenta
")
+ SBBody.AppendFormat("", LigaActivar)
+ SBBody.Append("") + SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.
") + SBBody.Append("
")
+ SBBody.Append("Nota Favor de NO responder este correo. ")
+ SBBody.Append("
") + + SBBody.AppendFormat("
ADSistemas {0}{1}
", Liga, e.Row.DBCampo("TipoDocto"))
@@ -172,13 +172,15 @@ Partial Class PopUpBuscarFolio
e.Row.FCLiteral("LtlSucursal").Text = String.Format("{0}{1}
", Liga, e.Row.DBCampo("SubProyecto"))
e.Row.FCLiteral("LtlEstatus").Text = String.Format("{0}{1}
", Liga, e.Row.DBCampo("EstatusFactura"))
e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("{0}{1}
", Liga, e.Row.DBCampo("PedidoContrato"))
+
If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then
- e.Row.FCLiteral("LtlXML").Text = String.Format("", UsuarioActual.CveEmpresa, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+ e.Row.FCLiteral("LtlXML").Text = String.Format("", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
Else
e.Row.FCLiteral("LtlXML").Text = ""
End If
+
If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
- e.Row.FCLiteral("LtlPDF").Text = String.Format("", UsuarioActual.CveEmpresa, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+ e.Row.FCLiteral("LtlPDF").Text = String.Format("", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
Else
e.Row.FCLiteral("LtlPDF").Text = ""
End If
diff --git a/Ventas/PopUpImprimir.aspx.vb b/Ventas/PopUpImprimir.aspx.vb
index 90720a9ae..bf9706395 100644
--- a/Ventas/PopUpImprimir.aspx.vb
+++ b/Ventas/PopUpImprimir.aspx.vb
@@ -64,7 +64,7 @@ Partial Class PopUpImprimir
RegistraScript("$get('tdContenido').style.height='520px'")
Else
- Dim Path As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\" & Ext & "\" & CveVenta & "." & Ext
+ Dim Path As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" & Ext & "\" & CveVenta & "." & Ext
Dim Archivo As New System.IO.FileInfo(Path)
If Archivo.Exists Then
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 009f97d13..3bf35821a 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2281,7 +2281,7 @@ Partial Class ProductosyServicios
Dim Archivo = ""
Dim DirectorioTemporal = ""
- Dim DirectorioDestino = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\Ecommerce\Productos\Imagenes\"
+ Dim DirectorioDestino = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\Ecommerce\Productos\Imagenes\"
If Not Directory.Exists(DirectorioDestino) Then
Directory.CreateDirectory(DirectorioDestino)
End If
@@ -2316,7 +2316,7 @@ Partial Class ProductosyServicios
If (CveImagenActivoFijo > 0) Then
Dim ObjEcommerce As New ClsECommerce
If ObjEcommerce.ProductosImagenesRemove(CveImagenActivoFijo, UsuarioActual.CveEmpresa) Then
- File.Delete(String.Format("{0}Empresas\{1}\{2}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, ObjEcommerce.DtResultados.Rows(0)("URL")))
+ File.Delete(String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ObjEcommerce.DtResultados.Rows(0)("URL")))
CargarGaleriaImagenesEcommerce()
RegistraScript("initcarusel();")
End If
diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb
index 95092920d..fcef61fbb 100644
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -2,13 +2,13 @@
Option Strict On
Imports Extensiones
-Imports System.Data
-Imports Microsoft.Reporting.WebForms
-
-Partial Class Ventas_RepPS
- Inherits ClsPaginas
-
-#Region "P R O P I E D A D E S"
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Ventas_RepPS
+ Inherits ClsPaginas
+
+#Region "P R O P I E D A D E S"
Private Property DtReporte As DataTable
Get
Return DirectCast(ViewState("DtReporte"), DataTable)
@@ -16,25 +16,25 @@ Partial Class Ventas_RepPS
Set(value As DataTable)
ViewState("DtReporte") = value
End Set
- End Property
-#End Region
-
+ End Property
+#End Region
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
- CargaDatosIniciales()
- CargaCombos()
+ If Not IsPostBack Then
+ CargaDatosIniciales()
+ CargaCombos()
CargaDatos()
End If
- End Sub
- Private Sub CargaDatosIniciales()
- txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
- txtFechaF.Text = Now.ToString("dd/MM/yyyy")
- End Sub
-
- Private Sub CargaCombos()
- CargaTipoCentroCosto()
- End Sub
-
+ End Sub
+ Private Sub CargaDatosIniciales()
+ txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+ txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+ End Sub
+
+ Private Sub CargaCombos()
+ CargaTipoCentroCosto()
+ End Sub
+
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
@@ -66,23 +66,23 @@ Partial Class Ventas_RepPS
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblSubProyecto.InnerText = "Sucursal:"
End If
- End Sub
-
- Private Sub CargaDatos()
-
- Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero()
- Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero()
- Dim CvePS As Integer = -1
- Dim CveMoneda As Integer = -1
- Dim TC As Integer = 1
+ End Sub
+
+ Private Sub CargaDatos()
+
+ Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero()
+ Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero()
+ Dim CvePS As Integer = -1
+ Dim CveMoneda As Integer = -1
+ Dim TC As Integer = 1
Dim TCEspecifico As Decimal = -1
Dim FechaI, FechaF As DateTime
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
- FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
-
+ FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
+
Dim ObjVentas As New ClsVentas()
- If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then
- DtReporte = ObjVentas.DtResultados.Copy()
+ If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then
+ DtReporte = ObjVentas.DtResultados.Copy()
GvDatos.DataSource = DtReporte
Else
GvDatos.DataSource = Nothing
@@ -92,28 +92,28 @@ Partial Class Ventas_RepPS
GvDatos.DataBind()
UPDatos.Update()
- End Sub
+ End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- Select Case e.Row.DBCampo("Orden").ToString.ToEntero()
- Case 4
- e.Row.CssClass = "Totales"
- Case 3
- e.Row.CssClass = "SubTotales2"
- Case 2
- e.Row.CssClass = "SubTotales"
- Case 1
- e.Row.CssClass = "SubTotalesB"
- Case 0
- e.Row.CssClass = "Texto"
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Select Case e.Row.DBCampo("Orden").ToString.ToEntero()
+ Case 4
+ e.Row.CssClass = "Totales"
+ Case 3
+ e.Row.CssClass = "SubTotales2"
+ Case 2
+ e.Row.CssClass = "SubTotales"
+ Case 1
+ e.Row.CssClass = "SubTotalesB"
+ Case 0
+ e.Row.CssClass = "Texto"
End Select
End If
- End Sub
- Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
- CargaDatos()
- End Sub
-
-
+ End Sub
+ Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+ CargaDatos()
+ End Sub
+
+
#Region " IMPRIMIR "
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
If GvDatos.Rows.Count > 0 Then
@@ -128,10 +128,10 @@ Partial Class Ventas_RepPS
Private Sub GenerarPDF()
Dim FechaI, FechaF As Date
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
- FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
+ FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
If DtReporte IsNot Nothing AndAlso DtReporte.Rows.Count > 0 Then
Dim SbParametros As New StringBuilder
- SbParametros.AppendFormat("Sucursal:{0}", DdlSubProyecto.SelectedItem.Text)
+ SbParametros.AppendFormat("Sucursal:{0}", DdlSubProyecto.SelectedItem.Text)
SbParametros.AppendFormat(", Orden:{0}", DdlGrupo.SelectedItem.Text)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -147,20 +147,20 @@ Partial Class Ventas_RepPS
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
- End If
- params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
-
- If System.IO.File.Exists($"{Server.MapPath("/")}/Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc") Then
- ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
- Else
- ImprimirPDF($"Empresas/Grales/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+ End If
+ params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
+
+ If System.IO.File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}/Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc") Then
+ ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+ Else
+ ImprimirPDF($"Empresas/Grales/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
End If
Else
Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
End If
- End Sub
-
+ End Sub
+
#End Region
-
-End Class
+
+End Class
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index ab5d4b57b..5ca328ee7 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -92,8 +92,8 @@ Partial Class Ventas_RepRecuperacion
'Carga Bancos'
DdlBanco.DataSource = GlobalDTBancos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
- DdlBanco.DataBind()
- DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlBanco.DataBind()
+ DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
DdlBanco.Items.Add(New ListItem("Empresa", "0"))
'Carga Clasificacion Cliente'
@@ -179,7 +179,7 @@ Partial Class Ventas_RepRecuperacion
#Region "SELECTED INDEX CHANGE"
Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
- DdlCuentaBancaria.Items.Clear()
+ DdlCuentaBancaria.Items.Clear()
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuentaBancaria.DataBind()
@@ -214,7 +214,7 @@ Partial Class Ventas_RepRecuperacion
If DdlResponsable.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Responsable: {0}", DdlResponsable.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacion.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index 4f2027ccc..fd8ccd5a9 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -296,7 +296,7 @@ Partial Class Ventas_RepRecuperacionDetalle
If DdlClienteSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente Sucursal: {0}", DdlClienteSucursal.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
diff --git a/Ventas/ReporteDetalle.aspx.cs b/Ventas/ReporteDetalle.aspx.cs
index 2b4086f33..7b17bb50c 100644
--- a/Ventas/ReporteDetalle.aspx.cs
+++ b/Ventas/ReporteDetalle.aspx.cs
@@ -122,11 +122,11 @@ public partial class Ventas_ReporteDetalle : ClsPaginas
Hashtable UrlParametros = Parametros(ModExtensiones.Decripta(Request["Op"].ToString()));
if (Request["Mod"] != null && Request["Mod"].ToString().Equals("Editar"))
{
- Directorio1 = AppDomain.CurrentDomain.BaseDirectory + string.Format(@"Empresas\{0}\Formatos\Factura.mrt", UrlParametros["CVEEMPRESA"].ToString());
+ Directorio1 = ModExtensiones.DirectorioBaseEmpresas + string.Format(@"Empresas\{0}\Formatos\Factura.mrt", UrlParametros["CVEEMPRESA"].ToString());
}
else
{
- Directorio1 = AppDomain.CurrentDomain.BaseDirectory + @"Empresas\Grales\Formatos\Factura.mrt";
+ Directorio1 = ModExtensiones.DirectorioBaseEmpresas + @"Empresas\Grales\Formatos\Factura.mrt";
}
CargaFactura(Directorio1, UrlParametros);
SmdDesigner.Report = Reporte;
@@ -300,7 +300,7 @@ public partial class Ventas_ReporteDetalle : ClsPaginas
{
Hashtable UrlParametros = Parametros(ModExtensiones.Decripta(Request["Op"].ToString()));
CveEmpresa = UrlParametros["CVEEMPRESA"].ToString().ToEntero();
- string DirBase = AppDomain.CurrentDomain.BaseDirectory + string.Format(@"Empresas\{0}\Formatos\", CveEmpresa);
+ string DirBase = ModExtensiones.DirectorioBaseEmpresas + string.Format(@"Empresas\{0}\Formatos\", CveEmpresa);
if (!System.IO.Directory.Exists(DirBase))
{
System.IO.Directory.CreateDirectory(DirBase);
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 3c15df375..fe284e7fa 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4130,8 +4130,14 @@
Agregar
--%>
-
+
" + Row.FCLiteral("LtlPS").Text + ".", TipoMensaje.MsgAdvertencia) TmpDT.Clear() GvPS.DataSource = Nothing @@ -3151,13 +3152,13 @@ Partial Class Ventas UpPS.Update() Exit Sub Else - SeleccionadoContrato += Row.FCTextBox("TxtCant").Text.ToEntero * Row.FCLiteral("LtlPU").Text.ToDouble - AgregarProductoServicio(Row.FCTextBox("TxtCant").Text.ToEntero, Row.DataKey("CveUM").ToEntero, Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero, - Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero, Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, - DrContrato("CveProyecto").ToString.ToEntero, DrContrato("ProyectoContrato").ToString, DrContrato("CveSubProyecto").ToString.ToEntero, DrContrato("SubProyectoContrato").ToString, CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero) - 'AddPS(Row.FCTextBox("TxtCant").Text.ToEntero, Row.DataKey("CveUM").ToEntero, Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero, Row.DataKey("Clasificacion"), - ' Row.DataKey("CvePS").ToEntero, Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDouble, If(Row.DataKey("IVA").ToDouble = -1, ViewState("IVA").ToString.ToDouble, Row.DataKey("IVA").ToDouble), 0, 0, 1, 0, True, "", - ' DrContrato("CveProyecto").ToString.ToEntero, DrContrato("ProyectoContrato").ToString, DrContrato("CveSubProyecto").ToString.ToEntero, DrContrato("SubProyectoContrato").ToString, CveTipoPS, CveTipoInv, CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero, CodigoPS:=Row.FCLiteral("LtlPS").Text) + SeleccionadoContrato += Row.FCTextBox("TxtCant").Text.ToEntero() * Row.FCLiteral("LtlPU").Text.ToDouble + AgregarProductoServicio(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), + Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, + DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero()) + 'AddPS(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), Row.DataKey("Clasificacion"), + ' Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDouble, If(Row.DataKey("IVA").ToDouble = -1, ViewState("IVA").ToString().ToDouble, Row.DataKey("IVA").ToDouble), 0, 0, 1, 0, True, "", + ' DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveTipoPS, CveTipoInv, CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero(), CodigoPS:=Row.FCLiteral("LtlPS").Text) End If Else Alert("El producto presenta una inconsistencia en su información", TipoMensaje.MsgError) @@ -3206,8 +3207,8 @@ Partial Class Ventas If Not CveCicloComercial > 0 Then 'SI EL IMPORTE MAX O EL IMPORTE FIJO DEL CONTRATO FLEXIBLE ES CERO, NO HAY LIMITE - If Not (DrContrato("Importe").ToString.ToDouble = 0 And DrContrato("ImporteMax").ToString.ToDouble = 0) Then - If DdlTipoComprobante.SelectedValue = "Ing" And (DrContrato("ModalidadDetalle").ToString = "1" Or DrContrato("ImporteMax").ToString.ToDouble > 0) AndAlso (DrContrato("ImporteTotal").ToString.ToDouble - DrContrato("Avance").ToString.ToDouble) < (SeleccionadoContrato) Then + If Not (DrContrato("Importe").ToString().ToDouble = 0 And DrContrato("ImporteMax").ToString().ToDouble = 0) Then + If DdlTipoComprobante.SelectedValue = "Ing" And (DrContrato("ModalidadDetalle").ToString() = "1" Or DrContrato("ImporteMax").ToString().ToDouble > 0) AndAlso (DrContrato("ImporteTotal").ToString().ToDouble - DrContrato("Avance").ToString().ToDouble) < (SeleccionadoContrato) Then Alert("Se excede el importe límite del contrato. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) TmpDT.Clear() GvPS.DataSource = Nothing @@ -3247,9 +3248,9 @@ Partial Class Ventas 'Cargamos los datos del Cliente DtContratos = ObjContratos.DtResultados - ViewState("CveCliente") = ObjContratos.DtResultados(0)("CveCliente").ToString.ToEntero - CorreoNotificacionPedDev = ObjContratos.DtResultados(0)("CorreoNotificacionPedDev").ToString - HdnCveCliente.Value = ObjContratos.DtResultados(0)("CveCliente").ToString + ViewState("CveCliente") = ObjContratos.DtResultados(0)("CveCliente").ToString().ToEntero() + CorreoNotificacionPedDev = ObjContratos.DtResultados(0)("CorreoNotificacionPedDev").ToString() + HdnCveCliente.Value = ObjContratos.DtResultados(0)("CveCliente").ToString() CargaCliente(CveCliente) DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped")) DdlTipoComprobante.SelectedValue = "Ped" @@ -3257,17 +3258,17 @@ Partial Class Ventas DdlAlmacenAsignado.Enabled = False DdlSubProyectoDatos.SelectedValueExist(ObjContratos.DtResultados(0)("CveSubProyecto")) - AplicaGastoContrato = If(ObjContratos.DtResultados(0)("CveContratoTipo").ToString.Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento + AplicaGastoContrato = If(ObjContratos.DtResultados(0)("CveContratoTipo").ToString().Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento If TipoContrato = 1 Then 'Cargamos los datos del Contrato RblOpcionContrato.SelectedValue = "2" BtnIniciarContrato_Click(Nothing, Nothing) - DdlContratosModal.SelectedValue = CveContrato.ToString + DdlContratosModal.SelectedValue = CveContrato.ToString() DdlContratosModal_SelectedIndexChanged(Nothing, Nothing) ElseIf TipoContrato = 0 Then 'Mostramos los almacenes - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}") + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}") DdlAlmacenAsignado.DataBind() DdlAlmacenAsignado.Enabled = True TrAlmacenAsignado.Visible = True @@ -3279,19 +3280,19 @@ Partial Class Ventas End If If ObjContratos.CveAlmacen > 0 Then - If (DdlAlmacenAsignado.Items.FindByValue(ObjContratos.CveAlmacen.ToString) Is Nothing) Then - Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacen.ToString)) + If (DdlAlmacenAsignado.Items.FindByValue(ObjContratos.CveAlmacen.ToString()) Is Nothing) Then + Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacen.ToString())) If dr IsNot Nothing Then - DdlAlmacenAsignado.Items.Insert(0, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) + DdlAlmacenAsignado.Items.Insert(0, New ListItem(dr("Almacen").ToString(), dr("CveAlmacen").ToString())) End If End If - DdlAlmacenAsignado.SelectedValue = ObjContratos.CveAlmacen.ToString + DdlAlmacenAsignado.SelectedValue = ObjContratos.CveAlmacen.ToString() DdlAlmacenAsignado.Enabled = False Else If (DdlAlmacenAsignado.Items.FindByValue("89") Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", "89")) If dr IsNot Nothing Then - DdlAlmacenAsignado.Items.Insert(0, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString + DdlAlmacenAsignado.Items.Insert(0, New ListItem(dr("Almacen").ToString(), dr("CveAlmacen").ToString())) ' lo genera Obj.SelectedValue = Valor.ToString() DdlAlmacenAsignado.Enabled = False End If End If @@ -3301,13 +3302,13 @@ Partial Class Ventas If ObjContratos.CveAlmacenOrigen > 0 AndAlso TipoContrato = 0 Then DdlAlmacenOrigen.Visible = True RequiereAlmacenOrigen = True - If (DdlAlmacenOrigen.Items.FindByValue(ObjContratos.CveAlmacenOrigen.ToString) Is Nothing) Then - Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacenOrigen.ToString)) + If (DdlAlmacenOrigen.Items.FindByValue(ObjContratos.CveAlmacenOrigen.ToString()) Is Nothing) Then + Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", ObjContratos.CveAlmacenOrigen.ToString())) If dr IsNot Nothing Then - DdlAlmacenOrigen.Items.Insert(0, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) + DdlAlmacenOrigen.Items.Insert(0, New ListItem(dr("Almacen").ToString(), dr("CveAlmacen").ToString())) End If End If - DdlAlmacenOrigen.SelectedValue = ObjContratos.CveAlmacenOrigen.ToString + DdlAlmacenOrigen.SelectedValue = ObjContratos.CveAlmacenOrigen.ToString() DdlAlmacenOrigen.Enabled = False End If @@ -3342,16 +3343,16 @@ Partial Class Ventas End Sub Private Sub GuardarContratoAvanceEstimaciones(ObjContrato As ClsContratos, factura As Modelos.Factura, ErrorList As List(Of String), Multiplicador As Integer, Optional CrearAvance As Boolean = False) - If (factura.CveContrato > 0 AndAlso ((DdlContratosModal.Items.Count > 0 AndAlso factura.CveContrato = DdlContratosModal.SelectedValue.ToEntero) OrElse DdlFiltroContrato.SelectedValue.ToEntero > 0 OrElse CrearAvance)) Or ContratoOC Then + If (factura.CveContrato > 0 AndAlso ((DdlContratosModal.Items.Count > 0 AndAlso factura.CveContrato = DdlContratosModal.SelectedValue.ToEntero()) OrElse DdlFiltroContrato.SelectedValue.ToEntero() > 0 OrElse CrearAvance)) Or ContratoOC Then Dim CveEstimacion As Integer = -1 If ObjContrato.AddEstimaciones(factura.CveContrato, factura.Fecha, -1, factura.CveVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - CveEstimacion = ObjContrato.DtResultados(0)("CveEstimacion").ToString.ToEntero + CveEstimacion = ObjContrato.DtResultados(0)("CveEstimacion").ToString().ToEntero() For Each row As DataRow In TmpDT.Rows - If row("CveContratoDetalle").ToString.ToEntero > 0 Then - If Not ObjContrato.AddContratosAvance(row("CveContratoDetalle").ToString.ToEntero, row("Cantidad").ToString.ToEntero * Multiplicador, factura.Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then + If row("CveContratoDetalle").ToString().ToEntero() > 0 Then + If Not ObjContrato.AddContratosAvance(row("CveContratoDetalle").ToString().ToEntero(), row("Cantidad").ToString().ToEntero() * Multiplicador, factura.Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then ErrorList.Add("Ocurrió un error al agregar los avances") End If End If @@ -3385,7 +3386,7 @@ Partial Class Ventas End If 'CONSIGNACION DE VENTA - If CveAlmacenExistenciasContrato > 0 And e.Row.DBCampo("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then + If CveAlmacenExistenciasContrato > 0 And e.Row.DBCampo("Inv_CveMetodoInventario").ToString().ToEntero() = 5 Then GvContratoDetalles.Columns(8).Visible = True e.Row.FCButton("BtnSerieConsignacion").Visible = True e.Row.FCButton("BtnSerieConsignacion").CommandArgument = $"{e.Row.DBCampo("CveContratoDetalle")}°{e.Row.DBCampo("CvePS")}°{e.Row.DBCampo("CveUM")}°{e.Row.DBCampo("CodigoPS")}°{e.Row.DBCampo("Cantidad")}°{LimitaCantidadSerieLote}" @@ -3393,21 +3394,21 @@ Partial Class Ventas End If ''Si viene de una OC Sin Facturar y tiene contrato - 'If TieneContrato AndAlso ContratosConOC IsNot Nothing AndAlso ContratosConOC.ToString.Length > 0 Then - ' e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("CantidadOC").ToString + 'If TieneContrato AndAlso ContratosConOC IsNot Nothing AndAlso ContratosConOC.ToString().Length > 0 Then + ' e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("CantidadOC").ToString() 'End If End If End Sub Private Sub BtnCalcularTotalesContrato_Click(sender As Object, e As EventArgs) Handles BtnCalcularTotalesContrato.Click For Each row As GridViewRow In GvContratoDetalles.Rows - row.FCLiteral("LtlTotal").Text = (row.FCLiteral("LtlCantDisp").Text.ToEntero * row.FCTextBox("TxtCant").Text.ToDouble).FormatoNumero(2) + row.FCLiteral("LtlTotal").Text = (row.FCLiteral("LtlCantDisp").Text.ToEntero() * row.FCTextBox("TxtCant").Text.ToDouble).FormatoNumero(2) Next UpContratos.Update() End Sub Private Sub DdlContratoModalSelectIndex() - If Not DdlContratosModal.SelectedValue.ToEntero > 0 Then + If Not DdlContratosModal.SelectedValue.ToEntero() > 0 Then GvContratoDetalles.DataBind() UpContratos.Update() Exit Sub @@ -3444,7 +3445,7 @@ Partial Class Ventas LnkActualizarOrdenProduccion.Visible = True DdlOrdenProduccion.DataSource = ObjCGame.DtResultados.FiltraParametros($"CveVenta = {CveVenta} OR CveVenta IS NULL") If ObjCGame.DtResultados.FiltraParametros($"CveVenta = {CveVenta}").Rows.Count > 0 Then - CveOrdenProduccion = ObjCGame.DtResultados.FiltraParametros($"CveVenta = {CveVenta}").Rows(0)("CveOrdenProduccion").ToString + CveOrdenProduccion = ObjCGame.DtResultados.FiltraParametros($"CveVenta = {CveVenta}").Rows(0)("CveOrdenProduccion").ToString() End If End If DdlOrdenProduccion.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -3479,7 +3480,7 @@ Partial Class Ventas If OS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then - HdnCveCliente.Value = OS.CveCliente.ToString + HdnCveCliente.Value = OS.CveCliente.ToString() ViewState("CveCliente") = OS.CveCliente CargaCliente(CveCliente) @@ -3487,8 +3488,8 @@ Partial Class Ventas Dim Cons As Integer = 1 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows - AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU").ToString.ToDecimal, 0, -1, "", - dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString) + AgregarProductoServicio(dr("Cantidad").ToString().ToDecimal, dr("CveUM").ToString().ToEntero(), dr("UM").ToString(), -1, "", dr("CvePS").ToString().ToEntero(), "", dr("Obs").ToString(), dr("PU").ToString().ToDecimal, 0, -1, "", + dr("CveSubProyecto").ToString().ToEntero(), dr("SubProyecto").ToString()) 'Dim drt As DataRow = TmpDT.NewRow 'drt("Consec") = Cons @@ -3510,7 +3511,7 @@ Partial Class Ventas End If For Each Row As DataRow In DtDetalle.Rows - If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString.ToEntero, CveOS) Then + If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then If OS.DtResultados.FiltraParametros("SeFacturara = 1").Rows.Count > 0 Then Alert("Hay materiales en la Orden de Servicio, ¿Desea facturar los materiales?", TipoMensaje.MsgConfirmacion, "BtnMateriales()") End If @@ -3538,8 +3539,8 @@ Partial Class Ventas Dim Retorno As Boolean = False 'CARGA PARA FACTURACION - Dim CveRemision As Integer = IfNull(ViewState("CveRemision"), 0).ToString.ToEntero - Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString.ToEntero + Dim CveRemision As Integer = IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() + Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero() Dim CveVenta As Integer = Me.CveVenta CveVenta = If(CveRemision > 0, CveRemision, CveVenta) CveVenta = If(CveCotizacion > 0, CveCotizacion, CveVenta) @@ -3553,25 +3554,25 @@ Partial Class Ventas If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0) - Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString.ToEntero - HdnCveVenta.Value = CveVenta.ToString + Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString().ToEntero() + HdnCveVenta.Value = CveVenta.ToString() Dim DtUsados As DataTable = Nothing If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then Dim ObjUsados As New ClsVentas - If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString.ToDateTime, UsuarioActual.CveEmpresa) Then + If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then DtUsados = ObjUsados.DtResultados End If ObjUsados.Dispose() End If - ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString.ToEntero + ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero() - Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString.ToEntero + Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString().ToEntero() 'CargaEncabezado If Not (CveRemision > 0 Or CveCotizacion > 0) Then - DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString + DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString() If UsuarioActual.TienePermisoProceso(274) Then TrAntEspecial.Visible = DdlTipoComprobante.SelectedValue = "Ant" @@ -3579,15 +3580,15 @@ Partial Class Ventas If TrAntEspecial.Visible Then ChkAntEspecial.Enabled = False - ChkAntEspecial.Checked = If(DbRowVenta("AnticipoEspecial").ToString = "True", True, False) + ChkAntEspecial.Checked = If(DbRowVenta("AnticipoEspecial").ToString() = "True", True, False) End If CargaEstatusFactura(DdlTipoComprobante.SelectedValue) - CveEstatus = DbRowVenta("CveEstatusFactura").ToString.ToEntero - LbEstatus.Text = DbRowVenta("EstatusFactura").ToString - ViewState("SaldoVenta") = DbRowVenta("Saldo").ToString - AplicaCancelarRemision = CBool(DbRowVenta("AplicaCancelarRemision").ToString) + CveEstatus = DbRowVenta("CveEstatusFactura").ToString().ToEntero() + LbEstatus.Text = DbRowVenta("EstatusFactura").ToString() + ViewState("SaldoVenta") = DbRowVenta("Saldo").ToString() + AplicaCancelarRemision = CBool(DbRowVenta("AplicaCancelarRemision").ToString()) If AplicaCancelarRemision AndAlso CveEstatus.Contiene(2, 3) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then DivCanRem.Visible = True - VentaSaldoAlmacen = DbRowVenta("SaldoAlmacen").ToString.ToDecimal + VentaSaldoAlmacen = DbRowVenta("SaldoAlmacen").ToString().ToDecimal If CveEstatus = 5 Then LbCancelarDocumento.Enabled = False 'If CveEstatus = 20 Then @@ -3602,10 +3603,10 @@ Partial Class Ventas End If End If - If DbRowVenta("CveVentaRelacionada").ToString.ToEntero > 0 Then + If DbRowVenta("CveVentaRelacionada").ToString().ToEntero() > 0 Then TrRefacturadaa.Visible = True HplRefacturadaEn.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", DbRowVenta("CveVentaRelacionada")) - HplRefacturadaEn.Text = DbRowVenta("SerieFolioRelacionada").ToString + HplRefacturadaEn.Text = DbRowVenta("SerieFolioRelacionada").ToString() LblAlertRefacInv.Visible = True End If @@ -3617,7 +3618,7 @@ Partial Class Ventas 'If UsuarioActual.CveEmpresa = 119 And Not UsuarioActual.CveUsuario.Contiene(100, 1703) Then '[IPP] AD y Jesus de JAM ' 'si es del mes anterior no permita cancelar ' If Not DdlTipoComprobante.SelectedValue.Contiene("Rem") Then - ' If DbRowVenta("Fecha").ToString.ToDate <= Now.AddMonths(-1).LastDayOfMonth Then + ' If DbRowVenta("Fecha").ToString().ToDate <= Now.AddMonths(-1).LastDayOfMonth Then ' LbCancelarDocumento.Visible = False ' End If ' End If @@ -3642,7 +3643,7 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev") AndAlso LblFolioFiscal.Text.Trim = "" Then HplFolioFiscalModal.Visible = True - Select Case DbRowVenta("TipoDocto").ToString + Select Case DbRowVenta("TipoDocto").ToString() Case "Ing" Trsaldo.Visible = True HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) @@ -3665,7 +3666,7 @@ Partial Class Ventas HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto")))) Case "Egs" HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto")))) - HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString + HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString() Trsaldo.Visible = True HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) @@ -3683,15 +3684,15 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 80 Then LtlImprimir.Text = String.Format("
{0}", Vta.SerieVenta) Vta.Dispose() If Opcion > 0 Then - If ModalidadEdicion AndAlso ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero And DdlTipoComprobante.SelectedValue = "Rem" And ViewState("CveClienteAnterior").ToString.ToEntero > 0 And LblRFC.Text.Trim <> "XAXX010101000" Then - ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString.ToEntero + If ModalidadEdicion AndAlso ViewState("CveCliente").ToString().ToEntero() <> ViewState("CveClienteAnterior").ToString().ToEntero() And DdlTipoComprobante.SelectedValue = "Rem" And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000" Then + ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString().ToEntero() - CargaCliente(ViewState("CveCliente").ToString.ToEntero) + CargaCliente(ViewState("CveCliente").ToString().ToEntero()) If Opcion > 0 Then If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) Else @@ -5390,7 +5391,7 @@ Partial Class Ventas BtnGenerarOS.Visible = False BtnEmitirImprimir.Visible = False BtnsFacturar.Visible = False - If ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero Then + If ViewState("CveCliente").ToString().ToEntero() <> ViewState("CveClienteAnterior").ToString().ToEntero() Then If Opcion > 0 Then If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) Else @@ -5420,31 +5421,31 @@ Partial Class Ventas If CveClienteSuc > 0 Then If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - Dim Correo = ObjCliente.DtResultados.Rows(0)("Correo").ToString + Dim Correo = ObjCliente.DtResultados.Rows(0)("Correo").ToString() If Correo.Trim.Length > 0 Then ViewState("Mail") = Correo End If - LblDireccion.Text = ObjCliente.DtResultados.Rows(0)("Direccion").ToString - LblColonia.Text = ObjCliente.DtResultados.Rows(0)("Colonia").ToString - LblCiudad.Text = ObjCliente.DtResultados.Rows(0)("Ciudad").ToString - LblEstado.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString - 'TxtNumCtaPago.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString - LblTelefono.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString - LblCP.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString - ViewState("CliLocalidad") = ObjCliente.DtResultados.Rows(0)("Localidad").ToString - ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString - ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString - ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString) - ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString - ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString + LblDireccion.Text = ObjCliente.DtResultados.Rows(0)("Direccion").ToString() + LblColonia.Text = ObjCliente.DtResultados.Rows(0)("Colonia").ToString() + LblCiudad.Text = ObjCliente.DtResultados.Rows(0)("Ciudad").ToString() + LblEstado.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString() + 'TxtNumCtaPago.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString() + LblTelefono.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString() + LblCP.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString() + ViewState("CliLocalidad") = ObjCliente.DtResultados.Rows(0)("Localidad").ToString() + ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString() + ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString() + ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString() + DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) + ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString() + ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString() - If ObjCliente.DtResultados.Rows(0)("Estatus").ToString <> "Activo" Then + If ObjCliente.DtResultados.Rows(0)("Estatus").ToString() <> "Activo" Then RBLPago.Items(0).Enabled = False Alert("La Sucursal/Departamento del cliente se encuentra inactivo", TipoMensaje.MsgAdvertencia) Else RBLPago.Items(0).Enabled = True - Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero, ObjVentas) + Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero(), ObjVentas) TrCreditoDisponible.Visible = True LblCreditoDisponible.Text = CreditoDispo.FormatoNumero @@ -5453,16 +5454,16 @@ Partial Class Ventas End If If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero + CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() - DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString) + DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString()) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) - DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString) - DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString) + DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString()) + DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString()) End If - If CveVenta < 0 Then TxtAtencionA.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString + If CveVenta < 0 Then TxtAtencionA.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString() End If Else Alert("No se pudieron cargar los datos de la sucursal", TipoMensaje.MsgAdvertencia) @@ -5477,7 +5478,7 @@ Partial Class Ventas LblEstado.Text = ObjCliente.Estado LblCP.Text = ObjCliente.CP LblTelefono.Text = ObjCliente.Telefono - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString) + DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoInt") = ObjCliente.NoInt PlazoCobranza = ObjCliente.PlazoCobranza @@ -5497,8 +5498,8 @@ Partial Class Ventas End If 'SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO - If Not DdlVendedor.SelectedValue.ToEntero > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString) + If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) End If 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES @@ -5526,11 +5527,11 @@ Partial Class Ventas If ObjVentasAplciar.DtResultados.Rows.Count > 0 Then If tCveSucursalCliente > 0 Then - Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString.ToDecimal - PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString.ToDecimal + Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal + PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString().ToDecimal Else - Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString.ToDecimal - PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString.ToDecimal + Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal + PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal End If End If End If @@ -5569,9 +5570,9 @@ Partial Class Ventas End Sub Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost) - Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1") + Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1") - If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then Objeto.ddl.Items.Clear() 'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1) Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1) @@ -5589,7 +5590,7 @@ Partial Class Ventas End If Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto) - Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) + Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString()) Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") Objeto.ddlWS.Attributes.Add("data-Estatus", "1") End If @@ -5609,12 +5610,12 @@ Partial Class Ventas DTFacNC = ObjClientes.DtResultados Dim drvv As DataRow = DTFacNC.FiltroPrimero("") DTFacNC.Columns.Add("Factura", GetType(String), " Folio + ' - ' + Fecha + ' $' + Total") - HdnFolioFiscalNC.Value = drvv("FolioFiscal").ToString + HdnFolioFiscalNC.Value = drvv("FolioFiscal").ToString() If DTFacNC IsNot Nothing AndAlso DTFacNC.Rows.Count > 0 Then Me.CveEstatusRefacturacion = DTFacNC.Rows(0)("CveEstatusRefacturacion").ToString().ToEntero() - Me.DevolucionAlmacenNC = DTFacNC.Rows(0)("EsDevolucionVenta").ToString.ToEntero - Me.VentaSaldoAlmacenNC = DTFacNC.Rows(0)("SaldoAlmacen").ToString.ToDecimal + Me.DevolucionAlmacenNC = DTFacNC.Rows(0)("EsDevolucionVenta").ToString().ToEntero() + Me.VentaSaldoAlmacenNC = DTFacNC.Rows(0)("SaldoAlmacen").ToString().ToDecimal HdnRFCVenta.Value = DTFacNC.Rows(0)("ClienteRFC").ToString() End If Else @@ -5624,7 +5625,7 @@ Partial Class Ventas ObjClientes.Dispose() Me.ObjFacturaNC = Nothing - Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=Server.MapPath("/"), EsCancelacion:=False) + Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False) DdlNCFactura.DataSource = DTFacNC DdlNCFactura.DataBind() @@ -5679,7 +5680,7 @@ Partial Class Ventas #Region "GvPS" Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.Attributes("id") = e.Row.RowIndex.ToString + e.Row.Attributes("id") = e.Row.RowIndex.ToString() If e.Row.RowIndex = 0 Then End If @@ -5687,14 +5688,14 @@ Partial Class Ventas If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then 'MODO EDICION - e.Row.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlUnidadMedida").DataBind() e.Row.FCDropDownList("DdlUnidadMedida").SelectedValueExist(e.Row.DBCampo("CveUM")) e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1) e.Row.FCDropDownList("DdlClasificacion").DataBind() e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion") - CargaPS(e.Row.FCDropDownList("DdlClasificacion").SelectedValue.ToEntero, e.Row.FCDropDownLost("DdlPS")) + CargaPS(e.Row.FCDropDownList("DdlClasificacion").SelectedValue.ToEntero(), e.Row.FCDropDownLost("DdlPS")) e.Row.FCDropDownLost("DdlPS").SelectedText = e.Row.DBCampo("PS") e.Row.FCDropDownLost("DdlPS").SelectedValue = e.Row.DBCampo("CvePS") @@ -5705,20 +5706,20 @@ Partial Class Ventas e.Row.FCDropDownList("DdlProyecto").DataBind() e.Row.FCDropDownList("DdlProyecto").Items.Insert(0, New ListItem("Sin Proyecto Asignado", "-1")) - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1) + e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1) 'e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveProyecto = '" & DdlProyecto.SelectedValue & "'") e.Row.FCDropDownList("DdlSubProyecto").DataBind() 'e.Row.FCDropDownList("DdlSubProyectoEdit").SelectedValue = e.Row.DBCampo("CveSubProyecto") e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) Else - Dim dr As DataRow = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, e.Row.DBCampo("CveSubProyecto").ToEntero, 1).FiltroPrimero("") + Dim dr As DataRow = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, e.Row.DBCampo("CveSubProyecto").ToEntero(), 1).FiltroPrimero("") If dr IsNot Nothing Then e.Row.FCDropDownList("DdlProyecto").DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) e.Row.FCDropDownList("DdlProyecto").DataBind() - e.Row.FCDropDownList("DdlProyecto").SelectedValue = dr("CveProyecto").ToString + e.Row.FCDropDownList("DdlProyecto").SelectedValue = dr("CveProyecto").ToString() - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, dr("CveProyecto").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, 1) + e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, dr("CveProyecto").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, 1) e.Row.FCDropDownList("DdlSubProyecto").DataBind() e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto") @@ -5787,7 +5788,7 @@ Partial Class Ventas End If 'CUANDO SE QUIERE FACTURAR UNA REMISIÓN NO PERMITE EDITAR SU PRECIO - If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso (e.Row.DBCampo("CveVentaDetalle").ToEntero > 0 Or e.Row.DBCampo("CveVentaDetalleRemision").ToEntero > 0) Then + If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso (e.Row.DBCampo("CveVentaDetalle").ToEntero() > 0 Or e.Row.DBCampo("CveVentaDetalleRemision").ToEntero() > 0) Then e.Row.FCTextBox("TxtPrecio").Enabled = False End If @@ -5892,7 +5893,7 @@ Partial Class Ventas e.Row.FCLiteral("LtCantidadFacturada").Text = e.Row.DBCampo("CantidadFacturadaPed2").ToDecimal.ToString("#,##0.##") End Select - 'If GvInv.Rows.Count > 0 AndAlso ModalidadEdicion AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso e.Row.DataKey("CveVentaDetalle").ToString.ToEntero > 0 Then + 'If GvInv.Rows.Count > 0 AndAlso ModalidadEdicion AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso e.Row.DataKey("CveVentaDetalle").ToString().ToEntero() > 0 Then ' e.Row.FCLinkButton("imgE").Enabled = False ' e.Row.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen." 'End If @@ -5932,19 +5933,19 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 140 Then - ObjDescuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero, Cantidad, PU) + ObjDescuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero(), Cantidad, PU) End If Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal() Dim DatarowPS As DataRow = Nothing - DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero).FiltroPrimero("") ' Estado = -1 + DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 'verifica si tiene ventaminima - If Cantidad > 0 AndAlso DatarowPS("VentaMinima").ToString.ToDecimal > 0 AndAlso (DdlTipoComprobante.SelectedValue = "Rem" Or DdlTipoComprobante.SelectedValue = "Ing") Then + If Cantidad > 0 AndAlso DatarowPS("VentaMinima").ToString().ToDecimal > 0 AndAlso (DdlTipoComprobante.SelectedValue = "Rem" Or DdlTipoComprobante.SelectedValue = "Ing") Then 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... - If Cantidad Mod DatarowPS("VentaMinima").ToString.ToDecimal <> 0 Then - Alert(String.Format("El producto se vende solo en cantidades de {0}", DatarowPS("VentaMinima").ToString)) + If Cantidad Mod DatarowPS("VentaMinima").ToString().ToDecimal <> 0 Then + Alert(String.Format("El producto se vende solo en cantidades de {0}", DatarowPS("VentaMinima").ToString())) Exit Sub End If End If @@ -5953,11 +5954,11 @@ Partial Class Ventas 'si es remisión, ingreso, anticipo debe de considerar el preciominimo If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR - Dim CvePS As Integer = DatarowPS("CvePS").ToString.ToEntero - Dim CveUM As Integer = DatarowPS("CveUM").ToString.ToEntero - Dim CveTipoPS As Integer = DatarowPS("CveTipoPS").ToString.ToEntero + Dim CvePS As Integer = DatarowPS("CvePS").ToString().ToEntero() + Dim CveUM As Integer = DatarowPS("CveUM").ToString().ToEntero() + Dim CveTipoPS As Integer = DatarowPS("CveTipoPS").ToString().ToEntero() - CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString.ToDecimal + CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString().ToDecimal Dim ValidaExistencia As Boolean = True If (CantidadInventario > 0) OrElse (Cantidad <= CantidadOriginal) Then 'si ya hay algo surtido, que no valide existencia @@ -5969,10 +5970,10 @@ Partial Class Ventas Dim ObjInventarios As New ClsInventarios Dim Existencia As Decimal If ValidaExistencia Then - Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) + Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) End If - Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1) + Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If Costo = 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) @@ -5983,7 +5984,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 119 Then 'Dim CvePrecioLista As Integer = 38 Dim objPS As New ClsProductosServicios - If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then + If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) Then PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal 'If PrecioMinimo > 0 Then ' Costo = PrecioMinimo @@ -6013,7 +6014,7 @@ Partial Class Ventas Dim CostoMayor = 0.0D 'PRECIO MINIMO - If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(129).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo If PrecioMinimo > 0 Then 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA @@ -6023,7 +6024,7 @@ Partial Class Ventas Else CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then EsValido = True End If End If @@ -6032,10 +6033,10 @@ Partial Class Ventas End If 'PRECIO MAXIMO - If UsuarioActual.Empresa.Funcionalidad(133).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO MAXIMO, SI PASA - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then EsValidoMayor = True End If Else @@ -6046,7 +6047,7 @@ Partial Class Ventas ''SIRVE PARA VALIDAR PRECIOS DEBAJO DEL PRECIO MINIMO PERMITIDO 'If Not EsValido Then ' If DtPromociones.FiltraParametros($"CvePS = {CvePS}").Rows.Count > 0 Then - ' If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then + ' If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then ' EsValido = True ' End If ' End If @@ -6056,15 +6057,15 @@ Partial Class Ventas Dim MensajeCosto As New StringBuilder Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) If Not EsValido Then - MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio menor de su Costo
", DatarowPS("PS").ToString) + MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio menor de su Costo
", DatarowPS("PS").ToString()) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: ${0:#,###.00}
", Costo) - MensajeCosto.AppendFormat("El rango menor aceptado es: {0:#,###.00}% ${1}
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor) + MensajeCosto.AppendFormat("El rango menor aceptado es: {0:#,###.00}% ${1}
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor) MensajeCosto.AppendFormat("El precio indicado es: ${0:#,###.00} ({1}% de ganancia)
", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero) End If - Alert(String.Format(MensajeCosto.ToString), TipoMensaje.MsgAdvertencia) + Alert(String.Format(MensajeCosto.ToString()), TipoMensaje.MsgAdvertencia) e.Cancel = True Exit Sub End If @@ -6074,10 +6075,10 @@ Partial Class Ventas MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio mayor de su rango aceptado
", HdnPS.Value) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: ${0:#,###.00}
", Costo) - MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor) + MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor) MensajeCosto.AppendFormat("El precio indicado es: ${0:#,###.00} ({1}% de ganancia)
", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero) End If - Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia) + Alert(MensajeCosto.ToString(), TipoMensaje.MsgAdvertencia) e.Cancel = True Exit Sub End If @@ -6088,24 +6089,24 @@ Partial Class Ventas - If TmpDT.Rows(e.RowIndex)("CvePS").ToString <> GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue Then + If TmpDT.Rows(e.RowIndex)("CvePS").ToString() <> GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue Then 'eliminar y cargar el ps *** Dim DdlUM As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida") Dim DdlCla As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlClasificacion") TmpDT.Rows.Remove(TmpDT.Rows(e.RowIndex)) CalculaUsados() - AgregarProductoServicio(Cantidad, DdlUM.SelectedValue.ToEntero, DdlUM.SelectedItem.Text, DdlCla.SelectedValue.ToEntero, DdlCla.SelectedItem.Text, - GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero, GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedText, + AgregarProductoServicio(Cantidad, DdlUM.SelectedValue.ToEntero(), DdlUM.SelectedItem.Text, DdlCla.SelectedValue.ToEntero(), DdlCla.SelectedItem.Text, + GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedText, GvPS.Rows(e.RowIndex).FCTextBox("TxtObsPS").Text.Trim, PU, ObjDescuento.ImporteDescuento, - GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero, GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text, - GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text, - CuentaPredial:=CuentaPredial, CveVentaDetalle:=GvPS.Rows(e.RowIndex).DataKey("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle) + GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text, + GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text, + CuentaPredial:=CuentaPredial, CveVentaDetalle:=GvPS.Rows(e.RowIndex).DataKey("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle) ' TmpDT.Rows(e.RowIndex)("CveUM") = Ddl.SelectedValue ' TmpDT.Rows(e.RowIndex)("UM") = Ddl.SelectedItem.Text - If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then + If UsuarioActual.Empresa.Funcionalidad(533).ToEntero() > 0 Then GvPS.EditIndex = -1 GvPS.DataSource = TmpDT @@ -6119,18 +6120,18 @@ Partial Class Ventas If Not ClienteDesglosaIEPS Then Dim DrPS As DataRow = Nothing - 'DrPS = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero, Estatus:=-1).FiltroPrimero("") + 'DrPS = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero(), Estatus:=-1).FiltroPrimero("") - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero).FiltroPrimero("") + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") - PU = PU * (1 + DrPS("IEPSPorcentaje").ToString.ToDecimal) + PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) TmpDT.Rows(e.RowIndex)("PorcentajeIEPS") = 0 End If Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (ObjDescuento.ImporteDescuento)) Dim TotalCalculableImpuestosIVA As Decimal = 0 - TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal) + TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal) Dim ClienteRetIVA = Me.ClienteRetIVA If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then @@ -6150,7 +6151,7 @@ Partial Class Ventas End If - TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero + TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero() TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text TmpDT.Rows(e.RowIndex)("Cantidad") = Cantidad TmpDT.Rows(e.RowIndex)("Obs") = GvPS.Rows(e.RowIndex).FCTextBox("TxtObsPS").Text.Trim @@ -6158,8 +6159,8 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PU") = PU TmpDT.Rows(e.RowIndex)("Descuento") = ObjDescuento.ImporteDescuento TmpDT.Rows(e.RowIndex)("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales) - TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) - TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) + TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("PorcentajeRetIVA") = ClienteRetIVA @@ -6237,7 +6238,7 @@ Partial Class Ventas End If 'SERIE ALMACEN - If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then + If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 Then If CveVenta > 0 Then e.Row.FCLiteral("LtlSerie").Visible = True Else @@ -6256,12 +6257,12 @@ Partial Class Ventas End If If e.Row.DBCampo("CvePS") = "" Then - e.Row.FCLiteral("LtlPS").Text = String.Format("Folio: {1} Fecha: {2} -- {3} -- {4}", e.Row.DBCampo("CveMovimiento"), e.Row.DBCampo("Folio"), e.Row.DBCampo("Fecha").ToString.ToDate.ToShortDateString, e.Row.DBCampo("Almacen").ToString, e.Row.DBCampo("Concepto").ToString) + e.Row.FCLiteral("LtlPS").Text = String.Format("Folio: {1} Fecha: {2} -- {3} -- {4}", e.Row.DBCampo("CveMovimiento"), e.Row.DBCampo("Folio"), e.Row.DBCampo("Fecha").ToString().ToDate.ToShortDateString, e.Row.DBCampo("Almacen").ToString(), e.Row.DBCampo("Concepto").ToString()) e.Row.FCCheckBox("cbInv").Visible = False e.Row.FCCheckBox("cbInv").Enabled = False - If e.Row.DataKey("Origen").ToEntero > 0 Then + If e.Row.DataKey("Origen").ToEntero() > 0 Then e.Row.BackColor = Drawing.Color.FromArgb(224, 130, 131) e.Row.ForeColor = Drawing.Color.White e.Row.Font.Bold = True @@ -6275,7 +6276,7 @@ Partial Class Ventas e.Row.FCCheckBox("cbInv").Enabled = True 'SI ES REMISION O VENTA DEBE SALIR DE ALMACEN - If UsuarioActual.TienePermisoProceso(157) AndAlso e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso UsuarioActual.CveEmpresa <> 72 Then + If UsuarioActual.TienePermisoProceso(157) AndAlso e.Row.DBCampo("CvePS").ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso UsuarioActual.CveEmpresa <> 72 Then e.Row.FCCheckBox("cbInv").Checked = True e.Row.FCCheckBox("cbInv").Enabled = False End If @@ -6283,7 +6284,7 @@ Partial Class Ventas End If If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then - If e.Row.DBCampo("CveConcepto").ToEntero = 3 Then CveAlmacenDevolucion = e.Row.DBCampo("CveAlmacen").ToEntero + If e.Row.DBCampo("CveConcepto").ToEntero() = 3 Then CveAlmacenDevolucion = e.Row.DBCampo("CveAlmacen").ToEntero() e.Row.FCCheckBox("cbInv").Visible = False End If @@ -6323,7 +6324,7 @@ Partial Class Ventas ' If GvInvNC.Rows.Count = 0 Then ' Try ' If Not IsNothing(DTFacNC) AndAlso DTFacNC.FiltraParametros(String.Format("CveVenta={0}", DdlNCFactura.SelectedValue)).Rows.Count > 0 Then - ' retorno = DTFacNC.FiltroPrimero(String.Format("CveVenta={0}", DdlNCFactura.SelectedValue))("SubTotal").ToString.ToDecimal + ' retorno = DTFacNC.FiltroPrimero(String.Format("CveVenta={0}", DdlNCFactura.SelectedValue))("SubTotal").ToString().ToDecimal ' End If ' Catch ex As Exception @@ -6332,7 +6333,7 @@ Partial Class Ventas ' For Each gvrow As GridViewRow In GvInvNC.Rows ' Dim txt As TextBox = gvrow.FCTextBox("Txtcantidad") ' If txt.Visible Then - ' retorno += txt.Text.ToDecimal * gvrow.DataKey("PU").ToString.ToDecimal + ' retorno += txt.Text.ToDecimal * gvrow.DataKey("PU").ToString().ToDecimal ' End If ' Next ' End If @@ -6461,9 +6462,9 @@ Partial Class Ventas DdlTipoComprobante.SelectedValue = "Ing" EraCotizacion = 1 - TxtFecha.Text = Now.ToString + TxtFecha.Text = Now.ToString() TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranza), Now.AddDays(PlazoCobranza)).ToShortDateString - TxtFechaEjecucion.Text = Now.ToString + TxtFechaEjecucion.Text = Now.ToString() 'debo de regenerar los folios, para facturar CargaFolios() @@ -6503,7 +6504,7 @@ Partial Class Ventas Dim ObjContrato As New ClsContratos If ObjContrato.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then If ObjContrato.DtResultados.Rows.Count > 0 Then - CveContratoTipo = ObjContrato.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero + CveContratoTipo = ObjContrato.DtResultados.Rows(0)("CveContratoTipo").ToString().ToEntero() End If End If ObjContrato.Dispose() @@ -6514,17 +6515,17 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then Dim ObjVentas As New ClsVentas - If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero) Then + If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString.ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then + If DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then + If ObjVentas.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then ObjVentas.Dispose() Alert("Se está excediendo el límite de credito permitido de la Sucursal del Cliente.", TipoMensaje.MsgInformacion) Exit Sub End If Else - If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString.ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then + If ObjVentas.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal - If(TxtTipoCambio.Visible, TxtTotal.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal, TxtTotal.Text.ToDecimal) < 0 Then ObjVentas.Dispose() Alert("Se está excediendo el límite de credito permitido del Cliente.", TipoMensaje.MsgInformacion) Exit Sub @@ -6560,7 +6561,7 @@ Partial Class Ventas 'VALIDA PROMOCIONES Y EXISTENCIAS Dim ObjVentas As New ClsVentas - If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then DtPromociones = ObjVentas.DtResultados End If ObjVentas.Dispose() @@ -6572,24 +6573,24 @@ Partial Class Ventas Dim CveUnidad As Integer Dim CveProducto As Integer Dim Existencia As Double - Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero + Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero() For Each dr As DataRow In TmpDT.Rows 'SI ES SERVICIO NO VALIDA 'GlobalDTProductosServicios - If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveTipoPS").ToString.ToEntero = 1 Then + If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveTipoPS").ToString().ToEntero() = 1 Then Continue For End If If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then 'VALIDA EXISTENCIA - CveProducto = dr("CvePS").ToString.ToEntero - CveUnidad = dr("CveUM").ToString.ToEntero + CveProducto = dr("CvePS").ToString().ToEntero() + CveUnidad = dr("CveUM").ToString().ToEntero() Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") 'VALIDA CONTRA LA SUMA DEL MISMO PS - If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then - Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) + If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString().ToEntero() < 1 Then + Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) If Existencia < Cantidad Then - MensajeCosto.AppendFormat("
El Producto {0}. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString, Existencia.FormatoNumero(2)) + MensajeCosto.AppendFormat("
El Producto {0}. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString(), Existencia.FormatoNumero(2)) Continue For End If End If @@ -6598,15 +6599,15 @@ Partial Class Ventas EsValido = False EsValidoMayor = False EsValidoPU = True - PU = dr("PU").ToString.ToDecimal * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) - Costo = ObjInventarios.GetCostoPS(dr("CvePS").ToString.ToEntero, dr("Cantidad").ToString.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1) + PU = dr("PU").ToString().ToDecimal * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) + Costo = ObjInventarios.GetCostoPS(dr("CvePS").ToString().ToEntero(), dr("Cantidad").ToString().ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) Dim PrecioMinimo As Decimal = 0 'RMF. condicion temporal, para reubicación, precio mínimo If UsuarioActual.CveEmpresa = 119 Then 'Dim CvePrecioLista As Integer = 38 Dim objPS As New ClsProductosServicios - If objPS.GetPSSucursalesALL(dr("CvePS").ToString.ToEntero, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then + If objPS.GetPSSucursalesALL(dr("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) Then PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal 'If PrecioMinimo > 0 Then ' Costo = PrecioMinimo @@ -6617,7 +6618,7 @@ Partial Class Ventas End If 'PRECIO MINIMO - If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(129).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo If PrecioMinimo > 0 Then 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA @@ -6627,7 +6628,7 @@ Partial Class Ventas Else CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then EsValido = True End If End If @@ -6635,7 +6636,7 @@ Partial Class Ventas EsValido = True End If - If UsuarioActual.Empresa.Funcionalidad(133).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA If PU <= CostoMayor Then @@ -6647,8 +6648,8 @@ Partial Class Ventas 'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR If Not EsValido Or PU = 0 Then - If DtPromociones.FiltraParametros($"CvePS = {dr("CvePS").ToString.ToEntero}").Rows.Count > 0 Then - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {dr("CvePS").ToString.ToEntero}").ToDecimal Then + If DtPromociones.FiltraParametros($"CvePS = {dr("CvePS").ToString().ToEntero()}").Rows.Count > 0 Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {dr("CvePS").ToString().ToEntero()}").ToDecimal Then EsValido = True Else EsValidoPU = False ' SI NO ENTRA DENTRO DE LA PROMOCION NO SE PUEDE VENDER A 0 @@ -6661,35 +6662,35 @@ Partial Class Ventas Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) If Not EsValido Then - MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado
", dr("PS").ToString) + MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado
", dr("PS").ToString()) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: {0:#,###.00}$
", Costo) - MensajeCosto.AppendFormat("El rango menor aceptado es: {0} {1:#,###.00}$
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor) + MensajeCosto.AppendFormat("El rango menor aceptado es: {0} {1:#,###.00}$
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor) MensajeCosto.AppendFormat("El precio indicado es: {0:#,###.00}$ ({1}% de ganancia)
", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)) End If End If If Not EsValidoMayor Then - MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio mayor de su rango aceptado
", dr("PS").ToString) + MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio mayor de su rango aceptado
", dr("PS").ToString()) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: {0:#,###.00}$
", Costo) - MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} {1:#,###.00}$
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor) + MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} {1:#,###.00}$
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor) MensajeCosto.AppendFormat("El precio indicado es: {0:#,###.00}$ ({1}% de ganancia)
", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)) End If End If ' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO - If UsuarioActual.Empresa.Funcionalidad(139).ToString.ToEntero > 0 Then + If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then If Not EsValidoPU Then - MensajeCosto.AppendFormat($"El producto {dr("PS").ToString}. No se puede vender a un importe de cero ($0)", TipoMensaje.MsgAdvertencia) + MensajeCosto.AppendFormat($"El producto {dr("PS").ToString()}. No se puede vender a un importe de cero ($0)", TipoMensaje.MsgAdvertencia) End If End If Next ObjInventarios.Dispose() - If MensajeCosto.ToString.Length > 1 Then - Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia) + If MensajeCosto.ToString().Length > 1 Then + Alert(MensajeCosto.ToString(), TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -6698,9 +6699,9 @@ Partial Class Ventas 'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - If TxtKilometraje.Text.ToEntero = 0 Then + If TxtKilometraje.Text.ToEntero() = 0 Then 'cuando es la clasificacion de llantas - Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero + Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero() If FaltaObservacion = 20342 Then Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -6712,13 +6713,13 @@ Partial Class Ventas Dim FaltaObservacion As Integer = -1 'For Each PS As GridViewRow In GvPS.Rows ' Dim PsRenglon As GridViewRow = PS - ' Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero + ' Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero() ' If CveClasificacion = 20345 Or CveClasificacion = 20342 Then ' FaltaObservacion = CveClasificacion ' Exit For ' End If ' - FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero + FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero() 'cuando es la clasificacion de polizas If FaltaObservacion = 20345 Then Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) @@ -6734,10 +6735,10 @@ Partial Class Ventas Dim Objeto As New ClsVtaVendedores Dim DTSupervisores As New DataTable If Objeto.GetVendedores(UsuarioActual.CveEmpresa) Then - DTSupervisores = Objeto.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue.ToEntero)) + DTSupervisores = Objeto.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue.ToEntero())) 'Verifico si el supervisor tiene correo para proceder If DTSupervisores.Rows.Count > 0 Then - CorreoSupervisor = DTSupervisores.Rows(0)("CorreoSupervisor").ToString + CorreoSupervisor = DTSupervisores.Rows(0)("CorreoSupervisor").ToString() End If End If DTSupervisores.Dispose() @@ -6778,7 +6779,7 @@ Partial Class Ventas LnkImprimir.Visible = False 'If (UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 81, 83) And UsuarioActual.CveUsuario = 100) Or UsuarioActual.CveEmpresa.Contiene(80, 83) Or UsuarioActual.CveUsuario = 100 Then - If (Archivo.Exists Or Archivo2.Exists) And IfNull(CveVenta, 0).ToString.ToEntero > 0 Then + If (Archivo.Exists Or Archivo2.Exists) And IfNull(CveVenta, 0).ToString().ToEntero() > 0 Then HplDownPDF.Visible = True HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))) End If @@ -6804,7 +6805,7 @@ Partial Class Ventas For Each drt As DataRow In dttsat.Rows str.AppendFormat("{0}
", drt("CodigoPS")) Next - Alert(str.ToString, TipoMensaje.MsgAdvertencia) + Alert(str.ToString(), TipoMensaje.MsgAdvertencia) dttsat.Dispose() Exit Sub End If @@ -6859,7 +6860,7 @@ Partial Class Ventas Alert("El Cliente no tiene registrado la cuenta contable", TipoMensaje.MsgError) Exit Sub End If - 'If ViewState("IdCtaContClientes").ToString.ToEntero <= 0 Then 'GetClientes ObjCliente.IdCtaContClientes + 'If ViewState("IdCtaContClientes").ToString().ToEntero() <= 0 Then 'GetClientes ObjCliente.IdCtaContClientes ' Alert("El Cliente no tiene registrado la cuenta contable", TipoMensaje.MsgError) ' Exit Sub 'End If @@ -6906,18 +6907,18 @@ Partial Class Ventas End If 'VERIFICA QUE EL FOLIO NO SEA IGUAL AL DE LA FACTURA ANTERIOR - 'If ObjFactura.Folio = TxtFolio.Text.ToEntero Then + 'If ObjFactura.Folio = TxtFolio.Text.ToEntero() Then ' If ObjFolios.GetFolios(ObjFactura.TipoDocto, UsuarioActual.CveEmpresa) Then ' Dim DtFolios As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSucursal = {0} And Estado = 'Activo'", ObjFactura.CveSucursal)) ' If DtFolios.Rows.Count > 0 Then - ' 'ViewState("CveFolio") = DtFolios.Rows(0)("CveFolio").ToString.ToEntero - ' 'ViewState("NumAprobacion") = CLng(DtFolios.Rows(0)("Aprobacion").ToString) - ' 'ViewState("FechaAprobacion") = DtFolios.Rows(0)("FechaAprobacion").ToString.ToDate - ' 'ViewState("FolioActual") = DtFolios.Rows(0)("FActual").ToString - ' 'LblSerie.Text = DtFolios.Rows(0)("Serie").ToString + ' 'ViewState("CveFolio") = DtFolios.Rows(0)("CveFolio").ToString().ToEntero() + ' 'ViewState("NumAprobacion") = CLng(DtFolios.Rows(0)("Aprobacion").ToString()) + ' 'ViewState("FechaAprobacion") = DtFolios.Rows(0)("FechaAprobacion").ToString().ToDate + ' 'ViewState("FolioActual") = DtFolios.Rows(0)("FActual").ToString() + ' 'LblSerie.Text = DtFolios.Rows(0)("Serie").ToString() ' If UsuarioActual.CveEmpresa <> 72 Then - ' ObjFactura.Folio = DtFolios.Rows(0)("FActual").ToString.ToEntero + ' ObjFactura.Folio = DtFolios.Rows(0)("FActual").ToString().ToEntero() ' End If ' End If ' End If @@ -6935,7 +6936,7 @@ Partial Class Ventas If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then TieneAnticipo = True - CveAnticipoPadre = row2.DataKey("CveVenta").ToEntero + CveAnticipoPadre = row2.DataKey("CveVenta").ToEntero() CveAnticipo = CveAnticipoPadre 'CUANDO ES REFACTURACION DEBE RELACIONAR CON LA FACTURA REFACTURADA @@ -6943,7 +6944,7 @@ Partial Class Ventas ObjFactura.CveVentaRelacion = CveAnticipoPadre 'relaciona al anticipo ObjFactura.ImporteRelacion = row2.FCTextBox($"TxtAnticipo{actualindex}").Text.ToDecimal FolioFiscalRelacionado = row2.DataKey("FolioFiscal") - ObjFactura.CveVentaPadre = row2.DataKey("CveVenta").ToEntero + ObjFactura.CveVentaPadre = row2.DataKey("CveVenta").ToEntero() Else ObjFactura.CveVentaRelacion = CveDevolucion End If @@ -6970,9 +6971,9 @@ Partial Class Ventas Dim Cantidad As Decimal = 0 For Each row As DataRow In TmpDT.Rows - Cantidad = row("Cantidad").ToString.ToDecimal - CveVentaDetalle = row("CveVentaDetalle").ToString.ToEntero - CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString.ToEntero + Cantidad = row("Cantidad").ToString().ToDecimal + CveVentaDetalle = row("CveVentaDetalle").ToString().ToEntero() + CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString().ToEntero() If Not ObjVentas.AgregarVentaOCDetalle(CveVentaDetalle, CveOrdenCompraDetalle, Cantidad) Then ErrorList.Add("Ocurrió un Error al agregar el detalle de la Remision") Exit For @@ -7061,21 +7062,21 @@ Partial Class Ventas 'ACTUALIZA VENTA COTIZACIÓN If EraCotizacion = 1 And BtnEmitirImprimir.Text = "Facturar" Then - If Not ObjVentas.UpdateVentaCotizacion(ObjFactura.CveVenta, Request("CveVenta").ToEntero) Then + If Not ObjVentas.UpdateVentaCotizacion(ObjFactura.CveVenta, Request("CveVenta").ToEntero()) Then ErrorList.Add("Ocurrió un error al actualizar la cotización") End If End If 'ACTUALIZA VENTAPADRE PEDIDO - If Request("DevPed").ToEntero > 0 AndAlso ErrorList.Count = 0 Then - If Not ObjVentas.UpdateVentaCotizacion(Request("DevPed").ToEntero, ObjFactura.CveVenta) Then + If Request("DevPed").ToEntero() > 0 AndAlso ErrorList.Count = 0 Then + If Not ObjVentas.UpdateVentaCotizacion(Request("DevPed").ToEntero(), ObjFactura.CveVenta) Then ErrorList.Add("Ocurrió un error al actualizar la devolución de pedido") End If End If 'ACTUALIZA LA COLUMNA CveVentaFacturada - If (Request("CveRemision") IsNot Nothing AndAlso ViewState("CveRemision").ToString.ToEntero > 0) AndAlso (Request("Op") IsNot Nothing AndAlso Request("Op") = "Rem") AndAlso ErrorList.Count = 0 Then - If Not ObjVentas.UpdateVentaRemision(ViewState("CveRemision").ToString.ToEntero, ObjFactura.CveVenta) Then + If (Request("CveRemision") IsNot Nothing AndAlso ViewState("CveRemision").ToString().ToEntero() > 0) AndAlso (Request("Op") IsNot Nothing AndAlso Request("Op") = "Rem") AndAlso ErrorList.Count = 0 Then + If Not ObjVentas.UpdateVentaRemision(ViewState("CveRemision").ToString().ToEntero(), ObjFactura.CveVenta) Then ErrorList.Add("Ocurrió un error al actualizar la remision") End If End If @@ -7090,10 +7091,10 @@ Partial Class Ventas For Each row As DataRow In DtCotizacionesPS.Rows Cantidad = DtCotizacionTmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToDecimal - CvePS = DtCotizacionTmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToEntero + CvePS = DtCotizacionTmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToEntero() PU = DtCotizacionTmpDT.FiltroPrimeroValor("PU", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToDecimal - CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToEntero - CveVentaDetallePadre = row("CveVentaDetalle").ToString.ToEntero + CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetalleCotizacion={row("CveVentaDetalle")}").ToEntero() + CveVentaDetallePadre = row("CveVentaDetalle").ToString().ToEntero() If Not ObjVentas.AgregaCotizacionDetalle(CveVentaDetalle, CveVentaDetallePadre, Cantidad) Then ErrorList.Add("Ocurrió un Error al agregar el detalle de la Cotización.") @@ -7187,7 +7188,7 @@ Partial Class Ventas Try - Dim DirectoriArchivoXML As String = System.IO.Path.Combine(Server.MapPath("/"), "Empresas", UsuarioActual.CveEmpresa.ToString, ObjFactura.TipoDocto) + Dim DirectoriArchivoXML As String = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas", UsuarioActual.CveEmpresa.ToString(), ObjFactura.TipoDocto) If Not Directory.Exists(DirectoriArchivoXML) Then Directory.CreateDirectory(DirectoriArchivoXML) End If @@ -7268,7 +7269,7 @@ Partial Class Ventas If ObjContr.DtResultados.Rows.Count > 0 Then ' si es flexible que notifique el monto maximo, si no lo es que notifique el porcentaje alcanzado... flexible = 2, no flexible = 1 - Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString.ToDouble + Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble If ObjContr.DtResultados.Rows(0)("ModalidadDetalle").ToString() = "1" Then @@ -7276,7 +7277,7 @@ Partial Class Ventas EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString()) End If Else - Dim MontoMaximo As Double = ObjContr.DtResultados.Rows(0)("ImporteMax").ToString.ToDouble + Dim MontoMaximo As Double = ObjContr.DtResultados.Rows(0)("ImporteMax").ToString().ToDouble If PorcentajeAvance >= 100 And MontoMaximo > 0 Then EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString(), MontoMaximo) @@ -7391,14 +7392,14 @@ Partial Class Ventas MensajeAlert.AppendFormat("
Se generó una Nota de crédito Folio: {0} amortizando el anticipo
", ObjFacturaDevolucion.Folio) End If - If RBLPago.SelectedValue.ToEntero = 2 And TxtCambio.Text.ToDecimal > 0 Then + If RBLPago.SelectedValue.ToEntero() = 2 And TxtCambio.Text.ToDecimal > 0 Then MensajeAlert.AppendFormat("
Su cambio es de ${0}
", TxtCambio.Text.ToDecimal.FormatoNumero(2)) End If 'MUESTA ALERT OK ' si es elrol 1165-Ventas,EMp:80, o la empresa 119, recarga ventas, para seguir registrando-. Dim Liga = If(UsuarioActual.CveRol = 1165 Or UsuarioActual.CveEmpresa = 119, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", If(CveEmpresaCRM > 0, $"document.location.href=""/CRM/EmpresaCRM.aspx?CveEmpresaCRM={CveEmpresaCRM}"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=3"";")) - Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga) + Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga) 'LIMPIA CONDICIONES DE PAGO - CONTADO @@ -7464,7 +7465,7 @@ Partial Class Ventas ObjFacturaDevolucion = New Modelos.Factura ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario - ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero + ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() If CveVentasPadre > 0 Then ObjFacturaDevolucion.CveVentaPadre = CveVentasPadre @@ -7475,21 +7476,21 @@ Partial Class Ventas End If ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa - ObjFacturaDevolucion.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) + ObjFacturaDevolucion.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) ObjFacturaDevolucion.ConvertirPesos = ChkConvertirDoctoPesos.Checked - ObjFacturaDevolucion.CveMoneda = DdlMoneda.SelectedValue.ToEntero + ObjFacturaDevolucion.CveMoneda = DdlMoneda.SelectedValue.ToEntero() ObjFacturaDevolucion.Moneda = DdlMoneda.SelectedItem.Text ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}") 'ObjFacturaDevolucion.RefDocto = TxtDocto.Text.Trim - 'ObjFacturaDevolucion.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1) + 'ObjFacturaDevolucion.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFacturaDevolucion.Serie = LblSerie.Text ObjFacturaDevolucion.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second) ObjFacturaDevolucion.CvePrePoliza = -1 - ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero + ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero() ObjFacturaDevolucion.MetodoPago = "" ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") ObjFacturaDevolucion.UsuarioCreo = LblUsuario.Text.Trim - ' ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1) + ' ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1) ' ObjFacturaDevolucion.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "") 'ObjFacturaDevolucion.NumeroCuenta = TxtNumCtaPago.Text.Trim 'ObjFacturaDevolucion.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim @@ -7508,11 +7509,11 @@ Partial Class Ventas ObjFacturaDevolucion.FormaPago33 = "Aplicación de anticipos" ObjFacturaDevolucion.FormaPagoSAT33 = "30" - ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero + ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero() ObjFacturaDevolucion.UsoCFDI = DdlUsoCFDI.SelectedItem.Text ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") - ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero + ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero() ObjFacturaDevolucion.TipoRelacion = "07" Dim Fol As New List(Of String) @@ -7554,19 +7555,19 @@ Partial Class Ventas ObjFacturaDevolucion.NumeroPersonas = 0 ObjFacturaDevolucion.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) ObjFacturaDevolucion.DescripcionContrato = If(DdlContratosModal.SelectedItem IsNot Nothing, DdlContratosModal.SelectedItem.Text, "") - ObjFacturaDevolucion.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero + ObjFacturaDevolucion.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() ObjFacturaDevolucion.Entrega = Entrega ObjFacturaDevolucion.Vigencia = TxtFechaVencimientoCotizacion.Text.ToDate ObjFacturaDevolucion.CveVentaPadre = CveAnticipoPadre - ObjFacturaDevolucion.CveVendedor = DdlVendedor.SelectedValue.ToEntero - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ObjFacturaDevolucion.CveVendedor = DdlVendedor.SelectedValue.ToEntero() + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If ObjFacturaDevolucion.FechaEjecucion = TxtFechaEjecucion.Text.Trim.ToDate - ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero - ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero + ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero() + ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero() ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1") ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim @@ -7600,7 +7601,7 @@ Partial Class Ventas DR = TmpDTImpuestos.NewRow() - 'If DdlFormatoImpresion.SelectedValue.ToEntero = 3 Or DdlFormatoImpresion.SelectedValue.ToEntero = 4 Then + 'If DdlFormatoImpresion.SelectedValue.ToEntero() = 3 Or DdlFormatoImpresion.SelectedValue.ToEntero() = 4 Then ' DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (TxtSubTotal.Text.ToDecimal + TxtIVA.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal) : DR("Orden") = 55 : TmpDTImpuestos.Rows.Add(DR) ' DR = TmpDTImpuestos.NewRow() @@ -7610,7 +7611,7 @@ Partial Class Ventas If gvr.RowType = DataControlRowType.DataRow Then Dim Orden As Integer = 80 If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal > 0 Then - DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal.RoundSQL(2) : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString.ToEntero : TmpDTImpuestos.Rows.Add(DR) + DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString() : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal.RoundSQL(2) : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString() : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString() : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString().ToEntero() : TmpDTImpuestos.Rows.Add(DR) DR = TmpDTImpuestos.NewRow() Orden = Orden + 1 End If @@ -7650,7 +7651,7 @@ Partial Class Ventas ObjFacturaDevolucion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim - ObjFacturaDevolucion.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero + ObjFacturaDevolucion.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero() If ObjFacturaDevolucion.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then ObjFacturaDevolucion.TipoCambio = 1 @@ -7664,7 +7665,7 @@ Partial Class Ventas ObjFacturaDevolucion.SetCliente() ''SUCURSAL - 'ObjFacturaDevolucion.CveSucursal = DdlSucursal.SelectedValue.ToEntero + 'ObjFacturaDevolucion.CveSucursal = DdlSucursal.SelectedValue.ToEntero() 'ObjFacturaDevolucion.SetSucursalMatriz(Me) 'ObjFacturaDevolucion.SetSucursal(Me) @@ -7678,9 +7679,9 @@ Partial Class Ventas ObjFacturaDevolucion.ClienteSucursal.Estado = LblEstado.Text ObjFacturaDevolucion.ClienteSucursal.CP = LblCP.Text ObjFacturaDevolucion.ClienteSucursal.Pais = CliPais - ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString + ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text - ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero > 0, DdlSucursalCliente.SelectedItem.Text, "") + ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") @@ -7690,14 +7691,14 @@ Partial Class Ventas 'ENVIO DIRECCION ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel If ChkDireccionEnvio.Checked Then - If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows.Count > 0 Then - For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows - ObjFacturaDevolucion.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString.ToEntero - ObjFacturaDevolucion.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString - ObjFacturaDevolucion.EnviarA.EnvioColonia = Row("EnvioColonia").ToString - ObjFacturaDevolucion.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString - ObjFacturaDevolucion.EnviarA.EnvioEstado = Row("EnvioEstado").ToString - ObjFacturaDevolucion.EnviarA.EnvioCP = Row("EnvioCP").ToString + If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then + For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows + ObjFacturaDevolucion.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString().ToEntero() + ObjFacturaDevolucion.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString() + ObjFacturaDevolucion.EnviarA.EnvioColonia = Row("EnvioColonia").ToString() + ObjFacturaDevolucion.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString() + ObjFacturaDevolucion.EnviarA.EnvioEstado = Row("EnvioEstado").ToString() + ObjFacturaDevolucion.EnviarA.EnvioCP = Row("EnvioCP").ToString() Next End If End If @@ -7724,9 +7725,9 @@ Partial Class Ventas Dim ObjFolios As New ClsGralFolios(ObjVentas.IniciaTransacSQL()) If ObjFolios.GetFolios(factura.TipoDocto, UsuarioActual.CveEmpresa) Then - Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue.ToEntero)) + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue.ToEntero())) If DT.Rows.Count > 0 Then - factura.Folio = DT.Rows(0)("FActual").ToString.ToEntero + factura.Folio = DT.Rows(0)("FActual").ToString().ToEntero() Else ProcesoCorrecto = False End If @@ -7752,14 +7753,14 @@ Partial Class Ventas Dim tmpcon As DataTable = TmpDT.Clone tmpcon.Clear() - Dim drpss As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlNCPSAnt.SelectedValue.ToEntero).FiltroPrimero("") + Dim drpss As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlNCPSAnt.SelectedValue.ToEntero()).FiltroPrimero("") If drpss IsNot Nothing Then Dim ii As Integer = 1 Dim CveVentaP As Integer = 0 For Each gvrt As GridViewRow In GVAnticipos.Rows If gvrt.FCCheckBox(String.Format("Chk{0}", gvrt.RowIndex)).Checked Then - Dim CveSub As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim CveSub As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto").ToEntero() Dim dr As DataRow = tmpcon.NewRow Dim Cantidad As Decimal = 1 Dim PU As Decimal = gvrt.FCTextBox(String.Format("TxtAnticipo{0}", gvrt.RowIndex)).Text.ToDecimal @@ -7774,24 +7775,24 @@ Partial Class Ventas dr("SATClaveUM") = "ACT" dr("Consec") = ii - If drpss("IVA").ToString = "-1" Then + If drpss("IVA").ToString() = "-1" Then dr("PorcentajeIVA") = PorcentajeIVA ' GlobalDTSubProyectos(-1,cves DrPS("IVA") Else dr("PorcentajeIVA") = drpss("IVA") End If dr("IVA") = dr("PorcentajeIVA") - dr("ImporteIVA") = Math.Round(dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + dr("ImporteIVA") = Math.Round(dr("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) dr("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) dr("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) dr("PorcentajeRetIVA") = ClienteRetIVA dr("PorcentajeRetISR") = ClienteRetISR If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then dr("PorcentajeIEPS") = drpss("IEPSPorcentaje") - dr("ImporteIEPS") = Math.Round(drpss("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + dr("ImporteIEPS") = Math.Round(drpss("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) Else dr("PorcentajeIEPS") = 0 ' DrPS("IEPSPorcentaje") - dr("ImporteIEPS") = 0 'Math.Round(DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + dr("ImporteIEPS") = 0 'Math.Round(DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) End If dr("IEPS") = dr("ImporteIEPS") @@ -7801,7 +7802,7 @@ Partial Class Ventas dr("CveClasificacion") = drpss("CveClasificacion") dr("CveSubProyecto") = CveSub dr("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales) - CveVentaP = gvrt.DataKey("CveVenta").ToEntero + CveVentaP = gvrt.DataKey("CveVenta").ToEntero() tmpcon.Rows.Add(dr) ii += 1 End If @@ -7819,7 +7820,7 @@ Partial Class Ventas Dim TotalRetIVA As Decimal = tmpcon.SUM("ImporteRetIVA").ToDecimal Dim TotalRetISR As Decimal = tmpcon.SUM("ImporteRetISR").ToDecimal Dim Total As Decimal = 0 - Dim TotalImpuestosLocales As Decimal = factura.TotalImpuestoLocal.ToString.ToDecimal + Dim TotalImpuestosLocales As Decimal = factura.TotalImpuestoLocal.ToString().ToDecimal Total = (TotalSubTotal - TotalDescuentos + TotalIVA + TotalIEPS - TotalRetIVA - TotalRetISR - TotalImpuestosLocales) factura.SubTotal = TotalSubTotal @@ -7870,56 +7871,56 @@ Partial Class Ventas ObjFactura.Version = "3.3" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) + ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) ObjFactura.TipoCambioDolares = TxtTipoCambioDlls.Text.Trim.ToDecimal ObjFactura.ConvertirPesos = ChkConvertirDoctoPesos.Checked ObjFactura.ConvertirDolares = ChkConvertirDolares.Checked - ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero + ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero() ObjFactura.Moneda = DdlMoneda.SelectedItem.Text ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}") - ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue) + ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue) 'ObjFactura.RefDocto = TxtDocto.Text.Trim 'si es cancelacion, debe de conservar el folio actual - If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1) + If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero(), -1) - 'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1) + 'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text) ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second) ObjFactura.CvePrePoliza = -1 - ObjFactura.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero + ObjFactura.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero() ObjFactura.MetodoPago = "" ' DdlMetodoPago.SelectedItem.Text ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate ' If ObjFactura.TipoDocto = "Cot" Then - ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero - ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "") + ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero() + ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "") ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") - ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero - ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "") + ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero() + ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "") ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}") - ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero - ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "") + ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero() + ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero() > 0, DdlUsoCFDI.SelectedItem.Text, "") ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") ' End If ObjFactura.UsuarioCreo = LblUsuario.Text.Trim - ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1) + ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1) ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "") 'ObjFactura.NumeroCuenta = TxtNumCtaPago.Text.Trim 'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl - ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero + ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero() - 'ObjFactura.AnticipoPosicion = DdlAmortizacionConceptos.SelectedValue.ToEntero + 'ObjFactura.AnticipoPosicion = DdlAmortizacionConceptos.SelectedValue.ToEntero() 'ObjFactura.AnticipoEnSubTotal = If(ChkAnticipoEnSubTotal.Checked, True, False) - 'ObjFactura.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero + 'ObjFactura.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero() 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) @@ -7976,24 +7977,24 @@ Partial Class Ventas ObjFactura.NumeroPersonas = 0 ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) - ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero + ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() ObjFactura.Entrega = Entrega ObjFactura.Vigencia = TxtFechaVencimientoCotizacion.Text.ToDate ObjFactura.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, If(CvePedido2 > 0, CvePedido2, CvePedido)) If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then - ObjFactura.CveVentaPadre = DtVentasNC.Rows(0)("CveVenta").ToString.ToEntero - ObjFactura.SerieFolioPadre = DtVentasNC.Rows(0)("FolioFiscal").ToString + ObjFactura.CveVentaPadre = DtVentasNC.Rows(0)("CveVenta").ToString().ToEntero() + ObjFactura.SerieFolioPadre = DtVentasNC.Rows(0)("FolioFiscal").ToString() End If - ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero() + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If ObjFactura.FechaEjecucion = TxtFechaEjecucion.Text.Trim.ToDate - ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero - ObjFactura.CveSubProyectoCobranza = DdlSubProyectoCobranza.SelectedValue.ToEntero - ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoEjecucion.SelectedValue.ToEntero + ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() + ObjFactura.CveSubProyectoCobranza = DdlSubProyectoCobranza.SelectedValue.ToEntero() + ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoEjecucion.SelectedValue.ToEntero() ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot" Or (ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1") ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim ObjFactura.Observaciones = TxtObsFact.Text.Trim @@ -8006,26 +8007,26 @@ Partial Class Ventas If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDecimal * ObjFactura.TipoCambio, 6) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * ObjFactura.TipoCambio, NumeroDecimales) - TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal - TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal) + TotalCalculableImpuestos = (Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal) - Row("Descuento").ToString().ToDecimal + TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString().ToDecimal) Row("IVA") = Row("PorcentajeIVA") - Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales) Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) Row("IEPS") = Row("ImporteIEPS") - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 For Each gvr As GridViewRow In GvImpuestosLocales2.Rows If gvr.RowType = DataControlRowType.DataRow Then gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio).FormatoNumero - If gvr.DataKey("TipoImpuesto").ToString = "5" Then + If gvr.DataKey("TipoImpuesto").ToString() = "5" Then ImpuestosLocales -= Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio, NumeroDecimales) Else ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio, NumeroDecimales) @@ -8052,14 +8053,14 @@ Partial Class Ventas ElseIf (ObjFactura.CveMoneda = 1 AndAlso ObjFactura.ConvertirDolares = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble / ObjFactura.TipoCambioDolares, 6) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble / ObjFactura.TipoCambioDolares, 6) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 @@ -8089,19 +8090,19 @@ Partial Class Ventas Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDecimal * ObjFactura.TipoCambio, 6) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * ObjFactura.TipoCambio, NumeroDecimales) - TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal - TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal) + TotalCalculableImpuestos = (Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal) - Row("Descuento").ToString().ToDecimal + TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString().ToDecimal) Row("IVA") = Row("PorcentajeIVA") - Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales) Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) Row("IEPS") = Row("ImporteIEPS") - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 @@ -8129,14 +8130,14 @@ Partial Class Ventas 'CONVERTIR REMISION - TIPO MONEDA -PESOS A DOLARES REGISTRO DIRECTO SIN VENTA ElseIf (EditoRemision = False AndAlso ObjFactura.CveMoneda = 1 AndAlso ObjFactura.ConvertirDolares = True) Then For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble / ObjFactura.TipoCambioDolares, 6) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble / ObjFactura.TipoCambioDolares, 6) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / ObjFactura.TipoCambioDolares, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 @@ -8186,7 +8187,7 @@ Partial Class Ventas For Each li As ListItem In LstFordASN.Items SB.AppendFormat("{0}, ", li.Text) Next - ObjFactura.FordASN = SB.ToString + ObjFactura.FordASN = SB.ToString() End If If TmpDTImpuestos Is Nothing Then CreaDTImpuestos() @@ -8219,7 +8220,7 @@ Partial Class Ventas If gvr.RowType = DataControlRowType.DataRow Then Dim Orden As Integer = 80 If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble > 0 Then - DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString.ToEntero : TmpDTImpuestosVista.Rows.Add(DR) + DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString() : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString() : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString() : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString().ToEntero() : TmpDTImpuestosVista.Rows.Add(DR) DR = TmpDTImpuestosVista.NewRow() Orden = Orden + 1 End If @@ -8254,30 +8255,30 @@ Partial Class Ventas End Try If DrIVA IsNot Nothing Then - DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + DrImpuestos33("ImporteIVA").ToString.ToDouble + DrIVA("Importe") = DrIVA("Importe").ToString().ToDouble + DrImpuestos33("ImporteIVA").ToString().ToDouble TmpDTImpuestosIVAIEPS.AcceptChanges() Else Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If DrImpuestos33("PorcentajeIVA").ToString.ToDecimal > 0 Then - DR2("Impuesto") = "IVA" : DR2("tasa") = DdlIVA.SelectedItem.ToString : DR2("Importe") = DrImpuestos33("ImporteIVA").ToString.ToDecimal : DR2("Orden") = "1" + If DrImpuestos33("PorcentajeIVA").ToString().ToDecimal > 0 Then + DR2("Impuesto") = "IVA" : DR2("tasa") = DdlIVA.SelectedItem.ToString() : DR2("Importe") = DrImpuestos33("ImporteIVA").ToString().ToDecimal : DR2("Orden") = "1" TmpDTImpuestosIVAIEPS.Rows.Add(DR2) TmpDTImpuestosIVAIEPS.AcceptChanges() End If End If Try - DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{DrImpuestos33("PorcentajeIEPS").ToString.ToDecimal * 100} %'")(0) + DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{DrImpuestos33("PorcentajeIEPS").ToString().ToDecimal * 100} %'")(0) Catch ex As Exception DrIEPS = Nothing End Try If DrIEPS IsNot Nothing Then - DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + DrImpuestos33("ImporteIEPS").ToString.ToDouble + DrIEPS("Importe") = DrIEPS("Importe").ToString().ToDouble + DrImpuestos33("ImporteIEPS").ToString().ToDouble TmpDTImpuestosIVAIEPS.AcceptChanges() Else Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If DrImpuestos33("PorcentajeIEPS").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", DrImpuestos33("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = DrImpuestos33("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(DrImpuestos33("PorcentajeIEPS").ToString = "0.03", "2", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.06", "3", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.07", "4", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.09", "5", "0")))) + If DrImpuestos33("PorcentajeIEPS").ToString().ToDouble > 0 Then + DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", DrImpuestos33("PorcentajeIEPS").ToString().ToDouble * 100, "%") : DR2("Importe") = DrImpuestos33("ImporteIEPS").ToString().ToDouble : DR2("Orden") = If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.03", "2", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.06", "3", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.07", "4", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.09", "5", "0")))) TmpDTImpuestosIVAIEPS.Rows.Add(DR2) TmpDTImpuestosIVAIEPS.AcceptChanges() End If @@ -8292,7 +8293,7 @@ Partial Class Ventas ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim - ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero + ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero() If ObjFactura.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then ObjFactura.TipoCambio = 1 @@ -8324,7 +8325,7 @@ Partial Class Ventas ObjFactura.SetCliente() 'SUCURSAL - 'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero + 'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() ObjFactura.SetSubProyectoMatriz(Me) ObjFactura.SetSubProyecto(Me) ObjFactura.ClienteSucursal = New Modelos.SucursalModel @@ -8338,36 +8339,36 @@ Partial Class Ventas ObjFactura.ClienteSucursal.Estado = LblEstado.Text ObjFactura.ClienteSucursal.CP = LblCP.Text ObjFactura.ClienteSucursal.Pais = CliPais - ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString + ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() ObjFactura.ClienteSucursal.TelefonoSucursal = LblTelefono.Text - ObjFactura.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero > 0, DdlSucursalCliente.SelectedItem.Text, "") - ObjFactura.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString + ObjFactura.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") + ObjFactura.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString() End If 'ENVIO DIRECCION ObjFactura.EnviarA = New Modelos.EnviarAModel If ChkDireccionEnvio.Checked Then - If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows.Count > 0 Then - For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows - ObjFactura.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString.ToEntero - ObjFactura.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString - ObjFactura.EnviarA.EnvioNoExt = Row("EnvioNoExt").ToString - ObjFactura.EnviarA.EnvioNoInt = Row("EnvioNoInt").ToString - ObjFactura.EnviarA.EnvioColonia = Row("EnvioColonia").ToString - ObjFactura.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString - ObjFactura.EnviarA.EnvioEstado = Row("EnvioEstado").ToString - ObjFactura.EnviarA.EnvioCP = Row("EnvioCP").ToString - ObjFactura.EnviarA.EnvioTel = Row("EnvioTel").ToString - ObjFactura.EnviarA.EnvioContacto = Row("EnvioContacto").ToString - ObjFactura.EnviarA.EnvioDepartamento = Row("EnvioDepartamento").ToString - 'ObjFactura.EnviarA.EnvioPedidoContrato = Row("EnvioPedidoContrato").ToString + If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then + For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows + ObjFactura.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString().ToEntero() + ObjFactura.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString() + ObjFactura.EnviarA.EnvioNoExt = Row("EnvioNoExt").ToString() + ObjFactura.EnviarA.EnvioNoInt = Row("EnvioNoInt").ToString() + ObjFactura.EnviarA.EnvioColonia = Row("EnvioColonia").ToString() + ObjFactura.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString() + ObjFactura.EnviarA.EnvioEstado = Row("EnvioEstado").ToString() + ObjFactura.EnviarA.EnvioCP = Row("EnvioCP").ToString() + ObjFactura.EnviarA.EnvioTel = Row("EnvioTel").ToString() + ObjFactura.EnviarA.EnvioContacto = Row("EnvioContacto").ToString() + ObjFactura.EnviarA.EnvioDepartamento = Row("EnvioDepartamento").ToString() + 'ObjFactura.EnviarA.EnvioPedidoContrato = Row("EnvioPedidoContrato").ToString() Next End If End If 'Amortizacion - ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero + ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero() If ObjFactura.CveTipoRelacion > 0 Then Select Case ObjFactura.CveTipoRelacion Case 7 @@ -8379,7 +8380,7 @@ Partial Class Ventas End If ObjFactura.AplicaDevolucion = Me.AplicaDevolucion - ObjFactura.CveTipoAmortizacionAnticipo = DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero + ObjFactura.CveTipoAmortizacionAnticipo = DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() ObjFactura.Timbre.Comprobante.TipoComprobante = If(ObjFactura.TipoDocto.Contiene("Ing", "Ant"), "I", If(ObjFactura.TipoDocto.Contiene("Egs", "Dev"), "E", "")) If ObjFactura.Timbre.Comprobante.TipoComprobante = "E" Then @@ -8392,7 +8393,7 @@ Partial Class Ventas ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "03" ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" End If - ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero + ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero() If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value) End If ' cuando es refacturacoin es cfdirelacionado, con relacion 04 @@ -8404,11 +8405,11 @@ Partial Class Ventas If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso NuevaFactura = 1 Then ' refacturación - ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero + ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero() End If - If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero > 0 Then ' refacturación - ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero + If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero() > 0 Then ' refacturación + ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero() If GVAnticipos.Rows.Count > 0 Then For Each gvr As GridViewRow In GVAnticipos.Rows If gvr.FCCheckBox(String.Format("Chk{0}", gvr.RowIndex)).Checked AndAlso gvr.DataKey("CveConceptoContable") = "12" Then ' solo notas de crédito @@ -8430,12 +8431,12 @@ Partial Class Ventas If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows.Count > 0 Then For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows - If DrImpuestosLocales("Importe").ToString.ToDecimal > 0 Then + If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then Dim ret As New CFDIRetencionesLocales With { - .TasaRetencion = DrImpuestosLocales("Porcentaje").ToString.ToDecimal, - .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString, - .Importe = DrImpuestosLocales("Importe").ToString.ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2) + .TasaRetencion = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, + .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString(), + .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2) } ObjFactura.Timbre.RetencionesLocales.Add(ret) End If @@ -8445,34 +8446,34 @@ Partial Class Ventas If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows.Count > 0 Then For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows - If DrImpuestosLocales("Importe").ToString.ToDecimal > 0 Then - Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString.ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString, .Importe = DrImpuestosLocales("Importe").ToString.ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))} + If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then + Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString(), .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))} ObjFactura.Timbre.TrasladosLocales.Add(ret) End If Next End If 'INE COMPLEMENTO - If RblComplementos.SelectedValue.ToEntero > 0 Then - ObjFactura.CveComplementoTimbrado = RblComplementos.SelectedValue.ToEntero + If RblComplementos.SelectedValue.ToEntero() > 0 Then + ObjFactura.CveComplementoTimbrado = RblComplementos.SelectedValue.ToEntero() Dim INE As New Modelos.ComplementoINE - Select Case RblComplementos.SelectedValue.ToEntero + Select Case RblComplementos.SelectedValue.ToEntero() Case 5 - INE.INEIdContabilidad = TxtIdConta.Text.ToEntero + INE.INEIdContabilidad = TxtIdConta.Text.ToEntero() INE.INETipoProceso = "Ordinario" INE.INETipoComite = "Directivo Estatal" INE.INEEntidad = DdlINEEntidad.SelectedValue Case 6 - INE.INEIdContabilidad = TxtIdConta.Text.ToEntero + INE.INEIdContabilidad = TxtIdConta.Text.ToEntero() INE.INETipoProceso = "Ordinario" INE.INETipoComite = "Ejecutivo Estatal" INE.INEEntidad = DdlINEEntidad.SelectedValue Case 7 - INE.INEIdContabilidad = TxtIdConta.Text.ToEntero + INE.INEIdContabilidad = TxtIdConta.Text.ToEntero() INE.INETipoProceso = "Ordinario" INE.INETipoComite = "Ejecutivo Nacional" Case 8 - INE.INEIdContabilidad = TxtIdConta.Text.ToEntero + INE.INEIdContabilidad = TxtIdConta.Text.ToEntero() INE.INETipoProceso = DdlTipoCampaña.SelectedValue INE.INETipoComite = DdlAmbitoComplemento.SelectedValue INE.INEEntidad = DdlINEEntidad.SelectedValue @@ -8495,21 +8496,21 @@ Partial Class Ventas ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa - ObjFacturaDevolucion.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) + ObjFacturaDevolucion.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) ObjFacturaDevolucion.ConvertirPesos = ChkConvertirDoctoPesos.Checked - ObjFacturaDevolucion.CveMoneda = DdlMoneda.SelectedValue.ToEntero + ObjFacturaDevolucion.CveMoneda = DdlMoneda.SelectedValue.ToEntero() ObjFacturaDevolucion.Moneda = DdlMoneda.SelectedItem.Text ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}") 'ObjFacturaDevolucion.RefDocto = TxtDocto.Text.Trim - 'ObjFacturaDevolucion.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1) + 'ObjFacturaDevolucion.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFacturaDevolucion.Serie = LblSerie.Text ObjFacturaDevolucion.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second) ObjFacturaDevolucion.CvePrePoliza = -1 - ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero + ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero() ObjFacturaDevolucion.MetodoPago = "" 'DdlMetodoPago.SelectedItem.Text ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") ObjFacturaDevolucion.UsuarioCreo = LblUsuario.Text.Trim - ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1) + ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1) ObjFacturaDevolucion.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "") 'ObjFacturaDevolucion.NumeroCuenta = TxtNumCtaPago.Text.Trim 'ObjFacturaDevolucion.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim @@ -8529,19 +8530,19 @@ Partial Class Ventas DdlMetodoPago33.SelectedValueExist("1") DdlFormaPago33.SelectedValueExist("20") - ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString + ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString() ObjFacturaDevolucion.Version = "3.3" - ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero - ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "") + ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero() + ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "") ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") - ObjFacturaDevolucion.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero - ObjFacturaDevolucion.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "") + ObjFacturaDevolucion.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero() + ObjFacturaDevolucion.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "") ObjFacturaDevolucion.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}") - ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero - ObjFacturaDevolucion.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "") + ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero() + ObjFacturaDevolucion.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero() > 0, DdlUsoCFDI.SelectedItem.Text, "") ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") DdlUsoCFDI.SelectedValueExist(CveUsoCFDIOld) @@ -8568,7 +8569,7 @@ Partial Class Ventas ViewState("TipoDoctoDevolucion") = ObjFacturaDevolucion.TipoDocto End If - ObjFacturaDevolucion.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero + ObjFacturaDevolucion.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero() ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate @@ -8585,22 +8586,22 @@ Partial Class Ventas ObjFacturaDevolucion.NumeroPersonas = 0 ObjFacturaDevolucion.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) ObjFacturaDevolucion.DescripcionContrato = If(DdlContratosModal.SelectedItem IsNot Nothing, DdlContratosModal.SelectedItem.Text, "") - ObjFacturaDevolucion.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero + ObjFacturaDevolucion.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() ObjFacturaDevolucion.Entrega = Entrega ObjFacturaDevolucion.Vigencia = TxtFechaVencimientoCotizacion.Text.ToDate ObjFacturaDevolucion.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, CvePedido) - ObjFacturaDevolucion.CveVendedor = DdlVendedor.SelectedValue.ToEntero - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ObjFacturaDevolucion.CveVendedor = DdlVendedor.SelectedValue.ToEntero() + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If ObjFacturaDevolucion.FechaEjecucion = TxtFechaEjecucion.Text.Trim.ToDate - 'ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero - 'ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero - ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero - ObjFacturaDevolucion.CveSubProyectoCobranza = DdlSubProyectoCobranza.SelectedValue.ToEntero - ObjFacturaDevolucion.CveSubProyectoEjecucion = DdlSubProyectoEjecucion.SelectedValue.ToEntero + 'ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero() + 'ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero() + ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() + ObjFacturaDevolucion.CveSubProyectoCobranza = DdlSubProyectoCobranza.SelectedValue.ToEntero() + ObjFacturaDevolucion.CveSubProyectoEjecucion = DdlSubProyectoEjecucion.SelectedValue.ToEntero() ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1") ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim @@ -8645,7 +8646,7 @@ Partial Class Ventas If gvr.RowType = DataControlRowType.DataRow Then Dim Orden As Integer = 80 If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble > 0 Then - DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString.ToEntero : TmpDTImpuestosVista.Rows.Add(DR) + DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString() : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString() : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString() : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString().ToEntero() : TmpDTImpuestosVista.Rows.Add(DR) DR = TmpDTImpuestosVista.NewRow() Orden = Orden + 1 End If @@ -8671,30 +8672,30 @@ Partial Class Ventas End Try If DrIVA IsNot Nothing Then - DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + DrImpuestos33("ImporteIVA").ToString.ToDouble + DrIVA("Importe") = DrIVA("Importe").ToString().ToDouble + DrImpuestos33("ImporteIVA").ToString().ToDouble TmpDTImpuestosIVAIEPS.AcceptChanges() Else Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If DrImpuestos33("PorcentajeIVA").ToString.ToDouble >= 0 Then - DR2("Impuesto") = "IVA" : DR2("tasa") = "16 %" : DR2("Importe") = DrImpuestos33("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1" + If DrImpuestos33("PorcentajeIVA").ToString().ToDouble >= 0 Then + DR2("Impuesto") = "IVA" : DR2("tasa") = "16 %" : DR2("Importe") = DrImpuestos33("ImporteIVA").ToString().ToDouble : DR2("Orden") = "1" TmpDTImpuestosIVAIEPS.Rows.Add(DR2) TmpDTImpuestosIVAIEPS.AcceptChanges() End If End If Try - DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{DrImpuestos33("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0) + DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{DrImpuestos33("PorcentajeIEPS").ToString().ToDouble * 100} %'")(0) Catch ex As Exception DrIEPS = Nothing End Try If DrIEPS IsNot Nothing Then - DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + DrImpuestos33("ImporteIEPS").ToString.ToDouble + DrIEPS("Importe") = DrIEPS("Importe").ToString().ToDouble + DrImpuestos33("ImporteIEPS").ToString().ToDouble TmpDTImpuestosIVAIEPS.AcceptChanges() Else Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If DrImpuestos33("PorcentajeIEPS").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", DrImpuestos33("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = DrImpuestos33("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(DrImpuestos33("PorcentajeIEPS").ToString = "0.03", "2", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.06", "3", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.07", "4", If(DrImpuestos33("PorcentajeIEPS").ToString = "0.09", "5", "")))) + If DrImpuestos33("PorcentajeIEPS").ToString().ToDouble > 0 Then + DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", DrImpuestos33("PorcentajeIEPS").ToString().ToDouble * 100, "%") : DR2("Importe") = DrImpuestos33("ImporteIEPS").ToString().ToDouble : DR2("Orden") = If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.03", "2", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.06", "3", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.07", "4", If(DrImpuestos33("PorcentajeIEPS").ToString() = "0.09", "5", "")))) TmpDTImpuestosIVAIEPS.Rows.Add(DR2) TmpDTImpuestosIVAIEPS.AcceptChanges() End If @@ -8708,7 +8709,7 @@ Partial Class Ventas ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim ObjFacturaDevolucion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim - ObjFacturaDevolucion.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero + ObjFacturaDevolucion.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero() If ObjFacturaDevolucion.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then ObjFacturaDevolucion.TipoCambio = 1 @@ -8724,7 +8725,7 @@ Partial Class Ventas ObjFacturaDevolucion.SetCliente() 'SUCURSAL - ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero + ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() ObjFacturaDevolucion.SetSubProyectoMatriz(Me) ObjFacturaDevolucion.SetSubProyecto(Me) ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel @@ -8737,21 +8738,21 @@ Partial Class Ventas ObjFacturaDevolucion.ClienteSucursal.Estado = LblEstado.Text ObjFacturaDevolucion.ClienteSucursal.CP = LblCP.Text ObjFacturaDevolucion.ClienteSucursal.Pais = CliPais - ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString + ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString() ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text - ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero > 0, DdlSucursalCliente.SelectedItem.Text, "") + ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "") 'ENVIO DIRECCION ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel If ChkDireccionEnvio.Checked Then - If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows.Count > 0 Then - For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero)).Rows - ObjFacturaDevolucion.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString.ToEntero - ObjFacturaDevolucion.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString - ObjFacturaDevolucion.EnviarA.EnvioColonia = Row("EnvioColonia").ToString - ObjFacturaDevolucion.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString - ObjFacturaDevolucion.EnviarA.EnvioEstado = Row("EnvioEstado").ToString - ObjFacturaDevolucion.EnviarA.EnvioCP = Row("EnvioCP").ToString + If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then + For Each Row As DataRow In TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows + ObjFacturaDevolucion.EnviarA.CveDireccionEnvio = Row("CveDireccionEnvio").ToString().ToEntero() + ObjFacturaDevolucion.EnviarA.EnvioDireccion = Row("EnvioDireccion").ToString() + ObjFacturaDevolucion.EnviarA.EnvioColonia = Row("EnvioColonia").ToString() + ObjFacturaDevolucion.EnviarA.EnvioCiudad = Row("EnvioCiudad").ToString() + ObjFacturaDevolucion.EnviarA.EnvioEstado = Row("EnvioEstado").ToString() + ObjFacturaDevolucion.EnviarA.EnvioCP = Row("EnvioCP").ToString() Next End If End If @@ -8762,7 +8763,7 @@ Partial Class Ventas Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre Dim Timbre As New CFDITimbre Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) - Timbre.Comprobante.Folio = Obj.Folio.ToString + Timbre.Comprobante.Folio = Obj.Folio.ToString() Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 @@ -8771,7 +8772,7 @@ Partial Class Ventas Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento Timbre.Comprobante.Moneda = Obj.MonedaSAT - Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) + Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString()) Timbre.Comprobante.Total = Obj.Total 'Try @@ -8794,7 +8795,7 @@ Partial Class Ventas Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI - If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero > 0 Then + If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then Timbre.CFDIRelacionados.TipoRelacion = "07" Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo" @@ -8819,7 +8820,7 @@ Partial Class Ventas Else 'SI LA FACTURA VIENE DE SER CANCELADA SISTEMA CUANDO SE REFACTURO NO HAY QUE RELACIONAR - If (CveEstatusFacturaPadre > 0 AndAlso CveEstatusFacturaPadre <> 4) OrElse (DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0) OrElse HdnFolioFiscalNC.Value.ToString <> "" Then + If (CveEstatusFacturaPadre > 0 AndAlso CveEstatusFacturaPadre <> 4) OrElse (DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0) OrElse HdnFolioFiscalNC.Value.ToString() <> "" Then If Obj.CveTipoRelacion > 0 Then Select Case Obj.CveTipoRelacion @@ -8848,7 +8849,7 @@ Partial Class Ventas If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then For Each Dr As DataRow In DtVentasNC.Rows - Timbre.CFDIRelacionados.UUID.Add(Dr("FolioFiscal").ToString) + Timbre.CFDIRelacionados.UUID.Add(Dr("FolioFiscal").ToString()) Next Else If Not String.IsNullOrEmpty(HdnFolioFiscalNC.Value.Trim()) Then @@ -8875,10 +8876,10 @@ Partial Class Ventas Dim tPS As String = "" For Each drr As DataRow In Obj.DtDetalle.Rows - If drr("PS").ToString.Length = 1 Then - tPS = drr("Obs").ToString + If drr("PS").ToString().Length = 1 Then + tPS = drr("Obs").ToString() Else - If drr("PS").ToString.Length = 0 Then + If drr("PS").ToString().Length = 0 Then tPS = "" Else tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) @@ -8887,17 +8888,17 @@ Partial Class Ventas 'condicionante, especial If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto - Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, + Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal, .Descripcion = tPS, - .ValorUnitario = drr("PU").ToString.ToDecimal, - .Importe = drr("TotalImporte").ToString.ToDecimal, - .Descuento = drr("Descuento").ToString.ToDecimal.RoundSQL(2), - .Unidad = drr("UM").ToString, - .ClaveUnidad = drr("SATClaveUM").ToString, - .ClaveProdServ = drr("SATClaveProdServ").ToString, - .Noidentificacion = drr("Noidentificacion").ToString, - .CuentaPredial = drr("CuentaPredial").ToString, - .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString.ToDecimal} + .ValorUnitario = drr("PU").ToString().ToDecimal, + .Importe = drr("TotalImporte").ToString().ToDecimal, + .Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2), + .Unidad = drr("UM").ToString(), + .ClaveUnidad = drr("SATClaveUM").ToString(), + .ClaveProdServ = drr("SATClaveProdServ").ToString(), + .Noidentificacion = drr("Noidentificacion").ToString(), + .CuentaPredial = drr("CuentaPredial").ToString(), + .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString().ToDecimal} 'verifica suma subtotales If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales concepto.Importe = totSubTotal @@ -8905,58 +8906,58 @@ Partial Class Ventas totSubTotal = totSubTotal - concepto.Importe 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura - ' If drr("ImporteIVA").ToString.ToDouble > 0 Then + ' If drr("ImporteIVA").ToString().ToDouble > 0 Then 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) + concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal}) End If - If drr("ImporteIEPS").ToString.ToDouble > 0 Then - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal}) + If drr("ImporteIEPS").ToString().ToDouble > 0 Then + concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal}) End If - If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal}) + If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones + concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal}) End If - If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR - concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetISR").ToString.ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal}) + If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR + concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal}) End If Timbre.Conceptos.Add(concepto) i += 1 Next - Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False) + Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString() = "True", True, False) Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then 'DATOS GENERALES - Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString - Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString + Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString() + Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString() Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0" Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}") Timbre.Complementos.ComercioExterior11.Subdivision = "0" - Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString.ToDecimal) + Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal) Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}") 'EMISOR Dim Dr As DataRow Dr = Nothing - If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero).Rows.Count > 0 Then - Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero)(0) + If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows.Count > 0 Then + Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero())(0) End If Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP - Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString - Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString - Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString - Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString + Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString() Timbre.Complementos.ComercioExterior11.Emisor.Localidad = "" - Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString - Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString - Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString - Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString + Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString() + Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString() 'RECEPTOR Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = "" ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR @@ -9012,8 +9013,8 @@ Partial Class Ventas 'MERCANCIAS For Each Gvr As GridViewRow In GvComercioExterior.Rows Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, - .FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString, - .UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString, + .FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString(), + .UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString(), .ValorDolares = Math.Round(Gvr.FCTextBox("TxtCantidad").Text.ToDecimal * Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, 2), .ValorUnitarioAduana = Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, .NoIdentificacion = Gvr.DataKey("Codigo")} @@ -9034,7 +9035,7 @@ Partial Class Ventas FM.FEMSA_NumSociedad = TxtFEMSA_NumSociedad.Text.Trim FM.FEMSA_NumProveedor = TxtFEMSA_NumProveedor.Text.Trim FM.FEMSA_Mail = TxtFEMSA_Mail.Text.Trim - FM.FEMSA_Version = TxtFEMSA_Version.Text.ToEntero + FM.FEMSA_Version = TxtFEMSA_Version.Text.ToEntero() FM.FEMSA_NumPedido = TxtFEMSA_NumPedido.Text.Trim.ToLong FM.FEMSA_NumEntrada = TxtFEMSA_NumEntrada.Text.Trim FM.FEMSA_NumRemision = TxtFEMSA_NumRemision.Text.Trim @@ -9065,30 +9066,30 @@ Partial Class Ventas TmpDTComplementosTimbrado.Columns.Add("Entidad") Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow - If RblComplementos.SelectedValue.ToEntero > 0 Then + If RblComplementos.SelectedValue.ToEntero() > 0 Then - Select Case RblComplementos.SelectedValue.ToEntero + Select Case RblComplementos.SelectedValue.ToEntero() Case 5 - Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero - Row2("IdContabilidad") = TxtIdConta.Text.ToEntero + Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero() + Row2("IdContabilidad") = TxtIdConta.Text.ToEntero() Row2("TipoProceso") = "Ordinario" Row2("TipoAmbito") = "Directivo Estatal" Row2("Entidad") = DdlINEEntidad.SelectedValue Case 6 - Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero - Row2("IdContabilidad") = TxtIdConta.Text.ToEntero + Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero() + Row2("IdContabilidad") = TxtIdConta.Text.ToEntero() Row2("TipoProceso") = "Ordinario" Row2("TipoAmbito") = "Ejecutivo Estatal" Row2("Entidad") = DdlINEEntidad.SelectedValue Case 7 - Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero - Row2("IdContabilidad") = TxtIdConta.Text.ToEntero + Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero() + Row2("IdContabilidad") = TxtIdConta.Text.ToEntero() Row2("TipoProceso") = "Ordinario" Row2("TipoAmbito") = "Ejecutivo Nacional" Row2("Entidad") = "" Case 8 - Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero - Row2("IdContabilidad") = TxtIdConta.Text.ToEntero + Row2("CveComplemento") = RblComplementos.SelectedValue.ToEntero() + Row2("IdContabilidad") = TxtIdConta.Text.ToEntero() Row2("TipoProceso") = DdlTipoCampaña.SelectedValue Row2("TipoAmbito") = DdlAmbitoComplemento.SelectedValue Row2("Entidad") = DdlINEEntidad.SelectedValue @@ -9111,7 +9112,7 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas If ObjVentas.GetOCSinFacturar(TxtFechaIOC.Text, TxtFechaFOC.Text, CveCliente, 1) Then - If DdlContratosOC.SelectedValue.ToEntero > 0 Then + If DdlContratosOC.SelectedValue.ToEntero() > 0 Then DTOrdenesCompra = ObjVentas.DtResultados.FiltraParametros($"CveContratoVinculado = '{DdlContratosOC.SelectedValue}'") Else DTOrdenesCompra = ObjVentas.DtResultados @@ -9131,7 +9132,7 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas If ObjVentas.GetOCSinFacturar(TxtFechaIOC.Text, TxtFechaFOC.Text, CveCliente, 2) Then - If DdlContratosOC.SelectedValue.ToEntero > 0 Then + If DdlContratosOC.SelectedValue.ToEntero() > 0 Then DTOrdenesCompra = ObjVentas.DtResultados.FiltraParametros($"Cantidad > 0 AND CveContratoVinculado = '{DdlContratosOC.SelectedValue}'") Else DTOrdenesCompra = ObjVentas.DtResultados.FiltraParametros($"Cantidad > 0") @@ -9156,7 +9157,7 @@ Partial Class Ventas If Gvr.RowType = DataControlRowType.DataRow Then If Gvr.FCCheckBox("Chk").Checked Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveOrdenCompraDetalle As Integer = Gvr.DataKey("CveOrdenCompraDetalle").ToEntero + Dim CveOrdenCompraDetalle As Integer = Gvr.DataKey("CveOrdenCompraDetalle").ToEntero() Dim Drs As DataRow() = dt.Select($"CveOrdenCompraDetalle = {CveOrdenCompraDetalle}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -9171,7 +9172,7 @@ Partial Class Ventas If Gvr.RowType = DataControlRowType.DataRow Then If Gvr.FCCheckBox("Chk").Checked Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveOrdenCompra As Integer = Gvr.DataKey("CveOrdenCompra").ToEntero + Dim CveOrdenCompra As Integer = Gvr.DataKey("CveOrdenCompra").ToEntero() Dim Drs As DataRow() = dt.Select($"CveOrdenCompra = {CveOrdenCompra}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -9218,30 +9219,30 @@ Partial Class Ventas Dim sb As New StringBuilder If ChkPSOC.Checked Then For Each row As DataRow In dtSeleccionadas.Rows - sb.Append($"{row("CveOrdenCompraDetalle").ToString},") + sb.Append($"{row("CveOrdenCompraDetalle").ToString()},") Next Else For Each row As DataRow In dtSeleccionadas.Rows - sb.Append($"{row("CveOrdenCompra").ToString},") + sb.Append($"{row("CveOrdenCompra").ToString()},") Next End If sb.Remove(sb.Length - 1, 1) - If ObjClientes.GetVentasOCTotales(CveCliente, sb.ToString, If(ChkPSOC.Checked, 2, 1)) Then + If ObjClientes.GetVentasOCTotales(CveCliente, sb.ToString(), If(ChkPSOC.Checked, 2, 1)) Then DTOrdenesCompraPS = ObjClientes.DtResultados RegistroxOC = True Dim tCantidad As Decimal = 0 For Each Dr As DataRow In DTOrdenesCompraPS.Select() - tCantidad = If(ChkPSOC.Checked, GvOCPS.Rows(IndiceGVDataKey(GvOCPS, "CveOrdenCompraDetalle", $"{Dr("CveOrdenCompraDetalle")}")).FCTextBox("TxtCantidadOC").Text, Dr("Cantidad")).ToString.ToDecimal - AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString, - Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PUCon").ToString.ToDecimal, 0, - Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString, - CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, + tCantidad = If(ChkPSOC.Checked, GvOCPS.Rows(IndiceGVDataKey(GvOCPS, "CveOrdenCompraDetalle", $"{Dr("CveOrdenCompraDetalle")}")).FCTextBox("TxtCantidadOC").Text, Dr("Cantidad")).ToString().ToDecimal + AgregarProductoServicio(tCantidad, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(), + Dr("CvePS").ToString().ToEntero(), Dr("PS").ToString(), Dr("Obs").ToString(), Dr("PUCon").ToString().ToDecimal, 0, + Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString(), Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(), + CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero(), CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString().ToEntero(), EntregaDirecta:=1) Next - CveContrato = DTOrdenesCompraPS.FiltroPrimeroValor("CveContrato").ToString.ToEntero + CveContrato = DTOrdenesCompraPS.FiltroPrimeroValor("CveContrato").ToString().ToEntero() If CveContrato > 0 Then ContratoOC = True CalculaTotalesVenta() @@ -9354,11 +9355,11 @@ Partial Class Ventas Dim EsInterno As Integer = -1 If DdlAlmacenAsignado.Visible Or RequiereAlmacenDestino Then - CveAlmacenTraspasoDestino = DdlAlmacenAsignado.SelectedValue.ToEntero + CveAlmacenTraspasoDestino = DdlAlmacenAsignado.SelectedValue.ToEntero() End If If DdlAlmacenOrigen.Visible Or RequiereAlmacenOrigen Then - CveAlmacenTraspasoOrigen = DdlAlmacenOrigen.SelectedValue.ToEntero + CveAlmacenTraspasoOrigen = DdlAlmacenOrigen.SelectedValue.ToEntero() End If If TrTipoPedido.Visible Then @@ -9368,15 +9369,15 @@ Partial Class Ventas 'Si es devolucion revertimos los almacenes If CvePedido > 0 And TipoContrato = 2 Then EsDevolucionVenta = 1 - CveAlmacenTraspasoOrigen = DdlAlmacenAsignado.SelectedValue.ToEntero - CveAlmacenTraspasoDestino = DdlAlmacenOrigen.SelectedValue.ToEntero + CveAlmacenTraspasoOrigen = DdlAlmacenAsignado.SelectedValue.ToEntero() + CveAlmacenTraspasoDestino = DdlAlmacenOrigen.SelectedValue.ToEntero() End If 'VALIDA ENTREGA POR ADELANTADO If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then 'If UsuarioActual.CveEmpresa.Contiene(4, 72, 80, 119) Then 'INCRUSTAMOS ALMACEN ENTREGA POR ADELANTADO CUANDO SEA REMISION Y NO TRAIGA ASIGNADO POR EL USUARIO If CveAlmacenTraspasoDestino <= 0 And factura.TipoDocto = "Rem" Then - CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero + CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero() End If 'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO @@ -9414,10 +9415,10 @@ Partial Class Ventas factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.CveMesa, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa, AtencionA:=factura.AtencionA, TelefonoGenerico:=TxtTelefonoGenerico.Text.Trim, CveContrato:=factura.CveContrato, CveVentaPadre:=If(AplicaDevolucion, CveVentaDevolucion, factura.CveVentaPadre), Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros, Entrega:=TxtEntrega.Text, Vigencia:=If(DdlTipoComprobante.SelectedValue = "Cot", TxtFechaVencimientoCotizacion.Text.ToDate, MinFecha), - CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), CveOC:=CveOC, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero, + CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero(), -1), CveOC:=CveOC, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), PedidoContrato:=TxtPedidoContrato.Text, ObservacionesAlmacen:=TxtObsAlmacen.Text, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33, - CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, - CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), + CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero(), CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, + CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion) Then @@ -9426,8 +9427,8 @@ Partial Class Ventas If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then If DtVentasNC IsNot Nothing Then For Each row As DataRow In DtVentasNC.Rows - If Not row("CveVenta").ToString.ToEntero = -1 Then - If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then + If Not row("CveVenta").ToString().ToEntero() = -1 Then + If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString().ToEntero()) Then ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") End If End If @@ -9455,7 +9456,7 @@ Partial Class Ventas factura.Folio = ObjVentas.Folio ViewState("VentaFolio") = ObjVentas.SerieFolio factura.Timbre.Comprobante.Serie = ObjVentas.Serie - factura.Timbre.Comprobante.Folio = ObjVentas.Folio.ToString + factura.Timbre.Comprobante.Folio = ObjVentas.Folio.ToString() If factura.TipoDocto = "Egs" AndAlso NuevaFactura = 1 Then If DtVentasNC Is Nothing Then @@ -9466,13 +9467,13 @@ Partial Class Ventas 'Se agregan los PS For Each Row As DataRow In TmpDTDetalle.Rows - If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, - Row("PU").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), - Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, - TiempoEntrega:=Row("TiempoEntrega").ToString, CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=Row("CvePromocionDetalle").ToString.ToEntero, - IEPS:=Row("ImporteIEPS").ToString.ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero, - ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, - PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then + If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(), + Row("PU").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), + Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), + TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), + IEPS:=Row("ImporteIEPS").ToString().ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), + ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble, + PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString()) Then ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Exit For Else @@ -9480,7 +9481,7 @@ Partial Class Ventas 'Agregamos el gasto de contrato If CveContrato > 0 AndAlso factura.TipoDocto = "Rem" AndAlso AplicaGastoContrato Then Dim ObjContrato As New ClsContratos - If Not ObjContrato.AddContratoGasto(CveContrato, Row("PS").ToString, Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, factura.Fecha, UsuarioActual.CveUsuario, CveVenta:=ObjVentas.CveVenta) Then + If Not ObjContrato.AddContratoGasto(CveContrato, Row("PS").ToString(), Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, factura.Fecha, UsuarioActual.CveUsuario, CveVenta:=ObjVentas.CveVenta) Then ErrorList.Add("Ocurrió un error al agregar el gasto de la Factura.") Exit For End If @@ -9489,7 +9490,7 @@ Partial Class Ventas 'Si es devolucion se agregan a la tabla de Vta_VentasDetalleDevolucion If factura.AplicaDevolucion Then - If Not ObjVentas.AddVentaDetalleDevolucion(Row("CveVentaDetalle").ToString.ToEntero, ObjVentas.CveVentaDetalle, Row("Cantidad").ToString.ToDouble) Then + If Not ObjVentas.AddVentaDetalleDevolucion(Row("CveVentaDetalle").ToString().ToEntero(), ObjVentas.CveVentaDetalle, Row("Cantidad").ToString().ToDouble) Then ErrorList.Add("Ocurrió un error al agregar la venta detalle devolución.") End If If ErrorList.Count = 0 Then @@ -9499,15 +9500,12 @@ Partial Class Ventas End If End If - Dim TmpDr As DataRow = TmpDTDetalle.Select($"Consec = {Row("Consec").ToString}")(0) + Dim TmpDr As DataRow = TmpDTDetalle.Select($"Consec = {Row("Consec").ToString()}")(0) TmpDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle Try - If DtInv IsNot Nothing Then - Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString}")(0) - InvDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle - End If - + Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString()}")(0) + InvDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle Catch ex As Exception End Try @@ -9516,7 +9514,7 @@ Partial Class Ventas 'Orden Produccion' If UsuarioActual.CveEmpresa.Contiene(126) Then - If ObjVentas.CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then + If ObjVentas.CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), ObjVentas.CveVenta) Then ErrorList.Add("Ocurrió un error al actualizar la orden de producción") End If @@ -9565,7 +9563,7 @@ Partial Class Ventas For Each gvr As GridViewRow In GvImpuestosLocales2.Rows If gvr.RowType = DataControlRowType.DataRow Then If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble <> 0 Then - If Not ObjVentas.AddVentaImpuestoLocales(factura.CveVenta, gvr.DataKey("CveImpuestoLocal").ToString.ToEntero, gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1))) Then + If Not ObjVentas.AddVentaImpuestoLocales(factura.CveVenta, gvr.DataKey("CveImpuestoLocal").ToString().ToEntero(), gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1))) Then ErrorList.Add("Ocurrió un error al Guardar Impuestos Locales") End If End If @@ -9574,7 +9572,7 @@ Partial Class Ventas If DTmpF.Rows.Count > 0 Then For Each Row As DataRow In DTmpF.Rows - If Not ObjVentas.AddVentasFirmas(factura.CveVenta, Row("Titulo").ToString, Row("Nombre").ToString, Row("Puesto").ToString, Row("Lado").ToString.ToEntero) Then + If Not ObjVentas.AddVentasFirmas(factura.CveVenta, Row("Titulo").ToString(), Row("Nombre").ToString(), Row("Puesto").ToString(), Row("Lado").ToString().ToEntero()) Then ErrorList.Add("Ocurrio un error al Guardar Firmas") End If Next @@ -9585,7 +9583,7 @@ Partial Class Ventas 'cuando es contado If RBLPago.SelectedValue = "2" AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then For Each DrPago As DataRow In DtPagos.Rows - If Not ObjVentas.AddVta_VentaPago(factura.CveVenta, DrPago("CveMetodoPago").ToString.ToEntero, DrPago("Importe").ToString.ToDouble) Then + If Not ObjVentas.AddVta_VentaPago(factura.CveVenta, DrPago("CveMetodoPago").ToString().ToEntero(), DrPago("Importe").ToString().ToDouble) Then ErrorList.Add("Ocurrio un error al guardar los metodos de pago") End If Next @@ -9603,13 +9601,13 @@ Partial Class Ventas 'If factura.CveCorte > 0 Then ' If RBLPago.SelectedValue = "2" AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then ' For Each DrPago As DataRow In DtPagos.Rows - ' If ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero, TxtFechaPago.Text.ToDate, DrPago("Folio").ToString, "", DrPago("Importe").ToString.ToDouble, DdlMoneda.SelectedValue.ToEntero, If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDouble), "", "", True, False, -1, factura.CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte) = -1 Then + ' If ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString().ToEntero(), DrPago("CveTipoMovimiento").ToString().ToEntero(), TxtFechaPago.Text.ToDate, DrPago("Folio").ToString(), "", DrPago("Importe").ToString().ToDouble, DdlMoneda.SelectedValue.ToEntero(), If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDouble), "", "", True, False, -1, factura.CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte) = -1 Then ' ErrorList.Add("Ocurrio un error al guardar los metodos de pago") ' End If ' Next ' 'Else ' ' 'cuando es crédito o terminal - ' ' If ObjBancos.AddBancos_IE(, 7, TxtFechaPago.Text.ToDate, TxtFolio.Text.ToString, "", TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDouble), "", "", True, False, -1, factura.CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte) = -1 Then + ' ' If ObjBancos.AddBancos_IE(, 7, TxtFechaPago.Text.ToDate, TxtFolio.Text.ToString(), "", TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero(), If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDouble), "", "", True, False, -1, factura.CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte) = -1 Then ' ' ErrorList.Add("Ocurrio un error al guardar los metodos de pago") ' ' End If ' End If @@ -9619,7 +9617,7 @@ Partial Class Ventas 'INE COMPLEMENTOS If ObjFactura.ComplementoINE IsNot Nothing Then - If Not ObjVentas.UpdateVentasComplementos(ObjFactura.CveVenta, ObjFactura.ComplementoINE.INETipoProceso, ObjFactura.ComplementoINE.INETipoComite, ObjFactura.ComplementoINE.INEIdContabilidad.ToString) Then + If Not ObjVentas.UpdateVentasComplementos(ObjFactura.CveVenta, ObjFactura.ComplementoINE.INETipoProceso, ObjFactura.ComplementoINE.INETipoComite, ObjFactura.ComplementoINE.INEIdContabilidad.ToString()) Then ErrorList.Add("Ocurrio un error al guardar los complementos") End If End If @@ -9635,10 +9633,10 @@ Partial Class Ventas For Each row As DataRow In DtRemisionesPS.Rows Cantidad = DtRemisionesTmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToDecimal - CvePS = DtRemisionesTmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToEntero + CvePS = DtRemisionesTmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToEntero() PU = DtRemisionesTmpDT.FiltroPrimeroValor("PU", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToDecimal - CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToEntero - CveVentaDetallePadre = row("CveVentaDetalle").ToString.ToEntero + CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetalleRemision={row("CveVentaDetalle")}").ToEntero() + CveVentaDetallePadre = row("CveVentaDetalle").ToString().ToEntero() If Not ObjVentas.AgregarRemisionDetalle(CveVentaDetalle, CveVentaDetallePadre, Cantidad) Then ErrorList.Add("Ocurrió un error al agregar el detalle de la Remision") @@ -9652,7 +9650,7 @@ Partial Class Ventas Dim dt As DataTable = DTRemisiones.FiltraParametros("Aplicado = True") If dt.Rows.Count > 0 Then For Each row As DataRow In dt.Rows - If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString.ToEntero, ObjFactura.CveVenta) Then + If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then ErrorList.Add("Ocurrió un error al actualizar la remisión") End If Next @@ -9671,10 +9669,10 @@ Partial Class Ventas For Each row As DataRow In DtPedidos2PS.Rows Cantidad = DtPedidos2TmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal - CvePS = DtPedidos2TmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero + CvePS = DtPedidos2TmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero() PU = DtPedidos2TmpDT.FiltroPrimeroValor("PU", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal - CveVentaDetalle = TmpDTDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero - CveVentaDetallePadre = row("CveVentaDetalle").ToString.ToEntero + CveVentaDetalle = TmpDTDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero() + CveVentaDetallePadre = row("CveVentaDetalle").ToString().ToEntero() If Not ObjVentas.AddVentaDetallePedido2(CveVentaDetalle, CveVentaDetallePadre, Cantidad) Then ErrorList.Add("Ocurrió un error al agregar el detalle del Pedido2") @@ -9686,7 +9684,7 @@ Partial Class Ventas Dim dt As DataTable = DtPedidos2.FiltraParametros("Aplicado = True") If dt.Rows.Count > 0 Then For Each row As DataRow In dt.Rows - If Not ObjVentas.UpdateVentaPedido2(row("CveVenta").ToString.ToEntero, ObjFactura.CveVenta) Then + If Not ObjVentas.UpdateVentaPedido2(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then ErrorList.Add("Ocurrió un error al actualizar el Pedido2") End If Next @@ -9785,7 +9783,7 @@ Partial Class Ventas If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then tipoCambio = ObjFactura.TipoCambio ElseIf ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio <= 1 Then - tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString.ToDecimal + tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString().ToDecimal Else tipoCambio = 1 End If @@ -9798,8 +9796,8 @@ Partial Class Ventas Dim CveCuenta As Integer Dim IdCtaContableCliente As Integer Dim CveCuentaCliente As Integer - Dim Concepto As String = ViewState("VentaFolio").ToString - Dim Referencia As String = ViewState("VentaFolio").ToString + Dim Concepto As String = ViewState("VentaFolio").ToString() + Dim Referencia As String = ViewState("VentaFolio").ToString() Dim Fecha = TxtFecha.Text.Trim.ToDate Dim importeMX As Decimal @@ -9807,7 +9805,7 @@ Partial Class Ventas Dim CveIEPago As Integer Dim FolioIE As Long Dim CveIEAnticipo As Integer - Dim CveSubProyectoVenta = DdlSubProyectoDatos.SelectedValue.ToEntero + Dim CveSubProyectoVenta = DdlSubProyectoDatos.SelectedValue.ToEntero() Dim CveSubProyectoContabilizar As Integer Dim IdCtaIVAXTrasladar As Integer = 0 Dim IdCtaIVATrasladado As Integer = 0 @@ -9819,10 +9817,10 @@ Partial Class Ventas End If If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVAXTrasladar").ToString.ToEntero - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero + IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVAXTrasladar").ToString().ToEntero() + IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() End If Dim UsaComplementariaClientes As Boolean = False @@ -9833,13 +9831,13 @@ Partial Class Ventas If ValorMultiplicador = -1 Then dtt = ObjConta.DtResultados.FiltraParametros("", "Orden DESC") ' se ordena contrario al registro para llevar los saldos correctos For Each Row As DataRow In dtt.Rows - ConceptoContable = Row("CveConcepto").ToString.ToEntero - TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) + ConceptoContable = Row("CveConcepto").ToString().ToEntero() + TipoMovimiento = If(Row("TipoMovto").ToString() = "True", True, False) importeMovimiento = 0 IdCtaContable = 0 CveCuenta = 0 CveSubProyectoContabilizar = 0 - Multiplicador = (Row("Multiplicador").ToString.ToEntero) + Multiplicador = (Row("Multiplicador").ToString().ToEntero()) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", "") Dim PorcentajeImpuesto As Decimal = 0 @@ -9985,11 +9983,11 @@ Partial Class Ventas ImporteConcepto12 = importeMX.RoundSQL If importeMovimiento <> 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then @@ -10020,39 +10018,39 @@ Partial Class Ventas Dim Importe251 As Decimal = 0 Dim ImporteMN251 As Decimal = 0 - If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal - Importe91 = Dr("Importe").ToString.ToDecimal - ImporteMN91 = Dr("Importe").ToString.ToDecimal + If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso Not Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + Importe251 = Dr("Importe").ToString().ToDecimal + Importe91 = Dr("Importe").ToString().ToDecimal + ImporteMN91 = Dr("Importe").ToString().ToDecimal TipoCambioNC = 1 - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal - Importe91 = Dr("Importe").ToString.ToDecimal - ImporteMN91 = Dr("Importe").ToString.ToDecimal * TipoCambioNC - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal - Importe91 = Dr("Importe").ToString.ToDecimal - ImporteMN91 = Dr("Importe").ToString.ToDecimal * TipoCambioNC - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso Not Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + Importe251 = Dr("Importe").ToString().ToDecimal + Importe91 = Dr("Importe").ToString().ToDecimal + ImporteMN91 = Dr("Importe").ToString().ToDecimal * TipoCambioNC + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + Importe251 = Dr("Importe").ToString().ToDecimal + Importe91 = Dr("Importe").ToString().ToDecimal + ImporteMN91 = Dr("Importe").ToString().ToDecimal * TipoCambioNC + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then - Importe91 = Dr("Importe").ToString.ToDecimal / TipoCambioNC - ImporteMN91 = Dr("Importe").ToString.ToDecimal + Importe91 = Dr("Importe").ToString().ToDecimal / TipoCambioNC + ImporteMN91 = Dr("Importe").ToString().ToDecimal End If - Dim TCFluctuacion As Decimal = Dr("TCCambioValuacion").ToString.ToDecimal + Dim TCFluctuacion As Decimal = Dr("TCCambioValuacion").ToString().ToDecimal If TCFluctuacion = 1 AndAlso TipoCambioNC > 1 Then TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal End If - If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion - ImporteMN251 = Dr("Importe").ToString.ToDecimal + If DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso Not Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + ImporteMN251 = Dr("Importe").ToString().ToDecimal * TCFluctuacion + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + ImporteMN251 = Dr("Importe").ToString().ToDecimal * TCFluctuacion + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then + Importe251 = Dr("Importe").ToString().ToDecimal / TCFluctuacion + ImporteMN251 = Dr("Importe").ToString().ToDecimal Else - ImporteMN251 = Dr("Importe").ToString.ToDecimal + ImporteMN251 = Dr("Importe").ToString().ToDecimal End If Importe251 = Importe251.RoundSQL @@ -10061,27 +10059,27 @@ Partial Class Ventas ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}" - CveUltimaVenta = Dr("CveVenta").ToString.ToEntero + CveUltimaVenta = Dr("CveVenta").ToString().ToEntero() Dim ImporteComplementarioIngreso As Decimal = 0 If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then ImporteMN91 = Importe91 ImporteComplementarioIngreso = ((Importe91 * tipoCambio) - Importe91).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 203, Concepto, FechaMovimiento, IdCtaContableClienteComplementaria, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString.ToEntero, ImporteMX:=ImporteComplementarioIngreso, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=Dr("TCCambioValuacion").ToString.ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 203, Concepto, FechaMovimiento, IdCtaContableClienteComplementaria, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteComplementarioIngreso, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=Dr("TCCambioValuacion").ToString().ToDecimal) Then ErrorPrepoliza = True Exit For End If End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString.ToEntero, ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then ErrorPrepoliza = True Exit For End If ImporteAcumulado91 += (ImporteMN91).RoundSQL - If UsaComplementariaClientes = True AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then + If UsaComplementariaClientes = True AndAlso Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then ImporteMN251 = Importe251 - Dim ImporteComplementarioNC As Decimal = ((Importe251 * Dr("TCCambioValuacion").ToString.ToDecimal) - Importe251).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 207, Concepto, FechaMovimiento, IdCtaContableClienteComplementaria, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteComplementarioNC, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal) Then + Dim ImporteComplementarioNC As Decimal = ((Importe251 * Dr("TCCambioValuacion").ToString().ToDecimal) - Importe251).RoundSQL + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 207, Concepto, FechaMovimiento, IdCtaContableClienteComplementaria, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteComplementarioNC, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal) Then ErrorPrepoliza = True Exit For End If @@ -10091,12 +10089,12 @@ Partial Class Ventas If EsNCAmortizacion Then '' aqui no se registra el pago como NC, se deja para el registro de la aplicaion del anticipo '' esto para trasladar los impuestos. - If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") Then + If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") Then For Each row2 As GridViewRow In GVAnticipos.Rows - If row2.DataKey("CveConceptoContable").ToString().ToEntero = 3 Then + If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 3 Then If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then - CveIEAnticipo = row2.DataKey("CveIE").ToString.ToEntero + CveIEAnticipo = row2.DataKey("CveIE").ToString().ToEntero() importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" @@ -10105,12 +10103,12 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For Else ViewState("SeGuardoPrePoliza") = True - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then ErrorPrepoliza = True Exit For End If @@ -10126,15 +10124,15 @@ Partial Class Ventas If IngresoIVA > 0 Then IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IVA PAGADO IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If @@ -10143,15 +10141,15 @@ Partial Class Ventas If IngresoIEPS > 0 Then 'IEPS X TRASLADAR - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) - If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If @@ -10167,7 +10165,7 @@ Partial Class Ventas End If Else - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteMN251, ImporteME:=If(Dr("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteMN251, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then ErrorPrepoliza = True Exit For End If @@ -10197,7 +10195,7 @@ Partial Class Ventas End If Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString.ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=TipoCambioNC, TipoCambioPago:=Dr("TCCambioValuacion").ToString.ToDecimal, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=TipoCambioNC, TipoCambioPago:=Dr("TCCambioValuacion").ToString().ToDecimal, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True Exit For End If @@ -10320,18 +10318,18 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If row2.DataKey("IdCtaContable").ToEntero > 0 Then - IdCtaContable = row2.DataKey("IdCtaContable").ToEntero + If row2.DataKey("IdCtaContable").ToEntero() > 0 Then + IdCtaContable = row2.DataKey("IdCtaContable").ToEntero() Else - If ObjConta.GetRetCuenta(row2.DataKey("CveConceptoContable").ToEntero, ObjFactura.CveCliente) Then + If ObjConta.GetRetCuenta(row2.DataKey("CveConceptoContable").ToEntero(), ObjFactura.CveCliente) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContFondoGarantia").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContFondoGarantia").ToString().ToEntero() End If End If End If If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, If(row2.DataKey("TipoMovto").ToString = "True", True, False), importeMovimiento, Referencia, row2.DataKey("CveConceptoContable").ToEntero, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, If(row2.DataKey("TipoMovto").ToString() = "True", True, False), importeMovimiento, Referencia, row2.DataKey("CveConceptoContable").ToEntero(), Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True End If End If @@ -10349,7 +10347,7 @@ Partial Class Ventas If ObjFactura.TipoDocto = "Ing" AndAlso ValorMultiplicador = -1 Then For Each row2 As GridViewRow In GvAntNC.Rows - If row2.DataKey("CveConceptoContable").ToString().ToEntero = 11 Then + If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 11 Then importeMovimiento = row2.DataKey("Importe").ToString().ToDecimal * ValorMultiplicador '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" @@ -10358,7 +10356,7 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For Else @@ -10374,7 +10372,7 @@ Partial Class Ventas If ObjFactura.TipoDocto = "Egs" AndAlso EsNCAmortizacion Then If DtAnticipoAmortizacion IsNot Nothing AndAlso DtAnticipoAmortizacion.Rows.Count > 0 Then For Each RowAnticipo As DataRow In DtAnticipoAmortizacion.Rows - Dim CveVentaAnticipo As Integer = RowAnticipo("CveVenta").ToString().ToEntero + Dim CveVentaAnticipo As Integer = RowAnticipo("CveVenta").ToString().ToEntero() importeMovimiento = RowAnticipo("SaldoAnticipo").ToString().ToDecimal If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" @@ -10400,14 +10398,14 @@ Partial Class Ventas ' cuando es amortización de nota de crédito, y es la nc ' cuando es amortización por descuento, y es el ingreso ' cuando es amortización en cero - 'DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse - If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse - DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero = 3 Then + 'DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse + If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse + DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 3 Then For Each row2 As GridViewRow In GVAnticipos.Rows - If row2.DataKey("CveConceptoContable").ToString().ToEntero = 3 Then + If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 3 Then If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then - CveIEAnticipo = row2.DataKey("CveIE").ToString.ToEntero + CveIEAnticipo = row2.DataKey("CveIE").ToString().ToEntero() importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" @@ -10416,7 +10414,7 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For Else @@ -10435,7 +10433,7 @@ Partial Class Ventas DT = TmpDTDetalle.FiltraParametros($"CvePS = {CvePSAmortizacion}") If DT.Rows.Count > 0 Then For Each Row2 As DataRow In DT.Rows - importeMovimiento = Math.Abs(Row2("PU").ToString.ToDecimal) + importeMovimiento = Math.Abs(Row2("PU").ToString().ToDecimal) IdCtaContable = IdCtaContAnticipos CveCuenta = CveCuentaAnticipos CveSubProyectoContabilizar = CveSubProyectoVenta @@ -10462,7 +10460,7 @@ Partial Class Ventas 'cuando es cancelación For Each row2 As GridViewRow In GvNC.Rows - If row2.DataKey("CveConceptoContable").ToString().ToEntero = 91 Then + If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 91 Then importeMovimiento = row2.DataKey("Importe").ToDecimal * ValorMultiplicador sumaAmorticaciones += importeMovimiento @@ -10478,8 +10476,8 @@ Partial Class Ventas If importeMovimiento <> 0 Then - If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVentaNC").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2.DataKey("CveVentaNC").ToString.ToEntero, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then + If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVentaNC").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2.DataKey("CveVentaNC").ToString().ToEntero(), ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then ErrorPrepoliza = True Exit For End If @@ -10488,7 +10486,7 @@ Partial Class Ventas Exit For End If - 'If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2.DataKey("CveVentaNC").ToString.ToEntero, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then + 'If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2.DataKey("CveVentaNC").ToString().ToEntero(), ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then ' ErrorPrepoliza = True 'End If End If @@ -10498,7 +10496,7 @@ Partial Class Ventas Else For Each row2 As GridViewRow In GVAnticipos.Rows - If row2.DataKey("CveConceptoContable").ToString().ToEntero = 12 Then + If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 12 Then If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal @@ -10510,7 +10508,7 @@ Partial Class Ventas If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then ErrorPrepoliza = True End If End If @@ -10601,10 +10599,10 @@ Partial Class Ventas For i = 0 To TmpDTDetalle.Rows.Count - 1 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "18097") Then + If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then - 'If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal > 0 Then - ' If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal = 0.08 Then + 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then + ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% ' Else ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% @@ -10615,8 +10613,8 @@ Partial Class Ventas ' End If 'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString + If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString() End If End If @@ -10630,35 +10628,35 @@ Partial Class Ventas If DT.Rows.Count > 0 Then 'Se agrega movimiento separado por la cuenta de ventas (ER) For Each Row2 As DataRow In DT.Rows - importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador + importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas If ObjFactura.TipoDocto.Contiene("Egs") Then - IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() Else - IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() If importeMovimiento <> 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) CveCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True Else ViewState("SeGuardoPrePoliza") = True @@ -10682,10 +10680,10 @@ Partial Class Ventas For i = 0 To TmpDTDetalle.Rows.Count - 1 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso - If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "18097") Then + If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString() End If End If @@ -10699,41 +10697,41 @@ Partial Class Ventas If DT.Rows.Count > 0 Then 'Se agrega movimiento separado por la cuenta de ventas (ER) For Each Row2 As DataRow In DT.Rows - importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador + importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then Dim CampoCuenta As String = "IdCuentaGasto" 'If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento" - IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() Else - IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() End If If UsuarioActual.CveEmpresa = 119 Then - If Row2("CveClasificacion").ToString = "19930" Then IdCtaContable = 1141 - If Row2("CveClasificacion").ToString = "19929" Then IdCtaContable = 1142 + If Row2("CveClasificacion").ToString() = "19930" Then IdCtaContable = 1141 + If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142 End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() If importeMovimiento <> 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) CveCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True Else ViewState("SeGuardoPrePoliza") = True @@ -10754,16 +10752,16 @@ Partial Class Ventas If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero - 'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero() + 'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero() End If End If If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If importeMovimiento > 0 AndAlso UsuarioActual.CveEmpresa = 119 Then 'código fijo en base el porcentaje iva, que se afecten las clasificaciones For i = 0 To TmpDTDetalle.Rows.Count - 1 - 'If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal > 0 Then - ' If TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal = 0.08 Then + 'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then + ' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then ' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8% ' Else ' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16% @@ -10773,7 +10771,7 @@ Partial Class Ventas 'End If If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString() End If Next @@ -10805,7 +10803,7 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero() End If End If End If @@ -10816,7 +10814,7 @@ Partial Class Ventas Else If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() End If End If End If @@ -10835,7 +10833,7 @@ Partial Class Ventas If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then 'Conta ContPAQ - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero() End If End If @@ -10855,7 +10853,7 @@ Partial Class Ventas Else If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero() End If End If End If @@ -10866,7 +10864,7 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() End If End If End If @@ -10893,8 +10891,8 @@ Partial Class Ventas If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero() + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString().ToEntero() End If End If End If @@ -10907,21 +10905,21 @@ Partial Class Ventas CveIEPago = -1 FolioIE = -1 - FolioIE = ObjBancos.GetNextFolio(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero) + FolioIE = ObjBancos.GetNextFolio(DrPago("CveCuenta").ToString().ToEntero(), DrPago("CveTipoMovimiento").ToString().ToEntero()) If Not FolioIE > 0 Then ErrorPrepoliza = True Exit For End If - 'If DrPago("CveTipoMovimiento").ToString.ToEntero = 8 Then '13 - ' DrPago("Importe") = DrPago("Importe").ToString.ToDecimal - TxtCambio.Text.ToDecimal + 'If DrPago("CveTipoMovimiento").ToString().ToEntero() = 8 Then '13 + ' DrPago("Importe") = DrPago("Importe").ToString().ToDecimal - TxtCambio.Text.ToDecimal 'End If - CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString.ToEntero, DrPago("CveTipoMovimiento").ToString.ToEntero, Fecha, FolioIE.ToString, String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString.ToDouble, DdlMoneda.SelectedValue.ToEntero, tipoCambio, DrPago("Observaciones").ToString, "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString.ToEntero) + CveIEPago = ObjBancos.AddBancos_IE(DrPago("CveCuenta").ToString().ToEntero(), DrPago("CveTipoMovimiento").ToString().ToEntero(), Fecha, FolioIE.ToString(), String.Format("PAGO: {0}", TxtFolio.Text), DrPago("Importe").ToString().ToDouble, DdlMoneda.SelectedValue.ToEntero(), tipoCambio, DrPago("Observaciones").ToString(), "", False, False, -1, ObjFactura.CvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=CveCorte, MesesSinIntereses:=DrPago("MesesSinIntereses").ToString().ToEntero()) If CveIEPago > 0 Then - importeMovimiento = DrPago("Importe").ToString.ToDecimal * ValorMultiplicador + importeMovimiento = DrPago("Importe").ToString().ToDecimal * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador IdCtaContable = 0 CveCuenta = 0 @@ -10929,30 +10927,30 @@ Partial Class Ventas Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows.Count = 1 Then - IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero + If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then + IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero() + CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero() End If If IdCtaContable <= 0 Then - CuentasContablesInvalidas.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) + CuentasContablesInvalidas.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) + CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) CveCuentaContabilizacion = 0 End If 'BANCOS - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then ErrorPrepoliza = True Exit For End If 'CLIENTES - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 2, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 2, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 2, Concepto, Fecha, IdCtaContableCliente, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For @@ -10961,7 +10959,7 @@ Partial Class Ventas 'IVA X TRASLADAR IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For @@ -10970,21 +10968,21 @@ Partial Class Ventas 'IVA PAGADO IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then ErrorPrepoliza = True Exit For End If 'IEPS X TRASLADAR - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For End If 'IEPS PAGADO - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSTrasladado, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Exit For @@ -11007,12 +11005,12 @@ Partial Class Ventas If (importeMovimiento <> 0 OrElse (importeMovimiento = 0 AndAlso ObjFactura.Total = 0 AndAlso ConceptoContable = 1)) And Not ErrorPrepoliza Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -11066,18 +11064,18 @@ Partial Class Ventas Dim Selecciono As Boolean = False If ChkCanRem.Checked Then For Each Gvr As GridViewRow In GvCancelarRemisiones.Rows - If Gvr.DataKey("CveVenta").ToEntero = Dr("CveVenta").ToString.ToEntero AndAlso Gvr.FCCheckBox("ChkCancelarRemision").Checked Then + If Gvr.DataKey("CveVenta").ToEntero() = Dr("CveVenta").ToString().ToEntero() AndAlso Gvr.FCCheckBox("ChkCancelarRemision").Checked Then Selecciono = True End If Next End If If Not Selecciono Then - If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString.ToEntero, ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then + If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString().ToEntero(), ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then ErrorPrepoliza = True End If 'Remision - If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: {TxtFolio.Text}", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString.ToEntero) Then + If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: {TxtFolio.Text}", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString().ToEntero()) Then ErrorPrepoliza = True End If End If @@ -11178,7 +11176,7 @@ Partial Class Ventas CveConceptoAlmacen = 18 End If - Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero + Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero() Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E1") If CveMovimientoInventario <= 0 Then @@ -11198,18 +11196,18 @@ Partial Class Ventas For Each Dr As DataRow In DtInv.Rows If GvInv.Rows(i).FCCheckBox("cbInv").Checked Then - CveProducto = Dr("CvePS").ToString.ToEntero - CveUnidad = Dr("CveUM").ToString.ToEntero - Cantidad = Dr("Cantidad").ToString.ToDouble + CveProducto = Dr("CvePS").ToString().ToEntero() + CveUnidad = Dr("CveUM").ToString().ToEntero() + Cantidad = Dr("Cantidad").ToString().ToDouble - If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then + If Dr("CveTipoInvPS").ToString().ToEntero() = 5 And Dr("SerieLote").ToString() = "" Then OcurrioError = True ErrorList.Add("Se deben especificar las Series de los productos de almacén") Exit For End If - If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString.ToEntero < 1 Then - Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) + If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then + Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) If Existencia < Cantidad Then OcurrioError = True ErrorList.Add($"No cuenta con la cantidad suficiente en inventario del producto {Dr("CodigoPS")} .Cuenta con {Existencia.FormatoNumero(2)}.") @@ -11220,13 +11218,13 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 1 Then DtEquivalencias = New DataTable DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1, UsuarioActual.CveEmpresa) - Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero + Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero() Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'") 'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE) If CveUnidadBase <> CveUnidad Then ' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA - Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble + Cantidad = Dr("Cantidad").ToString().ToDouble * drUMBase("Cantidad").ToString().ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString().ToDouble CveUnidad = CveUnidadBase End If End If @@ -11234,7 +11232,7 @@ Partial Class Ventas If CveProducto > 0 Then 'SI ES ENTRADA DEBE TENER EL COSTO DE LA SALIDA If CveConceptoAlmacen.Contiene(18) Then - PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero}").ToString.ToDecimal + PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()}").ToString().ToDecimal If PU <= 0 Then ErrorList.Add("Ocurrió un error al obtener el costo.
") OcurrioError = True @@ -11242,7 +11240,7 @@ Partial Class Ventas End If End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, Serie:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=Dr("SerieLote").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then OcurrioError = True ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.
") Exit For @@ -11291,19 +11289,19 @@ Partial Class Ventas ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) End If - 'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString) - IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + 'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString(), Row2("SubProyecto").ToString()) + IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then OcurrioError = True End If End If cont += 1 Next End If - IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero + IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero() If TotalCosto <> 0 Then If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto68, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then @@ -11340,7 +11338,7 @@ Partial Class Ventas Next 'debe de ser por contrato el movimiento If Str.Length > 0 Then - If Not ObjContr.AddEstimaciones(CveContrato, factura.Fecha, -1, factura.CveVenta, Str.ToString, factura.CveUsuario, factura.CveEmpresa) Then + If Not ObjContr.AddEstimaciones(CveContrato, factura.Fecha, -1, factura.CveVenta, Str.ToString(), factura.CveUsuario, factura.CveEmpresa) Then ErrorList.Add("Ocurrió un error al agregar la estimación a la Factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") End If End If @@ -11378,25 +11376,25 @@ Partial Class Ventas Dim IdCtaContable, CveCuenta As Integer Dim Concepto As String Dim tipoCambio As Decimal - Dim CveSubProyectoContabilizar = DdlSubProyectoDatos.SelectedValue.ToEntero + Dim CveSubProyectoContabilizar = DdlSubProyectoDatos.SelectedValue.ToEntero() For Each RowIL As DataRow In TmpDTImpuestos.Rows - If RowIL("TipoImpuesto").ToString.ToEntero > 0 Then + If RowIL("TipoImpuesto").ToString().ToEntero() > 0 Then - Importe = RowIL("Importe").ToString.ToDecimal * ValorMultiplicador - IdCtaContable = RowIL("IdCtaContable").ToString.ToEntero - CveCuenta = RowIL("IdCtaContable").ToString.ToEntero - Concepto = ViewState("VentaFolio").ToString + Importe = RowIL("Importe").ToString().ToDecimal * ValorMultiplicador + IdCtaContable = RowIL("IdCtaContable").ToString().ToEntero() + CveCuenta = RowIL("IdCtaContable").ToString().ToEntero() + Concepto = ViewState("VentaFolio").ToString() If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then tipoCambio = Factura.TipoCambio ElseIf ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio <= 1 Then - tipoCambio = GlobalTipoCambio(Factura.Fecha).ToString.ToDecimal + tipoCambio = GlobalTipoCambio(Factura.Fecha).ToString().ToDecimal Else tipoCambio = 1 End If - Select Case RowIL("TipoImpuesto").ToString + Select Case RowIL("TipoImpuesto").ToString() Case "1" If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True @@ -11432,25 +11430,25 @@ Partial Class Ventas If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) Dim TmpDTconceptos As DataTable = Nothing - Dim CveNCaVincular As Integer = DdlNCFactura.SelectedValue.ToEntero + Dim CveNCaVincular As Integer = DdlNCFactura.SelectedValue.ToEntero() 'CargaCliente - Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero + Dim CveCliente As Integer = drv("CveCliente").ToString().ToEntero() If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then Return Nothing ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then Return Nothing End If - factura.TipoDocto = drv("TipoDocto").ToString - factura.Serie = drv("Serie").ToString - factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime - factura.Fecha = drv("Fecha").ToString.ToDateTime - factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero - factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero - factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero - factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero + factura.TipoDocto = drv("TipoDocto").ToString() + factura.Serie = drv("Serie").ToString() + factura.FechaEjecucion = drv("FechaEjecucion").ToString().ToDateTime + factura.Fecha = drv("Fecha").ToString().ToDateTime + factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString().ToEntero() + factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString().ToEntero() + factura.CveClienteSucursal = drv("CveClienteSucursal").ToString().ToEntero() + factura.CveSubProyecto = drv("CveSubProyecto").ToString().ToEntero() 'Carga Detalle Sucursal - CargaClienteSucursal(drv("CveClienteSucursal").ToString.ToEntero, ObjVentas) + CargaClienteSucursal(drv("CveClienteSucursal").ToString().ToEntero(), ObjVentas) 'CargaDetalle If ObjVentas.GetVentaDetalle(CveVenta) Then @@ -11461,23 +11459,23 @@ Partial Class Ventas End If 'Carga Totales - factura.SubTotal = drv("SubTotal").ToString.ToDecimal - factura.Descuento = drv("Descuento").ToString.ToDecimal - factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal - factura.IVA = drv("IVA").ToString.ToDecimal - factura.RetIVA = drv("RetIVA").ToString.ToDecimal - factura.RetISR = drv("RetISR").ToString.ToDecimal - factura.Total = drv("Total").ToString.ToDecimal - factura.MotivoDescuento = drv("MotivoDescuento").ToString - factura.Observaciones = drv("Observaciones").ToString - factura.CveMoneda = drv("CveMoneda").ToString.ToEntero - factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal - factura.CveVendedor = drv("CveVendedor").ToString.ToEntero - factura.RefDocto = drv("Ref").ToString - 'factura.SerieFolioPadre = drv("SerieFolio").ToString - HdnFolioFiscalNC.Value = drv("FolioFiscal").ToString + factura.SubTotal = drv("SubTotal").ToString().ToDecimal + factura.Descuento = drv("Descuento").ToString().ToDecimal + factura.Amortizacion = drv("Amortizacion").ToString().ToDecimal + factura.IVA = drv("IVA").ToString().ToDecimal + factura.RetIVA = drv("RetIVA").ToString().ToDecimal + factura.RetISR = drv("RetISR").ToString().ToDecimal + factura.Total = drv("Total").ToString().ToDecimal + factura.MotivoDescuento = drv("MotivoDescuento").ToString() + factura.Observaciones = drv("Observaciones").ToString() + factura.CveMoneda = drv("CveMoneda").ToString().ToEntero() + factura.TipoCambio = drv("TipoCambio").ToString().ToDecimal + factura.CveVendedor = drv("CveVendedor").ToString().ToEntero() + factura.RefDocto = drv("Ref").ToString() + 'factura.SerieFolioPadre = drv("SerieFolio").ToString() + HdnFolioFiscalNC.Value = drv("FolioFiscal").ToString() - ViewState("FolioFiscal") = drv("FolioFiscal").ToString + ViewState("FolioFiscal") = drv("FolioFiscal").ToString() 'JJMQ 20160506: Se agrego para la validacion de pago de contado. 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "") @@ -11486,7 +11484,7 @@ Partial Class Ventas If factura.CveCliente > 0 Then If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then - If Not drv("Total").ToString.ToDecimal = factura.Total Then + If Not drv("Total").ToString().ToDecimal = factura.Total Then Return Nothing End If @@ -11567,7 +11565,7 @@ Partial Class Ventas 'If ObjFolios.GetFolios(factura.TipoDocto, UsuarioActual.CveEmpresa) Then ' Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) ' If DT.Rows.Count > 0 Then - ' factura.Folio = DT.Rows(0)("FActual").ToString.ToEntero + ' factura.Folio = DT.Rows(0)("FActual").ToString().ToEntero() ' Else ' ProcesoCorrecto = False ' End If @@ -11598,7 +11596,7 @@ Partial Class Ventas ' ObjTimbrado.TimbrarFactura(UsuarioActual, factura, FM, TmpDT, TmpDTImpuestos, TmpDT7Eleven, TmpDTComplementosTimbrado, Ruta, LstFordASN, TxtFordGSDB.Text, ObjVentas) ' sw.Stop() - ' GuardaLogTimbrado(sw.ElapsedMilliseconds.ToString, UsuarioActual.Empresa.CvePAC) + ' GuardaLogTimbrado(sw.ElapsedMilliseconds.ToString(), UsuarioActual.Empresa.CvePAC) ' ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" Then ' GeneraPDFCBB(ObjFactura.Fecha, Nothing, ObjFactura.SerieFolio, False) @@ -11636,24 +11634,24 @@ Partial Class Ventas 'REINICIA VALORES DE CONVERSION DE MONEDA 'If Not ObjFactura.ConvertirPesos And ChkConvertirDoctoPesos.Checked Then ' For Each Row As DataRow In TmpDT.Rows - ' Row("PU") = Row("PU").ToString.ToDouble / TxtTipoCambio.Text.Trim.ToDecimal - ' Row("Total") = Row("Cantidad").ToString.ToDouble / Row("PU").ToString.ToDouble - ' Row("Descuento") = Row("Descuento").ToString.ToDouble / TxtTipoCambio.Text.Trim.ToDecimal - ' Row("IEPS") = Row("IEPS").ToString.ToDouble / TxtTipoCambio.Text.Trim.ToDecimal + ' Row("PU") = Row("PU").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal + ' Row("Total") = Row("Cantidad").ToString().ToDouble / Row("PU").ToString().ToDouble + ' Row("Descuento") = Row("Descuento").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal + ' Row("IEPS") = Row("IEPS").ToString().ToDouble / TxtTipoCambio.Text.Trim.ToDecimal ' Next 'End If Select Case ConversionRemision Case "*" For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) Next For Each gvr As GridViewRow In GvImpuestosLocales2.Rows @@ -11663,14 +11661,14 @@ Partial Class Ventas Next Case "/" For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) Next For Each gvr As GridViewRow In GvImpuestosLocales2.Rows @@ -11687,15 +11685,15 @@ Partial Class Ventas Select Case ConversionRemision Case "*" For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * TipoCambioRemision, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales) Next For Each gvr As GridViewRow In GvImpuestosLocales2.Rows @@ -11705,15 +11703,15 @@ Partial Class Ventas Next Case "/" For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble / TipoCambioRemision, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales) Next For Each gvr As GridViewRow In GvImpuestosLocales2.Rows @@ -11738,8 +11736,8 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 8 AndAlso ObjFactura.TipoDocto.Contiene("Cot") Then Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Sucursal", DdlSubProyectoDatos.SelectedItem.Text)) - 'params.Add(New ReportParameter("Fecha", FechaCotizacion.ToString)) - params.Add(New ReportParameter("Folio", ObjFactura.Folio.ToString)) + 'params.Add(New ReportParameter("Fecha", FechaCotizacion.ToString())) + params.Add(New ReportParameter("Folio", ObjFactura.Folio.ToString())) params.Add(New ReportParameter("Cliente", LtlCliente.Text)) params.Add(New ReportParameter("PersonaDirige", TxtAtencionA.Text)) params.Add(New ReportParameter("Total", TxtTotal.Text)) @@ -11963,42 +11961,42 @@ Partial Class Ventas Dim saldo As Decimal = 0 Dim tipoCambio As Decimal = 0 - Dim total As Decimal = TxtTotal.Text.ToString.ToDecimal + Dim total As Decimal = TxtTotal.Text.ToString().ToDecimal If CveVentaRelacion > 0 Then ' dejo seleccionado el la venta relacionado en anticipo - If e.Row.DataKey("CveVenta").ToEntero = CveVentaRelacion Then + If e.Row.DataKey("CveVenta").ToEntero() = CveVentaRelacion Then e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Checked = True - e.Row.FCTextBox("TxtAnticipo" & e.Row.RowIndex).Text = ImporteRelacion.ToString + e.Row.FCTextBox("TxtAnticipo" & e.Row.RowIndex).Text = ImporteRelacion.ToString() End If End If - If e.Row.DBCampo("Tipo").ToString = "NC" And e.Row.DataKey("CveVenta").ToString.ToEntero > 0 Then - If e.Row.DBCampo("CveMoneda").ToString.ToEntero = 2 Then - tipoCambio = e.Row.DBCampo("TipoCambioHoy").ToString.ToDecimal + If e.Row.DBCampo("Tipo").ToString() = "NC" And e.Row.DataKey("CveVenta").ToString().ToEntero() > 0 Then + If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 2 Then + tipoCambio = e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal Else - tipoCambio = GlobalTipoCambio(e.Row.DataKey("Fecha").ToString.ToDate).ToDecimal + tipoCambio = GlobalTipoCambio(e.Row.DataKey("Fecha").ToString().ToDate).ToDecimal End If e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Text = tipoCambio.FormatoNumero(4) - If DdlMoneda.SelectedValue.ToEntero = 1 And e.Row.DBCampo("CveMoneda").ToString.ToEntero = 1 Then + If DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 1 Then saldo = e.Row.DataKey("Saldo").ToDecimal - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 And e.Row.DBCampo("CveMoneda").ToString.ToEntero = 1 And tipoCambio > 0 Then - saldo = (e.Row.DataKey("Saldo").ToString.ToDecimal / tipoCambio) - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 And e.Row.DBCampo("CveMoneda").ToString.ToEntero = 2 Then - saldo = (e.Row.DataKey("Saldo").ToString.ToDecimal * tipoCambio) + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 1 And tipoCambio > 0 Then + saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal / tipoCambio) + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 2 Then + saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal * tipoCambio) Else saldo = e.Row.DataKey("Saldo").ToDecimal End If Else - saldo = e.Row.DataKey("Saldo").ToString.ToDecimal + saldo = e.Row.DataKey("Saldo").ToString().ToDecimal If CveVenta <= 0 Then - saldo = e.Row.DataKey("SaldoSubTotal").ToString.ToDecimal + saldo = e.Row.DataKey("SaldoSubTotal").ToString().ToDecimal e.Row.FCLiteral("LtlAnticipos").Text = saldo.FormatoNumero End If @@ -12017,7 +12015,7 @@ Partial Class Ventas e.Row.FCTextBox("TxtAnticipo" & e.Row.RowIndex).Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1});", e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ClientID, saldo)) e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Attributes.Add("onKeyUp", String.Format("CambioTipoMoneda({0},{1},{2},{3},{4});", e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ClientID, e.Row.DataKey("Saldo"), e.Row.FCTextBox("TxtAnticipo" & e.Row.RowIndex).ClientID, e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).ClientID, e.Row.DataKey("CveMoneda"))) - If e.Row.DataKey("CveIE").ToString.ToEntero > 0 Then + If e.Row.DataKey("CveIE").ToString().ToEntero() > 0 Then e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DataKey("CveIE"), e.Row.DataKey("Folio")) Else e.Row.FCLiteral("LtlFactura").Text = String.Format("{1}", e.Row.DataKey("CveVenta"), e.Row.DataKey("Folio")) @@ -12037,13 +12035,13 @@ Partial Class Ventas End If 'SI UN REGISTRO ES DE DIFERENTE MONEDA AL DOCUMENTO SE MUESTRAN LAS COLUMNAS - If e.Row.DBCampo("CveMoneda").ToString.ToEntero > 0 And e.Row.DBCampo("CveMoneda").ToString.ToEntero <> DdlMoneda.SelectedValue.ToEntero Then + If e.Row.DBCampo("CveMoneda").ToString().ToEntero() > 0 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then GVAnticipos.Columns(4).Visible = True GVAnticipos.Columns(6).Visible = True End If - If e.Row.DBCampo("CveMoneda").ToString.ToEntero = DdlMoneda.SelectedValue.ToEntero Then + If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = DdlMoneda.SelectedValue.ToEntero() Then e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Visible = False End If @@ -12067,7 +12065,7 @@ Partial Class Ventas 'If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then - ' CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto").ToEntero + ' CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto").ToEntero() 'End If Dim EsAnticipo2017Jam As Boolean = False @@ -12076,7 +12074,7 @@ Partial Class Ventas If gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal > SaldoVenta Then Alert("No puede ingresar un importe mayor al saldo", TipoMensaje.MsgAdvertencia) Exit Sub - ElseIf UsuarioActual.CveEmpresa = 119 AndAlso gvr.DataKey("Tipo").ToString = "NC" AndAlso gvr.DataKey("Fecha").ToDate.Year <= 2017 Then + ElseIf UsuarioActual.CveEmpresa = 119 AndAlso gvr.DataKey("Tipo").ToString() = "NC" AndAlso gvr.DataKey("Fecha").ToDate.Year <= 2017 Then EsAnticipo2017Jam = True End If End If @@ -12119,7 +12117,7 @@ Partial Class Ventas 'End If 'Dim Now As DateTime = New DateTime(2020, 2, 19) Try - CvePrepoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrepoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrepoliza > 0 Then Dim tipoCambioPago As Decimal = 1 @@ -12127,7 +12125,7 @@ Partial Class Ventas Dim tipoCambioVentaValuacion As Decimal = 1 Dim PorcentajePago As Decimal = 100 Dim dtConceptos As DataTable = Nothing - Dim CveMonedaVenta = DdlMoneda.SelectedValue.ToEntero + Dim CveMonedaVenta = DdlMoneda.SelectedValue.ToEntero() If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then dtConceptos = ObjConta.DtResultados End If @@ -12141,10 +12139,10 @@ Partial Class Ventas If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then Dim Dr As DataRow = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).FiltroPrimero("") - IdCtaIVAXTrasladar = Dr("IdCtaIVAXTrasladar").ToString.ToEntero - IdCtaIVATrasladado = Dr("IdCtaIVATrasladado").ToString.ToEntero - CveCuentaIVAXTrasladar = Dr("CveCuentaIVAXTrasladar").ToString.ToEntero - CveCuentaIVATrasladado = Dr("CveCuentaIVATrasladado").ToString.ToEntero + IdCtaIVAXTrasladar = Dr("IdCtaIVAXTrasladar").ToString().ToEntero() + IdCtaIVATrasladado = Dr("IdCtaIVATrasladado").ToString().ToEntero() + CveCuentaIVAXTrasladar = Dr("CveCuentaIVAXTrasladar").ToString().ToEntero() + CveCuentaIVATrasladado = Dr("CveCuentaIVATrasladado").ToString().ToEntero() End If For Each gvr As GridViewRow In GVAnticipos.Rows @@ -12160,29 +12158,29 @@ Partial Class Ventas Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC") If drr IsNot Nothing Then - FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate - TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal + FechaUltimaFluctuacion = drr("Fecha").ToString().ToDate + TipoCambioFluctuacion = drr("TipoCambio").ToString().ToDecimal End If End If End If - If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS + If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS tipoCambioPago = 1 tipoCambioVenta = 1 tipoCambioVentaValuacion = 1 PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN PESOS + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN PESOS tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal tipoCambioVenta = TxtTipoCambio.Text.ToDecimal tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal) PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN DOLARES - tipoCambioPago = gvr.DataKey("TipoCambio").ToString.ToDecimal + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN DOLARES + tipoCambioPago = gvr.DataKey("TipoCambio").ToString().ToDecimal tipoCambioVenta = TxtTipoCambio.Text.ToDecimal tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal) PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN DOLARES + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN DOLARES tipoCambioPago = gvr.DataKey("TipoCambioHoy").ToDecimal() ' gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal tipoCambioVenta = 1 tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal) @@ -12192,14 +12190,14 @@ Partial Class Ventas If dtConceptos IsNot Nothing Then For Each Row As DataRow In dtConceptos.Rows - Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero - Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) + Dim ConceptoContable = Row("CveConcepto").ToString().ToEntero() + Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString() = "True", True, False) Dim importeMovimiento As Decimal = 0 Dim importeMX As Decimal = 0 Dim IdCtaContable As Integer = 0 Dim CveCuenta As Integer = 0 Dim FechaMovimiento As Date = Now - Dim Concepto As String = ViewState("VentaFolio").ToString + Dim Concepto As String = ViewState("VentaFolio").ToString() Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim TipoCambioGeneral As Decimal = 1 Dim PorcentajeImpuesto As Decimal = 0 @@ -12207,17 +12205,17 @@ Partial Class Ventas Select Case ConceptoContable Case 2 'Cliente 'If CveMonedaVenta > 1 Then ConceptoContable = 292 - If Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66) Then - If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then + If Not (gvr.DataKey("CveIE").ToString().ToEntero() > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 66) Then + If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMX = importeMovimiento - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVentaValuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMX = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioVentaValuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMX = importeMovimiento End If @@ -12234,13 +12232,13 @@ Partial Class Ventas If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsaComplementariaClientes) Then 'Conta ContPAQ If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If 'Conta SIG If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12258,8 +12256,8 @@ Partial Class Ventas ConceptoContable = 251 ' cambia para dejar el concepto 2, solamente para pago en banco End If Case 11 'Anticipo - If gvr.DataKey("CveConceptoContable").ToString().ToEntero = 3 Then - CveIEAnticipo = gvr.DataKey("CveIE").ToString.ToEntero + If gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 3 Then + CveIEAnticipo = gvr.DataKey("CveIE").ToString().ToEntero() importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal) 'Mantenemos la integridad de la suma para el pagocliente @@ -12273,17 +12271,17 @@ Partial Class Ventas 'Conta ContPAQ If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If 'Conta SIG If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then ErrorConta = True End If End If @@ -12302,53 +12300,53 @@ Partial Class Ventas importeMovimiento = 0 Case 91 'Amortizacion Nota de Credito Dim TC As Decimal = 1 - If gvr.DataKey("CveConceptoContable").ToString().ToEntero = 12 Then - If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 1 Then + If gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 12 Then + If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 1 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMX = importeMovimiento - TC = gvr.DataKey("TipoCambio").ToString.ToDecimal - ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 2 Then + TC = gvr.DataKey("TipoCambio").ToString().ToDecimal + ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 2 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - importeMX = importeMovimiento * gvr.DataKey("TipoCambio").ToString.ToDecimal - TC = gvr.DataKey("TipoCambio").ToString.ToDecimal - ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 2 Then + importeMX = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal + TC = gvr.DataKey("TipoCambio").ToString().ToDecimal + ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 2 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal importeMX = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal TC = TipoCambioFluctuacion - ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 1 Then + ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 1 Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal importeMX = importeMovimiento - TC = gvr.DataKey("TipoCambio").ToString.ToDecimal + TC = gvr.DataKey("TipoCambio").ToString().ToDecimal End If importeMovimiento = Math.Round(importeMovimiento, 2) importeMX = Math.Round(importeMX, 2) If ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero() + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString().ToEntero() End If End If If importeMovimiento <> 0 Then 'Conta ContPAQ If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If Dim ImporteComplementaria As Decimal = 0 - If UsaComplementariaClientes = True AndAlso gvr.DataKey("CveMoneda").ToString.ToDecimal > 1 Then + If UsaComplementariaClientes = True AndAlso gvr.DataKey("CveMoneda").ToString().ToDecimal > 1 Then IdCtaContable = IdCtaContComplementaria CveCuenta = 0 importeMX = importeMovimiento ImporteComplementaria = ((importeMovimiento * TC) - importeMovimiento).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString.ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC) Then ErrorConta = True Exit For End If @@ -12361,7 +12359,7 @@ Partial Class Ventas CveCuenta = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TC) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TC) Then ErrorConta = True Exit For End If @@ -12369,8 +12367,8 @@ Partial Class Ventas 'AMORTIZA NC CONTRA ANTICIPO A CLIENTES If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal) - If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString.ToEntero, ImporteMX:=importeMovimiento * TC, CveCuenta:=CveCuenta) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero, -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveCuenta:=gvr.DataKey("IdCtaContableNCSIG").ToEntero) Then + If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento * TC, CveCuenta:=CveCuenta) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveCuenta:=gvr.DataKey("IdCtaContableNCSIG").ToEntero()) Then ErrorConta = True Exit For End If @@ -12384,8 +12382,8 @@ Partial Class Ventas Importe91 = importeMovimiento importeMovimiento = 0 Case 92 'Amortizacion Ingreso X Comprobar - If gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66 Then - CveIEAnticipo = gvr.DataKey("CveIE").ToString.ToEntero + If gvr.DataKey("CveIE").ToString().ToEntero() > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 66 Then + CveIEAnticipo = gvr.DataKey("CveIE").ToString().ToEntero() importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal IdCtaContable = IdCtaContClientes CveCuenta = CveCuentaClientes @@ -12469,7 +12467,7 @@ Partial Class Ventas IdCtaContable = IdCtaContAnticipos CveCuenta = CveCuentaAnticipos - If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If ObjCliente.DtResultados.Rows.Count > 0 Then If Not tipoCambioPago = 1 Then IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos @@ -12500,13 +12498,13 @@ Partial Class Ventas End If importeMovimiento = 0 Case 64 'Ganancia - If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then + If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero() <> 1 Then IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria - If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 2 Then + If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 2 Then - If tipoCambioVentaValuacion > tipoCambioPago AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + If tipoCambioVentaValuacion > tipoCambioPago AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = Importe91 * (tipoCambioVentaValuacion - tipoCambioPago) 'Añadimos la diferencia de ganancia en la venta importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2)) importeMX = importeMovimiento @@ -12515,9 +12513,9 @@ Partial Class Ventas Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioVentaValuacion, tipoCambioPago) TipoCambioGeneral = TCImpuestos Else - Dim TipoCambioGanancia As Decimal = If(Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66), tipoCambioVentaValuacion, tipoCambioVenta) + Dim TipoCambioGanancia As Decimal = If(Not (gvr.DataKey("CveIE").ToString().ToEntero() > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 66), tipoCambioVentaValuacion, tipoCambioVenta) - If tipoCambioPago > TipoCambioGanancia AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + If tipoCambioPago > TipoCambioGanancia AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * TipoCambioGanancia) 'Añadimos la diferencia de ganancia en la venta importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2)) importeMX = importeMovimiento @@ -12530,12 +12528,12 @@ Partial Class Ventas importeMovimiento = 0 End If Case 65 'Perdida - If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then + If CveMonedaVenta <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero() <> 1 Then IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria - If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString.ToDecimal = 2 Then - If tipoCambioVentaValuacion < tipoCambioPago AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToString().ToDecimal = 2 Then + If tipoCambioVentaValuacion < tipoCambioPago AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = Importe91 * Math.Abs(tipoCambioVentaValuacion - tipoCambioPago) 'Añadimos la diferencia de ganancia en la venta importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2)) importeMX = importeMovimiento @@ -12544,9 +12542,9 @@ Partial Class Ventas Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioVentaValuacion, tipoCambioPago) TipoCambioGeneral = TCImpuestos Else - Dim TipoCambioPerdida As Decimal = If(Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66), tipoCambioVentaValuacion, tipoCambioVenta) + Dim TipoCambioPerdida As Decimal = If(Not (gvr.DataKey("CveIE").ToString().ToEntero() > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero() = 66), tipoCambioVentaValuacion, tipoCambioVenta) - If tipoCambioPago < TipoCambioPerdida AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then + If tipoCambioPago < TipoCambioPerdida AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then importeMovimiento = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * TipoCambioPerdida) - (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta importeMovimiento = Math.Abs(Math.Round(importeMovimiento, 2)) importeMX = importeMovimiento @@ -12565,12 +12563,12 @@ Partial Class Ventas If importeMovimiento <> 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12586,14 +12584,7 @@ Partial Class Ventas ErrorConta = True End If - 'Simplificacion de PrePolizas - If Not ErrorConta AndAlso ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then - If Not ObjConta.PrePolizaSimplificacion(CvePrepoliza, UsuarioActual.CveEmpresa) Then - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - End If - - If Not ErrorConta AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then + If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas") ErrorConta = True @@ -12625,7 +12616,7 @@ Partial Class Ventas ObjContpaq.AjustaPoliza(ContaIdPoliza) ObjContpaq.Commit() End If - Alert(Msg.ToString, TipoMensaje.MsgInformacion) + Alert(Msg.ToString(), TipoMensaje.MsgInformacion) End If ObjConta.Dispose() @@ -12644,12 +12635,12 @@ Partial Class Ventas HdnIVACalculado.Value = HdnIVAOriginal.Value For Each gvr As GridViewRow In GVAnticipos.Rows - If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero.Contiene(3) Then + If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal) HdnIVACalculado.Value = (HdnIVACalculado.Value.ToDouble - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)).FormatoNumero(2) HdnFolioFiscalNC.Value = gvr.DataKey("FolioFiscal") - 'CvePSAmortizacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", "CveConceptoContable = 11").ToEntero + 'CvePSAmortizacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", "CveConceptoContable = 11").ToEntero() End If Next 'Amortizacion += TmpDTImpuestos.SUM("Importe").ToDecimal 'RMF. 2018.12.20- saque de la jugada en la amortización los impuestos locales @@ -12668,8 +12659,8 @@ Partial Class Ventas Dim Cantidad, PU, Descuento, DescuentoRound As Decimal For Each dr As DataRow In TmpDT.Rows - Cantidad = dr("Cantidad").ToString.ToDecimal - PU = dr("PU").ToString.ToDecimal + Cantidad = dr("Cantidad").ToString().ToDecimal + PU = dr("PU").ToString().ToDecimal 'proporcional la mortización al concepto Descuento = (PU * Cantidad / LblSubTotal1.Text.ToDecimal * Amortizacion) DescuentoRound = Descuento.RoundSQL(NumeroDecimales) @@ -12679,8 +12670,8 @@ Partial Class Ventas TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento dr("Descuento") = DescuentoRound dr("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales) - dr("ImporteIVA") = Math.Round(dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) - dr("ImporteIEPS") = Math.Round(dr("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + dr("ImporteIVA") = Math.Round(dr("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + dr("ImporteIEPS") = Math.Round(dr("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) dr("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) dr("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) dr("PorcentajeRetIVA") = ClienteRetIVA @@ -12767,7 +12758,7 @@ Partial Class Ventas Dim ImporteMX As Decimal Dim IdCtaContable, CveCuenta As Integer Dim FechaMovimiento As Date = Now - Dim Concepto As String = ViewState("VentaFolio").ToString + Dim Concepto As String = ViewState("VentaFolio").ToString() Dim PrePolizaCorrecta = True Dim PorcentajeImpuesto As Decimal = 0 Dim IdCtaIVAXTrasladar As Integer = 0 @@ -12778,20 +12769,20 @@ Partial Class Ventas ImporteMX = Math.Round(ImporteMovimiento, 2) * TipoCambio PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero - CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString.ToEntero + IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString().ToEntero() + CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString().ToEntero() End If IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12810,20 +12801,20 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero() + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() End If End If End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12842,7 +12833,7 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero() End If End If End If @@ -12853,19 +12844,19 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() End If End If End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If IdCtaContable <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12884,7 +12875,7 @@ Partial Class Ventas Dim ImporteMX As Decimal Dim IdCtaContable, CveCuenta As Integer Dim FechaMovimiento As Date = Now - Dim Concepto As String = ViewState("VentaFolio").ToString + Dim Concepto As String = ViewState("VentaFolio").ToString() Dim PrePolizaCorrecta = True Dim PorcentajeImpuesto As Decimal = 0 Dim IdCtaIVATrasladado As Integer = 0 @@ -12895,8 +12886,8 @@ Partial Class Ventas ImporteMX = Math.Round(ImporteMovimiento * TipoCambio, 2) PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero - CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero + IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString().ToEntero() + CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() End If IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) @@ -12904,13 +12895,13 @@ Partial Class Ventas If ImporteMovimiento > 0 Then 'ContaContPAQ If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If 'ContaSIG If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12928,7 +12919,7 @@ Partial Class Ventas IdCtaContable = IdCtaContRetIVA Else If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero() End If End If @@ -12937,18 +12928,18 @@ Partial Class Ventas CveCuenta = CveCuentaRetIVA Else If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() End If End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -12967,7 +12958,7 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero() End If End If End If @@ -12977,19 +12968,19 @@ Partial Class Ventas Else If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() End If End If End If If ImporteMovimiento > 0 Then If IdCtaContable <= 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString()) idCuentaContabilizacion = 0 End If If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString) + CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString()) CveCuentaContabilizacion = 0 End If @@ -13021,7 +13012,7 @@ Partial Class Ventas ObjFactura.Serie = Serie ObjFactura.Folio = Folio ObjFactura.Timbre.Comprobante.Serie = Serie - ObjFactura.Timbre.Comprobante.Folio = Folio.ToString + ObjFactura.Timbre.Comprobante.Folio = Folio.ToString() Dim ObjTimbrado As New Timbrado Dim FM As New Modelos.FemsaFactura @@ -13062,15 +13053,15 @@ Partial Class Ventas If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta) For Each Gvr As GridViewRow In GvAntNC.Rows - If Gvr.DataKey("FolioFiscal").ToString = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then - ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero - ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString - ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero + If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then + ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero() + ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString() + ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero() ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion) End If Exit For Next - If ObjFacturaDevolucion.CveVenta.ToEntero > 0 Then + If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then Dim Obj2 As New List(Of Object) Obj2.Add(ObjFacturaDevolucion) If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then @@ -13106,7 +13097,7 @@ Partial Class Ventas 'MUESTA Alert OK 'MensajeAlert.Append("El Documento se generó correctamente") Dim Liga = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=3"";") - Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga) + Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga) TrEmitir.Visible = False Else @@ -13128,7 +13119,7 @@ Partial Class Ventas If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) - Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble + Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString().ToDouble If IVAPromedio <> IVA Then Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) @@ -13148,7 +13139,7 @@ Partial Class Ventas ElseIf HdnTipoDescuento.Value = "3" Then If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) - Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble + Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString().ToDouble If IVAPromedio <> IVA Then Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) @@ -13214,11 +13205,11 @@ Partial Class Ventas Dim ObjCancelacion As New Timbrado Dim ObjBanco As New ClsBancos - Dim CveComplementoPago As Integer = GvRow.DataKey("CveComplementoPago").ToEntero - Dim FolioFiscal As String = GvRow.DataKey("FolioFiscal").ToString + Dim CveComplementoPago As Integer = GvRow.DataKey("CveComplementoPago").ToEntero() + Dim FolioFiscal As String = GvRow.DataKey("FolioFiscal").ToString() Dim RFCEmisor As String = UsuarioActual.Empresa.RFC Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor") - Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero + Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero() If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) Then @@ -13249,7 +13240,7 @@ Partial Class Ventas Protected Function CancelarMovimientoInventario(ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, CveVentaNueva As Integer, CveVentaVieja As Integer) As Boolean 'SI YA ESTA QUEMADA DE ALMACEN LA VENTA, NO SE CANCELAN LOS MOVIMIENTOS DE INVENTARIO - If ObjInventario.GetEstatusVentaPorSurtir(CveVentaVieja) Then + If ObjInventario.GetEstatusVentaPorSurir(CveVentaVieja) Then If ObjInventario.EsDevolucionVenta = 2 Then Return True End If @@ -13268,11 +13259,11 @@ Partial Class Ventas DTMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0") For Each Mov As DataRow In DtMovimientos.Rows - If ObjInventario.GetMovimientos(Mov("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then + If ObjInventario.GetMovimientos(Mov("CveMovimiento").ToString().ToEntero(), 3, -1, UsuarioActual.CveEmpresa) Then If ObjInventario.DtResultados.Rows.Count > 0 Then - Dim CveAlmacen As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString.ToEntero - Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString.ToEntero + Dim CveAlmacen As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString().ToEntero() + Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString().ToEntero() Dim Fecha As Date = Now 'Creamos el movimiento de entrada y el movimiento de salida @@ -13284,24 +13275,24 @@ Partial Class Ventas 'Creamos sus detalles For Each MovDet As DataRow In DTMovimientosDetalles.FiltraParametros($"CveMovimiento = {Mov("CveMovimiento")}").Rows - Dim Cantidad As Double = MovDet("Cantidad").ToString.ToDouble - Dim CveUnidad As Integer = MovDet("CveUM").ToString.ToEntero - Dim PU As Decimal = MovDet("PU").ToString.ToDecimal - Dim CveProducto As Integer = MovDet("CvePS").ToString.ToEntero - Dim Serie As String = MovDet("Serie").ToString + Dim Cantidad As Double = MovDet("Cantidad").ToString().ToDouble + Dim CveUnidad As Integer = MovDet("CveUM").ToString().ToEntero() + Dim PU As Decimal = MovDet("PU").ToString().ToDecimal + Dim CveProducto As Integer = MovDet("CvePS").ToString().ToEntero() + Dim SerieLote As String = MovDet("SerieLote").ToString() - Dim CveVentaDetalle = MovDet("CveVentaDetalle").ToString.ToEntero + Dim CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero() 'Entrada - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventarioEntrada, Cantidad, CveUnidad, CveProducto, PU, Serie:=Serie, CveVentaDetalle:=CveVentaDetalle) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventarioEntrada, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then OcurrioError = True Exit For End If 'Salida - CveVentaDetalle = ObjInventario.VentaDetallePadreGet(CveVentaDetalle).ToString.ToEntero + CveVentaDetalle = ObjInventario.VentaDetallePadreGet(CveVentaDetalle).ToString().ToEntero() If CveVentaDetalle > 0 Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventarioSalida, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Serie, CveVentaDetalle:=CveVentaDetalle) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventarioSalida, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then OcurrioError = True Exit For End If @@ -13320,15 +13311,15 @@ Partial Class Ventas Dim ValorInventario As Decimal = 0 For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DTMovimientosDetalles.SUM("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).ToString.ToDecimal.RoundSQL() - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + ValorInventario = DTMovimientosDetalles.SUM("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).ToString().ToDecimal.RoundSQL() + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() If ValorInventario <> 0 Then 'Entrada - If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveDevolucion, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventarioEntrada, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveDevolucion, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventarioEntrada, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then 'Salida - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventarioSalida, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventarioSalida, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -13343,8 +13334,8 @@ Partial Class Ventas Exit For End If - IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero - CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero + IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero() + CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero() ValorInventario = DTMovimientosDetalles.SUMD("Total", $"CveMovimiento = {Mov("CveMovimiento")}").RoundSQL() If ValorInventario <> 0 Then @@ -13406,7 +13397,7 @@ Partial Class Ventas End If - CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) ObjFacturaDevolucion.CveVenta = CveVenta ObjFacturaDevolucion.CvePrePoliza = CvePrePoliza @@ -13502,7 +13493,7 @@ Partial Class Ventas End If - CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) ObjFactura.CveVenta = CveVenta ObjFactura.CvePrePoliza = CvePrePoliza @@ -13589,7 +13580,7 @@ Partial Class Ventas Row("Titulo") = tbTituloF.Text Row("Nombre") = tbNmbF.Text Row("Puesto") = tbPuesF.Text - Row("Lado") = ddlPos.SelectedValue.ToEntero + Row("Lado") = ddlPos.SelectedValue.ToEntero() DTmpF.Rows.Add(Row) tbNmbF.Text = "" tbPuesF.Text = "" @@ -13614,13 +13605,13 @@ Partial Class Ventas Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("") If drPS IsNot Nothing Then - 'HdnUnidadMedida.Value = PS.Rows(0)("CveUnidadMedida").ToString - HdnPS.Value = drPS("PS").ToString - HdnCodigoPS.Value = drPS("PSCodigo").ToString - HdnTipoPS.Value = drPS("CveTipoPS").ToString - HdnTipoInv.Value = drPS("Inv_CveMetodoInventario").ToString - HdnAplicaIEPS.Value = drPS("AplicaIEPS").ToString - HdnPorcentajeIEPS.Value = drPS("IEPSPorcentaje").ToString + 'HdnUnidadMedida.Value = PS.Rows(0)("CveUnidadMedida").ToString() + HdnPS.Value = drPS("PS").ToString() + HdnCodigoPS.Value = drPS("PSCodigo").ToString() + HdnTipoPS.Value = drPS("CveTipoPS").ToString() + HdnTipoInv.Value = drPS("Inv_CveMetodoInventario").ToString() + HdnAplicaIEPS.Value = drPS("AplicaIEPS").ToString() + HdnPorcentajeIEPS.Value = drPS("IEPSPorcentaje").ToString() DdlUnidadMedida.Items.Clear() If UsuarioActual.Empresa.UsaInventarios Then DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(CvePSParametro, -1, UsuarioActual.CveEmpresa) @@ -13630,10 +13621,10 @@ Partial Class Ventas DdlUnidadMedida.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlUnidadMedida.SelectedValue = "-1" DdlUnidadMedida.DataBind() - DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString) + DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString()) - If drPS("CveTipoPS").ToString = "1" Then 'Si es servicio - If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then 'Si es Empresa llantera + If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio + If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera TxtPrecio.Enabled = True Else 'TxtPrecio.Enabled = False @@ -13643,13 +13634,13 @@ Partial Class Ventas End If If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then - DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString) + DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString()) CambiaMoneda() End If 'SUGIERE PRECIO Dim PrecioSugerido = 0.0 - PrecioSugerido = drPS("Precio").ToString.ToDouble + PrecioSugerido = drPS("Precio").ToString().ToDouble If UsuarioActual.CveEmpresa.Contiene(1) Then Dim ObjPS As New ClsProductosServicios @@ -13662,8 +13653,8 @@ Partial Class Ventas ObjPS.Dispose() End If - If UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then - Dim CvePrecioListaPS As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero + If UsuarioActual.Empresa.Funcionalidad(404).ToString() = "1" Then + Dim CvePrecioListaPS As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then @@ -13674,7 +13665,7 @@ Partial Class Ventas Dim PorcentajePrecio As Double = 0 If PrecioSugerido = 0 Then - CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero + CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then @@ -13687,7 +13678,7 @@ Partial Class Ventas If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios - Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1) + Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) ObjInventarios.Dispose() @@ -13706,7 +13697,7 @@ Partial Class Ventas If PrecioSugerido > 0 Then Dim PrecioBaseCosto As Decimal = 0 - PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString.ToEntero).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal + PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString().ToEntero()).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal If PrecioBaseCosto > 0 Then PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1) @@ -13716,22 +13707,22 @@ Partial Class Ventas If IsNumeric(TxtCantidad.Text.Trim) Then - LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString.FormatoNumero(2) + LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2) Else LblTotalPS.Text = "0.00" End If LblPrecio1.Text = TxtPrecio.Text UPPDescuento.Update() - HdnIVAPS.Value = If(drPS("IVA").ToString = "-1", ViewState("IVA"), drPS("IVA").ToString).ToString - HdnIVARetAPS.Value = drPS("RetIVA").ToString - HdnAsientoContable.Value = drPS("AsientoContableVentas").ToString - HdnCtaContable.Value = drPS("IdCtaContVentas").ToString - HdnAplicaParaConcepto.Value = drPS("AplicaParaConcepto").ToString - HdnCodigo.Value = drPS("Codigo").ToString + HdnIVAPS.Value = If(drPS("IVA").ToString() = "-1", ViewState("IVA"), drPS("IVA").ToString()).ToString() + HdnIVARetAPS.Value = drPS("RetIVA").ToString() + HdnAsientoContable.Value = drPS("AsientoContableVentas").ToString() + HdnCtaContable.Value = drPS("IdCtaContVentas").ToString() + HdnAplicaParaConcepto.Value = drPS("AplicaParaConcepto").ToString() + HdnCodigo.Value = drPS("Codigo").ToString() If DdlClasificacion.SelectedIndex = 0 Then - If drPS("CveClasificacion").ToString IsNot Nothing Then - DdlClasificacion.SelectedValueExist(drPS("CveClasificacion").ToString) + If drPS("CveClasificacion").ToString() IsNot Nothing Then + DdlClasificacion.SelectedValueExist(drPS("CveClasificacion").ToString()) Else Alert("El Productos/Servicio no tiene asignada una Clasificación.", TipoMensaje.MsgInformacion) End If @@ -13741,7 +13732,7 @@ Partial Class Ventas End If ElseIf CvePSParametro = -2 Then - CargaPS(DdlClasificacion.SelectedValue.ToEntero, Ddl) + CargaPS(DdlClasificacion.SelectedValue.ToEntero(), Ddl) End If UPPPS.Update() @@ -13749,15 +13740,15 @@ Partial Class Ventas End Sub Protected Sub DdlPS_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPS.selectedindexchange - DdlPSIndexChange(DdlPS.SelectedValue.ToEntero, DdlPS) + DdlPSIndexChange(DdlPS.SelectedValue.ToEntero(), DdlPS) End Sub Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged - CargaPS(DdlClasificacion.SelectedValue.ToEntero, DdlPS) + CargaPS(DdlClasificacion.SelectedValue.ToEntero(), DdlPS) UpPS.Update() End Sub Protected Sub DdlNCFactura_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlNCFactura.SelectedIndexChanged Dim objcompras As New ClsCompras - If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero) Then + If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then GvInvNC.DataSource = objcompras.DtResultados If objcompras.DtResultados.Rows.Count > 0 Then Tab.ActiveTabIndex = 1 @@ -13778,7 +13769,7 @@ Partial Class Ventas LimpiaEscondeContado() End Sub Private Sub CambiaTipoDocto() - CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString.ToEntero) + CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString().ToEntero()) ConfiguraTipoDocto() CargaFolios() CargaEstatusFactura(DdlTipoComprobante.SelectedValue) @@ -13799,7 +13790,7 @@ Partial Class Ventas TrRFC.Visible = False 'RBLPago.Enabled = False RBLPago.SelectedValue = "2" - TxtFechaVencimientoCotizacion.Text = Now.ToString + TxtFechaVencimientoCotizacion.Text = Now.ToString() GvPS.Columns(5).Visible = True ThTiempoEntrega.Visible = True ThTiempoEntrega2.Visible = True @@ -13818,7 +13809,7 @@ Partial Class Ventas TrRFC.Visible = False 'RBLPago.Enabled = False 'RBLPago.SelectedValue = "2" - TxtFechaVencimientoCotizacion.Text = Now.ToString + TxtFechaVencimientoCotizacion.Text = Now.ToString() GvPS.Columns(5).Visible = True ThTiempoEntrega.Visible = True ThTiempoEntrega2.Visible = True @@ -13870,16 +13861,16 @@ Partial Class Ventas ' TrAlmacenAsignado.Visible = True 'End If - Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero + Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero() If CveAlmacenDestino > 0 Then DdlAlmacenAsignado.Items.Clear() - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero} And CveTipoAlmacen In (4,10)") + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} And CveTipoAlmacen In (4,10)") DdlAlmacenAsignado.DataBind() - DdlAlmacenAsignado.Items.Insert(0, New ListItem(DtContratos.FiltroPrimeroValor("Almacen", $"CveContrato = {DdlContratosModal.SelectedValue}"), CveAlmacenDestino.ToString)) - DdlAlmacenAsignado.SelectedValue = CveAlmacenDestino.ToString + DdlAlmacenAsignado.Items.Insert(0, New ListItem(DtContratos.FiltroPrimeroValor("Almacen", $"CveContrato = {DdlContratosModal.SelectedValue}"), CveAlmacenDestino.ToString())) + DdlAlmacenAsignado.SelectedValue = CveAlmacenDestino.ToString() Else DdlAlmacenAsignado.Items.Clear() - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero} AND CveTipoAlmacen IN (10)") + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)") DdlAlmacenAsignado.DataBind() End If UpParametros.Update() @@ -13950,7 +13941,7 @@ Partial Class Ventas UpPS.Update() End Sub Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged - CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero) + CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero()) 'If Me.CveVenta > 0 Then ' CargaRestriccionesCreditoCliente(Alertas:=True) 'End If @@ -13960,14 +13951,14 @@ Partial Class Ventas Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue gvr.FCDropDownList("DDlSubProyecto").Items.Clear() - gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) + gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa) gvr.FCDropDownList("DDlSubProyecto").DataBind() gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) End Sub Protected Sub DdlClasificacion_SelectedIndexChanged1(sender As Object, e As EventArgs) Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) - CargaPS(gvr.FCDropDownList("DdlClasificacion").SelectedValue.ToEntero, gvr.FCDropDownLost("DdlPS")) + CargaPS(gvr.FCDropDownList("DdlClasificacion").SelectedValue.ToEntero(), gvr.FCDropDownLost("DdlPS")) End Sub Protected Sub BtnEstimacion_Click(sender As Object, e As EventArgs) Handles BtnEstimacion.Click Dim Contrato As String = "" @@ -13989,31 +13980,31 @@ Partial Class Ventas If Row.FCCheckBox("Chk").Checked Then Importe += Row.FCLiteral("LtlImporte").Text.ToDecimal Contrato = Row.DataKey("NumeroContrato") - CveContrato = Row.DataKey("CveContrato").ToEntero - FechaInicial = Row.DataKey("FechaInicial").ToString.ToDate.ToString("dd MMMM yyyy") - CveSubProyecto = Row.DataKey("CveSubProyecto").ToEntero + CveContrato = Row.DataKey("CveContrato").ToEntero() + FechaInicial = Row.DataKey("FechaInicial").ToString().ToDate.ToString("dd MMMM yyyy") + CveSubProyecto = Row.DataKey("CveSubProyecto").ToEntero() End If Next If Importe > 0 Then - CvePS = UsuarioActual.Empresa.Funcionalidad(106).ToEntero + CvePS = UsuarioActual.Empresa.Funcionalidad(106).ToEntero() If CvePS > 0 Then Dim rowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If rowPS IsNot Nothing Then - PS = rowPS("PS").ToString - PSCodigo = rowPS("PSCodigo").ToString - CveUM = rowPS("CveUM").ToString.ToEntero - UM = rowPS("UnidadMedida").ToString - CveClasificacion = rowPS("CveClasificacion").ToString.ToEntero - Clasificacion = rowPS("Clasificacion").ToString + PS = rowPS("PS").ToString() + PSCodigo = rowPS("PSCodigo").ToString() + CveUM = rowPS("CveUM").ToString().ToEntero() + UM = rowPS("UnidadMedida").ToString() + CveClasificacion = rowPS("CveClasificacion").ToString().ToEntero() + Clasificacion = rowPS("Clasificacion").ToString() Dim rowSP As DataRow = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", CveSubProyecto)) - Proyecto = rowSP("Proyecto").ToString - CveProyecto = rowSP("CveProyecto").ToString.ToEntero - SubProyecto = rowSP("SubProyecto").ToString + Proyecto = rowSP("Proyecto").ToString() + CveProyecto = rowSP("CveProyecto").ToString().ToEntero() + SubProyecto = rowSP("SubProyecto").ToString() AgregarProductoServicio(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, String.Format("{0} - {1}, con un importe de {2}", Contrato, FechaInicial, Importe.FormatoNumero), Importe, 0, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) - 'AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, String.Format("{0} - {1}, con un importe de {2}", Contrato, FechaInicial, Importe.FormatoNumero), Importe, 0.16, 0, 0, 1, 0, True, "", CveProyecto, Proyecto, CveSubProyecto, SubProyecto, rowPS("CveTipoPS").ToString.ToEntero, rowPS("Inv_CveMetodoInventario").ToString.ToEntero, CodigoPS:=PSCodigo) + 'AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, String.Format("{0} - {1}, con un importe de {2}", Contrato, FechaInicial, Importe.FormatoNumero), Importe, 0.16, 0, 0, 1, 0, True, "", CveProyecto, Proyecto, CveSubProyecto, SubProyecto, rowPS("CveTipoPS").ToString().ToEntero(), rowPS("Inv_CveMetodoInventario").ToString().ToEntero(), CodigoPS:=PSCodigo) DdlTipoComprobante.SelectedValue = "Rem" @@ -14043,7 +14034,7 @@ Partial Class Ventas Dim ObjSubProyectos As New ClsSubProyectos 'Dim ObjSucursal As New ClsSucursales If ObjSubProyectos.GetSubProyectos() Then - DTSucursal = ObjSubProyectos.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue.ToEntero)) + DTSucursal = ObjSubProyectos.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue.ToEntero())) 'Dim drc As DataRow 'drc = DTSucursal(0) @@ -14060,10 +14051,10 @@ Partial Class Ventas UpDetalle.Update() 'If ObjSucursal.GetSucursales(UsuarioActual.CveEmpresa) Then - ' DTSucursal = ObjSucursal.DtResultados.FiltraParametros(String.Format("CveSucursal = {0}", drc("CveSucursal").ToString.ToEntero)) + ' DTSucursal = ObjSucursal.DtResultados.FiltraParametros(String.Format("CveSucursal = {0}", drc("CveSucursal").ToString().ToEntero())) ' Dim dre As DataRow ' dre = DTSucursal(0) - ' DdlSucursal.SelectedValue = dre("CveSucursal").ToString + ' DdlSucursal.SelectedValue = dre("CveSucursal").ToString() ' CambiaSucursal() 'End If End If @@ -14086,7 +14077,7 @@ Partial Class Ventas If ExFolioFactura Then Exit Sub End If - If DdlSubProyectoDatos.SelectedValue.ToEntero <= 0 Then + If DdlSubProyectoDatos.SelectedValue.ToEntero() <= 0 Then Alert("No se tienen asignadas sucursales", TipoMensaje.MsgError) Exit Sub End If @@ -14100,12 +14091,12 @@ Partial Class Ventas If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) If DT.Rows.Count > 0 Then - ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString.ToEntero - 'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString) - 'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString.ToDate - ViewState("FolioActual") = DT.Rows(0)("FActual").ToString - LblSerie.Text = DT.Rows(0)("Serie").ToString - TxtFolio.Text = DT.Rows(0)("FActual").ToString + ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString().ToEntero() + 'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString()) + 'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate + ViewState("FolioActual") = DT.Rows(0)("FActual").ToString() + LblSerie.Text = DT.Rows(0)("Serie").ToString() + TxtFolio.Text = DT.Rows(0)("FActual").ToString() BtnCrearApartirDe.Enabled = True BtnEmitirImprimir.Visible = True TrVistaPrevia.Visible = True @@ -14139,36 +14130,36 @@ Partial Class Ventas ViewState("FormatoFactura") = dr("FormatoFactura") ViewState("IVA") = dr("IVA") DdlIVA.Visible = False - Select Case ViewState("IVA").ToString.ToDouble + Select Case ViewState("IVA").ToString().ToDouble Case 0 DdlIVA.SelectedValue = "1" - PorcentajeIVA = ViewState("IVA").ToString.ToDecimal + PorcentajeIVA = ViewState("IVA").ToString().ToDecimal Case 0.08 - DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal + 1).ToString}", "1.08") - PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString.ToDecimal) + DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal + 1).ToString()}", "1.08") + PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal) DdlIVA.Visible = If(Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0, True, False) Case 0.16 DdlIVA.SelectedValue = "1.16" - PorcentajeIVA = ViewState("IVA").ToString.ToDecimal + PorcentajeIVA = ViewState("IVA").ToString().ToDecimal End Select If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA() 'ViewState("SubProyectoPorcentajeIVA") = dr("IVA") ViewState("TipoFormato") = dr("TipoFormato") ViewState("Serie") = dr("Serie") - LblSerie.Text = dr("Serie").ToString + LblSerie.Text = dr("Serie").ToString() If SerieXML <> "" Then LblSerie.Text = SerieXML Dim CveSubProyecto As Integer = GetSubProyectoSucursal() If CveSubProyecto > 0 Then CargaSubProyecto(CveSubProyecto) UPPProy.Update() - TipoVentaSucursal = dr("TipoVenta").ToString.ToEntero + TipoVentaSucursal = dr("TipoVenta").ToString().ToEntero() - If dr("TipoVenta").ToString = "1" Then + If dr("TipoVenta").ToString() = "1" Then LiBuscarPrecio.Visible = True UpnTools.Update() 'activa el modo de pago efectivo directamente, y es venta nueva - If ViewState("CveVenta").ToString.ToEntero < 0 Then InicializaCondicionesPago() + If ViewState("CveVenta").ToString().ToEntero() < 0 Then InicializaCondicionesPago() RBLPago.SelectedValue = "2" LimpiaEscondeContado() @@ -14190,7 +14181,7 @@ Partial Class Ventas Dim CveVendedorActual = DdlVendedor.SelectedValue DdlVendedor.Items.Clear() - If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then + If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1") Else DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") @@ -14202,8 +14193,8 @@ Partial Class Ventas DdlVendedor.SelectedValueExist(CveVendedorActual) - If Not DdlVendedor.SelectedValue.ToEntero > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString) + If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) End If End Sub #End Region @@ -14226,13 +14217,13 @@ Partial Class Ventas End If 'SI USA CONTABILIDAD LA CLASIFICACION ES OBLIGATORIA - If DdlClasificacion.SelectedValue.ToEntero <= 0 AndAlso UsuarioActual.Empresa.UsaContabilidad Then + If DdlClasificacion.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.UsaContabilidad Then Alert("La Clasificación es obligatoria, favor de seleccionarla", TipoMensaje.MsgAdvertencia) Return False End If 'SUBPROYECTO OBLIGATORIO - If DdlSubProyecto.SelectedValue.ToEntero <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(120) = "1" Then + If DdlSubProyecto.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(120) = "1" Then Alert("El Subproyecto es obligatorio, favor de seleccionarlo", TipoMensaje.MsgAdvertencia) Return False End If @@ -14249,13 +14240,13 @@ Partial Class Ventas 'VALIDA PROMOCIONES Dim ObjVentas As New ClsVentas - If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then DtPromociones = ObjVentas.DtResultados End If ObjVentas.Dispose() 'VALIDA PRECIO CERO (0) - If UsuarioActual.Empresa.Funcionalidad(139).ToString.ToEntero > 0 And PU = 0 And DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal > 0 Then + If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 And PU = 0 And DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal > 0 Then Alert($"El producto {HdnPS.Value}. No se puede vender a un importe de cero ($0)", TipoMensaje.MsgAdvertencia) Return False End If @@ -14265,7 +14256,7 @@ Partial Class Ventas If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0) If DrPS IsNot Nothing Then - If DrPS("CveMoneda").ToString.ToEntero <> DdlMoneda.SelectedValue.ToEntero Then + If DrPS("CveMoneda").ToString().ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then Alert("No puede agregar un producto de diferente moneda a la ya seleccionada", TipoMensaje.MsgAdvertencia) Return False End If @@ -14278,8 +14269,8 @@ Partial Class Ventas 'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then Dim ObjInventarios As New ClsInventarios - Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) - Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1) + Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) + Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If Costo = 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) @@ -14290,7 +14281,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 119 Then 'Dim CvePrecioLista As Integer = 38 Dim objPS As New ClsProductosServicios - If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then + If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) Then PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal 'If PrecioMinimo > 0 Then ' Costo = PrecioMinimo @@ -14320,7 +14311,7 @@ Partial Class Ventas Dim CostoMayor As Decimal = 0.0D 'PRECIO MINIMO - If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(129).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo If PrecioMinimo > 0 Then 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA @@ -14330,7 +14321,7 @@ Partial Class Ventas Else CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then EsValido = True End If End If @@ -14339,10 +14330,10 @@ Partial Class Ventas End If 'PRECIO MAXIMO - If UsuarioActual.Empresa.Funcionalidad(133).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then + If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo) 'SI EL PRECIO ES MAYOR AL COSTO MAXIMO, SI PASA - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then EsValidoMayor = True End If Else @@ -14353,18 +14344,18 @@ Partial Class Ventas 'SIRVE PARA VALIDAR PRECIOS DEBAJO DEL PRECIO MINIMO PERMITIDO If Not EsValido Then If DtPromociones.FiltraParametros($"CvePS = {CvePS}").Rows.Count > 0 Then - If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then + If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then EsValido = True End If Else Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") 'valida sino tiene promocion la clasificacion If DrPS IsNot Nothing Then - If DtPromociones.FiltraParametros(String.Format("CveClasificacion = {0}", DdlClasificacion.SelectedValue.ToEntero)).Rows.Count > 0 Then + If DtPromociones.FiltraParametros(String.Format("CveClasificacion = {0}", DdlClasificacion.SelectedValue.ToEntero())).Rows.Count > 0 Then ''falta aplicar si tiene promocion - Dim drPromo As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0}", DdlClasificacion.SelectedValue.ToEntero)) + Dim drPromo As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0}", DdlClasificacion.SelectedValue.ToEntero())) If drPromo IsNot Nothing Then - If drPromo("CveMarca").ToString = DrPS("CveMarca").ToString Then + If drPromo("CveMarca").ToString() = DrPS("CveMarca").ToString() Then End If End If @@ -14382,11 +14373,11 @@ Partial Class Ventas MensajeCosto.AppendFormat("El Producto {0}-{1}. No se puede vender a un precio menor de su Costo
", HdnCodigoPS.Value, HdnPS.Value) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: ${0:#,###.00}
", Costo) - MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor) + MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor) MensajeCosto.AppendFormat("El precio indicado es: ${0:#,###.00} ({1}% de ganancia)
", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero) End If - Alert(String.Format(MensajeCosto.ToString), TipoMensaje.MsgAdvertencia) + Alert(String.Format(MensajeCosto.ToString()), TipoMensaje.MsgAdvertencia) Return False End If @@ -14395,10 +14386,10 @@ Partial Class Ventas MensajeCosto.AppendFormat("El Producto {0}. No se puede vender a un precio mayor de su rango aceptado
", HdnPS.Value) If TienePermisoImportes Then MensajeCosto.AppendFormat("El costo del producto es: ${0:#,###.00}
", Costo) - MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor) + MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% ${1:#,###.00}
", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor) MensajeCosto.AppendFormat("El precio indicado es: ${0:#,###.00} ({1}% de ganancia)
", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero) End If - Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia) + Alert(MensajeCosto.ToString(), TipoMensaje.MsgAdvertencia) Return False End If @@ -14443,9 +14434,9 @@ Partial Class Ventas Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS IsNot Nothing Then - CveMarcaPS = DrPS("CveMarca").ToString.ToEntero - CveClasifPS = DrPS("CveClasificacion").ToString.ToEntero - CveRinTamañoPS = DrPS("CveRinTamaño").ToString.ToEntero + CveMarcaPS = DrPS("CveMarca").ToString().ToEntero() + CveClasifPS = DrPS("CveClasificacion").ToString().ToEntero() + CveRinTamañoPS = DrPS("CveRinTamaño").ToString().ToEntero() If CveClasifPS = 20636 Then ValidaCondicionesComerciales = False @@ -14466,16 +14457,16 @@ Partial Class Ventas Dim Cant As Integer = 1 If dr IsNot Nothing Then - TipoPromo = dr("TipoPromocion").ToString.ToEntero - CantMinima = dr("CantidadMinima").ToString.ToEntero - IncluyeImpuestos = dr("IncluyeImpuestos").ToString = "True" - PromocionPorcentaje = dr("Promocion").ToString.ToDecimal - PUPromocion = dr("PUPromocion").ToString.ToDecimal - CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero - TipoAplicacion = dr("TipoAplicacion").ToString.ToEntero + TipoPromo = dr("TipoPromocion").ToString().ToEntero() + CantMinima = dr("CantidadMinima").ToString().ToEntero() + IncluyeImpuestos = dr("IncluyeImpuestos").ToString() = "True" + PromocionPorcentaje = dr("Promocion").ToString().ToDecimal + PUPromocion = dr("PUPromocion").ToString().ToDecimal + CvePromocionDetalle = dr("CvePromocionDetalle").ToString().ToEntero() + TipoAplicacion = dr("TipoAplicacion").ToString().ToEntero() If CantMinima > 0 Then - Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero + Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero() End If End If @@ -14509,13 +14500,13 @@ Partial Class Ventas Dim RowPorcentaje = DtPorcentajeMarcas.FiltroPrimero($"CveMarca={DrPS("CveMarca").ToString()}") 'REALIZA LOS DESCUENTOS DE ACUERDO AL PORCENTAJE POR MARCA If RowPorcentaje IsNot Nothing Then - 'LIMPIAR LOS DESCUENTOS - Descuento = 0 + '(AHORA LOS DESCUENTOS SON ACUMULABLES) + 'Descuento = 0 Dim PorcentajeProducto = RowPorcentaje("PorcentajeProducto").ToString().ToDecimal() / 100D Dim PorcentajeProducto2 = RowPorcentaje("PorcentajeProducto2").ToString().ToDecimal() / 100D Dim PorcentajeProducto3 = RowPorcentaje("PorcentajeProducto3").ToString().ToDecimal() / 100D - Dim TotalInicial As Decimal = (Cantidad * (PU)) - Descuento + Dim TotalInicial As Decimal = (Cantidad * (PU)) '- Descuento Dim TotalFinal = TotalInicial 'SI APLICA EL PRIMER DESCUENTO If PorcentajeProducto > 0 Then @@ -14541,7 +14532,9 @@ Partial Class Ventas TotalFinal = TotalInicial End If - Descuento += ((Cantidad * PU) - TotalFinal) + If PorcentajeProducto > 0 Then + Descuento += ((Cantidad * PU) - TotalFinal) + End If End If End If @@ -14562,15 +14555,15 @@ Partial Class Ventas 'SELECCIONA EL PS DEPENDIENDO LA MODALIDAD (CODIGO BARRAS - DDL) Dim CvePS As Integer = -1 If DIVCod.Visible Then - CvePS = HdnCvePS.Value.ToEntero + CvePS = HdnCvePS.Value.ToEntero() Else - CvePS = DdlPS.SelectedValue.ToEntero + CvePS = DdlPS.SelectedValue.ToEntero() End If - If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero, TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero) Then + If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero(), TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero()) Then If UsuarioActual.Empresa.Funcionalidad(507) = DdlPS.SelectedValue Then - CvePSAmortizacion = DdlPS.SelectedValue.ToEntero.ToEntero + CvePSAmortizacion = DdlPS.SelectedValue.ToEntero().ToEntero() End If Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal @@ -14580,9 +14573,9 @@ Partial Class Ventas PU = ObjDescuento.PU End If - AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, + AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero(), DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero(), DdlClasificacion.SelectedItem.Text, CvePS, "", TxtObsPS.Text.Trim, PU, ObjDescuento.ImporteDescuento, - DdlProyecto.SelectedValue.ToEntero, DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, + DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text, SerieLote:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle) CalculaUsados() @@ -14604,20 +14597,20 @@ Partial Class Ventas Private Sub AgregarPSPYME() If Modalidad = "A" Then - Dim CveProyecto As Integer = IIf(DdlProyectoPyME.SelectedValue <> "-1", DdlProyectoPyME.SelectedValue, "0").ToString.ToEntero - Dim Proyecto As String = IIf(DdlProyectoPyME.SelectedValue <> "-1", DdlProyectoPyME.SelectedItem.Text, "").ToString + Dim CveProyecto As Integer = IIf(DdlProyectoPyME.SelectedValue <> "-1", DdlProyectoPyME.SelectedValue, "0").ToString().ToEntero() + Dim Proyecto As String = IIf(DdlProyectoPyME.SelectedValue <> "-1", DdlProyectoPyME.SelectedItem.Text, "").ToString() - Dim CveSubProyecto As Integer = IIf(DdlSubProyectoPyME.SelectedValue <> "-1", DdlSubProyectoPyME.SelectedValue, "0").ToString.ToEntero - Dim SubProyecto As String = IIf(DdlSubProyectoPyME.SelectedValue <> "-1", DdlSubProyectoPyME.SelectedItem.Text, "").ToString + Dim CveSubProyecto As Integer = IIf(DdlSubProyectoPyME.SelectedValue <> "-1", DdlSubProyectoPyME.SelectedValue, "0").ToString().ToEntero() + Dim SubProyecto As String = IIf(DdlSubProyectoPyME.SelectedValue <> "-1", DdlSubProyectoPyME.SelectedItem.Text, "").ToString() Dim PU As Decimal = TxtPrecioPyME.Text.ToDecimal() Dim Cantidad As Decimal = TxtCantidadPyME.Text.ToDecimal() - Dim CvePS As Integer = DdlPSPyME.SelectedValue.ToEntero + Dim CvePS As Integer = DdlPSPyME.SelectedValue.ToEntero() Dim Descuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU) - AgregarProductoServicio(Cantidad, DdlUMPyME.SelectedValue.ToEntero, DdlUMPyME.SelectedItem.Text, DdlClasificacionPyME.SelectedValue.ToEntero, DdlClasificacionPyME.SelectedItem.Text, + AgregarProductoServicio(Cantidad, DdlUMPyME.SelectedValue.ToEntero(), DdlUMPyME.SelectedItem.Text, DdlClasificacionPyME.SelectedValue.ToEntero(), DdlClasificacionPyME.SelectedItem.Text, CvePS, DdlPSPyME.SelectedText, TxtObsPyME.Text, PU, Descuento.ImporteDescuento, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) CalculaUsados() @@ -14628,7 +14621,7 @@ Partial Class Ventas Dim ErrorEdit As Boolean = True Dim Contador As Integer = 0 For Each row As DataRow In TmpDT.Rows - If row("Consec").ToString.ToEntero = Index Then + If row("Consec").ToString().ToEntero() = Index Then ErrorEdit = False Exit For End If @@ -14653,7 +14646,7 @@ Partial Class Ventas DdlClasificacion.SelectedIndex = 0 - If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then DdlPS.SelectedValue = "-1" Else DdlPS.SelectedValue = "" @@ -14774,37 +14767,37 @@ Partial Class Ventas Return False End If - If (DrPS("SATClaveUnidadMedida").ToString = "" Or DrPS("SATClavePS").ToString = "") Then + If (DrPS("SATClaveUnidadMedida").ToString() = "" Or DrPS("SATClavePS").ToString() = "") Then 'VALIDA CLAVESAT If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then 'DOCUMENTOS DONDE NO SE VALIDA - If DrPS("SATClavePS").ToString = "" Then - MensajeCveSAT.AppendFormat("{0}-{1}: Sin producto SAT
", DrPS("Codigo").ToString, DrPS("PS").ToString) + If DrPS("SATClavePS").ToString() = "" Then + MensajeCveSAT.AppendFormat("{0}-{1}: Sin producto SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) Return False - ElseIf DrPS("SATClaveUnidadMedida").ToString = "" Then - MensajeCveSAT.AppendFormat("{0}-{1}: Sin Unidad Medida SAT
", DrPS("Codigo").ToString, DrPS("PS").ToString) + ElseIf DrPS("SATClaveUnidadMedida").ToString() = "" Then + MensajeCveSAT.AppendFormat("{0}-{1}: Sin Unidad Medida SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) Return False End If End If End If 'verifica si tiene ventaminima - If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString.ToDecimal > 0 Then + If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... - If Cantidad Mod DrPS("VentaMinima").ToString.ToDecimal <> 0 Then - Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString)) + If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then + Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString())) Return False End If End If If Not ClienteDesglosaIEPS Then If Not RegeneraIEPS Then - PU = PU * (1 + DrPS("IEPSPorcentaje").ToString.ToDecimal) + PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) End If DrPS("IEPSPorcentaje") = 0 End If TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento - TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString.ToDecimal) + TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) Row("PU") = PU Row("Codigo") = DrPS("Codigo") @@ -14820,7 +14813,7 @@ Partial Class Ventas End If Row("PS") = DrPS("PS") - Row("CodigoPS") = DrPS("PSCodigo").ToString + Row("CodigoPS") = DrPS("PSCodigo").ToString() Row("CveTipoPS") = DrPS("CveTipoPS") Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario") Row("CveTamaño") = DrPS("CveTamaño") @@ -14828,7 +14821,7 @@ Partial Class Ventas If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion") If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion") - If DrPS("IVA").ToString.Contiene("-1", "") Then + If DrPS("IVA").ToString().Contiene("-1", "") Then Row("PorcentajeIVA") = PorcentajeIVA Else Row("PorcentajeIVA") = DrPS("IVA") @@ -14854,13 +14847,13 @@ Partial Class Ventas End If Row("IVA") = Row("PorcentajeIVA") - Row("ImporteIVA") = (Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) + Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) Row("PorcentajeRetIVA") = ClienteRetIVA Row("PorcentajeRetISR") = ClienteRetISR Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje") - Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) Row("IEPS") = Row("ImporteIEPS") Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales) Row("TipoDescuento") = HdnTipoDescuento.Value @@ -14895,15 +14888,15 @@ Partial Class Ventas 'MONEDA DIFERENTE DEL PS AL PRIMER PS AGREGADO If DdlMoneda.Enabled = False And CveVenta < 0 And TmpDT.Rows.Count > 0 Then - If DdlMoneda.SelectedValue <> DrPS("CveMoneda").ToString Then - Alert($"La moneda base del producto: {DrPS("PSCodigo").ToString} es diferente a la moneda del documento.", TipoMensaje.MsgAdvertencia) + If DdlMoneda.SelectedValue <> DrPS("CveMoneda").ToString() Then + Alert($"La moneda base del producto: {DrPS("PSCodigo").ToString()} es diferente a la moneda del documento.", TipoMensaje.MsgAdvertencia) Return False End If End If 'ACTIVA PRODUCTOS DE LA MISMA MONEDA If TmpDT.Rows.Count = 0 And CveVenta < 0 Then - DdlMoneda.SelectedValueExist(DrPS("CveMoneda").ToString) + DdlMoneda.SelectedValueExist(DrPS("CveMoneda").ToString()) CambiaMoneda() DdlMoneda.Enabled = False End If @@ -14916,21 +14909,21 @@ Partial Class Ventas 'AGREGA PS ADICIONAL - If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then + If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows - Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero + Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString().ToEntero() Dim DrPoliza As DataRow = TmpDT.NewRow() DrPoliza.ItemArray = Row.ItemArray Dim DrPSAdicional = GlobalDTPS(UsuarioActual.CveEmpresa, CvePSAdicional).Rows(0) If DrPSAdicional IsNot Nothing Then DrPoliza("CvePS") = CvePSAdicional - DrPoliza("PS") = DrPSAdicional("PS").ToString - DrPoliza("CveUM") = DrPSAdicional("CveUM").ToString.ToEntero - DrPoliza("UM") = DrPSAdicional("UnidadMedida").ToString - DrPoliza("CveClasificacion") = DrPSAdicional("CveClasificacion").ToString.ToEntero - DrPoliza("Clasificacion") = DrPSAdicional("Clasificacion").ToString - DrPoliza("CodigoPS") = DrPSAdicional("PSCodigo").ToString + DrPoliza("PS") = DrPSAdicional("PS").ToString() + DrPoliza("CveUM") = DrPSAdicional("CveUM").ToString().ToEntero() + DrPoliza("UM") = DrPSAdicional("UnidadMedida").ToString() + DrPoliza("CveClasificacion") = DrPSAdicional("CveClasificacion").ToString().ToEntero() + DrPoliza("Clasificacion") = DrPSAdicional("Clasificacion").ToString() + DrPoliza("CodigoPS") = DrPSAdicional("PSCodigo").ToString() DrPoliza("CveTipoPS") = DrPSAdicional("CveTipoPS") DrPoliza("CveTipoInvPS") = DrPSAdicional("Inv_CveMetodoInventario") DrPoliza("NoIdentificacion") = DrPSAdicional("Codigo") @@ -14940,11 +14933,11 @@ Partial Class Ventas DrPoliza("Consec") = TmpDT.Rows.Count + 1 End If Row("Orden") = TmpDT.Rows.Count + 1 - DrPoliza("Cantidad") = If(Dr("Cantidad").ToString.ToDecimal > 0, Dr("Cantidad").ToString.ToDecimal, Cantidad) + DrPoliza("Cantidad") = If(Dr("Cantidad").ToString().ToDecimal > 0, Dr("Cantidad").ToString().ToDecimal, Cantidad) PU = 0 Dim PrecioSugerido As Decimal = 0 - 'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero + 'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero() If CvePrecioLista > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then @@ -14952,10 +14945,10 @@ Partial Class Ventas PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios - Dim CostoPS = ObjInventarios.GetCostoPS(CvePSAdicional, DrPoliza("Cantidad").ToString.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1) + Dim CostoPS = ObjInventarios.GetCostoPS(CvePSAdicional, DrPoliza("Cantidad").ToString().ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal - If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSAdicional, DrPoliza("Cantidad").ToString.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) + If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSAdicional, DrPoliza("Cantidad").ToString().ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) ObjInventarios.Dispose() Dim PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal @@ -14973,26 +14966,26 @@ Partial Class Ventas End If PU = Math.Round(PU, 6) DrPoliza("PU") = PU - TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString.ToDecimal * (PU)) + TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU)) - If DrPSAdicional("IVA").ToString.Contiene("-1", "") Then + If DrPSAdicional("IVA").ToString().Contiene("-1", "") Then DrPoliza("PorcentajeIVA") = PorcentajeIVA Else DrPoliza("PorcentajeIVA") = DrPSAdicional("IVA") End If DrPoliza("IVA") = DrPoliza("PorcentajeIVA") - DrPoliza("ImporteIVA") = Math.Round(DrPoliza("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + DrPoliza("ImporteIVA") = Math.Round(DrPoliza("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("PorcentajeRetIVA") = ClienteRetIVA DrPoliza("PorcentajeRetISR") = ClienteRetISR DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje") - DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) + DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("IEPS") = DrPoliza("ImporteIEPS") DrPoliza("Descuento") = 0 ' Descuento DrPoliza("TipoDescuento") = HdnTipoDescuento.Value - DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU) - DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales) + DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU) + DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString().ToDecimal * PU, NumeroDecimales) DrPoliza("SATClaveProdServ") = DrPSAdicional("SATClavePS") DrPoliza("SATClaveUM") = DrPSAdicional("SATClaveUnidadMedida") @@ -15163,7 +15156,7 @@ Partial Class Ventas 'End Function 'Private Sub ActualizaCadenaOriginal(CadenaOriginal As String, CveVenta As Integer) ' Dim ObjVentas As New ClsVentas() - ' ObjVentas.UpdateVentaCadenaOriginal(CadenaOriginal.ToString, CveVenta) + ' ObjVentas.UpdateVentaCadenaOriginal(CadenaOriginal.ToString(), CveVenta) ' ObjVentas.Dispose() 'End Sub 'Private Sub ActualizaEstatus(CveEstatus As Integer, FolioFiscal As String, CveVenta As Integer) @@ -15214,7 +15207,7 @@ Partial Class Ventas Dim CtaCliente As Integer = factura.Cliente.IdCtaContClientes Dim CtaISSSTESON As Integer = 643 Dim CtaISPT As Integer = 1745 - ' Dim NombreCliente As String = ViewState("NombreCliente").ToString + ' Dim NombreCliente As String = ViewState("NombreCliente").ToString() If IDPoliza > 0 Then Retorno.IdPoliza = IDPoliza @@ -15222,7 +15215,7 @@ Partial Class Ventas 'Orden de PAGO If factura.TipoDocto = "OP" Then - If DdlOrdenPago.SelectedValue.ToEntero = 1 Then + If DdlOrdenPago.SelectedValue.ToEntero() = 1 Then 'ISSSTESON If ObjAC.AddMovimiento(IDPoliza, factura.Cliente.IdCtaContClientes, False, Paridad * factura.Total, "", Concepto, 0, Fecha, "") Then @@ -15249,7 +15242,7 @@ Partial Class Ventas Else Dim Detalles = From gvr As GridViewRow In GvPS.Rows.Cast(Of GridViewRow)() Group gvr By Grp = New With { - Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero + Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero() } Into Group Select Grp.CvePresupuestoIngreso, TotalImporte = Group.Sum(Function(r) r.FCLiteral("LtlTotal").Text.ToDouble) @@ -15259,14 +15252,14 @@ Partial Class Ventas ' Case "Ing", "Egs" For Each grp In Detalles dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso)) - Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString, TxtFolio.Text) + Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text) - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString.ToEntero, False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then 'CARGO la deuda del cliente If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then 'abono, - If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString.ToEntero, Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then ErrorAC = True End If Else @@ -15328,22 +15321,22 @@ Partial Class Ventas TipoMovto = True End If - Dim TipoPoliza = If(DdlTipoComprobante.SelectedValue.ToString = "OP" Or DdlTipoComprobante.SelectedValue.ToString = "Com", 3, 1) + Dim TipoPoliza = If(DdlTipoComprobante.SelectedValue.ToString() = "OP" Or DdlTipoComprobante.SelectedValue.ToString() = "Com", 3, 1) IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, TxtTotal.Text.ToDouble * 2, TxtTotal.Text.ToDouble * 2, UsuarioActual.CveUsuario, Fecha) Dim dr As DataRow ' = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", DdlFuenteRecaudacion.SelectedValue)) 'Dim Importe As Double = TxtTotal.Text.ToDouble - Dim CtaCliente As Integer = ViewState("IdCtaContClientes").ToString.ToEntero + Dim CtaCliente As Integer = ViewState("IdCtaContClientes").ToString().ToEntero() Dim CtaISSSTESON As Integer = 643 Dim CtaISPT As Integer = 1745 - ' Dim NombreCliente As String = ViewState("NombreCliente").ToString + ' Dim NombreCliente As String = ViewState("NombreCliente").ToString() If IDPoliza > 0 Then 'Orden de PAGO - If DdlTipoComprobante.SelectedValue.ToString = "OP" Then + If DdlTipoComprobante.SelectedValue.ToString() = "OP" Then - If DdlOrdenPago.SelectedValue.ToEntero = 1 Then + If DdlOrdenPago.SelectedValue.ToEntero() = 1 Then 'ISSSTESON If ObjAC.AddMovimiento(IDPoliza, CtaCliente, False, Paridad * TxtTotal.Text.ToDecimal, "", Concepto, 0, Fecha, "") Then @@ -15370,7 +15363,7 @@ Partial Class Ventas Else Dim Detalles = From gvr As GridViewRow In GvPS.Rows.Cast(Of GridViewRow)() Group gvr By Grp = New With { - Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero + Key .CvePresupuestoIngreso = gvr.FCDropDownList("DdlFR").SelectedValue.ToEntero() } Into Group Select Grp.CvePresupuestoIngreso, TotalImporte = Group.Sum(Function(r) r.FCLiteral("LtlTotal").Text.ToDouble) @@ -15380,14 +15373,14 @@ Partial Class Ventas ' Case "Ing", "Egs" For Each grp In Detalles dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso)) - Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString, TxtFolio.Text) + Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text) - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString.ToEntero, False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then - If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then 'CARGO la deuda del cliente If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then 'abono, - If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString.ToEntero, Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then + If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then ErrorAC = True End If Else @@ -15541,7 +15534,7 @@ Partial Class Ventas If RecalculaImpuestosLocales AndAlso TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.Rows.Count > 0 Then If TotalSubTotal <> TotalAmortizacion Then For Each drt As DataRow In TmpDTImpuestos.Rows - drt("Importe") = drt("Porcentaje").ToString.ToDecimal * TotalSubTotal / 100 + drt("Importe") = drt("Porcentaje").ToString().ToDecimal * TotalSubTotal / 100 Next End If @@ -15567,7 +15560,7 @@ Partial Class Ventas If TotalRetIVA > 0 Then GvPS.Columns(ColumnaRetIVA).Visible = True Else GvPS.Columns(ColumnaRetIVA).Visible = False If TotalRetISR > 0 Then GvPS.Columns(ColumnaRetISR).Visible = True Else GvPS.Columns(ColumnaRetISR).Visible = False - If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero.Contiene(2, 1) Then + If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero().Contiene(2, 1) Then TotalAmortizacion = 0 End If @@ -15585,17 +15578,17 @@ Partial Class Ventas LblAmort.Text = TxtSubTotal.Text If CveVenta <= 0 OrElse (CveDevolucion > 0 And NuevaFactura = 1) Then - HdnVentaSaldo.Value = Total.ToString + HdnVentaSaldo.Value = Total.ToString() Else - HdnVentaSaldo.Value = SaldoVenta.ToString + HdnVentaSaldo.Value = SaldoVenta.ToString() End If HdnIVAOriginal.Value = TxtIVA.Text 'JJMQ 20160506: Se agrego para la validacion de pago de contado. - 'CVImporteContado.ValueToCompare = Total.ToString + 'CVImporteContado.ValueToCompare = Total.ToString() - If MensajeCveSAT IsNot Nothing AndAlso MensajeCveSAT.ToString.Length > 0 Then - Alert($"Los siguientes conceptos hace falta especificar clave SAT
{MensajeCveSAT.ToString}", TipoMensaje.MsgAdvertencia) + If MensajeCveSAT IsNot Nothing AndAlso MensajeCveSAT.ToString().Length > 0 Then + Alert($"Los siguientes conceptos hace falta especificar clave SAT
{MensajeCveSAT.ToString()}", TipoMensaje.MsgAdvertencia) MensajeCveSAT.Clear() End If @@ -15703,7 +15696,7 @@ Partial Class Ventas End Function Private Sub VinculaCotizacionVenta() Dim ObjVentas As New ClsVentas() - ObjVentas.UpdateVentaCotizacion(CveVenta, Request("CveVenta").ToEntero) + ObjVentas.UpdateVentaCotizacion(CveVenta, Request("CveVenta").ToEntero()) ObjVentas.Dispose() End Sub Private Sub GeneraAddenda7Eleven(Archivo As String) @@ -15731,7 +15724,7 @@ Partial Class Ventas For Each Row As DataRow In TmpDT.Rows - SB.AppendFormat("