From 89ff901734a90c322cda5db76f4931e8359e164c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 4 May 2020 13:25:15 -0700 Subject: [PATCH 01/46] =?UTF-8?q?reduciendo=20tama=C3=B1o=20de=20archivo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Empresas/141/Formatos/Factura.rdlc | 380 +++++++++-------------------- 1 file changed, 119 insertions(+), 261 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 00b8b801b..cd8da5b44 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -2253,104 +2253,6 @@ 2pt - - Embedded - ID5 - FitProportional - 11.06748cm - 0.28014cm - 0.96488cm - 3.75909cm - 17 - - - - - - true - true - true - - - - - < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID4 - FitProportional - 11.06748cm - 4.45804cm - 0.91769cm - 3.03541cm - 19 - - - - - - Embedded - ID1 - FitProportional - 11.06748cm - 7.66984cm - 0.97656cm - 4.16281cm - 20 - - - - - - Embedded - ID6 - FitProportional - 11.06748cm - 12.01497cm - 0.97656cm - 3.76809cm - 21 - - - - Embedded ID3 @@ -2359,7 +2261,7 @@ 15.78306cm 0.93046cm 5.37042cm - 22 + 17 @@ -2391,7 +2293,7 @@ 15.67443cm 0.50299cm 5.42547cm - 23 + 18 @@ -2444,7 +2346,7 @@ 17.09066cm 0.64028cm 3.90165cm - 24 + 19 @@ -2611,7 +2513,7 @@ 0.16383cm 2.44366cm 15.5106cm - 25 + 20 @@ -2646,7 +2548,7 @@ 6.21617in 0.17708in 0.94607in - 26 + 21 @@ -2681,7 +2583,7 @@ 6.21616in 0.17966in 0.94607in - 27 + 22 @@ -2716,7 +2618,7 @@ 6.21616in 0.18819in 0.94607in - 28 + 23 @@ -2751,7 +2653,7 @@ 6.22658in 0.17119in 0.94607in - 29 + 24 @@ -2787,7 +2689,7 @@ 6.237in 0.19596in 0.94607in - 30 + 25 @@ -2823,7 +2725,7 @@ 7.16224in 0.17708in 0.98426in - 31 + 26 @@ -2858,7 +2760,7 @@ 7.16224in 0.17966in 0.98425in - 32 + 27 @@ -2893,7 +2795,7 @@ 7.17266in 0.18819in 0.98425in - 33 + 28 @@ -2929,7 +2831,7 @@ 7.17266in 0.17119in 0.98425in - 34 + 29 @@ -2965,7 +2867,7 @@ 7.18308in 0.19596in 0.98425in - 35 + 30 @@ -3002,7 +2904,7 @@ 6.75122cm 0.82021cm 5.51336cm - 36 + 31 @@ -3032,7 +2934,7 @@ 0.10579cm 0.05496cm 20.88652cm - 37 + 32 @@ -3079,7 +2981,7 @@ 1.15361cm 1.32415cm 19.15078cm - 38 + 33 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -3093,6 +2995,59 @@ 2pt + + Embedded + ECONO_Marcas + FitProportional + 11.08689cm + 0.22108cm + 1.5cm + 15.34658cm + 34 + + + + + + true + true + true + + + + + < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > + + + + + + 2pt + 2pt + 2pt + 2pt + + 19.49544cm + + + + + + + + 2.73237cm + + + 1.92367cm + + + 3.38889cm + + + 3.59897cm + + + 2.5cm + + + 1.52576cm + + + 1.64513cm + + + 2.68521cm + + + + + 0.46771cm + + + + + true + true + + + + + Proceso + + + + + + + Textbox3 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + No. Etapa + + + + + + + Textbox5 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Etapa + + + + + + + Textbox15 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox23 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo de Etapa + + + + + + + Textbox21 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox19 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox27 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Usuario + + + + + + + Textbox31 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Orden.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EtapaProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TipoEtapa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UsuarioIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.36336cm + 0.06868cm + 1.06771cm + 20cm + 1 + + + + + + 0.60091in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 0.11854cm + 5.39433cm + 0.6cm + 9.98771cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE CATÁLOGO DE + + + + + + + + + ETAPAS PROCESO + + + + + + + + + + + + + + + + Textbox2 + 1.98854cm + 5.39433cm + 0.95278cm + 9.98771cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.79374cm + true + true + + + 0.11437cm + 0.10583cm + 0cm + 19.96285cm + + + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.22726cm + 18.00281cm + 0.36335cm + 2.06587cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + + + + + + + + + 5.89659cm + + + 1.60341cm + + + 3.72586cm + + + 4.01284cm + + + 4.7613cm + + + + + 0.46771cm + + + + + true + true + + + + + Probabilidad de Acercamiento + + + + + + + Textbox3 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox5 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox15 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Usuario + + + + + + + Textbox23 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo Proceso + + + + + + + Textbox21 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!ProbabilidadAcercamiento.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UsuarioIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TipoProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.36336cm + 0.06868cm + 1.06771cm + 20cm + 1 + + + + + + 0.60091in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 0.48896cm + 2.56328cm + 0.6cm + 15.44165cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE CATÁLOGO DE + + + + + + + + + PROBABILIDAD ACERCAMIENTO + + + + + + + + + + + + + + + + Textbox2 + 1.98854cm + 2.56328cm + 0.95278cm + 15.44165cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.79374cm + true + true + + + 0.11437cm + 0.10583cm + 0cm + 19.96285cm + + + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.22726cm + 18.00281cm + 0.36335cm + 2.06587cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + + + + + + + + + 2.3743cm + + + 5.96532cm + + + 3.05758cm + + + 2.7467cm + + + 3.70732cm + + + 2.14878cm + + + + + 0.46771cm + + + + + true + true + + + + + Tipo Proceso + + + + + + + Textbox3 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox5 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + No. Etapas + + + + + + + Textbox15 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox23 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox21 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Usuario Ing + + + + + + + Textbox19 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!TipoProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NoEtapas.Value + + + + + + + NoEtapas + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UsuarioIng.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.36336cm + 0.06868cm + 1.06771cm + 20cm + 1 + + + + + + 0.60091in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 0.11854cm + 5.78222cm + 1.18208cm + 8.43036cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE CATÁLOGO DE + + + + + + + + + TIPOS PROCESOS + + + + + + + + + + + + + + + + Textbox2 + 1.67104cm + 2.56328cm + 0.95278cm + 14.72728cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.79374cm + true + true + + + 0.11437cm + 0.10583cm + 0cm + 19.96285cm + + + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.22726cm + 18.00281cm + 0.36335cm + 2.06587cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 849a7129d..ef9c79f9c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -18,7 +18,7 @@ Partial Class Clientes Private Opcion As Integer Public ReadOnly Property RowStyle As TableItemStyle - Private ReadOnly Property CveCliente As Integer + Protected ReadOnly Property CveCliente As Integer Get Return ViewState("CveCliente").ToString.ToEntero End Get @@ -878,6 +878,7 @@ Partial Class Clientes LiLnkAgragarDireccion.Visible = True End If + LtlTareaNueva.Text = String.Format(" Tarea", CveCliente) End If 'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017 From 28a3817afb47abe72659eba7b524f9ebeab20ce0 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 5 May 2020 09:21:33 -0700 Subject: [PATCH 09/46] =?UTF-8?q?retroalimentacion=20en=20dise=C3=B1o=20pa?= =?UTF-8?q?ra=20CRM?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CRM/RepAcercamientosProcesos.aspx | 179 ++++++++++++----------- CRM/RepAcercamientosProcesosDetalle.aspx | 2 +- 2 files changed, 95 insertions(+), 86 deletions(-) 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 -
-
-
- -
-
- - - - - - - - -
-
- -
-
- -
- - - - +
+
+
+
+ + +
- - -
-
-
-
- -
- - - - +
+
+ + +
+
+
+
+ + +
+
+
+
+ + +
- -
+
+
+
+ + + + + + + + +
+
+ +
+
+ +
+ + + + +
+ + +
+
+
+
+ +
+ + + + +
+ + +
+ +
+
+
+
+
+
+ Consultar +
@@ -185,13 +193,14 @@
- + - + + --%> + @@ -817,6 +833,23 @@ //e.Row.Attributes.Add("data-sucursal", CveRol); } + //TxtAsunto TxtDescripcion TxtIsnewtarea + + function loadTxtAsunto() { + if ($('input.TxtIsnewtarea').val() == "1") { + let input = $('input.TxtAsunto:not(.CEvent)') + let TxtAsunto_Onchange = function () { let valor = $('input.TxtAsunto').val(); /*console.log(valor);*/ $('.TxtDescripcion').val(valor); } + input.bind({ + copy: TxtAsunto_Onchange + , paste: TxtAsunto_Onchange + , cut: TxtAsunto_Onchange + , keydown: function (event) { if (event.which == 13) { event.preventDefault(); } TxtAsunto_Onchange(); } + , keyup: function (event) { if (event.which == 13) { event.preventDefault(); } TxtAsunto_Onchange(); } + }); + input.addClass('CEvent'); + } + } + function loadeventos() { let input = $('input.TxtUsuario:not(.ConEvento)') @@ -936,6 +969,7 @@ CargaPickers(); setchecklistitulo(); barraavance(); + loadTxtAsunto(); //$('.GVcheklist input[type="checkbox"]:checked').addClass('icheck setclass'); }); $(document).ready(function () { @@ -945,6 +979,7 @@ CargaPickers(); setchecklistitulo(); barraavance(); + loadTxtAsunto(); //$('.GVUsuarios input[type="checkbox"]:not(.setclass)').addClass('icheck setclass'); }); diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 4d5a68186..65ac64922 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -31,6 +31,7 @@ public partial class OI_TareaDetalle : ClsPaginas public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } public int Folio { get { return ViewState["Folio"] != null ? ViewState["Folio"].ToString().ToEntero() : 0; } set { ViewState["Folio"] = value; } } public decimal Avance { get { return ViewState["Avance"] != null ? ViewState["Avance"].ToString().ToEntero() : 0; } set { ViewState["Avance"] = value; } } + public int CveEventoPadre { get { return ViewState["CveEventoPadre"].ToString().ToEntero(); } set { ViewState["CveEventoPadre"] = value; } } public int CveUsuarioPara { get { return ViewState["CveUsuarioPara"].ToString().ToEntero(); } set { ViewState["CveUsuarioPara"] = value; } } public int CveUsuarioDe { get { return ViewState["CveUsuarioDe"].ToString().ToEntero(); } set { ViewState["CveUsuarioDe"] = value; } } public List LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List(); } return (List)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } } @@ -50,6 +51,8 @@ public partial class OI_TareaDetalle : ClsPaginas if (!IsPostBack) { + CveEventoPadre = 0; + portletvinculos.Visible = false; LnkAgregarCheckListVisible = true; LnkUpFileVisible = false; LnkUpUsuariosVisible = false; @@ -107,6 +110,7 @@ public partial class OI_TareaDetalle : ClsPaginas } else { + TxtIsnewtarea.Text = "1"; portletActividades.Visible = false; LnkcambiarEstatus.Visible = false; LnkAgregarTema.Visible = false; @@ -170,6 +174,11 @@ public partial class OI_TareaDetalle : ClsPaginas TxtDescripcion.Enabled = Permisos.EdicionGeneral; LnkUpFile.Visible = Permisos.EdicionGeneral && LnkUpFileVisible; LnkUpUsuarios.Visible = Permisos.EdicionGeneral && LnkUpUsuariosVisible; + DdlPrioridad.Enabled = Permisos.EdicionGeneral; + DdlTema.Enabled = Permisos.EdicionGeneral; + DdlPrioridad.Enabled = Permisos.EdicionGeneral; + txtFechaF.Enabled = Permisos.EdicionGeneral; + txtFechaI.Enabled = Permisos.EdicionGeneral; #endregion #region Permisos.Bitacora LnkAgregarActividad.Visible = Permisos.Bitacora; @@ -181,7 +190,7 @@ public partial class OI_TareaDetalle : ClsPaginas #region Permisos.Reasignar LnkReasignar.Visible = Permisos.Reasignar; #endregion - List itemremove= new List(); + List itemremove = new List(); foreach (ListItem item in DDlEstatus.Items) { switch (item.Value.ToEntero()) @@ -201,15 +210,15 @@ public partial class OI_TareaDetalle : ClsPaginas { itemremove.Add(item); //DDlEstatus.Items.Remove(item); - } + } break; } } - foreach (ListItem item in itemremove) + foreach (ListItem item in itemremove) { DDlEstatus.Items.Remove(item); } - LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); + LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); UpAcciones.Update(); UpTitulo.Update(); @@ -343,7 +352,17 @@ public partial class OI_TareaDetalle : ClsPaginas } LtlPara.Text = StrPara.ToString(); LtlDeUser.Text = StrDeUser.ToString(); - LtlCCPara.Text = StrCCPara.ToString(); + int longitud = StrCCPara.ToString().Length; + if (longitud > 0) + { + LtlCCPara.Text = StrCCPara.ToString().Substring(0, longitud - 1); + + } + else + { + LtlCCPara.Text = ""; + + } } @@ -371,6 +390,8 @@ public partial class OI_TareaDetalle : ClsPaginas txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); + lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; + 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())); @@ -383,11 +404,83 @@ public partial class OI_TareaDetalle : ClsPaginas CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); 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"]); + TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy HH}:{0:mm}", 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] + LtlVinculo.Text = ""; + LtlVinculoLink.Text = ""; + CveEventoPadre = drow["CveEventoPadre"].ToString().ToEntero(); + int CveCliente = drow["CveCliente"].ToString().ToEntero(); + int CveVenta = drow["CveVenta"].ToString().ToEntero(); + int CveProveedor = drow["CveProveedor"].ToString().ToEntero(); + int CveCompra = drow["CveCompra"].ToString().ToEntero(); + int CvePersonal = drow["CvePersonal"].ToString().ToEntero(); + //int = drow[""].ToString().ToEntero(); + + string titulo = ""; + string link = ""; + + if (CveCliente > 0) + { + titulo = "Cliente: "; + link = string.Format("{0}", drow["Cliente"], CveCliente); + + } + else if (CveVenta > 0) + { + titulo = "Venta: "; + link = string.Format("{0} ", drow["Venta"], CveVenta); + + } + else if (CveProveedor > 0) + { + titulo = "proveedor: "; + link = string.Format("{0} ", drow["Proveedor"], CveProveedor); + + } + else if (CveCompra > 0) + { + titulo = "Compra: "; + link = string.Format("{0} ", drow["Compra"], CveCompra); + + } + else if (CvePersonal > 0) + { + titulo = "Personal: "; + link = string.Format("{0} ", drow["NombreCompleto"], CvePersonal); + } + + if(titulo.Length > 0) + { + LtlVinculo.Text= string.Format("

{0}

{1}
", + titulo, link); + } + titulo = ""; + link = "";//EP.[CveTipoEvento] CveTipoEventoPadre,EP.Asunto AS AsuntoPadre + switch (drow["CveTipoEventoPadre"].ToString().ToEntero()) + { + case (int)OITipoEventos.Proyecto: + titulo = "Proyecto: "; + link = string.Format("{0} ", drow["AsuntoPadre"], drow["CveEventoPadre"]); + break; + case (int)OITipoEventos.Minuta: + titulo = "Minuta: "; + link = string.Format("{0} ", drow["AsuntoPadre"], drow["CveEventoPadre"]); + break; + default: + break; + } + if (titulo.Length > 0) + { + LtlVinculoLink.Text = string.Format("

{0}

{1}
", + titulo, link); + } + //,OIE.CveCliente,OIE.CveVenta,OIE.CveProveedor,OIE.CveCompra,OIE.CvePersonal + //,C.Nombre Cliente, CONCAT(V.SerieFolio, '(', CV.Nombre, ')') Venta ,Prov.NombreComercial AS Proveedor, + //CONCAT(Comp.SerieFolio, '(', CompProv.NombreComercial, ')') Compra,RH.NombreCompleto + LtlTitulo.Text = drow["Titulo"].ToString(); if (ObjOI_E.GetEventosUsuario2(RCveEvento, UsuarioActual.CveEmpresa)) { @@ -402,6 +495,12 @@ public partial class OI_TareaDetalle : ClsPaginas } } } + if (ObjOI_E.GetEventosVinculos(RCveEvento, UsuarioActual.CveEmpresa)) + { + GVVinculo.DataSource = ObjOI_E.DtResultados; + GVVinculo.DataBind(); + portletvinculos.Visible = (ObjOI_E.DtResultados.Rows.Count > 0); + } if (ObjOI_E.Getcheklist(RCveEvento)) { GVcheklist.DataSource = ObjOI_E.DtResultados; @@ -715,38 +814,45 @@ public partial class OI_TareaDetalle : ClsPaginas CheckListNew.Columns.Add("FechaIng", typeof(DateTime)); } + TxtActividad.Focus(); + RegistraScript("$('#C_portletChekList .expand').removeClass('expand').addClass('collapse');$('#C_portletChekList .portlet-body').show();"); UpChkList.Update(); } protected void LnkAgregarchklistitem_Click(object sender, EventArgs e) { - if (RCveEvento > 0) + if (TxtActividad.Text.Trim().Length > 0) { - using (ClsOIEventos objOI = new ClsOIEventos()) + if (RCveEvento > 0) { - if (objOI.Addcheklist(RCveEvento, TxtActividad.Text, UsuarioActual.CveUsuario)) + using (ClsOIEventos objOI = new ClsOIEventos()) { - Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion); - if (objOI.Getcheklist(RCveEvento)) + if (objOI.Addcheklist(RCveEvento, TxtActividad.Text, UsuarioActual.CveUsuario)) { - GVcheklist.DataSource = objOI.DtResultados; - GVcheklist.DataBind(); - cargaActividades(objOI); + Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion); + if (objOI.Getcheklist(RCveEvento)) + { + GVcheklist.DataSource = objOI.DtResultados; + GVcheklist.DataBind(); + cargaActividades(objOI); + } } } - } + + } + else + { + System.Data.DataRow drow = CheckListNew.NewRow(); + drow["CveEventoCheckList"] = chklistitemindex++; + drow["EventoComentario"] = TxtActividad.Text; + drow["Estatus"] = false; + //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng + CheckListNew.Rows.Add(drow); + GVcheklist.DataSource = CheckListNew; + GVcheklist.DataBind(); + } } - else - { - System.Data.DataRow drow = CheckListNew.NewRow(); - drow["CveEventoCheckList"] = chklistitemindex++; - drow["EventoComentario"] = TxtActividad.Text; - drow["Estatus"] = false; - //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng - CheckListNew.Rows.Add(drow); - GVcheklist.DataSource = CheckListNew; - GVcheklist.DataBind(); - } + TxtActividad.Focus(); TxtActividad.Text = ""; } protected void LnkSinfuncion_Click(object sender, EventArgs e) @@ -793,8 +899,9 @@ public partial class OI_TareaDetalle : ClsPaginas //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1) // EnviarCorreoCambioEstatus(false); //CargaDatos(); - string mensaje = string.Format("Se cambio el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); + string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue); + lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; UpEstatus.Update(); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivCambiarEstatus)); Alert(mensaje, ModExtensiones.TipoMensaje.ToastInformacion); @@ -1561,4 +1668,9 @@ public partial class OI_TareaDetalle : ClsPaginas #endregion + + protected void DDlEstatus_SelectedIndexChanged(object sender, EventArgs e) + { + pnlTerminarPadre.Visible = (DDlEstatus.SelectedValue.ToEntero() > 3 && CveEventoPadre > 0); + } } \ No newline at end of file diff --git a/OI/TareaNueva.ascx b/OI/TareaNueva.ascx deleted file mode 100644 index d56170641..000000000 --- a/OI/TareaNueva.ascx +++ /dev/null @@ -1,270 +0,0 @@ -<%@ Control Language="C#" AutoEventWireup="true" CodeFile="TareaNueva.ascx.cs" Inherits="OI_TareaNueva" %> - - - diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 9dec655aa..a175df128 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -3574,7 +3574,9 @@ Agregar
--%>
- +
+ +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d1b03a74c..01f2facb9 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -754,6 +754,8 @@ Partial Class RH_Personal End If End If CargaLicencias() + LtlTareaNueva.Text = String.Format(" Tarea", CvePersonal) + End If AgregarEventosAsincronosGvVacaciones() End Sub diff --git a/UserControl/TareaNueva.ascx b/UserControl/TareaNueva.ascx new file mode 100644 index 000000000..5ac4b74bf --- /dev/null +++ b/UserControl/TareaNueva.ascx @@ -0,0 +1,322 @@ +<%@ Control Language="C#" AutoEventWireup="true" CodeFile="TareaNueva.ascx.cs" Inherits="UserControl_TareaNueva" %> + + + + + + + + + +

+ Agregar Tarea

+ + + + +
+
+ + Tarea Nueva +
+
+ +
+ +
+ Agregar +
+ +
+
+
+
+ +
+ + + +
+
+ + + +
+ +
+ + + + Para: +
+
+
+
+ + + + <%----%> + +
+
+
+
+ + + + <%----%> + +
+
+
+
+
+
+ + + + + + + + Prioridad: + +
+
+
+
+ + + + Tema: +
+
+
+ + +
+
+ +
+
+
+ +
+
+ + +
+ + + + + + CCP + <%--
+ + --%> + + + + + + + Usuario + + + + + + Rol + + + + + + +
+
+
+ + + + + + + + + + + + + + + + + + + + + + Guardar + + + + + + + + + + + + diff --git a/OI/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs similarity index 76% rename from OI/TareaNueva.ascx.cs rename to UserControl/TareaNueva.ascx.cs index a3b16690c..a70268443 100644 --- a/OI/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -6,11 +6,17 @@ using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; -public partial class OI_TareaNueva : System.Web.UI.UserControl +public partial class UserControl_TareaNueva : System.Web.UI.UserControl { - public const string iddivAgregarTarea = "iddivAgregarTarea"; + //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) { @@ -50,9 +56,24 @@ public partial class OI_TareaNueva : System.Web.UI.UserControl { if (!IsPostBack) { - - CveEventoPadre = -1; - txtCveEventoPadre.Text = "-1"; + 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; @@ -68,7 +89,11 @@ public partial class OI_TareaNueva : System.Web.UI.UserControl protected void BtnopenmodalConPadre_Click(object sender, EventArgs e) { CveEventoPadre = txtCveEventoPadre.Text.ToEntero(); - this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea)); + if (Ismodal) + { + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea.ClientID)); + + } } protected void BtnGuardarTarea_Click(object sender, EventArgs e) @@ -105,7 +130,7 @@ public partial class OI_TareaNueva : System.Web.UI.UserControl } } } - OITipoEventos cveTipoEvento = OITipoEventos.Proyecto; + //OITipoEventos cveTipoEvento = OITipoEventos.Tarea; string asunto = TxtAsunto.Text; string descripcion = TxtDescripcion.Text; int prioridad = DdlPrioridad.SelectedValue.ToEntero(); @@ -229,7 +254,11 @@ public partial class OI_TareaNueva : System.Web.UI.UserControl TxtDescripcion.Text = ""; txtFechaF.Text = ""; txtFechaI.Text = ""; - this.RegistraScript("if(OnAddedTareaNueva){OnAddedTareaNueva();}"); + if (Ismodal) + { + this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTarea.ClientID)); + } + this.RegistraScript(string.Format("if({0}){0}();", OnAddedTareaNueva)); } } else @@ -256,4 +285,42 @@ public partial class OI_TareaNueva : System.Web.UI.UserControl 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("Tema agregada con éxito.", 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 29e07168c..b87da3631 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2,7 +2,6 @@ <%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> <%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> -<%@ Register Src="~/OI/TareaNueva.ascx" TagPrefix="uc1" TagName="TareaNueva" %> @@ -4441,7 +4440,7 @@

- + diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 33970e2d8..5c7644475 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4130,7 +4130,9 @@ Agregar --%>
- Agendar + Agendar
+ + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 861a5605a..9a66c0c68 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -61,7 +61,7 @@ Partial Class Ventas End Property Private Property CveFactura As Integer Get - Return ViewState("CveFactura").ToString.ToEntero + Return ViewState("CveFactura").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveFactura") = value @@ -70,7 +70,7 @@ Partial Class Ventas Private Property idCuentaContabilizacion As Integer Get - Return ViewState("idCuentaContabilizacion").ToString.ToEntero + Return ViewState("idCuentaContabilizacion").ToString().ToEntero() End Get Set(value As Integer) ViewState("idCuentaContabilizacion") = value @@ -163,7 +163,7 @@ Partial Class Ventas Private Property IdPoliza As Integer Get - Return ViewState("IdPoliza").ToString.ToEntero + Return ViewState("IdPoliza").ToString().ToEntero() End Get Set(value As Integer) ViewState("IdPoliza") = value @@ -171,7 +171,7 @@ Partial Class Ventas End Property Private Property CveAlmacenDevolucion As Integer Get - Return ViewState("CveAlmacenDevolucion").ToString.ToEntero + Return ViewState("CveAlmacenDevolucion").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveAlmacenDevolucion") = value @@ -180,7 +180,7 @@ Partial Class Ventas Private Property EraCotizacion As Integer Get - Return ViewState("EraCotizacion").ToString.ToEntero + Return ViewState("EraCotizacion").ToString().ToEntero() End Get Set(value As Integer) ViewState("EraCotizacion") = value @@ -188,7 +188,7 @@ Partial Class Ventas End Property Private Property FacturaMateriales As Integer Get - Return ViewState("FacturaMateriales").ToString.ToEntero + Return ViewState("FacturaMateriales").ToString().ToEntero() End Get Set(value As Integer) ViewState("FacturaMateriales") = value @@ -442,12 +442,12 @@ Partial Class Ventas End Property Private ReadOnly Property CveCliente As Integer Get - Return ViewState("CveCliente").ToString.ToEntero + Return ViewState("CveCliente").ToString().ToEntero() End Get End Property Private ReadOnly Property CveClienteAnterior As Integer Get - Return ViewState("CveClienteAnterior").ToString.ToEntero + Return ViewState("CveClienteAnterior").ToString().ToEntero() End Get End Property @@ -456,7 +456,7 @@ Partial Class Ventas If ViewState("CveClienteSucursal") Is Nothing Then Return -1 Else - Return ViewState("CveClienteSucursal").ToString.ToEntero + Return ViewState("CveClienteSucursal").ToString().ToEntero() End If End Get Set(value As Integer) @@ -468,7 +468,7 @@ Partial Class Ventas If ViewState("CveAnticipo") Is Nothing Then Return -1 Else - Return ViewState("CveAnticipo").ToString.ToEntero + Return ViewState("CveAnticipo").ToString().ToEntero() End If End Get Set(value As Integer) @@ -478,7 +478,7 @@ Partial Class Ventas Private Property CveUsuarioActual As Integer Get - Return ViewState("CveUsuarioActual").ToString.ToEntero + Return ViewState("CveUsuarioActual").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveUsuarioActual") = value @@ -486,27 +486,27 @@ Partial Class Ventas End Property Private ReadOnly Property Mail As String Get - Return ViewState("Mail").ToString + Return ViewState("Mail").ToString() End Get End Property Private ReadOnly Property MailCC As String Get - Return ViewState("MailCC").ToString + Return ViewState("MailCC").ToString() End Get End Property Private ReadOnly Property CveVenta As Integer Get - Return ViewState("CveVenta").ToString.ToEntero + Return ViewState("CveVenta").ToString().ToEntero() End Get End Property Private ReadOnly Property CveSubProyectoVenta As Integer Get - Return If(IsNothing(ViewState("CveSubProyectoVenta")), -1, ViewState("CveSubProyectoVenta").ToString.ToEntero) + Return If(IsNothing(ViewState("CveSubProyectoVenta")), -1, ViewState("CveSubProyectoVenta").ToString().ToEntero()) End Get End Property Private Property CveVentaPadre As Integer Get - Return If(IsNothing(ViewState("CveVentaPadre")), -1, ViewState("CveVentaPadre").ToString.ToEntero) + Return If(IsNothing(ViewState("CveVentaPadre")), -1, ViewState("CveVentaPadre").ToString().ToEntero()) End Get Set(value As Integer) ViewState("CveVentaPadre") = value @@ -514,7 +514,7 @@ Partial Class Ventas End Property Private Property CveEstatusFacturaPadre As Integer Get - Return If(IsNothing(ViewState("CveEstatusFacturaPadre")), -1, ViewState("CveEstatusFacturaPadre").ToString.ToEntero) + Return If(IsNothing(ViewState("CveEstatusFacturaPadre")), -1, ViewState("CveEstatusFacturaPadre").ToString().ToEntero()) End Get Set(value As Integer) ViewState("CveEstatusFacturaPadre") = value @@ -522,7 +522,7 @@ Partial Class Ventas End Property Private Property CveMovimientoDetalle As Integer Get - Return If(IsNothing(ViewState("CveMovimientoDetalle")), -1, ViewState("CveMovimientoDetalle").ToString.ToEntero) + Return If(IsNothing(ViewState("CveMovimientoDetalle")), -1, ViewState("CveMovimientoDetalle").ToString().ToEntero()) End Get Set(value As Integer) ViewState("CveMovimientoDetalle") = value @@ -530,13 +530,13 @@ Partial Class Ventas End Property Private ReadOnly Property CveDevolucion As Integer Get - Return ViewState("CveDevolucion").ToString.ToEntero + Return ViewState("CveDevolucion").ToString().ToEntero() End Get End Property Private Property CveVentaRelacion As Integer Get - Return If(IsNothing(ViewState("CveVentaRelacion")), -1, ViewState("CveVentaRelacion").ToString.ToEntero) + Return If(IsNothing(ViewState("CveVentaRelacion")), -1, ViewState("CveVentaRelacion").ToString().ToEntero()) End Get Set(value As Integer) ViewState("CveVentaRelacion") = value @@ -545,7 +545,7 @@ Partial Class Ventas Private Property ImporteRelacion As Double Get - Return If(IsNothing(ViewState("ImporteRelacion")), 0, ViewState("ImporteRelacion").ToString.ToDouble) + Return If(IsNothing(ViewState("ImporteRelacion")), 0, ViewState("ImporteRelacion").ToString().ToDouble) End Get Set(value As Double) ViewState("ImporteRelacion") = value @@ -554,7 +554,7 @@ Partial Class Ventas Private Property IsTotalxConcepto As Boolean Get - Return If(IsNothing(ViewState("IsTotalxConcepto")), False, CBool(ViewState("IsTotalxConcepto").ToString)) + Return If(IsNothing(ViewState("IsTotalxConcepto")), False, CBool(ViewState("IsTotalxConcepto").ToString())) End Get Set(value As Boolean) ViewState("IsTotalxConcepto") = value @@ -562,27 +562,27 @@ Partial Class Ventas End Property Private ReadOnly Property CveAlmacenTransitorio As Integer Get - Return ViewState("CveAlmacenTransitorio").ToString.ToEntero + Return ViewState("CveAlmacenTransitorio").ToString().ToEntero() End Get End Property Private ReadOnly Property NuevaFactura As Integer Get - Return ViewState("NuevaFactura").ToString.ToEntero + Return ViewState("NuevaFactura").ToString().ToEntero() End Get End Property Private ReadOnly Property VentaFolio As String Get - Return ViewState("VentaFolio").ToString + Return ViewState("VentaFolio").ToString() End Get End Property Private ReadOnly Property SelloCancelacion As String Get - Return ViewState("SelloCancelacion").ToString + Return ViewState("SelloCancelacion").ToString() End Get End Property Private ReadOnly Property FechaCancelacion As DateTime Get - Return ViewState("FechaCancelacion").ToString.ToDateTime + Return ViewState("FechaCancelacion").ToString().ToDateTime End Get End Property Private ReadOnly Property EstablecioFolio As Boolean @@ -592,7 +592,7 @@ Partial Class Ventas End Property Private ReadOnly Property FolioFiscal As String Get - Return ViewState("FolioFiscal").ToString + Return ViewState("FolioFiscal").ToString() End Get End Property Private ReadOnly Property Ruta As String @@ -607,7 +607,7 @@ Partial Class Ventas End Property Private ReadOnly Property TipoCambio As Decimal Get - Return ViewState("TipoCambio").ToString.ToDecimal + Return ViewState("TipoCambio").ToString().ToDecimal End Get End Property Private ReadOnly Property ProcesoCorrecto As Boolean @@ -628,167 +628,167 @@ Partial Class Ventas 'Folios Private ReadOnly Property CveFolio As Integer Get - Return ViewState("CveFolio").ToString.ToEntero + Return ViewState("CveFolio").ToString().ToEntero() End Get End Property Private ReadOnly Property NumAprobacion As Long Get - Return CLng(ViewState("NumAprobacion").ToString) + Return CLng(ViewState("NumAprobacion").ToString()) End Get End Property Private ReadOnly Property FechaAprobacion As Date Get - Return ViewState("FechaAprobacion").ToString.ToDate + Return ViewState("FechaAprobacion").ToString().ToDate End Get End Property Private ReadOnly Property FolioActual As String Get - Return ViewState("FolioActual").ToString + Return ViewState("FolioActual").ToString() End Get End Property 'Sucursal Private ReadOnly Property Serie As String Get - Return ViewState("Serie").ToString + Return ViewState("Serie").ToString() End Get End Property Private ReadOnly Property Folio As Integer Get - Return ViewState("Folio").ToString.ToEntero + Return ViewState("Folio").ToString().ToEntero() End Get End Property Private ReadOnly Property FormatoFactura As String Get - Return ViewState("FormatoFactura").ToString + Return ViewState("FormatoFactura").ToString() End Get End Property Private ReadOnly Property TipoFormato As String Get - Return ViewState("TipoFormato").ToString + Return ViewState("TipoFormato").ToString() End Get End Property Private ReadOnly Property IVA As Decimal Get - Return ViewState("IVA").ToString.ToDecimal + Return ViewState("IVA").ToString().ToDecimal End Get End Property 'Private ReadOnly Property SubProyectoPorcentajeIVA As Decimal ' Get - ' Return ViewState("SubProyectoPorcentajeIVA").ToString.ToDecimal + ' Return ViewState("SubProyectoPorcentajeIVA").ToString().ToDecimal ' End Get 'End Property Private ReadOnly Property ClienteRetIVA As Decimal Get - Return ViewState("ClienteRetIVA").ToString.ToDecimal + Return ViewState("ClienteRetIVA").ToString().ToDecimal End Get End Property Private ReadOnly Property ClienteRetISR As Decimal Get - Return ViewState("ClienteRetISR").ToString.ToDecimal + Return ViewState("ClienteRetISR").ToString().ToDecimal End Get End Property Private ReadOnly Property ClienteDesglosaIEPS As Boolean Get - Return CType(ViewState("ClienteDesglosaIEPS").ToString, Boolean) + Return CType(ViewState("ClienteDesglosaIEPS").ToString(), Boolean) End Get End Property 'Cliente Private ReadOnly Property NombreCliente As String Get - Return ViewState("NombreCliente").ToString + Return ViewState("NombreCliente").ToString() End Get End Property Private ReadOnly Property Vendedor As String Get - Return ViewState("Vendedor").ToString + Return ViewState("Vendedor").ToString() End Get End Property Private ReadOnly Property CtaContable As String Get - Return ViewState("CtaContable").ToString + Return ViewState("CtaContable").ToString() End Get End Property Private ReadOnly Property IdCtaContClientes As Integer Get - Return ViewState("IdCtaContClientes").ToString.ToEntero + Return ViewState("IdCtaContClientes").ToString().ToEntero() End Get End Property Private ReadOnly Property CveCuentaClientes As Integer Get - Return ViewState("CveCuentaClientes").ToString.ToEntero + Return ViewState("CveCuentaClientes").ToString().ToEntero() End Get End Property Private ReadOnly Property IdCtaContMonedaExtranjera As Integer Get - Return ViewState("IdCtaContMonedaExtranjera").ToString.ToEntero + Return ViewState("IdCtaContMonedaExtranjera").ToString().ToEntero() End Get End Property Private ReadOnly Property IdCtaContComplementaria As Integer Get - Return ViewState("IdCtaContComplementaria").ToString.ToEntero + Return ViewState("IdCtaContComplementaria").ToString().ToEntero() End Get End Property Private ReadOnly Property IdCtaContAnticipos As Integer Get - Return ViewState("IdCtaContAnticipos").ToString.ToEntero + Return ViewState("IdCtaContAnticipos").ToString().ToEntero() End Get End Property Private ReadOnly Property CveCuentaAnticipos As Integer Get - Return ViewState("CveCuentaAnticipos").ToString.ToEntero + Return ViewState("CveCuentaAnticipos").ToString().ToEntero() End Get End Property Private ReadOnly Property IdCtaContRetIVA As Integer Get - Return ViewState("IdCtaContRetIVA").ToString.ToEntero + Return ViewState("IdCtaContRetIVA").ToString().ToEntero() End Get End Property Private ReadOnly Property CveCuentaRetIVA As Integer Get - Return ViewState("CveCuentaRetIVA").ToString.ToEntero + Return ViewState("CveCuentaRetIVA").ToString().ToEntero() End Get End Property Private ReadOnly Property IdCtaContRetISR As Integer Get - Return ViewState("IdCtaContRetISR").ToString.ToEntero + Return ViewState("IdCtaContRetISR").ToString().ToEntero() End Get End Property Private ReadOnly Property CveCuentaRetISR As Integer Get - Return ViewState("CveCuentaRetISR").ToString.ToEntero + Return ViewState("CveCuentaRetISR").ToString().ToEntero() End Get End Property Private ReadOnly Property CodCliente As String Get - Return ViewState("CodCliente").ToString + Return ViewState("CodCliente").ToString() End Get End Property Private ReadOnly Property CliNoExt As String Get - Return ViewState("CliNoExt").ToString + Return ViewState("CliNoExt").ToString() End Get End Property Private ReadOnly Property CliNoInt As String Get - Return ViewState("CliNoInt").ToString + Return ViewState("CliNoInt").ToString() End Get End Property Private ReadOnly Property CliLocalidad As String Get - Return ViewState("CliLocalidad").ToString + Return ViewState("CliLocalidad").ToString() End Get End Property Private ReadOnly Property CliPais As String Get - Return ViewState("CliPais").ToString + Return ViewState("CliPais").ToString() End Get End Property Private ReadOnly Property SucCalle As String Get - Return ViewState("SucCalle").ToString + Return ViewState("SucCalle").ToString() End Get End Property Private ReadOnly Property CliCorreoCot As String @@ -796,93 +796,93 @@ Partial Class Ventas If ViewState("CliCorreoCot") Is Nothing Then Return "" Else - Return ViewState("CliCorreoCot").ToString + Return ViewState("CliCorreoCot").ToString() End If End Get End Property Private ReadOnly Property SucNoExt As String Get - Return ViewState("SucNoExt").ToString + Return ViewState("SucNoExt").ToString() End Get End Property Private ReadOnly Property SucNoInt As String Get - Return ViewState("SucNoInt").ToString + Return ViewState("SucNoInt").ToString() End Get End Property Private ReadOnly Property SucColonia As String Get - Return ViewState("SucColonia").ToString + Return ViewState("SucColonia").ToString() End Get End Property Private ReadOnly Property SucLocalidad As String Get - Return ViewState("SucLocalidad").ToString + Return ViewState("SucLocalidad").ToString() End Get End Property Private ReadOnly Property SucMunicipio As String Get - Return ViewState("SucMunicipio").ToString + Return ViewState("SucMunicipio").ToString() End Get End Property Private ReadOnly Property SucEstado As String Get - Return ViewState("SucEstado").ToString + Return ViewState("SucEstado").ToString() End Get End Property Private ReadOnly Property SucPais As String Get - Return ViewState("SucPais").ToString + Return ViewState("SucPais").ToString() End Get End Property Private ReadOnly Property SucCP As String Get - Return ViewState("SucCP").ToString + Return ViewState("SucCP").ToString() End Get End Property Private ReadOnly Property MatCalle As String Get - Return ViewState("MatCalle").ToString + Return ViewState("MatCalle").ToString() End Get End Property Private ReadOnly Property MatNoExt As String Get - Return ViewState("MatNoExt").ToString + Return ViewState("MatNoExt").ToString() End Get End Property Private ReadOnly Property MatNoInt As String Get - Return ViewState("MatNoInt").ToString + Return ViewState("MatNoInt").ToString() End Get End Property Private ReadOnly Property MatColonia As String Get - Return ViewState("MatColonia").ToString + Return ViewState("MatColonia").ToString() End Get End Property Private ReadOnly Property MatLocalidad As String Get - Return ViewState("MatLocalidad").ToString + Return ViewState("MatLocalidad").ToString() End Get End Property Private ReadOnly Property MatMunicipio As String Get - Return ViewState("MatMunicipio").ToString + Return ViewState("MatMunicipio").ToString() End Get End Property Private ReadOnly Property MatEstado As String Get - Return ViewState("MatEstado").ToString + Return ViewState("MatEstado").ToString() End Get End Property Private ReadOnly Property MatPais As String Get - Return ViewState("MatPais").ToString + Return ViewState("MatPais").ToString() End Get End Property Private ReadOnly Property MatCP As String Get - Return ViewState("MatCP").ToString + Return ViewState("MatCP").ToString() End Get End Property Private Property ImprimeNombreSucursal As Boolean @@ -930,17 +930,17 @@ Partial Class Ventas End Property Private ReadOnly Property CveOS As Integer Get - Return ViewState("CveOS").ToString.ToEntero + Return ViewState("CveOS").ToString().ToEntero() End Get End Property Private ReadOnly Property SaldoVenta As Decimal Get - Return If(IsNothing(ViewState("SaldoVenta")), 0, ViewState("SaldoVenta").ToString.ToDecimal) + Return If(IsNothing(ViewState("SaldoVenta")), 0, ViewState("SaldoVenta").ToString().ToDecimal) End Get End Property Private Property CvePSAmortizacion As Integer Get - Return ViewState("CvePSAmortizacion").ToString.ToEntero + Return ViewState("CvePSAmortizacion").ToString().ToEntero() End Get Set(value As Integer) @@ -960,7 +960,7 @@ Partial Class Ventas Private Property CvePrePoliza As Integer Get - Return ViewState("CvePrePoliza").ToString.ToEntero + Return ViewState("CvePrePoliza").ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePrePoliza") = value @@ -973,7 +973,7 @@ Partial Class Ventas End Property Private Property CveVentaFacturada As Integer Get - Return ViewState("CveVentaFacturada").ToString.ToEntero + Return ViewState("CveVentaFacturada").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveVentaFacturada") = value @@ -987,7 +987,7 @@ Partial Class Ventas 'Estimaciones Private Property CveContrato As Integer Get - Return ViewState("CveContrato").ToString.ToEntero + Return ViewState("CveContrato").ToString().ToEntero() End Get Set(value As Integer) @@ -996,7 +996,7 @@ Partial Class Ventas End Property Private Property CvePedido As Integer Get - Return ViewState("CvePedido").ToString.ToEntero + Return ViewState("CvePedido").ToString().ToEntero() End Get Set(value As Integer) @@ -1005,7 +1005,7 @@ Partial Class Ventas End Property Private Property CvePedido2 As Integer Get - Return ViewState("CvePedido2").ToString.ToEntero + Return ViewState("CvePedido2").ToString().ToEntero() End Get Set(value As Integer) @@ -1014,7 +1014,7 @@ Partial Class Ventas End Property Private Property TipoContrato As Integer Get - Return ViewState("TipoContrato").ToString.ToEntero + Return ViewState("TipoContrato").ToString().ToEntero() End Get Set(value As Integer) @@ -1023,7 +1023,7 @@ Partial Class Ventas End Property Private Property Opcion As String Get - Return ViewState("Opcion").ToString + Return ViewState("Opcion").ToString() End Get Set(value As String) @@ -1043,7 +1043,7 @@ Partial Class Ventas 'Presupuesto Private Property CvePresupuesto As Integer Get - Return ViewState("CvePresupuesto").ToString.ToEntero + Return ViewState("CvePresupuesto").ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePresupuesto") = value @@ -1051,7 +1051,7 @@ Partial Class Ventas End Property Private Property TotalOtrosConceptos As Decimal Get - Return ViewState("TotalOtrosConceptos").ToString.ToDecimal + Return ViewState("TotalOtrosConceptos").ToString().ToDecimal End Get Set(value As Decimal) ViewState("TotalOtrosConceptos") = value @@ -1059,7 +1059,7 @@ Partial Class Ventas End Property Private Property TipoCambioFactura As Decimal Get - Return ViewState("TipoCambioFactura").ToString.ToDecimal + Return ViewState("TipoCambioFactura").ToString().ToDecimal End Get Set(value As Decimal) ViewState("TipoCambioFactura") = value @@ -1076,7 +1076,7 @@ Partial Class Ventas End Property Private Property DevolucionAlmacen As Integer Get - Return ViewState("DevolucionAlmacen").ToString.ToEntero + Return ViewState("DevolucionAlmacen").ToString().ToEntero() End Get Set(value As Integer) ViewState("DevolucionAlmacen") = value @@ -1092,12 +1092,12 @@ Partial Class Ventas End Property Private ReadOnly Property TipoDoctoDevolucion As String Get - Return ViewState("TipoDoctoDevolucion").ToString + Return ViewState("TipoDoctoDevolucion").ToString() End Get End Property Private Property PlazoCobranza As Integer Get - Return ViewState("PlazoCobranza").ToString.ToEntero + Return ViewState("PlazoCobranza").ToString().ToEntero() End Get Set(value As Integer) ViewState("PlazoCobranza") = value @@ -1105,7 +1105,7 @@ Partial Class Ventas End Property Private Property PlazoCobranzaRemision As Integer Get - Return ViewState("PlazoCobranzaRemision").ToString.ToEntero + Return ViewState("PlazoCobranzaRemision").ToString().ToEntero() End Get Set(value As Integer) ViewState("PlazoCobranzaRemision") = value @@ -1115,7 +1115,7 @@ Partial Class Ventas 'CvePAC Private Property CvePAC As Integer Get - Return ViewState("CvePAC").ToString.ToEntero + Return ViewState("CvePAC").ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePAC") = value @@ -1141,7 +1141,7 @@ Partial Class Ventas End Property Private Property SaldoVentaDevolucion As Decimal Get - Return ViewState("SaldoVentaDevolucion").ToString.ToDecimal + Return ViewState("SaldoVentaDevolucion").ToString().ToDecimal End Get Set(value As Decimal) ViewState("SaldoVentaDevolucion") = value @@ -1166,7 +1166,7 @@ Partial Class Ventas End Property Private Property PorcentajeIVA As Decimal Get - Return ViewState("PorcentajeIVA").ToString.ToDecimal + Return ViewState("PorcentajeIVA").ToString().ToDecimal End Get Set(value As Decimal) ViewState("PorcentajeIVA") = value @@ -1212,7 +1212,7 @@ Partial Class Ventas Private Property CveCorte As Integer Get - Return ViewState("CveCorte").ToString.ToEntero + Return ViewState("CveCorte").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveCorte") = value @@ -1221,7 +1221,7 @@ Partial Class Ventas Private Property Entrega As String Get - Return ViewState("Entrega").ToString + Return ViewState("Entrega").ToString() End Get Set(value As String) ViewState("Entrega") = value @@ -1230,7 +1230,7 @@ Partial Class Ventas Private Property Vigencia As String Get - Return ViewState("Vigencia").ToString + Return ViewState("Vigencia").ToString() End Get Set(value As String) ViewState("Vigencia") = value @@ -1239,7 +1239,7 @@ Partial Class Ventas Private Property DineroCaja As Double Get - Return ViewState("DineroCaja").ToString.ToDouble + Return ViewState("DineroCaja").ToString().ToDouble End Get Set(value As Double) ViewState("DineroCaja") = value @@ -1248,7 +1248,7 @@ Partial Class Ventas Private ReadOnly Property CveCicloComercial As Integer Get - Return ViewState("CveCicloComercial").ToString.ToEntero + Return ViewState("CveCicloComercial").ToString().ToEntero() End Get End Property @@ -1265,7 +1265,7 @@ Partial Class Ventas End Property Private Property NumeroContrato As String Get - Return ViewState("NumeroContrato").ToString + Return ViewState("NumeroContrato").ToString() End Get Set(value As String) ViewState("NumeroContrato") = value @@ -1273,7 +1273,7 @@ Partial Class Ventas End Property Private Property DescripcionContrato As String Get - Return ViewState("DescripcionContrato").ToString + Return ViewState("DescripcionContrato").ToString() End Get Set(value As String) ViewState("DescripcionContrato") = value @@ -1281,7 +1281,7 @@ Partial Class Ventas End Property Private Property NumeroLicitacion As String Get - Return ViewState("NumeroLicitacion").ToString + Return ViewState("NumeroLicitacion").ToString() End Get Set(value As String) ViewState("NumeroLicitacion") = value @@ -1289,7 +1289,7 @@ Partial Class Ventas End Property Private Property CveAlmacenExistenciasContrato As Integer Get - Return ViewState("CveAlmacenExistenciasContrato").ToString.ToEntero + Return ViewState("CveAlmacenExistenciasContrato").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveAlmacenExistenciasContrato") = value @@ -1297,7 +1297,7 @@ Partial Class Ventas End Property Private Property CveAlmacenOrigenContrato As Integer Get - Return ViewState("CveAlmacenOrigenContrato").ToString.ToEntero + Return ViewState("CveAlmacenOrigenContrato").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveAlmacenOrigenContrato") = value @@ -1392,7 +1392,7 @@ Partial Class Ventas #Region " PROPIEDADES NUEVAS " Private Property CveOC As Integer Get - Return ViewState("CveOC").ToString.ToEntero + Return ViewState("CveOC").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveOC") = value @@ -1411,7 +1411,7 @@ Partial Class Ventas Private Property EnviarCorreoCliente As Boolean Get - Return CBool(ViewState("EnviarCorreoCliente").ToString) + Return CBool(ViewState("EnviarCorreoCliente").ToString()) End Get Set(value As Boolean) ViewState("EnviarCorreoCliente") = value @@ -1419,7 +1419,7 @@ Partial Class Ventas End Property Private Property EstatusCliente As Boolean Get - Return CBool(ViewState("EstatusCliente").ToString) + Return CBool(ViewState("EstatusCliente").ToString()) End Get Set(value As Boolean) ViewState("EstatusCliente") = value @@ -1427,7 +1427,7 @@ Partial Class Ventas End Property Private Property CveMetodoPagoCliente As Integer Get - Return ViewState("CveMetodoPagoCliente").ToString.ToEntero + Return ViewState("CveMetodoPagoCliente").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveMetodoPagoCliente") = value @@ -1435,7 +1435,7 @@ Partial Class Ventas End Property Private Property Modalidad As String Get - Return ViewState("Modalidad").ToString + Return ViewState("Modalidad").ToString() End Get Set(value As String) ViewState("Modalidad") = value @@ -1443,7 +1443,7 @@ Partial Class Ventas End Property Private Property Index As Integer Get - Return ViewState("Index").ToString.ToEntero + Return ViewState("Index").ToString().ToEntero() End Get Set(value As Integer) ViewState("Index") = value @@ -1451,7 +1451,7 @@ Partial Class Ventas End Property Private Property TotAnt As Decimal Get - Return ViewState("TotAnt").ToString.ToDecimal + Return ViewState("TotAnt").ToString().ToDecimal End Get Set(value As Decimal) ViewState("TotAnt") = value @@ -1459,7 +1459,7 @@ Partial Class Ventas End Property Private Property TotalOriginal As Double Get - Return ViewState("TotalOriginal").ToString.ToDouble + Return ViewState("TotalOriginal").ToString().ToDouble End Get Set(value As Double) ViewState("TotalOriginal") = value @@ -1468,7 +1468,7 @@ Partial Class Ventas Private Property AplicaCancelarRemision As Boolean Get - Return CBool(ViewState("AplicaCancelarRemision").ToString) + Return CBool(ViewState("AplicaCancelarRemision").ToString()) End Get Set(value As Boolean) ViewState("AplicaCancelarRemision") = value @@ -1476,7 +1476,7 @@ Partial Class Ventas End Property Private Property TipoVentaSucursal As Integer Get - Return ViewState("TipoVentaSucursal").ToString.ToEntero + Return ViewState("TipoVentaSucursal").ToString().ToEntero() End Get Set(value As Integer) ViewState("TipoVentaSucursal") = value @@ -1493,7 +1493,7 @@ Partial Class Ventas End Property Private Property EditoRemision As Boolean Get - Return CBool(ViewState("EditoRemision").ToString) + Return CBool(ViewState("EditoRemision").ToString()) End Get Set(value As Boolean) ViewState("EditoRemision") = value @@ -1501,7 +1501,7 @@ Partial Class Ventas End Property Private Property AplicaNC As Boolean Get - Return CBool(ViewState("AplicaNC").ToString) + Return CBool(ViewState("AplicaNC").ToString()) End Get Set(value As Boolean) ViewState("AplicaNC") = value @@ -1517,7 +1517,7 @@ Partial Class Ventas End Property Private Property AplicaNCMasiva As Boolean Get - Return CBool(ViewState("AplicaNCMasiva").ToString) + Return CBool(ViewState("AplicaNCMasiva").ToString()) End Get Set(value As Boolean) ViewState("AplicaNCMasiva") = value @@ -1525,7 +1525,7 @@ Partial Class Ventas End Property Private Property RefacturacionGeneroNC As Boolean Get - Return CBool(ViewState("RefacturacionGeneroNC").ToString) + Return CBool(ViewState("RefacturacionGeneroNC").ToString()) End Get Set(value As Boolean) ViewState("RefacturacionGeneroNC") = value @@ -1533,7 +1533,7 @@ Partial Class Ventas End Property Private Property ModalidadEdicion As Boolean Get - Return CBool(ViewState("ModalidadEdicion").ToString) + Return CBool(ViewState("ModalidadEdicion").ToString()) End Get Set(value As Boolean) ViewState("ModalidadEdicion") = value @@ -1541,7 +1541,7 @@ Partial Class Ventas End Property Private Property ConversionRemision As String Get - Return ViewState("ConversionRemision").ToString + Return ViewState("ConversionRemision").ToString() End Get Set(value As String) ViewState("ConversionRemision") = value @@ -1549,7 +1549,7 @@ Partial Class Ventas End Property Private Property TipoCambioRemision As Decimal Get - Return ViewState("TipoCambioRemision").ToString.ToDecimal + Return ViewState("TipoCambioRemision").ToString().ToDecimal End Get Set(value As Decimal) ViewState("TipoCambioRemision") = value @@ -1557,7 +1557,7 @@ Partial Class Ventas End Property Private Property TieneContrato As Boolean Get - Return CBool(ViewState("TieneContrato").ToString) + Return CBool(ViewState("TieneContrato").ToString()) End Get Set(value As Boolean) ViewState("TieneContrato") = value @@ -1565,7 +1565,7 @@ Partial Class Ventas End Property Private Property CveOrdenCompraContrato As Integer Get - Return ViewState("CveOrdenCompraContrato").ToString.ToEntero + Return ViewState("CveOrdenCompraContrato").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveOrdenCompraContrato") = value @@ -1582,7 +1582,7 @@ Partial Class Ventas End Property Private Property RequiereOC As Boolean Get - Return CBool(ViewState("RequiereOC").ToString) + Return CBool(ViewState("RequiereOC").ToString()) End Get Set(value As Boolean) ViewState("RequiereOC") = value @@ -1590,7 +1590,7 @@ Partial Class Ventas End Property Private Property PorcentajeCredito As Decimal Get - Return ViewState("PorcentajeCredito").ToString.ToDecimal + Return ViewState("PorcentajeCredito").ToString().ToDecimal End Get Set(value As Decimal) ViewState("PorcentajeCredito") = value @@ -1598,7 +1598,7 @@ Partial Class Ventas End Property Private Property CvePedidoA As Integer Get - Return ViewState("CvePedidoA").ToString.ToEntero + Return ViewState("CvePedidoA").ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePedidoA") = value @@ -1607,7 +1607,7 @@ Partial Class Ventas Private Property CveEmpresaCRM As Integer Get - Return ViewState("CveEmpresaCRM").ToString.ToEntero + Return ViewState("CveEmpresaCRM").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveEmpresaCRM") = value @@ -1616,7 +1616,7 @@ Partial Class Ventas Private Property CveAcercamientoCRM As Integer Get - Return ViewState("CveAcercamientoCRM").ToString.ToEntero + Return ViewState("CveAcercamientoCRM").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveAcercamientoCRM") = value @@ -1642,7 +1642,7 @@ Partial Class Ventas Private Property CveEstatus As Integer Get - Return ViewState("CveEstatus").ToString.ToEntero + Return ViewState("CveEstatus").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveEstatus") = value @@ -1650,7 +1650,7 @@ Partial Class Ventas End Property Private Property DiasCredito As Integer Get - Return ViewState("DiasCredito").ToString.ToEntero + Return ViewState("DiasCredito").ToString().ToEntero() End Get Set(value As Integer) ViewState("DiasCredito") = value @@ -1658,7 +1658,7 @@ Partial Class Ventas End Property Private Property EsDiasCreditoFijo As Boolean Get - Return CBool(ViewState("EsDiasCreditoFijo").ToString) + Return CBool(ViewState("EsDiasCreditoFijo").ToString()) End Get Set(value As Boolean) ViewState("EsDiasCreditoFijo") = value @@ -1666,7 +1666,7 @@ Partial Class Ventas End Property Private Property VentaSaldoAlmacen As Decimal Get - Return ViewState("VentaSaldoAlmacen").ToString.ToDecimal + Return ViewState("VentaSaldoAlmacen").ToString().ToDecimal End Get Set(value As Decimal) ViewState("VentaSaldoAlmacen") = value @@ -1682,7 +1682,7 @@ Partial Class Ventas End Property Private Property SeCancelaRemisionProceso As Boolean Get - Return CBool(ViewState("SeCancelaRemisionProceso").ToString) + Return CBool(ViewState("SeCancelaRemisionProceso").ToString()) End Get Set(value As Boolean) ViewState("SeCancelaRemisionProceso") = value @@ -1691,7 +1691,7 @@ Partial Class Ventas Private Property CvePrecioLista As Integer Get - Return ViewState("CvePrecioLista").ToString.ToEntero + Return ViewState("CvePrecioLista").ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePrecioLista") = value @@ -1707,7 +1707,7 @@ Partial Class Ventas If ViewState("ClienteEsDistribuidor") Is Nothing Then Return False Else - Return Boolean.Parse(ViewState("ClienteEsDistribuidor").ToString) + Return Boolean.Parse(ViewState("ClienteEsDistribuidor").ToString()) End If End Get Set(value As Boolean) @@ -1840,7 +1840,7 @@ Partial Class Ventas DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2")) - If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then + If UsuarioActual.Empresa.Funcionalidad(344).ToString() = "1" Then DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("NC de Remisión", "RNC")) DivBtnRemNC.Visible = True DivTxtRemNC.Visible = True @@ -1857,7 +1857,7 @@ Partial Class Ventas TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();") End If - If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" Then + If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then thPoliza.Visible = True thPoliza2.Visible = True End If @@ -1870,8 +1870,8 @@ Partial Class Ventas CvePresupuesto = 0 'MODALIDADES - If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then - Opcion = Request("Op").ToString + If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then + Opcion = Request("Op").ToString() LblTitulo.Text = "Registro de Cotizaciones" TrTipo.Visible = False TabAlmacen.Visible = False @@ -1984,14 +1984,14 @@ Partial Class Ventas End If 'Carga cliente - If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 AndAlso Request("CveFactura") Is Nothing Then + If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 AndAlso Request("CveFactura") Is Nothing Then ViewState("CveCliente") = Request("CveCliente") HdnCveCliente.Value = Request("CveCliente") CargaCliente(CveCliente) VerificarContrato(True) - ElseIf Request("CveFactura") IsNot Nothing AndAlso IsNumeric(Request("CveFactura")) AndAlso Request("CveFactura").ToEntero > 0 AndAlso Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then + ElseIf Request("CveFactura") IsNot Nothing AndAlso IsNumeric(Request("CveFactura")) AndAlso Request("CveFactura").ToEntero() > 0 AndAlso Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then ViewState("CveCliente") = Request("CveCliente") - ViewState("CveFactura") = Request("CveFactura").ToEntero + ViewState("CveFactura") = Request("CveFactura").ToEntero() Dim RFC As String = CargaFactura(CveFactura) CargaCliente(CveCliente) Else @@ -2000,14 +2000,14 @@ Partial Class Ventas End If 'Carga empresa CRM - If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then + If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero() > 0 Then ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM") CargaEmpresaCRM(CveEmpresaCRM) Else ViewState("CveEmpresaCRM") = -1 End If - If Request("CveAcercamientoCRM") IsNot Nothing AndAlso IsNumeric(Request("CveAcercamientoCRM")) AndAlso Request("CveAcercamientoCRM").ToEntero > 0 Then + If Request("CveAcercamientoCRM") IsNot Nothing AndAlso IsNumeric(Request("CveAcercamientoCRM")) AndAlso Request("CveAcercamientoCRM").ToEntero() > 0 Then ViewState("CveAcercamientoCRM") = Request("CveAcercamientoCRM") Else ViewState("CveAcercamientoCRM") = -1 @@ -2029,7 +2029,7 @@ Partial Class Ventas 'Carga Venta - If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then + If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then ViewState("CveVenta") = Request("CveVenta") If CargaVenta() Then @@ -2096,12 +2096,12 @@ Partial Class Ventas End If Else - If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero > 0 Then + If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then ViewState("CveOS") = Request("CveOS") CargaOS(CveOS) Else 'Modalidad Devoluciones y Refacturacion - If Request("CveDevolucion") IsNot Nothing AndAlso IsNumeric(Request("CveDevolucion")) AndAlso Request("CveDevolucion").ToEntero > 0 Then + If Request("CveDevolucion") IsNot Nothing AndAlso IsNumeric(Request("CveDevolucion")) AndAlso Request("CveDevolucion").ToEntero() > 0 Then ViewState("CveDevolucion") = Request("CveDevolucion") ViewState("CveVenta") = Request("CveDevolucion") ViewState("NuevaFactura") = Request("NuevaFactura") @@ -2109,7 +2109,7 @@ Partial Class Ventas trNCFactura.Visible = True DdlNCFactura.DataSource = Nothing DdlNCFactura.DataBind() - CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString.ToEntero) + CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString().ToEntero()) DdlNCFactura.SelectedValueExist(CveDevolucion) If NuevaFactura = 0 Then @@ -2177,16 +2177,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() @@ -2204,7 +2204,7 @@ Partial Class Ventas End If 'Modalidad Contrato - If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then + If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then TrAlmacenOrigen.Visible = False If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then TrAlmacenAsignado.Visible = True @@ -2212,8 +2212,8 @@ Partial Class Ventas End If UPCondicionesPago.Visible = False RequiereAlmacenDestino = True - CveContrato = Request("CveContrato").ToEntero - TipoContrato = Request("Tipo").ToEntero + CveContrato = Request("CveContrato").ToEntero() + TipoContrato = Request("Tipo").ToEntero() 'DESACTIVA CAMBIO DE CLIENTE HlCliente.Attributes.Remove("class") @@ -2225,17 +2225,17 @@ Partial Class Ventas End If 'Modalidad CveCicloComercial - If Request("CveCicloComercial") IsNot Nothing AndAlso IsNumeric(Request("CveCicloComercial")) AndAlso Request("CveCicloComercial").ToEntero > 0 Then - ViewState("CveCicloComercial") = Request("CveCicloComercial").ToEntero + If Request("CveCicloComercial") IsNot Nothing AndAlso IsNumeric(Request("CveCicloComercial")) AndAlso Request("CveCicloComercial").ToEntero() > 0 Then + ViewState("CveCicloComercial") = Request("CveCicloComercial").ToEntero() CargaCicloComercialURL() UpParametros.Update() End If 'Modalidad Devolucion Pedido **REVISAR SI SE USA - If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 AndAlso Request("CvePedido") IsNot Nothing AndAlso IsNumeric(Request("CvePedido")) AndAlso Request("CvePedido").ToEntero > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 2 Then - CveContrato = Request("CveContrato").ToEntero - CvePedido = Request("CvePedido").ToEntero - TipoContrato = Request("Tipo").ToEntero + If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("CvePedido") IsNot Nothing AndAlso IsNumeric(Request("CvePedido")) AndAlso Request("CvePedido").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero() = 2 Then + CveContrato = Request("CveContrato").ToEntero() + CvePedido = Request("CvePedido").ToEntero() + TipoContrato = Request("Tipo").ToEntero() ''REQUIERE DEVOLUCION 'DdlDevolucionAlmacen.SelectedValue = "1" @@ -2246,10 +2246,10 @@ Partial Class Ventas End If 'MODALIDAD DEVOLUCION PEDIDO NUEVO - If Request("DevPed") IsNot Nothing AndAlso IsNumeric(Request("DevPed")) AndAlso Request("DevPed").ToEntero > 0 AndAlso Request("MovInv") IsNot Nothing AndAlso IsNumeric(Request("MovInv")) AndAlso Request("MovInv").ToEntero > 0 Then + If Request("DevPed") IsNot Nothing AndAlso IsNumeric(Request("DevPed")) AndAlso Request("DevPed").ToEntero() > 0 AndAlso Request("MovInv") IsNot Nothing AndAlso IsNumeric(Request("MovInv")) AndAlso Request("MovInv").ToEntero() > 0 Then ViewState("CveVenta") = Request("DevPed") ViewState("MovInv") = Request("MovInv") - ViewState("CveMovimientoDetalle") = IfNull(Request("CveMovimientoDetalle"), "-1").ToString.ToEntero + ViewState("CveMovimientoDetalle") = IfNull(Request("CveMovimientoDetalle"), "-1").ToString().ToEntero() DdlTipoComprobante.Items.Insert(5, New ListItem("Devolución de perdido", "DPe")) DdlTipoComprobante.SelectedValue = "DPe" DdlTipoComprobante.Enabled = False @@ -2267,8 +2267,8 @@ Partial Class Ventas DdlTipoComprobante_SelectedIndexChanged(sender, Nothing) 'Carga CvePresupuesto - If Request("CvePresupuesto") IsNot Nothing AndAlso IsNumeric(Request("CvePresupuesto")) AndAlso Request("CvePresupuesto").ToEntero > 0 Then - CvePresupuesto = Request("CvePresupuesto").ToEntero + If Request("CvePresupuesto") IsNot Nothing AndAlso IsNumeric(Request("CvePresupuesto")) AndAlso Request("CvePresupuesto").ToEntero() > 0 Then + CvePresupuesto = Request("CvePresupuesto").ToEntero() 'DdlEstatus.Enabled = False End If @@ -2291,16 +2291,16 @@ Partial Class Ventas End If 'CARGA PARA FACTURAR - ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero, 0) - ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero, 0) + ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0) + ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0) - If ViewState("CveCotizacion").ToString.ToEntero > 0 Then + If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then EsCreaApartirDe = True End If - If ViewState("CveRemision").ToString.ToEntero > 0 Or ViewState("CveCotizacion").ToString.ToEntero > 0 Then + If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then 'ViewState("CveRemision") = Request("CveRemision") - 'Dim CveRemision As Integer = ViewState("CveRemision").ToString.ToEntero + 'Dim CveRemision As Integer = ViewState("CveRemision").ToString().ToEntero() CargaVenta() @@ -2340,8 +2340,8 @@ Partial Class Ventas 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE If UsuarioActual.CveVendedor > 0 Then - If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString) - If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If 'multiples vendedores visible @@ -2350,7 +2350,7 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(301).ToEntero > 0 Then + If UsuarioActual.Empresa.Funcionalidad(301).ToEntero() > 0 Then TxtFecha.Enabled = False ImgFecha.Visible = False End If @@ -2530,20 +2530,20 @@ Partial Class Ventas CargaMetodosPSModal() 'CARGA VALORES DE ORDEN DE PRODUCCION - Dim CveOrdenProduccion = IfNull(Request("CveOrdenProduccion"), "-1").ToString.ToEntero + Dim CveOrdenProduccion = IfNull(Request("CveOrdenProduccion"), "-1").ToString().ToEntero() If CveOrdenProduccion > 0 And Not CveVenta > 0 Then DdlOrdenProduccion.SelectedValueExist(CveOrdenProduccion) - If DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then + If DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then DdlTipoComprobante.SelectedValue = "Rem" DdlMoneda.SelectedValue = "2" Dim ObjCGame As New ClsCGame - If ObjCGame.GetAvance(DdlOrdenProduccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjCGame.GetAvance(DdlOrdenProduccion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then For Each dt As DataRow In ObjCGame.DtResultados.Rows - If dt("Avance").ToString.ToEntero > 0 Then - AgregarProductoServicio(dt("Avance").ToString.ToDecimal, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString, dt("PU").ToString.ToDecimal, 0, - DdlProyecto.SelectedValue.ToEntero, DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text) - 'AddPS(dt("Avance").ToString.ToDouble, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString, dt("PU").ToString.ToDouble, 0, 0, 0, 1, 0, True, - ' "", DdlProyecto.SelectedValue.ToEntero, DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, 2, HdnTipoInv.Value.ToEntero) + If dt("Avance").ToString().ToEntero() > 0 Then + AgregarProductoServicio(dt("Avance").ToString().ToDecimal, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDecimal, 0, + DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text) + 'AddPS(dt("Avance").ToString().ToDouble, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDouble, 0, 0, 0, 1, 0, True, + ' "", DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text, 2, HdnTipoInv.Value.ToEntero()) End If Next GvPS.DataSource = TmpDT @@ -2560,7 +2560,7 @@ Partial Class Ventas End If - If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero = -1 AndAlso UsuarioActual.CveTipoDocumento.Length = 3 Then + If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() = -1 AndAlso UsuarioActual.CveTipoDocumento.Length = 3 Then CargaDdlSubProyectos() UpParametros.Update() DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) @@ -2574,7 +2574,7 @@ Partial Class Ventas CargaRestriccionesCreditoCliente(CveVenta:=Me.CveVenta) End If - If Not CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(403).ToString = "1" Then + If Not CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(403).ToString() = "1" Then If (DdlTipoComprobante.Items.FindByValue("Ing") IsNot Nothing) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) End If @@ -2582,7 +2582,7 @@ Partial Class Ventas - If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then DivMesesSinIntereses.Visible = True DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") @@ -2591,6 +2591,7 @@ Partial Class Ventas TrPedido.Visible = False ' TrKilometrajeTxt.Visible = True End If + LtlTareaNueva.Text = String.Format(" Tarea", CveVenta) End If @@ -2715,7 +2716,7 @@ Partial Class Ventas If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then If ObjPVenta.DtResultados.Rows.Count > 0 Then - Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString.ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString.ToDouble + ObjPVenta.DtResultados(0)("Propina").ToString.ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString.ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString.ToDouble + Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble DineroCaja = Total LblEfectivoEsperado.Text = Total.FormatoNumero(2) @@ -2726,27 +2727,27 @@ Partial Class Ventas Dim Dr1 = Dt.NewRow Dr1("Descripcion") = "Fondo de Caja" - Dr1("Importe") = ObjPVenta.DtResultados(0)("ImporteInicial").ToString.ToDouble + Dr1("Importe") = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble Dt.Rows.Add(Dr1) Dim Dr2 = Dt.NewRow Dr2("Descripcion") = "Ventas en Efectivo" - Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString.ToDouble + Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble Dt.Rows.Add(Dr2) Dim Dr3 = Dt.NewRow Dr3("Descripcion") = "Propinas" - Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString.ToDouble + Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble Dt.Rows.Add(Dr3) Dim Dr4 = Dt.NewRow Dr4("Descripcion") = "Entradas" - Dr4("Importe") = ObjPVenta.DtResultados(0)("Ingresado").ToString.ToDouble + Dr4("Importe") = ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble Dt.Rows.Add(Dr4) Dim Dr5 = Dt.NewRow Dr5("Descripcion") = "Salidas" - Dr5("Importe") = ObjPVenta.DtResultados(0)("Retirado").ToString.ToDouble + Dr5("Importe") = ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble Dt.Rows.Add(Dr5) Dim Dr6 = Dt.NewRow @@ -2803,8 +2804,8 @@ Partial Class Ventas End Sub Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click Dim ObjPVenta As New ClsPuntoVenta - If TxtCantidadIE.Text.ToEntero > 0 Then - If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero, Now) Then + If TxtCantidadIE.Text.ToEntero() > 0 Then + If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), Now) Then TxtCantidadIE.Text = "" TxtDescripcionIE.Text = "" RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") @@ -2953,16 +2954,16 @@ Partial Class Ventas Exit Sub End If - LbContratoImporteTotal.Text = DrContrato("ImporteTotal").ToString.FormatoNumero - LbContratoImporteMinimo.Text = DrContrato("ImporteMin").ToString.FormatoNumero - LbContratoImporteMaximo.Text = DrContrato("ImporteMax").ToString.FormatoNumero - LtContratoImporteSaldo.Text = DrContrato("ImporteSaldo").ToString.FormatoNumero + LbContratoImporteTotal.Text = DrContrato("ImporteTotal").ToString().FormatoNumero + LbContratoImporteMinimo.Text = DrContrato("ImporteMin").ToString().FormatoNumero + LbContratoImporteMaximo.Text = DrContrato("ImporteMax").ToString().FormatoNumero + LtContratoImporteSaldo.Text = DrContrato("ImporteSaldo").ToString().FormatoNumero Dim ObjContrato As New ClsContratos Dim NoId As Integer = 0 - If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero) Then + If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero()) Then 'SI ES CONTRATO DE CONSIGNACION DE VENTA AGARRA LAS EXISTENCIAS DEL ALMACEN CreaConsignacionSerieDetalle() @@ -2970,9 +2971,9 @@ Partial Class Ventas CveAlmacenOrigenContrato = -1 GvContratoDetalles.Columns(8).Visible = False - If DrContrato("CveContratoTipo").ToString.Contiene("27") Then - CveAlmacenExistenciasContrato = If(DrContrato("CveAlmacenDestino").ToString.ToEntero > 0, DrContrato("CveAlmacenDestino").ToString.ToEntero, -1) - CveAlmacenOrigenContrato = If(DrContrato("CveAlmacenOrigen").ToString.ToEntero > 0, DrContrato("CveAlmacenOrigen").ToString.ToEntero, -1) + If DrContrato("CveContratoTipo").ToString().Contiene("27") Then + CveAlmacenExistenciasContrato = If(DrContrato("CveAlmacenDestino").ToString().ToEntero() > 0, DrContrato("CveAlmacenDestino").ToString().ToEntero(), -1) + CveAlmacenOrigenContrato = If(DrContrato("CveAlmacenOrigen").ToString().ToEntero() > 0, DrContrato("CveAlmacenOrigen").ToString().ToEntero(), -1) End If NoId = ObjContrato.DtResultados.FiltraParametros("NoIdentificacion <> ''").Rows.Count 'PARA SABER SI ALGUN DETALLE TIENE ESTE CAMPO Y HACER VISIBLE LA COLUMNA @@ -2983,39 +2984,39 @@ Partial Class Ventas GvContratoDetalles.DataBind() UpContratos.Update() - NumeroContrato = DrContrato("NumeroContrato").ToString - DescripcionContrato = DrContrato("DescripcionContrato").ToString - NumeroLicitacion = DrContrato("NumeroLicitacion").ToString.Trim + NumeroContrato = DrContrato("NumeroContrato").ToString() + DescripcionContrato = DrContrato("DescripcionContrato").ToString() + NumeroLicitacion = DrContrato("NumeroLicitacion").ToString().Trim DdlVendedor.SelectedValueExist(DrContrato("CveVendedor")) - If DrContrato("CveSucursalCliente").ToString.ToEntero > 0 Then + If DrContrato("CveSucursalCliente").ToString().ToEntero() > 0 Then DdlSucursalCliente.SelectedValueExist(DrContrato("CveSucursalCliente")) DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty) DdlSucursalCliente.Enabled = False DdlSucursalCliente.Attributes.Add("disabled", "") End If - Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString.ToEntero + Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString().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.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlAlmacenAsignado.Items.Insert(1, New ListItem(DrContrato("Almacen").ToString, CveAlmacenDestino.ToString)) - DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString) + DdlAlmacenAsignado.Items.Insert(1, New ListItem(DrContrato("Almacen").ToString(), CveAlmacenDestino.ToString())) + DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString()) DdlAlmacenAsignado.DataBind() Else 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.SelectedValueExist(CveAlmacenDestino.ToString) + DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString()) DdlAlmacenAsignado.DataBind() End If If 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.SelectedValueExist(CveAlmacenDestino.ToString) + DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString()) DdlAlmacenAsignado.DataBind() End If @@ -3035,15 +3036,15 @@ Partial Class Ventas Next Dim EsValido = True For Each Dr As DataRow In TmpDT.Rows - Dim CantidadActual = Dr("Cantidad").ToString.ToDouble + Dim CantidadActual = Dr("Cantidad").ToString().ToDouble Dim CantidadDispo = 0.0 Dim CantidadAsignada = 0.0 For Each gvr As GridViewRow In GvContratoDetalles.Rows - If gvr.DataKey("CvePS").ToEntero = Dr("CvePS").ToString.ToEntero Then - CantidadDispo = gvr.DataKey("Cantidad").ToString.ToDouble - gvr.FCTextBox("TxtCant").Text.ToDouble + If gvr.DataKey("CvePS").ToEntero() = Dr("CvePS").ToString().ToEntero() Then + CantidadDispo = gvr.DataKey("Cantidad").ToString().ToDouble - gvr.FCTextBox("TxtCant").Text.ToDouble If CantidadDispo = 0 Then Continue For CantidadAsignada = If(CantidadDispo > CantidadActual, CantidadActual, CantidadDispo) - gvr.FCTextBox("TxtCant").Text = (gvr.FCTextBox("TxtCant").Text.ToDouble + CantidadAsignada).ToString + gvr.FCTextBox("TxtCant").Text = (gvr.FCTextBox("TxtCant").Text.ToDouble + CantidadAsignada).ToString() CantidadActual = CantidadActual - CantidadAsignada If CantidadActual = 0 Then @@ -3079,7 +3080,7 @@ Partial Class Ventas DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) End If - Select Case RBLTipoContrato.SelectedValue.ToEntero + Select Case RBLTipoContrato.SelectedValue.ToEntero() Case 1 DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped")) DdlTipoComprobante.SelectedValue = "Ped" @@ -3117,11 +3118,11 @@ Partial Class Ventas 'End If - Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {DdlContratosModal.SelectedValue.ToEntero}") + Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {DdlContratosModal.SelectedValue.ToEntero()}") Dim ps As New ClsInventarios - CveContrato = DdlContratosModal.SelectedValue.ToEntero - AplicaGastoContrato = If(DrContrato("CveContratoTipo").ToString.Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento + CveContrato = DdlContratosModal.SelectedValue.ToEntero() + AplicaGastoContrato = If(DrContrato("CveContratoTipo").ToString().Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento 'VALIDA IMPORTE DEL CONTRATO Dim SeleccionadoContrato = 0.0 '(From row As GridViewRow In GvContratoDetalles.Rows.Cast(Of GridViewRow)() Select row.FCLabel("LtlTotal").Text.ToDecimal).Sum @@ -3133,17 +3134,17 @@ Partial Class Ventas TxtRetIVA.Text = "0" For Each Row As GridViewRow In GvContratoDetalles.Rows - If Row.FCTextBox("TxtCant").Text.ToEntero > 0 Then + If Row.FCTextBox("TxtCant").Text.ToEntero() > 0 Then 'VALIDA EXISTENCIAS DE ALMACÉN - 'Dim DrPS = GlobalDTProductosServicios(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=Row.DataKey("CvePS").ToEntero).FiltroPrimero("") - Dim DrPS = GlobalDTPS(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=Row.DataKey("CvePS").ToEntero).FiltroPrimero("") + 'Dim DrPS = GlobalDTProductosServicios(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=Row.DataKey("CvePS").ToEntero()).FiltroPrimero("") + Dim DrPS = GlobalDTPS(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=Row.DataKey("CvePS").ToEntero()).FiltroPrimero("") If DrPS IsNot Nothing Then - Dim CveTipoPS As Integer = DrPS("CveTipoPS").ToString.ToEntero - Dim CveTipoInv As Integer = DrPS("Inv_CveMetodoInventario").ToString.ToEntero - Dim existencia As Decimal = ps.GetExistenciasPS(Row.DataKey("CvePS").ToEntero, Row.DataKey("CveUM").ToEntero, 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 < Row.FCTextBox("TxtCant").Text.ToEntero AndAlso CveTipoPS <> 1) AndAlso UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ped") Then ' And DdlContratosModal.SelectedValue.ToEntero <> 196 Then + Dim CveTipoPS As Integer = DrPS("CveTipoPS").ToString().ToEntero() + Dim CveTipoInv As Integer = DrPS("Inv_CveMetodoInventario").ToString().ToEntero() + Dim existencia As Decimal = ps.GetExistenciasPS(Row.DataKey("CvePS").ToEntero(), Row.DataKey("CveUM").ToEntero(), 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 < Row.FCTextBox("TxtCant").Text.ToEntero() AndAlso CveTipoPS <> 1) AndAlso UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ped") Then ' And DdlContratosModal.SelectedValue.ToEntero() <> 196 Then Alert("No cuenta con la cantidad suficiente en inventario para el producto:
" + 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("
  • 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:

    {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 @@ -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(Server.MapPath("/"), "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,11 +9500,11 @@ 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 - Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString}")(0) + Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString()}")(0) InvDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle Catch ex As Exception End Try @@ -9513,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 @@ -9562,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 @@ -9571,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 @@ -9582,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 @@ -9600,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 @@ -9616,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 @@ -9632,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") @@ -9649,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 @@ -9668,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") @@ -9683,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 @@ -9782,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 @@ -9795,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 @@ -9804,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 @@ -9816,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 @@ -9830,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 @@ -9982,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 @@ -10017,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 @@ -10058,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 @@ -10088,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)}" @@ -10102,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 @@ -10123,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 @@ -10140,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 @@ -10164,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 @@ -10194,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 @@ -10317,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 @@ -10346,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)}" @@ -10355,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 @@ -10371,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)}" @@ -10397,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)}" @@ -10413,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 @@ -10432,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 @@ -10459,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 @@ -10475,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 @@ -10485,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 @@ -10495,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 @@ -10507,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 @@ -10598,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% @@ -10612,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 @@ -10627,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 @@ -10679,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 @@ -10696,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 @@ -10751,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% @@ -10770,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 @@ -10802,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 @@ -10813,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 @@ -10832,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 @@ -10852,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 @@ -10863,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 @@ -10890,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 @@ -10904,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 @@ -10926,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 @@ -10958,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 @@ -10967,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 @@ -11004,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 @@ -11063,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 @@ -11175,7 +11176,7 @@ Partial Class Ventas CveConceptoAlmacen = 18 End If - Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEnteroca + 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 @@ -11195,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)}.") @@ -11217,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 @@ -11231,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 @@ -11239,7 +11240,7 @@ Partial Class Ventas End If End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=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 @@ -11288,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 @@ -11337,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 @@ -11375,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 @@ -11429,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 @@ -11458,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(",", "") @@ -11483,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 @@ -11564,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 @@ -11595,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) @@ -11633,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 @@ -11660,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 @@ -11684,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 @@ -11702,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 @@ -11735,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)) @@ -11960,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 @@ -12014,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")) @@ -12034,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 @@ -12064,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 @@ -12073,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 @@ -12116,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 @@ -12124,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 @@ -12138,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 @@ -12157,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) @@ -12189,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 @@ -12204,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 @@ -12231,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 @@ -12255,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 @@ -12270,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 @@ -12299,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 @@ -12358,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 @@ -12366,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 @@ -12381,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 @@ -12466,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 @@ -12497,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 @@ -12512,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 @@ -12527,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 @@ -12541,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 @@ -12562,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 @@ -12615,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() @@ -12634,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 @@ -12658,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) @@ -12669,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 @@ -12757,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 @@ -12768,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 @@ -12800,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 @@ -12832,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 @@ -12843,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 @@ -12874,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 @@ -12885,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) @@ -12894,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 @@ -12918,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 @@ -12927,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 @@ -12957,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 @@ -12967,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 @@ -13011,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 @@ -13052,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 @@ -13096,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 @@ -13118,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) @@ -13138,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) @@ -13204,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 @@ -13258,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 @@ -13274,13 +13275,13 @@ 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 SerieLote As String = MovDet("SerieLote").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, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then @@ -13289,7 +13290,7 @@ Partial Class Ventas 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, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then OcurrioError = True @@ -13310,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 @@ -13333,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 @@ -13396,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 @@ -13492,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 @@ -13579,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 = "" @@ -13604,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) @@ -13620,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 @@ -13633,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 @@ -13652,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 @@ -13664,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 @@ -13677,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() @@ -13696,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) @@ -13706,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 @@ -13731,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() @@ -13739,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 @@ -13768,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) @@ -13789,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 @@ -13808,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 @@ -13860,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() @@ -13940,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 @@ -13950,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 = "" @@ -13979,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" @@ -14033,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) @@ -14050,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 @@ -14076,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 @@ -14090,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 @@ -14129,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() @@ -14180,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") @@ -14192,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 @@ -14216,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 @@ -14239,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 @@ -14255,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 @@ -14268,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) @@ -14280,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 @@ -14310,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 @@ -14320,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 @@ -14329,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 @@ -14343,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 @@ -14372,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 @@ -14385,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 @@ -14433,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 @@ -14456,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 @@ -14552,15 +14553,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 @@ -14570,9 +14571,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() @@ -14594,20 +14595,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() @@ -14618,7 +14619,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 @@ -14643,7 +14644,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 = "" @@ -14764,37 +14765,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") @@ -14810,7 +14811,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") @@ -14818,7 +14819,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") @@ -14844,13 +14845,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 @@ -14885,15 +14886,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 @@ -14906,21 +14907,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") @@ -14930,11 +14931,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 @@ -14942,10 +14943,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 @@ -14963,26 +14964,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") @@ -15153,7 +15154,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) @@ -15204,7 +15205,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 @@ -15212,7 +15213,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 @@ -15239,7 +15240,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) @@ -15249,14 +15250,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 @@ -15318,22 +15319,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 @@ -15360,7 +15361,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) @@ -15370,14 +15371,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 @@ -15531,7 +15532,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 @@ -15557,7 +15558,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 @@ -15575,17 +15576,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 @@ -15693,7 +15694,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) @@ -15721,7 +15722,7 @@ Partial Class Ventas For Each Row As DataRow In TmpDT.Rows - SB.AppendFormat("", Row("Codigo"), Row("PS"), Row("Cantidad").ToString.ToDouble.FormatoNumero(), Row("PU").ToString.ToDouble.FormatoNumero()) + SB.AppendFormat("", Row("Codigo"), Row("PS"), Row("Cantidad").ToString().ToDouble.FormatoNumero(), Row("PU").ToString().ToDouble.FormatoNumero()) Next @@ -15791,7 +15792,7 @@ Partial Class Ventas End Sub Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) - Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero + Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString().ToEntero() If UsuarioActual.Empresa.UsaAC Then TmpDT(index - 1)("CvePresupuestoIngreso") = DdlFR_Gv.SelectedValue @@ -15836,7 +15837,7 @@ Partial Class Ventas UpFacturar.Update() Exit Sub Else - HdnCveCliente.Value = ObjClientes.CveCliente.ToString + HdnCveCliente.Value = ObjClientes.CveCliente.ToString() End If BtnBuscarCliente_Click(sender, e) Else @@ -15891,7 +15892,7 @@ Partial Class Ventas ElseIf DdlTipoComprobante.SelectedValue = "Com" Then BtnEmitirImprimir.Text = "Registrar" 'TdReferencia.Style.Add("display", "none") - ElseIf DdlTipoComprobante.SelectedValue.ToString = "OP" Then + ElseIf DdlTipoComprobante.SelectedValue.ToString() = "OP" Then BtnEmitirImprimir.Text = "Registrar" TdOrdenPago.Visible = True End If @@ -15945,7 +15946,7 @@ Partial Class Ventas Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs) Dim Ddl As DropDownList = CType(sender, DropDownList) Dim gvr As GridViewRow = CType(Ddl.BindingContainer, GridViewRow) - gvr.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(Ddl.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + gvr.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(Ddl.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa) gvr.FCDropDownList("DdlUnidadMedida").DataBind() End Sub @@ -15966,7 +15967,7 @@ Partial Class Ventas 'Si estamos facturando remisiones ajustamos por ventadetalle If RemisionesLista.Count > 0 AndAlso DtRemisionesTmpDT IsNot Nothing AndAlso DtRemisionesTmpDT.Rows.Count > 0 AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then Dim resultados = From DtRemisiones In DtRemisionesTmpDT - Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString.ToEntero Equals DtMovDet("CveVentaDetalle").ToString.ToEntero + Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString().ToEntero() Equals DtMovDet("CveVentaDetalle").ToString().ToEntero() Select DtMovDet Try If resultados.Count > 0 Then @@ -15988,15 +15989,15 @@ Partial Class Ventas Dim GeneroMovimientoAlmacen As Boolean = False For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida - If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then + If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString().ToEntero(), ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then If ObjInventario.DtResultados.Rows.Count > 0 AndAlso DtMovimientosDetalles.Rows.Count > 0 Then Dim RowMovimiento As DataRow = ObjInventario.DtResultados(0) - Dim CveAlmacenSalida As Integer = RowMovimiento("CveAlmacen").ToString.ToEntero() - Dim CveAlmacenEntrada As Integer = RowMovimiento("CveAlmacenRelacionado").ToString.ToEntero() - Dim CveMoneda As Integer = RowMovimiento("CveMoneda").ToString.ToEntero() - Dim CveTipoAlmacen As Integer = RowMovimiento("CveTipoAlmacen").ToString.ToEntero() + Dim CveAlmacenSalida As Integer = RowMovimiento("CveAlmacen").ToString().ToEntero() + Dim CveAlmacenEntrada As Integer = RowMovimiento("CveAlmacenRelacionado").ToString().ToEntero() + Dim CveMoneda As Integer = RowMovimiento("CveMoneda").ToString().ToEntero() + Dim CveTipoAlmacen As Integer = RowMovimiento("CveTipoAlmacen").ToString().ToEntero() If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas @@ -16082,7 +16083,7 @@ Partial Class Ventas End If - ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then + ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString().ToEntero(), 3, -1, UsuarioActual.CveEmpresa) Then 'Esquema viejo, evitamos que aparezca por surtir If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then OcurrioError = True @@ -16133,12 +16134,12 @@ Partial Class Ventas 'Si no se ha terminado de surtir agregamos el movimiento If Indice >= 0 Then - ' rowSurtidos("Surtido").ToString.ToDouble < rowSurtidos("Cantidad").ToString.ToDouble AndAlso (dr("CantidadDisponible").ToString.ToDouble - rowSurtidos("Surtido").ToString.ToDouble > 0 Or dr("SerieLote").ToString <> "") - If rowSurtidos("Surtido").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDecimal Then - Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDouble, dr("CantidadDisponible").ToString.ToDecimal, rowSurtidos("Cantidad").ToString.ToDecimal) + ' rowSurtidos("Surtido").ToString().ToDouble < rowSurtidos("Cantidad").ToString().ToDouble AndAlso (dr("CantidadDisponible").ToString().ToDouble - rowSurtidos("Surtido").ToString().ToDouble > 0 Or dr("SerieLote").ToString() <> "") + If rowSurtidos("Surtido").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDecimal Then + Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDouble, dr("CantidadDisponible").ToString().ToDecimal, rowSurtidos("Cantidad").ToString().ToDecimal) MovDTCuadrados.ImportRow(dr) MovDTCuadrados(MovDTCuadrados.Rows.Count - 1)("Cantidad") = CantidadSurtida - DtRemConceptosSurtidos(Indice)("Surtido") = rowSurtidos("Surtido").ToString.ToDecimal + CantidadSurtida + DtRemConceptosSurtidos(Indice)("Surtido") = rowSurtidos("Surtido").ToString().ToDecimal + CantidadSurtida End If Else ErrorList.Add("Ocurrió un error al traspasar el inventario de la remisión") @@ -16164,10 +16165,10 @@ Partial Class Ventas For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida - If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then + If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString().ToEntero(), 3, -1, UsuarioActual.CveEmpresa) Then - Dim CveAlmacenSalida As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString.ToEntero - Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString.ToEntero + Dim CveAlmacenSalida As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString().ToEntero() + Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString().ToEntero() 'Le damos entrada If Not GenerarMovimientoAlmacen(ObjInventario, DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}"), CveAlmacenSalida, 2, CveMoneda, CveRemision) > 0 Then @@ -16204,8 +16205,8 @@ Partial Class Ventas For Each MovDet As DataRow In DtMovDetalle.Rows Dim Cantidad = 0.0 - Dim CantidadRemision = DtRemisionesTmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleRemision={MovDet("CveVentaDetalle").ToString}").ToDouble - Dim CantidadInventario = MovDet("Cantidad").ToString.ToDecimal + Dim CantidadRemision = DtRemisionesTmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleRemision={MovDet("CveVentaDetalle").ToString()}").ToDouble + Dim CantidadInventario = MovDet("Cantidad").ToString().ToDecimal If RemisionesLista.Count > 0 AndAlso ChkRemProductos.Checked AndAlso CantidadInventario >= CantidadRemision Then Cantidad = CantidadRemision @@ -16213,15 +16214,15 @@ Partial Class Ventas Cantidad = CantidadInventario End If - 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 Consec As Integer = DtRemisionesTmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString}").ToEntero + 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 Consec As Integer = DtRemisionesTmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString()}").ToEntero() 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) + Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero(), MovDet("CveVentaDetalle").ToString().ToEntero()) 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then Alert("no se encontro la venta detalle. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) @@ -16239,7 +16240,7 @@ Partial Class Ventas 'CUANDO SEA REMISION FACTURADA DEBE RELACIONAR LOS NUEVOS MOVIMIENTOS POR EL DETALLE Dim CveMovimientoDetalleEntrada As Integer = -1 If AplicaMovimientoDetalleEntrada Then - CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString.ToEntero + CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString().ToEntero() End If If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, SerieLote:=SerieLote, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then @@ -16266,8 +16267,8 @@ Partial Class Ventas For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() TotalCostoAcumulado += ValorInventario 'cuando es el último movimiento y hay diferencias en los importes @@ -16277,7 +16278,7 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, 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:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -16290,7 +16291,7 @@ Partial Class Ventas Next If Not OcurrioError Then - 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 Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If @@ -16359,8 +16360,8 @@ Partial Class Ventas For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() TotalCostoAcumulado += ValorInventario 'cuando es el último movimiento y hay diferencias en los importes @@ -16370,7 +16371,7 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -16383,7 +16384,7 @@ Partial Class Ventas Next If Not OcurrioError Then - 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 Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If @@ -16484,8 +16485,8 @@ Partial Class Ventas For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL - IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero + IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() TotalCostoAcumulado += ValorInventario 'cuando es el último movimiento y hay diferencias en los importes @@ -16495,7 +16496,7 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoVirtual, 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:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -16508,7 +16509,7 @@ Partial Class Ventas Next If Not OcurrioError Then - IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero + IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero() If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If @@ -16550,11 +16551,11 @@ Partial Class Ventas 'Obtenemos los movimientos detalle If ObjInventario.GetMovimientosOS(9, CveOS, UsuarioActual.CveEmpresa) Then If ObjInventario.DtResultados.Rows.Count > 0 Then - Dim CveMovimiento As Integer = ObjInventario.DtResultados(0)("CveMovimiento").ToString.ToEntero - Dim CveAlmacenOrigen As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString.ToEntero - Dim CveAlmacenDestino As Integer = ObjInventario.DtResultados(0)("AlmacenDestino2").ToString.ToEntero - Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString.ToEntero - Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados(0)("CveTipoAlmacen").ToString.ToEntero + Dim CveMovimiento As Integer = ObjInventario.DtResultados(0)("CveMovimiento").ToString().ToEntero() + Dim CveAlmacenOrigen As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString().ToEntero() + Dim CveAlmacenDestino As Integer = ObjInventario.DtResultados(0)("AlmacenDestino2").ToString().ToEntero() + Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString().ToEntero() + Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados(0)("CveTipoAlmacen").ToString().ToEntero() 'AGREGAMOS LA ENTRADA Movto 1 If Not TieneError Then @@ -16572,7 +16573,7 @@ Partial Class Ventas If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, -1, -1) Then TieneError = True TextoError = "Ocurrió un Error al guardar los movimientos de entrada" Exit For @@ -16600,7 +16601,7 @@ Partial Class Ventas If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, -1, -1) Then TieneError = True TextoError = "Ocurrió un Error al guardar los movimientos de entrada" Exit For @@ -16628,7 +16629,7 @@ Partial Class Ventas If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada2, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada3, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada3, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, -1, -1) Then TieneError = True TextoError = "Ocurrió un Error al guardar los movimientos de entrada" Exit For @@ -16664,12 +16665,12 @@ Partial Class Ventas Dim TipoComprobante = "" - If DdlTipoComprobante.SelectedValue.ToString = "Ing" Then TipoComprobante = "Factura" - If DdlTipoComprobante.SelectedValue.ToString = "Egs" Then TipoComprobante = "Nota de Crédito" - If DdlTipoComprobante.SelectedValue.ToString = "Dev" Then TipoComprobante = "Nota de Devolución" - If DdlTipoComprobante.SelectedValue.ToString = "Rem" Then TipoComprobante = "Remisión" - If DdlTipoComprobante.SelectedValue.ToString = "Cot" Then TipoComprobante = "Cotización" - If DdlTipoComprobante.SelectedValue.ToString = "Ant" Then TipoComprobante = "Anticipo" + If DdlTipoComprobante.SelectedValue.ToString() = "Ing" Then TipoComprobante = "Factura" + If DdlTipoComprobante.SelectedValue.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito" + If DdlTipoComprobante.SelectedValue.ToString() = "Dev" Then TipoComprobante = "Nota de Devolución" + If DdlTipoComprobante.SelectedValue.ToString() = "Rem" Then TipoComprobante = "Remisión" + If DdlTipoComprobante.SelectedValue.ToString() = "Cot" Then TipoComprobante = "Cotización" + If DdlTipoComprobante.SelectedValue.ToString() = "Ant" Then TipoComprobante = "Anticipo" If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta @@ -16713,10 +16714,10 @@ Partial Class Ventas 'CASO ESPECIAL If CveUsuarioActual = 1446 Then ' Flora - Dim str As String = "Flora Envio: Correo:" & Mail & " - CorreosCC: " & MailCC & " RM:" & ResultadoMail.ToString + Dim str As String = "Flora Envio: Correo:" & Mail & " - CorreosCC: " & MailCC & " RM:" & ResultadoMail.ToString() str.GuardaLog() ElseIf CveUsuarioActual = 1513 Then ' Flora - Dim str As String = "Flora Envio (secundario): Correo:" & Mail & " - CorreosCC: " & MailCC & " RM:" & ResultadoMail.ToString + Dim str As String = "Flora Envio (secundario): Correo:" & Mail & " - CorreosCC: " & MailCC & " RM:" & ResultadoMail.ToString() str.GuardaLog() End If @@ -16738,9 +16739,9 @@ Partial Class Ventas Dim valueselect = DdlContrato.SelectedValue CargaDatosEstimaciones(CveCliente) DdlContrato.SelectedValue = valueselect - If DdlContrato.SelectedValue.ToEntero > 0 Then + If DdlContrato.SelectedValue.ToEntero() > 0 Then For Each gvr As GridViewRow In GvEst.Rows - If gvr.DataKey("CveContratoAvance").ToEntero > 0 Then + If gvr.DataKey("CveContratoAvance").ToEntero() > 0 Then gvr.FCCheckBox("Chk").Checked = True gvr.FCCheckBox("Chk").Visible = True End If @@ -16754,7 +16755,7 @@ Partial Class Ventas Exit Sub End If Dim Con As New ClsContratos - If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero, 0, UsuarioActual.CveEmpresa) Then + If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then GvEst.DataSource = Con.DtResultados If Con.DtResultados.Rows.Count > 0 Then 'BtnEstimacion.Visible = True @@ -16776,13 +16777,13 @@ Partial Class Ventas e.Row.Cells(2).Width = Unit.Pixel(100) 'Cantidad e.Row.CssClass = "Totales" Else - If e.Row.DBCampo("CveContratoAvance").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CveContratoAvance").ToString().ToEntero() > 0 Then ' e.Row.FCCheckBox("Chk").Visible = True Else - If e.Row.DBCampo("CveSubFamilias").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CveSubFamilias").ToString().ToEntero() > 0 Then e.Row.CssClass = "SubTotales3" Else - If e.Row.DBCampo("CveFamilias").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CveFamilias").ToString().ToEntero() > 0 Then e.Row.CssClass = "SubTotales2" Else e.Row.CssClass = "SubTotales" @@ -16797,7 +16798,7 @@ Partial Class Ventas Try Dim CerFile As New FileStream(Ruta & "Certificados\" & UsuarioActual.Empresa.ArchivoCer, FileMode.Open, FileAccess.Read) - Dim Size As Integer = CerFile.Length.ToString.ToEntero() + Dim Size As Integer = CerFile.Length.ToString().ToEntero() Dim Data As Byte() = New Byte(Size - 1) {} Size = CerFile.Read(Data, 0, Size) CerFile.Close() @@ -16830,9 +16831,9 @@ Partial Class Ventas e.Row.Cells(3).Width = Unit.Pixel(500) End If - If e.Row.DBCampo("Archivo").ToString <> "" Then + 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) + 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 @@ -16853,7 +16854,7 @@ Partial Class Ventas Dim ObjEventos As New ClsOIEventos() If ObjEventos.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then If Filename <> "" Then - Filename.FilesMove(String.Format("OI{0}", ObjEventos.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa)) + Filename.FilesMove(String.Format("OI{0}", ObjEventos.CveEvento.ToString()), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa)) End If End If ObjEventos.Dispose() @@ -16895,9 +16896,9 @@ Partial Class Ventas #Region "BTN 'S" Protected Sub LnkActualizarOrdenProduccion_Click(sender As Object, e As EventArgs) - If DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then + If DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then Dim ObjCGame As New ClsCGame - If ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero, CveVenta) Then + If ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then Alert("La orden de producción fue actualizada con exito.") End If ObjCGame.Dispose() @@ -16908,7 +16909,7 @@ Partial Class Ventas Protected Sub LnkContratoAcptar_Click(sender As Object, e As EventArgs) Handles LnkContratoAcptar.Click Dim objcontra As New ClsContratos objcontra.IniciaTransacSQL() - If objcontra.AddContratosAceptados(ViewState("CveVenta").ToString.ToEntero, TxtNombreContrato.Text, 13, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then '-----------------------------------------------Falata la CveContrato!!!!!!!!!!!!!! + If objcontra.AddContratosAceptados(ViewState("CveVenta").ToString().ToEntero(), TxtNombreContrato.Text, 13, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then '-----------------------------------------------Falata la CveContrato!!!!!!!!!!!!!! objcontra.Commit() Alert("La cotización fue aceptada" & objcontra.CveContrato, TipoMensaje.MsgInformacion) Else @@ -17018,7 +17019,7 @@ Partial Class Ventas DtDetalle = TmpDT.Copy 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 Dim Cons As Integer = TmpDT.Rows.Count + 1 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows @@ -17069,9 +17070,9 @@ Partial Class Ventas 'SI EL DETALLE NO TIENE MOVIMIENTOS DE INVENTARIO ES VISIBLE Dim CantidadFacturadaRemision = 0.0 For Each Gvr As GridViewRow In GvPS.Rows - Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble > 0 - Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString.ToDouble > 0 - CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble + Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble > 0 + Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString().ToDouble > 0 + CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString().ToDouble 'If GvInv.Rows.Count > 0 Then ' Gvr.FCLinkButton("imgE").Enabled = False ' Gvr.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen." @@ -17112,22 +17113,22 @@ Partial Class Ventas Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL()) Dim ObjAC As ClsContPAQi = Nothing - Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero + Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble EditoRemision = True Try 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS - If DdlMoneda.SelectedValue.ToEntero <> 2 AndAlso ChkConvertirDolares.Checked Then + If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, 6) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, 6) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) + Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 @@ -17152,19 +17153,19 @@ Partial Class Ventas End If 'CONVERTIR REMISION - TIPO MONEDA -PESO A DOLARES - If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then + If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then Dim Importe As Decimal Dim TCC As Decimal = TxtTipoCambio.Text.Trim.ToDecimal For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * TCC, 6) - Row("Total") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) - Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal * TCC, NumeroDecimales) - Importe = Row("Total").ToString.ToDecimal - Row("Descuento").ToString.ToDecimal - Row("ImporteIEPS") = Math.Round(Importe * Row("PorcentajeIEPS").ToString.ToDecimal, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Importe * Row("PorcentajeIVA").ToString.ToDecimal, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Importe * Row("PorcentajeRetIVA").ToString.ToDecimal, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Importe * Row("PorcentajeRetISR").ToString.ToDecimal, NumeroDecimales) + Row("PU") = Math.Round(Row("PU").ToString().ToDecimal * TCC, 6) + Row("Total") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales) + Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDecimal * TCC, NumeroDecimales) + Importe = Row("Total").ToString().ToDecimal - Row("Descuento").ToString().ToDecimal + Row("ImporteIEPS") = Math.Round(Importe * Row("PorcentajeIEPS").ToString().ToDecimal, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Importe * Row("PorcentajeIVA").ToString().ToDecimal, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Importe * Row("PorcentajeRetIVA").ToString().ToDecimal, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Importe * Row("PorcentajeRetISR").ToString().ToDecimal, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0 @@ -17193,8 +17194,8 @@ Partial Class Ventas If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, 0, 0, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), - PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, - CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, + PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), + CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then OcurrioError = True End If @@ -17203,18 +17204,18 @@ Partial Class Ventas If Not OcurrioError Then Dim index As Integer = 0 For Each Row As DataRow In TmpDT.Rows - Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero() + Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString().ToEntero() If CveVentaDetalle > 0 Then - If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then + If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If Else - If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, - Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), - Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("ImporteIEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString, - CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1), - ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then + If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(), + Row("PU").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), + Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString(), + CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString()}").ToEntero(), -1), + ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString()) Then OcurrioError = True Exit For Else @@ -17232,7 +17233,7 @@ Partial Class Ventas DtEliminados = ObjVentas.DtResultados.FiltraParametros("", "", {"CveVentaDetalle"}) For Each Dr1 As DataRow In DtEliminados.Rows If TmpDT.FiltraParametros($"CveVentaDetalle = {Dr1("CveVentaDetalle")}").Rows.Count = 0 Then - If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString().ToEntero()) Then OcurrioError = True End If End If @@ -17248,7 +17249,7 @@ Partial Class Ventas If Not OcurrioError Then For Each gvr As GridViewRow In GvImpuestosLocales2.Rows If gvr.RowType = DataControlRowType.DataRow Then - If Not ObjVentas.UpdateVentaImpuestoLocales(CveVenta, gvr.DataKey("CveImpuestoLocal").ToString.ToEntero, gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal) Then + If Not ObjVentas.UpdateVentaImpuestoLocales(CveVenta, gvr.DataKey("CveImpuestoLocal").ToString().ToEntero(), gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal) Then OcurrioError = True End If End If @@ -17258,7 +17259,7 @@ Partial Class Ventas 'Orden Produccion' If Not OcurrioError Then If UsuarioActual.CveEmpresa.Contiene(126) Then - If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then + If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then OcurrioError = True End If @@ -17305,7 +17306,7 @@ Partial Class Ventas ObjVentas.IniciaTransacSQL() Dim TieneError = False - If Not ObjVentas.UpdateVentaCuentaTerminal(DdlCuentaTerminalModal.SelectedValue.ToEntero, CveVenta) Then + If Not ObjVentas.UpdateVentaCuentaTerminal(DdlCuentaTerminalModal.SelectedValue.ToEntero(), CveVenta) Then TieneError = True End If @@ -17339,7 +17340,7 @@ Partial Class Ventas Dim TipoVenta As Integer = 0 Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue))) - If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero + If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString().ToEntero() If TipoVenta = 1 Then ChkClasificacion.Checked = True @@ -17368,7 +17369,7 @@ Partial Class Ventas If TxtCodigoSerie.Text.Trim <> "" Then SerieLote = TxtCodigoSerie.Text.Trim().ToUpper() Dim Objinventarios As New ClsInventarios - Dim Existencia = Objinventarios.GetExistenciasPS(-1, -1, UsuarioActual.CveEmpresa, -1, SerieLote:=SerieLote, ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) + Dim Existencia = Objinventarios.GetExistenciasPS(-1, -1, UsuarioActual.CveEmpresa, -1, SerieLote:=SerieLote, ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) Dim ExistenciaActual = DtInv.SUM("Cantidad", String.Format("SerieLote = '{0}'", SerieLote)) CvePS = Objinventarios.CvePS Objinventarios.Dispose() @@ -17377,7 +17378,7 @@ Partial Class Ventas If CvePS > 0 Then DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrProducto IsNot Nothing Then - HdnCvePS.Value = CvePS.ToString + HdnCvePS.Value = CvePS.ToString() TxtCantidad.Text = "1" Else Alert($"No se encontró un producto con la serie: {SerieLote}. Por favor verifique y vuelva a intentar ", TipoMensaje.MsgAdvertencia) @@ -17397,12 +17398,12 @@ Partial Class Ventas CodigoBarras = TxtCodigoBarras.Text.Trim() DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'") If DrProducto IsNot Nothing Then - If DrProducto("Inv_CveMetodoInventario").ToString = "5" Then 'si es serielote + If DrProducto("Inv_CveMetodoInventario").ToString() = "5" Then 'si es serielote TxtCodigoSerie.Focus() Exit Sub Else - CvePS = DrProducto("CvePS").ToString.ToEntero - HdnCvePS.Value = CvePS.ToString + CvePS = DrProducto("CvePS").ToString().ToEntero() + HdnCvePS.Value = CvePS.ToString() End If Else TxtCodigoBarras.Focus() @@ -17434,12 +17435,12 @@ Partial Class Ventas 'BUSCA EL PRECIO DE LA SUCURSAL Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPSSucursales(DrProducto("CvePS").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero) Then + If ObjPS.GetPSSucursales(DrProducto("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()) Then Dim dtt As DataTable = ObjPS.DtResultados Dim drPrecio As DataRow = dtt.FiltroPrimero("") If drPrecio IsNot Nothing And TxtPrecio.Enabled = False Then - TxtPrecio.Text = drPrecio("Importe").ToString.ToDouble.ToString("N4") + TxtPrecio.Text = drPrecio("Importe").ToString().ToDouble.ToString("N4") End If dtt.Dispose() End If @@ -17447,36 +17448,36 @@ Partial Class Ventas 'SI NO CARGA PRECIO DE LA SUCURSAL TOMA EL DEL PS If TxtPrecio.Text.ToDouble <= 0 Then - TxtPrecio.Text = DrProducto("Precio").ToString.ToDouble.ToString("N4") + TxtPrecio.Text = DrProducto("Precio").ToString().ToDouble.ToString("N4") End If - HdnPS.Value = DrProducto("PS").ToString - HdnCodigoPS.Value = DrProducto("PSCodigo").ToString - HdnTipoPS.Value = DrProducto("CveTipoPS").ToString - HdnTipoInv.Value = DrProducto("Inv_CveMetodoInventario").ToString - HdnAplicaIEPS.Value = DrProducto("AplicaIEPS").ToString - HdnPorcentajeIEPS.Value = DrProducto("IEPSPorcentaje").ToString - HdnIVAPS.Value = If(DrProducto("IVA").ToString = "-1", ViewState("IVA"), DrProducto("IVA").ToString).ToString - HdnIVARetAPS.Value = DrProducto("RetIVA").ToString - HdnAsientoContable.Value = DrProducto("AsientoContableVentas").ToString - HdnCtaContable.Value = DrProducto("IdCtaContVentas").ToString - HdnAplicaParaConcepto.Value = DrProducto("AplicaParaConcepto").ToString - HdnCodigo.Value = DrProducto("Codigo").ToString + HdnPS.Value = DrProducto("PS").ToString() + HdnCodigoPS.Value = DrProducto("PSCodigo").ToString() + HdnTipoPS.Value = DrProducto("CveTipoPS").ToString() + HdnTipoInv.Value = DrProducto("Inv_CveMetodoInventario").ToString() + HdnAplicaIEPS.Value = DrProducto("AplicaIEPS").ToString() + HdnPorcentajeIEPS.Value = DrProducto("IEPSPorcentaje").ToString() + HdnIVAPS.Value = If(DrProducto("IVA").ToString() = "-1", ViewState("IVA"), DrProducto("IVA").ToString()).ToString() + HdnIVARetAPS.Value = DrProducto("RetIVA").ToString() + HdnAsientoContable.Value = DrProducto("AsientoContableVentas").ToString() + HdnCtaContable.Value = DrProducto("IdCtaContVentas").ToString() + HdnAplicaParaConcepto.Value = DrProducto("AplicaParaConcepto").ToString() + HdnCodigo.Value = DrProducto("Codigo").ToString() - If ValidaAgregarPS(DrProducto("CvePS").ToString.ToEntero, DrProducto("CveUM").ToString.ToEntero, TxtPrecio.Text.Trim.ToDouble, DrProducto("CveTipoPS").ToString.ToEntero) Then + If ValidaAgregarPS(DrProducto("CvePS").ToString().ToEntero(), DrProducto("CveUM").ToString().ToEntero(), TxtPrecio.Text.Trim.ToDouble, DrProducto("CveTipoPS").ToString().ToEntero()) Then If UsuarioActual.Empresa.Funcionalidad(507) = DdlPS.SelectedValue Then - CvePSAmortizacion = DdlPS.SelectedValue.ToEntero.ToEntero + CvePSAmortizacion = DdlPS.SelectedValue.ToEntero().ToEntero() End If - AgregarProductoServicio(TxtCantidad.Text.Trim.ToDecimal, DrProducto("CveUM").ToString.ToEntero, DrProducto("UnidadMedida").ToString, DrProducto("CveClasificacion").ToString.ToEntero, DrProducto("Clasificacion").ToString, - DrProducto("CvePS").ToString.ToEntero, DrProducto("PS").ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, 0, - DdlProyecto.SelectedValue.ToEntero, DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text) + AgregarProductoServicio(TxtCantidad.Text.Trim.ToDecimal, DrProducto("CveUM").ToString().ToEntero(), DrProducto("UnidadMedida").ToString(), DrProducto("CveClasificacion").ToString().ToEntero(), DrProducto("Clasificacion").ToString(), + DrProducto("CvePS").ToString().ToEntero(), DrProducto("PS").ToString(), TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, 0, + DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text) - 'AddPS(TxtCantidad.Text.Trim.ToDouble, DrProducto("CveUM").ToString.ToEntero, DrProducto("UnidadMedida").ToString, DrProducto("CveClasificacion").ToString.ToEntero, DrProducto("Clasificacion").ToString, - ' DrProducto("CvePS").ToString.ToEntero, DrProducto("PS").ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, HdnIVAPS.Value.ToDouble, 0, 0, - ' -1, -1, True, DrProducto("Codigo").ToString, DdlProyecto.SelectedValue.ToEntero, - ' DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, DrProducto("CveTipoPS").ToString.ToEntero, DrProducto("Inv_CveMetodoInventario").ToString.ToEntero, SerieLote:=SerieLote, CodigoPS:=DrProducto("PSCodigo").ToString) + 'AddPS(TxtCantidad.Text.Trim.ToDouble, DrProducto("CveUM").ToString().ToEntero(), DrProducto("UnidadMedida").ToString(), DrProducto("CveClasificacion").ToString().ToEntero(), DrProducto("Clasificacion").ToString(), + ' DrProducto("CvePS").ToString().ToEntero(), DrProducto("PS").ToString(), TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, HdnIVAPS.Value.ToDouble, 0, 0, + ' -1, -1, True, DrProducto("Codigo").ToString(), DdlProyecto.SelectedValue.ToEntero(), + ' DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text, DrProducto("CveTipoPS").ToString().ToEntero(), DrProducto("Inv_CveMetodoInventario").ToString().ToEntero(), SerieLote:=SerieLote, CodigoPS:=DrProducto("PSCodigo").ToString()) LimpiaAgregar() End If @@ -17500,14 +17501,14 @@ Partial Class Ventas Select Case DdlMoneda.SelectedValue Case "1" TxtTipoCambio.Text = "1" - TxtTipoCambioDlls.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString + TxtTipoCambioDlls.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TrConversionDolares.Visible = True Case "2" TxtTipoCambioDlls.Text = "1" - TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString + TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TrConversionTipoCambio.Visible = True Case Else - TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString + TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TrConversionTipoCambio.Visible = True End Select UpPS.Update() @@ -17519,12 +17520,12 @@ Partial Class Ventas Private Sub btnBuscarPrecio_Click(sender As Object, e As EventArgs) Handles btnBuscarPrecio.Click Dim Codigo, CodigoBarras As String Dim CvePS As Integer - CvePS = If(DdlBPPS.SelectedValue.ToEntero > 0, DdlBPPS.SelectedValue.ToEntero, -1) + CvePS = If(DdlBPPS.SelectedValue.ToEntero() > 0, DdlBPPS.SelectedValue.ToEntero(), -1) Codigo = If(TxtBPCodigo.Text.Trim.Length = 0, "", TxtBPCodigo.Text) CodigoBarras = If(TxtBPCodigoBarras.Text.Trim.Length = 0, "", TxtBPCodigoBarras.Text) Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPSSucursalesALL(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, Codigo:=Codigo, CodigoBarras:=CodigoBarras) Then + If ObjPS.GetPSSucursalesALL(DdlPS.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), Codigo:=Codigo, CodigoBarras:=CodigoBarras) Then GVBuscarPrecio.DataSource = ObjPS.DtResultados Else GVBuscarPrecio.DataSource = Nothing @@ -17575,11 +17576,11 @@ Partial Class Ventas If DtPagos IsNot Nothing Then DtPagos.Rows.Clear() CargaGridContado() - Select Case RBLPago.SelectedValue.ToEntero + Select Case RBLPago.SelectedValue.ToEntero() Case 1 'CREDITO TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString Case 2 'CONTADO - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True TxtImporteContado.Text = TxtTotal.Text End If @@ -17601,11 +17602,11 @@ Partial Class Ventas DdlCuentaTransferencia.Items.Clear() - DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) - DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) - DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) - DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) - DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DdlCuentaEfectivo.DataBind() DdlCuentaTarjetaCredito.DataBind() @@ -17621,17 +17622,17 @@ Partial Class Ventas DivContadoOtrosCuenta.Attributes.Add("class", "col-md-6") DivMesesSinIntereses2.Visible = False - Select Case DdlOtroFormaPago.SelectedValue.ToEntero + Select Case DdlOtroFormaPago.SelectedValue.ToEntero() Case 1 DivContadoOtrosCuenta.Attributes.Add("class", "col-md-3") DivMesesSinIntereses2.Visible = True - DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) Exit Select Case 2 - DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) Exit Select Case 3 - DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero))) + DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) Exit Select Case -1 DdlCuentaOtrosContado.DataSource = Nothing @@ -17670,7 +17671,7 @@ Partial Class Ventas 'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P. Dim abonado = DtPagos.SUM("Importe") Dim saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado - 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString + 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString() CargaGridContado() UpContado.Update() @@ -17701,7 +17702,7 @@ Partial Class Ventas Exit Sub End If - If (DtPagos.SUM("Importe").ToString.ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then + If (DtPagos.SUM("Importe").ToString().ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -17715,7 +17716,7 @@ Partial Class Ventas DrEfectivo("CveCuenta") = DdlCuentaEfectivo.SelectedValue DrEfectivo("Cuenta") = DdlCuentaEfectivo.SelectedItem.Text DrEfectivo("Importe") = TxtImporteEfectivo.Text.ToDecimal - TxtCambio.Text.ToDecimal - DrEfectivo("Folio") = CargaFolioContado(DdlCuentaEfectivo.SelectedValue.ToEntero, 6) + DrEfectivo("Folio") = CargaFolioContado(DdlCuentaEfectivo.SelectedValue.ToEntero(), 6) DrEfectivo("Observaciones") = "" DrEfectivo("Tipo") = "Caja Chica" DrEfectivo("CveMetodoPago") = 1 @@ -17737,13 +17738,13 @@ Partial Class Ventas DrCredito("CveCuenta") = DdlCuentaTarjetaCredito.SelectedValue DrCredito("Cuenta") = DdlCuentaTarjetaCredito.SelectedItem.Text DrCredito("Importe") = TxtImporteCredito.Text - DrCredito("Folio") = CargaFolioContado(DdlCuentaTarjetaCredito.SelectedValue.ToEntero, 12) + DrCredito("Folio") = CargaFolioContado(DdlCuentaTarjetaCredito.SelectedValue.ToEntero(), 12) DrCredito("Observaciones") = "" DrCredito("Tipo") = "Tarjeta de Crédito" DrCredito("CveMetodoPago") = 4 - If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then - DrCredito("MesesSinIntereses") = DDlMesesSinIntereses.SelectedValue.ToEntero + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then + DrCredito("MesesSinIntereses") = DDlMesesSinIntereses.SelectedValue.ToEntero() Else DrCredito("MesesSinIntereses") = -1 End If @@ -17766,7 +17767,7 @@ Partial Class Ventas DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue DrDebito("Cuenta") = DdlCuentaTarjetaDebito.SelectedItem.Text DrDebito("Importe") = TxtImporteDebito.Text - DrDebito("Folio") = CargaFolioContado(DdlCuentaTarjetaDebito.SelectedValue.ToEntero, 11) + DrDebito("Folio") = CargaFolioContado(DdlCuentaTarjetaDebito.SelectedValue.ToEntero(), 11) DrDebito("Observaciones") = "" DrDebito("Tipo") = "Tarjeta de Débito" DrDebito("CveMetodoPago") = 5 @@ -17787,7 +17788,7 @@ Partial Class Ventas DrCheque("CveCuenta") = DdlCuentaCheque.SelectedValue DrCheque("Cuenta") = DdlCuentaCheque.SelectedItem.Text DrCheque("Importe") = TxtImporteCheque.Text - DrCheque("Folio") = CargaFolioContado(DdlCuentaCheque.SelectedValue.ToEntero, 3) + DrCheque("Folio") = CargaFolioContado(DdlCuentaCheque.SelectedValue.ToEntero(), 3) DrCheque("Observaciones") = "" DrCheque("Tipo") = "Cheque" DrCheque("CveMetodoPago") = 2 @@ -17808,7 +17809,7 @@ Partial Class Ventas DrCheque("CveCuenta") = DdlCuentaTransferencia.SelectedValue DrCheque("Cuenta") = DdlCuentaTransferencia.SelectedItem.Text DrCheque("Importe") = TxtImporteTransferencia.Text - DrCheque("Folio") = CargaFolioContado(DdlCuentaTransferencia.SelectedValue.ToEntero, 8) + DrCheque("Folio") = CargaFolioContado(DdlCuentaTransferencia.SelectedValue.ToEntero(), 8) DrCheque("Observaciones") = "" DrCheque("Tipo") = "Transferencia" DrCheque("CveMetodoPago") = 3 @@ -17822,7 +17823,7 @@ Partial Class Ventas 'Otro Metodo de pago - Select Case DdlOtroFormaPago.SelectedValue.ToEntero + Select Case DdlOtroFormaPago.SelectedValue.ToEntero() Case -1 Exit Select Case 1 @@ -17834,12 +17835,12 @@ Partial Class Ventas DrCredito("CveCuenta") = DdlCuentaOtrosContado.SelectedValue DrCredito("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text DrCredito("Importe") = TxtImporteOtrosContado.Text - DrCredito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 12) + DrCredito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero(), 12) DrCredito("Observaciones") = "" DrCredito("Tipo") = "Tarjeta de Crédito" DrCredito("CveMetodoPago") = 4 - If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then - DrCredito("MesesSinIntereses") = DdlMesesSinIntereses2.SelectedValue.ToEntero + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then + DrCredito("MesesSinIntereses") = DdlMesesSinIntereses2.SelectedValue.ToEntero() Else DrCredito("MesesSinIntereses") = -1 End If @@ -17861,7 +17862,7 @@ Partial Class Ventas DrDebito("CveCuenta") = DdlCuentaOtrosContado.SelectedValue DrDebito("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text DrDebito("Importe") = TxtImporteOtrosContado.Text - DrDebito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 11) + DrDebito("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero(), 11) DrDebito("Observaciones") = "" DrDebito("Tipo") = "Tarjeta de Débito" DrDebito("CveMetodoPago") = 5 @@ -17882,7 +17883,7 @@ Partial Class Ventas DrCheque("CveCuenta") = DdlCuentaOtrosContado.SelectedValue DrCheque("Cuenta") = DdlCuentaOtrosContado.SelectedItem.Text DrCheque("Importe") = TxtImporteOtrosContado.Text - DrCheque("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero, 3) + DrCheque("Folio") = CargaFolioContado(DdlCuentaOtrosContado.SelectedValue.ToEntero(), 3) DrCheque("Observaciones") = "" DrCheque("Tipo") = "Cheque" DrCheque("CveMetodoPago") = 2 @@ -17899,7 +17900,7 @@ Partial Class Ventas 'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P. abonado = DtPagos.SUM("Importe") saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado - 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString + 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString() CargaGridContado() UpContado.Update() @@ -17956,18 +17957,18 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(572) = "1" Then Dim TotalNC As Decimal = If(ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0, LblTotalNC.Text.Trim().ToDecimal(), 0) If TotalNC > 0 Then - If (DtPagos.SUM("Importe").ToString.ToDecimal + Total - TxtCambio.Text.ToDecimal) > TotalNC Then + If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TotalNC Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If Else - If (DtPagos.SUM("Importe").ToString.ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then + If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If End If Else - If (DtPagos.SUM("Importe").ToString.ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then + If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If @@ -17987,12 +17988,12 @@ Partial Class Ventas Dim Index = Row.RowIndex Dim ObjInventarios As New ClsInventarios - Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) - Dim ExistenciaActual = DtInv.SUM("Cantidad", String.Format("SerieLote = '{0}'", Row.FCTextBox("TxtSerie").Text.ToString)) + Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString(), ddlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) + Dim ExistenciaActual = DtInv.SUM("Cantidad", String.Format("SerieLote = '{0}'", Row.FCTextBox("TxtSerie").Text.ToString())) 'Valida Existencia If Existencia - ExistenciaActual <= 0 Then - Alert(String.Format("No hay existencia suficiente del producto con la Serie: {0}. Por favor rectifique y vuelva a intentar", Row.FCTextBox("TxtSerie").Text.ToString), TipoMensaje.MsgAdvertencia) + Alert(String.Format("No hay existencia suficiente del producto con la Serie: {0}. Por favor rectifique y vuelva a intentar", Row.FCTextBox("TxtSerie").Text.ToString()), TipoMensaje.MsgAdvertencia) Row.FCTextBox("TxtSerie").Text = "" Row.FCHiddenField("HdnSerie").Value = "" TmpDT.Rows(Index)("SerieLote") = "" @@ -18024,12 +18025,12 @@ Partial Class Ventas 'SIN EXISTENCIA If Gvr.FCTextBox("TxtSerie").Visible = True And Gvr.FCTextBox("TxtSerie").Text.Trim <> "" Then - Existencia = ObjInventarios.GetExistenciasPS(-1, -1, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero, SerieLote:=Gvr.FCTextBox("TxtSerie").Text.ToString, ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) + Existencia = ObjInventarios.GetExistenciasPS(-1, -1, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero(), SerieLote:=Gvr.FCTextBox("TxtSerie").Text.ToString(), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) ExistenciaActual = DtInv.SUM("Cantidad", String.Format("SerieLote = '{0}'", Gvr.FCTextBox("TxtSerie").Text.Trim)) 'Valida Existencia If Existencia - ExistenciaActual < 0 Then - Alert(String.Format("No hay existencia suficiente del producto con la Serie: {0}. Por favor rectifique y vuelva a intentar", Gvr.FCTextBox("TxtSerie").Text.ToString), TipoMensaje.MsgAdvertencia) + Alert(String.Format("No hay existencia suficiente del producto con la Serie: {0}. Por favor rectifique y vuelva a intentar", Gvr.FCTextBox("TxtSerie").Text.ToString()), TipoMensaje.MsgAdvertencia) Gvr.FCTextBox("TxtSerie").Text = "" Retorno = True Exit For @@ -18047,9 +18048,9 @@ Partial Class Ventas #Region " BUSCAR CLIENTE " Protected Sub BtnBuscarCliente_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBuscarCliente.Click - ViewState("CveCliente") = HdnCveCliente.Value.ToEntero - CargaCliente(HdnCveCliente.Value.ToEntero) - If DdlPS.SelectedValue IsNot Nothing AndAlso DdlPS.SelectedValue.ToEntero > 0 Then + ViewState("CveCliente") = HdnCveCliente.Value.ToEntero() + CargaCliente(HdnCveCliente.Value.ToEntero()) + If DdlPS.SelectedValue IsNot Nothing AndAlso DdlPS.SelectedValue.ToEntero() > 0 Then DdlPS_SelectedIndexChanged(sender, e) DdlPS.Focus() Else @@ -18106,8 +18107,8 @@ Partial Class Ventas If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") - ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero - HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero() + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString() CargaCliente(CveCliente) UpCliente.Update() Else @@ -18141,11 +18142,11 @@ Partial Class Ventas Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click Dim CvePrecioLista As Integer = -1 - If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then - Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) + If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then + Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0) If Dr IsNot Nothing Then - If Dr("CvePrecioLista").ToString.ToEntero > 0 Then - CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero + If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then + CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero() End If End If End If @@ -18155,11 +18156,11 @@ Partial Class Ventas If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, - DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then + DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") - ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero - HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero() + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString() CargaCliente(CveCliente) UpCliente.Update() End If @@ -18240,7 +18241,7 @@ Partial Class Ventas #Region "IMPUESTOS LOCALES" Private Sub GvImpuestosLocales2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvImpuestosLocales2.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - 'e.Row.FCTextBox("TxtImpuestoLocalPS").Text = (TxtSubTotal.Text.ToDouble - (TxtSubTotal.Text.ToDouble * (e.Row.DBCampo("Porcentaje").ToString.ToDouble) / 100)).ToString + 'e.Row.FCTextBox("TxtImpuestoLocalPS").Text = (TxtSubTotal.Text.ToDouble - (TxtSubTotal.Text.ToDouble * (e.Row.DBCampo("Porcentaje").ToString().ToDouble) / 100)).ToString() e.Row.FCTextBox("TxtImpuestoLocalPS").Attributes.Add("onKeyUp", String.Format("FnSuma();")) End If @@ -18308,7 +18309,7 @@ Partial Class Ventas If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0) - Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString.ToEntero + Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString().ToEntero() End If End If @@ -18372,7 +18373,7 @@ Partial Class Ventas Dim TieneError = False Dim CveDireccionEnvio As Integer - CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtCP.Text.ToEntero, TxtContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioDepartamento:=If(TxtDepartamento.Text.Trim = "", "-1", TxtDepartamento.Text.Trim)) + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtCP.Text.ToEntero(), TxtContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioDepartamento:=If(TxtDepartamento.Text.Trim = "", "-1", TxtDepartamento.Text.Trim)) If CveDireccionEnvio < 0 Then TieneError = True @@ -18412,7 +18413,7 @@ Partial Class Ventas Private Sub CargaFacturaOC() - CveOC = IfNull(Request("CveOC"), -1).ToString.ToEntero + CveOC = IfNull(Request("CveOC"), -1).ToString().ToEntero() If CveOC > 0 Then Dim tDT As DataTable = Nothing @@ -18432,22 +18433,22 @@ Partial Class Ventas ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente") - HdnCveCliente.Value = CveCliente.ToString + HdnCveCliente.Value = CveCliente.ToString() CargaCliente(CveCliente) For Each Dr As DataRow In tDT.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, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) + 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(), CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString().ToEntero()) Next 'GvPS.DataSource = TmpDT 'GvPS.DataBind() 'TxtSubTotal.Text = TmpDT.SUM("Total").FormatoNumero(2) - 'TxtIVA.Text = (TxtSubTotal.Text.ToDecimal * ViewState("IVA").ToString.ToDecimal).ToString + 'TxtIVA.Text = (TxtSubTotal.Text.ToDecimal * ViewState("IVA").ToString().ToDecimal).ToString() 'CalculaTotalesImpuestosLocales() 'CalculaTotales(False) UpPS.Update() @@ -18513,7 +18514,7 @@ Partial Class Ventas RFC = ReceptorRFC TxtFecha.Text = Fecha - TxtFolio.Text = FolioXML.ToString + TxtFolio.Text = FolioXML.ToString() If (FolioXML <> "") Then ViewState("ExFolioFactura") = True End If @@ -18680,29 +18681,29 @@ Partial Class Ventas 'BUSCA UM EN CATALOGO UMM = UMM.ToUpper.Replace(".", "").Replace(",", "") Dim fUM = (From u In DtUM - Where String.Compare(u!UnidadMedida.ToString.ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 OrElse - String.Compare(u!Abreviatura.ToString.ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 + Where String.Compare(u!UnidadMedida.ToString().ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 OrElse + String.Compare(u!Abreviatura.ToString().ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 Select CveUnidadMedida = u!CveUnidadMedida, UnidadMedida = u!UnidadMedida).FirstOrDefault() - If fUM IsNot Nothing AndAlso fUM.CveUnidadMedida.ToString.ToEntero > 0 Then - CveUM = fUM.CveUnidadMedida.ToString.ToEntero - UMM = fUM.UnidadMedida.ToString + If fUM IsNot Nothing AndAlso fUM.CveUnidadMedida.ToString().ToEntero() > 0 Then + CveUM = fUM.CveUnidadMedida.ToString().ToEntero() + UMM = fUM.UnidadMedida.ToString() Else 'BUSCA UM EN ALIAS Dim fUMAlias = (From u In DtUMAlias - Where String.Compare(u!UnidadMedidaAlias.ToString.ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 + Where String.Compare(u!UnidadMedidaAlias.ToString().ToUpper.Trim, UMM, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 Select u!CveUnidadMedida, u!UnidadMedida).FirstOrDefault() If fUMAlias IsNot Nothing Then - CveUM = fUMAlias.CveUnidadMedida.ToString.ToEntero - UMM = fUMAlias.UnidadMedida.ToString + CveUM = fUMAlias.CveUnidadMedida.ToString().ToEntero() + UMM = fUMAlias.UnidadMedida.ToString() End If End If 'se le puso una condicion de que ignorara los acentos, porque en la bd, marcaria error porque no distingue acentos 'CONCEPTO PRUEBA "TRABAJOS DE CONSTRUCCION", RM/Compras/Compras.aspx?CveFactura=13402&RFC=ECO061206QW7 - '' u!PS.ToString.ToUpper.Trim = PSS + '' u!PS.ToString().ToUpper.Trim = PSS 'BUSCA PS @@ -18715,29 +18716,29 @@ Partial Class Ventas 'BUSCA PS EN CATALOGO Dim fPS = (From u In DtPS - Where String.Compare(u!PS.ToString.ToUpper.Trim, PSS, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 + Where String.Compare(u!PS.ToString().ToUpper.Trim, PSS, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 Select u!CvePS, u!CveClasificacion, u!Clasificacion, u!CveTipoPS, u!PSCodigo).FirstOrDefault() If fPS IsNot Nothing Then - PSS = fPS.PSCodigo.ToString - tCvePS = fPS.CvePS.ToString.ToEntero - TipoPS = fPS.CveTipoPS.ToString.ToEntero - tCveClasif = fPS.CveClasificacion.ToString.ToEntero - Clasif = fPS.Clasificacion.ToString - tPSCodigo = fPS.PSCodigo.ToString + PSS = fPS.PSCodigo.ToString() + tCvePS = fPS.CvePS.ToString().ToEntero() + TipoPS = fPS.CveTipoPS.ToString().ToEntero() + tCveClasif = fPS.CveClasificacion.ToString().ToEntero() + Clasif = fPS.Clasificacion.ToString() + tPSCodigo = fPS.PSCodigo.ToString() Else 'BUSCA PS EN ALIAS Dim fPSAlias = (From u In DtPSAlias - Where String.Compare(u!PSAlias.ToString.ToUpper.Trim, PSS, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 + Where String.Compare(u!PSAlias.ToString().ToUpper.Trim, PSS, CultureInfo.CurrentCulture, CompareOptions.IgnoreNonSpace) = 0 Select u!CvePS, u!PS, u!CveClasificacion, u!Clasificacion, u!CveTipoPS, u!PSCodigo).FirstOrDefault() If fPSAlias IsNot Nothing Then Obs = PSS - PSS = fPSAlias.PS.ToString - tCvePS = fPSAlias.CvePS.ToString.ToEntero - TipoPS = fPSAlias.CveTipoPS.ToString.ToEntero - tCveClasif = fPSAlias.CveClasificacion.ToString.ToEntero - Clasif = fPSAlias.Clasificacion.ToString - tPSCodigo = fPSAlias.PSCodigo.ToString + PSS = fPSAlias.PS.ToString() + tCvePS = fPSAlias.CvePS.ToString().ToEntero() + TipoPS = fPSAlias.CveTipoPS.ToString().ToEntero() + tCveClasif = fPSAlias.CveClasificacion.ToString().ToEntero() + Clasif = fPSAlias.Clasificacion.ToString() + tPSCodigo = fPSAlias.PSCodigo.ToString() Else tCvePS = 20168 End If @@ -18984,11 +18985,11 @@ Partial Class Ventas Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs) For Each row As GridViewRow In GvPS.Rows - TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero + TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero() Next Dim resultados = From OrdenDT In TmpDT - Order By OrdenDT("Orden").ToString.ToEntero + Order By OrdenDT("Orden").ToString().ToEntero() Select OrdenDT TmpDT = resultados.CopyToDataTable CalculaTotalesVenta() @@ -19013,13 +19014,13 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) - Dim FolioFiscal = drv("FolioFiscal").ToString - Dim SelloCancelacion = drv("SelloCancelacion").ToString - Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm:ss") + Dim FolioFiscal = drv("FolioFiscal").ToString() + Dim SelloCancelacion = drv("SelloCancelacion").ToString() + Dim FechaCancelacion = drv("FechaCancelacion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm:ss") Dim RFC = UsuarioActual.Empresa.RFC Dim Archivo As New System.IO.FileInfo("Empresas\Grales\Formatos\AcuseCancelacion.rdlc") Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString)) + params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString())) params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) params.Add(New ReportParameter("RFCEmisor", RFC)) params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion)) @@ -19074,7 +19075,7 @@ Partial Class Ventas sb.Append("") End If Asunto = $"Acuse de Cancelacion {Serie}-{Folio}" - Cuerpo = sb.ToString + Cuerpo = sb.ToString() Dim DisplayName As String = "" If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM" LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = ObjetoPDF, .NombreArchivo = $"AcuseCancelacion{Serie}-{Folio}.pdf"}) @@ -19262,7 +19263,7 @@ Partial Class Ventas ' MensajeAlert.Append("El Documento se canceló correctamente.") ' MensajeAlert.Append($"
    Imprimir Acuse") ' MensajeAlert.Append("

    ¿Desea enviar el Acuse de Cancelación al Cliente?") - ' Alert(MensajeAlert.ToString, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion()", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") + ' Alert(MensajeAlert.ToString(), TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion()", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") ' Else ' Alert("El documento se canceló exitosamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="location.reload();") ' End If @@ -19308,7 +19309,7 @@ Partial Class Ventas If ChkCanRem.Checked Then For Each Gvr As GridViewRow In GvCancelarRemisiones.Rows If Gvr.FCCheckBox("ChkCancelarRemision").Checked Then - ListaRemisionesCancelar.Add(Gvr.DataKey("CveVenta").ToEntero) + ListaRemisionesCancelar.Add(Gvr.DataKey("CveVenta").ToEntero()) End If Next End If @@ -19379,12 +19380,12 @@ Partial Class Ventas 'Cargamos los datos del Cliente DtContratos = ObjContratos.DtResultados - If ObjContratos.DtResultados(0)("IVA").ToString.ToDecimal > 0 Then - ViewState("IVA") = ObjContratos.DtResultados(0)("IVA").ToString.ToDecimal + If ObjContratos.DtResultados(0)("IVA").ToString().ToDecimal > 0 Then + ViewState("IVA") = ObjContratos.DtResultados(0)("IVA").ToString().ToDecimal End If - ViewState("CveCliente") = ObjContratos.DtResultados(0)("CveCliente").ToString.ToEntero - ViewState("CveContrato") = ObjContratos.DtResultados(0)("CveContrato").ToString.ToEntero - HdnCveCliente.Value = ObjContratos.DtResultados(0)("CveCliente").ToString + ViewState("CveCliente") = ObjContratos.DtResultados(0)("CveCliente").ToString().ToEntero() + ViewState("CveContrato") = ObjContratos.DtResultados(0)("CveContrato").ToString().ToEntero() + HdnCveCliente.Value = ObjContratos.DtResultados(0)("CveCliente").ToString() CargaCliente(CveCliente) DdlTipoComprobante.Items.Insert(0, New ListItem("Ingresos", "Ing")) DdlTipoComprobante.SelectedValue = "Ing" @@ -19392,9 +19393,9 @@ Partial Class Ventas DdlAlmacenAsignado.Enabled = False 'CARGO DATOS DE PS/CONTRATO - SubProyecto = ObjContratos.DtResultados(0)("SubProyectoContrato").ToString - CveSubProyecto = ObjContratos.DtResultados(0)("CveSubProyecto").ToString.ToEntero - Proyecto = ObjContratos.DtResultados(0)("ProyectoContrato").ToString + SubProyecto = ObjContratos.DtResultados(0)("SubProyectoContrato").ToString() + CveSubProyecto = ObjContratos.DtResultados(0)("CveSubProyecto").ToString().ToEntero() + Proyecto = ObjContratos.DtResultados(0)("ProyectoContrato").ToString() DdlSubProyectoDatos.SelectedValueExist(CveSubProyecto) ContratoDetalles.Visible = True DivEstimaciones.Visible = False @@ -19409,13 +19410,13 @@ Partial Class Ventas Updatetabs.Update() DdlContratosModal.DataSource = ObjContratos.DtResultados - DdlContratosModal.SelectedValue = ObjContratos.DtResultados(0)("CveContrato").ToString + DdlContratosModal.SelectedValue = ObjContratos.DtResultados(0)("CveContrato").ToString() DdlContratosModal_SelectedIndexChanged(Nothing, Nothing) GvContratoDetalles.HeaderRow.Cells(1).Style.Add("display", "none") BtnCargarContratoDetalles_Click(Nothing, Nothing) LbAgregar.Visible = True UpPS.Update() - '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 Else Alert("Ocurrió un error al carga la información del contrato. Por favor vuelva a intentar.", TipoMensaje.MsgError) huboerror = True @@ -19520,15 +19521,15 @@ Partial Class Ventas Dim RowNoEncontrados As String = "" Dim NumAgregados As Integer = 0 For Each Row As DataRow In dt.Rows - Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal - Dim UM As String = Row("UM").ToString - Dim Codigo As String = Row("Código").ToString.Trim.ToUpper - Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper - Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper - Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal - Dim Proyecto As String = Row("Proyecto").ToString.Trim.ToUpper - Dim Observaciones As String = Row("Observaciones").ToString.Trim.ToUpper - Dim TiempoEntrega As String = Row("Tiempo Entrega").ToString + Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal + Dim UM As String = Row("UM").ToString() + Dim Codigo As String = Row("Código").ToString().Trim.ToUpper + Dim CodigoBarras As String = Row("Codigo Barras").ToString().Trim.ToUpper + Dim ProductoServicio As String = Row("Producto/Servicio").ToString().Trim.ToUpper + Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString().ToDecimal + Dim Proyecto As String = Row("Proyecto").ToString().Trim.ToUpper + Dim Observaciones As String = Row("Observaciones").ToString().Trim.ToUpper + Dim TiempoEntrega As String = Row("Tiempo Entrega").ToString() Dim CvePS As Integer = 0 Dim CveUM As Integer = 0 Dim CodigoPS As Integer = 0 @@ -19541,9 +19542,9 @@ Partial Class Ventas If Proyecto <> "" Then DrProyecto = DtSubProyecto.FiltroPrimero($"(SubProyecto) = '{Proyecto}'") If DrProyecto IsNot Nothing Then - CveSubProyecto = DrProyecto("CveSubProyecto").ToString.ToEntero - CveProyecto = DrProyecto("CveProyecto").ToString.ToEntero - SubProyecto = DrProyecto("SubProyecto").ToString + CveSubProyecto = DrProyecto("CveSubProyecto").ToString().ToEntero() + CveProyecto = DrProyecto("CveProyecto").ToString().ToEntero() + SubProyecto = DrProyecto("SubProyecto").ToString() End If Else CveProyecto = -1 @@ -19569,7 +19570,7 @@ Partial Class Ventas 'Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c) 'If StrArray.Length > 0 Then ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero + ' CvePS = StrArray(1).ToEntero() ' Else ' RowNoEncontrados &= StrArray(1) & "<\BR>" ' End If @@ -19592,7 +19593,7 @@ Partial Class Ventas 'Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c) 'If StrArray.Length > 0 Then ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero + ' CvePS = StrArray(1).ToEntero() ' Else ' RowNoEncontrados &= StrArray(1) & "<\BR>" ' End If @@ -19614,7 +19615,7 @@ Partial Class Ventas 'Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c) 'If StrArray.Length > 0 Then ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero + ' CvePS = StrArray(1).ToEntero() ' Else ' RowNoEncontrados &= StrArray(1) & "<\BR>" ' End If @@ -19624,7 +19625,7 @@ Partial Class Ventas End If If CvePS > 0 Then - 'CveUM = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero + 'CveUM = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString().ToEntero() AgregarProductoServicio(Cantidad, CveUM, UM, -1, "", CvePS, HdnPS.Value, Observaciones, PrecioUnitario, HdnDescuento.Value.ToDecimal, @@ -19634,16 +19635,16 @@ Partial Class Ventas 'If TmpDT IsNot Nothing Then ' Dim dr As DataRow = TmpDT.NewRow - ' TxtCantidad.Text = Cantidad.ToString - ' DdlPS.SelectedValue = CvePS.ToString + ' TxtCantidad.Text = Cantidad.ToString() + ' DdlPS.SelectedValue = CvePS.ToString() ' DdlPS_SelectedIndexChanged(Nothing, Nothing) - ' DdlUnidadMedida.SelectedValueExist(CveUM.ToString) + ' DdlUnidadMedida.SelectedValueExist(CveUM.ToString()) ' TxtObsPS.Text = Observaciones - ' DdlProyecto.SelectedValue = CveProyecto.ToString + ' DdlProyecto.SelectedValue = CveProyecto.ToString() ' DdlProyecto_SelectedIndexChanged(Nothing, Nothing) - ' DdlSubProyecto.SelectedValue = CveSubProyecto.ToString - ' TxtPrecio.Text = PrecioUnitario.ToString - ' TxtTiempoEntrega.Text = TiempoEntrega.ToString + ' DdlSubProyecto.SelectedValue = CveSubProyecto.ToString() + ' TxtPrecio.Text = PrecioUnitario.ToString() + ' TxtTiempoEntrega.Text = TiempoEntrega.ToString() ' RegistraScript("Recalcula();") ' LbAgregar_Click(Nothing, Nothing) ' NumAgregados = NumAgregados + 1 @@ -19685,7 +19686,7 @@ Partial Class Ventas ' If dtps Is Nothing Then dtps = GlobalDTPS(UsuarioActual.CveEmpresa) ' CvePS = dtps.FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString().ToEntero() ' If CvePS > 0 Then - ' StrReturn = "True|" & CvePS.ToString + ' StrReturn = "True|" & CvePS.ToString() ' Else ' StrReturn = "False|    - No se encontró " & Valor & " en la fila " & NumRow & ", columna " & Opt ' End If @@ -19698,7 +19699,7 @@ Partial Class Ventas Dim ObjContratos As New ClsContratos If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then - CorreoNotificacionPedDev = ObjContratos.DtResultados(0)("CorreoNotificacionPedDev").ToString + CorreoNotificacionPedDev = ObjContratos.DtResultados(0)("CorreoNotificacionPedDev").ToString() End If End If ObjContratos.Dispose() @@ -19810,7 +19811,7 @@ Partial Class Ventas strBody.Append("") - Return strBody.ToString + Return strBody.ToString() End Function #End Region @@ -19838,7 +19839,7 @@ Partial Class Ventas #Region "D E V O L U C I O N D E P E D I D O " Private Sub CargaFacturaDevolucionPedido() Dim CveVenta As Integer = Me.CveVenta - Dim MovInv As Integer = ViewState("MovInv").ToString.ToEntero + Dim MovInv As Integer = ViewState("MovInv").ToString().ToEntero() Dim ObjVentas As New ClsVentas() Dim ObjInventarios As New ClsInventarios @@ -19848,44 +19849,44 @@ Partial Class Ventas Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0) 'CargaCliente - Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString.ToEntero + Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString().ToEntero() If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then Exit Sub ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then Exit Sub End If - HdnCveCliente.Value = CveCliente.ToString + HdnCveCliente.Value = CveCliente.ToString() ViewState("CveCliente") = CveCliente CargaCliente(CveCliente, -1) 'Estatus activo, se requiere para cargar una factura en la que el cliente a sido eliminado TxtFecha.Text = Now.ToShortDateString - 'TxtSubTotal.Text = DbRowVenta("SubTotal").ToString.FormatoNumero(2) - 'LblDescuentos.Text = DbRowVenta("Descuento").ToString.FormatoNumero(2) - 'LblAmortizacion.Text = DbRowVenta("Amortizacion").ToString.FormatoNumero(2) + '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) - 'TxtRetISR.Text = DbRowVenta("RetISR").ToString.FormatoNumero(2) - 'TxtIEPS.Text = DbRowVenta("IEPS").ToString.FormatoNumero(2) - CveContrato = DbRowVenta("CveContrato").ToString.ToEntero - TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString - TxtObsFact.Text = DbRowVenta("Observaciones").ToString + 'TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2) + 'TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) + 'TxtRetISR.Text = DbRowVenta("RetISR").ToString().FormatoNumero(2) + 'TxtIEPS.Text = DbRowVenta("IEPS").ToString().FormatoNumero(2) + CveContrato = DbRowVenta("CveContrato").ToString().ToEntero() + TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString() + TxtObsFact.Text = DbRowVenta("Observaciones").ToString() HdnIVAOriginal.Value = TxtIVA.Text - TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString + TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString() TxtPedidoContrato.Enabled = False - TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString + TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString() TxtOrdenCompra.Enabled = False - TxtObsAlmacen.Text = DbRowVenta("ObservacionesAlmacen").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) - DdlSubProyectoCobranza.SelectedValueExist(DbRowVenta("CveSubProyectoCobranza").ToString) - DdlSubProyectoEjecucion.SelectedValueExist(DbRowVenta("CveSubProyectoEjecucion").ToString) - CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString.ToEntero) + TxtObsAlmacen.Text = DbRowVenta("ObservacionesAlmacen").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()) + DdlSubProyectoCobranza.SelectedValueExist(DbRowVenta("CveSubProyectoCobranza").ToString()) + DdlSubProyectoEjecucion.SelectedValueExist(DbRowVenta("CveSubProyectoEjecucion").ToString()) + CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString().ToEntero()) DdlMetodoPago33.SelectedIndex = 1 DdlFormaPago33.SelectedIndex = 1 @@ -19896,16 +19897,16 @@ Partial Class Ventas DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacenAsignado.SelectedValue = "-1" DdlAlmacenAsignado.DataBind() - DdlAlmacenAsignado.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoOrigen").ToString)) - DdlAlmacenAsignado.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoOrigen").ToString) + DdlAlmacenAsignado.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoOrigen").ToString())) + DdlAlmacenAsignado.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoOrigen").ToString()) RequiereAlmacenOrigen = True DdlAlmacenOrigen.Items.Clear() DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacenOrigen.SelectedValue = "-1" DdlAlmacenOrigen.DataBind() - DdlAlmacenOrigen.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoDestino").ToString)) - DdlAlmacenOrigen.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoDestino").ToString) + DdlAlmacenOrigen.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoDestino").ToString())) + DdlAlmacenOrigen.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoDestino").ToString()) If ObjInventarios.GetMovimientosDetalle(MovInv, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -19914,14 +19915,14 @@ Partial Class Ventas Dim Cantidad = 0.0D, PU = 0.0D, Descuento = 0.0D Dim Filtro As String = "" - If ViewState("CveMovimientoDetalle").ToString.ToEntero > 0 Then - Filtro = $"AND CveMovimientoDetalle = {ViewState("CveMovimientoDetalle").ToString.ToEntero}" + If ViewState("CveMovimientoDetalle").ToString().ToEntero() > 0 Then + Filtro = $"AND CveMovimientoDetalle = {ViewState("CveMovimientoDetalle").ToString().ToEntero()}" End If For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros($"ExistenciaPedido > 0 {Filtro}").Rows - AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UnidadMedida").ToString, dr("CveClasificacion").ToString.ToEntero, dr("Clasificacion").ToString, - dr("CvePS").ToString.ToEntero, dr("PS").ToString, dr("SerieLote").ToString, dr("PU").ToString.ToDecimal, 0.0D, - dr("CveProyecto").ToString.ToEntero, dr("Proyecto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString, - CveMovimientoDetallePedido:=dr("CveMovimientoDetalle").ToString.ToEntero) + AgregarProductoServicio(dr("Cantidad").ToString().ToDecimal, dr("CveUM").ToString().ToEntero(), dr("UnidadMedida").ToString(), dr("CveClasificacion").ToString().ToEntero(), dr("Clasificacion").ToString(), + dr("CvePS").ToString().ToEntero(), dr("PS").ToString(), dr("SerieLote").ToString(), dr("PU").ToString().ToDecimal, 0.0D, + dr("CveProyecto").ToString().ToEntero(), dr("Proyecto").ToString(), dr("CveSubProyecto").ToString().ToEntero(), dr("SubProyecto").ToString(), + CveMovimientoDetallePedido:=dr("CveMovimientoDetalle").ToString().ToEntero()) Next CalculaTotalesVenta() End If @@ -19932,7 +19933,7 @@ Partial Class Ventas GvPS.Columns(19).Visible = False GvPS.Columns(20).Visible = False - DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString + DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString() DdlTipoComprobante.Enabled = False 'DdlSucursal.Enabled = False DdlSubProyectoDatos.Enabled = False @@ -20116,19 +20117,19 @@ Partial Class Ventas If ChkRequiereSerie.Checked Then CveMetodoInventario = 5 Else CveMetodoInventario = 1 Dim CveMarca As Integer = 0 - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero() Dim ObjProductosServicios As New ClsProductosServicios() - If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero, -1, DdlUnidadMedidaPS.SelectedValue.ToEntero, TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero) > 0 Then - DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero) + If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then + DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero()) DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e) 'SI ES DDLOST - If UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then - DdlPS.SelectedValue = ObjProductosServicios.CvePS.ToString + If UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then + DdlPS.SelectedValue = ObjProductosServicios.CvePS.ToString() DdlPS.SelectedText = TxtPS.Text.Trim Else - DdlPS.ddl.Items.Insert(2, New ListItem(TxtPS.Text.Trim, ObjProductosServicios.CvePS.ToString)) + DdlPS.ddl.Items.Insert(2, New ListItem(TxtPS.Text.Trim, ObjProductosServicios.CvePS.ToString())) DdlPS.ddl.SelectedValueExist(ObjProductosServicios.CvePS) End If @@ -20139,7 +20140,7 @@ Partial Class Ventas HdnPS.Value = TxtPS.Text.Trim HdnCodigoPS.Value = $"{TxtCodigoPS.Text.Trim}-{TxtPS.Text.Trim}" HdnTipoPS.Value = DdlTipoPS.SelectedValue - HdnTipoInv.Value = CveMetodoInventario.ToString + HdnTipoInv.Value = CveMetodoInventario.ToString() HdnAplicaIEPS.Value = "False" HdnPorcentajeIEPS.Value = "-1" HdnIVAPS.Value = "0.16" @@ -20186,7 +20187,7 @@ Partial Class Ventas TxtPrecioPyME.Text = "0.00" TxtDescuentoPyME.Text = "0.00" LblTotalPyME.Text = "0.00" - If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then DdlPSPyME.SelectedValue = "-1" Else DdlPSPyME.SelectedValue = "" @@ -20206,12 +20207,12 @@ Partial Class Ventas Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Modalidad = "U" - Index = GvRow.DataKey("Consec").ToEntero + Index = GvRow.DataKey("Consec").ToEntero() LnkAgregarPyME.Text = "Actualizar" DdlClasificacionPyME.SelectedValueExist(GvRow.DataKey("CveClasificacion")) - CargaPSPyME(DdlClasificacionPyME.SelectedValue.ToEntero, DdlPSPyME) + CargaPSPyME(DdlClasificacionPyME.SelectedValue.ToEntero(), DdlPSPyME) UpClasificacionPyME.Update() - If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then DdlPSPyME.SelectedValue = GvRow.DataKey("CvePS") Else DdlPSPyME.SelectedValue = GvRow.DataKey("CvePS") @@ -20242,7 +20243,7 @@ Partial Class Ventas TxtObsPyME.Text = "" TxtPrecioPyME.Text = "0.00" LblTotalPyME.Text = "0.00" - If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then DdlPSPyME.SelectedValue = "-1" Else DdlPSPyME.SelectedValue = "" @@ -20271,7 +20272,7 @@ Partial Class Ventas DdlPSPyME.setEsWebService(True) DdlPSPyME.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) - DdlPSPyME.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) + DdlPSPyME.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString()) DdlPSPyME.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") DdlPSPyME.ddlWS.Attributes.Add("data-Estatus", "1") @@ -20279,35 +20280,35 @@ Partial Class Ventas Private Sub DdlPSPyMEIndexChange() If CveCliente > 0 OrElse DdlPSPyME.SelectedValue = "-2" Then - If DdlPSPyME.SelectedValue IsNot Nothing AndAlso DdlPSPyME.SelectedValue.ToEntero > 0 Then - Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSPyME.SelectedValue.ToEntero).FiltroPrimero("") + If DdlPSPyME.SelectedValue IsNot Nothing AndAlso DdlPSPyME.SelectedValue.ToEntero() > 0 Then + Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSPyME.SelectedValue.ToEntero()).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() DdlUMPyME.Items.Clear() If UsuarioActual.Empresa.UsaInventarios Then - DdlUMPyME.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSPyME.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + DdlUMPyME.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSPyME.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa) Else DdlUMPyME.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) End If DdlUMPyME.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlUMPyME.SelectedValue = "-1" DdlUMPyME.DataBind() - DdlUMPyME.SelectedValueExist(drPS("CveUnidadMedida").ToString) + DdlUMPyME.SelectedValueExist(drPS("CveUnidadMedida").ToString()) - 'LblUnidadMedida.Text = PS.Rows(0)("UnidadMedida").ToString - TxtPrecioPyME.Text = drPS("Precio").ToString.FormatoNumero(2).Replace(","c, "") + 'LblUnidadMedida.Text = PS.Rows(0)("UnidadMedida").ToString() + TxtPrecioPyME.Text = drPS("Precio").ToString().FormatoNumero(2).Replace(","c, "") Dim Cantidad As Decimal = TxtCantidadPyME.Text.ToDecimal() Dim PU As Decimal = TxtPrecioPyME.Text.ToDecimal() - Dim ObjDescuento As Descuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero, Cantidad, PU) + Dim ObjDescuento As Descuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero(), Cantidad, PU) TxtDescuentoPyME.Text = ObjDescuento.ImporteDescuento.FormatoNumero(2).Replace(","c, "") @@ -20316,12 +20317,12 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 80 Then 'busca el precio de la sucursal Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPSSucursales(DdlPSPyME.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero) Then + If ObjPS.GetPSSucursales(DdlPSPyME.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()) Then Dim dtt As DataTable = ObjPS.DtResultados Dim drPrecio As DataRow = dtt.FiltroPrimero("") If drPrecio IsNot Nothing Then - TxtPrecioPyME.Text = drPrecio("Importe").ToString.ToDouble.ToString("N4") + TxtPrecioPyME.Text = drPrecio("Importe").ToString().ToDouble.ToString("N4") End If dtt.Dispose() End If @@ -20330,17 +20331,17 @@ Partial Class Ventas End If 'If IsNumeric(TxtCantidad.Text.Trim) Then - ' LblTotalPyME.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString.FormatoNumero(2) + ' LblTotalPyME.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2) 'End If - 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 DdlClasificacionPyME.SelectedIndex = 0 Then - If drPS("CveClasificacion").ToString IsNot Nothing Then - DdlClasificacionPyME.SelectedValueExist(drPS("CveClasificacion").ToString) + If drPS("CveClasificacion").ToString() IsNot Nothing Then + DdlClasificacionPyME.SelectedValueExist(drPS("CveClasificacion").ToString()) Else Alert("El Productos/Servicio no tiene asignada una Clasificación.") End If @@ -20362,7 +20363,7 @@ Partial Class Ventas End Sub Private Sub DdlClasificacionPyME_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacionPyME.SelectedIndexChanged - CargaPSPyME(DdlClasificacionPyME.SelectedValue.ToEntero, DdlPSPyME) + CargaPSPyME(DdlClasificacionPyME.SelectedValue.ToEntero(), DdlPSPyME) UpClasificacionPyME.Update() End Sub @@ -20378,7 +20379,7 @@ Partial Class Ventas Dim Consec As Integer = 1 For Each indice As String In sArray If IsNumeric(indice) Then - Dim dr As DataRow = TmpDT.Rows(indice.ToEntero) + Dim dr As DataRow = TmpDT.Rows(indice.ToEntero()) dr("Consec") = Consec dr.AcceptChanges() DTClon.ImportRow(dr) @@ -20415,32 +20416,32 @@ Partial Class Ventas Dim Cantidad As Double Dim Existencia As Double For Each Dr As DataRow In TmpDT.Rows - 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 Not CveProducto > 0 Then Return False End If - If Dr("CveTipoInvPS").ToString.ToEntero = 5 Then + If Dr("CveTipoInvPS").ToString().ToEntero() = 5 Then For Each Dr2 As DataRow In DtContratosSerieDetalle.FiltraParametros($"ConsecId = {Dr("CveContratoDetalle")}").Rows - Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, SerieLote:=Dr2("Serie").ToString, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) + Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, SerieLote:=Dr2("Serie").ToString(), FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) If Existencia < 1 Then Return False End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr2("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr2("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then Return False End If Next Else - Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) + Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, factura.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1) If Existencia < Cantidad Then Return False End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, Cantidad, CveUnidad, CveProducto, 0, -1, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, Cantidad, CveUnidad, CveProducto, 0, -1, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then Return False End If End If @@ -20455,7 +20456,7 @@ Partial Class Ventas If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, Dr("CveAF").ToString().ToEntero(), Dr("CveSeccionAlmacen").ToString().ToEntero(), Dr("SerieLote").ToString(), Lote:=Dr("Lote").ToString(), Batch:=Dr("Batch").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then Return False End If Next @@ -20469,7 +20470,7 @@ Partial Class Ventas If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, Dr("CveAF").ToString().ToEntero(), Dr("CveSeccionAlmacen").ToString().ToEntero(), Dr("SerieLote").ToString(), Lote:=Dr("Lote").ToString(), Batch:=Dr("Batch").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then Return False End If Next @@ -20503,12 +20504,12 @@ Partial Class Ventas Protected Sub BtnSerieConsignacion_Click(sender As Object, e As EventArgs) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) - CveConsecSerieLote = Argumentos(0).ToEntero - CvePSSerieLote = Argumentos(1).ToEntero - CveUMSerieLote = Argumentos(2).ToEntero + CveConsecSerieLote = Argumentos(0).ToEntero() + CvePSSerieLote = Argumentos(1).ToEntero() + CveUMSerieLote = Argumentos(2).ToEntero() LbProducto.Text = Argumentos(3) LbCantidad.Text = If(Argumentos(4).ToDecimal < 0.0D, 0, Argumentos(4).ToDecimal).FormatoNumero - LimitaCantidadSerieLote = Argumentos(5).ToEntero + LimitaCantidadSerieLote = Argumentos(5).ToEntero() CargaSerie() End Sub @@ -20519,9 +20520,9 @@ Partial Class Ventas GvSerie.DataSource = DtContratosSerieDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerieLote), "Consec DESC") GvSerie.DataBind() - lblSerieTotal.Text = GvSerie.Rows.Count.ToString + lblSerieTotal.Text = GvSerie.Rows.Count.ToString() 'VALIDA QUE SIGA AGREGANDO - If DtContratosSerieDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerieLote)).Rows.Count = LbCantidad.Text.ToEntero And LimitaCantidadSerieLote = 1 Then + If DtContratosSerieDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerieLote)).Rows.Count = LbCantidad.Text.ToEntero() And LimitaCantidadSerieLote = 1 Then BtnAgregarPS.Enabled = False If CerrarCompletado Then RegistraScript("$('#DivSerieConsignacion').modal('hide');") @@ -20574,7 +20575,7 @@ Partial Class Ventas End If 'PARA VALIDAR SI LA SERIE ES IGUAL AL CODIGO O CODIGOBARRAS - If SerieRow = dr("Codigo").ToString.ToUpper Or SerieRow = dr("CodigoBarras").ToString.ToUpper Then + If SerieRow = dr("Codigo").ToString().ToUpper Or SerieRow = dr("CodigoBarras").ToString().ToUpper Then MensajeAlert.Append($"
    El numero de Serie {SerieRow} coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.") Continue For End If @@ -20584,8 +20585,8 @@ Partial Class Ventas DtSeriesNuevas.Rows.Add(Row) Next - If MensajeAlert.ToString <> "" Then - Alert(MensajeAlert.ToString, TipoMensaje.MsgAdvertencia) + If MensajeAlert.ToString() <> "" Then + Alert(MensajeAlert.ToString(), TipoMensaje.MsgAdvertencia) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error") Exit Sub End If @@ -20599,7 +20600,7 @@ Partial Class Ventas Dim Row = DtContratosSerieDetalle.NewRow Index = Index + 1 - If Index > LbCantidad.Text.ToEntero And LimitaCantidadSerieLote = 1 Then + If Index > LbCantidad.Text.ToEntero() And LimitaCantidadSerieLote = 1 Then MensajeSinExistencias.Append($"Serie: {SerieRow} - En esta serie ocurrió un error por favor de comunicarse con soporte tecnico..
    ") Continue For End If @@ -20627,8 +20628,8 @@ Partial Class Ventas CargaSerie(True) - If MensajeSinExistencias.ToString <> "" Then - Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron.
    {MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia) + If MensajeSinExistencias.ToString() <> "" Then + Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron.
    {MensajeSinExistencias.ToString()}", TipoMensaje.MsgAdvertencia) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error") Else RegistraScript("playsonidito('beep-07.wav')", "Existo") @@ -20638,9 +20639,9 @@ Partial Class Ventas Protected Sub GvSerie_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvSerie.RowDeleting Try - Dim keySerieLote As String = e.Keys("Serie").ToString + Dim keySerieLote As String = e.Keys("Serie").ToString() For Each dr As DataRow In DtContratosSerieDetalle.Rows - If dr("Serie").ToString = keySerieLote Then + If dr("Serie").ToString() = keySerieLote Then dr.Delete() End If Next @@ -20655,9 +20656,9 @@ Partial Class Ventas Private Sub CargaCantidadSerieGV() 'MODIFICA CANTIDAD DEL GV CONTRATOS For Each Gvr As GridViewRow In GvContratoDetalles.Rows - If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then + If Gvr.DataKey("CvePS").ToEntero() = CvePSSerieLote Then Dim Contador = DtContratosSerieDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("CveContratoDetalle"))).Rows.Count - Gvr.FCTextBox("TxtCant").Text = Contador.ToString + Gvr.FCTextBox("TxtCant").Text = Contador.ToString() UPEstimaciones.Update() Exit For End If @@ -20736,8 +20737,8 @@ Partial Class Ventas End Sub Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolio").ToString - TxtParaMail.Text = gvRow.DataKey("CobranzaCorreo").ToString + HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolio").ToString() + TxtParaMail.Text = gvRow.DataKey("CobranzaCorreo").ToString() UpSendMail.Update() RegistraScript("$('#ModalDivMail').modal('show');") End Sub @@ -20821,7 +20822,7 @@ Partial Class Ventas ' End If ' End If ' ObjVentas.Dispose() - ' Alert(dtt.Rows.Count.ToString) + ' Alert(dtt.Rows.Count.ToString()) ' GvRelacionarNC.DataSource = dtt ' GvRelacionarNC.DataBind() @@ -20905,8 +20906,8 @@ Partial Class Ventas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) IndexDocumentoCliente = GvRow.RowIndex - Dim Documentacion As String = GvRow.DataKey("Documentacion").ToString - AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString + Dim Documentacion As String = GvRow.DataKey("Documentacion").ToString() + AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString() LtlModalTitleUploadDocumentoCliente.Text = "Subir " & Documentacion BtnModalClienteDocumentoCancelar.Visible = True @@ -20937,7 +20938,7 @@ Partial Class Ventas If RequiereOC And Not BtnModalClienteDocumentoCancelar.Visible Then 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 CargaDocumentoOC = True Exit For @@ -20970,10 +20971,10 @@ Partial Class Ventas If e.Row.RowType = DataControlRowType.DataRow Then Dim ArchivoRuta As String = e.Row.DataKey("RutaArchivo") - Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString + Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString() Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim Chk As CheckBox = e.Row.FCCheckBox("chkEstatus") - Chk.Checked = If(e.Row.DataKey("Estatus").ToString = "1", True, False) + Chk.Checked = If(e.Row.DataKey("Estatus").ToString() = "1", True, False) If ArchivoRuta.Trim.Length > 0 Then @@ -21027,15 +21028,15 @@ Partial Class Ventas If tCveVenta > 0 Then For Each DRow As DataRow In DtDocumentacionCliente.FiltraParametros("RutaArchivo <> '' ").Rows - Dim CveDocumentacion As Integer = DRow("CveDocumentacion").ToString.ToEntero - Dim Estatus As Integer = DRow("Estatus").ToString.ToEntero - Dim Adjunto As String = DRow("Adjunto").ToString + Dim CveDocumentacion As Integer = DRow("CveDocumentacion").ToString().ToEntero() + Dim Estatus As Integer = DRow("Estatus").ToString().ToEntero() + Dim Adjunto As String = DRow("Adjunto").ToString() Dim NombreArchivo As String = "" - Dim ArchivoRuta As String = DRow("RutaArchivo").ToString + Dim ArchivoRuta As String = DRow("RutaArchivo").ToString() If ArchivoRuta.Length > 0 Then Adjunto = ArchivoRuta Dim Extension As String = Path.GetExtension(Adjunto) - Dim CveDocumentacionElectronica As Integer = objDocumentacion.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, -1, 1, DRow("Observacion").ToString, Extension, UsuarioActual.CveUsuario, New Date(1900, 1, 1), CveVenta:=tCveVenta) + Dim CveDocumentacionElectronica As Integer = objDocumentacion.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, -1, 1, DRow("Observacion").ToString(), Extension, UsuarioActual.CveUsuario, New Date(1900, 1, 1), CveVenta:=tCveVenta) If CveDocumentacionElectronica <= 0 Then ErrorList.Add("No se pudo registrar el documento ") NombreArchivo = $"{CveDocumentacionElectronica}{Extension}" @@ -21089,10 +21090,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 @@ -21135,8 +21136,8 @@ 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 @@ -21155,7 +21156,7 @@ Partial Class Ventas Dim TCVenta As Decimal = TxtTipoCambio.Text.ToDecimal Dim FechaVenta As Date = TxtFecha.Text.ToDate Dim FechaPago As Date = TxtFechaSaldarVenta.Text.ToDate - Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero + Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero() Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaSaldarVenta.Text.ToDate).FormatoNumero(4).ToDecimal Dim CveConceptoDeduccion As Integer = 211 @@ -21176,11 +21177,11 @@ Partial Class Ventas Dim IdCuentaContableNoDeducible As Integer = 0 Dim SerieFolio As String = LblSerie.Text & "-" & TxtFolio.Text Dim ConceptoPartida As String = "saldado " & SerieFolio - ' Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero + ' Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero() - If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero - If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero - If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero + If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero() + If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero() + If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero() If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = 0 If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos @@ -21245,14 +21246,14 @@ Partial Class Ventas ' iva - Dim PorcentajeImpuesto As Decimal = DdlIVA.SelectedValue.ToEntero + Dim PorcentajeImpuesto As Decimal = DdlIVA.SelectedValue.ToEntero() Dim IdCtaIVATrasladado As Integer = 0 Dim CveCuentaIVATrasladado As Integer = 0 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) @@ -21321,10 +21322,10 @@ Partial Class Ventas Dim objInventario As New ClsInventarios Dim CvePaqueteriaGuia As Integer - If objInventario.AddPaqueteriaGuia(DdlPaqueteria.SelectedValue.ToEntero, -1, TxtPaqueteriaGuia.Text.Trim, TxtPaqueteriaNumcajas.Text.ToEntero, TxtPaqueteriaPeso.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If objInventario.AddPaqueteriaGuia(DdlPaqueteria.SelectedValue.ToEntero(), -1, TxtPaqueteriaGuia.Text.Trim, TxtPaqueteriaNumcajas.Text.ToEntero(), TxtPaqueteriaPeso.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtRastreo.Text.Trim, TxtDimensiones.Text.Trim, TxtFechaEst.Text.Trim, CveVenta:=CveVenta) Then - CvePaqueteriaGuia = objInventario.DtResultados.Rows(0)(0).ToString.ToEntero + CvePaqueteriaGuia = objInventario.DtResultados.Rows(0)(0).ToString().ToEntero() CargaGvPaqueteria() LimpiacontrolesPaqueteria() @@ -21341,8 +21342,8 @@ Partial Class Ventas Protected Sub LnkRemovePaqueteriaGuia_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CvePaqueteriaGuia As Integer = GvRow.DataKey("CvePaqueteriaGuia").ToString.ToEntero - Dim Guia As String = GvRow.DataKey("Guia").ToString + Dim CvePaqueteriaGuia As Integer = GvRow.DataKey("CvePaqueteriaGuia").ToString().ToEntero() + Dim Guia As String = GvRow.DataKey("Guia").ToString() Dim objInventario As New ClsInventarios @@ -21408,13 +21409,13 @@ Partial Class Ventas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim CveMovimiento As Integer = -1 - Dim CvePaqueteriaGuia As Integer = GvRow.DataKey("CvePaqueteriaGuia").ToString.ToEntero - Dim NumCajas As String = GvRow.DataKey("NumCajas").ToString - Dim Guia As String = GvRow.DataKey("Guia").ToString - Dim Peso As String = GvRow.DataKey("Peso").ToString.ToDecimal.ToString("####.00") + Dim CvePaqueteriaGuia As Integer = GvRow.DataKey("CvePaqueteriaGuia").ToString().ToEntero() + Dim NumCajas As String = GvRow.DataKey("NumCajas").ToString() + Dim Guia As String = GvRow.DataKey("Guia").ToString() + Dim Peso As String = GvRow.DataKey("Peso").ToString().ToDecimal.ToString("####.00") Dim DTDatosClienteGuia As New DataTable Dim DTMovimientosDetalle As New DataTable - Dim CvePaqueteria As Integer = GvRow.DataKey("CvePaqueteria").ToString.ToEntero + Dim CvePaqueteria As Integer = GvRow.DataKey("CvePaqueteria").ToString().ToEntero() Dim RutaRdlc As String = Server.MapPath("~") & "\Empresas\Grales\Formatos\GuiasFormato" & CvePaqueteria & ".rdlc" Dim Rastreo As String = GvRow.DataKey("Rastreo") @@ -21459,15 +21460,15 @@ Partial Class Ventas End If If DTDatosClienteGuia.Rows.Count > 0 Then - params.Add(New ReportParameter("NombreComercial", DTDatosClienteGuia.Rows(0)("NombreComercial").ToString)) - params.Add(New ReportParameter("Direccion", DTDatosClienteGuia.Rows(0)("Direccion").ToString)) - params.Add(New ReportParameter("Colonia", DTDatosClienteGuia.Rows(0)("Colonia").ToString)) - params.Add(New ReportParameter("NoExt", DTDatosClienteGuia.Rows(0)("NoExt").ToString)) - params.Add(New ReportParameter("NoInt", DTDatosClienteGuia.Rows(0)("NoInt").ToString)) - params.Add(New ReportParameter("Localidad", DTDatosClienteGuia.Rows(0)("Localidad").ToString)) - params.Add(New ReportParameter("Telefono", DTDatosClienteGuia.Rows(0)("Telefono").ToString)) - params.Add(New ReportParameter("RFCCliente", DTDatosClienteGuia.Rows(0)("RFC").ToString)) - params.Add(New ReportParameter("CiudadCliente", DTDatosClienteGuia.Rows(0)("Ciudad").ToString)) + params.Add(New ReportParameter("NombreComercial", DTDatosClienteGuia.Rows(0)("NombreComercial").ToString())) + params.Add(New ReportParameter("Direccion", DTDatosClienteGuia.Rows(0)("Direccion").ToString())) + params.Add(New ReportParameter("Colonia", DTDatosClienteGuia.Rows(0)("Colonia").ToString())) + params.Add(New ReportParameter("NoExt", DTDatosClienteGuia.Rows(0)("NoExt").ToString())) + params.Add(New ReportParameter("NoInt", DTDatosClienteGuia.Rows(0)("NoInt").ToString())) + params.Add(New ReportParameter("Localidad", DTDatosClienteGuia.Rows(0)("Localidad").ToString())) + params.Add(New ReportParameter("Telefono", DTDatosClienteGuia.Rows(0)("Telefono").ToString())) + params.Add(New ReportParameter("RFCCliente", DTDatosClienteGuia.Rows(0)("RFC").ToString())) + params.Add(New ReportParameter("CiudadCliente", DTDatosClienteGuia.Rows(0)("Ciudad").ToString())) Else Exit Sub End If @@ -21491,7 +21492,7 @@ Partial Class Ventas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("Anio", Now.Year.ToString)) + params.Add(New ReportParameter("Anio", Now.Year.ToString())) params.Add(New ReportParameter("Mes", Now.Month.ToString("00"))) params.Add(New ReportParameter("Dia", Now.Day.ToString("00"))) @@ -21512,7 +21513,7 @@ Partial Class Ventas If e.Row.RowType = DataControlRowType.DataRow Then Dim Lnk As LinkButton = e.Row.FCLinkButton("LnkGuiaPaqueteriaGuia") - Dim Destinatario As String = e.Row.DataKey("Mail").ToString + Dim Destinatario As String = e.Row.DataKey("Mail").ToString() If Destinatario.Length = 0 Then e.Row.FCLinkButton("LnkGuiaPaqueteriaMail").Visible = False @@ -21539,13 +21540,13 @@ Partial Class Ventas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim SerieFolio As String = GvRow.DataKey("SerieFolio").ToString - Dim NombreComercial As String = GvRow.DataKey("NombreComercial").ToString - Dim Destinatario As String = GvRow.DataKey("Mail").ToString - Dim Paqueteria As String = GvRow.DataKey("Paqueteria").ToString - Dim Guia As String = GvRow.DataKey("Guia").ToString - Dim Rastreo As String = GvRow.DataKey("Rastreo").ToString - Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero + Dim SerieFolio As String = GvRow.DataKey("SerieFolio").ToString() + Dim NombreComercial As String = GvRow.DataKey("NombreComercial").ToString() + Dim Destinatario As String = GvRow.DataKey("Mail").ToString() + Dim Paqueteria As String = GvRow.DataKey("Paqueteria").ToString() + Dim Guia As String = GvRow.DataKey("Guia").ToString() + Dim Rastreo As String = GvRow.DataKey("Rastreo").ToString() + Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero() EnviarCorreoNotificacionGuias(1, SerieFolio, NombreComercial, Destinatario, Paqueteria, Guia, Rastreo, CveVenta, New DataTable) @@ -21567,7 +21568,7 @@ Partial Class Ventas 'Dim FolioOC As String = "" 'Dim FolioPedido As String = "" 'Dim CorreoDestino = "" - 'Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero + 'Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero() 'Dim CorreoVendedor As String = "" 'Dim CorreoVendedorUsuarioActual As String = "" @@ -21577,7 +21578,7 @@ Partial Class Ventas ' DtTemp = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveVendedor={CveVendedor}") ' If DtTemp.Rows.Count > 0 Then - ' CorreoVendedor = DtTemp.Rows(0)("Correo").ToString + ' CorreoVendedor = DtTemp.Rows(0)("Correo").ToString() ' End If 'End If @@ -21588,7 +21589,7 @@ Partial Class Ventas ' DtTemp = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveVendedor={ UsuarioActual.CveVendedor}") ' If DtTemp.Rows.Count > 0 Then - ' CorreoVendedorUsuarioActual = DtTemp.Rows(0)("Correo").ToString + ' CorreoVendedorUsuarioActual = DtTemp.Rows(0)("Correo").ToString() ' End If ' End If @@ -21621,7 +21622,7 @@ Partial Class Ventas 'If CveOC > 0 Then ' Dim ObjOC As New ClsOC ' If ObjOC.GetOC(CveOC, UsuarioActual.CveEmpresa) Then - ' FolioOC = ObjOC.Folio.ToString + ' FolioOC = ObjOC.Folio.ToString() ' End If ' ObjOC.Dispose() 'End If @@ -21630,7 +21631,7 @@ Partial Class Ventas 'If CvePedido > 0 Then ' Dim ObjVenta As New ClsVentas ' If ObjVenta.GetVenta(CvePedido, UsuarioActual.CveEmpresa) Then - ' FolioPedido = ObjVenta.Folio.ToString + ' FolioPedido = ObjVenta.Folio.ToString() ' End If ' ObjVenta.Dispose() 'End If @@ -21643,7 +21644,7 @@ Partial Class Ventas Cuerpo.AppendLine("CantidadProducto") For Each Drow As DataRow In tDtMovimientos.Rows - Cuerpo.AppendLine($"{Drow("Cantidad").ToString.ToEntero }{Drow("PS").ToString}") + Cuerpo.AppendLine($"{Drow("Cantidad").ToString().ToEntero() }{Drow("PS").ToString()}") Next Cuerpo.AppendLine("") End If @@ -21654,7 +21655,7 @@ Partial Class Ventas ' Destinatario = "sig.buzon@gmail.com" - If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString) Then + If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Then GuardarBitacora(CveVenta, "", "Notificación de envío de productos al cliente") Alert("Correo envíado exitosamente a " & Destinatario) Else @@ -21671,11 +21672,11 @@ Partial Class Ventas ' Cuerpo.AppendLine("CantidadProducto") ' For Each Drow As DataRow In tDtMovimientos.Rows - ' Cuerpo.AppendLine($"{Drow("Cantidad").ToString.ToEntero }{Drow("PS").ToString}") + ' Cuerpo.AppendLine($"{Drow("Cantidad").ToString().ToEntero() }{Drow("PS").ToString()}") ' Next ' Cuerpo.AppendLine("") 'End If - 'Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString) + 'Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) 'Exit Select @@ -21687,10 +21688,10 @@ Partial Class Ventas ' Cuerpo.AppendLine("CantidadProducto") ' For Each Drow As DataRow In tDtMovimientos.Rows - ' Cuerpo.AppendLine($"{Drow("Cantidad").ToString.ToEntero }{Drow("PS").ToString}") + ' Cuerpo.AppendLine($"{Drow("Cantidad").ToString().ToEntero() }{Drow("PS").ToString()}") ' Next ' Cuerpo.AppendLine("") - ' Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString) + ' Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) 'End If Exit Select @@ -21707,11 +21708,11 @@ Partial Class Ventas Cuerpo.AppendLine("CantidadProducto") For Each Drow As DataRow In tDtMovimientos.Rows - Cuerpo.AppendLine($"{Drow("Cantidad").ToString.ToEntero }{Drow("PS").ToString}") + Cuerpo.AppendLine($"{Drow("Cantidad").ToString().ToEntero() }{Drow("PS").ToString()}") Next Cuerpo.AppendLine("") End If - Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString) + Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Exit Select End Select @@ -21772,15 +21773,15 @@ Partial Class Ventas TxtNCPorcentaje.Text = PorcentajeMaximo.FormatoNumero(4) If PorcentajeMaximo < RVNCPorcentaje.MinimumValue.ToDouble Then - RVNCPorcentaje.MinimumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString + RVNCPorcentaje.MinimumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString() End If - RVNCPorcentaje.MaximumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString + RVNCPorcentaje.MaximumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString() TxtNCImporte.Text = ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero If ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero().ToDouble < RVTxtNCImporte.MinimumValue.ToDouble Then - RVTxtNCImporte.MinimumValue = ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero().ToDouble.ToString + RVTxtNCImporte.MinimumValue = ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero().ToDouble.ToString() End If - RVTxtNCImporte.MaximumValue = ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero().ToDouble.ToString + RVTxtNCImporte.MaximumValue = ((PorcentajeMaximo * TxtTotal.Text.ToDouble) / 100).FormatoNumero().ToDouble.ToString() 'RVIRNC.MinimumValue = RVTxtNCImporte.MinimumValue 'RVIRNC.MaximumValue = RVTxtNCImporte.MaximumValue @@ -21818,7 +21819,7 @@ Partial Class Ventas Private Sub CargaCxC() Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then + If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString().ToEntero(), "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero()) Then Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("TipoDocto <> 'RNC' AND Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento") GvCxC.DataSource = DtTemporal End If @@ -21828,7 +21829,7 @@ Partial Class Ventas Private Sub CargaRNC() Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then GvRemisionesNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") End If ObjMovtos.Dispose() @@ -21838,7 +21839,7 @@ Partial Class Ventas Private Sub CargaDescRNC() Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then GvDescNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") End If ObjMovtos.Dispose() @@ -21869,10 +21870,10 @@ Partial Class Ventas Protected Sub DdlNCNivelImporte_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ImporteReferencia As Double = 0, PorcentajeMaximo As Double = 0 If Not AplicaNCMasiva Then - ImporteReferencia = If(DdlNCNivelImporte.SelectedValue.ToEntero = 1, TxtTotal.Text.Trim.ToDouble, TxtSubTotal.Text.Trim.ToDouble) + ImporteReferencia = If(DdlNCNivelImporte.SelectedValue.ToEntero() = 1, TxtTotal.Text.Trim.ToDouble, TxtSubTotal.Text.Trim.ToDouble) PorcentajeMaximo = HplSaldoAuxiliar.Text.ToDouble * 100 / TxtTotal.Text.Trim.ToDouble - RVNCPorcentaje.MaximumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString - RVTxtNCImporte.MaximumValue = ((PorcentajeMaximo * ImporteReferencia) / 100).FormatoNumero().ToDouble.ToString + RVNCPorcentaje.MaximumValue = PorcentajeMaximo.FormatoNumero(4).ToDouble.ToString() + RVTxtNCImporte.MaximumValue = ((PorcentajeMaximo * ImporteReferencia) / 100).FormatoNumero().ToDouble.ToString() End If If AplicaNCMasiva Then RegistraScript($"CalculaImporteNCMasivo()", "CalculaImporteNCMasivo") Else RegistraScript("CalculaImporteNC();", "CalculaImporteNC") @@ -21900,7 +21901,7 @@ Partial Class Ventas End If ObjCliente.Dispose() - AplicarNC(DdlNCPS.SelectedValue.ToEntero, EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales) + AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales) RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC") End Sub @@ -21912,12 +21913,12 @@ Partial Class Ventas Exit Sub Else 'VALIDA CLAVES SAT - If DrPS("SATClavePS").ToString = "" Then - Alert($"El concepto {DrPS("Codigo").ToString}-{DrPS("PS").ToString} no cuenta con producto SAT. Por favor verifique y vuelva a intentar", TipoMensaje.MsgAdvertencia) + If DrPS("SATClavePS").ToString() = "" Then + Alert($"El concepto {DrPS("Codigo").ToString()}-{DrPS("PS").ToString()} no cuenta con producto SAT. Por favor verifique y vuelva a intentar", TipoMensaje.MsgAdvertencia) Exit Sub End If - If DrPS("SATClaveUnidadMedida").ToString = "" Then - Alert($"El concepto {DrPS("Codigo").ToString}-{DrPS("PS").ToString} no cuenta con Unidad Medida SAT. Por favor verifique y vuelva a intentar", TipoMensaje.MsgAdvertencia) + If DrPS("SATClaveUnidadMedida").ToString() = "" Then + Alert($"El concepto {DrPS("Codigo").ToString()}-{DrPS("PS").ToString()} no cuenta con Unidad Medida SAT. Por favor verifique y vuelva a intentar", TipoMensaje.MsgAdvertencia) Exit Sub End If End If @@ -21957,10 +21958,10 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvCxC.Rows If Gvr.FCCheckBox("ChkCxC").Checked Then - DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString.ToEntero, Gvr.FCTextBox("TxtImporte").Text.ToString.ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) 'CARGA FACTURA A LA CUAL SE APLICA LA NC - AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString.ToDecimal - CargaNCDT(Gvr.DataKey("CveVenta").ToString.ToEntero, Gvr.FCTextBox("TxtImporte").Text.ToString.ToDecimal) + AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal + CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal) End If Next End If @@ -21984,24 +21985,24 @@ Partial Class Ventas End If Dim query = From dr In DtImpuestos - Group By PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal, - PorcentajeRetIVA = dr("PorcentajeRetIVA").ToString.ToDecimal, - PorcentajeRetISR = dr("PorcentajeRetISR").ToString.ToDecimal, - PorcentajeIEPS = dr("PorcentajeIEPS").ToString.ToDecimal + Group By PorcentajeIVA = dr("PorcentajeIVA").ToString().ToDecimal, + PorcentajeRetIVA = dr("PorcentajeRetIVA").ToString().ToDecimal, + PorcentajeRetISR = dr("PorcentajeRetISR").ToString().ToDecimal, + PorcentajeIEPS = dr("PorcentajeIEPS").ToString().ToDecimal Into x = Group - Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString.ToDecimal), - ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString.ToDecimal), - ImporteIVA = x.Sum(Function(s) (s("ImporteIVA").ToString.ToDecimal)).RoundSQL(2), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA, - ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetIVA, - ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetISR, - ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString.ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeIEPS, + Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString().ToDecimal), + ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString().ToDecimal), + ImporteIVA = x.Sum(Function(s) (s("ImporteIVA").ToString().ToDecimal)).RoundSQL(2), ' Math.Round(s("ImporteIVA").ToString().ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA, + ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString().ToDecimal, 2)),' Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeRetIVA, + ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString().ToDecimal, 2)),' Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeRetISR, + ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString().ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString().ToDecimal, 2)) * PorcentajeIEPS, PorcentajeIVA = PorcentajeIVA, PorcentajeRetIVA = PorcentajeRetIVA, PorcentajeRetISR = PorcentajeRetISR, PorcentajeIEPS = PorcentajeIEPS - '(1 + DrPS("IEPSPorcentaje").ToString.ToDecimal) + '(1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) - Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero, UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") If DrSubProyecto Is Nothing Then Alert("Ocurrió un error al cargar la información de centro de costos. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) Exit Sub @@ -22013,10 +22014,10 @@ Partial Class Ventas LimpiaDocumentoNC() End If - Dim CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero - Dim SubProyecto = DrSubProyecto("SubProyecto").ToString - Dim CveProyecto = DrSubProyecto("CveProyecto").ToString.ToEntero - Dim Proyecto = DrSubProyecto("Proyecto").ToString + Dim CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString().ToEntero() + Dim SubProyecto = DrSubProyecto("SubProyecto").ToString() + Dim CveProyecto = DrSubProyecto("CveProyecto").ToString().ToEntero() + Dim Proyecto = DrSubProyecto("Proyecto").ToString() AplicaNC = True @@ -22025,11 +22026,11 @@ Partial Class Ventas TmpDTDescNC.Clear() For Each Dr As DataRow In DtImpuestos.Rows - AgregaTempDT(TmpDTDescNC, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero, - DrPS("CveUM").ToString.ToEntero, DrPS("UnidadMedida").ToString, DrPS("CveClasificacion").ToString.ToEntero, DrPS("Clasificacion").ToString, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, - TxtNCObservaciones.Text.Trim, 1, Dr("ImportePU").ToString.ToDecimal, Dr("PorcentajeIVA").ToString.ToDecimal, Dr("ImporteIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("ImporteRetIVA").ToString.ToDecimal, - Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("ImporteRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("ImporteIEPS").ToString.ToDecimal, -1, 0.0, Dr("ImporteTotal").ToString.ToDecimal, "", "", -1, -1, - DrPS("SATClavePS").ToString, DrPS("SATClaveUnidadMedida").ToString, -1, -1, -1, -1, -1, -1) + AgregaTempDT(TmpDTDescNC, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, + TxtNCObservaciones.Text.Trim, 1, Dr("ImportePU").ToString().ToDecimal, Dr("PorcentajeIVA").ToString().ToDecimal, Dr("ImporteIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("ImporteRetIVA").ToString().ToDecimal, + Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("ImporteRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("ImporteIEPS").ToString().ToDecimal, -1, 0.0, Dr("ImporteTotal").ToString().ToDecimal, "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) Next TrTipoRelacion.Visible = True @@ -22037,7 +22038,7 @@ Partial Class Ventas 'verifica el tipo de cambio que se actualice If DdlMoneda.SelectedValue <> "1" Then - TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString + TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() End If Else If DdlTipoComprobante.SelectedValue = "Ant" Then CveAnticipo = CveVenta @@ -22049,7 +22050,7 @@ Partial Class Ventas Dim Ajuste As Decimal = 0 For Each Dr As DataRow In DtImpuestos.Rows - Acumulado12 += Dr("ImportePU").ToString.ToDecimal.RoundSQL + Dr("ImporteIVA").ToString.ToDecimal.RoundSQL + Dr("ImporteIEPS").ToString.ToDecimal + Acumulado12 += Dr("ImportePU").ToString().ToDecimal.RoundSQL + Dr("ImporteIVA").ToString().ToDecimal.RoundSQL + Dr("ImporteIEPS").ToString().ToDecimal If UltimoRenglon = DtImpuestos.Rows.Count Then 'ajusta 5 centavos de diferencia If Acumulado12 <> AcumuladoNC And Math.Abs(Acumulado12 - AcumuladoNC) <= 0.05 Then @@ -22057,11 +22058,11 @@ Partial Class Ventas End If End If UltimoRenglon += 1 - AgregaTempDT(TmpDT, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero, - DrPS("CveUM").ToString.ToEntero, DrPS("UnidadMedida").ToString, DrPS("CveClasificacion").ToString.ToEntero, DrPS("Clasificacion").ToString, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, - TxtNCObservaciones.Text.Trim, 1, Dr("ImportePU").ToString.ToDecimal + Ajuste, Dr("PorcentajeIVA").ToString.ToDecimal, Dr("ImporteIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("ImporteRetIVA").ToString.ToDecimal, - Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("ImporteRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("ImporteIEPS").ToString.ToDecimal, -1, 0.0, Dr("ImporteTotal").ToString.ToDecimal(), "", "", -1, -1, - DrPS("SATClavePS").ToString, DrPS("SATClaveUnidadMedida").ToString, -1, -1, -1, -1, -1, -1) + AgregaTempDT(TmpDT, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, + TxtNCObservaciones.Text.Trim, 1, Dr("ImportePU").ToString().ToDecimal + Ajuste, Dr("PorcentajeIVA").ToString().ToDecimal, Dr("ImporteIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("ImporteRetIVA").ToString().ToDecimal, + Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("ImporteRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("ImporteIEPS").ToString().ToDecimal, -1, 0.0, Dr("ImporteTotal").ToString().ToDecimal(), "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) Next GvPS.DataSource = TmpDT @@ -22081,7 +22082,7 @@ Partial Class Ventas End If 'verifica el tipo de cambio que se actualice If DdlMoneda.SelectedValue <> "1" Then - TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString + TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() End If LblTCValuacion.Visible = False UpPS.Update() @@ -22114,8 +22115,8 @@ Partial Class Ventas If AplicaNCMasiva Then If ObjVentas.GetVenta(CveVentaNC, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - Total = ObjVentas.DtResultados()(0)("Total").ToString.ToDecimal - SubTotal = ObjVentas.DtResultados()(0)("SubTotal").ToString.ToDecimal + Total = ObjVentas.DtResultados()(0)("Total").ToString().ToDecimal + SubTotal = ObjVentas.DtResultados()(0)("SubTotal").ToString().ToDecimal End If End If Else @@ -22132,7 +22133,7 @@ Partial Class Ventas DtImpuestosLocal.Columns.Add("ImporteRetISR", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteIEPS", GetType(Decimal)) - Dim ImporteReferencia As Decimal = If(DdlNCNivelImporte.SelectedValue.ToEntero = 1, Total, SubTotal) + Dim ImporteReferencia As Decimal = If(DdlNCNivelImporte.SelectedValue.ToEntero() = 1, Total, SubTotal) Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100 Dim FiltroStr As String = "" Dim importePuTemp As Decimal = 0 @@ -22142,7 +22143,7 @@ Partial Class Ventas End If For Each Dr As DataRow In DtImpuestosLocal.Rows - FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto")) + FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("CveSubProyecto")) importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr).ToDecimal() - TmpDT.SUM("Descuento", FiltroStr).ToDecimal())) If Not AplicaImpuestosLocales Then @@ -22153,7 +22154,7 @@ Partial Class Ventas Dr("ImporteIEPS") = (importePuTemp * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2) - Dr("ImporteIVA") = ((importePuTemp + Dr("ImporteIEPS").ToString.ToDecimal) * Dr("PorcentajeIVA").ToString.ToDecimal) + Dr("ImporteIVA") = ((importePuTemp + Dr("ImporteIEPS").ToString().ToDecimal) * Dr("PorcentajeIVA").ToString().ToDecimal) Dr("ImporteRetIVA") = (importePuTemp * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2) Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2) @@ -22162,7 +22163,7 @@ Partial Class Ventas 'Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", FiltroStr), 2) 'Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", FiltroStr), 2) 'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2) - Dr("ImportePU") = importePuTemp.RoundSQL(6) 'Dr("ImporteTotal").ToString.ToDecimal.RoundSQL(2) '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal) + Dr("ImportePU") = importePuTemp.RoundSQL(6) 'Dr("ImporteTotal").ToString().ToDecimal.RoundSQL(2) '(Dr("ImporteTotal").ToString().ToDecimal - Dr("ImporteIVA").ToString().ToDecimal - Dr("ImporteRetIVA").ToString().ToDecimal - Dr("ImporteRetISR").ToString().ToDecimal - Dr("ImporteIEPS").ToString().ToDecimal) Next Dim importeNC = (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR")) @@ -22174,7 +22175,7 @@ Partial Class Ventas If Math.Abs(difTmp) > 0.00D Then 'asusto la diferencia en el último concepto - Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString.ToDecimal + difTmp + Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + difTmp DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado End If @@ -22321,7 +22322,7 @@ Partial Class Ventas DdlUsoCFDI.SelectedValueExist("2") DdlMetodoPago33.Enabled = True DdlMetodoPago33.SelectedValueExist("1") ' PUE - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) DdlFormaPago33.Enabled = True DdlFormaPago33.SelectedValueExist("11") ' condonación por default @@ -22367,9 +22368,9 @@ Partial Class Ventas End If If ObjVentasAplicar.GetVenta(pCveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentasAplicar.DtResultados.Rows.Count > 0 Then FolioFiscal = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("FolioFiscal").ToString() - TC = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambio").ToString.ToDecimal() - TCCambioValuacion = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambioValuacion").ToString.ToDecimal() - CveEstatusFacturaNC = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("CveEstatusFactura").ToString.ToEntero() + TC = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambio").ToString().ToDecimal() + TCCambioValuacion = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambioValuacion").ToString().ToDecimal() + CveEstatusFacturaNC = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("CveEstatusFactura").ToString().ToEntero() End If If ObjVentas Is Nothing Then @@ -22416,7 +22417,7 @@ Partial Class Ventas Dim SeEsconde As Boolean = False If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then - If Not DtDetalle.SUM("CantSur").ToString.ToDecimal > 0 Then SeEsconde = True + If Not DtDetalle.SUM("CantSur").ToString().ToDecimal > 0 Then SeEsconde = True 'NO MOSTRAR LOS PRODUCTOS CON LA CLASIFICACION DE USADOS GvAplicaDevolucion.DataSource = DtDetalle.FiltraParametros("CantRes > 0 AND CveClasificacion <> 20519") End If @@ -22473,25 +22474,25 @@ Partial Class Ventas For Each Gv As GridViewRow In GvAplicaDevolucion.Rows If Gv.FCCheckBox("Chk").Checked And Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDecimal > 0 Then Dim Cantidad As Decimal = Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDecimal - Dim Descuento As Decimal = Cantidad * Gv.DataKey("Descuento").ToString.ToDecimal / Gv.DataKey("Cantidad").ToString.ToDecimal + Dim Descuento As Decimal = Cantidad * Gv.DataKey("Descuento").ToString().ToDecimal / Gv.DataKey("Cantidad").ToString().ToDecimal Dim PU As Decimal = If(AplicaPUEditado, Gv.FCTextBox("TxtPrecioEditado").Text.ToDecimal, Gv.DataKey("PU").ToDecimal) Dim Total As Decimal = (Cantidad * PU) Dim TotalImpuestos As Decimal = (Cantidad * PU) - Descuento - Dim ImporteIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIVA").ToString.ToDecimal - Dim ImporteRetIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetIVA").ToString.ToDecimal - Dim ImporteRetISR As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetISR").ToString.ToDecimal - Dim ImporteIEPS As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIEPS").ToString.ToDecimal + Dim ImporteIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIVA").ToString().ToDecimal + Dim ImporteRetIVA As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal + Dim ImporteRetISR As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal + Dim ImporteIEPS As Decimal = TotalImpuestos * Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal - AgregaTempDT(TmpDT, Gv.DataKey("CvePS").ToString.ToEntero, Gv.DataKey("PS").ToString, Gv.DataKey("Codigo").ToString, Gv.DataKey("CodigoPS").ToString, - Gv.DataKey("CveTipoPS").ToString.ToEntero, Gv.DataKey("CveTipoInvPS").ToString.ToEntero, - Gv.DataKey("CveUM").ToString.ToEntero, Gv.DataKey("UM").ToString, Gv.DataKey("CveClasificacion").ToString.ToEntero, - Gv.DataKey("Clasificacion").ToString, Gv.DataKey("CveProyecto").ToString.ToEntero, Gv.DataKey("Proyecto").ToString, - Gv.DataKey("CveSubProyecto").ToString.ToEntero, Gv.DataKey("SubProyecto").ToString, - Gv.DataKey("Obs").ToString, Cantidad, PU, Gv.DataKey("PorcentajeIVA").ToString.ToDecimal, ImporteIVA, - Gv.DataKey("PorcentajeRetIVA").ToString.ToDecimal, ImporteRetIVA, - Gv.DataKey("PorcentajeRetISR").ToString.ToDecimal, ImporteRetISR, Gv.DataKey("PorcentajeIEPS").ToString.ToDecimal, + AgregaTempDT(TmpDT, Gv.DataKey("CvePS").ToString().ToEntero(), Gv.DataKey("PS").ToString(), Gv.DataKey("Codigo").ToString(), Gv.DataKey("CodigoPS").ToString(), + Gv.DataKey("CveTipoPS").ToString().ToEntero(), Gv.DataKey("CveTipoInvPS").ToString().ToEntero(), + Gv.DataKey("CveUM").ToString().ToEntero(), Gv.DataKey("UM").ToString(), Gv.DataKey("CveClasificacion").ToString().ToEntero(), + Gv.DataKey("Clasificacion").ToString(), Gv.DataKey("CveProyecto").ToString().ToEntero(), Gv.DataKey("Proyecto").ToString(), + Gv.DataKey("CveSubProyecto").ToString().ToEntero(), Gv.DataKey("SubProyecto").ToString(), + Gv.DataKey("Obs").ToString(), Cantidad, PU, Gv.DataKey("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, + Gv.DataKey("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, + Gv.DataKey("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, Gv.DataKey("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, Descuento, Total, "", "", -1, -1, - Gv.DataKey("SATClaveProdServ").ToString, Gv.DataKey("SATClaveUM").ToString, -1, Gv.DataKey("CveVentaDetalle").ToString.ToEntero, -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero()) + Gv.DataKey("SATClaveProdServ").ToString(), Gv.DataKey("SATClaveUM").ToString(), -1, Gv.DataKey("CveVentaDetalle").ToString().ToEntero(), -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero()) End If Next @@ -22509,14 +22510,14 @@ Partial Class Ventas 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 GvInv.Columns(0).Visible = True @@ -22559,7 +22560,7 @@ Partial Class Ventas TxtFecha.Text = Now.ToShortDateString() TipoCambioFactura = TxtTipoCambio.Text.ToDecimal - If DdlMoneda.SelectedValue.ToEntero > 1 Then + If DdlMoneda.SelectedValue.ToEntero() > 1 Then Dim ObjIE As New ClsBancos If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then If ObjIE.DtResultados.Rows.Count > 0 Then @@ -22568,7 +22569,7 @@ Partial Class Ventas Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha > #" & Fecha & "#", "Fecha DESC") If drr IsNot Nothing Then - TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal + TipoCambioFactura = drr("TipoCambio").ToString().ToDecimal End If End If @@ -22578,7 +22579,7 @@ Partial Class Ventas TipoCambioFactura = 1 End If - TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString + TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString() DivEstatusFac.Visible = False 'REINICIALIZA TABS @@ -22602,7 +22603,7 @@ Partial Class Ventas DdlUsoCFDI.SelectedValueExist("2") DdlMetodoPago33.Enabled = True DdlMetodoPago33.SelectedValueExist("1") - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) DdlFormaPago33.Enabled = True DdlFormaPago33.SelectedValueExist("11") @@ -22737,17 +22738,17 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvComercioExterior.Rows - If Not Gvr.DataKey("Codigo").ToString <> "" Then + If Not Gvr.DataKey("Codigo").ToString() <> "" Then Alert("Todos los conceptos tienen que tener un codigo asignado", TipoMensaje.MsgAdvertencia) Return False End If - If Not Gvr.DataKey("ClaveSATFraccionArancelaria").ToEntero > 0 Then + If Not Gvr.DataKey("ClaveSATFraccionArancelaria").ToEntero() > 0 Then Alert("Todos los productos tienen que tener una fraccion arancelaria", TipoMensaje.MsgAdvertencia) Return False End If - If Not Gvr.DataKey("ClaveSATUnidadAduana").ToEntero > 0 Then + If Not Gvr.DataKey("ClaveSATUnidadAduana").ToEntero() > 0 Then Alert("Todos los productos tienen que tener una unidad aduana", TipoMensaje.MsgAdvertencia) Return False End If @@ -22795,8 +22796,8 @@ Partial Class Ventas Private Sub CargaEstado() DdlComExtEstado.Items.Clear() - If DdlComExtPais.SelectedValue.ToEntero > 0 Then - DdlComExtEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString) + If DdlComExtPais.SelectedValue.ToEntero() > 0 Then + DdlComExtEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()) End If DdlComExtEstado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlComExtEstado.DataBind() @@ -22804,8 +22805,8 @@ Partial Class Ventas Private Sub CargaMunicipio() DdlComExtMunicipio.Items.Clear() - If DdlComExtEstado.SelectedValue.ToEntero > 0 Then - DdlComExtMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString) + If DdlComExtEstado.SelectedValue.ToEntero() > 0 Then + DdlComExtMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()) End If DdlComExtMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlComExtMunicipio.DataBind() @@ -22814,8 +22815,8 @@ Partial Class Ventas Private Sub CargaColonia() DdlComExtColonia.Items.Clear() - If DdlComExtMunicipio.SelectedValue.ToEntero > 0 Then - DdlComExtColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlComExtMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString) + If DdlComExtMunicipio.SelectedValue.ToEntero() > 0 Then + DdlComExtColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()).FiltraParametros($"CveMunicipio = {DdlComExtMunicipio.SelectedValue.ToEntero()}")(0)("ClaveSATMunicipio").ToString()) End If DdlComExtColonia.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlComExtColonia.DataBind() @@ -22868,8 +22869,8 @@ Partial Class Ventas End Sub Private Sub BtnComExtConvertirUnidad_Click(sender As Object, e As EventArgs) Handles BtnComExtConvertirUnidad.Click For Each gvr As GridViewRow In GvComercioExterior.Rows - gvr.FCTextBox("TxtCantidad").Text = (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * TxtComExtConvertir.Text.ToDecimal).ToString - gvr.FCTextBox("TxtValorUnitario").Text = (gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal / TxtComExtConvertir.Text.ToDecimal).ToString + gvr.FCTextBox("TxtCantidad").Text = (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * TxtComExtConvertir.Text.ToDecimal).ToString() + gvr.FCTextBox("TxtValorUnitario").Text = (gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal / TxtComExtConvertir.Text.ToDecimal).ToString() Next End Sub #End Region @@ -22894,15 +22895,15 @@ Partial Class Ventas Dim Guia As String = "" If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then If ObjInventario.DtResultados.Rows.Count > 0 Then - Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString + Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString() End If End If If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString - PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString - EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}" + SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString() + PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString() + EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString() + EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString()}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString()}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString()}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString()}" End If End If Dim Dt As DataTable = Nothing @@ -22945,56 +22946,56 @@ Partial Class Ventas Dim CP As String = "" If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then If ObjInventario.DtResultados.Rows.Count > 0 Then - Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString + Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString() End If End If If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString - PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString + SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString() + PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString() - If ObjVentas.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then - EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}" - EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString - EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString - EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString - EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString - EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString - EnvioNoExt = ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString - EnvioNoInt = ObjVentas.DtResultados.Rows(0)("EnvioNoInt").ToString - EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString - Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString - CP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString + If ObjVentas.DtResultados.Rows(0)("CveDireccionEnvio").ToString().ToEntero() > 0 Then + EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString() + EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString()}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString()}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString()}" + EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString() + EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString() + EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString() + EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString() + EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString() + EnvioNoExt = ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString() + EnvioNoInt = ObjVentas.DtResultados.Rows(0)("EnvioNoInt").ToString() + EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString() + Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString() + CP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString() 'CP = "Envio" Else - If ObjVentas.DtResultados.Rows(0)("CveClienteSucursal").ToString.ToEntero > 0 Then - 'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString}" - 'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString - EnviarCalle = ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString - EnviarColonia = ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString - EnvioCiudad = ObjVentas.DtResultados.Rows(0)("SucClienteCiudad").ToString - EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString - EnvioNoExt = ObjVentas.DtResultados.Rows(0)("SucClienteNoExt").ToString - EnvioNoInt = ObjVentas.DtResultados.Rows(0)("SucClienteNoInt").ToString - EnvioEstado = ObjVentas.DtResultados.Rows(0)("SucClienteEstado").ToString - Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString - 'CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString + If ObjVentas.DtResultados.Rows(0)("CveClienteSucursal").ToString().ToEntero() > 0 Then + 'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString() + EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString()}, COLONIA: {ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString()}, CP: {ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString()}" + 'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString() + EnviarCalle = ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString() + EnviarColonia = ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString() + EnvioCiudad = ObjVentas.DtResultados.Rows(0)("SucClienteCiudad").ToString() + EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString() + EnvioNoExt = ObjVentas.DtResultados.Rows(0)("SucClienteNoExt").ToString() + EnvioNoInt = ObjVentas.DtResultados.Rows(0)("SucClienteNoInt").ToString() + EnvioEstado = ObjVentas.DtResultados.Rows(0)("SucClienteEstado").ToString() + Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString() + 'CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString() CP = "Sucursal" Else - 'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("CPCliente").ToString}" - 'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString - EnviarCalle = ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString - EnviarColonia = ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString - EnvioCiudad = ObjVentas.DtResultados.Rows(0)("ClienteCiudad").ToString - EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString - EnvioNoExt = ObjVentas.DtResultados.Rows(0)("ClienteNoExt").ToString - EnvioNoInt = ObjVentas.DtResultados.Rows(0)("ClienteNoInt").ToString - EnvioEstado = ObjVentas.DtResultados.Rows(0)("ClienteEstado").ToString - Pais = ObjVentas.DtResultados.Rows(0)("ClientePais").ToString - 'CP = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString + 'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString() + EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString()}, COLONIA: {ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString()}, CP: {ObjVentas.DtResultados.Rows(0)("CPCliente").ToString()}" + 'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString() + EnviarCalle = ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString() + EnviarColonia = ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString() + EnvioCiudad = ObjVentas.DtResultados.Rows(0)("ClienteCiudad").ToString() + EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString() + EnvioNoExt = ObjVentas.DtResultados.Rows(0)("ClienteNoExt").ToString() + EnvioNoInt = ObjVentas.DtResultados.Rows(0)("ClienteNoInt").ToString() + EnvioEstado = ObjVentas.DtResultados.Rows(0)("ClienteEstado").ToString() + Pais = ObjVentas.DtResultados.Rows(0)("ClientePais").ToString() + 'CP = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString() CP = "Cliente" End If EnvioContacto = "" @@ -23061,7 +23062,7 @@ Partial Class Ventas End Sub Protected Sub BtnAddClasificacionDetalleModal_Click(sender As Object, e As EventArgs) Dim ObjVentas As New ClsVentas - If ObjVentas.AddClasificacionDetalle(TxtClasificacionDetalle.Text, DdlClasificacionModal.SelectedValue.ToEntero, + If ObjVentas.AddClasificacionDetalle(TxtClasificacionDetalle.Text, DdlClasificacionModal.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CargaClasificacionesDetalles() DdlTipo.SelectedValueExist(ObjVentas.CveClasificacionDetalle) @@ -23099,7 +23100,7 @@ Partial Class Ventas CambiaMetodoPago33() End Sub Private Sub CambiaMetodoPago33() - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) End Sub @@ -23197,9 +23198,9 @@ Partial Class Ventas Exit Sub End If - Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero + Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero() Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal - If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then + If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then TipoCambio = 1 Moneda = 1 End If @@ -23216,7 +23217,7 @@ Partial Class Ventas Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, 0, 0, Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), - PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, + PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" @@ -23231,10 +23232,10 @@ Partial Class Ventas 'RE-INSERTA DETALLES For Each Row As DataRow In TmpDT.Rows - If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, - Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), - Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, - PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("ImporteIEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString) Then + If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(), + Row("PU").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), + Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), + PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString()) Then MensajeError = "Ocurrió un error al guardar las partidas de la cotización" OcurrioError = True Exit For @@ -23243,7 +23244,7 @@ Partial Class Ventas For Each gvr As GridViewRow In GvImpuestosLocales2.Rows If gvr.RowType = DataControlRowType.DataRow Then - If Not ObjVentas.UpdateVentaImpuestoLocales(CveVenta, gvr.DataKey("CveImpuestoLocal").ToString.ToEntero, gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble) Then + If Not ObjVentas.UpdateVentaImpuestoLocales(CveVenta, gvr.DataKey("CveImpuestoLocal").ToString().ToEntero(), gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble) Then MensajeError = "Ocurrió un error al actualizar los impuestos locales" OcurrioError = True End If @@ -23252,7 +23253,7 @@ Partial Class Ventas 'ORDEN PRODUCCION If UsuarioActual.CveEmpresa.Contiene(126) Then - If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then + If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then MensajeError = "Ocurrió un error al actualizar la orden de producción" OcurrioError = True @@ -23404,23 +23405,23 @@ Partial Class Ventas Dim MetodoPagoDif As Boolean = False If ChkCotProductos.Checked Then For Each row As DataRow In DTSeleccionadas.Rows - If CveMetodoPago <> -1 And row("CveMetodoPago33").ToString.ToEntero <> CveMetodoPago Then + If CveMetodoPago <> -1 And row("CveMetodoPago33").ToString().ToEntero() <> CveMetodoPago Then MetodoPagoDif = True End If - CveMetodoPago = row("CveMetodoPago33").ToString.ToEntero - Cves.Append($"{row("CveVentaDetalle").ToString},") + CveMetodoPago = row("CveMetodoPago33").ToString().ToEntero() + Cves.Append($"{row("CveVentaDetalle").ToString()},") Next For Each row As DataRow In DTSeleccionadas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows - CotizacionesLista.Add(row("CveVenta").ToString.ToEntero) + CotizacionesLista.Add(row("CveVenta").ToString().ToEntero()) Next Else For Each row As DataRow In DTSeleccionadas.Rows - If CveMetodoPago <> -1 And row("CveMetodoPago33").ToString.ToEntero <> CveMetodoPago Then + If CveMetodoPago <> -1 And row("CveMetodoPago33").ToString().ToEntero() <> CveMetodoPago Then MetodoPagoDif = True End If - Cves.Append($"{row("CveVenta").ToString},") - CotizacionesLista.Add(row("CveVenta").ToString.ToEntero) - CveMetodoPago = row("CveMetodoPago33").ToString.ToEntero + Cves.Append($"{row("CveVenta").ToString()},") + CotizacionesLista.Add(row("CveVenta").ToString().ToEntero()) + CveMetodoPago = row("CveMetodoPago33").ToString().ToEntero() Next End If @@ -23430,7 +23431,7 @@ Partial Class Ventas Cves.Remove(Cves.Length - 1, 1) Dim ObjClientes As New ClsClientes - If ObjClientes.GetVentasCotizacionesTotales(CveCliente, Cves.ToString, If(ChkCotProductos.Checked, 2, 1)) Then + If ObjClientes.GetVentasCotizacionesTotales(CveCliente, Cves.ToString(), If(ChkCotProductos.Checked, 2, 1)) Then DtCotizacionesPS = ObjClientes.DtResultados End If ObjClientes.Dispose() @@ -23464,7 +23465,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvCotPS.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero + Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVentaDetalle = {CveVentaDetalle}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -23476,7 +23477,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvCot.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVenta = {CveVenta}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -23498,11 +23499,11 @@ Partial Class Ventas If DtCotizacionesPS IsNot Nothing Then Dim tCantidad As Decimal = 0 For Each Dr As DataRow In DtCotizacionesPS.Select() - tCantidad = If(ChkCotProductos.Checked, GvCotPS.Rows(IndiceGVCotDataKey(GvCotPS, Dr("CveVentaDetalle").ToString)).FCTextBox("TxtCantidadCot").Text.ToDecimal, 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("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("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True) + tCantidad = If(ChkCotProductos.Checked, GvCotPS.Rows(IndiceGVCotDataKey(GvCotPS, Dr("CveVentaDetalle").ToString())).FCTextBox("TxtCantidadCot").Text.ToDecimal, 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("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("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True) Next CalculaTotalesVenta() Return True @@ -23534,7 +23535,7 @@ Partial Class Ventas End If Dim ObjClientes As New ClsClientes - If ObjClientes.GetVentasCotizacionesTotales(CveCliente, CveVenta.ToString, 1) Then + If ObjClientes.GetVentasCotizacionesTotales(CveCliente, CveVenta.ToString(), 1) Then DtCotizacionesPS = ObjClientes.DtResultados End If ObjClientes.Dispose() @@ -23590,17 +23591,17 @@ Partial Class Ventas Updatetabs.Update() If ChkRemProductos.Checked Then - CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) Else - CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) End If RegistraScript("$('#DivRemisiones').modal('show');") End Sub Private Sub BtnConsultarRem_Click(sender As Object, e As EventArgs) Handles BtnConsultarRem.Click If ChkRemProductos.Checked Then - CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) Else - CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) End If End Sub Private Sub ChkRemProductos_CheckedChanged(sender As Object, e As EventArgs) Handles ChkRemProductos.CheckedChanged @@ -23611,7 +23612,7 @@ Partial Class Ventas DivFiltroRem.Visible = False GvRem.DataSource = Nothing GvRem.DataBind() - CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) Else GvRemPS.Visible = False GvRem.Visible = True @@ -23619,21 +23620,21 @@ Partial Class Ventas DivFiltroRem.Visible = True GvRemPS.DataSource = Nothing GvRemPS.DataBind() - CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) End If End Sub Private Sub DdlFiltroContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFiltroContrato.SelectedIndexChanged If ChkRemProductos.Checked Then - CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) Else - CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) End If End Sub Private Sub DdlFiltroRemMoneda_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFiltroRemMoneda.SelectedIndexChanged If ChkRemProductos.Checked Then - CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisionesxProducto(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) Else - CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero, DdlFiltroRemMoneda.SelectedValue.ToEntero) + CargaRemisiones(DdlFiltroContrato.SelectedValue.ToEntero(), DdlFiltroRemMoneda.SelectedValue.ToEntero()) End If End Sub Private Sub CargaRemisiones(CveContrato As Integer, CveMoneda As Integer) @@ -23684,7 +23685,7 @@ Partial Class Ventas End If Dim dtSeleccionadas As DataTable = DTRemisiones.FiltraParametros("Aplicado = True") - Dim CveContrato = DTRemisiones.FiltroPrimeroValor("CveContrato", "Aplicado = True").ToEntero + Dim CveContrato = DTRemisiones.FiltroPrimeroValor("CveContrato", "Aplicado = True").ToEntero() If dtSeleccionadas.FiltraParametros("", "", {"Abreviatura"}).Rows.Count > 1 Then Alert("Solo debe seleccionar remisiones de la misma moneda. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) @@ -23715,10 +23716,10 @@ Partial Class Ventas CambiaMoneda() DdlUsoCFDI.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveUsoCFDI")) DdlMetodoPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveMetodoPago")) - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) DdlFormaPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveFormaPago")) - DiasCredito = dtSeleccionadas.FiltroPrimeroValor("DiasCredito").ToEntero + DiasCredito = dtSeleccionadas.FiltroPrimeroValor("DiasCredito").ToEntero() EsDiasCreditoFijo = CBool(dtSeleccionadas.FiltroPrimeroValor("EsDiasCreditoFijo")) @@ -23727,15 +23728,15 @@ Partial Class Ventas If DdlSubProyectoDatos.Enabled = True Then DdlSubProyectoDatos.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveSubProyecto")) End If - DdlSucursalCliente.SelectedValueExist(If(dtSeleccionadas.FiltroPrimeroValor("CveClienteSucursal").ToEntero > 0, dtSeleccionadas.FiltroPrimeroValor("CveClienteSucursal"), "-1")) + DdlSucursalCliente.SelectedValueExist(If(dtSeleccionadas.FiltroPrimeroValor("CveClienteSucursal").ToEntero() > 0, dtSeleccionadas.FiltroPrimeroValor("CveClienteSucursal"), "-1")) DdlVendedor.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveVendedor")) CambiaSucursalGeneral() - CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero) + CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero()) DdlUsoCFDI.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveUsoCFDI")) DdlMetodoPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveMetodoPago")) - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) DdlFormaPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveFormaPago")) If GvPS.Rows.Count > 0 Then @@ -23757,7 +23758,7 @@ Partial Class Ventas Case "1" 'T O T A L G E N E R A L For Each row As DataRow In dtSeleccionadas.Rows - RemisionesLista.Add(row("CveVenta").ToString.ToEntero) + RemisionesLista.Add(row("CveVenta").ToString().ToEntero()) Next IsTotalxConcepto = False @@ -23766,14 +23767,14 @@ Partial Class Ventas Dim IVA As Double = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16) Dim rowSP As DataRow = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)(0) - AgregarProductoServicio(1, PS("CveUM").ToString.ToEntero, PS("UnidadMedida").ToString, PS("CveClasificacion").ToString.ToEntero, - PS("Clasificacion").ToString, PS("CvePS").ToString.ToEntero, PS("PS").ToString, "", PU, 0, - rowSP("CveProyecto").ToString.ToEntero, rowSP("Proyecto").ToString, rowSP("CveSubProyecto").ToString.ToEntero, rowSP("SubProyecto").ToString, RegeneraIEPS:=True) + AgregarProductoServicio(1, PS("CveUM").ToString().ToEntero(), PS("UnidadMedida").ToString(), PS("CveClasificacion").ToString().ToEntero(), + PS("Clasificacion").ToString(), PS("CvePS").ToString().ToEntero(), PS("PS").ToString(), "", PU, 0, + rowSP("CveProyecto").ToString().ToEntero(), rowSP("Proyecto").ToString(), rowSP("CveSubProyecto").ToString().ToEntero(), rowSP("SubProyecto").ToString(), RegeneraIEPS:=True) Case "2" 'T O T A L X R E M I S I O N For Each row As DataRow In dtSeleccionadas.Rows - RemisionesLista.Add(row("CveVenta").ToString.ToEntero) + RemisionesLista.Add(row("CveVenta").ToString().ToEntero()) Next Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa)(0) @@ -23781,9 +23782,9 @@ Partial Class Ventas Dim IVA As Double = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16) For Each gvr As GridViewRow In GvRem.Rows If gvr.FCCheckBox("Chk").Checked Then - AgregarProductoServicio(1, PS("CveUM").ToString.ToEntero, PS("UnidadMedida").ToString, PS("CveClasificacion").ToString.ToEntero, - PS("Clasificacion").ToString, PS("CvePS").ToString.ToEntero, PS("PS").ToString, "", gvr.DataKey("SubTotal").ToString.ToDecimal, 0, - rowSP("CveProyecto").ToString.ToEntero, rowSP("Proyecto").ToString, rowSP("CveSubProyecto").ToString.ToEntero, rowSP("SubProyecto").ToString, RegeneraIEPS:=True) + AgregarProductoServicio(1, PS("CveUM").ToString().ToEntero(), PS("UnidadMedida").ToString(), PS("CveClasificacion").ToString().ToEntero(), + PS("Clasificacion").ToString(), PS("CvePS").ToString().ToEntero(), PS("PS").ToString(), "", gvr.DataKey("SubTotal").ToString().ToDecimal, 0, + rowSP("CveProyecto").ToString().ToEntero(), rowSP("Proyecto").ToString(), rowSP("CveSubProyecto").ToString().ToEntero(), rowSP("SubProyecto").ToString(), RegeneraIEPS:=True) End If Next @@ -23793,21 +23794,21 @@ Partial Class Ventas Dim sb As New StringBuilder If ChkRemProductos.Checked Then For Each row As DataRow In dtSeleccionadas.Rows - sb.Append($"{row("CveVentaDetalle").ToString},") + sb.Append($"{row("CveVentaDetalle").ToString()},") Next For Each row As DataRow In dtSeleccionadas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows - RemisionesLista.Add(row("CveVenta").ToString.ToEntero) + RemisionesLista.Add(row("CveVenta").ToString().ToEntero()) Next Else For Each row As DataRow In dtSeleccionadas.Rows - sb.Append($"{row("CveVenta").ToString},") - RemisionesLista.Add(row("CveVenta").ToString.ToEntero) + sb.Append($"{row("CveVenta").ToString()},") + RemisionesLista.Add(row("CveVenta").ToString().ToEntero()) Next End If sb.Remove(sb.Length - 1, 1) - CargaConceptosRemisionPorFacturar(sb.ToString, If(ChkRemProductos.Checked, 2, 1)) + CargaConceptosRemisionPorFacturar(sb.ToString(), If(ChkRemProductos.Checked, 2, 1)) End Select Dim CveTipoDocto = DdlTipoComprobante.SelectedValue @@ -23829,20 +23830,20 @@ Partial Class Ventas Dim MetodoPagoDif As Boolean = False For Each Dr As DataRow In dtSeleccionadas.Rows - MensajeRemisiones.AppendFormat("{0} {1}, ", Dr("Folio"), If(Dr("ObsFact").ToString.Length > 0, $"({Dr("ObsFact")})", "")) + MensajeRemisiones.AppendFormat("{0} {1}, ", Dr("Folio"), If(Dr("ObsFact").ToString().Length > 0, $"({Dr("ObsFact")})", "")) ObsOC.AppendFormat("{0}, ", Dr("ObsOC")) ObsPedido.AppendFormat("{0}, ", Dr("ObsPedido")) ObsInv.AppendFormat("{0}, ", Dr("ObsInv")) - If CveMetodoPago <> -1 And Dr("CveMetodoPago33").ToString.ToEntero <> CveMetodoPago Then + If CveMetodoPago <> -1 And Dr("CveMetodoPago33").ToString().ToEntero() <> CveMetodoPago Then MetodoPagoDif = True End If - CveMetodoPago = Dr("CveMetodoPago33").ToString.ToEntero + CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero() Next - TxtObsFact.Text = If(MensajeRemisiones.ToString.Length > 0, MensajeRemisiones.ToString.Substring(0, MensajeRemisiones.ToString.Length - 2), "") - TxtOrdenCompra.Text = If(ObsOC.ToString.Length > 0, ObsOC.ToString.Substring(0, ObsOC.ToString.Length - 2), "") - TxtPedidoContrato.Text = If(ObsPedido.ToString.Length > 0, ObsPedido.ToString.Substring(0, ObsPedido.ToString.Length - 2), "") - TxtObsAlmacen.Text = If(ObsInv.ToString.Length > 0, ObsInv.ToString.Substring(0, ObsInv.ToString.Length - 2), "") + TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "") + TxtOrdenCompra.Text = If(ObsOC.ToString().Length > 0, ObsOC.ToString().Substring(0, ObsOC.ToString().Length - 2), "") + TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "") + TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "") UPObservaciones.Update() If MetodoPagoDif Then @@ -23884,7 +23885,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvRemPS.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero + Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVentaDetalle = {CveVentaDetalle}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -23898,7 +23899,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvRem.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVenta = {CveVenta}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -23920,16 +23921,16 @@ Partial Class Ventas If DtRemisionesPS IsNot Nothing Then Dim tCantidad As Decimal = 0 For Each Dr As DataRow In DtRemisionesPS.Select() - tCantidad = If(ChkRemProductos.Checked, GvRemPS.Rows(IndiceGVDataKey(GvRemPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadRem").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("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal, - Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString, - CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, - CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString.ToEntero, RegeneraIEPS:=True) + tCantidad = If(ChkRemProductos.Checked, GvRemPS.Rows(IndiceGVDataKey(GvRemPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadRem").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("PU").ToString().ToDecimal, Dr("Descuento").ToString().ToDecimal, + Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString(), Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(), + CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero(), + CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(), RegeneraIEPS:=True) Next - If DdlFiltroContrato.SelectedValue.ToEntero > 0 Then - CveContrato = DdlFiltroContrato.SelectedValue.ToEntero + If DdlFiltroContrato.SelectedValue.ToEntero() > 0 Then + CveContrato = DdlFiltroContrato.SelectedValue.ToEntero() End If End If @@ -23954,13 +23955,13 @@ Partial Class Ventas 'End If Dim ObjClientes As New ClsClientes - If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString, 1) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then + If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString(), 1) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then LnkFacturarRemision.Visible = True If ThCantidadFacturadaRem.Visible Then LnkFacturarRemision.ToolTip = "¿Seguro que desea facturar lo pendiente por facturar de la remisión?" End If - If DdlMoneda.SelectedValue.ToEntero = 1 Then + If DdlMoneda.SelectedValue.ToEntero() = 1 Then TrConversionDolares.Visible = True ChkConvertirDolares.Enabled = True TxtTipoCambioDlls.Enabled = True @@ -23989,14 +23990,14 @@ Partial Class Ventas HdnIVAOriginal.Value = TxtIVA.Text CreaDTVentas() - CargaRemisiones(If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1), DdlMoneda.SelectedValue.ToEntero) + CargaRemisiones(If(DdlContrato.SelectedValue.ToEntero() > 0, DdlContrato.SelectedValue.ToEntero(), -1), DdlMoneda.SelectedValue.ToEntero()) Dim DrRemision As DataRow() = DTRemisiones.Select($"CveVenta = {CveVenta}") If DrRemision.Count > 0 Then DrRemision(0)("Aplicado") = "True" End If DTRemisiones.AcceptChanges() RemisionesLista.Add(CveVenta) - CargaConceptosRemisionPorFacturar(CveVenta.ToString, 1) + CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1) BtnEmitirImprimir.Text = "Facturar" DdlTipoComprobante.SelectedValue = "Ing" @@ -24026,14 +24027,14 @@ Partial Class Ventas HdnIVAOriginal.Value = TxtIVA.Text CreaDTVentas() - CargaRemisiones(If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1), DdlMoneda.SelectedValue.ToEntero) + CargaRemisiones(If(DdlContrato.SelectedValue.ToEntero() > 0, DdlContrato.SelectedValue.ToEntero(), -1), DdlMoneda.SelectedValue.ToEntero()) Dim DrRemision As DataRow() = DTRemisiones.Select($"CveVenta = {CveVenta}") If DrRemision.Count > 0 Then DrRemision(0)("Aplicado") = "True" End If DTRemisiones.AcceptChanges() RemisionesLista.Add(CveVenta) - CargaConceptosRemisionPorFacturar(CveVenta.ToString, 1) + CargaConceptosRemisionPorFacturar(CveVenta.ToString(), 1) If TmpDT.Rows.Count = 0 Then Alert("No hay conceptos por facturar de esta remisión. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) @@ -24057,16 +24058,16 @@ Partial Class Ventas TabGenerales.Enabled = True Updatetabs.Update() - CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero, If(ChkMostrarProductosPedido2.Checked, 0, 1)) + CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero(), If(ChkMostrarProductosPedido2.Checked, 0, 1)) RegistraScript("$('#DivPedidos2').modal('show');") End Sub Private Sub BtnConsultaPedido_Click(sender As Object, e As EventArgs) Handles BtnConsultaPedido.Click - CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero, If(ChkMostrarProductosPedido2.Checked, 0, 1)) + CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero(), If(ChkMostrarProductosPedido2.Checked, 0, 1)) End Sub Protected Sub ChkMostrarProductosPedido2_CheckedChanged(sender As Object, e As EventArgs) MostrarProductoPedido2() - CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero, If(ChkMostrarProductosPedido2.Checked, 0, 1)) + CargaPedidos2(DdlMonedaModalPedido2.SelectedValue.ToEntero(), If(ChkMostrarProductosPedido2.Checked, 0, 1)) End Sub Private Sub MostrarProductoPedido2() If ChkMostrarProductosPedido2.Checked Then @@ -24152,29 +24153,29 @@ Partial Class Ventas If DdlSubProyectoDatos.Enabled Then 'validación, cuando los pedido2 sean de una sucursal y el usuario solo tenga acceso a otra, deberá tener priodidad la sucursal de la que solo se factura DdlSubProyectoDatos.SelectedValueExist(DTSeleccionadas.FiltroPrimeroValor("CveSubProyecto")) End If - DdlSucursalCliente.SelectedValueExist(If(DTSeleccionadas.FiltroPrimeroValor("CveClienteSucursal").ToEntero > 0, DTSeleccionadas.FiltroPrimeroValor("CveClienteSucursal"), "-1")) + DdlSucursalCliente.SelectedValueExist(If(DTSeleccionadas.FiltroPrimeroValor("CveClienteSucursal").ToEntero() > 0, DTSeleccionadas.FiltroPrimeroValor("CveClienteSucursal"), "-1")) DdlVendedor.SelectedValueExist(DTSeleccionadas.FiltroPrimeroValor("CveVendedor")) CambiaSucursalGeneral() - CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero) + CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero()) Dim Cves As New StringBuilder If ChkMostrarProductosPedido2.Checked Then For Each row As DataRow In DTSeleccionadas.Rows - Cves.Append($"{row("CveVentaDetalle").ToString},") + Cves.Append($"{row("CveVentaDetalle").ToString()},") Next For Each row As DataRow In DTSeleccionadas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows - Pedidos2Lista.Add(row("CveVenta").ToString.ToEntero) + Pedidos2Lista.Add(row("CveVenta").ToString().ToEntero()) Next Else For Each row As DataRow In DTSeleccionadas.Rows - Cves.Append($"{row("CveVenta").ToString},") - Pedidos2Lista.Add(row("CveVenta").ToString.ToEntero) + Cves.Append($"{row("CveVenta").ToString()},") + Pedidos2Lista.Add(row("CveVenta").ToString().ToEntero()) Next End If Cves.Remove(Cves.Length - 1, 1) Dim ObjVentas As New ClsVentas - If ObjVentas.GetVentasPedidos2Totales(CveCliente, Cves.ToString, If(ChkMostrarProductosPedido2.Checked, 2, 1)) Then + If ObjVentas.GetVentasPedidos2Totales(CveCliente, Cves.ToString(), If(ChkMostrarProductosPedido2.Checked, 2, 1)) Then DtPedidos2PS = ObjVentas.DtResultados End If ObjVentas.Dispose() @@ -24200,15 +24201,15 @@ Partial Class Ventas Dim ObsInv As New StringBuilder MensajePedidos2.Append("Pedidos: ") For Each Dr As DataRow In DTSeleccionadas.Rows - MensajePedidos2.AppendFormat("{0} {1}, ", Dr("Folio"), If(Dr("ObsFact").ToString.Length > 0, $"({Dr("ObsFact")})", "")) + MensajePedidos2.AppendFormat("{0} {1}, ", Dr("Folio"), If(Dr("ObsFact").ToString().Length > 0, $"({Dr("ObsFact")})", "")) ObsOC.AppendFormat("{0}, ", Dr("ObsOC")) ObsPedido.AppendFormat("{0}, ", Dr("ObsPedido")) ObsInv.AppendFormat("{0}, ", Dr("ObsInv")) Next - TxtObsFact.Text = If(MensajePedidos2.ToString.Length > 0, MensajePedidos2.ToString.Substring(0, MensajePedidos2.ToString.Length - 2), "") - TxtOrdenCompra.Text = If(ObsOC.ToString.Length > 0, ObsOC.ToString.Substring(0, ObsOC.ToString.Length - 2), "") - TxtPedidoContrato.Text = If(ObsPedido.ToString.Length > 0, ObsPedido.ToString.Substring(0, ObsPedido.ToString.Length - 2), "") - TxtObsAlmacen.Text = If(ObsInv.ToString.Length > 0, ObsInv.ToString.Substring(0, ObsInv.ToString.Length - 2), "") + TxtObsFact.Text = If(MensajePedidos2.ToString().Length > 0, MensajePedidos2.ToString().Substring(0, MensajePedidos2.ToString().Length - 2), "") + TxtOrdenCompra.Text = If(ObsOC.ToString().Length > 0, ObsOC.ToString().Substring(0, ObsOC.ToString().Length - 2), "") + TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "") + TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "") UpModalPedidos2.Update() @@ -24225,7 +24226,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvPedidos2SinFacturarPS.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero + Dim CveVentaDetalle As Integer = Gvr.DataKey("CveVentaDetalle").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVentaDetalle = {CveVentaDetalle}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -24237,7 +24238,7 @@ Partial Class Ventas For Each Gvr As GridViewRow In GvPedidos2SinFacturar.Rows If Gvr.RowType = DataControlRowType.DataRow Then Dim ChkAplicar As CheckBox = Gvr.FCCheckBox("Chk") - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero() Dim Drs As DataRow() = dt.Select($"CveVenta = {CveVenta}") If Drs.Count > 0 Then Drs(0)("Aplicado") = ChkAplicar.Checked @@ -24251,12 +24252,12 @@ Partial Class Ventas If DtPedidos2PS IsNot Nothing Then Dim tCantidad As Decimal = 0 For Each Dr As DataRow In DtPedidos2PS.Select() - tCantidad = If(ChkMostrarProductosPedido2.Checked, GvPedidos2SinFacturarPS.Rows(IndiceGVDataKey(GvPedidos2SinFacturarPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadPedido2").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("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal, - Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString, - CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, - CveVentaDetallePedido2:=Dr("CveVentaDetalle").ToString.ToEntero, RegeneraIEPS:=True) + tCantidad = If(ChkMostrarProductosPedido2.Checked, GvPedidos2SinFacturarPS.Rows(IndiceGVDataKey(GvPedidos2SinFacturarPS, "CveVentaDetalle", $"{Dr("CveVentaDetalle")}")).FCTextBox("TxtCantidadPedido2").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("PU").ToString().ToDecimal, Dr("Descuento").ToString().ToDecimal, + Dr("CveProyecto").ToString().ToEntero(), Dr("Proyecto").ToString(), Dr("CveSubProyecto").ToString().ToEntero(), Dr("SubProyecto").ToString(), + CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), + CveVentaDetallePedido2:=Dr("CveVentaDetalle").ToString().ToEntero(), RegeneraIEPS:=True) Next CalculaTotalesVenta() Return True @@ -24282,7 +24283,7 @@ Partial Class Ventas CreaDTVentas() Dim ObjVentas As New ClsVentas - If ObjVentas.GetVentasPedidos2Totales(CveCliente, CveVenta.ToString, 1) Then + If ObjVentas.GetVentasPedidos2Totales(CveCliente, CveVenta.ToString(), 1) Then DtPedidos2PS = ObjVentas.DtResultados End If ObjVentas.Dispose() @@ -24320,16 +24321,16 @@ Partial Class Ventas ' 'Actualizo los parametros de la venta ' If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.Replace(",", "").ToDouble, LblDescuentos.Text.ToDouble, TxtIVA.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtTotal.Text.ToDouble, - ' DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago.SelectedValue.ToEntero, - ' DdlFormaPago.SelectedValue.ToEntero, TxtNumCtaPago.Text.Trim, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero) Then + ' DdlMoneda.SelectedValue.ToEntero(), TxtTipoCambio.Text.Trim.ToDouble, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago.SelectedValue.ToEntero(), + ' DdlFormaPago.SelectedValue.ToEntero(), TxtNumCtaPago.Text.Trim, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero()) Then ' OcurrioError = True ' End If ' 'Cargo de nueva cuenta el detalle de Ventas (Conceptos) ' For Each Row As DataRow In TmpDT.Rows - ' If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, - ' Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble * (1 + Row("IVA").ToString.ToDouble)), 6), - ' Row("Obs").ToString, Row("Descuento").ToString.ToDouble, Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, IEPS:=Row("IEPS").ToString.ToDouble) Then + ' If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(), + ' Row("PU").ToString().ToDouble, Row("IVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble * (1 + Row("IVA").ToString().ToDouble)), 6), + ' Row("Obs").ToString(), Row("Descuento").ToString().ToDouble, Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), IEPS:=Row("IEPS").ToString().ToDouble) Then ' OcurrioError = True ' Exit For ' End If @@ -24505,7 +24506,7 @@ Partial Class Ventas PlazoCobranzaRemision = ObjCliente.PlazoCobranzaRemision 'TxtNumCtaPago.Text = ObjCliente.NumCtaPago TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString - DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) + DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString()) End If End If ObjCliente.Dispose() @@ -24603,7 +24604,7 @@ Partial Class Ventas Return Retorno End Function Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) - If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then + If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) Else Dim FolioFijo As Integer = 0 @@ -24641,17 +24642,17 @@ Partial Class Ventas 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización - FolioFijo = TxtFolio.Text.ToEntero + FolioFijo = TxtFolio.Text.ToEntero() ViewState("FolioActual") = FolioFijo ViewState("EstablecioFolio") = True - TxtFolio.Text = FolioFijo.ToString + TxtFolio.Text = FolioFijo.ToString() End If Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue DdlTipoComprobante.SelectedValue = TipoDoctoNuevo - TxtFecha.Text = Now.ToString + TxtFecha.Text = Now.ToString() TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString - TxtFechaEjecucion.Text = Now.ToString + TxtFechaEjecucion.Text = Now.ToString() 'VALIDAR QUE NO SE HAYA REMISIONADO If TipoDoctoViejo = "PA" Then @@ -24694,7 +24695,7 @@ Partial Class Ventas If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - FechaVencimientoAnterior = ObjVentas.DtResultados.Rows(0)("FechaVencimiento").ToString.ToDate.ToShortDateString + FechaVencimientoAnterior = ObjVentas.DtResultados.Rows(0)("FechaVencimiento").ToString().ToDate.ToShortDateString Else ErrorTrans = True End If @@ -24737,7 +24738,7 @@ Partial Class Ventas Private Sub CalculaUsados(Optional DtUsadosDevolucion As DataTable = Nothing) If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot", "Dev") Then - If ViewState("CargoUsado").ToString = "False" Then + If ViewState("CargoUsado").ToString() = "False" Then Exit Sub End If @@ -24763,7 +24764,7 @@ Partial Class Ventas For Each drow As DataRow In TmpDTCalculo If DTCvePSCostos IsNot Nothing Then For Each drow2 As DataRow In DTCvePSCostos.Rows - If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then + If drow("CvePS").ToString().ToEntero() = drow2("CvePSCargo").ToString().ToEntero() Then drow("Eliminar") = 1 Exit For End If @@ -24816,16 +24817,16 @@ Partial Class Ventas DTPSTemp.Columns.Add("SubProyecto", GetType(String)) For Each DrowPartidas As DataRow In TmpDTCalculo - Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString.ToEntero + Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString().ToEntero() If CveTamanioTemp > 0 Then Dim DTTamanioTemp As New DataTable - Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString.ToEntero + Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString().ToEntero() - CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString.ToEntero - SubProyectoPSA = DrowPartidas("SubProyecto").ToString + CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString().ToEntero() + SubProyectoPSA = DrowPartidas("SubProyecto").ToString() Dim ObjProductosServicios As New ClsProductosServicios() @@ -24845,9 +24846,9 @@ Partial Class Ventas For Each dRowUpdate As DataRow In DTPSTemp.Rows - If (dRowUpdate("CvePS").ToString.ToEntero = CvePsTemp) Then - dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString.ToDecimal + DrowPartidas("Cantidad").ToString.ToDecimal - dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString.ToDecimal + ImporteCargo + If (dRowUpdate("CvePS").ToString().ToEntero() = CvePsTemp) Then + dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString().ToDecimal + DrowPartidas("Cantidad").ToString().ToDecimal + dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString().ToDecimal + ImporteCargo End If Next @@ -24856,7 +24857,7 @@ Partial Class Ventas Else Dim dRowNuevo As DataRow = DTPSTemp.NewRow - dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString.ToDecimal + dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString().ToDecimal dRowNuevo("PU") = Cargo dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA dRowNuevo("UnidadMedida") = UnidadMedidaPSA @@ -24865,8 +24866,8 @@ Partial Class Ventas dRowNuevo("CvePS") = CvePsTemp dRowNuevo("PS") = PSPSA - dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString.ToEntero - dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString + dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString().ToEntero() + dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString() DTPSTemp.Rows.Add(dRowNuevo) DTPSTemp.AcceptChanges() @@ -24877,18 +24878,18 @@ Partial Class Ventas For Each drowPsTamaños As DataRow In DTPSTemp.Rows Modalidad = "A" - If drowPsTamaños("PU").ToString.ToDecimal > 0 Then + If drowPsTamaños("PU").ToString().ToDecimal > 0 Then Dim CveVentaDetalleDevolucion As Integer = -1 If DtUsadosDevolucion IsNot Nothing AndAlso DtUsadosDevolucion.Rows.Count > 0 Then - CveVentaDetalleDevolucion = DtUsadosDevolucion.FiltroPrimeroValor("CveVentaDetalle", $"CvePS = {drowPsTamaños("CvePS").ToString.ToEntero}").ToEntero() + CveVentaDetalleDevolucion = DtUsadosDevolucion.FiltroPrimeroValor("CveVentaDetalle", $"CvePS = {drowPsTamaños("CvePS").ToString().ToEntero()}").ToEntero() End If - AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString, - drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero, - drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero, - drowPsTamaños("SubProyecto").ToString, CveVentaDetalle:=CveVentaDetalleDevolucion) + AgregarProductoServicio(drowPsTamaños("Cantidad").ToString().ToEntero(), drowPsTamaños("CveUnidadMedida").ToString().ToEntero(), drowPsTamaños("UnidadMedida").ToString(), + drowPsTamaños("CveClasificacion").ToString().ToEntero(), drowPsTamaños("Clasificacion").ToString(), drowPsTamaños("CvePS").ToString().ToEntero(), + drowPsTamaños("PS").ToString(), "", drowPsTamaños("PU").ToString().ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString().ToEntero(), + drowPsTamaños("SubProyecto").ToString(), CveVentaDetalle:=CveVentaDetalleDevolucion) End If Next @@ -24899,17 +24900,17 @@ Partial Class Ventas Dim Resultado As Boolean = True If ClienteEsDistribuidor Then - 'If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then - ' Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero + 'If UsuarioActual.Empresa.Funcionalidad(533).ToEntero() > 0 Then + ' Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero() Dim ObjAcum As New ClsAcumuladores(SqlTransaccion) For Each drow As DataRow In TmpDT.Rows - If drow("CveTamaño").ToString.ToEntero > 0 Then - Dim TempDTAcums = GlobalDTAcumTamaños.FiltraParametros("CvePSCargo = " & drow("CvePS").ToString) + If drow("CveTamaño").ToString().ToEntero() > 0 Then + Dim TempDTAcums = GlobalDTAcumTamaños.FiltraParametros("CvePSCargo = " & drow("CvePS").ToString()) If TempDTAcums IsNot Nothing AndAlso TempDTAcums.Rows.Count > 0 Then - If Not ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, 2, CveVenta, UsuarioActual.CveUsuario, + If Not ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString().ToEntero(), drow("CveTamaño").ToString().ToEntero(), 2, CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0D, "") Then Resultado = False Exit For @@ -24940,18 +24941,18 @@ Partial Class Ventas PorcentajeIVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2).ToDecimal For Each Row As DataRow In TmpDT.Rows If PorcentajeIVA > 0 Then - Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Row("CvePS").ToString.ToEntero).FiltroPrimero("") + Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Row("CvePS").ToString().ToEntero()).FiltroPrimero("") If DrPS IsNot Nothing Then - If DrPS("IVA").ToString.Contiene("-1", "") Then + If DrPS("IVA").ToString().Contiene("-1", "") Then Row("PorcentajeIVA") = PorcentajeIVA Else Row("PorcentajeIVA") = DrPS("IVA") End If - Dim TotalCalculableImpuestos As Decimal = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal - Dim TotalCalculableImpuestosIVA As Decimal = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal) + Dim TotalCalculableImpuestos As Decimal = (Row("Cantidad").ToString().ToDecimal * Row("PU").ToString().ToDecimal) - Row("Descuento").ToString().ToDecimal + Dim TotalCalculableImpuestosIVA As Decimal = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString().ToDecimal) - Row("IVA") = Row("PorcentajeIVA").ToString.ToDouble - Row("ImporteIVA") = (Row("PorcentajeIVA").ToString.ToDouble * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) + Row("IVA") = Row("PorcentajeIVA").ToString().ToDouble + Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDouble * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) End If Else Row("IVA") = 0 @@ -25134,7 +25135,7 @@ Partial Class Ventas obj.sale_type_service = "0" & Row.DataKey("TipoServicio").ToString().Trim() obj.sale_total = Row.DataKey("Total").ToString().ToDecimal() obj.sale_discount = Row.DataKey("Descuento").ToString().ToDecimal() - obj.sale_id = ObjFactura.CveVenta.ToString + obj.sale_id = ObjFactura.CveVenta.ToString() 'DATOS DEL PRODUCTO obj.product_code = Row.DataKey("IdProductoPolizaVirtual").ToString().Trim() From 57cf4cfa8b719b927bffd62c46abb5894f810a74 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 6 May 2020 08:48:26 -0700 Subject: [PATCH 15/46] Apoyo logistico --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 26 +++++++- Inventarios/RecepcionAlmacen.aspx | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 97 ++++++++++++++++++++++++++-- Inventarios/TraspasoAlmacen.aspx.vb | 57 ++++++++++------ 5 files changed, 157 insertions(+), 27 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 6256ef9c2..c244877bc 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -467,7 +467,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f2c5ad2e7..b8598bf5b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6390,6 +6390,7 @@ Partial Class Compras_Compras Case 6 'Compra Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" If RBLPago.SelectedValue.ToEntero = 4 Then @@ -6620,6 +6621,13 @@ Partial Class Compras_Compras 'falta el registro de la NC cuando es Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE + + + If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.ToEntero = 9 Then + RegistraConcepto225 = True + End If + + If RegistraConcepto225 Then importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal @@ -6922,6 +6930,12 @@ Partial Class Compras_Compras CveCuenta = CveCuentaProveedorAcreedores Case 18 'NC - Notas de Credito + + + + + + importeMovimiento = importeNC importeMN = importeMovimiento * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" @@ -11509,7 +11523,7 @@ Partial Class Compras_Compras e.Row.FCCheckBox("cbInv").Enabled = False End If - e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(If(DdlTipoCompra.SelectedValue.ToEntero = 9, "CveTipoAlmacen IN (21)", "CveTipoAlmacen IN (1,2,7,14,19)")) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlEAlmacen").DataBind() 'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen")) @@ -11598,6 +11612,12 @@ Partial Class Compras_Compras If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then ' iliana, horacio, marco, RMF. 2017.03.13 StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)" End If + + + If DdlTipoCompra.SelectedValue.ToEntero = 9 Then + StrAlmacenes = "CveTipoAlmacen IN (21)" + End If + e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlAlmacen").DataBind() @@ -19619,6 +19639,10 @@ Partial Class Compras_Compras Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) + If DdlTipoCompra.SelectedValue.ToEntero = 9 Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada + CargaGvInv() + End If + End Sub #End Region diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 8d742140e..598a258d7 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -418,7 +418,7 @@     + DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote, AplicaSeccion,AplicaCaducidad,AplicaLote" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None"> diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 05ef7a391..2ebe9aa83 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -30,7 +30,14 @@ Partial Class Inventarios_RecepcionAlmacen End Property Private Property DtInv As DataTable Get - Return CType(ViewState("DtInv"), DataTable) + If ViewState("DtInv") Is Nothing Then + Return New DataTable + Else + Return CType(ViewState("DtInv"), DataTable) + End If + + + End Get Set(value As DataTable) ViewState("DtInv") = value @@ -854,9 +861,15 @@ Partial Class Inventarios_RecepcionAlmacen If TipoMovimiento = 3 Then CargaAlmacenes(-1, "21,2") End If + + If CveTipoCompra = 9 Then + CargaAlmacenes(-1, "21") + End If + RecibidaCompleta = False Dim CargaSoloUsados As Boolean = False + If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then Dim DtRecepcion As DataTable = Nothing Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() @@ -1164,8 +1177,9 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub CargaGVInv() If UsuarioActual.CveEmpresa = 119 Then DtInv = DtInv.FiltraParametros("", "PS") - End If - + End If + + For Each item As DataRow In DtInv.Rows Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("") If Dr IsNot Nothing Then @@ -2098,7 +2112,10 @@ Partial Class Inventarios_RecepcionAlmacen End Function Private Sub GuardaCompraOC() + Dim CveMovimiento As Integer + ' Dim CveMovimientoS + Dim InvFolio As String = "" Dim FechaMovto As Date = TxtFecha.Text.ToDate @@ -2394,7 +2411,9 @@ Partial Class Inventarios_RecepcionAlmacen If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero() - Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24) + + Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") FolioVirtual = ObjInventario.Folio @@ -2486,6 +2505,76 @@ Partial Class Inventarios_RecepcionAlmacen End If End If 'TERMINA: DEVENGAR + + Else + + + + 'VIRTUAL + If CveTipoCompra = 9 And UsuarioActual.Empresa.Funcionalidad(573) = "1" Then + + Dim DtPSVirtual As New DataTable("DtTamanios") + DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) + DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) + DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) + + Dim DtComprasDetalle As DataTable = Nothing + Dim DtTamanios As DataTable = Nothing + + If ObjCompras.GetCompraDetalle(CveCompraSurtir) Then + DtComprasDetalle = ObjCompras.DtResultados.Copy() + End If + + If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + DtTamanios = ObjAcum.DtResultados.Copy() + End If + + For Each GvRow As GridViewRow In GvInv.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + For Each Tam As DataRow In DtTamanios.Rows + If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then + Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero() + Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}") + + If RowCompraDetalle IsNot Nothing Then + Dim Row As DataRow = DtPSVirtual.NewRow() + Row("CvePS") = CvePSCargo + Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal() + Row("PU") = RowCompraDetalle("PU").ToString().ToDecimal() + Row("CveUM") = GvRow.DataKey("CveUM").ToEntero() + DtPSVirtual.Rows.Add(Row) + End If + + End If + Next + + End If + Next + + If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then + Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero() + + Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") + FolioVirtual = ObjInventario.Folio + + For Each RowUsado As DataRow In DtPSVirtual.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next + End If + End If + End If 'ACTUALIZA ESTATUS ALMACEN diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0a27020c6..8bd8d5f1c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -826,9 +826,13 @@ Partial Class Inventarios_TraspasoAlmacen CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) FolioVirtualSalida = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing + Dim dtvirtualLogistico As DataTable = Nothing If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + dtvirtual = ObjInventario.DtResultados + dtvirtualLogistico = ObjInventario.DtResultados.Copy + For Each RowVirtual As DataRow In dtvirtual.Rows Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() @@ -840,9 +844,14 @@ Partial Class Inventarios_TraspasoAlmacen Exit For End If Next + Else ErrorMovInv = True End If + + + + End If 'AGREGAMOS LA ENTRADA @@ -884,30 +893,34 @@ Partial Class Inventarios_TraspasoAlmacen If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() - Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero() + Dim CveTipoAlmacenDestipo As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() + Dim TipoAlmacenEntrada As String = If(CveTipoAlmacenDestipo = 21, "25", "24") + + Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen = { TipoAlmacenEntrada } AND CveSubProyecto={CveSubProyecto}").ToEntero() CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3") - FolioVirtualEntrada = ObjInventario.Folio - Dim dtvirtual As DataTable = Nothing + FolioVirtualEntrada = ObjInventario.Folio + Dim dtvirtual As DataTable = Nothing - If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then - dtvirtual = ObjInventario.DtResultados - For Each RowVirtual As DataRow In dtvirtual.Rows - Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() - Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal() - Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero() + If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then + dtvirtual = ObjInventario.DtResultados + For Each RowVirtual As DataRow In dtvirtual.Rows + Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() + Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal() + Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero() - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - ErrorMovInv = True - Exit For - End If - Next - Else - ErrorMovInv = True + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next + Else + ErrorMovInv = True + End If End If - End If - Dim Concepto As String = TxtObservaciones.Text + + Dim Concepto As String = TxtObservaciones.Text If Concepto = "" Then Concepto = "Traspaso" 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO: If Not ErrorMovInv Then @@ -922,7 +935,11 @@ Partial Class Inventarios_TraspasoAlmacen If IdCtaContableSalida = IdCtaContableEntrada Then Contabilizable = False - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then + Dim CveTipoAlmacenDestipo As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() + Dim CveConceptoPrepoliza As Integer = If(CveTipoAlmacenDestipo = 21, 225, 68) + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, CveConceptoPrepoliza, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then ErrorMovInv = True End If From f6d3c445887becfa002035ac9fbc7a8f4be134a3 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 6 May 2020 08:50:14 -0700 Subject: [PATCH 16/46] correcciones en CRM --- CRM/CatEmpresasCRM.aspx | 5 + CRM/CatEmpresasCRM.aspx.cs | 22 +- CRM/CatProbabilidadAcercamiento.aspx.cs | 2 +- CRM/EmpresaCRM.aspx | 5 + CRM/EmpresaCRM.aspx.cs | 20 +- .../Grales/Formatos/RepCatEtapasProceso.rdlc | 12 +- .../RepCatProbabilidadAcercamiento.rdlc | 232 +++++++++--------- 7 files changed, 175 insertions(+), 123 deletions(-) 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 @@
    + +
    + + +
    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/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs index 00d6462c7..2997bba1e 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx.cs +++ b/CRM/CatProbabilidadAcercamiento.aspx.cs @@ -254,6 +254,6 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); param.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString())); - ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Etapas Proceso", formato); + ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Probabilidad Acercamiento", formato); } } \ No newline at end of file diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index a0c86e7ed..e136089ec 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -87,6 +87,11 @@
    +
    + + +
    +
    diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index e99b406e2..1ecfcadff 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; @@ -1507,4 +1518,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/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc index c20511759..d738cd3d9 100644 --- a/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc +++ b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc @@ -471,7 +471,9 @@ - Orden @@ -964,10 +966,13 @@ =Parameters!FechaImpresion.Value - Textbox11 @@ -1117,9 +1122,8 @@ ReportParameter1 - String + DateTime true - true ReportParameter1 diff --git a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc index fb6193ac7..cddde8146 100644 --- a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc +++ b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc @@ -18,6 +18,9 @@ 5.89659cm + + 4.7613cm + 1.60341cm @@ -27,9 +30,6 @@ 4.01284cm - - 4.7613cm - @@ -82,6 +82,53 @@ + + + + true + true + + + + + Tipo Proceso + + + + + + + Textbox4 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -223,53 +270,6 @@ - - - - true - true - - - - - Tipo Proceso - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -306,6 +306,37 @@ + + + + true + true + + + + + =Fields!TipoProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -402,37 +433,6 @@ - - - - true - true - - - - - =Fields!TipoProceso.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -599,7 +599,7 @@ - 0.79374cm + 0.87322cm true true @@ -710,38 +710,6 @@ 2pt - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -766,6 +734,41 @@ 18.00281cm 0.36335cm 2.06587cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Today + + + + + + + Textbox8 + 0.2202cm + 9.89924cm + 0.37041cm + 2.5cm 5 + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Asunto.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descripción: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + De + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + C.C. Para + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Para: + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!De.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Para.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CCPara.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Inicio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaInicio.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Fin: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaFin.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Prioridad: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Prioridad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tema: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tema.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estatus: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaRegistro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Registro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + 3.02083in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + NombreEmpresa + 0.26141cm + 5.50016cm + 1.31438cm + 5.19875cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Detalle de Tarea + + + + + + + Textbox3 + 2.03412cm + 5.50016cm + 0.6cm + 5.19875cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.50812cm + true + true + + + true + true + + + + + Usuario Imprimio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Now + + + + + + + Textbox8 + 0.78203cm + 5.56366cm + 0.37041cm + 5.72096cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.28787cm + 13.94934cm + 0.36335cm + 2.06587cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 2cm + 2cm + 2cm + 2cm + 0.13cm + diff --git a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc index cddde8146..3fd92c938 100644 --- a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc +++ b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc @@ -5,7 +5,7 @@ 0.08792cm 0cm - 20.06868cm + 19.15246cm @@ -16,7 +16,7 @@ - 5.89659cm + 7.3197cm 4.7613cm @@ -25,10 +25,10 @@ 1.60341cm - 3.72586cm + 2.55502cm - 4.01284cm + 2.80719cm @@ -457,10 +457,10 @@ DataSet1 - 0.36336cm - 0.06868cm + 0.26431cm + 0.10583cm 1.06771cm - 20cm + 19.04663cm 1 @@ -696,9 +696,9 @@ Textbox10 0.22726cm - 6.97591cm + 7.92841cm 0.36335cm - 2.92333cm + 3.55833cm 3 @@ -765,10 +765,10 @@ Textbox8 - 0.2202cm - 9.89924cm + 0.22726cm + 10.62431cm 0.37041cm - 2.5cm + 5.72096cm 5 From c5899ce52e58acc3e6f82d24fb5b3891d90a458d Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 6 May 2020 20:54:00 -0700 Subject: [PATCH 20/46] --- OI/MinutaDetalle.aspx | 95 ++++++++++++++++- OI/MinutaDetalle.aspx.cs | 113 ++++++++++++++++++-- OI/TareaDetalle.aspx | 182 ++++++++++++++++++++++++++++++++- OI/TareaDetalle.aspx.cs | 156 +++++++++++++++++++++++++--- UserControl/TareaNueva.ascx.cs | 6 +- 5 files changed, 516 insertions(+), 36 deletions(-) diff --git a/OI/MinutaDetalle.aspx b/OI/MinutaDetalle.aspx index 3741aaf64..eb0affbd6 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -139,13 +139,20 @@
    + +
    + + <%----%> + +
    Guardar Enviar Minuta - Terminar y Enviar Minuta + Terminar y Enviar Minuta +
    @@ -696,6 +703,37 @@
    + +     @@ -925,14 +963,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() { + CargaPickers(); SetEditor(); CargaPickers(); loadeventos(); showhideUser(); setchecklist(); + AgendarSiguienteReunion(); } diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index 529a1d2fd..c76ab7ef3 100644 --- a/OI/MinutaDetalle.aspx.cs +++ b/OI/MinutaDetalle.aspx.cs @@ -98,6 +98,7 @@ 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; @@ -125,7 +126,7 @@ public partial class OI_MinutaDetalle : ClsPaginas 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; @@ -182,7 +183,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; } @@ -448,13 +449,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; @@ -513,12 +514,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) @@ -536,7 +537,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) @@ -637,12 +638,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) @@ -1164,7 +1165,8 @@ 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); } } @@ -1173,4 +1175,95 @@ public partial class OI_MinutaDetalle : ClsPaginas { cargarAgenda(); } + + 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) + { + + 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/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 4c24fff16..550252871 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -158,6 +158,8 @@ Actualizar Miembros
  • Reasignar
    • +
  • + Agregar Vinculo
    • @@ -223,7 +225,7 @@
    - + <%----%> @@ -348,7 +350,7 @@ -
    + + + + @@ -202,7 +202,7 @@ - Guardar + Guardar diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b87da3631..2ac6ca603 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4441,12 +4441,19 @@
    +
    +
    + @@ -4470,7 +4477,7 @@ Descripción - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ef9c79f9c..2fe50ab7a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3561,7 +3561,7 @@ Partial Class Clientes Private Sub CargaEventoBitacora() Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then - GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") + GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)") Else GvEB.DataSource = Nothing End If @@ -10039,5 +10039,8 @@ Partial Class Clientes End If End Sub + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub End Class diff --git a/vwd.webinfo b/vwd.webinfo index 6b76e11e1..c6b051639 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -52,6 +52,8 @@ + + From 6c854da99109668288845c9bb20ac225bf96af40 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 7 May 2020 10:10:36 -0700 Subject: [PATCH 23/46] --- Ventas/Ventas.aspx | 7 ++++++- Ventas/Ventas.aspx.vb | 5 ++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 5c7644475..601d94852 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4133,7 +4133,11 @@ Agendar
    +
    @@ -4142,6 +4146,7 @@ + @@ -4165,7 +4170,7 @@ Descripción - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d6ae66541..31f7b5421 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16869,7 +16869,7 @@ Partial Class Ventas Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then - GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") + GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)") Else GvEB.DataSource = Nothing End If @@ -25423,4 +25423,7 @@ Partial Class Ventas Public EsPUModificado As Boolean = False End Class + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub End Class \ No newline at end of file From 1d10cfb1c12390ca921ab274876058aa9d799f9d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 May 2020 10:20:28 -0700 Subject: [PATCH 24/46] Salida de efectivo de RNC --- Bancos/IE.aspx.vb | 5 ++- Ventas/PV.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 86 ++++++++++++++++++++++++++----------------- 3 files changed, 56 insertions(+), 37 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 25548fcf6..662753b41 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -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 diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 3355cd25b..07149a6ab 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1927,7 +1927,7 @@ Partial Class PV Else ObjVentas.Commit() If ObjAC IsNot Nothing Then ObjAC.Commit() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="BtnRefrescarPagina();") + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="document.location.href=""/Ventas/PV.aspx"";") End If ObjVentas.Dispose() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d6ae66541..0132a3566 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21903,12 +21903,19 @@ Partial Class Ventas End If ObjCliente.Dispose() - AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales) + Dim AplicaNuevoDocumento As Boolean = False + + 'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR + If UsuarioActual.CveEmpresa = 140 AndAlso GvCxC.Rows.Count = 0 Then + AplicaNuevoDocumento = True + End If + + AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales, AplicaNuevoDocumento:=AplicaNuevoDocumento) RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC") End Sub - Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True) + Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional AplicaNuevoDocumento As Boolean = False) Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS Is Nothing Then Alert("Ocurrió un error al cargar la información del producto. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) @@ -21951,41 +21958,48 @@ Partial Class Ventas DtImpuestos.AcceptChanges() Dim AcumuladoNC As Decimal = 0 - If AplicaNCMasiva Then - If NCDescuento Then - For Each RNC In ListaNCDesc - DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) - Next - Else + If Not AplicaNuevoDocumento Then + If AplicaNCMasiva Then + If NCDescuento Then + For Each RNC In ListaNCDesc + DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + Next + Else - For Each Gvr As GridViewRow In GvCxC.Rows - If Gvr.FCCheckBox("ChkCxC").Checked Then - DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) - 'CARGA FACTURA A LA CUAL SE APLICA LA NC - AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal - CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal) + For Each Gvr As GridViewRow In GvCxC.Rows + If Gvr.FCCheckBox("ChkCxC").Checked Then + DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + 'CARGA FACTURA A LA CUAL SE APLICA LA NC + AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal + CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal) + End If + Next + End If + Else + DtImpuestos = CargaDtImpuestosNC(CveVenta, TxtNCImporte.Text.Trim.ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales) + + If EsNCAmortizacion Then + If DtAnticipoAmortizacion Is Nothing Then + InicializaDTAnticiposAmortizacion() End If - Next + Dim PorcentajeAplicado As Decimal = (TxtNCPorcentaje.Text.ToDecimal / 100D) + + Dim RowAnticipo As DataRow = DtAnticipoAmortizacion.NewRow + RowAnticipo("CveVenta") = Me.CveVenta + RowAnticipo("Importe") = TxtNCImporte.Text.Trim.ToDecimal + RowAnticipo("SaldoAnticipo") = SaldoAnticipo * PorcentajeAplicado + + DtAnticipoAmortizacion.Rows.Add(RowAnticipo) + End If + End If Else - DtImpuestos = CargaDtImpuestosNC(CveVenta, TxtNCImporte.Text.Trim.ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales) - - If EsNCAmortizacion Then - If DtAnticipoAmortizacion Is Nothing Then - InicializaDTAnticiposAmortizacion() - End If - Dim PorcentajeAplicado As Decimal = (TxtNCPorcentaje.Text.ToDecimal / 100D) - - Dim RowAnticipo As DataRow = DtAnticipoAmortizacion.NewRow - RowAnticipo("CveVenta") = Me.CveVenta - RowAnticipo("Importe") = TxtNCImporte.Text.Trim.ToDecimal - RowAnticipo("SaldoAnticipo") = SaldoAnticipo * PorcentajeAplicado - - DtAnticipoAmortizacion.Rows.Add(RowAnticipo) - End If - + For Each RNC In ListaRemisionesNC + DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + Next End If + Dim query = From dr In DtImpuestos Group By PorcentajeIVA = dr("PorcentajeIVA").ToString().ToDecimal, PorcentajeRetIVA = dr("PorcentajeRetIVA").ToString().ToDecimal, @@ -22004,7 +22018,10 @@ Partial Class Ventas PorcentajeIEPS = PorcentajeIEPS '(1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) - Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + 'Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + + Dim DrSubProyecto = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + If DrSubProyecto Is Nothing Then Alert("Ocurrió un error al cargar la información de centro de costos. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) Exit Sub @@ -22100,8 +22117,8 @@ Partial Class Ventas Dim TmpDT As DataTable = Nothing Dim TmpDTImpuestos As DataTable = Nothing - Dim ObjVentas As New ClsVentas + Dim ObjVentas As New ClsVentas If ObjVentas.GetVentaImpuestosLocales(CveVentaNC) Then If ObjVentas.DtResultados.Rows.Count > 0 Then TmpDTImpuestos = ObjVentas.DtResultados.Copy() @@ -22127,7 +22144,8 @@ Partial Class Ventas End If ObjVentas.Dispose() - Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy + + Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy() DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal)) From 180c349b831dc370aea788e1d48295c979d1ddd1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 7 May 2020 18:26:03 -0700 Subject: [PATCH 25/46] =?UTF-8?q?validaci=C3=B3n=20=20sobre=20los=20medios?= =?UTF-8?q?=20de=20acercamiento=20al=20agregar=20un=20acercamiento?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CRM/EmpresaCRM.aspx | 8 +++++--- CRM/EmpresaCRM.aspx.cs | 14 +++++++++++++- 2 files changed, 18 insertions(+), 4 deletions(-) diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index e136089ec..9ff6a1393 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -606,7 +606,7 @@ - +
    <%--
    @@ -621,8 +621,10 @@
    - - + + + + <%----%>
    diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 1ecfcadff..a45e7b238 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -684,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())); @@ -1310,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(); } @@ -1461,6 +1472,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas #region "PERMISOS" protected void VerificaPermisos() { + if (CveEmpresaCRM > 0) { if (!UsuarioActual.TienePermisoProceso(250)) From 194bf6024a38cbb31edc9784a72845f59513d97b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 7 May 2020 18:26:51 -0700 Subject: [PATCH 26/46] commit por protocolo --- Empresas/Grales/Formatos/TareaDetalle.rdlc | 142 ++++++++++++--------- OI/TareaDetalle.aspx | 5 + OI/TareaDetalle.aspx.cs | 41 ++++++ 3 files changed, 127 insertions(+), 61 deletions(-) diff --git a/Empresas/Grales/Formatos/TareaDetalle.rdlc b/Empresas/Grales/Formatos/TareaDetalle.rdlc index 6463f7438..65c1d2983 100644 --- a/Empresas/Grales/Formatos/TareaDetalle.rdlc +++ b/Empresas/Grales/Formatos/TareaDetalle.rdlc @@ -21,7 +21,7 @@ Textbox2 0.28787cm - 0.28787cm + 0.59837cm 0.67938cm 4.00812cm @@ -588,7 +589,7 @@ Textbox22 5.39433cm - 0.28787cm + 0.59837cm 0.75875cm 2.5cm 18 @@ -611,7 +612,7 @@ =Parameters!Estatus.Value @@ -619,10 +620,10 @@ Estatus - 6.25891cm - 0.28787cm - 1.04979cm - 5.46333cm + 5.39433cm + 3.08955cm + 0.75875cm + 4.27271cm 19 - 3.02083in - + + + + + + + + - 6.31909in + 6.56358in - 2.83104cm + 3.86856cm true true @@ -774,7 +785,7 @@ =Parameters!Logo.Value FitProportional 0.26141cm - 0.28787cm + 0.59837cm 2.05563cm 2.84938cm @@ -804,7 +815,7 @@ NombreEmpresa 0.26141cm - 5.50016cm + 5.81066cm 1.31438cm 5.19875cm 1 @@ -827,6 +838,7 @@ Detalle de Tarea @@ -838,8 +850,8 @@ Textbox3 2.03412cm - 5.50016cm - 0.6cm + 5.81066cm + 0.85866cm 5.19875cm 2 + + Black + + 1pt + - 1.50812cm + 0.94812cm true true @@ -882,8 +899,8 @@ Textbox28 - 0.28787cm - 0.28787cm + 0.09525cm + 0.59837cm 0.49417cm 2.84937cm + + + 29.7cm diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 4c24fff16..134463ca9 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -158,8 +158,13 @@ Actualizar Miembros
  • Reasignar
    • +
  • + PDF
    •  + + +     diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 65ac64922..0b6b6b291 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -6,6 +6,8 @@ using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; +using System.IO; +using Microsoft.Reporting.WebForms; public partial class OI_TareaDetalle : ClsPaginas { @@ -45,6 +47,9 @@ public partial class OI_TareaDetalle : ClsPaginas public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } } public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } } + private string DeProp{get{return ViewState["DeProp"].ToString();}set{ViewState["DeProp"] = value;}} + private string ParaProp { get { return ViewState["ParaProp"].ToString(); } set { ViewState["ParaProp"] = value; } } + private string CCProp { get { return ViewState["CCProp"].ToString(); } set { ViewState["CCProp"] = value; } } #endregion protected void Page_Load(object sender, EventArgs e) { @@ -336,17 +341,20 @@ public partial class OI_TareaDetalle : ClsPaginas { chkpara.Checked = true; StrPara.AppendFormat("{3}{2}\"{0}\"", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver); + ParaProp = gvRow.DataKey("Nombre").ToString(); } if (CveUsuario == CveUsuarioDe) { chkCCpara.Checked = true; StrDeUser.AppendFormat("{3}{2}\"{0}\"", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver); + DeProp = gvRow.DataKey("Nombre").ToString(); } } else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) { chkCCpara.Checked = true; StrCCPara.AppendFormat("{3}{2}\"{0}\"; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver); + CCProp = gvRow.DataKey("Nombre"); } } } @@ -1673,4 +1681,37 @@ public partial class OI_TareaDetalle : ClsPaginas { pnlTerminarPadre.Visible = (DDlEstatus.SelectedValue.ToEntero() > 3 && CveEventoPadre > 0); } + + protected void LnkPDF_Click(object sender, EventArgs e) + { + FileInfo Imagen = new FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); + + List param = new List(); + + if (Imagen.Exists) + { + param.Add(new ReportParameter("Logo",logouri)); + }else + { + param.Add(new ReportParameter("Logo", "")); + } + + param.Add(new ReportParameter("NombreEmpresa",UsuarioActual.Empresa.Empresa)); + param.Add(new ReportParameter("Asunto", TxtAsunto.Text)); + param.Add(new ReportParameter("Descripcion", TxtDescripcion.Text)); + param.Add(new ReportParameter("De", DeProp)); + param.Add(new ReportParameter("Para", ParaProp)); + param.Add(new ReportParameter("CCPara", CCProp)); + param.Add(new ReportParameter("FechaInicio", txtFechaI.Text)); + param.Add(new ReportParameter("FechaFin", txtFechaF.Text)); + param.Add(new ReportParameter("Prioridad", DdlPrioridad.SelectedItem.Text)); + param.Add(new ReportParameter("Tema", DdlTema.SelectedItem.Text)); + param.Add(new ReportParameter("Estatus", lblEstatus.Text)); + param.Add(new ReportParameter("FechaRegistro", TxtFechaIng.Text)); + param.Add(new ReportParameter("Registro", TxtUsuarioreg.Text)); + param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + + ImprimirPDF("Empresas/Grales/Formatos/TareaDetalle.rdlc",new System.Data.DataTable(),param,"Tarea Detalle"); + } } \ No newline at end of file From fef6681b62f65db6bce1ccdcd51edc70d9945222 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 8 May 2020 12:47:48 -0700 Subject: [PATCH 27/46] =?UTF-8?q?terminando=20primera=20versi=C3=B3n=20de?= =?UTF-8?q?=20reporte?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Empresas/Grales/Formatos/TareaDetalle.rdlc | 963 +++++++++++++++------ OI/TareaDetalle.aspx | 6 +- OI/TareaDetalle.aspx.cs | 41 + 3 files changed, 726 insertions(+), 284 deletions(-) diff --git a/Empresas/Grales/Formatos/TareaDetalle.rdlc b/Empresas/Grales/Formatos/TareaDetalle.rdlc index 65c1d2983..102c6ce27 100644 --- a/Empresas/Grales/Formatos/TareaDetalle.rdlc +++ b/Empresas/Grales/Formatos/TareaDetalle.rdlc @@ -2,7 +2,302 @@ - + + + + + 5.141cm + + + 5.71849cm + + + 8.78465cm + + + + + 0.54708cm + + + + + true + true + + + + + Fecha Ingreso + + + + + + + Textbox15 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre Usuario + + + + + + + Textbox2 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Evento Comentario + + + + + + + Textbox1 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.40421cm + + + + + true + + + + + =Fields!FechaIng.Value + + + + + + 2pt + 2pt + 1pt + + + + + + + + true + + + + + =Fields!NombreUsuario.Value + + + + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!EventoComentario.Value + + + + + + 2pt + 2pt + 1pt + + + + + + + + + + + + + + + + + + + After + true + true + + + + + + + DataSet1 + 8.14599cm + 0.20219cm + 0.95129cm + 19.64415cm + + + + + true true @@ -20,10 +315,11 @@ Textbox2 - 0.28787cm - 0.59837cm + 0.42691cm + 0.33722cm 0.67938cm 4.00812cm + 1 @@ -49,11 +345,11 @@ Asunto - 0.28787cm - 4.60649cm + 0.42691cm + 4.34534cm 0.67938cm 11.71922cm - 1 + 2 @@ -64,7 +360,7 @@ 2pt - + true true @@ -82,11 +378,11 @@ Textbox2 - 1.00253cm - 0.59837cm + 1.14157cm + 0.33722cm 0.67938cm 4.00812cm - 2 + 3 @@ -112,11 +408,11 @@ Descripcion - 1.00253cm - 4.60649cm + 1.14157cm + 4.34534cm 0.67938cm 11.71922cm - 3 + 4 @@ -127,7 +423,7 @@ 2pt - + true true @@ -144,11 +440,11 @@ Textbox2 - 2.30614cm - 0.59837cm + 2.44518cm + 0.33722cm 0.67938cm 2.42062cm - 4 + 5 @@ -160,7 +456,7 @@ 2pt - + true true @@ -177,11 +473,11 @@ Textbox2 - 3.80954cm - 0.59837cm + 3.94858cm + 0.33722cm 0.67938cm 2.42062cm - 5 + 6 @@ -193,7 +489,7 @@ 2pt - + true true @@ -210,11 +506,11 @@ Textbox2 - 3.05608cm - 0.59837cm + 3.19512cm + 0.33722cm 0.67938cm 2.42062cm - 6 + 7 @@ -243,42 +539,10 @@ Textbox11 - 2.30614cm - 3.08955cm + 2.44518cm + 2.8284cm 0.67938cm - 5.62208cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Para.Value - - - - @@ -307,10 +571,10 @@ Textbox11 - 3.80954cm - 3.08955cm + 3.19512cm + 2.8284cm 0.67938cm - 5.62208cm + 9.47089cm 9 - - true - true - - - - - =Parameters!FechaInicio.Value - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -391,7 +625,7 @@ - Fecha Fin: + Fecha Inicio: @@ -401,11 +635,11 @@ Textbox14 - 2.30614cm - 12.58041cm + 2.44518cm + 12.40512cm 0.6cm 3.71708cm - 12 + 11 @@ -423,7 +657,7 @@ - =Parameters!FechaFin.Value + =Parameters!FechaInicio.Value @@ -453,7 +687,7 @@ - Prioridad: + Fecha Fin: @@ -462,12 +696,12 @@ @@ -485,19 +719,19 @@ - =Parameters!Prioridad.Value + =Parameters!FechaFin.Value @@ -515,7 +749,7 @@ - Tema: + Prioridad: @@ -525,41 +759,11 @@ Textbox18 - 3.68254cm - 12.58041cm + 3.82158cm + 12.40512cm 0.6cm 3.71708cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tema.Value - @@ -571,6 +775,98 @@ + true + true + + + + + =Parameters!Prioridad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tema: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tema.Value + + + 2pt + 2pt + 2pt + 2pt + + + true true @@ -588,11 +884,11 @@ Textbox22 - 5.39433cm - 0.59837cm + 5.53337cm + 0.33722cm 0.75875cm 2.5cm - 18 + 19 @@ -620,42 +916,10 @@ Estatus - 5.39433cm - 3.08955cm + 5.53337cm + 2.8284cm 0.75875cm 4.27271cm - 19 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Registró: - - - - - - true - true - - - - - =Parameters!FechaRegistro.Value - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -704,7 +938,7 @@ - Registró: + Fecha Registró: @@ -713,12 +947,12 @@ @@ -736,16 +970,48 @@ - =Parameters!Registro.Value + =Parameters!FechaRegistro.Value + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Registró: + + + + + + true + true + + + + + =Parameters!Registro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Registro de actividades + + + + + + + 0cm + 0cm + + + + Textbox21 + 7.30081cm + 0.20219cm + 0.65997cm + 4.88667cm + 25 + + + 2pt + 2pt + 2pt + 2pt + + - 3.13541in - - - - - - - - - + 4.05733in + @@ -814,8 +1155,8 @@ NombreEmpresa - 0.26141cm - 5.81066cm + 0.15346cm + 7.31948cm 1.31438cm 5.19875cm 1 @@ -829,7 +1170,7 @@ 2pt - + true true @@ -849,8 +1190,8 @@ Textbox3 - 2.03412cm - 5.81066cm + 1.92617cm + 7.31948cm 0.85866cm 5.19875cm 2 @@ -864,24 +1205,31 @@ 2pt + + 3.00001cm + 0.20219cm + 0cm + 19.64415cm + 3 + + + + - - Black - - 1pt - - 0.94812cm + 1.86619cm true true - + true true @@ -899,8 +1247,8 @@ Textbox28 - 0.09525cm - 0.59837cm + 0.43124cm + 0.20219cm 0.49417cm 2.84937cm - + true true @@ -955,6 +1303,7 @@ Fecha Impresión: @@ -962,8 +1311,8 @@ Textbox10 - 0.09525cm - 5.86358cm + 0.43124cm + 8.0074cm 0.49417cm 3.55833cm 2 @@ -977,7 +1326,7 @@ 2pt - + true true @@ -997,8 +1346,8 @@ Textbox8 - 0.45395cm - 5.87416cm + 0.78994cm + 8.01798cm 0.37041cm 5.72096cm 3 @@ -1012,7 +1361,7 @@ 2pt - + true true @@ -1032,8 +1381,8 @@ Textbox3 - 0.09525cm - 14.25984cm + 0.49389cm + 17.78047cm 0.36335cm 2.06587cm 4 @@ -1047,26 +1396,74 @@ 2pt + + 0.17639cm + 0.23041cm + 0cm + 19.64415cm + 5 + + + + - - - - 29.7cm - 21cm - 2cm - 2cm - 2cm - 2cm + 27.94cm + 21.59cm + 0.5cm + 0cm + 0.5cm + 1cm 0.13cm + + + + HTML + + + + =Parameters!NombreUsuario.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.62012cm + 0.22583cm + 0cm + 17.79586cm + 1 + + + + + + + + + 3.65719cm + + + 3.49856cm + + + 1.44923cm + + + 1.99986cm + + + 2.68423cm + + + 2.54257cm + + + 2.19006cm + + + + + 0.58324cm + + + + + true + true + + + + + Tipo Dispositivo + + + + Textbox22 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Vehículo + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Modelo + + + + Textbox6 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Serie + + + + Textbox14 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMEI + + + + Textbox16 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Número Teléfono + + + + Textbox18 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Ing + + + + Textbox3 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.58324cm + + + + + true + true + + + + + =Fields!TipoDispositivoDisplay.Value + + + + + + + TipoDispositivoDisplay + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Display.Value + + + + + + + Display + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Modelo.Value + + + + + + + Modelo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + + Serie + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IMEI.Value + + + + + + + IMEI + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NumeroTelefono.Value + + + + + + + NumeroTelefono + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaIng.Value + + + + + + + FechaIng + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.79651cm + 1.16648cm + 18.02169cm + 2 + + + + + + 0.86559in + + + + + + + Textbox1 + 0.18521cm + 2.99389cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE SERVICIOS + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 2.99389cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.16285cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.97543cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.14641cm + 15.77912cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Now + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.0635cm + 0.20158cm + 0cm + 17.82011cm + 5 + + + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + + + + + + + + + + +
  • + Lista
    • +     +     +     + + + + + + + + + + + + + +
    +

    <%#Eval("Lista") %>

    +
      + + + +
    • + <%#Eval("Asunto") %> +
      • +       +       +
    +
    + + <%# String.Format(" ",Eval("CveTableroLista")) %> +
    +
    +     +     + +     +     + <%--
    +

    Lista de Pendientes

    + +
      +
    • Pendiente 1
      • +
    • Pendiente 2
      • +
    • Pendiente 3
      • +
    • Pendiente 4
      • +
    • Pendiente 5
      • +
    +
    +
    +
    +

    Lista de Tareas

    +
      +
    • Tarea 1
      • +
    • Tarea 2
      • +
    • Tarea 3
      • +
    • Tarea 4
      • +
    • Tarea 5
      • +
    +
    +
    +
    +

    Lista Nueva

    +
      +
    +
    +
    --%> + + + + + + + + + + +     + + + + + + 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 550252871..117bb5418 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -160,6 +160,8 @@ Reasignar
  • Agregar Vinculo
    • +
  • + Eliminar
    • @@ -374,6 +376,10 @@ + + + + @@ -641,16 +647,17 @@

    - Agregar Actividad

    + Agregar Tema
    +
    - Agregar + Agregar
    @@ -733,7 +740,7 @@

    - Cambiar Estatus

    + Agregar relación
    @@ -748,14 +755,13 @@
    - - <%----%> @@ -820,18 +826,21 @@ - + --%> - + - + + Cliente: +
    + <%-- - <%----%> @@ -878,15 +887,26 @@ - + --%> - + + +
    + + Personal: +
    - + + +
    + + Proveedores: +
    + Actualizar <%--Guardar--%>
    @@ -1155,5 +1175,6 @@ //$('.GVUsuarios input[type="checkbox"]:not(.setclass)').addClass('icheck setclass'); }); + diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 5391e91b3..8060015af 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -109,6 +109,7 @@ public partial class OI_TareaDetalle : ClsPaginas LnkAddTtemaB.Visible = false; EsNuevo = false; LoadTarea(); + LnkEliminar.Visible = (UsuarioActual.CveRol == 1); } else { @@ -147,7 +148,7 @@ public partial class OI_TareaDetalle : ClsPaginas #region Permisos.EntrarOI if (!Permisos.EntrarOI) { - Alert("No tiene permiso para entrar al evento", ModExtensiones.TipoMensaje.MsgAdvertencia); + Alert("No tiene permiso para ver la tarea", ModExtensiones.TipoMensaje.MsgAdvertencia); } UpAcciones.Visible = Permisos.EntrarOI; UpTitulo.Visible = Permisos.EntrarOI; @@ -157,7 +158,7 @@ public partial class OI_TareaDetalle : ClsPaginas { using (ClsOIEventos oieve = new ClsOIEventos()) { - oieve.UpUsuarioseventosVisto(RCveEvento, UsuarioActual.CveUsuario); + oieve.UpUsuarioseventosVisto(RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); LcveuserVisto.Add(UsuarioActual.CveUsuario); } } @@ -396,8 +397,16 @@ public partial class OI_TareaDetalle : ClsPaginas DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; - + TxtFechaRealTermino.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaRealTermino"]); DDlEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); + if (drow["CveEventoEstatus"].ToString().ToEntero() >= 3) + { + pnlfecharealtermino.Visible = true; + } + else + { + pnlfecharealtermino.Visible = false; + } 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); @@ -514,9 +523,11 @@ public partial class OI_TareaDetalle : ClsPaginas LtlVinculo.Text = string.Format("

    {0}

    {1}
    ", titulo, link); Convinculo = true; + LnkUpVinculo.Visible = false; } else { + LnkUpVinculo.Visible = true; LnkUpVinculo.Text = " Actualizar Relación"; } titulo = ""; @@ -574,6 +585,7 @@ public partial class OI_TareaDetalle : ClsPaginas } cargaActividades(ObjOI_E); } + else { RCveEvento = 0; } } GVcheklist.DataBind(); } @@ -586,7 +598,8 @@ public partial class OI_TareaDetalle : ClsPaginas int cveUsuarioDe = UsuarioActual.CveUsuario; List listaCCP = new List(); int cveUsuarioPara = -1; - + string Nombrepara = ""; + string Nombrede = ""; foreach (GridViewRow gvRow in GVUsuariosB.Rows) { if (gvRow.RowType == DataControlRowType.DataRow) @@ -594,9 +607,14 @@ public partial class OI_TareaDetalle : ClsPaginas int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); CheckBox chkpara = gvRow.FCCheckBox("ChkPara"); CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + if (CveUsuario == cveUsuarioDe) + { + Nombrede = gvRow.DataKey("Nombre").ToString(); + } if (chkpara.Checked) { cveUsuarioPara = CveUsuario; + Nombrepara = gvRow.DataKey("Nombre").ToString(); } if (chkCCpara.Checked) { @@ -706,7 +724,7 @@ public partial class OI_TareaDetalle : ClsPaginas { 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); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema,Nombrede,Nombrepara); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } else @@ -956,6 +974,15 @@ public partial class OI_TareaDetalle : ClsPaginas if (objOI.UpdateEstatusEvento2(CveEstatus, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { + + if (CveEstatus >= 3) + { + pnlfecharealtermino.Visible = true; + } + else + { + pnlfecharealtermino.Visible = false; + } //CargaEstatusEventos(DdlEventoEstatus.SelectedValue.ToEntero); //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1) @@ -1000,7 +1027,7 @@ public partial class OI_TareaDetalle : ClsPaginas { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - Alert("Tema Agregada con éxito.", ModExtensiones.TipoMensaje.MsgInformacion); + Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); TxtTema.Text = ""; set_GlobalDTOIRevision(-1, objoi.DtResultados); @@ -1293,6 +1320,10 @@ public partial class OI_TareaDetalle : ClsPaginas List listaCCP = new List(); int cveUsuarioPara = -1; + + string Nombrepara = ""; + string Nombrede = ""; + foreach (GridViewRow gvRow in GVUsuarios.Rows) { if (gvRow.RowType == DataControlRowType.DataRow) @@ -1300,9 +1331,14 @@ public partial class OI_TareaDetalle : ClsPaginas int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); CheckBox chkpara = gvRow.FCCheckBox("ChkPara"); CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + if (CveUsuario == cveUsuarioDe) + { + Nombrede = gvRow.DataKey("Nombre").ToString(); + } if (chkpara.Checked) { cveUsuarioPara = CveUsuario; + Nombrepara = gvRow.DataKey("Nombre").ToString(); } if (chkCCpara.Checked) { @@ -1378,7 +1414,7 @@ public partial class OI_TareaDetalle : ClsPaginas 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); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } else @@ -1406,8 +1442,10 @@ public partial class OI_TareaDetalle : ClsPaginas ClsSisMail Mail = new ClsSisMail(); List LSRutasMail = new List(); ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); - - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail); + if (Para.Trim().Length > 0 || ArrayCC.Trim().Length > 0) + { + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail); + } Mail = null; } @@ -1420,49 +1458,152 @@ public partial class OI_TareaDetalle : ClsPaginas { return "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxAPEA8PDxASDw8PFRAPDw8QFQ8PFQ8PFREXFhYVFRUYHSggGBolGxUVITEhJSkrLi4uFx8zODMsNygtLisBCgoKDg0OFhAQFy0lHh8tLSsrLi0rLS0rLS0tLS0rLS0tLS0tLS0tLy0tLS0tLSstLSstLS0tLS0tKy0tLS0tLf/AABEIAMIBAwMBEQACEQEDEQH/xAAbAAEAAQUBAAAAAAAAAAAAAAAAAwECBAYHBf/EAEIQAAIBAgEFDAgEBQQDAAAAAAABAgMRBBIhMUFRBQYTFDJhcXKBkaGxByIzUlOywdEjQpLSQ2KCo8IkY4PwNKLh/8QAGgEBAAIDAQAAAAAAAAAAAAAAAAEFAwQGAv/EAC8RAQACAQMDAgQHAAIDAAAAAAABAgMEBRESITFBURMyYXEiI0KBkaGxM8EUQ1L/2gAMAwEAAhEDEQA/AO4gAAAAAAAAAFsppaWl0tICN4qn78P1R+4FOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gVWLp/Eh+qP3AujWi9EovoaYEgAAAAAAAAAAAAAAAAAAo2BjuvKXs0re/K9uxawK8Wvy5SlzXyU+xAVhhKcdEI91wL+Cj7q7kBXg1sXcgHBrYu5AODWxdyAcGti7kAyFsXcgGRHYu5AODWxdyAZC2LuQDg1sXcgHBrYu5AODjsXcgLZUIPTGPcgI1g4Lkpw54NxAPhI/wC5HWs0ZLo1MCWlVUtGrSnmafOtQEgAAAAAAAAAAAAADYGKlwud+z1R0ZdnpfNzAZNgAAAAAhxOKp0llVJxgtsmke60taeKxyx3y0pHNp4eLit9lCOamp1XtismPfKxuU2/Jbz2V2XdsVfl5l5lbfbWfJp04dLlJ/Y2a7bSPMy0r7xkn5awxZb5cU/zwXRD7syxt+KGCd0zz6qLfJiviRf9C+4/8DF7Ijc9R7pqW+rELlKnPpUo+VzxO3Y/eWWu7Zo8xEvQw+/COirRkv5oNTXc7MwX2236ZbWPeK/rr/D2cFuxh62anUi37r9WXczSyafJT5oWOLWYcvy2Z5hbQAAAAIqtG7yo+rNZlLatj2oCtCspp6mnaSepgSgAAAAAAAAAAABj4l5TjTWh559Rau15ui4E6QAAAAhxOJhSi51JKEVpcnY9Upa88VhjyZK445tPENT3T32SleOHWRH4k1nfPGOrt7i1wbdHnJ/Ck1O6zPbF/LXa1WU3lTlKcvem3J9mzsLKmOtI4rCove155tPK257eS4QXAXAXIC5IP/vN0Eccp8PU3N3wV6FllcLBfkqO7S5p6e+5p5tDjv3iOJb2n3DLi7TPMNv3J3bo4lWi8ma5VOWaS6Nq50VGfTXxT3jt7r7Ta3HnjtPf2ema7cAAADHr+pJVFozRnzxeh9j8GwMkAAAAAAAAAAAAMfD53Oe15MX/ACxzfNlATgAAHnbs7sU8LG8s85cimtMn9Fzmxg09s1uIauq1dMFeZ8tB3R3Rq4iWXVle3JguTBcy28+kvsOnpijisOZz6nJmtzaWLcztcuAuElwguAuAuAuAuAuBWM2mpJtSWdSWZp8zItWLRxL1WZrPMNv3v75spxo4lpTeaFXQpvZLY/BlNqtD0/ix+F7otx6uKZPPu2krFyAALZwUk4vOmmn0MCzCTbhG/KXqy6yzPxAmAAAAAAAAAAKNgQYJfhx57y75N/UCcAB527m60MLTypZ5yzU4a5y+21mxp9PbNbiGrqtTXBTmfPo51isTOrOVSpLKnLS9SWpJakjosWKuOvTWHLZctsluq0ormRjLgLgLgLgLgLgLgLgLgLgLgUY4G3b1N323HDV5XbzUaj/N/JJ7dj1lNrtH0/mUjt6r3b9dz+Xkn7NuKpdAACDCZuEWycn35/qBkAAAAAAAAAAFtTQ+h+QEWC9nT6sfICYCLE1404SqTeTGCcpN6kj1Ss2mKx6vF7xSs2n0cx3V3SliarqyzLRTj7kNS6XpZ02m08YadMfu5XU55zXm0/sxLmw1y4C4C4C4C4C4C4C4C4C4C4C4C4C/ZzrSmta5yJjmOCOzoO9XdjjNPJm/xqVlP+aOqa6fM53W6b4N+3iXTaDVfGpxPmHumk3wDHw3Lq9ZfIgMkAAAAAAAAAAtq6H0PyAhwPs6fVj5ATgaXv63Tu44WLzK1Sr/AIx+vcXG2af/ANk/spN01HjFH7tSuXKm4Lg4LgLg4Lg4Lg4ejuXuNXxWenFKGjhJ3jHs1y7DVz6vHh7TPf2bWDR5M3eI7Peo7yHb18Q09kIRt3sr7brPpT+1hXaPe5iN5DS/DxDb2VIxt3xzk13Wf1VRfaO34bNYx+DqUJ8HVjky0rWpLbF60WmHNTLXmsqvNgvit02hj3MrEXAXBwXBwXBwXBwy9yt0JYatCstEc0171N8pfXsNfU4Iy45r/DPps04ckWh1SnUUoqUXdSSae1NZjl5iYniXV1tFoiYXEPTGwvLrdaPyIDKAAAAAAAAAALauh9D8gIcD7Kn1Y+QF+JrKnCc5ZowjKcuhK7PVKza0Vj1eL2itZtPo5JisVKtOdWXKqSc3zJ6F2Kx1mLHGOkVj0cnlvN7zafVFcysfBcBcg4LkhcHD0t7+53GsRGm/ZxXCVbe4tXa/qamsz/BxzMeZ8NrR4PjZIifEeXUKdNRSjFJRirJLMktiOYmZmeZdRWsVjiFxCQDzd39yo4qjKDzTXrU5e7PV2PQzY02ecN4tH7tbVaeM1Jj19HLndNqStJNxktkk7NHU1mJjmHLTWYniVLkoLknBcHCtwFyBS5Jw3/eLj+EoOk+VQaj/AMcs8fquw53csPRl6o8S6Hbc3Xj6Z8w2UrlkxsLy63Wj8iAygAAAAAAAAAC2rofQ/ICHA+yp9WPkB4m/rFZGElBaa0o0+y95eCN/bsfXmifbu0NxydOGY93OrnSucLjgLgLjgLjgLjgbn6OqX/kz13pwXQo382Ue7WnqrVdbVXtazdCnXAAAAc437YLgsVlpWjXjl/1xzS8LM6LbMvXi6Z9HO7ji6MvVHq1+5ZcK8uOAuOAuOElxwguOB7+8nFZGLUdVaEof1L1o/Urdzx9WHq9lhtuTpy8e7pBzromNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2dPqx8gNL9I2I/Ew1PZGdR9rUV9S82ina9lLutu9atQuXSpLgLgLhBcJLgb76Ol+BWe2q/CKOe3b/lj7Lza/+Ofu20qloAAAGt7+8FwmFdRL1qDVVdXRJdz8Cw23L0Zoj/67K/ccXXi59u7nNzpnPlwFwFxwFwFwMjc6vwdehU9ypTb6Mqz8GYdRTqxWj6SyYbdOSs/V2JHHusY2F5dbrR+RAZQAAAAAAAAABbV0PofkBDgvZU+rHyA576QZ/wCsivdoQ8akzotpj8qfuodynnLH2a3cteFcXAXAXHAXAXA6H6Ol/paj21qnhY5zdp/Oj7Qvdsj8qfu2oq1kAAAFlampxlGSvGScWtqazk1mYmJh5tHMcS49ulgpYatUoS003aL96m88H3eTOv0+WMuOLw5fNinHeayxrmdiLgLgLgLgW1pWjJ7M/cebR2lNfMO203dJ7UmcXMcS6yk81hBheXW60fkRD0ygAAAAAAAAAC2rofQ/ICHBeyp9WPkBzr0gq2NXPQpv+5NHR7RPOKfuodxj81rdy2V5cBccCtwFxwFyOB0v0fU2sDBv886010ObS8jl9ztzqJ+nEOg2+vGFshXt4AAAAGqb+dwnXgsRRjetSVpRWmpS1pfzLSu1ayz23V/Ct0W8T/qu1+m+JXrr5hzpSOlhR8K3J4QXHAXHAXI4Edd+rLoIt4THmHcKSsktiS8DibTzMurp8sIcLy63Wj8iIemUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gNC9JVG1fD1NU6c4dsZX/AMjoNmt+C8fVS7nX8dZajculYXAXAXApcA29WdvMltk8yXe0RM8RymI5nh2bcXB8Bh6NH4cIxfTbP4nGajJ8TJa3vLp8FOjHWvszTCygAAAAAafvm3mqq5VsLk06ss86bzQqPavdlz6GW2j3KcfFMneP7hW6nQxf8VPLQcVQnSnKlVi4VIWUoOztmus6zNW1nQ48lclYtWe0qa9Jpaa2jujue3kuAuBJhaPCVKVNfxJ04d80Ys1unHaZ9pe8debxH1duRxTqYY2F5dbrR+RBLKAAAAAAAAAALauh9D8gIcD7Kn1Y+QGsekjC5WGhVtnozi31Zeq/Gxa7Tk6c3T7q/cac4+fZzi50yjLjgLgLk8BcgbNvF3FeIrqvNfgUHdX0VK2pc6jpfPbYVO6auMdPh1nvP9QsNDp+u/XPiHTzml4AUuAcktLsTwjmIYeJ3Ww9L2lelDrTivqZK4MlvFZ/h4tmpXzLysRv23Ph/Hy3spwqz8UreJtU2zU2/T/cNe2uw1/U87EekKgvZ0as+eWRBeLubNNnyz80xDDbcqR4h5mJ9INd+zoU4c83KfgkjZps1I+a0/swW3K0/LDWMfjqmIqzrVWnOdr2WSkkrJJbLFthw1xUilfENDJktktNreWPcy8MZcBccD295eF4XG0c11SUqz/pVl4srtzydGCfr2bmip1ZY+jrRyjoGNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gIt18EsRQrUX/EhKC5pNZn2OzMuDJ8PJW/tLHlp10mvu4pKMotxmrSi3CS2Si7M7alotEWj1c1avE8KXPSC4QXAN9vhm1kTHbsmHR8Lvz3PoUqdOkpqMYpKnCnJZHM75rnMX23VZLza0efXldU1uGlYiGNiPSLD+HhpvnqShDyuZqbLefmtDxbcq+lWJS337pYlyjhcNCVrXyU6jjfRduSSMltu0uHj4t5Y41mfJ8lUiwu71blVOBWzKoQ+RN+J469ux+I6v5/7eunWX8zwuW8nGVc+Ixre1Xq1POVvAidywU/48Sf8Awstvmu1Xd7c+lhq8qNObq8GoqpNqC/EedxVlqVi30eW+bH13jjnx9lfqMdaX6YnlgZRt8MJcBcBcILgLhJcDoHoy3PtCtiZL2rVOn1Icp9sn4HObxm6r1xx6f9rfbsXFZv7t4KVZsbC8ut1o/IgMoAAAAAAAAAAtq6H0PyAhwPsqfVj5ATgcu9Ie5To4lV4r8PE6baI1ks67Vn7GdNtGo68fw581/wAUuvw9N+qPEtVuXDQLgLgLgMocBcDM3K3UrYWoqtGWTLRKMs8akfdkvrpRg1Gmpnr03hkxZbYp5q3PDekaFlwmGqKWvg5QlFvmvnKS+yX5/DeOPqsq7jXjvV5+6+/6tVThh4cXTzOpJqdT+lLNHpzmxg2alZ5yTz/jDl3C1o4pHDUL897523nbe1vWy6iIiOIV5cBcBcBccBcBcCXCYedapCjTV6lWShHmvpb5krvsMebJGKk3n0eqUm9orHq7bubgo4elTow5NOKiuey09uk4nLknJebT6ukx0ilYrDJMb2xsLy63Wj8iAygAAAAAAAAAC2pofQ/ICHBezp9WPkBOB5+725UMZQqUJ5spXjJaYTWeMl0Mz6bPbDki8ejFmxRkpNZcWxeHnRqTpVY5NSm8ma1X2rmelHaYclctIvXxLnr0mlprKK5l4eS4C4C4C4C4C4C4C4C4C44C4C44C44C4HRPRxuE4xeNqq0qiyaEX+Wlrk+eXkjmd21nXb4VZ7R5+620On6Y65b0UqyAMfC8ut1l8iAyQAAAAAAAAACklmYEOD9nDmVu7MBMAA1PfzvY43Dh6K/1NJWto4aHuPn2P7lptuu+Bbpt8s/00tXpviR1R5hyq+nSmm008zTTs01qa2HWRMTHMKaY4VuShS4C4C4FbgUuAuAuAuAuAuAuAuBsu8re08bPhai/0tOXrf780+Qv5VrfZtKnctf8GvRT5p/pu6XTfEnqnw63GKSSSslmSWpHKLqOyoACDC6aj2yfgkgMgAAAAAAAAAAAY2DVlOPuyl/7et/l4AZAAABpu/PecsTfEYa0MRpnB5o10lrf5Z8/Y9qttv3KcH4L96/40dTpYv8Air5cvqRlCUoTi4Tg8mcJK0oS2NHVUtW8Ras8xKomsxPEqXPfApccBccILhJccBcIVuAuOElyOAuTwguQNm3o70qmNca1W9PCab2aliFshsj/ADa9W0qNw3KuGJpTvb/G7ptLOT8VvDrGGw8KUI06cVCEEoxjHMopakcta02mZnzK4rWKxxCU8pAAEGBXqJ++3O2zKd/qBkAAAAAAAAAAADGq+rUjL8s7QlzP8r8Wu1AZAAAAA8PfJvYoY6P4icKsVaFeFsuPM/ejzM3NJrcmnn8Pj2YM2nrkju5du9vYxWBu6kOEpLRXpJuNts46YeK5zqNLuOHPxHPE+0qrLpr4/s8VSvnWdPWtDLBrlwFwFwFwFwK3AXAmwGEq4ifBUKcqs9agr5PWeiPaYc2fHhjqvPD3THa88Vh0Xez6P403GrjXGrNZ1QjnpwerKb9o/DmOc1u72yc1xdo9/VZYNFFe929JWzFI31QAADHxbulTWmpm6Ifmf07UBkpAAAAAAAAAAAABbUgpJp6HmAhoTa9SbvJaH78dvTtAnAAAAFGgNZ3Z3jYLEtzUHh6ks7nQtC72yjyX3Fjp90z4eI55j2lrZNLjv9Gobo+jjFwu6FWliI6lO9CdvGL8C4w75imPzKzH27w076G8fLPLwMVvcx1Ll4Stm1wUai74u/gWFNw01/F4a9tPkr+l588PVjyqNWPWpVl/iZ41GKfFo/mGOaW9lqpzeinUfRTqv/Emc2OPNo/k6LezKw+5OKqZoYXES/45R+axitrMFfOSP5eow3nxWXs4HeJuhVtenChHW6086/oin5mnl3jTU8TM/Zmro8k/RtO5Xo2oQtLE1Z4h64R/Bp9yztdLKrPveW/bHHT/AK28ehrHzTy3PA4GlQgqdGnGlBaIwSivAp8mS+Seq08y3K0iscRDIPD0AAAFlWooq7/+t7EBZh6bzylypavdjqivqBOAAAAAAAAAAAAACytSU1aXZqae1PUwIcucOUnOPvR5S6Vr7AJKdaMtEk+36ASAAAAABQBZBHEKZK/7Ynk4hUhKoAAAAAUlJLS0unMBA8TfNTWW9uiK6WBdSoZ8ubyp6FsitkUBOAAAAAAAAAAAAAAAAAR1KEZcqKfPr7wI1g4rkuUeiUvqBTir+LU74/YBxV/Fqf2/2gOKv4tTvp/tAcVfxanfD9oDir+LU/t/tAcVfxanfT/aA4q/i1O+n+0BxV/Fqd8P2gOKv4tTvh+0BxV/Fqd8P2gOKv4tT+3+0BxV/Fqd8P2gV4rtnN9MvsBWGDpr8t+s3LzAnSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9k="; } - private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaihora, string Fechaf, string Fechafhora, string Prioridad, string Tema, string UsuarioDe, string UsuarioPara,string Accion ="Nueva tarea asignada") { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" NUEVA TAREA ASIGNADA"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + string UsuarioDeAbr = ""; + if (UsuarioDe != null) + { + string[] str = UsuarioDe.Split(' '); + if (str.Length > 0) + { + UsuarioDeAbr = str[0].Substring(0, 1).ToUpper(); + } + if (str.Length > 1) + { + UsuarioDeAbr = string.Format("{0}{1}", UsuarioDeAbr, str[1].Substring(0, 1).ToUpper()); + + } + } + string UsuariParaAbr = ""; + if (UsuarioPara != null) + { + string[] str = UsuarioPara.Split(' '); + if (str.Length > 0) + { + UsuariParaAbr = str[0].Substring(0, 1).ToUpper(); + } + if (str.Length > 1) + { + UsuariParaAbr = string.Format("{0}{1}", UsuariParaAbr, str[1].Substring(0, 1).ToUpper()); + + } + } + + StringBuilder StrMail = new StringBuilder(); + StrMail.Append(""); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    SIG Notificaciones
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append("
    "); + StrMail.Append(" DE: @UsuarioDeAbr@ @UsuarioDe@
    "); + StrMail.Append(" PARA: @UsuariParaAbr@ @UsuarioPara@"); + StrMail.Append("     		"); + StrMail.Append(" Nueva"); + StrMail.Append(" Tarea"); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(""); + StrMail.Append("
    "); + StrMail.Append(" @Asunto@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" Folio:"); + StrMail.Append(" @Folio@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" Tema:"); + StrMail.Append(" @Tema@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" @Descripcion@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" @Prioridad@ PRIORIDAD"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" @Accion@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append("
    Inicia:"); + StrMail.Append(" @Fechai@
    "); + StrMail.Append(" @Fechaihora@"); + StrMail.Append("     		Termina:"); + StrMail.Append(" @Fechaf@
    "); + StrMail.Append(" @Fechafhora@"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + return StrMail.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion) + .Replace("@Fechai@", Fechai).Replace("@Fechaihora@", Fechaihora).Replace("@Fechaf@", Fechaf).Replace("@Fechafhora@", Fechafhora) + .Replace("@Prioridad@", Prioridad.ToUpper()).Replace("@Tema@", Tema).Replace("@UsuarioDeAbr@", UsuarioDeAbr) + .Replace("@UsuarioDe@", UsuarioDe).Replace("@UsuarioPara@", UsuarioPara).Replace("@UsuariParaAbr@", UsuariParaAbr).Replace("@Accion@", Accion); } + //private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" NUEVA TAREA ASIGNADA"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} private string MailgetBodyActualizartarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) { @@ -1750,33 +1891,46 @@ public partial class OI_TareaDetalle : ClsPaginas PnlProveedor.Visible = (CveVinculo == 4); if (PnlActivoFijo.Visible) { -; - using ( ClsAF ObjAF = new ClsAF()) - { + ; + //using ( ClsAF ObjAF = new ClsAF()) + //{ - if (ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", DateTime.Now.Year, -1, -1,-1,-1, "-1",-1)) - { - GvActividades.DataSource = ObjAF.DtResultados; - GvActividades.DataBind(); - } - - } + // if (ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", DateTime.Now.Year, -1, -1,-1,-1, "-1",-1)) + // { + // GvActividades.DataSource = ObjAF.DtResultados; + // GvActividades.DataBind(); + // } + + //} } if (PnlCliente.Visible) { - using (ClsClientes ObjClientes = new ClsClientes()) - { - if (ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1)) - { - GvClientes.DataSource = ObjClientes.DtResultados; - GvClientes.DataBind(); - } - } + //using (ClsClientes ObjClientes = new ClsClientes()) + //{ + // if (ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1)) + // { + // GvClientes.DataSource = ObjClientes.DtResultados; + // GvClientes.DataBind(); + // } + //} } if (PnlPersonal.Visible) { + using (ClsRH ObjPersonal = new ClsRH()) + { + if (ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) && ObjPersonal.DtResultados.Rows.Count > 0) + { + DdlPersonal.DataSource = ObjPersonal.DtResultados; + } + else + { + DdlPersonal.DataSource = new System.Data.DataTable(); + } + } + DdlPersonal.DataBind(); + DdlPersonal.Items.Insert(0, new ListItem("Seleccione Personal", "-1")); } if (PnlProveedor.Visible) { @@ -1794,5 +1948,21 @@ public partial class OI_TareaDetalle : ClsPaginas { } + + + protected void LnkEliminar_Click(object sender, EventArgs e) + { + using (ClsOIEventos ev = new ClsOIEventos()) + { + if (ev.RemoveEvento2(RCveEvento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) + { + Alert("Tarea Eliminada"); + } + } + } + + protected void LnkUpRelacion_Click(object sender, EventArgs e) + { + Alert("ocurrio un error al actualizar lla relación "); + } } - \ No newline at end of file diff --git a/UserControl/TareaNueva.ascx b/UserControl/TareaNueva.ascx index c36de7a9a..3dab287b5 100644 --- a/UserControl/TareaNueva.ascx +++ b/UserControl/TareaNueva.ascx @@ -198,6 +198,7 @@ +     @@ -218,16 +219,17 @@

    - Agregar Actividad

    + Agregar Tema
    +
    - Agregar + Agregar
    @@ -255,6 +257,7 @@ $('.TxtTareaNuevaCveContrato').val(obji.CveContrato); $('.TxtTareaNuevaCveSubProyecto').val(obji.CveSubProyecto); $('.TxtTareaNuevaCveMovimientoAlmacen').val(obji.CveMovimientoAlmacen); + $('.TxtTareaNuevaCveTableroLista').val(obji.CveTableroLista); //alert(obji.CveCliente); //$('#iddivAgregarTarea').modal(); $('.BtnopenmodalConPadre').click(); diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index 3b8108453..eabbd1f5c 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -12,7 +12,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl 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; } } @@ -113,6 +113,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl 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(); @@ -210,7 +211,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl 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()); + CveContrato: TxtCveContrato.Text.ToEntero(), CveSubProyecto: TxtCveSubProyecto.Text.ToEntero(), CveMovimientoAlmacen: TxtCveMovimientoAlmacen.Text.ToEntero(), CveTableroLista:TxtCveTableroLista.Text.ToEntero()); CveEvento = objOI.CveEvento; Folio = objOI.Folio; @@ -306,7 +307,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - this.Alert("Tema Agregada con éxito.", ModExtensiones.TipoMensaje.MsgInformacion); + 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) diff --git a/WEB.rar b/WEB.rar new file mode 100644 index 0000000000000000000000000000000000000000..f1421731b052b1f42d03051594978f9053874fa3 GIT binary patch literal 7000 zcmV-e8>i$_VR9iF2LS-{;ezW60R;yD1_1$pfPeta(|sZ+0s{-Ong9go?EoO9jvX6- z0{{w4Z)ZtvE@5+UcnSjojVZ93Wg^xA$gwUBFm^;kGc@v7RqxO@!R{E?B*>0qNcxu!g^Td7{r`VG-v9MCnE4ntA>7Fkc5hnra9TC^ zp?8lv4ny}c`w>08YZ=;sfq%m4?0A`Ifq5Os%ZeTcx>V1IU|@4A53>v%a4tLh|Ihgk z#22tO^RL2hA=_XEonjlq)dVayr`*ORJg-8_Z2Jy6yCA0T$;IX2=KmgUGi8Ogk#LW* zG)VXv1RKrt+D+pJT-_r9!Z`p4UfWe(f$>g{p+IcNuFu!lE7F00RDLG`cmf3Z@Tfk4 zvlq?KaD*t^;UC`pvE1{q{$d5FROfxAKG#dLncjDv0kj^I(q)3|{>CBzeFEfa`H%L_ASo}<(oPP=0nR*%%|P^9Mw zOoW(~T<_+@)J#^YB>@q?`al_8On*|&wIhsDKGv--12C6iEuiEOL4eigdI$8jB@6YC zbFP6F1_>;8o&^YDXCG3s_E}POb+#z5LZNlP+?eCbB~d+b)g_&!L@V;&7RXfvudp;v z=~(BYb!wFB3%hp{tMy7^U7YA|c(PjG03~Nb0brnlsxa?5G%{oqsDa~k_R=~~B@@WC z(?WeRPo*K_N`1K0j#IcMy#A0aA@VMiZ<6@8uX8$Ju^sme*gLReg;Y-o501;34FqFC zVTPb_2Br-jl{peNb}@tvhZg<3h?qAl1uBT;B`$nfM?GUw=lZpAVcsyE2Mt_YP*LI;!vdbL z^moJbH;JyP^dk%3G2zNkA0yVvB(8|wuy^Od=sQfViYN8c^)eQ!g7S{|u)=o)wb#~| z6+r`4Kzw5He?XuMT0Urv>Zg7ou2U^RuO6unYNy^|VUKm~5xrgAL0$NDtm^k`s-3|F zXtlGX;f-=N^wNbA?ZU`GE9KFF3X^B|{(u<;4nx}(lytI9c>jEJpB9Q|*Nrn^BKo#8U(JjZc{rAdX-QJV_E zyB%I!%r@{F9lBPF8Hk!6nZ~3raD#UahFzP9jAx0ccp`=nS{K|9xItJfNMCAf;G{yP zd>^oxJ-3lZmKJhpjMQCNyRjW?+BBY5eBI08lwA)7myhj@)vqCa=ZZNyH;-&_Zyvzn z6*H_`$j#$KhDONk7f2Ny_3o<@jAp?iSe-J2xBy?K@1u1u*9)7-ZZtjpowLG4#aWV@dWQ@qsxZeS< z@~{>3aX0RcAy*@8mhz6bm_{|d`0vGhmdUx6`^hk73ke(7u{7%0fM*zyKmmEs;k)+j z$a)={s*6SjgE+#&sxFilC@XKt^bonJoAHy0Z(2-kM$f9)eJS`-`C^9d=6NDuJ)S|9 zsLZi`$Ls$Ot-Q900Xvu;Au+PCdn46%3)N_#wkNL95%_!APd|I%?YpJzA9tYEjE()p zqe>Zu*i3>V#fkAJl1B^0?wBuqHZgk&OI%+Z6ag+LjIkOgX|U#G>-2|QE%hF9Bc3PD z{F!RzmJ1)0HuTUD<#8|+T~^FosiKw+g#(NyaWXhwt<;&3&f{z+|EK5WYdb6czmcGb z%S`8gVq5}pXWWfTUzUx6tqM)bb8fArvU6X=0E}PPn#iB1B3MDJ3GYNTM~Iqt3QT}U zjG24!W=Z2e~aKiRMG8cuLUJ6h?r zZ1WpusKZl3j@KSB$sK#bWLs^1x6vg-SJg@ zVPiNJj)#dNmSdFBD;gd$F)hYl>0Qh}CG@16b zP&oQ}NQn4NL7y4EM%KNv3mYSXW&excGi$EK*I(oK%jSFUi58t&va1wxJvC6xi=|?E zv~x#}3?z87=M}VTitLIE0aZ+KDZx;N zCJUjOXzh&imX@-Zz4u|R{4CkDh}A|RAA3O#1$?p-(GKozC} zp?`}H3r>R93P|V@-ZiRsmbWSfM#@LnjQqmnDqAty!X}0sfkFEY0SOl=l5Xw=b=*Tg zaykS~f+Hst@kXbK`(hTKEB>IZvjT3#dMpoM{n*R{)?{jj6jAvz5tS|t)nm$;a*>pXDjjwGN%iBI_DVT&S75mYz(T5< zJdo(3G&bkKbMP=SGCgQLvkVYL3LQ04xc)q=I?><-N_y?hDyuPL4<9s>K)EkvGdPMO z`BdQ&&HB(tCLi3Y9-TYkl^yGr)Rxu0+(As>^K(dEpzf0^oQ|Gi6*&k?AxQvhV^(s- zNb{ug=n1+DI=|g&$Q)=PH`U&ATznnBsaY?X}IwhQ7NC2 zKtEJqmrX+13JWVl*q0b1KEQ$gHkkJ-g}}N}K`6{XH34-I&R`T+o-8MT)=&$43HUCl z3O&Ux5m|7~FPyO83?O&xkti48iSUjAFK|UK$MH3;SACX<5-ImWMcJ8#mG737!*FO^ z`)NuJb8JIsrrMCKcZaW)J%N|3BZZE@4Z8iyXvV5@aj;pdf!BUn)JlMaIu+Zs0m2YL zQV@qZk_9Uem?Xv|GNHwh@st^$+mGyx+ZBMzu#W}@)8HQ}04cJ05#K@Iu0~#U2&aQ! zYGVXGX)IPA``r(mv-Ab`u_a3M{ps$l4$Lt#*CHG!c*Agb%`r@O)g)4!(U`S)i}K>h zZtA}^WAt0=#a40E8B}DbZMH=Y*g%}=LQjq;*z+!!?maT|_%wN{+UAL%_1EMn>J+xM@ zPH(?+PU~7NOR&4Sq+@s2T)@&{P4K3C{Z;IQAKr=#xSm z-l8`m@(sI%pjFFx)6B6{-Rs2yhV{F(uvx$mW{Q2i3>nuN>NZp79j6u8IgzA77f(tr=S1S(xMFxvC>Ni=lS%mYxf6fCo{x69?m!#889Sp_YNNV z*F+{tQz_rxH0D`ayvTzT(sam19*(y3bNbRf_ohYSdz&V`>73;OeZ=&7FdAXlp`zkut@+xr9@%X6>`f|kqy`E$)nds^Dxe$N zcS4i=0}H8}00iy&03eH6T;zZQ01ZrUXGv}@ zVRLYJE_PxH0|HnwUV?@j)&a;mr429!Lo+l)@>W&v&@;ivSOzq}cARo%UT_O`1C6B%HZ6_WXl;G;e0~Xd9kEz6~3b>MMk<7Soq`gFGSJk)%y< znlxzDQ8(i?_)n|i6(v+Cnk1rY!oUCg|F|>gao659KKGwvI@gZ*{;%a7rOVjyu=C8g z+E#b_pJB9F3y&Z_*pI9-c8ztTfP-OkHUbMVd>?&`I?6?#=*Lps7#0Efm_WbR&c7qg8yqB4`~L#CJ|SNxGupR*h10s*u&|1 zYaqP-mwY-|W8sWpAR4NP5LB+VM+KP_6=&QTRf7dW=kG?ZV;L zRptOt6ha-%)$Sk*27w#C4?!Kc?q`AHjNk>Jft!(qkRp-+SxaAs-nFm0@LTcpkFQSx zh9FjsU{5x7O_bp_OfLsnmAVk%fOkH$Isq7h9M;E!*{v`=$`T_N?_gPj+nL+#1aThb z0Kp+!04o93MjajxT+#s1=nP1~`3ufGN{^M1j{&(W3(V&;IvQo?(S~5k#Yt##vG7aV z;-Z5ckKd9) zIc$f14=0Dx`M^Drz=HbDaHh{^t2LWTd$eY)`5LxSk^sqC!j<;sgG~9aGk;Y#2Z!6K z{$S7JZlnJ;U%=7EW$R~j1{s}r@l9cgYc zuMq4Gf+jl)ug=S1+(Gp`w=m=OV#Wye4UwG=1k78X+``DJKD8*#gpzWfI~x6g$EMVV^>sQ0O#YK-2e;4G!<2;Vu4wNFzHZ0lC~xmt{7wJA$+5u+iU>S`^bfd1Gk2H+G{HV!D?hLMYyw6#u$<&TJf*f zf*n^a(uqH9#Njz3C730Xx%gxpTZzoNUKjH(#F3mth^={!v*~I69WTD)WLDvQv`%6+ z6%mNPg7q%Y>Zzh^j%K(M+nU3Z0KHzZAgw0QB^Tx~gc)4&NU}&EMG)KPR#75$?(re< z5A2N5nug~>fZ%Tt0WhGIJNmXOA!P)ChK;5q zue{E|FtI|kJ+u*w!InpXG02yVvFF?5GNV|}G5Y_b?F=Nzd0?9~Qk_Ko@O|5Z>26m( z6#?*$pFlM)k(|EtG*%Z7!0DBihVRieO7Zh^+|=X^)y_D^J#HzQfrJ$i?yRIXzR;Bu z%U0=S=3vp+5zy?7i(10hDWGDW$9O?~M&R2wjjv~%N9}sL8yX_Ju;=;t+z6$(40oRtBg55>xH2uo$nbT{TE=kKN~ooJv2>FH zE=$(7-&9^qfPxNKoNDRw^)fL<*&B*upYh;RbuLQV@g@z(?v^(~Ep9jw=RS0ZyJ*b! zW898R-jfw>g*}GkzQQZ6KPfjS*EMKbGowHuzZyx1R?P{@rIs`63s^>E^0}X>)+JkR zr+slDh?sXfFF9&s3YJ4DVo(nLsrWoT-w(S~e@w-Gom2h(ABTtI;cI*LY*>Oopv&C+ zTJ~*|+C*p2paVnjHS-iZvd9K2eGlUcxa}Y;8g$&=ajjrYprU@FPMZ`JRw=%FIFL&~`BX1mK<+)sah>VF7Hz$dh%lmVvDBVj1eg1AT5$(pTGjpx?7|e9q#ncQs=o zt%@lT4$B?IFkJNmeb-!etB&a9gZaReKqwKQiHt(7)ds1kSh4OCnh6ddn~-De47xl# z=0B=n+Q~UMG)f$sK^@K;oigLP5PxioTSMe`wJUlxe=19lMX7)jh|~lu9dd{>B`Z(l zkPLfuCSQ86!*60fIeL;=6!4W&9OU&sba{?S`MkMYT3ZZiAj(TD?woQEB|JTOQ;}k%UwR*T7r7=hAQoE#mg&wTvi{5=f?e)V=(H7Z~wx~wq(Itt1<+`~X81mW+ zdV`{cG2EOz;#*Tr=%&MOGoq(j9*U*h>&H^O5oNgU4MUBlWjd)#DOH6|rhI|Zsin_v zNu_#Uwf4HT~-GdZ8M+JD-UgGavadtbPUsypa zH;6+}g?7b~lQWW{zSiUu6f>cyvf?>ADG5Z| z-O*^-BDo>8b{O%!?THp;azP_)cpRjPQb!JN`0sqb$Hv#mNoBbW{m}J^uwJi9X$kGQ z>OwDGL$(=Z(F7qkR91@%Ae?3e_`Qh9vf(626~!kaC^>pbfu&yaxKBs5wcvoQiw(?| zIJvp`E*lX3k1Qs;hXwvzm-ZrLs}k#YBLc(LBjR<;=$m+TY88=r*n>&c_9bckX8SNx zzlMWE&sZosSVJe%D=E7yR7y02g4902fBpKd+SRd(pO|pb-X5Pq$QawAduP}AtdowG z4DWxM$$hC-tCMiA-Tm$FCfv)EVEv5EbU7?J?zRCGtRKPrTQ3l`iwW7lRJ)un8JS_Y z<#h=jpD3zpyB-f_tQT^3=wVtO-CS?6uR9|xYQT;r*XPH?LbGGZp~y{vV7Q5&sXzfd zRbrL2Z;hp}HR~kyqAy4{<(`{l((hsPT9UuJH}y#r+h2vClsx;rHbir3xaYl+WeO~C zCUQlM*Z}@#7)P$CNib1rg!4)w96Oj**mUUXd`*NQpCT^UMw%-KMXOg*#Et_QW1*wv z36hnH*-z|0wdr9Ip6FQ!w9a#w#LL`_81r-Y)@ zBLf#WuI`%FtJUh7eebeAQ{q}>xO@A%n!EEAS&GVnN)8_Wb|YOvz3BUCDa55g3k>v8 z4C{1OiS>3yVI&+{uaFX1xhWvVgZ&nip#IQz4C%|IQ%DxuMC7Znur^T@B->&9`Y5*B zOy-wGU+PIy$|O>vk=8r!>Il-{Ar)Z4OW#05jcPMCr zW${ROQyt*nREVhMVwM&iJz&sWiVqUGT~f}fI?rAzlCzKOQ^cE;^r=lFd`z{MoN{jg zKzT@BUaRKmK{1(|W5=cFvyN{IHsMjuSial-x3aXiNOt-iI{Grj1v?yr{-Frt&hb1h zI1MLmj*taTp9K!M;=Ps9o|B-7CjXQj1 Date: Mon, 11 May 2020 23:30:35 -0700 Subject: [PATCH 33/46] esperando correcciones --- Inventarios/EntradasSalidas.aspx | 176 ++++++++++++++++++--- Inventarios/EntradasSalidas.aspx.vb | 234 ++++++++++++++++++++++------ 2 files changed, 336 insertions(+), 74 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index e95b81ae4..0b6a8f2a0 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -146,6 +146,7 @@
    Información del movimiento +
    > @@ -275,9 +276,10 @@
    - +
    @@ -331,6 +333,7 @@
    Agregar Producto +
    @@ -405,12 +408,14 @@
    Información de registro +
    @@ -420,6 +425,7 @@
    @@ -428,6 +434,7 @@
    Ver Compra @@ -440,6 +447,7 @@
    @@ -449,6 +457,7 @@
    @@ -457,6 +466,7 @@
    ver @@ -474,6 +484,7 @@
    Tipo de Cambio +
    @@ -542,7 +553,7 @@ - + <%--
    @@ -551,10 +562,7 @@ Producto - - - @@ -565,8 +573,8 @@ - @@ -594,7 +597,6 @@ - -
    # U.M. P.U.TotalPU Extran CIActivo Fijo Serie - Lote Lote
    - + --%> + <%-- @@ -576,11 +584,6 @@
    - - - -
    -
    		@@ -619,12 +621,10 @@ - + - - - + @@ -634,8 +634,13 @@
    - + --%> +
    +
    + +
    +
    +
    @@ -649,9 +654,21 @@
    + @@ -1487,6 +1511,112 @@
    + + + + + + + + diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs new file mode 100644 index 000000000..a2556f476 --- /dev/null +++ b/OI/ConvocatoriaDetalle.aspx.cs @@ -0,0 +1,562 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class OI_ConvocatoriaDetalle : ClsPaginas +{ + + #region Propiedades + public const string iddivAgregarTema = "divModalAgregartema"; + public const string iddivAgregarMiembros = "iddivAgregarMiembros"; + public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } + public bool EsNuevo { get { return Convert.ToBoolean(ViewState["EsNuevo"]); } set { ViewState["EsNuevo"] = value; } } + public List LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List(); } return (List)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } } + public List LcveuserVisto { get { if (ViewState["LcveuserVisto"] == null) { ViewState["LcveuserVisto"] = new List(); } return (List)ViewState["LcveuserVisto"]; } set { ViewState["LcveuserVisto"] = value; } } + public int CveUsuarioDe { get { return ViewState["CveUsuarioDe"].ToString().ToEntero(); } set { ViewState["CveUsuarioDe"] = value; } } + + #endregion + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + EsNuevo = true; + CargaTemas(); + cargaUsuarios(); + + if (Request["CveEvento"] != null) + { + RCveEvento = Request["CveEvento"].ToString().ToEntero(); + } + if (RCveEvento > 0) + { + EsNuevo = false; + LnkGuardar.Visible = false; + loadConvocatoria(); + } + } + } + + 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")); + + } + private void cargaUsuarios() + { + string FiltroAD = ""; + + GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", UsuarioActual.CveEmpresa, FiltroAD), "Rol ASC"); + GVUsuarios.DataSource = GVUsuariosB.DataSource; + DdlModera.DataSource = GVUsuariosB.DataSource; + DdlModerador.DataSource = GVUsuariosB.DataSource; + GVUsuariosB.DataBind(); + DdlModerador.DataBind(); + DdlModera.DataBind(); + GVUsuarios.DataBind(); + DdlModerador.SelectedValueExist(UsuarioActual.CveUsuario.ToString()); + } + + private void loadConvocatoria() + { + int CveEventoHijo = 0; + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + + if (ObjOI_E.GetEventos2(-1, UsuarioActual.CveEmpresa, RCveEvento) && ObjOI_E.DtResultados.Rows.Count > 0) + { + System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; + CveEventoHijo = drow["CveEvento"].ToString().ToEntero(); + } + if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0) + { + System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; + portletMiembros.Visible = false; + pnlmiembrosvista.Visible = true; + TxtAsunto.Text = drow["Asunto"].ToString(); + TxtDescripcion.Text = drow["Descripcion"].ToString(); + DdlPrioridad.SelectedValueExist(drow["Prioridad"].ToString()); + txtFechaI.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaInicio"]); + txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); + TxtLugar.Text = string.Format("{0}", drow["Lugar"]); + TxtCorreoExterno.Text = string.Format("{0}", drow["CorreoExterno"]); + TxtOrdendeldia.Text = string.Format("{0}", drow["Acuerdos"]).Replace("<", "< "); + DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); + int CveUsuarioIng = drow["CveUsuarioIng"].ToString().ToEntero(); + CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); + int CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); + bool permisoeditar = UsuarioActual.CveUsuario == CveUsuarioDe || UsuarioActual.CveUsuario == CveUsuarioIng; + LnkIniciar.Visible = permisoeditar && (CveEventoHijo <0); + HypIrMinuta.Visible = (CveEventoHijo > 0); + HypIrMinuta.NavigateUrl = string.Format("/OI/MinutaDetalle.aspx?CveEvento={0}", CveEventoHijo); + TxtAsunto.Enabled = permisoeditar; + TxtDescripcion.Enabled = permisoeditar; + txtFechaI.Enabled = permisoeditar; + txtFechaF.Enabled = permisoeditar; + TxtLugar.Enabled = permisoeditar; + TxtCorreoExterno.Enabled = permisoeditar; + TxtOrdendeldia.Enabled = permisoeditar; + if (ObjOI_E.GetEventosUsuario2(RCveEvento, UsuarioActual.CveEmpresa)) + { + LCveUsuarioCCP.Clear(); + LcveuserVisto.Clear(); + foreach (System.Data.DataRow item in ObjOI_E.DtResultados.Select("CveEvento >0")) + { + int CveUsuario = item["CveUsuario"].ToString().ToEntero(); + LCveUsuarioCCP.Add(CveUsuario); + if (item["Visto"].ToString().ToEntero() == 1) + { + LcveuserVisto.Add(CveUsuario); + } + } + } + SetUsuarios(); + } + } + } + + private void SetUsuarios() + { + StringBuilder StrDeUser = new StringBuilder(); + StringBuilder StrCCPara = new StringBuilder(); + + foreach (GridViewRow gvRow in GVUsuariosB.Rows) + { + + if (gvRow.RowType == DataControlRowType.DataRow) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + chkCCpara.Checked = false; + + if (EsNuevo) + { + chkCCpara.Enabled = true; + if (CveUsuario == UsuarioActual.CveUsuario) + { + chkCCpara.Checked = true; + chkCCpara.Enabled = false; + } + } + else + { + + chkCCpara.Enabled = false; + } + string palomitavisto = ""; + string palomitasinver = ""; + if (CveUsuario == UsuarioActual.CveUsuario || CveUsuario.Contiene(LcveuserVisto.ToArray())) + { + palomitavisto = palomitasinver; + palomitasinver = ""; + } + if (CveUsuario == CveUsuarioDe) + { + chkCCpara.Checked = true; + StrDeUser.AppendFormat("{3}{2}\"{0}\"", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), "", ""); + + } + else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) + { + chkCCpara.Checked = true; + StrCCPara.AppendFormat("{3}{2}\"{0}\"; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), "", ""); + } + } + } + LtlDeUser.Text = StrDeUser.ToString(); + int longitud = StrCCPara.ToString().Length; + if (longitud > 0) + { + LtlCCPara.Text = StrCCPara.ToString().Substring(0, longitud - 1); + + } + else + { + LtlCCPara.Text = ""; + + } + + + } + + protected void LnkUpUsuarios_Click(object sender, EventArgs e) + { + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarMiembros)); + LtlTituloUsuarios.Text = "Actualizar miembros"; + BtnUpMiembros.Visible = true; + BtnReasignarTarea.Visible = false; + DdlModera.SelectedValueExist(CveUsuarioDe.ToString()); + foreach (GridViewRow gvRow in GVUsuarios.Rows) + { + if (gvRow.RowType == DataControlRowType.DataRow) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + chkCCpara.Checked = false; + chkCCpara.Enabled = true; + + + if ( (CveUsuario == CveUsuarioDe)) + { + if (CveUsuario == CveUsuarioDe) + { + chkCCpara.Checked = true; + } + } + else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) + { + chkCCpara.Checked = true; + } + } + } + UpUsuarios.Update(); + } + + protected void BtnUpMiembros_Click(object sender, EventArgs e) + { + List listaCCP = new List(); + int _cveUsuarioPara = -1; + + foreach (GridViewRow gvRow in GVUsuarios.Rows) + { + if (gvRow.RowType == DataControlRowType.DataRow) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + if (chkCCpara.Checked) + { + listaCCP.Add(CveUsuario); + //cveUsuarioDe = CveUsuario; + } + } + } + bool continuar = false; + using (ClsOIEventos oieve = new ClsOIEventos()) + { + continuar = oieve.UpEventoMiembros(RCveEvento, _cveUsuarioPara, listaCCP, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); + if (continuar) + { + } + } + if (continuar) + { + LCveUsuarioCCP = listaCCP; + //this.CveUsuariode = _cveUsuarioPara; + SetUsuarios(); + //Setpermisos(); + } + UpContenido.Update(); + this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarMiembros)); + } + + protected void LnkAddTtemaModal_Click(object sender, EventArgs e) + { + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema)); + } + + + protected void LnkGuardar_Click(object sender, EventArgs e) + { + string errorMessage = ""; + if (EsNuevo) + { + int cveUsuarioDe = DdlModerador.SelectedValue.ToEntero(); + List listaCCP = new List(); + int cveUsuarioPara = -1; + //string Nombrepara = ""; + string Nombrede = ""; + foreach (GridViewRow gvRow in GVUsuariosB.Rows) + { + if (gvRow.RowType == DataControlRowType.DataRow) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + if (CveUsuario == cveUsuarioDe) + { + Nombrede = gvRow.DataKey("Nombre").ToString(); + } + if (chkCCpara.Checked) + { + listaCCP.Add(CveUsuario); + //cveUsuarioDe = CveUsuario; + } + } + } + OITipoEventos cveTipoEvento = OITipoEventos.Convocatorias; + 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 = ""; + + + 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 (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, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text); + + 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, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); + //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 convocatoria", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEvento={0}\");", CveEvento)); + } + } + } + else + { + + //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(); + //bool Continuar = true; + //using (ClsOIEventos objOI = new ClsOIEventos()) + //{ + // objOI.IniciaTransacSQL(); + // Continuar = objOI.UP_Eventos2(RCveEvento, asunto, descripcion, prioridad, fechaInicio, fechaFin, cveRevision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + + // if (Continuar) + // { + // objOI.Commit(); + // string Nombrede = ""; + // string Nombrepara = ""; + // System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + // if (dt.Rows.Count > 0) + // { + // Nombrede = dt.Rows[0]["Nombre"].ToString(); + // } + // dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + // if (dt.Rows.Count > 0) + // { + // Nombrepara = dt.Rows[0]["Nombre"].ToString(); + // } + // ObjEventosCorreo o = objOI.objCorreo; + // string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Actualizada"); + // //string mailbody = MailgetBodyActualizartarea(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 (errorMessage.Length > 0) + { + this.Alert(errorMessage, ModExtensiones.TipoMensaje.MsgAdvertencia); + + } + } + protected void BtnAgregarTema_Click(object sender, EventArgs e) + { + + using (ClsOIEventos objoi = new ClsOIEventos()) + { + if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); + TxtTema.Text = ""; + set_GlobalDTOIRevision(-1, objoi.DtResultados); + CargaTemas(); + UpContenido.Update(); + } + else { Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); } + + } + } + + protected void GVUsuariosB_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + 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 GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + 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 LnkIniciar_Click(object sender, EventArgs e) + { + bool Continuar = false; + int CveEvento = -1; + int Folio = -1; + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0) + { + System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; + ObjOI_E.IniciaTransacSQL(); + Continuar = ObjOI_E.AddOI_Eventos2(OITipoEventos.Minuta, drow["Asunto"].ToString(), drow["descripcion"].ToString(), drow["Prioridad"].ToString().ToEntero(), drow["cveUsuarioDe"].ToString().ToEntero(), + drow["cveUsuarioPara"].ToString().ToEntero(), string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaInicio"]),string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaFin"]), drow["cveRevision"].ToString().ToEntero(), "", + LCveUsuarioCCP, new List(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExterno: drow["CorreoExterno"].ToString(), Lugar: drow["Lugar"].ToString(),CveEventoPadre:RCveEvento); + CveEvento = ObjOI_E.CveEvento; + Folio = ObjOI_E.Folio; + if (CveEvento == 0) + { + Continuar = false; + } + if (Continuar) { Continuar = ObjOI_E.UpdateEstatusEvento2(2, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); } + if (Continuar) + { + ObjOI_E.Commit(); + ObjEventosCorreo o = ObjOI_E.objCorreo; + } + else + { + ObjOI_E.RollBack(); + Continuar = false; + } + } + } + if (Continuar) + { + this.Alert("Se ha agregadó la nueva convocatoria", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/MinutaDetalle.aspx?CveEvento={0}\");", CveEvento)); + + } + } + + protected void BtnReasignarTarea_Click(object sender, EventArgs e) + { + + } +} \ No newline at end of file diff --git a/OI/MinutaDetalle.aspx b/OI/MinutaDetalle.aspx index eb0affbd6..281473c5f 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -119,35 +119,31 @@
    -
    - - -
    -
    -

    Moderador:

    + +
    +
    +

    Moderador:

    +
    +
    + +
    -
    - +
    +
    +

    Participantes:

    +
    +
    + +
    -
    -
    -
    -

    Participantes:

    -
    -
    - -
    -
    -     - +
    <%----%>
    - - - +
    +
    Guardar Enviar Minuta @@ -742,7 +738,8 @@ $(document).ready(function () { setTimeout("autoGuardado()", 60000); }); - + + loaderinited = loaderinit; //$('#btnAutoGuardado').click(function () { function autoGuardado() { @@ -980,48 +977,48 @@ } - 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" + //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 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) + // 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() { CargaPickers(); SetEditor(); - CargaPickers(); + //CargaPickers(); loadeventos(); showhideUser(); setchecklist(); diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index c99f72ace..ca90c9953 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(); } diff --git a/OI/RepReuniones.aspx b/OI/RepReuniones.aspx new file mode 100644 index 000000000..75b7345d2 --- /dev/null +++ b/OI/RepReuniones.aspx @@ -0,0 +1,78 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepReuniones.aspx.cs" Inherits="OI_RepReuniones" %> + + + + + + + + + + +
  • + Nueva Minuta +
    • +
  • + Nueva Convocatoria +
    • +     + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + + + + + + + + + diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs new file mode 100644 index 000000000..d242e8b60 --- /dev/null +++ b/OI/RepReuniones.aspx.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; + +public partial class OI_RepReuniones : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + + } +} \ No newline at end of file diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 8060015af..d00961c03 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -804,9 +804,21 @@ public partial class OI_TareaDetalle : ClsPaginas if (Continuar) { objOI.Commit(); - + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if(dt.Rows.Count > 0) + { + Nombrede= dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyActualizartarea(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema,Nombrede,Nombrepara,"Tarea Actualizada"); + //string mailbody = MailgetBodyActualizartarea(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 @@ -954,7 +966,24 @@ public partial class OI_TareaDetalle : ClsPaginas GVcheklist.DataBind(); cargaActividades(objOI); ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyTareaCheckList(o.Actividad, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrede = dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } + + DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); + DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea ({0})", o.Actividad)); + + //string mailbody = MailgetBodyTareaCheckList(o.Actividad, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } } @@ -997,7 +1026,24 @@ public partial class OI_TareaDetalle : ClsPaginas cargaActividades(objOI); ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyActualizarEstado(o.Estatus, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrede = dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } + + DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); + DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus)); + + //string mailbody = MailgetBodyActualizarEstado(o.Estatus, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } @@ -1066,7 +1112,24 @@ public partial class OI_TareaDetalle : ClsPaginas cargaActividades(objoi); ObjEventosCorreo o = objoi.objCorreo; - string mailbody = MailgetBodyTareaComentario(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrede = dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } + + DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); + DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Nuevo Comentario"); + + //string mailbody = MailgetBodyTareaComentario(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } } @@ -1154,7 +1217,23 @@ public partial class OI_TareaDetalle : ClsPaginas continuar = objoi.AddUPEventoArchivo(RCveEvento, archivoname, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); ObjEventosCorreo o = objoi.objCorreo; - string mailbody = MailgetBodyActualizararchivo(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrede = dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } + + DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); + DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Archivo Actualizado"); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } if (continuar) @@ -1183,7 +1262,23 @@ public partial class OI_TareaDetalle : ClsPaginas cargaActividades(objoi); ObjEventosCorreo o = objoi.objCorreo; - string mailbody = MailgetBodyActualizarAvance(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + string Nombrede = ""; + string Nombrepara = ""; + System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrede = dt.Rows[0]["Nombre"].ToString(); + } + dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); + if (dt.Rows.Count > 0) + { + Nombrepara = dt.Rows[0]["Nombre"].ToString(); + } + + DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); + DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Avance Actualizado"); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } } @@ -1414,7 +1509,7 @@ public partial class OI_TareaDetalle : ClsPaginas objOI.Commit(); ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } else @@ -1454,10 +1549,10 @@ public partial class OI_TareaDetalle : ClsPaginas { return HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""); } - private string getImg() - { - return "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxAPEA8PDxASDw8PFRAPDw8QFQ8PFQ8PFREXFhYVFRUYHSggGBolGxUVITEhJSkrLi4uFx8zODMsNygtLisBCgoKDg0OFhAQFy0lHh8tLSsrLi0rLS0rLS0tLS0rLS0tLS0tLS0tLy0tLS0tLSstLSstLS0tLS0tKy0tLS0tLf/AABEIAMIBAwMBEQACEQEDEQH/xAAbAAEAAQUBAAAAAAAAAAAAAAAAAwECBAYHBf/EAEIQAAIBAgEFDAgEBQQDAAAAAAABAgMRBBIhMUFRBQYTFDJhcXKBkaGxByIzUlOywdEjQpLSQ2KCo8IkY4PwNKLh/8QAGgEBAAIDAQAAAAAAAAAAAAAAAAEFAwQGAv/EAC8RAQACAQMDAgQHAAIDAAAAAAABAgMEBRESITFBURMyYXEiI0KBkaGxM8EUQ1L/2gAMAwEAAhEDEQA/AO4gAAAAAAAAAFsppaWl0tICN4qn78P1R+4FOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gVWLp/Eh+qP3AujWi9EovoaYEgAAAAAAAAAAAAAAAAAAo2BjuvKXs0re/K9uxawK8Wvy5SlzXyU+xAVhhKcdEI91wL+Cj7q7kBXg1sXcgHBrYu5AODWxdyAcGti7kAyFsXcgGRHYu5AODWxdyAZC2LuQDg1sXcgHBrYu5AODjsXcgLZUIPTGPcgI1g4Lkpw54NxAPhI/wC5HWs0ZLo1MCWlVUtGrSnmafOtQEgAAAAAAAAAAAAADYGKlwud+z1R0ZdnpfNzAZNgAAAAAhxOKp0llVJxgtsmke60taeKxyx3y0pHNp4eLit9lCOamp1XtismPfKxuU2/Jbz2V2XdsVfl5l5lbfbWfJp04dLlJ/Y2a7bSPMy0r7xkn5awxZb5cU/zwXRD7syxt+KGCd0zz6qLfJiviRf9C+4/8DF7Ijc9R7pqW+rELlKnPpUo+VzxO3Y/eWWu7Zo8xEvQw+/COirRkv5oNTXc7MwX2236ZbWPeK/rr/D2cFuxh62anUi37r9WXczSyafJT5oWOLWYcvy2Z5hbQAAAAIqtG7yo+rNZlLatj2oCtCspp6mnaSepgSgAAAAAAAAAAABj4l5TjTWh559Rau15ui4E6QAAAAhxOJhSi51JKEVpcnY9Upa88VhjyZK445tPENT3T32SleOHWRH4k1nfPGOrt7i1wbdHnJ/Ck1O6zPbF/LXa1WU3lTlKcvem3J9mzsLKmOtI4rCove155tPK257eS4QXAXAXIC5IP/vN0Eccp8PU3N3wV6FllcLBfkqO7S5p6e+5p5tDjv3iOJb2n3DLi7TPMNv3J3bo4lWi8ma5VOWaS6Nq50VGfTXxT3jt7r7Ta3HnjtPf2ema7cAAADHr+pJVFozRnzxeh9j8GwMkAAAAAAAAAAAAMfD53Oe15MX/ACxzfNlATgAAHnbs7sU8LG8s85cimtMn9Fzmxg09s1uIauq1dMFeZ8tB3R3Rq4iWXVle3JguTBcy28+kvsOnpijisOZz6nJmtzaWLcztcuAuElwguAuAuAuAuAuBWM2mpJtSWdSWZp8zItWLRxL1WZrPMNv3v75spxo4lpTeaFXQpvZLY/BlNqtD0/ix+F7otx6uKZPPu2krFyAALZwUk4vOmmn0MCzCTbhG/KXqy6yzPxAmAAAAAAAAAAKNgQYJfhx57y75N/UCcAB527m60MLTypZ5yzU4a5y+21mxp9PbNbiGrqtTXBTmfPo51isTOrOVSpLKnLS9SWpJakjosWKuOvTWHLZctsluq0ormRjLgLgLgLgLgLgLgLgLgLgLgUY4G3b1N323HDV5XbzUaj/N/JJ7dj1lNrtH0/mUjt6r3b9dz+Xkn7NuKpdAACDCZuEWycn35/qBkAAAAAAAAAAFtTQ+h+QEWC9nT6sfICYCLE1404SqTeTGCcpN6kj1Ss2mKx6vF7xSs2n0cx3V3SliarqyzLRTj7kNS6XpZ02m08YadMfu5XU55zXm0/sxLmw1y4C4C4C4C4C4C4C4C4C4C4C4C4C/ZzrSmta5yJjmOCOzoO9XdjjNPJm/xqVlP+aOqa6fM53W6b4N+3iXTaDVfGpxPmHumk3wDHw3Lq9ZfIgMkAAAAAAAAAAtq6H0PyAhwPs6fVj5ATgaXv63Tu44WLzK1Sr/AIx+vcXG2af/ANk/spN01HjFH7tSuXKm4Lg4LgLg4Lg4Lg4ejuXuNXxWenFKGjhJ3jHs1y7DVz6vHh7TPf2bWDR5M3eI7Peo7yHb18Q09kIRt3sr7brPpT+1hXaPe5iN5DS/DxDb2VIxt3xzk13Wf1VRfaO34bNYx+DqUJ8HVjky0rWpLbF60WmHNTLXmsqvNgvit02hj3MrEXAXBwXBwXBwXBwy9yt0JYatCstEc0171N8pfXsNfU4Iy45r/DPps04ckWh1SnUUoqUXdSSae1NZjl5iYniXV1tFoiYXEPTGwvLrdaPyIDKAAAAAAAAAALauh9D8gIcD7Kn1Y+QF+JrKnCc5ZowjKcuhK7PVKza0Vj1eL2itZtPo5JisVKtOdWXKqSc3zJ6F2Kx1mLHGOkVj0cnlvN7zafVFcysfBcBcg4LkhcHD0t7+53GsRGm/ZxXCVbe4tXa/qamsz/BxzMeZ8NrR4PjZIifEeXUKdNRSjFJRirJLMktiOYmZmeZdRWsVjiFxCQDzd39yo4qjKDzTXrU5e7PV2PQzY02ecN4tH7tbVaeM1Jj19HLndNqStJNxktkk7NHU1mJjmHLTWYniVLkoLknBcHCtwFyBS5Jw3/eLj+EoOk+VQaj/AMcs8fquw53csPRl6o8S6Hbc3Xj6Z8w2UrlkxsLy63Wj8iAygAAAAAAAAAC2rofQ/ICHA+yp9WPkB4m/rFZGElBaa0o0+y95eCN/bsfXmifbu0NxydOGY93OrnSucLjgLgLjgLjgLjgbn6OqX/kz13pwXQo382Ue7WnqrVdbVXtazdCnXAAAAc437YLgsVlpWjXjl/1xzS8LM6LbMvXi6Z9HO7ji6MvVHq1+5ZcK8uOAuOAuOElxwguOB7+8nFZGLUdVaEof1L1o/Urdzx9WHq9lhtuTpy8e7pBzromNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2dPqx8gNL9I2I/Ew1PZGdR9rUV9S82ina9lLutu9atQuXSpLgLgLhBcJLgb76Ol+BWe2q/CKOe3b/lj7Lza/+Ofu20qloAAAGt7+8FwmFdRL1qDVVdXRJdz8Cw23L0Zoj/67K/ccXXi59u7nNzpnPlwFwFxwFwFwMjc6vwdehU9ypTb6Mqz8GYdRTqxWj6SyYbdOSs/V2JHHusY2F5dbrR+RAZQAAAAAAAAABbV0PofkBDgvZU+rHyA576QZ/wCsivdoQ8akzotpj8qfuodynnLH2a3cteFcXAXAXHAXAXA6H6Ol/paj21qnhY5zdp/Oj7Qvdsj8qfu2oq1kAAAFlampxlGSvGScWtqazk1mYmJh5tHMcS49ulgpYatUoS003aL96m88H3eTOv0+WMuOLw5fNinHeayxrmdiLgLgLgLgW1pWjJ7M/cebR2lNfMO203dJ7UmcXMcS6yk81hBheXW60fkRD0ygAAAAAAAAAC2rofQ/ICHBeyp9WPkBzr0gq2NXPQpv+5NHR7RPOKfuodxj81rdy2V5cBccCtwFxwFyOB0v0fU2sDBv886010ObS8jl9ztzqJ+nEOg2+vGFshXt4AAAAGqb+dwnXgsRRjetSVpRWmpS1pfzLSu1ayz23V/Ct0W8T/qu1+m+JXrr5hzpSOlhR8K3J4QXHAXHAXI4Edd+rLoIt4THmHcKSsktiS8DibTzMurp8sIcLy63Wj8iIemUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gNC9JVG1fD1NU6c4dsZX/AMjoNmt+C8fVS7nX8dZajculYXAXAXApcA29WdvMltk8yXe0RM8RymI5nh2bcXB8Bh6NH4cIxfTbP4nGajJ8TJa3vLp8FOjHWvszTCygAAAAAafvm3mqq5VsLk06ss86bzQqPavdlz6GW2j3KcfFMneP7hW6nQxf8VPLQcVQnSnKlVi4VIWUoOztmus6zNW1nQ48lclYtWe0qa9Jpaa2jujue3kuAuBJhaPCVKVNfxJ04d80Ys1unHaZ9pe8debxH1duRxTqYY2F5dbrR+RBLKAAAAAAAAAALauh9D8gIcD7Kn1Y+QGsekjC5WGhVtnozi31Zeq/Gxa7Tk6c3T7q/cac4+fZzi50yjLjgLgLk8BcgbNvF3FeIrqvNfgUHdX0VK2pc6jpfPbYVO6auMdPh1nvP9QsNDp+u/XPiHTzml4AUuAcktLsTwjmIYeJ3Ww9L2lelDrTivqZK4MlvFZ/h4tmpXzLysRv23Ph/Hy3spwqz8UreJtU2zU2/T/cNe2uw1/U87EekKgvZ0as+eWRBeLubNNnyz80xDDbcqR4h5mJ9INd+zoU4c83KfgkjZps1I+a0/swW3K0/LDWMfjqmIqzrVWnOdr2WSkkrJJbLFthw1xUilfENDJktktNreWPcy8MZcBccD295eF4XG0c11SUqz/pVl4srtzydGCfr2bmip1ZY+jrRyjoGNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gIt18EsRQrUX/EhKC5pNZn2OzMuDJ8PJW/tLHlp10mvu4pKMotxmrSi3CS2Si7M7alotEWj1c1avE8KXPSC4QXAN9vhm1kTHbsmHR8Lvz3PoUqdOkpqMYpKnCnJZHM75rnMX23VZLza0efXldU1uGlYiGNiPSLD+HhpvnqShDyuZqbLefmtDxbcq+lWJS337pYlyjhcNCVrXyU6jjfRduSSMltu0uHj4t5Y41mfJ8lUiwu71blVOBWzKoQ+RN+J469ux+I6v5/7eunWX8zwuW8nGVc+Ixre1Xq1POVvAidywU/48Sf8Awstvmu1Xd7c+lhq8qNObq8GoqpNqC/EedxVlqVi30eW+bH13jjnx9lfqMdaX6YnlgZRt8MJcBcBcILgLhJcDoHoy3PtCtiZL2rVOn1Icp9sn4HObxm6r1xx6f9rfbsXFZv7t4KVZsbC8ut1o/IgMoAAAAAAAAAAtq6H0PyAhwPsqfVj5ATgcu9Ie5To4lV4r8PE6baI1ks67Vn7GdNtGo68fw581/wAUuvw9N+qPEtVuXDQLgLgLgMocBcDM3K3UrYWoqtGWTLRKMs8akfdkvrpRg1Gmpnr03hkxZbYp5q3PDekaFlwmGqKWvg5QlFvmvnKS+yX5/DeOPqsq7jXjvV5+6+/6tVThh4cXTzOpJqdT+lLNHpzmxg2alZ5yTz/jDl3C1o4pHDUL897523nbe1vWy6iIiOIV5cBcBcBccBcBcCXCYedapCjTV6lWShHmvpb5krvsMebJGKk3n0eqUm9orHq7bubgo4elTow5NOKiuey09uk4nLknJebT6ukx0ilYrDJMb2xsLy63Wj8iAygAAAAAAAAAC2pofQ/ICHBezp9WPkBOB5+725UMZQqUJ5spXjJaYTWeMl0Mz6bPbDki8ejFmxRkpNZcWxeHnRqTpVY5NSm8ma1X2rmelHaYclctIvXxLnr0mlprKK5l4eS4C4C4C4C4C4C4C4C4C44C4C44C44C4HRPRxuE4xeNqq0qiyaEX+Wlrk+eXkjmd21nXb4VZ7R5+620On6Y65b0UqyAMfC8ut1l8iAyQAAAAAAAAACklmYEOD9nDmVu7MBMAA1PfzvY43Dh6K/1NJWto4aHuPn2P7lptuu+Bbpt8s/00tXpviR1R5hyq+nSmm008zTTs01qa2HWRMTHMKaY4VuShS4C4C4FbgUuAuAuAuAuAuAuAuBsu8re08bPhai/0tOXrf780+Qv5VrfZtKnctf8GvRT5p/pu6XTfEnqnw63GKSSSslmSWpHKLqOyoACDC6aj2yfgkgMgAAAAAAAAAAAY2DVlOPuyl/7et/l4AZAAABpu/PecsTfEYa0MRpnB5o10lrf5Z8/Y9qttv3KcH4L96/40dTpYv8Air5cvqRlCUoTi4Tg8mcJK0oS2NHVUtW8Ras8xKomsxPEqXPfApccBccILhJccBcIVuAuOElyOAuTwguQNm3o70qmNca1W9PCab2aliFshsj/ADa9W0qNw3KuGJpTvb/G7ptLOT8VvDrGGw8KUI06cVCEEoxjHMopakcta02mZnzK4rWKxxCU8pAAEGBXqJ++3O2zKd/qBkAAAAAAAAAAADGq+rUjL8s7QlzP8r8Wu1AZAAAAA8PfJvYoY6P4icKsVaFeFsuPM/ejzM3NJrcmnn8Pj2YM2nrkju5du9vYxWBu6kOEpLRXpJuNts46YeK5zqNLuOHPxHPE+0qrLpr4/s8VSvnWdPWtDLBrlwFwFwFwFwK3AXAmwGEq4ifBUKcqs9agr5PWeiPaYc2fHhjqvPD3THa88Vh0Xez6P403GrjXGrNZ1QjnpwerKb9o/DmOc1u72yc1xdo9/VZYNFFe929JWzFI31QAADHxbulTWmpm6Ifmf07UBkpAAAAAAAAAAAABbUgpJp6HmAhoTa9SbvJaH78dvTtAnAAAAFGgNZ3Z3jYLEtzUHh6ks7nQtC72yjyX3Fjp90z4eI55j2lrZNLjv9Gobo+jjFwu6FWliI6lO9CdvGL8C4w75imPzKzH27w076G8fLPLwMVvcx1Ll4Stm1wUai74u/gWFNw01/F4a9tPkr+l588PVjyqNWPWpVl/iZ41GKfFo/mGOaW9lqpzeinUfRTqv/Emc2OPNo/k6LezKw+5OKqZoYXES/45R+axitrMFfOSP5eow3nxWXs4HeJuhVtenChHW6086/oin5mnl3jTU8TM/Zmro8k/RtO5Xo2oQtLE1Z4h64R/Bp9yztdLKrPveW/bHHT/AK28ehrHzTy3PA4GlQgqdGnGlBaIwSivAp8mS+Seq08y3K0iscRDIPD0AAAFlWooq7/+t7EBZh6bzylypavdjqivqBOAAAAAAAAAAAAACytSU1aXZqae1PUwIcucOUnOPvR5S6Vr7AJKdaMtEk+36ASAAAAABQBZBHEKZK/7Ynk4hUhKoAAAAAUlJLS0unMBA8TfNTWW9uiK6WBdSoZ8ubyp6FsitkUBOAAAAAAAAAAAAAAAAAR1KEZcqKfPr7wI1g4rkuUeiUvqBTir+LU74/YBxV/Fqf2/2gOKv4tTvp/tAcVfxanfD9oDir+LU/t/tAcVfxanfT/aA4q/i1O+n+0BxV/Fqd8P2gOKv4tTvh+0BxV/Fqd8P2gOKv4tT+3+0BxV/Fqd8P2gV4rtnN9MvsBWGDpr8t+s3LzAnSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9k="; - } + //private string getImg() + //{ + // return "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxAPEA8PDxASDw8PFRAPDw8QFQ8PFQ8PFREXFhYVFRUYHSggGBolGxUVITEhJSkrLi4uFx8zODMsNygtLisBCgoKDg0OFhAQFy0lHh8tLSsrLi0rLS0rLS0tLS0rLS0tLS0tLS0tLy0tLS0tLSstLSstLS0tLS0tKy0tLS0tLf/AABEIAMIBAwMBEQACEQEDEQH/xAAbAAEAAQUBAAAAAAAAAAAAAAAAAwECBAYHBf/EAEIQAAIBAgEFDAgEBQQDAAAAAAABAgMRBBIhMUFRBQYTFDJhcXKBkaGxByIzUlOywdEjQpLSQ2KCo8IkY4PwNKLh/8QAGgEBAAIDAQAAAAAAAAAAAAAAAAEFAwQGAv/EAC8RAQACAQMDAgQHAAIDAAAAAAABAgMEBRESITFBURMyYXEiI0KBkaGxM8EUQ1L/2gAMAwEAAhEDEQA/AO4gAAAAAAAAAFsppaWl0tICN4qn78P1R+4FOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gVWLp/Eh+qP3AujWi9EovoaYEgAAAAAAAAAAAAAAAAAAo2BjuvKXs0re/K9uxawK8Wvy5SlzXyU+xAVhhKcdEI91wL+Cj7q7kBXg1sXcgHBrYu5AODWxdyAcGti7kAyFsXcgGRHYu5AODWxdyAZC2LuQDg1sXcgHBrYu5AODjsXcgLZUIPTGPcgI1g4Lkpw54NxAPhI/wC5HWs0ZLo1MCWlVUtGrSnmafOtQEgAAAAAAAAAAAAADYGKlwud+z1R0ZdnpfNzAZNgAAAAAhxOKp0llVJxgtsmke60taeKxyx3y0pHNp4eLit9lCOamp1XtismPfKxuU2/Jbz2V2XdsVfl5l5lbfbWfJp04dLlJ/Y2a7bSPMy0r7xkn5awxZb5cU/zwXRD7syxt+KGCd0zz6qLfJiviRf9C+4/8DF7Ijc9R7pqW+rELlKnPpUo+VzxO3Y/eWWu7Zo8xEvQw+/COirRkv5oNTXc7MwX2236ZbWPeK/rr/D2cFuxh62anUi37r9WXczSyafJT5oWOLWYcvy2Z5hbQAAAAIqtG7yo+rNZlLatj2oCtCspp6mnaSepgSgAAAAAAAAAAABj4l5TjTWh559Rau15ui4E6QAAAAhxOJhSi51JKEVpcnY9Upa88VhjyZK445tPENT3T32SleOHWRH4k1nfPGOrt7i1wbdHnJ/Ck1O6zPbF/LXa1WU3lTlKcvem3J9mzsLKmOtI4rCove155tPK257eS4QXAXAXIC5IP/vN0Eccp8PU3N3wV6FllcLBfkqO7S5p6e+5p5tDjv3iOJb2n3DLi7TPMNv3J3bo4lWi8ma5VOWaS6Nq50VGfTXxT3jt7r7Ta3HnjtPf2ema7cAAADHr+pJVFozRnzxeh9j8GwMkAAAAAAAAAAAAMfD53Oe15MX/ACxzfNlATgAAHnbs7sU8LG8s85cimtMn9Fzmxg09s1uIauq1dMFeZ8tB3R3Rq4iWXVle3JguTBcy28+kvsOnpijisOZz6nJmtzaWLcztcuAuElwguAuAuAuAuAuBWM2mpJtSWdSWZp8zItWLRxL1WZrPMNv3v75spxo4lpTeaFXQpvZLY/BlNqtD0/ix+F7otx6uKZPPu2krFyAALZwUk4vOmmn0MCzCTbhG/KXqy6yzPxAmAAAAAAAAAAKNgQYJfhx57y75N/UCcAB527m60MLTypZ5yzU4a5y+21mxp9PbNbiGrqtTXBTmfPo51isTOrOVSpLKnLS9SWpJakjosWKuOvTWHLZctsluq0ormRjLgLgLgLgLgLgLgLgLgLgLgUY4G3b1N323HDV5XbzUaj/N/JJ7dj1lNrtH0/mUjt6r3b9dz+Xkn7NuKpdAACDCZuEWycn35/qBkAAAAAAAAAAFtTQ+h+QEWC9nT6sfICYCLE1404SqTeTGCcpN6kj1Ss2mKx6vF7xSs2n0cx3V3SliarqyzLRTj7kNS6XpZ02m08YadMfu5XU55zXm0/sxLmw1y4C4C4C4C4C4C4C4C4C4C4C4C4C/ZzrSmta5yJjmOCOzoO9XdjjNPJm/xqVlP+aOqa6fM53W6b4N+3iXTaDVfGpxPmHumk3wDHw3Lq9ZfIgMkAAAAAAAAAAtq6H0PyAhwPs6fVj5ATgaXv63Tu44WLzK1Sr/AIx+vcXG2af/ANk/spN01HjFH7tSuXKm4Lg4LgLg4Lg4Lg4ejuXuNXxWenFKGjhJ3jHs1y7DVz6vHh7TPf2bWDR5M3eI7Peo7yHb18Q09kIRt3sr7brPpT+1hXaPe5iN5DS/DxDb2VIxt3xzk13Wf1VRfaO34bNYx+DqUJ8HVjky0rWpLbF60WmHNTLXmsqvNgvit02hj3MrEXAXBwXBwXBwXBwy9yt0JYatCstEc0171N8pfXsNfU4Iy45r/DPps04ckWh1SnUUoqUXdSSae1NZjl5iYniXV1tFoiYXEPTGwvLrdaPyIDKAAAAAAAAAALauh9D8gIcD7Kn1Y+QF+JrKnCc5ZowjKcuhK7PVKza0Vj1eL2itZtPo5JisVKtOdWXKqSc3zJ6F2Kx1mLHGOkVj0cnlvN7zafVFcysfBcBcg4LkhcHD0t7+53GsRGm/ZxXCVbe4tXa/qamsz/BxzMeZ8NrR4PjZIifEeXUKdNRSjFJRirJLMktiOYmZmeZdRWsVjiFxCQDzd39yo4qjKDzTXrU5e7PV2PQzY02ecN4tH7tbVaeM1Jj19HLndNqStJNxktkk7NHU1mJjmHLTWYniVLkoLknBcHCtwFyBS5Jw3/eLj+EoOk+VQaj/AMcs8fquw53csPRl6o8S6Hbc3Xj6Z8w2UrlkxsLy63Wj8iAygAAAAAAAAAC2rofQ/ICHA+yp9WPkB4m/rFZGElBaa0o0+y95eCN/bsfXmifbu0NxydOGY93OrnSucLjgLgLjgLjgLjgbn6OqX/kz13pwXQo382Ue7WnqrVdbVXtazdCnXAAAAc437YLgsVlpWjXjl/1xzS8LM6LbMvXi6Z9HO7ji6MvVHq1+5ZcK8uOAuOAuOElxwguOB7+8nFZGLUdVaEof1L1o/Urdzx9WHq9lhtuTpy8e7pBzromNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2dPqx8gNL9I2I/Ew1PZGdR9rUV9S82ina9lLutu9atQuXSpLgLgLhBcJLgb76Ol+BWe2q/CKOe3b/lj7Lza/+Ofu20qloAAAGt7+8FwmFdRL1qDVVdXRJdz8Cw23L0Zoj/67K/ccXXi59u7nNzpnPlwFwFxwFwFwMjc6vwdehU9ypTb6Mqz8GYdRTqxWj6SyYbdOSs/V2JHHusY2F5dbrR+RAZQAAAAAAAAABbV0PofkBDgvZU+rHyA576QZ/wCsivdoQ8akzotpj8qfuodynnLH2a3cteFcXAXAXHAXAXA6H6Ol/paj21qnhY5zdp/Oj7Qvdsj8qfu2oq1kAAAFlampxlGSvGScWtqazk1mYmJh5tHMcS49ulgpYatUoS003aL96m88H3eTOv0+WMuOLw5fNinHeayxrmdiLgLgLgLgW1pWjJ7M/cebR2lNfMO203dJ7UmcXMcS6yk81hBheXW60fkRD0ygAAAAAAAAAC2rofQ/ICHBeyp9WPkBzr0gq2NXPQpv+5NHR7RPOKfuodxj81rdy2V5cBccCtwFxwFyOB0v0fU2sDBv886010ObS8jl9ztzqJ+nEOg2+vGFshXt4AAAAGqb+dwnXgsRRjetSVpRWmpS1pfzLSu1ayz23V/Ct0W8T/qu1+m+JXrr5hzpSOlhR8K3J4QXHAXHAXI4Edd+rLoIt4THmHcKSsktiS8DibTzMurp8sIcLy63Wj8iIemUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gNC9JVG1fD1NU6c4dsZX/AMjoNmt+C8fVS7nX8dZajculYXAXAXApcA29WdvMltk8yXe0RM8RymI5nh2bcXB8Bh6NH4cIxfTbP4nGajJ8TJa3vLp8FOjHWvszTCygAAAAAafvm3mqq5VsLk06ss86bzQqPavdlz6GW2j3KcfFMneP7hW6nQxf8VPLQcVQnSnKlVi4VIWUoOztmus6zNW1nQ48lclYtWe0qa9Jpaa2jujue3kuAuBJhaPCVKVNfxJ04d80Ys1unHaZ9pe8debxH1duRxTqYY2F5dbrR+RBLKAAAAAAAAAALauh9D8gIcD7Kn1Y+QGsekjC5WGhVtnozi31Zeq/Gxa7Tk6c3T7q/cac4+fZzi50yjLjgLgLk8BcgbNvF3FeIrqvNfgUHdX0VK2pc6jpfPbYVO6auMdPh1nvP9QsNDp+u/XPiHTzml4AUuAcktLsTwjmIYeJ3Ww9L2lelDrTivqZK4MlvFZ/h4tmpXzLysRv23Ph/Hy3spwqz8UreJtU2zU2/T/cNe2uw1/U87EekKgvZ0as+eWRBeLubNNnyz80xDDbcqR4h5mJ9INd+zoU4c83KfgkjZps1I+a0/swW3K0/LDWMfjqmIqzrVWnOdr2WSkkrJJbLFthw1xUilfENDJktktNreWPcy8MZcBccD295eF4XG0c11SUqz/pVl4srtzydGCfr2bmip1ZY+jrRyjoGNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gIt18EsRQrUX/EhKC5pNZn2OzMuDJ8PJW/tLHlp10mvu4pKMotxmrSi3CS2Si7M7alotEWj1c1avE8KXPSC4QXAN9vhm1kTHbsmHR8Lvz3PoUqdOkpqMYpKnCnJZHM75rnMX23VZLza0efXldU1uGlYiGNiPSLD+HhpvnqShDyuZqbLefmtDxbcq+lWJS337pYlyjhcNCVrXyU6jjfRduSSMltu0uHj4t5Y41mfJ8lUiwu71blVOBWzKoQ+RN+J469ux+I6v5/7eunWX8zwuW8nGVc+Ixre1Xq1POVvAidywU/48Sf8Awstvmu1Xd7c+lhq8qNObq8GoqpNqC/EedxVlqVi30eW+bH13jjnx9lfqMdaX6YnlgZRt8MJcBcBcILgLhJcDoHoy3PtCtiZL2rVOn1Icp9sn4HObxm6r1xx6f9rfbsXFZv7t4KVZsbC8ut1o/IgMoAAAAAAAAAAtq6H0PyAhwPsqfVj5ATgcu9Ie5To4lV4r8PE6baI1ks67Vn7GdNtGo68fw581/wAUuvw9N+qPEtVuXDQLgLgLgMocBcDM3K3UrYWoqtGWTLRKMs8akfdkvrpRg1Gmpnr03hkxZbYp5q3PDekaFlwmGqKWvg5QlFvmvnKS+yX5/DeOPqsq7jXjvV5+6+/6tVThh4cXTzOpJqdT+lLNHpzmxg2alZ5yTz/jDl3C1o4pHDUL897523nbe1vWy6iIiOIV5cBcBcBccBcBcCXCYedapCjTV6lWShHmvpb5krvsMebJGKk3n0eqUm9orHq7bubgo4elTow5NOKiuey09uk4nLknJebT6ukx0ilYrDJMb2xsLy63Wj8iAygAAAAAAAAAC2pofQ/ICHBezp9WPkBOB5+725UMZQqUJ5spXjJaYTWeMl0Mz6bPbDki8ejFmxRkpNZcWxeHnRqTpVY5NSm8ma1X2rmelHaYclctIvXxLnr0mlprKK5l4eS4C4C4C4C4C4C4C4C4C44C4C44C44C4HRPRxuE4xeNqq0qiyaEX+Wlrk+eXkjmd21nXb4VZ7R5+620On6Y65b0UqyAMfC8ut1l8iAyQAAAAAAAAACklmYEOD9nDmVu7MBMAA1PfzvY43Dh6K/1NJWto4aHuPn2P7lptuu+Bbpt8s/00tXpviR1R5hyq+nSmm008zTTs01qa2HWRMTHMKaY4VuShS4C4C4FbgUuAuAuAuAuAuAuAuBsu8re08bPhai/0tOXrf780+Qv5VrfZtKnctf8GvRT5p/pu6XTfEnqnw63GKSSSslmSWpHKLqOyoACDC6aj2yfgkgMgAAAAAAAAAAAY2DVlOPuyl/7et/l4AZAAABpu/PecsTfEYa0MRpnB5o10lrf5Z8/Y9qttv3KcH4L96/40dTpYv8Air5cvqRlCUoTi4Tg8mcJK0oS2NHVUtW8Ras8xKomsxPEqXPfApccBccILhJccBcIVuAuOElyOAuTwguQNm3o70qmNca1W9PCab2aliFshsj/ADa9W0qNw3KuGJpTvb/G7ptLOT8VvDrGGw8KUI06cVCEEoxjHMopakcta02mZnzK4rWKxxCU8pAAEGBXqJ++3O2zKd/qBkAAAAAAAAAAADGq+rUjL8s7QlzP8r8Wu1AZAAAAA8PfJvYoY6P4icKsVaFeFsuPM/ejzM3NJrcmnn8Pj2YM2nrkju5du9vYxWBu6kOEpLRXpJuNts46YeK5zqNLuOHPxHPE+0qrLpr4/s8VSvnWdPWtDLBrlwFwFwFwFwK3AXAmwGEq4ifBUKcqs9agr5PWeiPaYc2fHhjqvPD3THa88Vh0Xez6P403GrjXGrNZ1QjnpwerKb9o/DmOc1u72yc1xdo9/VZYNFFe929JWzFI31QAADHxbulTWmpm6Ifmf07UBkpAAAAAAAAAAAABbUgpJp6HmAhoTa9SbvJaH78dvTtAnAAAAFGgNZ3Z3jYLEtzUHh6ks7nQtC72yjyX3Fjp90z4eI55j2lrZNLjv9Gobo+jjFwu6FWliI6lO9CdvGL8C4w75imPzKzH27w076G8fLPLwMVvcx1Ll4Stm1wUai74u/gWFNw01/F4a9tPkr+l588PVjyqNWPWpVl/iZ41GKfFo/mGOaW9lqpzeinUfRTqv/Emc2OPNo/k6LezKw+5OKqZoYXES/45R+axitrMFfOSP5eow3nxWXs4HeJuhVtenChHW6086/oin5mnl3jTU8TM/Zmro8k/RtO5Xo2oQtLE1Z4h64R/Bp9yztdLKrPveW/bHHT/AK28ehrHzTy3PA4GlQgqdGnGlBaIwSivAp8mS+Seq08y3K0iscRDIPD0AAAFlWooq7/+t7EBZh6bzylypavdjqivqBOAAAAAAAAAAAAACytSU1aXZqae1PUwIcucOUnOPvR5S6Vr7AJKdaMtEk+36ASAAAAABQBZBHEKZK/7Ynk4hUhKoAAAAAUlJLS0unMBA8TfNTWW9uiK6WBdSoZ8ubyp6FsitkUBOAAAAAAAAAAAAAAAAAR1KEZcqKfPr7wI1g4rkuUeiUvqBTir+LU74/YBxV/Fqf2/2gOKv4tTvp/tAcVfxanfD9oDir+LU/t/tAcVfxanfT/aA4q/i1O+n+0BxV/Fqd8P2gOKv4tTvh+0BxV/Fqd8P2gOKv4tT+3+0BxV/Fqd8P2gV4rtnN9MvsBWGDpr8t+s3LzAnSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9k="; + //} private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaihora, string Fechaf, string Fechafhora, string Prioridad, string Tema, string UsuarioDe, string UsuarioPara,string Accion ="Nueva tarea asignada") { string UsuarioDeAbr = ""; @@ -1499,8 +1594,8 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); StrMail.Append("
    "); - StrMail.Append(" DE: @UsuarioDeAbr@ @UsuarioDe@
    "); - StrMail.Append(" PARA: @UsuariParaAbr@ @UsuarioPara@"); + StrMail.Append(" De: @UsuarioDeAbr@ @UsuarioDe@
    "); + StrMail.Append(" Para: @UsuariParaAbr@ @UsuarioPara@"); StrMail.Append("     		"); StrMail.Append(" Nueva"); @@ -1605,269 +1700,269 @@ public partial class OI_TareaDetalle : ClsPaginas // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); //} - private string MailgetBodyActualizartarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" TAREA ACTUALIZADA"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyActualizartarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" TAREA ACTUALIZADA"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} - private string MailgetBodyActualizararchivo(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" TAREA ACTUALIZADA(Nuevo Archivo)"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyActualizararchivo(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" TAREA ACTUALIZADA(Nuevo Archivo)"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} - private string MailgetBodyActualizarAvance(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" TAREA ACTUALIZADA(Avance)"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyActualizarAvance(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" TAREA ACTUALIZADA(Avance)"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} - private string MailgetBodyTareaComentario(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" NUEVO COMENTARIO EN TAREA"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyTareaComentario(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" NUEVO COMENTARIO EN TAREA"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} - private string MailgetBodyTareaCheckList(string Actividad, int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" TAREA (@Actividad@)"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Actividad@", Actividad).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyTareaCheckList(string Actividad, int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" TAREA (@Actividad@)"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Actividad@", Actividad).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} - private string MailgetBodyActualizarEstado(string Estatus, int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) - { - StringBuilder strSQL = new StringBuilder(); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendFormat("
    \"\"
    ", getImg()); - strSQL.AppendLine(" TAREA NUEVO ESTADO (@Estatus@)"); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine(" "); - strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    SIG Notificaciones
    "); - strSQL.AppendLine("
    "); - strSQL.AppendLine("
    "); - return strSQL.ToString().Replace("@Estatus@", Estatus).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); - } + //private string MailgetBodyActualizarEstado(string Estatus, int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaf, string Prioridad, string Tema) + //{ + // StringBuilder strSQL = new StringBuilder(); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendFormat("
    \"\"
    ", getImg()); + // strSQL.AppendLine(" TAREA NUEVO ESTADO (@Estatus@)"); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine(" "); + // strSQL.AppendLine("
    Asunto
    @Asunto@
    Descripción
    @Descripcion@
    Fecha Inicio
    @Fechai@
    Fecha Fin
    @Fechaf@
    Prioridad
    @Prioridad@
    Tema
    @Tema@
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    SIG Notificaciones
    "); + // strSQL.AppendLine("
    "); + // strSQL.AppendLine("
    "); + // return strSQL.ToString().Replace("@Estatus@", Estatus).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema); + //} #endregion From 333bc9a93e81921cdc3421a8af50aaf9131851fd Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 12 May 2020 11:29:05 -0700 Subject: [PATCH 37/46] eFacturas registra en bitacora cuando se vincula manuamente complemento de pago --- Compras/eFacturas.aspx.vb | 73 ++++++++++++++++++++++++++++++++++++--- 1 file changed, 69 insertions(+), 4 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e89aec644..efd140531 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2603,17 +2603,50 @@ Partial Class Compras_eFacturas End Set End Property + Property DT_ComprasSinIE As DataTable + Get + If ViewState("DT_ComprasSinIE") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DT_ComprasSinIE"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DT_ComprasSinIE") = value + End Set + End Property + + + + 'Property ComplementoComprasSinIE As String + ' Get + ' If ViewState("ComplementoComprasSinIE") Is Nothing Then + ' Return "" + ' Else + ' Return ViewState("ComplementoComprasSinIE").ToString + ' End If + ' End Get + ' Set(value As String) + ' ViewState("ComplementoComprasSinIE") = value + ' End Set + 'End Property + + #Region "V I N C U L A R P A G O" Protected Sub LnkAgregarPago_Click(sender As Object, e As EventArgs) + Dim sbSinIE As New StringBuilder + HdnCveIE.Value = "" MSGComplemento = "" ViculacionConPUE = False ListaComprasPUE.Clear() ComplementoConPUE = "" + DT_ComprasSinIE = New DataTable + Dim ListaComprasPUEInterna As New List(Of Integer) @@ -2809,6 +2842,26 @@ Partial Class Compras_eFacturas End If Next + + DT_ComprasSinIE.Columns.Add("CveCompra", GetType(Integer)) + DT_ComprasSinIE.Columns.Add("CveFactura", GetType(Integer)) + DT_ComprasSinIE.Columns.Add("SerieFolioPago") + DT_ComprasSinIE.Columns.Add("SerieFolioCompra") + + For Each dRow As DataRow In DTDocumentosRelacionados.Rows + Dim nRow As DataRow = DT_ComprasSinIE.NewRow + nRow("CveCompra") = dRow("CveCompra").ToString.ToEntero + ' nRow("CveFactura") = dRow("CveFactura").ToString.ToEntero + nRow("SerieFolioPago") = $"{SeriePago}-{FolioPago}" + nRow("SerieFolioCompra") = dRow("SerieFolioCompra").ToString + + DT_ComprasSinIE.Rows.Add(nRow) + + + Next + + + Else Alert("Ocurrió un error al cargar los archivos de complementos pago", TipoMensaje.MsgError) End If @@ -2876,6 +2929,12 @@ Partial Class Compras_eFacturas ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe") + + + + + + DiferenciaImportes = Monto - ImporteIES ObjCompras.Dispose() @@ -2962,19 +3021,25 @@ Partial Class Compras_eFacturas If ViculacionConPUE Then - - - For Each CveCompraVinculada In ListaComprasPUE - objEventos.AddEventoBitacora($"Complemento { ComplementoConPUE } vinculado manualmente (Compra PUE) ", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompraVinculada) Next + End If + + + If HdnCveIE.Value.ToEntero > 0 Then + + + For Each dRow As DataRow In DT_ComprasSinIE.Rows + objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString } vinculado manualmente a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero) + Next End If + ObjCompra.Commit() Alert("El pago fue vinculado correctamente", TipoMensaje.MsgInformacion) From 85197a5881bb89148a0a783f6b2baa7521cde321 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 12 May 2020 13:02:49 -0700 Subject: [PATCH 38/46] Correciones de ruta --- App_Code/ClsPaginas.vb | 2 +- App_Code/modExtensiones.vb | 37 +++++---- Bancos/IE.aspx.vb | 2 +- Compras/PopUpVerFactura.aspx.vb | 42 ++++++++-- Inventarios/KardexAlmacenHorizontal.aspx.vb | 88 ++++++++++++++++++++- 5 files changed, 141 insertions(+), 30 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a0c74964b..3b471840f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5171,7 +5171,7 @@ Public Class ClsPaginas sw.Start() Dim Bytes As Byte() = Nothing - Dim bdir As String = ModExtensiones.DirectorioBaseEmpresas + Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) RutaReporte.Replace("/", "\") If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index f06c81603..e9e3f36b6 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -140,7 +140,7 @@ Namespace Extensiones Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}" Try - ArchivoW = New StreamWriter($"{ModExtensiones.DirectorioBaseEmpresas}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) Exit Sub @@ -185,7 +185,7 @@ Namespace Extensiones Dim strLineaTMP As String strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto) Try - ArchivoW = New StreamWriter(String.Format("{0}\LogMail.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) Catch ex As Exception Exit Sub End Try @@ -205,7 +205,7 @@ Namespace Extensiones ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10) strLineaTMP = String.Format("{0}{1} .. PAC: {2} - Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString) Try - ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) Exit Sub @@ -228,7 +228,7 @@ Namespace Extensiones strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto) Try - ArchivoW = New StreamWriter(String.Format("{0}\LogCancelacionSAT.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) Catch ex As Exception Exit Sub End Try @@ -1962,7 +1962,7 @@ Namespace Extensiones RecursivoLimpiaControlesExcel(GridView.Controls) style.Append(" ") page.EnableEventValidation = False @@ -2002,7 +2002,7 @@ Namespace Extensiones Dim Form As HtmlForm = New HtmlForm() style.Append(" ") RecursivoLimpiaControlesExcel(GridView.Controls) @@ -2183,16 +2183,15 @@ Namespace Extensiones worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) - - If Imagen.Exists Then - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Usuario.CveEmpresa) - Using webClient As New Net.WebClient() - Dim imageBytes = webClient.DownloadData(logouri) - Dim stream As New MemoryStream(imageBytes) - worksheet.Pictures.Add(stream, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) - 'worksheet.Pictures.Add(stream, GemBox.Spreadsheet.ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, GemBox.Document.LengthUnit.Pixel) - End Using + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using End If End If @@ -2210,7 +2209,7 @@ Namespace Extensiones Dim style As StringBuilder = New StringBuilder() style.Append(" ") 'To Export all pages 'Gv.AllowPaging = False @@ -3182,7 +3181,7 @@ Namespace Extensiones Public Property descripcion As String Public ReadOnly Property Extencion As String Get - Return IO.Path.GetExtension(String.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, patch, filename)).Replace(".", "") + Return IO.Path.GetExtension(String.Format("{0}{1}{2}", If(patch.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), patch, filename)).Replace(".", "") End Get End Property Public ReadOnly Property filenameO As String @@ -3192,7 +3191,7 @@ Namespace Extensiones End Property Public ReadOnly Property FileUrl As String Get - Return String.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, patch, filename) + Return String.Format("{0}{1}{2}", If(patch.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), patch, filename) End Get End Property End Class diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c787fdd5c..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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 5d0a34f8c..ddb90e086 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -186,9 +186,10 @@ Partial Class PopUpVerFactura If Request("REPORTE") IsNot Nothing Then CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte") - End If - - 'OPCIONES + End If + + 'OPCIONES + If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then @@ -235,10 +236,16 @@ Partial Class PopUpVerFactura UsuarioToken.Empresa = ObjEmpresa.Empresa End If ObjEmpresa.Dispose() - End Sub + End Sub #End Region + + Private Sub SeleccionaReporte(UrlParametros As Hashtable) + + 'DESCARGA COMPROBANTE + If UrlParametros("OP").ToString = "IEComprobante" Then + DescargaComprobante(UrlParametros) + End If - Private Sub SeleccionaReporte(UrlParametros As Hashtable) 'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA If UrlParametros("OP").ToString = "Fact" Then DescargaFactura(UrlParametros) @@ -518,11 +525,30 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato) End If - End Sub - + End Sub + #End Region - + #Region " OP = FACTURA - IMPRIME COMPRA" + Private Sub DescargaComprobante(Parametros As Hashtable) + If Parametros("COMPROBANTE") IsNot Nothing Then + + Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE")) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub Private Sub DescargaFactura(Parametros As Hashtable) If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 2b5325e8f..46040fdab 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -246,10 +246,96 @@ Partial Class Inventarios_KardexAlmacen If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText) If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText) If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text) - GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200) + ExportToExcelG(GvDatos, "ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200) Else Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia) End If + End Sub + + Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) + Dim sw As New StringWriter() + Dim htw As New HtmlTextWriter(sw) + Gv.RenderControl(htw) + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8") + + Dim excel As GemBox.Spreadsheet.ExcelFile + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString())) + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options) + If Usuario IsNot Nothing Then + Dim TotalRowHeader As Integer = 8 + Dim TotalRowFooter As Integer = 2 + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex) + RangoFiltros.Merged = True + RangoFiltros.Value = Filtros + RangoFiltros.Style.Font.Size = 15 * 20 + RangoFiltros.Style.Font.Name = "Calibri Light" + RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + Next + + Dim IndexEndTable As Integer = Gv.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + End If + + End Using + htw.Dispose() + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub From 7a18d716b21080e4843c6ccd4c57f6184f064836 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 12 May 2020 14:14:56 -0700 Subject: [PATCH 39/46] --- Ashx/SigFiles.ashx | 57 +++++++++ OI/CircularDetalleB.aspx.cs | 2 +- OI/ConvocatoriaDetalle.aspx.cs | 10 +- OI/MinutaDetalle.aspx.cs | 151 +++++++++++----------- OI/RepReuniones.aspx | 226 ++++++++++++++++++++++++++------- OI/RepReuniones.aspx.cs | 130 +++++++++++++++++++ 6 files changed, 451 insertions(+), 125 deletions(-) create mode 100644 Ashx/SigFiles.ashx diff --git a/Ashx/SigFiles.ashx b/Ashx/SigFiles.ashx new file mode 100644 index 000000000..708d6b7a6 --- /dev/null +++ b/Ashx/SigFiles.ashx @@ -0,0 +1,57 @@ +<%@ 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"]); + + 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/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index b21ec8aaa..38f79bbe0 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -185,7 +185,7 @@ public partial class OI_CircularDetalleB : ClsPaginas { Filename = fileItem.filename; } - catch (Exception ) + catch (Exception ex) { ModExtensiones.OnError(this, "Ocurrió un error al obtener al archivo", ex); Filename = "-1"; diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs index a2556f476..c6d9f3343 100644 --- a/OI/ConvocatoriaDetalle.aspx.cs +++ b/OI/ConvocatoriaDetalle.aspx.cs @@ -14,6 +14,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas public const string iddivAgregarTema = "divModalAgregartema"; public const string iddivAgregarMiembros = "iddivAgregarMiembros"; public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } + public int RCveEventoPadre { get { return ViewState["RCveEventoPadre"] != null ? ViewState["RCveEventoPadre"].ToString().ToEntero() : 0; } set { ViewState["RCveEventoPadre"] = value; } } public bool EsNuevo { get { return Convert.ToBoolean(ViewState["EsNuevo"]); } set { ViewState["EsNuevo"] = value; } } public List LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List(); } return (List)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } } public List LcveuserVisto { get { if (ViewState["LcveuserVisto"] == null) { ViewState["LcveuserVisto"] = new List(); } return (List)ViewState["LcveuserVisto"]; } set { ViewState["LcveuserVisto"] = value; } } @@ -29,8 +30,13 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas cargaUsuarios(); if (Request["CveEvento"] != null) + { + RCveEvento = Request["CveEvento"].ToString().ToEntero(); + } + if (Request["CveEventoPadre"] != null) { - RCveEvento = Request["CveEvento"].ToString().ToEntero(); + + RCveEventoPadre = Request["CveEventoPadre"].ToString().ToEntero(); } if (RCveEvento > 0) { @@ -349,7 +355,7 @@ public partial class OI_ConvocatoriaDetalle : 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, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text); + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text,CveEventoPadre: RCveEventoPadre); CveEvento = objOI.CveEvento; Folio = objOI.Folio; diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index ca90c9953..8630d0ac0 100644 --- a/OI/MinutaDetalle.aspx.cs +++ b/OI/MinutaDetalle.aspx.cs @@ -766,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 @@ -1160,93 +1165,93 @@ public partial class OI_MinutaDetalle : ClsPaginas { cargarAgenda(); } - + bool agendar = false; protected void BtnTerminarYAgendar_Click(object sender, EventArgs e) { - string errorMessage = ""; + //string errorMessage = ""; - int cveUsuarioDe = UsuarioActual.CveUsuario; - List listaCCP = new List(); - //int cveUsuarioPara = CveUsuarioPara; + //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"; + //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 = ""; + // } + // 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; + //int cveUsuarioIng = UsuarioActual.CveUsuario; + //int cveEmpresa = UsuarioActual.CveEmpresa; + //bool Continuar = true; + //int Folio = -1; + //int CveEvento = -1; - if (errorMessage.Length == 0) - { + //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(); + // 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) - { - - 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)); - } - } + // } + // 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)); + // } + //} } diff --git a/OI/RepReuniones.aspx b/OI/RepReuniones.aspx index 75b7345d2..f0169055b 100644 --- a/OI/RepReuniones.aspx +++ b/OI/RepReuniones.aspx @@ -20,58 +20,186 @@ - + + + - - - - - - - - - - - - - - <%----%> - - - - - - - - - - - - + + + Reuniones + + + + + +
    +
    +
    + +
    +
    +
      +
    • Fecha Inicio:
      • +
    • +
      + + + + + + + + + + +
      +
      • +
    • Fecha Fin:
      • +
    • +
      + + + + + + + + + + +
      +
      • +
    +
    +
    +
    +     +     + + + + + + <%#Eval("Asunto")%> + + + + + + + + <%----%> + + + + + + +     +     + + + Minutas + + - - - - - - - - - - <%----%> - - - - - - - + + +
    +
    +
    + +
    +
    +
      +
    • Fecha Inicio:
      • +
    • +
      + + + + + + + + + + +
      +
      • +
    • Fecha Fin:
      • +
    • +
      + + + + + + + + + + +
      +
      • +
    • Estatus:
      • +
    • + + + + + +
      • +
    +
    +
    + +
    +     +     + + + + + + <%#Eval("Asunto")%> + + + + + + + + + <%----%> + + + + + + + -     -     -     +     + +     + +     diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs index d242e8b60..3d96f3f8c 100644 --- a/OI/RepReuniones.aspx.cs +++ b/OI/RepReuniones.aspx.cs @@ -1,14 +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 From 24737464747fc91c57bfc163c8103d83c334d2f1 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 12 May 2020 14:25:02 -0700 Subject: [PATCH 40/46] --- OI/ConvocatoriaDetalle.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs index c6d9f3343..7bc0d0027 100644 --- a/OI/ConvocatoriaDetalle.aspx.cs +++ b/OI/ConvocatoriaDetalle.aspx.cs @@ -355,7 +355,7 @@ public partial class OI_ConvocatoriaDetalle : 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, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text,CveEventoPadre: RCveEventoPadre); + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text,CveEventoPadre: (RCveEventoPadre>0? RCveEventoPadre:-1)); CveEvento = objOI.CveEvento; Folio = objOI.Folio; From 0aa441d799bd77cd9ae0b6a07fe2fea656822cc8 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 12 May 2020 15:22:41 -0700 Subject: [PATCH 41/46] --- Ashx/SigFiles.ashx | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Ashx/SigFiles.ashx b/Ashx/SigFiles.ashx index 708d6b7a6..5f5ee0ad2 100644 --- a/Ashx/SigFiles.ashx +++ b/Ashx/SigFiles.ashx @@ -15,6 +15,13 @@ public class SigFiles : IHttpHandler if (context.Request["FileUrl"] != null) { path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, context.Request["FileUrl"]); + } + if (context.Request["UrlFile"] != null) + { + path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas,ModExtensiones.Decripta( context.Request["UrlFile"])); + } + if (path != null && path.Length>0) + { try { From faa9e3c129971a7085a954d641038856a9c02e47 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 12 May 2020 15:23:29 -0700 Subject: [PATCH 42/46] --- Ashx/SigFiles.ashx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ashx/SigFiles.ashx b/Ashx/SigFiles.ashx index 5f5ee0ad2..bb4a91d48 100644 --- a/Ashx/SigFiles.ashx +++ b/Ashx/SigFiles.ashx @@ -16,9 +16,9 @@ public class SigFiles : IHttpHandler { path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, context.Request["FileUrl"]); } - if (context.Request["UrlFile"] != null) + if (context.Request["P"] != null) { - path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas,ModExtensiones.Decripta( context.Request["UrlFile"])); + path = string.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas,ModExtensiones.Decripta( context.Request["P"])); } if (path != null && path.Length>0) { From 70802869467526958b3550b837b23cca2c588188 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 12 May 2020 18:35:53 -0700 Subject: [PATCH 43/46] =?UTF-8?q?eFacturas=20=20Correci=C3=B3n=20Rutas=20a?= =?UTF-8?q?l=20subir=20facturas=20por=20medio=20de=20modal?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/eFacturas.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 60ee8f5b2..94590d434 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1269,7 +1269,7 @@ Partial Class Compras_eFacturas End If ObjDatos.Dispose() - If DT IsNot Nothing Then + If dt IsNot Nothing Then 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) @@ -1329,7 +1329,8 @@ Partial Class Compras_eFacturas filemove = fileItem.filename If filemove <> "" Then - filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) + 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) + filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa)) 'AGREGA XML A LA LISTA If FileExtension.ToUpper = "XML" Then ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) @@ -1339,7 +1340,7 @@ Partial Class Compras_eFacturas Next - Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) + Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Dim ListaDirectoriosTemporales As New List(Of String) Dim ListaComprimidos As New List(Of String) From dd658720c4613b63df5277b5782a39d4098f5d50 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 12 May 2020 19:00:17 -0700 Subject: [PATCH 44/46] correcion efacturas --- Compras/eFacturas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 94590d434..f59eed405 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -619,7 +619,7 @@ Partial Class Compras_eFacturas txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\" - Ejecutable = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\ADSUtilerias.exe") + Ejecutable = "C:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe" Form.DefaultButton = BtnConsultar.UniqueID DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) From e018dc3e1faf85e41488a1e7b48c729adbcc2417 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 12 May 2020 20:02:18 -0700 Subject: [PATCH 45/46] firma de reporte para minas, reparado --- App_Code/ClsPaginas.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 87f743432..4d683e03b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7189,10 +7189,15 @@ Public Class ClsPaginas End If 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) + Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) + Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol)) Dim FirmaSol As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioSol)) - params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol))).AbsoluteUri, ""))) + params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, ""))) + + Dim RutaFisicaAut As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut) + Dim RutaVirtuaAut As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaAut)) Dim FirmaAut As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioAut)) - params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut))).AbsoluteUri, ""))) + params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, ""))) If Archivo.Exists Then bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR) From acf231d10cf5676e127856dea0d34c2788abada3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 13 May 2020 12:00:28 -0700 Subject: [PATCH 46/46] API KEY DE GOOGLE MAPS CENTRALIZADA --- App_Code/modExtensiones.vb | 28 +- GPS/Busqueda.aspx | 4 +- GPS/CatRemisionesVehiculos.aspx | 4 +- GPS/EntradasSalidasGR.aspx | 7 +- GPS/GeoReferencias.aspx | 7 +- GPS/GeoReferencias.aspx.vb | 3 +- GPS/PuntosDeInteres.aspx | 8 +- GPS/Rastreo.aspx | 4 +- GPS/Rastreo.aspx.vb | 2 +- GPS/RastreoTrayectos.aspx | 2 +- GPS/RepGeoReferencias.aspx | 291 +- GPS/RepPuntosDeInteres.aspx | 7 +- GPS/Shipments.aspx | 4 +- GPS/TrayectoDetalle.aspx | 4 +- GPS/Trayectos.aspx | 4 +- GPS/data.txt | 17504 ------------------------------ PortalGPS/InicioGPS.aspx | 8 +- 17 files changed, 177 insertions(+), 17714 deletions(-) delete mode 100644 GPS/data.txt diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index e9e3f36b6..7f7473927 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -29,12 +29,10 @@ Imports System.Web.Http.Controllers Imports System.Net.Http Imports System.Net -Namespace Extensiones - +Namespace Extensiones + #Region "E X T E N S I O N E S" Public Module ModExtensiones - - 'Public Const DirectorioBaseEmpresas As String = "C:\inetpub\" Public ReadOnly Property DirectorioBaseEmpresas As String Get If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then @@ -44,13 +42,23 @@ Namespace Extensiones End If End Get End Property - Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas) + Public ReadOnly DirectorioEmpresas As String = String.Format("{0}Empresas\", DirectorioBaseEmpresas) + + Public ReadOnly Property GOOGLE_MAPS_API_KEY As String + Get + If IsNothing(System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY")) Then + Return "" + Else + Return System.Configuration.ConfigurationManager.AppSettings("GOOGLE_MAPS_API_KEY").ToString() + End If + End Get + End Property Public Const IMEI As String = "IMEISISTEMAGERENCIAL" Public Const MinFecha As Date = #1/1/1900# Public Const MaxFecha As Date = #1/1/9999# - Public Const GlobalRowVersion As Integer = 555555 - + Public Const GlobalRowVersion As Integer = 555555 + #Region "PropiedadesEncriptación" Private _Key() As Byte = {} Private ReadOnly _IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} @@ -90,10 +98,10 @@ Namespace Extensiones Else Return Valor End If - End Function - + End Function + #Region "Log" - + Public Sub GuardaLog(Str As String) Dim ArchivoW As StreamWriter diff --git a/GPS/Busqueda.aspx b/GPS/Busqueda.aspx index b6ef976d9..0a1433bfc 100644 --- a/GPS/Busqueda.aspx +++ b/GPS/Busqueda.aspx @@ -513,9 +513,7 @@ } - + 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/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 @@ - + diff --git a/GPS/RepGeoReferencias.aspx b/GPS/RepGeoReferencias.aspx index 37376ddfe..f4de37b90 100644 --- a/GPS/RepGeoReferencias.aspx +++ b/GPS/RepGeoReferencias.aspx @@ -3,47 +3,47 @@ - @@ -332,10 +332,10 @@ - - <%----%> + diff --git a/GPS/RepPuntosDeInteres.aspx b/GPS/RepPuntosDeInteres.aspx index 094b21a00..5aed250b6 100644 --- a/GPS/RepPuntosDeInteres.aspx +++ b/GPS/RepPuntosDeInteres.aspx @@ -356,11 +356,6 @@ } - - <%-- --%> + diff --git a/GPS/Shipments.aspx b/GPS/Shipments.aspx index 9a6391624..4dd237032 100644 --- a/GPS/Shipments.aspx +++ b/GPS/Shipments.aspx @@ -731,8 +731,6 @@ } - + diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx index 3c05926d2..1721b3034 100644 --- a/GPS/TrayectoDetalle.aspx +++ b/GPS/TrayectoDetalle.aspx @@ -725,8 +725,6 @@ - + diff --git a/GPS/Trayectos.aspx b/GPS/Trayectos.aspx index 1b36ffa8d..5d38ea4e7 100644 --- a/GPS/Trayectos.aspx +++ b/GPS/Trayectos.aspx @@ -1333,8 +1333,6 @@ }); } - + diff --git a/GPS/data.txt b/GPS/data.txt deleted file mode 100644 index a9c8a58b3..000000000 --- a/GPS/data.txt +++ /dev/null @@ -1,17504 +0,0 @@ -{ - "aaData": [ - [ - "1", - "Armand", - "Warren", - "56045", - "Taiwan, Province of China" - ], - [ - "2", - "Xenos", - "Salas", - "71090", - "Liberia" - ], - [ - "3", - "Virginia", - "Whitaker", - "62723", - "Nicaragua" - ], - [ - "4", - "Kato", - "Patrick", - "97662", - "Palau" - ], - [ - "5", - "Penelope", - "Hensley", - "76634", - "Greenland" - ], - [ - "6", - "Georgia", - "Erickson", - "81358", - "Bolivia" - ], - [ - "7", - "Shad", - "Pena", - "20600", - "Palestinian Territory, Occupied" - ], - [ - "8", - "Tanisha", - "Humphrey", - "93371", - "Kenya" - ], - [ - "9", - "Claire", - "Espinoza", - "I8S 2S8", - "Panama" - ], - [ - "10", - "Raya", - "Tucker", - "O8D 8W7", - "Botswana" - ], - [ - "11", - "Otto", - "Briggs", - "57590", - "Anguilla" - ], - [ - "12", - "Logan", - "Burt", - "53041", - "Venezuela" - ], - [ - "13", - "Cooper", - "Pennington", - "36994", - "France" - ], - [ - "14", - "Kristen", - "Peterson", - "52917", - "Sao Tome and Principe" - ], - [ - "15", - "Jordan", - "Velasquez", - "08884", - "Switzerland" - ], - [ - "16", - "Zelda", - "Freeman", - "F9H 1J9", - "Holy See (Vatican City State)" - ], - [ - "17", - "Mary", - "Pacheco", - "A7Y 6X9", - "Niger" - ], - [ - "18", - "Tiger", - "Robles", - "44533", - "Malaysia" - ], - [ - "19", - "Zelenia", - "Buckner", - "Q8N 6E5", - "Malawi" - ], - [ - "20", - "Coby", - "Johnston", - "N6I 2O9", - "Rwanda" - ], - [ - "21", - "Gillian", - "Strickland", - "12258", - "Cook Islands" - ], - [ - "22", - "Alfreda", - "Mcbride", - "K5A 3B6", - "Nigeria" - ], - [ - "23", - "Laith", - "Ford", - "19072", - "Czech Republic" - ], - [ - "24", - "Autumn", - "Barton", - "U9D 9F4", - "Angola" - ], - [ - "25", - "Nadine", - "Britt", - "G4U 8L0", - "Liechtenstein" - ], - [ - "26", - "Xaviera", - "Hart", - "T1N 7D2", - "Mali" - ], - [ - "27", - "Neil", - "Page", - "T3E 9F4", - "Korea" - ], - [ - "28", - "Rose", - "French", - "B7T 8M2", - "French Polynesia" - ], - [ - "29", - "Alyssa", - "Poole", - "S1L 2T5", - "Yemen" - ], - [ - "30", - "Chantale", - "Lynch", - "97316", - "United States" - ], - [ - "31", - "Jermaine", - "Dawson", - "A3H 7A1", - "American Samoa" - ], - [ - "32", - "Ann", - "Giles", - "54258", - "Korea" - ], - [ - "33", - "Jerry", - "Carr", - "04901", - "South Georgia and The South Sandwich Islands" - ], - [ - "34", - "Lionel", - "Hooper", - "67970", - "Bahrain" - ], - [ - "35", - "Alyssa", - "Hewitt", - "R3K 2V8", - "Paraguay" - ], - [ - "36", - "Lisandra", - "Sheppard", - "71886", - "Seychelles" - ], - [ - "37", - "Kylan", - "Harrison", - "96763", - "Italy" - ], - [ - "38", - "Kaitlin", - "Montgomery", - "V5K 5U8", - "Niger" - ], - [ - "39", - "Heidi", - "Boyd", - "B3C 8M9", - "Papua New Guinea" - ], - [ - "40", - "Rinah", - "Case", - "W7M 5K1", - "Mali" - ], - [ - "41", - "Thaddeus", - "Maynard", - "E4V 6W6", - "Egypt" - ], - [ - "42", - "Lacota", - "Ray", - "T3J 8D8", - "United Kingdom" - ], - [ - "43", - "Olympia", - "Cortez", - "F8C 7I5", - "Palau" - ], - [ - "44", - "Wendy", - "Rojas", - "N8T 4K6", - "Cook Islands" - ], - [ - "45", - "Arden", - "Kelley", - "V9N 2T6", - "India" - ], - [ - "46", - "Colorado", - "Lindsey", - "96703", - "Chad" - ], - [ - "47", - "Alika", - "Weaver", - "F6V 1I1", - "Bulgaria" - ], - [ - "48", - "Phoebe", - "Mack", - "E4B 1X2", - "El Salvador" - ], - [ - "49", - "Sybill", - "Bridges", - "Z2G 6A2", - "Somalia" - ], - [ - "50", - "Trevor", - "Larsen", - "K1R 3B9", - "United Arab Emirates" - ], - [ - "51", - "Maya", - "Battle", - "70881", - "Australia" - ], - [ - "52", - "Charity", - "Walton", - "I4I 5R9", - "Swaziland" - ], - [ - "53", - "Lane", - "Sloan", - "79076", - "Nauru" - ], - [ - "54", - "Christopher", - "Watson", - "35116", - "Suriname" - ], - [ - "55", - "Clementine", - "Shelton", - "98232", - "Venezuela" - ], - [ - "56", - "Basil", - "Hood", - "J9I 1R2", - "Tonga" - ], - [ - "57", - "Meghan", - "Pacheco", - "H5Z 6B1", - "Dominican Republic" - ], - [ - "58", - "Brennan", - "Potts", - "51743", - "Turkey" - ], - [ - "59", - "Lawrence", - "Duran", - "63266", - "Uruguay" - ], - [ - "60", - "Ina", - "Head", - "S8P 9J5", - "Romania" - ], - [ - "61", - "Castor", - "Jacobson", - "C9F 6C9", - "Albania" - ], - [ - "62", - "Daquan", - "Holden", - "38571", - "Ireland" - ], - [ - "63", - "Donna", - "Valencia", - "J7B 3I0", - "Portugal" - ], - [ - "64", - "Kessie", - "Phelps", - "61063", - "Georgia" - ], - [ - "65", - "Dillon", - "Garcia", - "13652", - "Holy See (Vatican City State)" - ], - [ - "66", - "Russell", - "Sweeney", - "T8P 2O6", - "Saint Kitts and Nevis" - ], - [ - "67", - "Zelda", - "Berg", - "84946", - "Afghanistan" - ], - [ - "68", - "Dexter", - "Mann", - "73596", - "Thailand" - ], - [ - "69", - "Maisie", - "Miller", - "X3M 6C1", - "Seychelles" - ], - [ - "70", - "Lynn", - "Mitchell", - "N5B 3Z9", - "Wallis and Futuna" - ], - [ - "71", - "Gay", - "Medina", - "66692", - "Germany" - ], - [ - "72", - "Olga", - "Clark", - "M6B 7B6", - "Kuwait" - ], - [ - "73", - "Brianna", - "Obrien", - "Z6Z 5R3", - "Bahrain" - ], - [ - "74", - "Daria", - "Byers", - "R9T 4N7", - "Ghana" - ], - [ - "75", - "Chiquita", - "Barker", - "28435", - "Ireland" - ], - [ - "76", - "Gray", - "Salazar", - "58618", - "Chile" - ], - [ - "77", - "Delilah", - "Kirby", - "42811", - "Oman" - ], - [ - "78", - "Xanthus", - "Holland", - "B8Q 9C4", - "Antigua and Barbuda" - ], - [ - "79", - "Reuben", - "Brennan", - "44693", - "Czech Republic" - ], - [ - "80", - "Alden", - "Long", - "94236", - "Slovakia" - ], - [ - "81", - "Blythe", - "Bender", - "04812", - "Guam" - ], - [ - "82", - "Aileen", - "Burgess", - "47942", - "Djibouti" - ], - [ - "83", - "Zeus", - "Craig", - "43002", - "Nicaragua" - ], - [ - "84", - "Jade", - "Garza", - "F2X 8F3", - "New Zealand" - ], - [ - "85", - "Noah", - "Barrera", - "K9C 8U0", - "Malawi" - ], - [ - "86", - "Quyn", - "Robertson", - "H3X 6J9", - "Bosnia and Herzegovina" - ], - [ - "87", - "Serena", - "Cabrera", - "83671", - "Slovenia" - ], - [ - "88", - "Charity", - "Chase", - "T9Q 7C4", - "Solomon Islands" - ], - [ - "89", - "Athena", - "Grimes", - "62801", - "Aruba" - ], - [ - "90", - "Mallory", - "Middleton", - "D2V 1M5", - "Italy" - ], - [ - "91", - "Xenos", - "Jones", - "46642", - "Singapore" - ], - [ - "92", - "Tate", - "Gregory", - "66538", - "Zimbabwe" - ], - [ - "93", - "Blaze", - "Taylor", - "70282", - "Paraguay" - ], - [ - "94", - "Jena", - "Duncan", - "63057", - "Cambodia" - ], - [ - "95", - "Thaddeus", - "Chase", - "66762", - "Netherlands Antilles" - ], - [ - "96", - "Guinevere", - "Mcgee", - "O9G 4S2", - "Lebanon" - ], - [ - "97", - "Kermit", - "Ramsey", - "41214", - "Dominican Republic" - ], - [ - "98", - "Josephine", - "Gallagher", - "04960", - "French Southern Territories" - ], - [ - "99", - "Amela", - "Morales", - "M9I 1X5", - "Sudan" - ], - [ - "100", - "Rina", - "Yates", - "G3T 7M9", - "Dominica" - ], - [ - "101", - "Orson", - "Norris", - "21660", - "Sierra Leone" - ], - [ - "102", - "Graiden", - "Silva", - "98191", - "Saint Lucia" - ], - [ - "103", - "Amaya", - "Hood", - "45779", - "India" - ], - [ - "104", - "Fatima", - "Fitzpatrick", - "I4R 9Q8", - "Viet Nam" - ], - [ - "105", - "Judith", - "Stokes", - "97596", - "Sudan" - ], - [ - "106", - "Jared", - "Vaughn", - "75521", - "Benin" - ], - [ - "107", - "Mira", - "Morgan", - "35169", - "Martinique" - ], - [ - "108", - "Walter", - "Perkins", - "28618", - "San Marino" - ], - [ - "109", - "Megan", - "Maxwell", - "K6X 3J4", - "Oman" - ], - [ - "110", - "Christine", - "Christensen", - "M7S 8G8", - "Netherlands Antilles" - ], - [ - "111", - "Tanner", - "Guerra", - "S3K 6Y5", - "Finland" - ], - [ - "112", - "Meghan", - "Rowland", - "K7U 3A1", - "Rwanda" - ], - [ - "113", - "Patrick", - "Mitchell", - "V3F 5C4", - "Oman" - ], - [ - "114", - "Jackson", - "Sanders", - "83229", - "Greenland" - ], - [ - "115", - "Omar", - "Savage", - "14082", - "Korea" - ], - [ - "116", - "Ulla", - "Larsen", - "Q2P 4L8", - "French Southern Territories" - ], - [ - "117", - "Hop", - "Gates", - "D9G 9J4", - "Poland" - ], - [ - "118", - "Astra", - "Mendoza", - "R3D 2H9", - "Saint Vincent and The Grenadines" - ], - [ - "119", - "Denise", - "Cardenas", - "73138", - "Sao Tome and Principe" - ], - [ - "120", - "Melodie", - "Roberts", - "L1G 4H2", - "India" - ], - [ - "121", - "Cedric", - "Joseph", - "M4V 8O9", - "Korea, Republic of" - ], - [ - "122", - "Linda", - "Horn", - "24465", - "Bosnia and Herzegovina" - ], - [ - "123", - "Mary", - "Lyons", - "22324", - "Norfolk Island" - ], - [ - "124", - "Ciara", - "Mcknight", - "30784", - "Anguilla" - ], - [ - "125", - "Vaughan", - "Santiago", - "65037", - "Guyana" - ], - [ - "126", - "Lamar", - "Shepherd", - "58040", - "France" - ], - [ - "127", - "Xavier", - "Webster", - "68321", - "Afghanistan" - ], - [ - "128", - "Ainsley", - "Banks", - "46902", - "Pakistan" - ], - [ - "129", - "Alika", - "Love", - "L5O 4B3", - "Iran, Islamic Republic of" - ], - [ - "130", - "Maite", - "Dickson", - "37405", - "Saint Kitts and Nevis" - ], - [ - "131", - "Kimberley", - "Morrow", - "F7C 7J0", - "Lebanon" - ], - [ - "132", - "Eugenia", - "Stafford", - "36282", - "Nicaragua" - ], - [ - "133", - "Mira", - "Gill", - "K1T 8U1", - "Uruguay" - ], - [ - "134", - "Herman", - "Francis", - "C2G 8G9", - "Northern Mariana Islands" - ], - [ - "135", - "Veronica", - "Peters", - "74146", - "Cook Islands" - ], - [ - "136", - "Axel", - "Cochran", - "32240", - "Central African Republic" - ], - [ - "137", - "Edan", - "Howe", - "51862", - "Mali" - ], - [ - "138", - "Ignacia", - "Bruce", - "Q8T 5Q1", - "Sao Tome and Principe" - ], - [ - "139", - "Jana", - "Mcguire", - "89412", - "Czech Republic" - ], - [ - "140", - "Alice", - "Underwood", - "74535", - "Slovakia" - ], - [ - "141", - "Tobias", - "Kent", - "33601", - "South Georgia and The South Sandwich Islands" - ], - [ - "142", - "Nasim", - "Coleman", - "19377", - "United States Minor Outlying Islands" - ], - [ - "143", - "Geoffrey", - "Byers", - "85753", - "Netherlands Antilles" - ], - [ - "144", - "Odette", - "Sawyer", - "55418", - "Tunisia" - ], - [ - "145", - "Chaney", - "Flowers", - "F4W 7O7", - "Maldives" - ], - [ - "146", - "Shelly", - "Glover", - "M5Y 4A6", - "Taiwan, Province of China" - ], - [ - "147", - "Uriel", - "Thornton", - "Z6Q 5B7", - "Myanmar" - ], - [ - "148", - "Clio", - "Nicholson", - "Y8S 7P2", - "Martinique" - ], - [ - "149", - "Jana", - "Foley", - "B1O 9J5", - "United Arab Emirates" - ], - [ - "150", - "Fulton", - "Rasmussen", - "39194", - "Solomon Islands" - ], - [ - "151", - "Lisandra", - "Boyd", - "J2Z 2V7", - "French Guiana" - ], - [ - "152", - "Brennan", - "Lopez", - "Q4M 7Y4", - "Burkina Faso" - ], - [ - "153", - "Martha", - "Washington", - "M7S 4U6", - "Iran, Islamic Republic of" - ], - [ - "154", - "Dara", - "Ramos", - "07799", - "Portugal" - ], - [ - "155", - "Virginia", - "Harris", - "01246", - "Bermuda" - ], - [ - "156", - "Maryam", - "Patrick", - "Y3J 4Y0", - "Rwanda" - ], - [ - "157", - "Shana", - "Mullen", - "61169", - "Togo" - ], - [ - "158", - "Rowan", - "Hahn", - "K6D 5T4", - "Guinea-bissau" - ], - [ - "159", - "Hermione", - "Shepherd", - "M4F 7T6", - "Ireland" - ], - [ - "160", - "Jada", - "Bright", - "P1Z 7E6", - "French Southern Territories" - ], - [ - "161", - "Scarlet", - "Bray", - "57161", - "Austria" - ], - [ - "162", - "Haviva", - "Conner", - "M4T 8O4", - "Bermuda" - ], - [ - "163", - "Myra", - "Briggs", - "Q4B 6L7", - "Kenya" - ], - [ - "164", - "Hall", - "Floyd", - "40411", - "Bangladesh" - ], - [ - "165", - "Kyle", - "Marquez", - "J4T 7C6", - "Djibouti" - ], - [ - "166", - "Claudia", - "Long", - "R7B 1T6", - "Macedonia" - ], - [ - "167", - "Hasad", - "Clemons", - "94009", - "Bosnia and Herzegovina" - ], - [ - "168", - "Kameko", - "Reeves", - "G4V 6D5", - "Singapore" - ], - [ - "169", - "Angelica", - "Bailey", - "Z3Y 7I0", - "Micronesia" - ], - [ - "170", - "Shelley", - "Jennings", - "O3A 9H0", - "Christmas Island" - ], - [ - "171", - "Rafael", - "Randolph", - "Y4L 8B5", - "Germany" - ], - [ - "172", - "Winter", - "Kinney", - "A3K 9A7", - "Saint Lucia" - ], - [ - "173", - "Brian", - "Larsen", - "53752", - "Comoros" - ], - [ - "174", - "Melvin", - "Cooper", - "72416", - "Czech Republic" - ], - [ - "175", - "Gil", - "Valencia", - "95798", - "Uganda" - ], - [ - "176", - "Uma", - "Cummings", - "84649", - "Jordan" - ], - [ - "177", - "Micah", - "Shannon", - "H9L 8R6", - "Ghana" - ], - [ - "178", - "Ahmed", - "Weiss", - "05291", - "American Samoa" - ], - [ - "179", - "Hop", - "Foster", - "W9C 7J7", - "Panama" - ], - [ - "180", - "Todd", - "Barnett", - "T9R 7J4", - "Seychelles" - ], - [ - "181", - "Byron", - "Meyers", - "J4G 9P2", - "Congo" - ], - [ - "182", - "Hadassah", - "Barnett", - "U1A 8V3", - "Paraguay" - ], - [ - "183", - "Hermione", - "Luna", - "L4G 2E5", - "New Zealand" - ], - [ - "184", - "Marsden", - "Alvarado", - "U1V 1Y4", - "Aruba" - ], - [ - "185", - "Britanni", - "Gregory", - "C8O 2T4", - "Kazakhstan" - ], - [ - "186", - "Brenda", - "Oneil", - "R9Q 9B7", - "Gibraltar" - ], - [ - "187", - "Reuben", - "Hopkins", - "C2D 9D0", - "Bhutan" - ], - [ - "188", - "Sonia", - "Sandoval", - "Y2G 5I0", - "Guatemala" - ], - [ - "189", - "Yasir", - "Holcomb", - "A1H 6Y3", - "Angola" - ], - [ - "190", - "Aristotle", - "Rosa", - "51870", - "Indonesia" - ], - [ - "191", - "Uriah", - "Blair", - "X8K 1B9", - "Suriname" - ], - [ - "192", - "Vaughan", - "Sharp", - "L2F 5N8", - "Faroe Islands" - ], - [ - "193", - "Cooper", - "Beard", - "80399", - "United States Minor Outlying Islands" - ], - [ - "194", - "Riley", - "Greene", - "44728", - "Russian Federation" - ], - [ - "195", - "Rashad", - "Flowers", - "L6N 8U7", - "Mongolia" - ], - [ - "196", - "Yvonne", - "Wilson", - "18599", - "Svalbard and Jan Mayen" - ], - [ - "197", - "Martena", - "Ayers", - "A8Z 5F7", - "Oman" - ], - [ - "198", - "Eagan", - "Cline", - "T9P 4L4", - "Solomon Islands" - ], - [ - "199", - "Dawn", - "Carrillo", - "T6O 6E5", - "Malawi" - ], - [ - "200", - "Ali", - "Singleton", - "G6F 3B4", - "Italy" - ], - [ - "201", - "Christopher", - "Beach", - "01655", - "Palau" - ], - [ - "202", - "Emma", - "Cummings", - "W1B 4R6", - "Dominica" - ], - [ - "203", - "Ishmael", - "Gray", - "76928", - "Egypt" - ], - [ - "204", - "Megan", - "Hines", - "F7X 2X5", - "New Zealand" - ], - [ - "205", - "Emmanuel", - "Steele", - "09729", - "Netherlands" - ], - [ - "206", - "Alea", - "Burris", - "08485", - "Guatemala" - ], - [ - "207", - "Martina", - "Todd", - "46863", - "Christmas Island" - ], - [ - "208", - "Len", - "Valentine", - "S6Z 5S8", - "Slovenia" - ], - [ - "209", - "Jorden", - "Salazar", - "U4D 8H6", - "Austria" - ], - [ - "210", - "Yvette", - "Bradford", - "17275", - "Heard Island and Mcdonald Islands" - ], - [ - "211", - "Elvis", - "Mcmahon", - "27586", - "Marshall Islands" - ], - [ - "212", - "Gray", - "Bonner", - "N4V 3U9", - "Moldova" - ], - [ - "213", - "Yoshi", - "Singleton", - "86603", - "United Kingdom" - ], - [ - "214", - "Amena", - "Burks", - "93820", - "Reunion" - ], - [ - "215", - "Ocean", - "Maldonado", - "72026", - "Ireland" - ], - [ - "216", - "Allen", - "Foley", - "75363", - "Kiribati" - ], - [ - "217", - "Duncan", - "Jimenez", - "H3H 3G6", - "Oman" - ], - [ - "218", - "Ira", - "Maxwell", - "53136", - "French Polynesia" - ], - [ - "219", - "Astra", - "Moon", - "D7W 8G2", - "Dominican Republic" - ], - [ - "220", - "Orson", - "Myers", - "06049", - "Mali" - ], - [ - "221", - "Brandon", - "Estes", - "D2B 7P2", - "Kenya" - ], - [ - "222", - "Halee", - "Luna", - "54733", - "Moldova" - ], - [ - "223", - "Jillian", - "Gonzalez", - "E8W 3L9", - "Ecuador" - ], - [ - "224", - "Julie", - "Acosta", - "X7M 1T2", - "Equatorial Guinea" - ], - [ - "225", - "Quemby", - "Foster", - "48596", - "Eritrea" - ], - [ - "226", - "Erich", - "Chavez", - "W4P 7G8", - "Mayotte" - ], - [ - "227", - "Roary", - "Mcknight", - "K9K 2K4", - "Chile" - ], - [ - "228", - "Mufutau", - "Henderson", - "81377", - "Mayotte" - ], - [ - "229", - "Herman", - "Ferguson", - "69405", - "Japan" - ], - [ - "230", - "Abdul", - "Franks", - "L1V 8X2", - "Portugal" - ], - [ - "231", - "Dominic", - "Logan", - "98770", - "Saint Lucia" - ], - [ - "232", - "Isadora", - "Solis", - "Y3A 6H5", - "Portugal" - ], - [ - "233", - "Lester", - "Davis", - "30339", - "British Indian Ocean Territory" - ], - [ - "234", - "Joel", - "Rojas", - "N8E 5T9", - "Bahrain" - ], - [ - "235", - "Quinlan", - "Carroll", - "55785", - "Australia" - ], - [ - "236", - "Guinevere", - "Pickett", - "A7Y 3V3", - "Netherlands Antilles" - ], - [ - "237", - "Nita", - "Hopkins", - "88370", - "Albania" - ], - [ - "238", - "Hayley", - "Buckley", - "F1V 7P5", - "Togo" - ], - [ - "239", - "Colorado", - "Reyes", - "18798", - "Congo" - ], - [ - "240", - "Tashya", - "Bartlett", - "48537", - "Sierra Leone" - ], - [ - "241", - "Isabella", - "Keith", - "48878", - "Kiribati" - ], - [ - "242", - "Jessica", - "Noble", - "D6C 9T9", - "Svalbard and Jan Mayen" - ], - [ - "243", - "Cairo", - "Edwards", - "40598", - "Nepal" - ], - [ - "244", - "Camille", - "Bradley", - "I4U 8F6", - "Fiji" - ], - [ - "245", - "Quin", - "Mcgee", - "O5D 2P0", - "Poland" - ], - [ - "246", - "Rina", - "Guzman", - "44940", - "Bahrain" - ], - [ - "247", - "Glenna", - "Kirkland", - "Z1L 4W2", - "San Marino" - ], - [ - "248", - "Tarik", - "Todd", - "77228", - "Turks and Caicos Islands" - ], - [ - "249", - "Yardley", - "Burris", - "M6U 9D7", - "New Caledonia" - ], - [ - "250", - "Hashim", - "Casey", - "17722", - "Lesotho" - ], - [ - "251", - "Maggie", - "Raymond", - "62540", - "Uganda" - ], - [ - "252", - "Christian", - "Mcdonald", - "R8K 2M1", - "United Arab Emirates" - ], - [ - "253", - "Colt", - "Cobb", - "75393", - "Moldova" - ], - [ - "254", - "Aline", - "Graves", - "I1C 9I6", - "Holy See (Vatican City State)" - ], - [ - "255", - "Farrah", - "Cannon", - "H5W 2Y0", - "Bhutan" - ], - [ - "256", - "Wynne", - "Ayers", - "B6X 6Y8", - "Western Sahara" - ], - [ - "257", - "Teegan", - "Avery", - "33643", - "San Marino" - ], - [ - "258", - "Shana", - "Sloan", - "K9P 9V7", - "Gabon" - ], - [ - "259", - "Britanney", - "Cook", - "Y5D 6K7", - "Romania" - ], - [ - "260", - "Kuame", - "Schroeder", - "12859", - "Syrian Arab Republic" - ], - [ - "261", - "Valentine", - "Joseph", - "P2S 6T6", - "Mayotte" - ], - [ - "262", - "Joelle", - "Keller", - "U6F 3T7", - "Fiji" - ], - [ - "263", - "Elaine", - "Hickman", - "28056", - "Tuvalu" - ], - [ - "264", - "Ivor", - "Malone", - "H2Z 5X5", - "Virgin Islands, British" - ], - [ - "265", - "Maris", - "Jefferson", - "12474", - "Czech Republic" - ], - [ - "266", - "Josephine", - "Zimmerman", - "Z5J 2I4", - "Angola" - ], - [ - "267", - "Baker", - "Wooten", - "X4K 2L8", - "Austria" - ], - [ - "268", - "Alyssa", - "Mitchell", - "97712", - "Antarctica" - ], - [ - "269", - "Carlos", - "Pearson", - "85838", - "Gambia" - ], - [ - "270", - "Luke", - "Richardson", - "73867", - "Christmas Island" - ], - [ - "271", - "Davis", - "Gardner", - "U2E 4D9", - "Chile" - ], - [ - "272", - "Thomas", - "Conner", - "92487", - "Mozambique" - ], - [ - "273", - "Kieran", - "Baird", - "X9G 6G1", - "Iceland" - ], - [ - "274", - "Cheyenne", - "Morris", - "F5V 4S2", - "Greece" - ], - [ - "275", - "Hillary", - "Reeves", - "89804", - "Slovakia" - ], - [ - "276", - "Ryder", - "Long", - "32725", - "New Caledonia" - ], - [ - "277", - "Ariel", - "Colon", - "50675", - "Estonia" - ], - [ - "278", - "Vanna", - "Hess", - "79057", - "Saudi Arabia" - ], - [ - "279", - "Hayley", - "Cherry", - "B5E 9X4", - "United States Minor Outlying Islands" - ], - [ - "280", - "Knox", - "Blair", - "75626", - "Central African Republic" - ], - [ - "281", - "Astra", - "Mcdaniel", - "24493", - "Bermuda" - ], - [ - "282", - "Teegan", - "Ford", - "A8U 1K9", - "Iran, Islamic Republic of" - ], - [ - "283", - "Harrison", - "Jackson", - "43519", - "Marshall Islands" - ], - [ - "284", - "Melyssa", - "Lawson", - "O7E 8E6", - "Belize" - ], - [ - "285", - "Shaine", - "Francis", - "Q5K 5I4", - "India" - ], - [ - "286", - "August", - "Reed", - "S9R 1O8", - "Ghana" - ], - [ - "287", - "Aphrodite", - "Zimmerman", - "28336", - "Lesotho" - ], - [ - "288", - "Declan", - "Walters", - "08662", - "Rwanda" - ], - [ - "289", - "Brody", - "Pate", - "G2G 9D9", - "Serbia and Montenegro" - ], - [ - "290", - "Bradley", - "Odom", - "L2R 6Z9", - "Jordan" - ], - [ - "291", - "Phillip", - "Cleveland", - "E4D 1B7", - "Paraguay" - ], - [ - "292", - "Silas", - "Wiggins", - "F9F 5X3", - "Bahrain" - ], - [ - "293", - "Keely", - "Donaldson", - "B5H 7F2", - "Vanuatu" - ], - [ - "294", - "Hammett", - "Lancaster", - "H2P 4E6", - "Svalbard and Jan Mayen" - ], - [ - "295", - "Kiara", - "Clarke", - "50885", - "Thailand" - ], - [ - "296", - "Ayanna", - "Wiley", - "20773", - "Morocco" - ], - [ - "297", - "Tashya", - "Stanley", - "F5J 5R9", - "New Caledonia" - ], - [ - "298", - "Margaret", - "Barker", - "J5A 9N8", - "Marshall Islands" - ], - [ - "299", - "Xandra", - "English", - "92299", - "Korea, Republic of" - ], - [ - "300", - "Jane", - "Brock", - "86140", - "Yemen" - ], - [ - "301", - "Lunea", - "Garrett", - "96730", - "New Caledonia" - ], - [ - "302", - "Slade", - "Everett", - "16105", - "Malawi" - ], - [ - "303", - "Scott", - "Booker", - "G8V 2R4", - "Macedonia" - ], - [ - "304", - "Candice", - "Decker", - "E5R 2D4", - "China" - ], - [ - "305", - "Armando", - "Bridges", - "87959", - "Falkland Islands (Malvinas)" - ], - [ - "306", - "Clayton", - "Whitley", - "Q6O 4M7", - "British Indian Ocean Territory" - ], - [ - "307", - "Driscoll", - "Duncan", - "M2J 9V5", - "Argentina" - ], - [ - "308", - "Devin", - "Stafford", - "L8F 2V7", - "Svalbard and Jan Mayen" - ], - [ - "309", - "Bell", - "York", - "E5B 7X5", - "Lebanon" - ], - [ - "310", - "Haley", - "Becker", - "19759", - "Bhutan" - ], - [ - "311", - "Chava", - "Santiago", - "04396", - "Israel" - ], - [ - "312", - "David", - "Mccall", - "62087", - "Norfolk Island" - ], - [ - "313", - "Clinton", - "Jacobson", - "06168", - "Guam" - ], - [ - "314", - "Melvin", - "Kaufman", - "C4E 9N6", - "Gambia" - ], - [ - "315", - "Dai", - "Shepherd", - "37490", - "Saudi Arabia" - ], - [ - "316", - "Zahir", - "Chase", - "44340", - "Turkey" - ], - [ - "317", - "Leilani", - "Parrish", - "62576", - "Cocos (Keeling) Islands" - ], - [ - "318", - "Oleg", - "Wilkins", - "Z7S 8Z4", - "Latvia" - ], - [ - "319", - "Pearl", - "Pena", - "82526", - "Saudi Arabia" - ], - [ - "320", - "Kelly", - "Moody", - "W7U 5Y3", - "Burundi" - ], - [ - "321", - "Marcia", - "Kennedy", - "85952", - "Panama" - ], - [ - "322", - "Cailin", - "Burnett", - "M2Z 3L5", - "Guyana" - ], - [ - "323", - "Ciara", - "Small", - "X6C 6M6", - "Tanzania, United Republic of" - ], - [ - "324", - "Lillian", - "Massey", - "Z8A 5U5", - "Algeria" - ], - [ - "325", - "Garrett", - "Elliott", - "R5P 6T0", - "Canada" - ], - [ - "326", - "Inga", - "Daniels", - "40156", - "Cocos (Keeling) Islands" - ], - [ - "327", - "Barry", - "Pena", - "03593", - "Tonga" - ], - [ - "328", - "Penelope", - "Mcintyre", - "29293", - "Burkina Faso" - ], - [ - "329", - "Dante", - "Kirk", - "74038", - "Lesotho" - ], - [ - "330", - "Owen", - "Cole", - "17968", - "Rwanda" - ], - [ - "331", - "Brittany", - "Edwards", - "24507", - "Paraguay" - ], - [ - "332", - "Zeph", - "Bentley", - "12000", - "Guam" - ], - [ - "333", - "Ruth", - "Palmer", - "E8V 9A5", - "Ghana" - ], - [ - "334", - "Driscoll", - "Ellis", - "X1X 2N5", - "Angola" - ], - [ - "335", - "Mohammad", - "Guerra", - "Y9N 3Y5", - "Mongolia" - ], - [ - "336", - "Clio", - "Baldwin", - "67557", - "Morocco" - ], - [ - "337", - "Virginia", - "Duncan", - "J8D 4T2", - "Haiti" - ], - [ - "338", - "Dieter", - "Sanchez", - "H7E 2H4", - "Romania" - ], - [ - "339", - "Quinn", - "Hurst", - "K4E 2X6", - "Reunion" - ], - [ - "340", - "Coby", - "Kelly", - "S1H 8N0", - "Equatorial Guinea" - ], - [ - "341", - "Raja", - "Solis", - "S5G 9T5", - "Grenada" - ], - [ - "342", - "Jordan", - "Riddle", - "J7M 5X3", - "Svalbard and Jan Mayen" - ], - [ - "343", - "Dora", - "Knox", - "25054", - "Libyan Arab Jamahiriya" - ], - [ - "344", - "Brendan", - "Reilly", - "U9U 3F7", - "Armenia" - ], - [ - "345", - "Melyssa", - "Reyes", - "11285", - "Viet Nam" - ], - [ - "346", - "Knox", - "Rivera", - "N8Z 7J0", - "Nepal" - ], - [ - "347", - "Quynn", - "Irwin", - "26524", - "Chile" - ], - [ - "348", - "Colin", - "Coleman", - "22833", - "United Arab Emirates" - ], - [ - "349", - "Sybil", - "Delgado", - "99947", - "Belize" - ], - [ - "350", - "Macaulay", - "Salinas", - "48521", - "Heard Island and Mcdonald Islands" - ], - [ - "351", - "Garrison", - "Hogan", - "68950", - "India" - ], - [ - "352", - "Ronan", - "Guerra", - "55445", - "Angola" - ], - [ - "353", - "Regina", - "Andrews", - "H3E 3T0", - "Central African Republic" - ], - [ - "354", - "Colorado", - "Joyce", - "V6X 5K8", - "Anguilla" - ], - [ - "355", - "Basia", - "Banks", - "85049", - "Grenada" - ], - [ - "356", - "Adena", - "Berg", - "04135", - "New Caledonia" - ], - [ - "357", - "Wade", - "Richardson", - "C8M 9J3", - "Dominican Republic" - ], - [ - "358", - "Cody", - "Montoya", - "22018", - "Solomon Islands" - ], - [ - "359", - "Faith", - "Barnett", - "61475", - "China" - ], - [ - "360", - "Cody", - "Witt", - "C8I 2Q8", - "Congo" - ], - [ - "361", - "Brenden", - "Carlson", - "74007", - "Marshall Islands" - ], - [ - "362", - "Gil", - "Brooks", - "U4S 5N1", - "Saint Vincent and The Grenadines" - ], - [ - "363", - "Kirestin", - "Watts", - "H8I 1D5", - "Myanmar" - ], - [ - "364", - "Amelia", - "Gilliam", - "11461", - "Chile" - ], - [ - "365", - "Noelani", - "Rhodes", - "83320", - "Cuba" - ], - [ - "366", - "Len", - "Trevino", - "W9F 2U5", - "Armenia" - ], - [ - "367", - "Galvin", - "Middleton", - "86707", - "Thailand" - ], - [ - "368", - "Germaine", - "Bridges", - "90283", - "Japan" - ], - [ - "369", - "Rose", - "Hines", - "W7L 7Q6", - "Congo" - ], - [ - "370", - "Hop", - "Mueller", - "I3E 2X8", - "Angola" - ], - [ - "371", - "Iliana", - "Williamson", - "56758", - "Lebanon" - ], - [ - "372", - "Raja", - "Price", - "49603", - "Armenia" - ], - [ - "373", - "Jeanette", - "Hatfield", - "E3K 5N5", - "India" - ], - [ - "374", - "Brittany", - "Christensen", - "04750", - "Uruguay" - ], - [ - "375", - "Inga", - "Prince", - "D4X 6J5", - "Switzerland" - ], - [ - "376", - "Cherokee", - "Ballard", - "U1O 1M0", - "Rwanda" - ], - [ - "377", - "Deirdre", - "Watson", - "46983", - "Sri Lanka" - ], - [ - "378", - "Amanda", - "Parrish", - "99838", - "Hong Kong" - ], - [ - "379", - "Leo", - "Shannon", - "L3N 3J0", - "Brunei Darussalam" - ], - [ - "380", - "Kimberly", - "Clemons", - "88734", - "South Africa" - ], - [ - "381", - "Seth", - "Langley", - "D6A 1Q9", - "Guyana" - ], - [ - "382", - "Carol", - "Blankenship", - "X5N 2A7", - "Angola" - ], - [ - "383", - "Dora", - "Flores", - "F8F 1O5", - "Poland" - ], - [ - "384", - "Chava", - "Dickson", - "P8B 6W6", - "Comoros" - ], - [ - "385", - "Trevor", - "Mcdowell", - "31382", - "Solomon Islands" - ], - [ - "386", - "Alec", - "Valentine", - "P2R 4K7", - "Greenland" - ], - [ - "387", - "Philip", - "Jenkins", - "Q7X 5U5", - "Aruba" - ], - [ - "388", - "Kim", - "Bowen", - "69873", - "Saint Kitts and Nevis" - ], - [ - "389", - "Allegra", - "Oconnor", - "X3Y 1X3", - "Holy See (Vatican City State)" - ], - [ - "390", - "Daria", - "Briggs", - "A7Z 7P4", - "Serbia and Montenegro" - ], - [ - "391", - "Amelia", - "Wiley", - "D4S 1G5", - "Montserrat" - ], - [ - "392", - "Erica", - "Aguirre", - "H5L 2O3", - "Andorra" - ], - [ - "393", - "Kibo", - "Sawyer", - "30638", - "Guyana" - ], - [ - "394", - "Jackson", - "Meyers", - "P4N 9D6", - "Bangladesh" - ], - [ - "395", - "Kirk", - "Baxter", - "F3M 7S6", - "Estonia" - ], - [ - "396", - "Sybil", - "Christian", - "B3Q 2X0", - "South Georgia and The South Sandwich Islands" - ], - [ - "397", - "Ina", - "Mercer", - "N4S 1K8", - "Korea" - ], - [ - "398", - "Kiara", - "Whitehead", - "86023", - "Nicaragua" - ], - [ - "399", - "Vielka", - "Hays", - "29845", - "Malta" - ], - [ - "400", - "Stacey", - "Carlson", - "53218", - "Cook Islands" - ], - [ - "401", - "Selma", - "Lloyd", - "78256", - "Turkey" - ], - [ - "402", - "Rhoda", - "Mcintosh", - "G8X 1C8", - "Guatemala" - ], - [ - "403", - "Teagan", - "Ochoa", - "99752", - "Barbados" - ], - [ - "404", - "Rebecca", - "Carver", - "82661", - "Saint Kitts and Nevis" - ], - [ - "405", - "Yael", - "Woodward", - "66095", - "Niger" - ], - [ - "406", - "Calvin", - "Huffman", - "82172", - "Somalia" - ], - [ - "407", - "Sopoline", - "Walters", - "K5L 3I7", - "Spain" - ], - [ - "408", - "Hollee", - "Powell", - "05572", - "Samoa" - ], - [ - "409", - "Fiona", - "Frank", - "74456", - "Timor-leste" - ], - [ - "410", - "Alana", - "Hubbard", - "76011", - "Lithuania" - ], - [ - "411", - "Lillian", - "Garcia", - "J5Z 2O5", - "Sierra Leone" - ], - [ - "412", - "Tad", - "Mcleod", - "B6A 8Z4", - "Australia" - ], - [ - "413", - "Hadassah", - "Hall", - "47417", - "China" - ], - [ - "414", - "Regan", - "Summers", - "X4L 4I6", - "Honduras" - ], - [ - "415", - "Herrod", - "Erickson", - "R8G 3V0", - "Israel" - ], - [ - "416", - "Autumn", - "Rojas", - "31205", - "Cocos (Keeling) Islands" - ], - [ - "417", - "Castor", - "Mooney", - "92737", - "Grenada" - ], - [ - "418", - "Wesley", - "Holman", - "57125", - "Greenland" - ], - [ - "419", - "Kitra", - "Wooten", - "Q6X 4Y0", - "Mongolia" - ], - [ - "420", - "Buckminster", - "Rice", - "U8B 7B8", - "Tokelau" - ], - [ - "421", - "Xavier", - "Hardin", - "18280", - "Iran, Islamic Republic of" - ], - [ - "422", - "Sopoline", - "Fleming", - "78437", - "Singapore" - ], - [ - "423", - "Sydney", - "Salinas", - "23801", - "Cook Islands" - ], - [ - "424", - "Bethany", - "Rosales", - "89650", - "United States" - ], - [ - "425", - "Deirdre", - "Hensley", - "F3X 1B7", - "Micronesia" - ], - [ - "426", - "Bernard", - "Vargas", - "S4D 9T0", - "Uzbekistan" - ], - [ - "427", - "Merrill", - "Compton", - "17713", - "Suriname" - ], - [ - "428", - "Carly", - "Baird", - "D3H 5G3", - "United States Minor Outlying Islands" - ], - [ - "429", - "Grace", - "Phelps", - "64695", - "Nauru" - ], - [ - "430", - "Kareem", - "Stone", - "65572", - "Netherlands" - ], - [ - "431", - "Susan", - "Newton", - "04627", - "Anguilla" - ], - [ - "432", - "Laura", - "Miranda", - "E1G 2R7", - "Finland" - ], - [ - "433", - "Madaline", - "Pugh", - "J9A 9M5", - "Senegal" - ], - [ - "434", - "Sophia", - "Mendez", - "33789", - "Timor-leste" - ], - [ - "435", - "Roary", - "Greene", - "61774", - "Canada" - ], - [ - "436", - "Amos", - "Gilliam", - "94933", - "Sri Lanka" - ], - [ - "437", - "Ivory", - "Joyner", - "15379", - "San Marino" - ], - [ - "438", - "Jorden", - "Robbins", - "43400", - "Russian Federation" - ], - [ - "439", - "Merritt", - "Holcomb", - "R1I 3C7", - "Brazil" - ], - [ - "440", - "Iliana", - "Johnston", - "U9W 8N2", - "Trinidad and Tobago" - ], - [ - "441", - "Ivana", - "Patterson", - "G5O 6A5", - "Georgia" - ], - [ - "442", - "Sydney", - "Mccullough", - "W9M 2H5", - "American Samoa" - ], - [ - "443", - "Alvin", - "Fulton", - "X8A 8R5", - "Antigua and Barbuda" - ], - [ - "444", - "Alfreda", - "Lopez", - "42499", - "Montserrat" - ], - [ - "445", - "Ethan", - "Bird", - "W9A 8M1", - "British Indian Ocean Territory" - ], - [ - "446", - "Zeus", - "Logan", - "01682", - "San Marino" - ], - [ - "447", - "Nehru", - "Andrews", - "W8J 3C8", - "Dominican Republic" - ], - [ - "448", - "Donna", - "Booth", - "64754", - "Nepal" - ], - [ - "449", - "Cruz", - "Bruce", - "17429", - "Burundi" - ], - [ - "450", - "Ronan", - "Saunders", - "69957", - "South Africa" - ], - [ - "451", - "Jordan", - "Barnes", - "D8K 9L8", - "Dominica" - ], - [ - "452", - "Carly", - "Love", - "D8Z 3P4", - "Mauritania" - ], - [ - "453", - "Mari", - "George", - "60260", - "Japan" - ], - [ - "454", - "Karly", - "Hodges", - "15790", - "South Georgia and The South Sandwich Islands" - ], - [ - "455", - "Rana", - "Logan", - "M1R 6Y6", - "Bosnia and Herzegovina" - ], - [ - "456", - "Theodore", - "Sims", - "C7A 8T2", - "Barbados" - ], - [ - "457", - "Quin", - "Thompson", - "26884", - "Bouvet Island" - ], - [ - "458", - "Kimberley", - "Sloan", - "S5T 8E3", - "Costa Rica" - ], - [ - "459", - "Upton", - "Valenzuela", - "Z6J 6Q1", - "Macao" - ], - [ - "460", - "Clinton", - "Williams", - "Z3O 7C4", - "Germany" - ], - [ - "461", - "Samson", - "Mathis", - "G1T 1V9", - "Senegal" - ], - [ - "462", - "Michelle", - "Frost", - "87113", - "Serbia and Montenegro" - ], - [ - "463", - "Tyrone", - "Coffey", - "80705", - "Albania" - ], - [ - "464", - "Alea", - "Delaney", - "E4S 4K4", - "Guyana" - ], - [ - "465", - "Dominique", - "Schwartz", - "81368", - "Falkland Islands (Malvinas)" - ], - [ - "466", - "Benedict", - "Norton", - "D1C 9C8", - "Cyprus" - ], - [ - "467", - "Vaughan", - "Stein", - "R7K 1L8", - "Egypt" - ], - [ - "468", - "Charles", - "Foley", - "20434", - "Anguilla" - ], - [ - "469", - "Arden", - "Ramos", - "54065", - "Gibraltar" - ], - [ - "470", - "Dillon", - "Patel", - "L6H 1H6", - "Liberia" - ], - [ - "471", - "Gretchen", - "Davenport", - "57188", - "Equatorial Guinea" - ], - [ - "472", - "Ivy", - "Randall", - "52617", - "Costa Rica" - ], - [ - "473", - "Brett", - "Baird", - "45791", - "Hungary" - ], - [ - "474", - "Wyoming", - "Sparks", - "11266", - "Luxembourg" - ], - [ - "475", - "Rashad", - "Roy", - "47012", - "Guam" - ], - [ - "476", - "Sopoline", - "Le", - "M1G 2P8", - "United Arab Emirates" - ], - [ - "477", - "Ursa", - "Haynes", - "53774", - "British Indian Ocean Territory" - ], - [ - "478", - "Maia", - "Vincent", - "26773", - "New Caledonia" - ], - [ - "479", - "Salvador", - "Pace", - "S9E 2C4", - "Egypt" - ], - [ - "480", - "Bethany", - "Wilcox", - "F2H 7N0", - "Uzbekistan" - ], - [ - "481", - "Sara", - "Brooks", - "08176", - "Holy See (Vatican City State)" - ], - [ - "482", - "Lillith", - "Sampson", - "75576", - "British Indian Ocean Territory" - ], - [ - "483", - "Brynne", - "Browning", - "N4K 7P6", - "Peru" - ], - [ - "484", - "Beck", - "Tran", - "06815", - "Cambodia" - ], - [ - "485", - "Peter", - "Hurley", - "05770", - "Rwanda" - ], - [ - "486", - "Buffy", - "Sharpe", - "H8F 8G6", - "Georgia" - ], - [ - "487", - "Harrison", - "Cross", - "Y1A 1R8", - "United Kingdom" - ], - [ - "488", - "Ursa", - "Wolf", - "J8C 9Q8", - "French Polynesia" - ], - [ - "489", - "Nayda", - "Vasquez", - "05523", - "Taiwan, Province of China" - ], - [ - "490", - "Gretchen", - "Walters", - "28628", - "Seychelles" - ], - [ - "491", - "Adrian", - "Hickman", - "17956", - "El Salvador" - ], - [ - "492", - "Laura", - "Moon", - "32103", - "Myanmar" - ], - [ - "493", - "Kellie", - "Barnett", - "L5Z 2U8", - "Saint Helena" - ], - [ - "494", - "Illana", - "Stanton", - "Z5D 2G0", - "Australia" - ], - [ - "495", - "Jescie", - "Santiago", - "D9L 4B5", - "Cambodia" - ], - [ - "496", - "Laura", - "Hopkins", - "X6V 9S5", - "Netherlands Antilles" - ], - [ - "497", - "Vielka", - "Harding", - "U6A 9T2", - "Cambodia" - ], - [ - "498", - "Walter", - "Gentry", - "L3X 9Q9", - "Slovenia" - ], - [ - "499", - "Sara", - "Atkinson", - "67146", - "Guinea" - ], - [ - "500", - "Yolanda", - "Chambers", - "Q8D 3W0", - "Zimbabwe" - ], - [ - "501", - "Josiah", - "Villarreal", - "I1V 6Y7", - "Burkina Faso" - ], - [ - "502", - "Hayfa", - "Bowman", - "77148", - "Saudi Arabia" - ], - [ - "503", - "Colette", - "Conley", - "41232", - "Estonia" - ], - [ - "504", - "Lana", - "Doyle", - "32962", - "Cuba" - ], - [ - "505", - "Keegan", - "Goodwin", - "M2P 1X3", - "Cocos (Keeling) Islands" - ], - [ - "506", - "Nina", - "Cross", - "49580", - "Germany" - ], - [ - "507", - "Xenos", - "Cervantes", - "K6X 7W8", - "Mauritius" - ], - [ - "508", - "Jared", - "Hester", - "30156", - "Uzbekistan" - ], - [ - "509", - "Damon", - "Curry", - "U2J 2D8", - "Pitcairn" - ], - [ - "510", - "Amery", - "Savage", - "O1S 2Z4", - "Turkmenistan" - ], - [ - "511", - "Brian", - "Wilkinson", - "J6O 4T0", - "Luxembourg" - ], - [ - "512", - "Ivory", - "Mckinney", - "L3E 8M2", - "Lithuania" - ], - [ - "513", - "Eric", - "Dalton", - "Y1L 6F4", - "Ethiopia" - ], - [ - "514", - "Brandon", - "Callahan", - "K6Q 9B4", - "Haiti" - ], - [ - "515", - "Phillip", - "Mclean", - "18836", - "Ethiopia" - ], - [ - "516", - "Carly", - "Greer", - "16811", - "Mayotte" - ], - [ - "517", - "Stone", - "Ware", - "58795", - "Moldova" - ], - [ - "518", - "Xena", - "Hayden", - "97158", - "Chad" - ], - [ - "519", - "Catherine", - "Leonard", - "77868", - "Azerbaijan" - ], - [ - "520", - "Bernard", - "Horton", - "04270", - "Yemen" - ], - [ - "521", - "Olga", - "Richmond", - "89169", - "Lebanon" - ], - [ - "522", - "Iris", - "Cummings", - "78836", - "Falkland Islands (Malvinas)" - ], - [ - "523", - "Beau", - "Mccall", - "78638", - "Monaco" - ], - [ - "524", - "Michael", - "Humphrey", - "Q1A 2W9", - "Tokelau" - ], - [ - "525", - "Oren", - "Stevens", - "F4V 9G7", - "Heard Island and Mcdonald Islands" - ], - [ - "526", - "Ima", - "Shelton", - "19295", - "Mozambique" - ], - [ - "527", - "Merritt", - "Morrison", - "K6W 5R0", - "Georgia" - ], - [ - "528", - "Vera", - "Cherry", - "54993", - "Angola" - ], - [ - "529", - "Grant", - "Turner", - "B4V 2J0", - "Saint Helena" - ], - [ - "530", - "Odette", - "Snyder", - "N9L 2V8", - "Chad" - ], - [ - "531", - "Uma", - "Stewart", - "E9A 6X9", - "Bhutan" - ], - [ - "532", - "Kylee", - "Best", - "11393", - "Malaysia" - ], - [ - "533", - "Nicholas", - "Mercado", - "85179", - "Switzerland" - ], - [ - "534", - "Nathaniel", - "Stuart", - "M1Q 6Z6", - "Mongolia" - ], - [ - "535", - "Ruth", - "Conrad", - "T7G 9V6", - "Guadeloupe" - ], - [ - "536", - "Deanna", - "Dudley", - "79721", - "Kiribati" - ], - [ - "537", - "David", - "Thornton", - "C6R 2G3", - "Netherlands Antilles" - ], - [ - "538", - "Jane", - "Ashley", - "48711", - "Rwanda" - ], - [ - "539", - "Nero", - "Curry", - "20590", - "Denmark" - ], - [ - "540", - "Kellie", - "Poole", - "46053", - "Martinique" - ], - [ - "541", - "Freya", - "Burch", - "W5R 8Y5", - "Northern Mariana Islands" - ], - [ - "542", - "Maxwell", - "Mcbride", - "D4W 4M3", - "Paraguay" - ], - [ - "543", - "Dawn", - "Sargent", - "85956", - "Gibraltar" - ], - [ - "544", - "Lilah", - "Matthews", - "J4D 8A9", - "Montserrat" - ], - [ - "545", - "Salvador", - "Burns", - "28067", - "Bhutan" - ], - [ - "546", - "Ezekiel", - "Ayala", - "67153", - "Wallis and Futuna" - ], - [ - "547", - "Evan", - "Barker", - "83026", - "Puerto Rico" - ], - [ - "548", - "Jemima", - "Case", - "U3S 7N6", - "Georgia" - ], - [ - "549", - "Belle", - "Mcconnell", - "H4S 9F8", - "Angola" - ], - [ - "550", - "Doris", - "Mays", - "57387", - "Tonga" - ], - [ - "551", - "Carson", - "Buchanan", - "20457", - "Guatemala" - ], - [ - "552", - "Calista", - "Lamb", - "26851", - "Gibraltar" - ], - [ - "553", - "Remedios", - "Haley", - "A9K 5M1", - "Tokelau" - ], - [ - "554", - "Odette", - "Mccarty", - "Y8B 3V4", - "Marshall Islands" - ], - [ - "555", - "Libby", - "Pugh", - "93261", - "Netherlands" - ], - [ - "556", - "Bo", - "Maldonado", - "C1H 1K7", - "Oman" - ], - [ - "557", - "Cameron", - "Beasley", - "41821", - "Northern Mariana Islands" - ], - [ - "558", - "Chadwick", - "Crosby", - "62855", - "New Caledonia" - ], - [ - "559", - "Steven", - "Barrett", - "92102", - "Pakistan" - ], - [ - "560", - "Jonas", - "Valdez", - "N3V 4R9", - "Bulgaria" - ], - [ - "561", - "Harlan", - "Larsen", - "Z8F 6A0", - "Cayman Islands" - ], - [ - "562", - "Iola", - "Joyner", - "D1J 4C3", - "Italy" - ], - [ - "563", - "Abra", - "Medina", - "Q9O 5J2", - "Cambodia" - ], - [ - "564", - "Solomon", - "Davidson", - "91317", - "Turkmenistan" - ], - [ - "565", - "Alisa", - "Kim", - "33036", - "Austria" - ], - [ - "566", - "Deacon", - "Silva", - "Z5L 6M0", - "Djibouti" - ], - [ - "567", - "Bree", - "Landry", - "43135", - "Czech Republic" - ], - [ - "568", - "Molly", - "Leach", - "71714", - "Botswana" - ], - [ - "569", - "Idona", - "Cain", - "A2J 1R8", - "South Georgia and The South Sandwich Islands" - ], - [ - "570", - "Aileen", - "Salinas", - "90344", - "Uzbekistan" - ], - [ - "571", - "Dominique", - "Cooper", - "31803", - "Sao Tome and Principe" - ], - [ - "572", - "Lunea", - "Pollard", - "S9R 7B0", - "Sweden" - ], - [ - "573", - "Leo", - "Combs", - "W7E 8T4", - "Ukraine" - ], - [ - "574", - "Illiana", - "Donovan", - "D8K 3R4", - "Palau" - ], - [ - "575", - "Orlando", - "Vaughan", - "Q4I 3E3", - "Bosnia and Herzegovina" - ], - [ - "576", - "Yuri", - "Blake", - "I9W 5U5", - "Seychelles" - ], - [ - "577", - "Amanda", - "Baldwin", - "19752", - "Turkmenistan" - ], - [ - "578", - "Hanna", - "Emerson", - "73316", - "Antigua and Barbuda" - ], - [ - "579", - "Xyla", - "Atkins", - "11151", - "Uganda" - ], - [ - "580", - "Nathaniel", - "Patterson", - "00391", - "Portugal" - ], - [ - "581", - "Naida", - "Cote", - "17484", - "Mauritius" - ], - [ - "582", - "Scarlett", - "Little", - "V8N 8A6", - "Sao Tome and Principe" - ], - [ - "583", - "Odessa", - "Kerr", - "56456", - "Sweden" - ], - [ - "584", - "Kamal", - "Richardson", - "F6S 4I1", - "Algeria" - ], - [ - "585", - "Griffith", - "Morton", - "I5H 2Z0", - "Vanuatu" - ], - [ - "586", - "Orli", - "Santana", - "48213", - "Burundi" - ], - [ - "587", - "Courtney", - "Cook", - "R3O 3A9", - "Cape Verde" - ], - [ - "588", - "Jolene", - "Wallace", - "F6Q 7W8", - "Zambia" - ], - [ - "589", - "Bert", - "Sharp", - "X7T 7Z8", - "Paraguay" - ], - [ - "590", - "Ila", - "Carver", - "E4M 7P4", - "Paraguay" - ], - [ - "591", - "Merrill", - "Wall", - "49416", - "Fiji" - ], - [ - "592", - "Hanae", - "Espinoza", - "Y6D 6K8", - "Turkey" - ], - [ - "593", - "Stephanie", - "Bond", - "Z1Q 3P3", - "Algeria" - ], - [ - "594", - "Lionel", - "Leonard", - "U8O 7G6", - "Nauru" - ], - [ - "595", - "Faith", - "Ramirez", - "75181", - "Slovakia" - ], - [ - "596", - "Fritz", - "Glass", - "62878", - "El Salvador" - ], - [ - "597", - "Raya", - "Gardner", - "L3E 2C7", - "India" - ], - [ - "598", - "Brynne", - "Price", - "W1S 6O9", - "Lithuania" - ], - [ - "599", - "Karen", - "Gray", - "O4X 8F6", - "Albania" - ], - [ - "600", - "Perry", - "Goodwin", - "44266", - "Libyan Arab Jamahiriya" - ], - [ - "601", - "Dylan", - "Glover", - "76573", - "Estonia" - ], - [ - "602", - "Melinda", - "Holloway", - "07861", - "Grenada" - ], - [ - "603", - "Rahim", - "Robinson", - "D7M 1E8", - "Madagascar" - ], - [ - "604", - "Ori", - "Oconnor", - "10386", - "Antarctica" - ], - [ - "605", - "Candace", - "Preston", - "03610", - "Denmark" - ], - [ - "606", - "Wing", - "Howe", - "E6U 3H2", - "Burundi" - ], - [ - "607", - "Lucy", - "Eaton", - "26436", - "Guinea" - ], - [ - "608", - "Ignatius", - "Blevins", - "93597", - "Serbia and Montenegro" - ], - [ - "609", - "Nadine", - "Franco", - "80096", - "Tonga" - ], - [ - "610", - "Shoshana", - "Walters", - "S4F 5O8", - "Micronesia" - ], - [ - "611", - "Remedios", - "Buckner", - "29213", - "Antigua and Barbuda" - ], - [ - "612", - "Adam", - "Horne", - "F8V 1V8", - "Oman" - ], - [ - "613", - "Kieran", - "Saunders", - "I7A 7Y5", - "Japan" - ], - [ - "614", - "Isabelle", - "Fletcher", - "K2K 3K5", - "Norway" - ], - [ - "615", - "Ryder", - "Ballard", - "38518", - "Tanzania, United Republic of" - ], - [ - "616", - "Nina", - "Guerrero", - "61142", - "Saint Kitts and Nevis" - ], - [ - "617", - "Sheila", - "Poole", - "E2H 6I6", - "Denmark" - ], - [ - "618", - "Melyssa", - "Mcdaniel", - "08247", - "Netherlands Antilles" - ], - [ - "619", - "Leila", - "Vang", - "Q5Z 3S1", - "United States Minor Outlying Islands" - ], - [ - "620", - "Grady", - "Aguilar", - "R1I 8I8", - "Slovenia" - ], - [ - "621", - "Plato", - "Terrell", - "23916", - "Kuwait" - ], - [ - "622", - "Rama", - "Perkins", - "56506", - "Russian Federation" - ], - [ - "623", - "Boris", - "Chaney", - "66737", - "Antigua and Barbuda" - ], - [ - "624", - "Edward", - "Clarke", - "30722", - "Iraq" - ], - [ - "625", - "Skyler", - "Wise", - "53248", - "Taiwan, Province of China" - ], - [ - "626", - "Uta", - "Cox", - "85242", - "Malawi" - ], - [ - "627", - "Lesley", - "Watkins", - "26710", - "Estonia" - ], - [ - "628", - "Gray", - "Harrison", - "C5L 9Y7", - "Nepal" - ], - [ - "629", - "Joan", - "Flores", - "J5Q 2B9", - "Tajikistan" - ], - [ - "630", - "Reece", - "Lott", - "85152", - "Algeria" - ], - [ - "631", - "Jerome", - "Faulkner", - "V1K 3N2", - "Kiribati" - ], - [ - "632", - "Jackson", - "Hudson", - "85932", - "Botswana" - ], - [ - "633", - "Uma", - "Booker", - "79755", - "Senegal" - ], - [ - "634", - "Katelyn", - "Gillespie", - "Q8P 4V9", - "Eritrea" - ], - [ - "635", - "Clio", - "Tillman", - "67552", - "Liberia" - ], - [ - "636", - "Anjolie", - "Nixon", - "36615", - "Botswana" - ], - [ - "637", - "Nell", - "Lee", - "T9S 4R3", - "French Southern Territories" - ], - [ - "638", - "Anthony", - "Aguirre", - "85443", - "Morocco" - ], - [ - "639", - "Aaron", - "Green", - "90326", - "Faroe Islands" - ], - [ - "640", - "Galvin", - "Yang", - "A4X 8H6", - "Ukraine" - ], - [ - "641", - "Yoshi", - "Strickland", - "52538", - "Brazil" - ], - [ - "642", - "Brenden", - "Kirkland", - "X7P 8V9", - "Turks and Caicos Islands" - ], - [ - "643", - "Bree", - "Stone", - "U4L 2H2", - "Hong Kong" - ], - [ - "644", - "Quin", - "Tanner", - "U4A 1X4", - "Faroe Islands" - ], - [ - "645", - "Camilla", - "Heath", - "91749", - "Andorra" - ], - [ - "646", - "Xaviera", - "Bullock", - "I4U 7W0", - "Libyan Arab Jamahiriya" - ], - [ - "647", - "Kay", - "Rowe", - "59689", - "Iceland" - ], - [ - "648", - "Lance", - "Bond", - "66558", - "Spain" - ], - [ - "649", - "Fredericka", - "Langley", - "48782", - "Cayman Islands" - ], - [ - "650", - "Charles", - "Avila", - "42037", - "Papua New Guinea" - ], - [ - "651", - "Ramona", - "Rios", - "T5M 3E1", - "Argentina" - ], - [ - "652", - "Ezekiel", - "Young", - "W8X 4S7", - "French Polynesia" - ], - [ - "653", - "Celeste", - "Dodson", - "19140", - "Benin" - ], - [ - "654", - "Frances", - "Mcintosh", - "91246", - "Swaziland" - ], - [ - "655", - "Deanna", - "Hyde", - "J8P 3T5", - "Croatia" - ], - [ - "656", - "Dahlia", - "Blair", - "45364", - "Kazakhstan" - ], - [ - "657", - "Jade", - "Hayes", - "I5Q 3S9", - "Malawi" - ], - [ - "658", - "Robin", - "Bullock", - "G9Q 2P8", - "Ireland" - ], - [ - "659", - "Nasim", - "Bond", - "I2V 8N4", - "Macedonia" - ], - [ - "660", - "Axel", - "Pickett", - "18370", - "Saint Vincent and The Grenadines" - ], - [ - "661", - "Pearl", - "Lee", - "G1R 3R8", - "Poland" - ], - [ - "662", - "Garth", - "Meyers", - "90308", - "Georgia" - ], - [ - "663", - "Ivory", - "Rios", - "S8F 8R5", - "Mexico" - ], - [ - "664", - "Jerome", - "Lambert", - "N1Q 6R8", - "Saint Lucia" - ], - [ - "665", - "Meredith", - "Clark", - "27720", - "Cocos (Keeling) Islands" - ], - [ - "666", - "Armando", - "Holcomb", - "M6D 4X0", - "Oman" - ], - [ - "667", - "Rowan", - "Page", - "00307", - "Nauru" - ], - [ - "668", - "Kyla", - "Brown", - "F4W 4C5", - "Holy See (Vatican City State)" - ], - [ - "669", - "Leigh", - "Sosa", - "28499", - "Uruguay" - ], - [ - "670", - "Shafira", - "Forbes", - "26526", - "Honduras" - ], - [ - "671", - "Maxine", - "Mueller", - "90923", - "Kazakhstan" - ], - [ - "672", - "Joy", - "Sargent", - "K6T 3W5", - "Malawi" - ], - [ - "673", - "Lamar", - "Roberts", - "R5F 9C8", - "Poland" - ], - [ - "674", - "Madonna", - "Love", - "15514", - "Cyprus" - ], - [ - "675", - "Uriel", - "Ware", - "Z6V 5J1", - "Singapore" - ], - [ - "676", - "Bevis", - "Erickson", - "M3X 9M8", - "Brunei Darussalam" - ], - [ - "677", - "Grant", - "Velasquez", - "96942", - "Antarctica" - ], - [ - "678", - "Lars", - "Bullock", - "14772", - "Guyana" - ], - [ - "679", - "Maryam", - "Jones", - "01854", - "Togo" - ], - [ - "680", - "Blythe", - "Goodwin", - "51731", - "New Caledonia" - ], - [ - "681", - "Kane", - "Wiggins", - "55727", - "Kiribati" - ], - [ - "682", - "Brian", - "Rosales", - "25896", - "Cape Verde" - ], - [ - "683", - "Blaze", - "Leach", - "P6J 3E5", - "Northern Mariana Islands" - ], - [ - "684", - "Cameron", - "Neal", - "82248", - "Marshall Islands" - ], - [ - "685", - "Lydia", - "Cunningham", - "Q1V 8P7", - "San Marino" - ], - [ - "686", - "Troy", - "Cook", - "32106", - "British Indian Ocean Territory" - ], - [ - "687", - "Alexander", - "Valenzuela", - "S8Z 6B2", - "Guadeloupe" - ], - [ - "688", - "Garth", - "Beck", - "46344", - "Cook Islands" - ], - [ - "689", - "Hillary", - "Nunez", - "29462", - "Sri Lanka" - ], - [ - "690", - "Hunter", - "Sawyer", - "W9M 6T4", - "Saint Lucia" - ], - [ - "691", - "Jaquelyn", - "Everett", - "T1X 2U2", - "Guinea-bissau" - ], - [ - "692", - "Indira", - "Ortega", - "43047", - "Italy" - ], - [ - "693", - "Josiah", - "Hinton", - "N5F 5Y8", - "Andorra" - ], - [ - "694", - "Bruno", - "Gay", - "E3U 3D9", - "Palau" - ], - [ - "695", - "Melissa", - "Blackburn", - "S4V 1K2", - "Virgin Islands, U.S." - ], - [ - "696", - "Zeus", - "Dawson", - "K5S 6Z6", - "Belgium" - ], - [ - "697", - "Castor", - "Mcmahon", - "H3R 1O8", - "Cambodia" - ], - [ - "698", - "Elizabeth", - "Beasley", - "98178", - "Northern Mariana Islands" - ], - [ - "699", - "Jescie", - "Lee", - "08056", - "Eritrea" - ], - [ - "700", - "Dennis", - "Chapman", - "T4O 1Q2", - "Bangladesh" - ], - [ - "701", - "Basia", - "Wallace", - "U3Y 7C1", - "Pitcairn" - ], - [ - "702", - "Dante", - "Brewer", - "53544", - "Bosnia and Herzegovina" - ], - [ - "703", - "Adrienne", - "Glenn", - "32378", - "Austria" - ], - [ - "704", - "Kellie", - "Acevedo", - "51723", - "Italy" - ], - [ - "705", - "Scarlet", - "Mclaughlin", - "43509", - "Kiribati" - ], - [ - "706", - "Lillith", - "Mullins", - "S6L 4Y6", - "Kyrgyzstan" - ], - [ - "707", - "Maxine", - "Atkins", - "Z5T 5R5", - "Denmark" - ], - [ - "708", - "Nicholas", - "Rose", - "40286", - "Macedonia" - ], - [ - "709", - "Zenia", - "Pugh", - "28682", - "Venezuela" - ], - [ - "710", - "Keely", - "Turner", - "34939", - "New Zealand" - ], - [ - "711", - "Maisie", - "Walton", - "S6M 5C5", - "Cameroon" - ], - [ - "712", - "Michelle", - "Salinas", - "T7A 9N6", - "Nicaragua" - ], - [ - "713", - "Reece", - "Clements", - "73923", - "Austria" - ], - [ - "714", - "Eliana", - "Fox", - "V3Y 5T4", - "Denmark" - ], - [ - "715", - "Kennedy", - "Mullins", - "43213", - "Virgin Islands, British" - ], - [ - "716", - "Alea", - "Glover", - "M6P 3Z5", - "Turkmenistan" - ], - [ - "717", - "Scarlett", - "Hunt", - "41461", - "Montserrat" - ], - [ - "718", - "Rooney", - "Kane", - "T8A 3E2", - "Madagascar" - ], - [ - "719", - "Cairo", - "Ray", - "L6M 1E7", - "Canada" - ], - [ - "720", - "Wendy", - "Burks", - "R8V 8F5", - "Virgin Islands, U.S." - ], - [ - "721", - "Christine", - "Suarez", - "67369", - "Georgia" - ], - [ - "722", - "Graiden", - "Le", - "K4M 9V5", - "New Caledonia" - ], - [ - "723", - "Zane", - "Nunez", - "60548", - "Haiti" - ], - [ - "724", - "Ali", - "Bell", - "U4Y 4C3", - "Togo" - ], - [ - "725", - "Marsden", - "Leon", - "39374", - "Venezuela" - ], - [ - "726", - "Holmes", - "Kidd", - "B6K 7Q9", - "Iraq" - ], - [ - "727", - "Cameron", - "Gardner", - "88627", - "Brazil" - ], - [ - "728", - "Ava", - "George", - "K1Z 7Y2", - "Monaco" - ], - [ - "729", - "Chantale", - "Holland", - "H1B 9L8", - "Afghanistan" - ], - [ - "730", - "Alika", - "Middleton", - "W8X 7O1", - "Korea" - ], - [ - "731", - "Cameran", - "Zimmerman", - "78576", - "Benin" - ], - [ - "732", - "Barrett", - "Blair", - "51161", - "Virgin Islands, U.S." - ], - [ - "733", - "Brielle", - "Ballard", - "59538", - "Iceland" - ], - [ - "734", - "Teagan", - "Morales", - "40107", - "Kenya" - ], - [ - "735", - "Lunea", - "Cantu", - "14690", - "Oman" - ], - [ - "736", - "Robin", - "Gilmore", - "17972", - "Nauru" - ], - [ - "737", - "Hall", - "Mccarty", - "86141", - "China" - ], - [ - "738", - "Olga", - "Rasmussen", - "58309", - "Virgin Islands, British" - ], - [ - "739", - "Mark", - "Griffin", - "51542", - "Argentina" - ], - [ - "740", - "Medge", - "Carrillo", - "23192", - "Pitcairn" - ], - [ - "741", - "Susan", - "Mosley", - "32128", - "Turkmenistan" - ], - [ - "742", - "Zelda", - "Valdez", - "46831", - "New Caledonia" - ], - [ - "743", - "Ruth", - "Donaldson", - "F9I 7G7", - "Ukraine" - ], - [ - "744", - "Kirby", - "Workman", - "36679", - "Rwanda" - ], - [ - "745", - "Alexa", - "King", - "66513", - "Liberia" - ], - [ - "746", - "Ronan", - "Gross", - "K2S 6D0", - "Saint Lucia" - ], - [ - "747", - "Kylee", - "Dillon", - "P7Y 1I5", - "Faroe Islands" - ], - [ - "748", - "Brenda", - "Weaver", - "99365", - "Uzbekistan" - ], - [ - "749", - "Aristotle", - "Orr", - "43451", - "Canada" - ], - [ - "750", - "Jaquelyn", - "Tyler", - "B9Q 7P5", - "Brunei Darussalam" - ], - [ - "751", - "Madeline", - "Stewart", - "D4D 2J4", - "Zimbabwe" - ], - [ - "752", - "Lacota", - "Glass", - "89124", - "Israel" - ], - [ - "753", - "Adrian", - "Ashley", - "N8M 4L1", - "Sri Lanka" - ], - [ - "754", - "Ignatius", - "Waller", - "12053", - "Thailand" - ], - [ - "755", - "Raven", - "Stevens", - "88768", - "Estonia" - ], - [ - "756", - "Carly", - "Camacho", - "27075", - "Vanuatu" - ], - [ - "757", - "Lee", - "Calderon", - "19501", - "Pitcairn" - ], - [ - "758", - "Amos", - "Briggs", - "I6A 3L8", - "Saint Kitts and Nevis" - ], - [ - "759", - "Cheryl", - "Valencia", - "90517", - "Denmark" - ], - [ - "760", - "Kenyon", - "Franco", - "B2S 2E2", - "Western Sahara" - ], - [ - "761", - "Damian", - "Acosta", - "A2S 6D0", - "Bahamas" - ], - [ - "762", - "Brenda", - "Zamora", - "T9E 7L3", - "Finland" - ], - [ - "763", - "Connor", - "Atkinson", - "03975", - "Sierra Leone" - ], - [ - "764", - "Kaseem", - "Waters", - "A2K 2X0", - "China" - ], - [ - "765", - "Zephania", - "Whitfield", - "A4Z 9P7", - "Eritrea" - ], - [ - "766", - "Emmanuel", - "Ballard", - "G1M 6Y2", - "Finland" - ], - [ - "767", - "Amos", - "Walters", - "43184", - "Oman" - ], - [ - "768", - "Urielle", - "Browning", - "19959", - "Panama" - ], - [ - "769", - "TaShya", - "Summers", - "B9V 3Y3", - "Micronesia" - ], - [ - "770", - "Jermaine", - "Mcgee", - "X8A 4E1", - "Cape Verde" - ], - [ - "771", - "Chaney", - "Berry", - "G2H 2C8", - "Uganda" - ], - [ - "772", - "Jaime", - "May", - "49723", - "Eritrea" - ], - [ - "773", - "Olga", - "Cohen", - "13403", - "Macao" - ], - [ - "774", - "Jacob", - "Vaughn", - "U7G 1V5", - "Greece" - ], - [ - "775", - "Kelly", - "Mcdonald", - "Z3B 5G7", - "Kiribati" - ], - [ - "776", - "Emi", - "Gilbert", - "W1L 2M4", - "Nicaragua" - ], - [ - "777", - "Francis", - "Nunez", - "K4U 6M5", - "Lithuania" - ], - [ - "778", - "Noel", - "Nelson", - "Z5T 1Y0", - "Nauru" - ], - [ - "779", - "Ora", - "Ellison", - "Y5I 4R8", - "Burundi" - ], - [ - "780", - "Kirby", - "Glass", - "J5X 2E3", - "Argentina" - ], - [ - "781", - "Hayley", - "Tate", - "V1T 6B6", - "Greece" - ], - [ - "782", - "Mohammad", - "Leblanc", - "E3S 5R3", - "Oman" - ], - [ - "783", - "Lionel", - "Todd", - "A1Z 9E1", - "Macedonia" - ], - [ - "784", - "Courtney", - "Mckay", - "D4I 8Z3", - "Fiji" - ], - [ - "785", - "Reagan", - "West", - "84159", - "Equatorial Guinea" - ], - [ - "786", - "Noel", - "Strickland", - "Q7K 6S3", - "Mozambique" - ], - [ - "787", - "Lara", - "Porter", - "49872", - "Nigeria" - ], - [ - "788", - "Kyra", - "Haley", - "I9E 2K3", - "Dominican Republic" - ], - [ - "789", - "Wynter", - "Beasley", - "66330", - "Heard Island and Mcdonald Islands" - ], - [ - "790", - "Vladimir", - "Briggs", - "99538", - "Burkina Faso" - ], - [ - "791", - "Rafael", - "Campbell", - "V8L 2S6", - "Algeria" - ], - [ - "792", - "Buffy", - "Wilder", - "N3U 2X0", - "Bahrain" - ], - [ - "793", - "Nyssa", - "Dawson", - "38434", - "Spain" - ], - [ - "794", - "Sylvia", - "Swanson", - "39714", - "Azerbaijan" - ], - [ - "795", - "Jolie", - "Diaz", - "A1J 5I1", - "Cuba" - ], - [ - "796", - "Rosalyn", - "Mcdaniel", - "F3T 6E2", - "Benin" - ], - [ - "797", - "Nelle", - "Prince", - "K1M 4U6", - "Maldives" - ], - [ - "798", - "Luke", - "Knight", - "05930", - "Seychelles" - ], - [ - "799", - "Macaulay", - "Conway", - "79707", - "American Samoa" - ], - [ - "800", - "Freya", - "Webb", - "U2H 2D7", - "Ireland" - ], - [ - "801", - "Clinton", - "Meyers", - "S9I 7N2", - "Malta" - ], - [ - "802", - "Rudyard", - "Chandler", - "40347", - "Bahrain" - ], - [ - "803", - "Courtney", - "Hoover", - "12325", - "French Polynesia" - ], - [ - "804", - "Melissa", - "Davenport", - "K7P 1S8", - "Canada" - ], - [ - "805", - "Noelle", - "Nieves", - "87427", - "Martinique" - ], - [ - "806", - "Myles", - "Hart", - "V6T 1W0", - "Niue" - ], - [ - "807", - "Jasper", - "Campos", - "78143", - "Faroe Islands" - ], - [ - "808", - "Ariana", - "Valentine", - "J4X 2D4", - "Ecuador" - ], - [ - "809", - "Vanna", - "Fletcher", - "M4Z 1F9", - "Faroe Islands" - ], - [ - "810", - "Elijah", - "Harper", - "Y1B 7E4", - "New Zealand" - ], - [ - "811", - "Leilani", - "Nunez", - "K9W 4F0", - "United Arab Emirates" - ], - [ - "812", - "Maia", - "Huber", - "V4L 8M6", - "United Kingdom" - ], - [ - "813", - "Richard", - "Riddle", - "U8C 8Q2", - "Niue" - ], - [ - "814", - "Harper", - "Blanchard", - "10904", - "Cameroon" - ], - [ - "815", - "Aurelia", - "Trujillo", - "01646", - "Dominican Republic" - ], - [ - "816", - "Anthony", - "Owen", - "J2I 2B4", - "Palestinian Territory, Occupied" - ], - [ - "817", - "Kelsie", - "Roy", - "M3J 6K3", - "Maldives" - ], - [ - "818", - "James", - "Pearson", - "94810", - "Mexico" - ], - [ - "819", - "Igor", - "Marshall", - "Y8M 2D6", - "Palau" - ], - [ - "820", - "Aquila", - "Willis", - "20354", - "Samoa" - ], - [ - "821", - "Randall", - "Sheppard", - "73577", - "Sierra Leone" - ], - [ - "822", - "Gray", - "Myers", - "53651", - "Gibraltar" - ], - [ - "823", - "Dana", - "Camacho", - "89571", - "Reunion" - ], - [ - "824", - "Berk", - "Hopper", - "17794", - "Cook Islands" - ], - [ - "825", - "Shannon", - "Barry", - "70536", - "Bouvet Island" - ], - [ - "826", - "Dahlia", - "Herman", - "F8L 1Q3", - "Lesotho" - ], - [ - "827", - "Gillian", - "Hayes", - "O2C 7X8", - "Tajikistan" - ], - [ - "828", - "Leo", - "Bolton", - "P6V 6E1", - "Dominica" - ], - [ - "829", - "Vivien", - "Best", - "E5E 6N8", - "Cuba" - ], - [ - "830", - "Clayton", - "Bradley", - "E7R 3M5", - "Zimbabwe" - ], - [ - "831", - "Lesley", - "Collins", - "16592", - "Mali" - ], - [ - "832", - "Holly", - "Hensley", - "49080", - "Tunisia" - ], - [ - "833", - "Larissa", - "Velazquez", - "41068", - "Haiti" - ], - [ - "834", - "Delilah", - "Mejia", - "A5I 9Q9", - "Croatia" - ], - [ - "835", - "Drew", - "Roberson", - "U7E 3R1", - "Somalia" - ], - [ - "836", - "Jenette", - "Patel", - "64084", - "Denmark" - ], - [ - "837", - "Gillian", - "Cleveland", - "05659", - "Syrian Arab Republic" - ], - [ - "838", - "Noelle", - "Lara", - "U1N 6V6", - "Sri Lanka" - ], - [ - "839", - "Celeste", - "Rollins", - "26590", - "Mayotte" - ], - [ - "840", - "Elvis", - "Fletcher", - "M8V 6J4", - "Bahamas" - ], - [ - "841", - "Caesar", - "Hays", - "E3D 3T7", - "Malta" - ], - [ - "842", - "Rama", - "Weber", - "25880", - "Malta" - ], - [ - "843", - "Lael", - "Page", - "57135", - "Anguilla" - ], - [ - "844", - "Omar", - "Hammond", - "90213", - "Belarus" - ], - [ - "845", - "Simone", - "Mcintosh", - "L5P 1S0", - "Bhutan" - ], - [ - "846", - "Gay", - "Harper", - "56404", - "Virgin Islands, U.S." - ], - [ - "847", - "Joel", - "Holman", - "C1F 1C4", - "Saint Lucia" - ], - [ - "848", - "Clayton", - "Pennington", - "57003", - "Kazakhstan" - ], - [ - "849", - "Susan", - "Mckee", - "I5U 8F2", - "Taiwan, Province of China" - ], - [ - "850", - "Jenna", - "Stein", - "P2K 6L4", - "Reunion" - ], - [ - "851", - "Madonna", - "Joyner", - "Q4Q 4K6", - "Guadeloupe" - ], - [ - "852", - "Deirdre", - "Ingram", - "N7U 3N9", - "Monaco" - ], - [ - "853", - "Juliet", - "Hodges", - "U2Q 2T0", - "Uzbekistan" - ], - [ - "854", - "Naomi", - "Rice", - "O6T 2Z1", - "Nicaragua" - ], - [ - "855", - "Leila", - "Alvarado", - "Z2V 7L3", - "Suriname" - ], - [ - "856", - "George", - "Leon", - "L6M 1V2", - "Norway" - ], - [ - "857", - "Rama", - "Cruz", - "Y2S 7K6", - "Kenya" - ], - [ - "858", - "Clarke", - "Mckinney", - "34622", - "Viet Nam" - ], - [ - "859", - "Savannah", - "Bailey", - "L3O 1U6", - "Solomon Islands" - ], - [ - "860", - "Maxwell", - "Gibson", - "R9K 9Q1", - "Virgin Islands, British" - ], - [ - "861", - "Devin", - "Humphrey", - "74821", - "Costa Rica" - ], - [ - "862", - "Kadeem", - "Larsen", - "43178", - "Luxembourg" - ], - [ - "863", - "Elvis", - "Todd", - "O3O 3G9", - "Azerbaijan" - ], - [ - "864", - "Levi", - "Montoya", - "G1Y 1N8", - "Venezuela" - ], - [ - "865", - "Risa", - "Barnes", - "86118", - "Benin" - ], - [ - "866", - "Dillon", - "Riggs", - "O3Y 8V2", - "Greenland" - ], - [ - "867", - "Stewart", - "Marshall", - "V8G 8S2", - "Mexico" - ], - [ - "868", - "Camden", - "Goff", - "N3W 2L0", - "Bahrain" - ], - [ - "869", - "Sheila", - "Meadows", - "T6K 7M2", - "Yemen" - ], - [ - "870", - "Hop", - "Berger", - "Q8B 9R7", - "Germany" - ], - [ - "871", - "Charissa", - "Wilkerson", - "08090", - "Burundi" - ], - [ - "872", - "Raphael", - "Carey", - "03667", - "United Kingdom" - ], - [ - "873", - "Micah", - "Hood", - "T9N 4T5", - "Georgia" - ], - [ - "874", - "Cathleen", - "Mccall", - "N6H 6N3", - "Tanzania, United Republic of" - ], - [ - "875", - "Lisandra", - "Poole", - "S7O 1J1", - "Greece" - ], - [ - "876", - "Stone", - "Blackwell", - "90654", - "Serbia and Montenegro" - ], - [ - "877", - "Serena", - "Mann", - "32305", - "Trinidad and Tobago" - ], - [ - "878", - "Scarlet", - "Turner", - "D7Y 8N4", - "Oman" - ], - [ - "879", - "Zenaida", - "Carrillo", - "60361", - "Montserrat" - ], - [ - "880", - "Jaime", - "Dalton", - "F4E 6R5", - "Iraq" - ], - [ - "881", - "Wesley", - "Drake", - "D8J 9U2", - "Bulgaria" - ], - [ - "882", - "Armand", - "Chandler", - "X8Z 9E6", - "Saint Kitts and Nevis" - ], - [ - "883", - "Inez", - "Dillard", - "59975", - "Eritrea" - ], - [ - "884", - "Roanna", - "Floyd", - "65958", - "Bolivia" - ], - [ - "885", - "Timon", - "Dalton", - "O3Q 5B5", - "Colombia" - ], - [ - "886", - "Ifeoma", - "Lamb", - "J9A 9X0", - "Papua New Guinea" - ], - [ - "887", - "Brody", - "Cash", - "75525", - "Kazakhstan" - ], - [ - "888", - "Dawn", - "Wise", - "G7X 5J3", - "Samoa" - ], - [ - "889", - "Chaney", - "Bartlett", - "11112", - "Ecuador" - ], - [ - "890", - "Galvin", - "Merritt", - "59635", - "Bahrain" - ], - [ - "891", - "Cynthia", - "Nash", - "U5P 1H4", - "Switzerland" - ], - [ - "892", - "Tara", - "Austin", - "Q6X 8U0", - "Burundi" - ], - [ - "893", - "Roanna", - "Petty", - "28524", - "Northern Mariana Islands" - ], - [ - "894", - "Palmer", - "Mcdowell", - "78234", - "United States Minor Outlying Islands" - ], - [ - "895", - "Sade", - "Patton", - "28984", - "Czech Republic" - ], - [ - "896", - "Yoko", - "Compton", - "62165", - "Saint Kitts and Nevis" - ], - [ - "897", - "Regan", - "Mccarthy", - "C5D 6G0", - "Lebanon" - ], - [ - "898", - "Norman", - "Nixon", - "E4C 4G0", - "Virgin Islands, U.S." - ], - [ - "899", - "Jocelyn", - "Baldwin", - "X9R 2B3", - "Macedonia" - ], - [ - "900", - "Jaquelyn", - "Berg", - "N6X 6E1", - "Saint Lucia" - ], - [ - "901", - "Zane", - "Nelson", - "G9P 4J8", - "Macao" - ], - [ - "902", - "Judith", - "Elliott", - "R4I 4O3", - "Iraq" - ], - [ - "903", - "Maia", - "Ellis", - "S9V 6P0", - "Bahrain" - ], - [ - "904", - "Mechelle", - "Stevens", - "43406", - "Bouvet Island" - ], - [ - "905", - "Sylvester", - "Duran", - "K5D 8W5", - "Costa Rica" - ], - [ - "906", - "Unity", - "Cooke", - "64362", - "Ecuador" - ], - [ - "907", - "Karly", - "Velazquez", - "43286", - "Guam" - ], - [ - "908", - "Damian", - "Yates", - "84910", - "Thailand" - ], - [ - "909", - "Linus", - "Gross", - "31808", - "Israel" - ], - [ - "910", - "Cooper", - "Franco", - "36700", - "Yemen" - ], - [ - "911", - "Gail", - "Jones", - "09157", - "Turkey" - ], - [ - "912", - "Hayfa", - "Bennett", - "59422", - "France" - ], - [ - "913", - "Hermione", - "Barber", - "I6W 8Z5", - "Mozambique" - ], - [ - "914", - "Hedy", - "Stevens", - "35535", - "Cuba" - ], - [ - "915", - "Galvin", - "Frederick", - "J2W 9A3", - "Virgin Islands, British" - ], - [ - "916", - "Lamar", - "Rush", - "P4O 3H4", - "Austria" - ], - [ - "917", - "Brenda", - "Walter", - "K8Q 9H9", - "Tajikistan" - ], - [ - "918", - "Ria", - "Guy", - "12801", - "Gibraltar" - ], - [ - "919", - "Bruno", - "Lynch", - "I6U 7D0", - "Greenland" - ], - [ - "920", - "Kirk", - "Pearson", - "66242", - "Falkland Islands (Malvinas)" - ], - [ - "921", - "Owen", - "Sosa", - "61483", - "Martinique" - ], - [ - "922", - "Rajah", - "Mccarty", - "G9K 6L2", - "Faroe Islands" - ], - [ - "923", - "Erasmus", - "Malone", - "D6H 7H5", - "Sierra Leone" - ], - [ - "924", - "Raja", - "Hale", - "85590", - "Guadeloupe" - ], - [ - "925", - "Logan", - "Christensen", - "Y6L 8Z0", - "Guatemala" - ], - [ - "926", - "Kirestin", - "Griffith", - "47900", - "Micronesia" - ], - [ - "927", - "Kato", - "Reeves", - "93779", - "Uruguay" - ], - [ - "928", - "Jonah", - "Suarez", - "13708", - "Spain" - ], - [ - "929", - "Adam", - "Lynn", - "E1P 1L3", - "Indonesia" - ], - [ - "930", - "Quinn", - "Mckinney", - "99683", - "Faroe Islands" - ], - [ - "931", - "Whilemina", - "Macias", - "32145", - "Iceland" - ], - [ - "932", - "Gillian", - "Osborne", - "L3L 6G0", - "Italy" - ], - [ - "933", - "Venus", - "Zamora", - "28318", - "Comoros" - ], - [ - "934", - "Allegra", - "Eaton", - "P5X 9S0", - "Antarctica" - ], - [ - "935", - "Driscoll", - "Preston", - "R3L 9R0", - "Niue" - ], - [ - "936", - "Joel", - "Spencer", - "12006", - "Monaco" - ], - [ - "937", - "Lucius", - "Sharp", - "B8V 6U7", - "Dominica" - ], - [ - "938", - "Curran", - "Robinson", - "82216", - "Romania" - ], - [ - "939", - "Kerry", - "Espinoza", - "N4B 7Q1", - "Guatemala" - ], - [ - "940", - "Isaac", - "Kline", - "85674", - "Costa Rica" - ], - [ - "941", - "Neil", - "Harrison", - "I5A 2S2", - "Greenland" - ], - [ - "942", - "Ezra", - "Rodriguez", - "D6P 5Q3", - "Angola" - ], - [ - "943", - "Galvin", - "Jefferson", - "D6H 7G0", - "Macedonia" - ], - [ - "944", - "Joseph", - "Hahn", - "Z8V 9B5", - "Uganda" - ], - [ - "945", - "Naida", - "Hammond", - "40105", - "Philippines" - ], - [ - "946", - "Brenna", - "Everett", - "41704", - "Indonesia" - ], - [ - "947", - "Rae", - "Parks", - "79077", - "Sweden" - ], - [ - "948", - "Jessica", - "Richard", - "Y3I 5R3", - "Uganda" - ], - [ - "949", - "Rachel", - "Marks", - "16157", - "Cameroon" - ], - [ - "950", - "Maxwell", - "Ferguson", - "V6A 6M0", - "Ukraine" - ], - [ - "951", - "Alyssa", - "Beard", - "13936", - "Antarctica" - ], - [ - "952", - "Camille", - "Gill", - "V9Q 9P7", - "New Caledonia" - ], - [ - "953", - "Cora", - "Bond", - "M9X 1A4", - "Seychelles" - ], - [ - "954", - "Peter", - "Acosta", - "07937", - "Chile" - ], - [ - "955", - "Ella", - "Poole", - "A3F 9Z1", - "Panama" - ], - [ - "956", - "Ashely", - "Guerrero", - "37436", - "Central African Republic" - ], - [ - "957", - "Mikayla", - "Johnston", - "L9W 5T8", - "Cameroon" - ], - [ - "958", - "Ora", - "Weaver", - "65897", - "Turks and Caicos Islands" - ], - [ - "959", - "Timon", - "Barnes", - "R6J 1J7", - "Djibouti" - ], - [ - "960", - "Jamalia", - "Wade", - "22211", - "United States" - ], - [ - "961", - "Bradley", - "Haney", - "K1H 1Q1", - "Western Sahara" - ], - [ - "962", - "Lance", - "Le", - "H4R 9T7", - "Botswana" - ], - [ - "963", - "Ethan", - "Rich", - "T8N 1C6", - "Netherlands" - ], - [ - "964", - "Jeanette", - "Carver", - "G1E 5C8", - "Cook Islands" - ], - [ - "965", - "Ocean", - "Marquez", - "15084", - "Pakistan" - ], - [ - "966", - "Ifeoma", - "Cleveland", - "R9D 6M1", - "French Guiana" - ], - [ - "967", - "Sylvia", - "Herring", - "U4R 8P1", - "Thailand" - ], - [ - "968", - "Clare", - "Huffman", - "Q5G 2Q0", - "Niger" - ], - [ - "969", - "Colton", - "Leach", - "V3F 9W6", - "Syrian Arab Republic" - ], - [ - "970", - "Maryam", - "Hoover", - "Y7U 6N3", - "Slovakia" - ], - [ - "971", - "Nola", - "Snider", - "54275", - "Bosnia and Herzegovina" - ], - [ - "972", - "Kameko", - "Cote", - "M3C 8N0", - "Cambodia" - ], - [ - "973", - "Julian", - "Pugh", - "B6E 7J7", - "Mauritania" - ], - [ - "974", - "Xena", - "Lott", - "52294", - "Estonia" - ], - [ - "975", - "Fuller", - "Kirk", - "65396", - "Qatar" - ], - [ - "976", - "Lance", - "Knox", - "78074", - "Serbia and Montenegro" - ], - [ - "977", - "Hedwig", - "Beck", - "T5P 4C8", - "Dominican Republic" - ], - [ - "978", - "Martena", - "Diaz", - "65420", - "Saint Pierre and Miquelon" - ], - [ - "979", - "Shafira", - "David", - "74843", - "Senegal" - ], - [ - "980", - "Shafira", - "Clark", - "T6F 5C7", - "Mongolia" - ], - [ - "981", - "Georgia", - "Booth", - "28183", - "Japan" - ], - [ - "982", - "Cameron", - "Austin", - "I2J 1R1", - "Bahrain" - ], - [ - "983", - "Vanna", - "Hyde", - "82434", - "Croatia" - ], - [ - "984", - "Deanna", - "Park", - "68486", - "Zimbabwe" - ], - [ - "985", - "Grady", - "Freeman", - "U4O 1Q9", - "Belarus" - ], - [ - "986", - "Sandra", - "Knapp", - "31413", - "Sudan" - ], - [ - "987", - "Dorian", - "Joseph", - "90768", - "Lithuania" - ], - [ - "988", - "Adria", - "Bonner", - "15899", - "Mongolia" - ], - [ - "989", - "Sebastian", - "Guzman", - "G9L 9G5", - "Yemen" - ], - [ - "990", - "Angelica", - "Puckett", - "W8D 8W8", - "Virgin Islands, U.S." - ], - [ - "991", - "Connor", - "Parks", - "26175", - "Virgin Islands, U.S." - ], - [ - "992", - "Yardley", - "Griffith", - "H3L 2U3", - "Saint Pierre and Miquelon" - ], - [ - "993", - "Charissa", - "Beck", - "30611", - "Zambia" - ], - [ - "994", - "Calvin", - "Russo", - "79906", - "Chile" - ], - [ - "995", - "Yoshi", - "Durham", - "N2J 8M8", - "China" - ], - [ - "996", - "Finn", - "Buck", - "Q9F 9Z8", - "Iraq" - ], - [ - "997", - "Kessie", - "Holden", - "C4A 1J0", - "Syrian Arab Republic" - ], - [ - "998", - "Chloe", - "Richards", - "63091", - "Canada" - ], - [ - "999", - "Uriel", - "Snyder", - "95487", - "Pakistan" - ], - [ - "1000", - "Maite", - "Cash", - "90705", - "Syrian Arab Republic" - ], - [ - "1001", - "Cameron", - "Schwartz", - "82778", - "Taiwan, Province of China" - ], - [ - "1002", - "Faith", - "Jimenez", - "J6K 2P9", - "Saint Pierre and Miquelon" - ], - [ - "1003", - "Otto", - "Hancock", - "34535", - "Andorra" - ], - [ - "1004", - "Harlan", - "Blackwell", - "N8Y 4E6", - "Qatar" - ], - [ - "1005", - "Fitzgerald", - "Gilliam", - "Y9J 6J5", - "Burkina Faso" - ], - [ - "1006", - "Lev", - "Ballard", - "01956", - "American Samoa" - ], - [ - "1007", - "Freya", - "Brown", - "01190", - "Portugal" - ], - [ - "1008", - "Harding", - "Osborn", - "14814", - "San Marino" - ], - [ - "1009", - "Alexander", - "Howard", - "81842", - "Reunion" - ], - [ - "1010", - "Ori", - "Marsh", - "77738", - "Saint Helena" - ], - [ - "1011", - "Brennan", - "Rich", - "18690", - "Cambodia" - ], - [ - "1012", - "Dawn", - "Christensen", - "Y8F 7R3", - "Mali" - ], - [ - "1013", - "Ahmed", - "Pearson", - "62230", - "Sudan" - ], - [ - "1014", - "Tanek", - "Head", - "25744", - "Kiribati" - ], - [ - "1015", - "Meredith", - "Cantu", - "E6X 2L1", - "Kenya" - ], - [ - "1016", - "Levi", - "Fisher", - "I9Y 9G2", - "Djibouti" - ], - [ - "1017", - "Katell", - "Cameron", - "10278", - "Denmark" - ], - [ - "1018", - "Ina", - "Orr", - "P7H 2O3", - "Congo" - ], - [ - "1019", - "Beck", - "Hayden", - "15115", - "Saint Lucia" - ], - [ - "1020", - "Cassady", - "Wagner", - "R9H 8C5", - "Estonia" - ], - [ - "1021", - "Amena", - "Herrera", - "13286", - "Bahrain" - ], - [ - "1022", - "Tarik", - "Gross", - "C3X 3W0", - "Azerbaijan" - ], - [ - "1023", - "Marshall", - "Collier", - "13416", - "Dominica" - ], - [ - "1024", - "Kirestin", - "Callahan", - "15429", - "Micronesia" - ], - [ - "1025", - "Sasha", - "Rice", - "O6H 6X2", - "Denmark" - ], - [ - "1026", - "Ross", - "Gonzalez", - "D3B 3R5", - "Sudan" - ], - [ - "1027", - "Veda", - "Arnold", - "56611", - "Swaziland" - ], - [ - "1028", - "Ferdinand", - "Macias", - "P1Q 3I2", - "Colombia" - ], - [ - "1029", - "Mohammad", - "Reed", - "74005", - "Bhutan" - ], - [ - "1030", - "Reagan", - "Sandoval", - "19275", - "Pitcairn" - ], - [ - "1031", - "Debra", - "Nelson", - "85945", - "Ukraine" - ], - [ - "1032", - "Cleo", - "Robertson", - "84072", - "Guadeloupe" - ], - [ - "1033", - "Tanya", - "Vance", - "C1F 7F1", - "Romania" - ], - [ - "1034", - "Desirae", - "Wooten", - "74659", - "Mongolia" - ], - [ - "1035", - "Hiram", - "Estes", - "Q5Z 5A0", - "Namibia" - ], - [ - "1036", - "Medge", - "Weiss", - "67079", - "Azerbaijan" - ], - [ - "1037", - "Hu", - "Chase", - "87562", - "Cuba" - ], - [ - "1038", - "Shafira", - "Everett", - "18983", - "Georgia" - ], - [ - "1039", - "Mannix", - "Lamb", - "45542", - "Venezuela" - ], - [ - "1040", - "Germaine", - "Harvey", - "I9G 1U0", - "Falkland Islands (Malvinas)" - ], - [ - "1041", - "Brenna", - "Leonard", - "55573", - "New Zealand" - ], - [ - "1042", - "Kylie", - "Rivas", - "U9J 3O9", - "Djibouti" - ], - [ - "1043", - "Alexandra", - "Rich", - "T4O 6S6", - "Cuba" - ], - [ - "1044", - "Dorian", - "Spears", - "00456", - "Brazil" - ], - [ - "1045", - "Laurel", - "Abbott", - "45449", - "Switzerland" - ], - [ - "1046", - "Gabriel", - "Drake", - "U1S 5O2", - "Trinidad and Tobago" - ], - [ - "1047", - "Priscilla", - "Mercer", - "01401", - "Serbia and Montenegro" - ], - [ - "1048", - "Darius", - "Hoffman", - "49694", - "Greece" - ], - [ - "1049", - "Caesar", - "Patton", - "42322", - "Suriname" - ], - [ - "1050", - "Susan", - "Clayton", - "W1G 5C3", - "Maldives" - ], - [ - "1051", - "Zane", - "Dunlap", - "73722", - "Oman" - ], - [ - "1052", - "Leah", - "Fuentes", - "60412", - "Luxembourg" - ], - [ - "1053", - "Yardley", - "Hansen", - "03194", - "Mauritius" - ], - [ - "1054", - "Ingrid", - "Talley", - "37315", - "Solomon Islands" - ], - [ - "1055", - "Demetria", - "Evans", - "30587", - "Tajikistan" - ], - [ - "1056", - "Ignacia", - "Alford", - "01282", - "Bouvet Island" - ], - [ - "1057", - "Destiny", - "Wade", - "L5R 3V3", - "Uganda" - ], - [ - "1058", - "Alden", - "Mason", - "V7D 2V6", - "Dominican Republic" - ], - [ - "1059", - "Pamela", - "Wilcox", - "L1I 6I1", - "Canada" - ], - [ - "1060", - "Melvin", - "Buckley", - "05478", - "Hungary" - ], - [ - "1061", - "Eve", - "Holcomb", - "B6B 8T1", - "Cook Islands" - ], - [ - "1062", - "Arthur", - "Weeks", - "R5P 7U2", - "Bangladesh" - ], - [ - "1063", - "Marah", - "Levine", - "10075", - "Somalia" - ], - [ - "1064", - "Keiko", - "Freeman", - "90950", - "Faroe Islands" - ], - [ - "1065", - "Dorian", - "Rose", - "T5M 4Z0", - "Fiji" - ], - [ - "1066", - "Desirae", - "Velez", - "T4E 8K2", - "Afghanistan" - ], - [ - "1067", - "Rebekah", - "Lucas", - "T9A 8V5", - "Tunisia" - ], - [ - "1068", - "Sylvester", - "Copeland", - "W6R 3B6", - "Jamaica" - ], - [ - "1069", - "Alea", - "Preston", - "31050", - "Netherlands Antilles" - ], - [ - "1070", - "Aphrodite", - "Gordon", - "T7C 6T8", - "Sao Tome and Principe" - ], - [ - "1071", - "Yael", - "Delaney", - "G9W 9P1", - "Mexico" - ], - [ - "1072", - "Sierra", - "Perez", - "R3O 8H0", - "Slovenia" - ], - [ - "1073", - "Avram", - "Briggs", - "05221", - "Norfolk Island" - ], - [ - "1074", - "Troy", - "Poole", - "W7Q 8O5", - "Malta" - ], - [ - "1075", - "Gavin", - "Sandoval", - "37352", - "Greece" - ], - [ - "1076", - "Nerea", - "Stokes", - "N2Q 6S9", - "United States" - ], - [ - "1077", - "Genevieve", - "Ramirez", - "53829", - "Mali" - ], - [ - "1078", - "Oliver", - "Boone", - "M1Q 8V9", - "Bolivia" - ], - [ - "1079", - "Lars", - "Ramirez", - "L2R 6V2", - "Bosnia and Herzegovina" - ], - [ - "1080", - "Abbot", - "Horton", - "R1R 1V8", - "Netherlands Antilles" - ], - [ - "1081", - "Abra", - "Avila", - "41608", - "Congo" - ], - [ - "1082", - "Candice", - "Christian", - "13930", - "Faroe Islands" - ], - [ - "1083", - "Flavia", - "Miranda", - "93964", - "Estonia" - ], - [ - "1084", - "Medge", - "Drake", - "Q7C 2E2", - "Belize" - ], - [ - "1085", - "Lee", - "Montgomery", - "H3T 4Q6", - "Costa Rica" - ], - [ - "1086", - "Aline", - "Ratliff", - "99839", - "Macao" - ], - [ - "1087", - "Shafira", - "Fox", - "A9S 7C8", - "Palestinian Territory, Occupied" - ], - [ - "1088", - "Orson", - "Greene", - "K9L 7R8", - "Myanmar" - ], - [ - "1089", - "Henry", - "Joyner", - "55853", - "South Africa" - ], - [ - "1090", - "Keely", - "Boyer", - "08996", - "Liberia" - ], - [ - "1091", - "Jerome", - "Jones", - "31770", - "Saint Lucia" - ], - [ - "1092", - "Hermione", - "Dunlap", - "U2R 7R2", - "Moldova" - ], - [ - "1093", - "Lenore", - "Powers", - "73772", - "Tunisia" - ], - [ - "1094", - "Alden", - "Newman", - "V4C 3O8", - "Bhutan" - ], - [ - "1095", - "Jasper", - "Blevins", - "K2H 5W0", - "Paraguay" - ], - [ - "1096", - "Robert", - "Bender", - "R5F 1H9", - "Philippines" - ], - [ - "1097", - "Bo", - "Richard", - "N5R 6T2", - "Trinidad and Tobago" - ], - [ - "1098", - "Iliana", - "Mcpherson", - "23758", - "Bangladesh" - ], - [ - "1099", - "Alfreda", - "Camacho", - "35387", - "Saint Helena" - ], - [ - "1100", - "Kirsten", - "Giles", - "14079", - "Romania" - ], - [ - "1101", - "Harlan", - "Crawford", - "84847", - "French Polynesia" - ], - [ - "1102", - "Wynne", - "Bauer", - "W9D 6F6", - "Kazakhstan" - ], - [ - "1103", - "Connor", - "Melton", - "E2F 4Q2", - "Angola" - ], - [ - "1104", - "Evelyn", - "Barry", - "I9H 8W7", - "Turkmenistan" - ], - [ - "1105", - "Barry", - "Stephens", - "07823", - "Gibraltar" - ], - [ - "1106", - "Ferris", - "Farrell", - "I7H 5Z6", - "Saint Vincent and The Grenadines" - ], - [ - "1107", - "Ursa", - "Carr", - "31124", - "Chad" - ], - [ - "1108", - "Laith", - "Johnson", - "10428", - "Cyprus" - ], - [ - "1109", - "Harlan", - "Frank", - "J6K 7I6", - "Gambia" - ], - [ - "1110", - "Gregory", - "Ratliff", - "P1C 8H2", - "Chile" - ], - [ - "1111", - "Rina", - "Holloway", - "Y7N 1E7", - "Estonia" - ], - [ - "1112", - "Maris", - "Joyner", - "T6R 2H9", - "France" - ], - [ - "1113", - "Galvin", - "Webster", - "V8E 9U4", - "Croatia" - ], - [ - "1114", - "Farrah", - "Bean", - "H2B 8E2", - "Palestinian Territory, Occupied" - ], - [ - "1115", - "Martha", - "Schroeder", - "14485", - "Georgia" - ], - [ - "1116", - "Mari", - "Boone", - "D4C 1Q0", - "Comoros" - ], - [ - "1117", - "Nadine", - "Mercado", - "35046", - "Syrian Arab Republic" - ], - [ - "1118", - "Isadora", - "Keith", - "R5H 8Y7", - "Mayotte" - ], - [ - "1119", - "Quinn", - "William", - "V8Q 3Y6", - "India" - ], - [ - "1120", - "Justina", - "Gilbert", - "11271", - "Yemen" - ], - [ - "1121", - "Jordan", - "Hull", - "F4Z 7R8", - "Lesotho" - ], - [ - "1122", - "Mechelle", - "Davenport", - "A9Z 8P2", - "Bermuda" - ], - [ - "1123", - "Isabelle", - "Webster", - "60972", - "Zimbabwe" - ], - [ - "1124", - "Armand", - "Butler", - "Y3F 4H9", - "Nicaragua" - ], - [ - "1125", - "Herman", - "Beach", - "Q8N 6V3", - "Cape Verde" - ], - [ - "1126", - "Brianna", - "Love", - "D9B 2W8", - "Sierra Leone" - ], - [ - "1127", - "Joy", - "Brown", - "O7V 7C1", - "Djibouti" - ], - [ - "1128", - "Amena", - "Moss", - "P8D 1L9", - "Andorra" - ], - [ - "1129", - "Zeph", - "Whitehead", - "01513", - "Tanzania, United Republic of" - ], - [ - "1130", - "Logan", - "Matthews", - "73541", - "Finland" - ], - [ - "1131", - "Amela", - "Gregory", - "65323", - "Swaziland" - ], - [ - "1132", - "Zoe", - "Owen", - "V5L 5O6", - "Zambia" - ], - [ - "1133", - "September", - "Hewitt", - "R8K 4G9", - "Congo" - ], - [ - "1134", - "Holly", - "Walter", - "S2E 3M4", - "Serbia and Montenegro" - ], - [ - "1135", - "Zeph", - "Beach", - "J6Z 8B5", - "Ecuador" - ], - [ - "1136", - "Morgan", - "Decker", - "M9H 8I5", - "Uruguay" - ], - [ - "1137", - "Malcolm", - "Maldonado", - "S6F 8X6", - "Netherlands" - ], - [ - "1138", - "Fay", - "Day", - "B9R 1U7", - "Seychelles" - ], - [ - "1139", - "Charles", - "Juarez", - "62791", - "Virgin Islands, U.S." - ], - [ - "1140", - "Amery", - "Stout", - "L9A 1F8", - "Central African Republic" - ], - [ - "1141", - "Irene", - "Ferrell", - "52649", - "Norway" - ], - [ - "1142", - "Dean", - "Stout", - "N5C 2S8", - "Uruguay" - ], - [ - "1143", - "Eric", - "Baxter", - "82082", - "Chile" - ], - [ - "1144", - "Shelley", - "Larsen", - "Y4T 4P3", - "Antarctica" - ], - [ - "1145", - "Rigel", - "Ellis", - "E3S 6K8", - "Zimbabwe" - ], - [ - "1146", - "Maite", - "Rosa", - "F6C 5Q9", - "Zambia" - ], - [ - "1147", - "Serena", - "Blanchard", - "99373", - "Estonia" - ], - [ - "1148", - "Melanie", - "Berger", - "C5P 4E2", - "Mozambique" - ], - [ - "1149", - "Noah", - "Spence", - "B8H 7X7", - "Martinique" - ], - [ - "1150", - "Elliott", - "Pierce", - "W5B 8V7", - "Swaziland" - ], - [ - "1151", - "Ahmed", - "Chang", - "E9X 7J0", - "Bulgaria" - ], - [ - "1152", - "Ross", - "Figueroa", - "22458", - "China" - ], - [ - "1153", - "Gary", - "Calderon", - "V3C 4J8", - "Algeria" - ], - [ - "1154", - "Montana", - "Franklin", - "94093", - "Haiti" - ], - [ - "1155", - "Rae", - "Curry", - "45477", - "Morocco" - ], - [ - "1156", - "Jillian", - "Hogan", - "N8L 4B5", - "Iceland" - ], - [ - "1157", - "Mia", - "Kaufman", - "54758", - "Burkina Faso" - ], - [ - "1158", - "Remedios", - "Wilkerson", - "75420", - "Saint Vincent and The Grenadines" - ], - [ - "1159", - "Xanthus", - "Baldwin", - "13961", - "Congo" - ], - [ - "1160", - "Madeline", - "Gates", - "76351", - "Saint Helena" - ], - [ - "1161", - "Leroy", - "Craig", - "12770", - "Finland" - ], - [ - "1162", - "Melanie", - "Carpenter", - "C3B 8L4", - "Mayotte" - ], - [ - "1163", - "Ashely", - "Mcneil", - "E7E 9K5", - "French Southern Territories" - ], - [ - "1164", - "Karina", - "Mcneil", - "39956", - "United Arab Emirates" - ], - [ - "1165", - "Nina", - "Mills", - "92913", - "Saint Kitts and Nevis" - ], - [ - "1166", - "Ashton", - "Singleton", - "73890", - "Libyan Arab Jamahiriya" - ], - [ - "1167", - "Meghan", - "Black", - "31814", - "Armenia" - ], - [ - "1168", - "Jolene", - "Pope", - "U6K 7O6", - "Venezuela" - ], - [ - "1169", - "Abel", - "Boyd", - "37110", - "Botswana" - ], - [ - "1170", - "Tiger", - "Coffey", - "Y6P 3S4", - "Faroe Islands" - ], - [ - "1171", - "Aileen", - "Rowe", - "F7G 8D9", - "Netherlands Antilles" - ], - [ - "1172", - "Bryar", - "Forbes", - "T2N 5H6", - "Saint Vincent and The Grenadines" - ], - [ - "1173", - "Vera", - "Hoffman", - "36299", - "Guadeloupe" - ], - [ - "1174", - "Hadassah", - "Wright", - "S8J 5B2", - "Peru" - ], - [ - "1175", - "Bruce", - "Blair", - "Q8E 7K6", - "Cape Verde" - ], - [ - "1176", - "Brianna", - "Wolf", - "V8S 5A6", - "Bahamas" - ], - [ - "1177", - "Kimberley", - "Reed", - "17652", - "Tajikistan" - ], - [ - "1178", - "Colin", - "Phelps", - "42334", - "Brunei Darussalam" - ], - [ - "1179", - "Gil", - "Britt", - "U3N 6C2", - "Swaziland" - ], - [ - "1180", - "Hasad", - "Pena", - "09526", - "United States" - ], - [ - "1181", - "Violet", - "Dixon", - "48691", - "Micronesia" - ], - [ - "1182", - "Uriel", - "Bowen", - "Z7F 7A7", - "Uzbekistan" - ], - [ - "1183", - "Madeline", - "Keller", - "18227", - "Iran, Islamic Republic of" - ], - [ - "1184", - "Buffy", - "Mckee", - "23861", - "Ethiopia" - ], - [ - "1185", - "Doris", - "Martin", - "V8N 8O7", - "Liberia" - ], - [ - "1186", - "Mia", - "Burke", - "64582", - "Virgin Islands, British" - ], - [ - "1187", - "William", - "Kemp", - "63587", - "Tuvalu" - ], - [ - "1188", - "Stacy", - "Quinn", - "01390", - "Nauru" - ], - [ - "1189", - "Halla", - "Solomon", - "31138", - "Pakistan" - ], - [ - "1190", - "Kasimir", - "Rodriguez", - "67823", - "Costa Rica" - ], - [ - "1191", - "Davis", - "Lawrence", - "27918", - "Rwanda" - ], - [ - "1192", - "Nigel", - "Bryan", - "L5U 2U9", - "Seychelles" - ], - [ - "1193", - "Ivana", - "Stone", - "94862", - "Niue" - ], - [ - "1194", - "Naomi", - "Yang", - "68985", - "Haiti" - ], - [ - "1195", - "Roanna", - "Brown", - "51196", - "India" - ], - [ - "1196", - "Colorado", - "Chavez", - "45634", - "Brazil" - ], - [ - "1197", - "Illana", - "Levy", - "V1A 7R8", - "Jordan" - ], - [ - "1198", - "Ali", - "Lowe", - "N8K 1Y5", - "Hungary" - ], - [ - "1199", - "Virginia", - "Witt", - "Y3O 5W8", - "Azerbaijan" - ], - [ - "1200", - "Howard", - "Flores", - "I9C 3Q7", - "Fiji" - ], - [ - "1201", - "Walter", - "Odom", - "78418", - "Thailand" - ], - [ - "1202", - "Thor", - "Craig", - "00935", - "Jamaica" - ], - [ - "1203", - "Petra", - "Barry", - "E5L 5K5", - "Finland" - ], - [ - "1204", - "Lev", - "Ellison", - "I6S 1K1", - "Mongolia" - ], - [ - "1205", - "Roth", - "Osborne", - "15014", - "Swaziland" - ], - [ - "1206", - "Lucius", - "Baldwin", - "12766", - "China" - ], - [ - "1207", - "Candice", - "Hyde", - "B5E 4B8", - "Bahamas" - ], - [ - "1208", - "Maggy", - "Bailey", - "76781", - "Northern Mariana Islands" - ], - [ - "1209", - "Beatrice", - "Gregory", - "S5S 8S4", - "Rwanda" - ], - [ - "1210", - "Adrian", - "Bowman", - "58500", - "Vanuatu" - ], - [ - "1211", - "Brenden", - "Chandler", - "50326", - "Thailand" - ], - [ - "1212", - "Jada", - "Richmond", - "15990", - "Saint Vincent and The Grenadines" - ], - [ - "1213", - "Sawyer", - "Page", - "G2W 7R7", - "Somalia" - ], - [ - "1214", - "Haley", - "Jordan", - "U7X 4U2", - "Equatorial Guinea" - ], - [ - "1215", - "Ruby", - "Watson", - "30990", - "Romania" - ], - [ - "1216", - "Jocelyn", - "Knowles", - "78987", - "Lebanon" - ], - [ - "1217", - "Preston", - "Stevenson", - "F3L 9B3", - "Mali" - ], - [ - "1218", - "Kimberly", - "Merritt", - "38779", - "Venezuela" - ], - [ - "1219", - "Herrod", - "Burke", - "56225", - "French Guiana" - ], - [ - "1220", - "Solomon", - "Shannon", - "67980", - "Cape Verde" - ], - [ - "1221", - "Bradley", - "Stokes", - "10213", - "Botswana" - ], - [ - "1222", - "Grace", - "Kinney", - "67923", - "Montserrat" - ], - [ - "1223", - "Celeste", - "Clark", - "S7M 6I2", - "Guatemala" - ], - [ - "1224", - "Patricia", - "Frank", - "05615", - "Venezuela" - ], - [ - "1225", - "Madonna", - "Alford", - "10878", - "Brunei Darussalam" - ], - [ - "1226", - "May", - "Rios", - "N7O 2L0", - "Georgia" - ], - [ - "1227", - "Driscoll", - "Roach", - "Y7F 9F8", - "Palestinian Territory, Occupied" - ], - [ - "1228", - "Idona", - "Cruz", - "T6Q 8L4", - "Iraq" - ], - [ - "1229", - "Sydney", - "Delacruz", - "69511", - "United Arab Emirates" - ], - [ - "1230", - "Gillian", - "Huff", - "52624", - "French Southern Territories" - ], - [ - "1231", - "Minerva", - "Rosario", - "29195", - "Andorra" - ], - [ - "1232", - "Kerry", - "Alvarado", - "L3Q 2V5", - "Portugal" - ], - [ - "1233", - "Amos", - "Bass", - "26389", - "Holy See (Vatican City State)" - ], - [ - "1234", - "Deanna", - "Parks", - "57376", - "Estonia" - ], - [ - "1235", - "Fitzgerald", - "Green", - "M3P 9N2", - "Slovenia" - ], - [ - "1236", - "Sade", - "Hinton", - "35561", - "Barbados" - ], - [ - "1237", - "Suki", - "Parsons", - "44591", - "Syrian Arab Republic" - ], - [ - "1238", - "Orli", - "Weeks", - "K2W 9L4", - "Peru" - ], - [ - "1239", - "Nicholas", - "Copeland", - "I5W 7A4", - "French Guiana" - ], - [ - "1240", - "Guy", - "Vang", - "22277", - "Pitcairn" - ], - [ - "1241", - "Hunter", - "Goodman", - "72290", - "Malaysia" - ], - [ - "1242", - "Noble", - "Rich", - "I3B 6T9", - "Gibraltar" - ], - [ - "1243", - "Delilah", - "Zamora", - "96328", - "New Zealand" - ], - [ - "1244", - "Sybil", - "Mercer", - "93665", - "Namibia" - ], - [ - "1245", - "Scarlett", - "Brock", - "Z2E 3J2", - "Central African Republic" - ], - [ - "1246", - "Channing", - "Alexander", - "W5V 8D2", - "San Marino" - ], - [ - "1247", - "Carolyn", - "Boyle", - "Q5Z 9E6", - "Gabon" - ], - [ - "1248", - "Irene", - "Jennings", - "F3H 4O6", - "Saint Helena" - ], - [ - "1249", - "Bianca", - "Pratt", - "66354", - "Malaysia" - ], - [ - "1250", - "Dexter", - "Cole", - "56106", - "French Southern Territories" - ], - [ - "1251", - "Berk", - "Velez", - "26759", - "Lesotho" - ], - [ - "1252", - "Barrett", - "Richardson", - "59446", - "Cocos (Keeling) Islands" - ], - [ - "1253", - "Scarlet", - "Jacobs", - "G9A 7L6", - "Dominica" - ], - [ - "1254", - "Aiko", - "Brooks", - "R6R 9E4", - "Liberia" - ], - [ - "1255", - "Jacob", - "Moore", - "P2Y 6P3", - "Cambodia" - ], - [ - "1256", - "Madeline", - "Bishop", - "D4I 2E7", - "Dominican Republic" - ], - [ - "1257", - "Jarrod", - "Evans", - "C9O 7V7", - "Taiwan, Province of China" - ], - [ - "1258", - "Beverly", - "Witt", - "64850", - "Denmark" - ], - [ - "1259", - "Karyn", - "Rhodes", - "D6G 5Z3", - "Cape Verde" - ], - [ - "1260", - "Imani", - "Quinn", - "01897", - "Macao" - ], - [ - "1261", - "Athena", - "Eaton", - "03568", - "Syrian Arab Republic" - ], - [ - "1262", - "Raymond", - "Valdez", - "21037", - "Romania" - ], - [ - "1263", - "Christopher", - "Ferguson", - "64945", - "Indonesia" - ], - [ - "1264", - "Latifah", - "Harris", - "91381", - "Suriname" - ], - [ - "1265", - "Dacey", - "Wagner", - "81483", - "Qatar" - ], - [ - "1266", - "Summer", - "Myers", - "H6A 1G5", - "Angola" - ], - [ - "1267", - "Jasmine", - "Rivera", - "Y4W 8P2", - "Virgin Islands, British" - ], - [ - "1268", - "Cairo", - "Massey", - "Q6Y 7A7", - "Poland" - ], - [ - "1269", - "Jena", - "Hill", - "89480", - "United States Minor Outlying Islands" - ], - [ - "1270", - "Ava", - "Benson", - "L9H 8V1", - "Sri Lanka" - ], - [ - "1271", - "Gillian", - "Mercado", - "A9W 6V5", - "Norway" - ], - [ - "1272", - "Peter", - "Marquez", - "I5B 3W9", - "Guyana" - ], - [ - "1273", - "Price", - "Coleman", - "X8G 2S0", - "Burkina Faso" - ], - [ - "1274", - "Shana", - "Harper", - "L2B 3U9", - "Malaysia" - ], - [ - "1275", - "Serina", - "Matthews", - "58061", - "Lithuania" - ], - [ - "1276", - "Aretha", - "Bryant", - "Y8J 7A5", - "Tonga" - ], - [ - "1277", - "Wesley", - "Craig", - "20141", - "Australia" - ], - [ - "1278", - "Martena", - "Mercer", - "P6X 2L9", - "Sudan" - ], - [ - "1279", - "Tamara", - "Dennis", - "D3H 9R0", - "Mali" - ], - [ - "1280", - "Phelan", - "Pena", - "D2H 2H7", - "United States Minor Outlying Islands" - ], - [ - "1281", - "Rebecca", - "Kinney", - "B5Z 9S4", - "Antarctica" - ], - [ - "1282", - "Josephine", - "Delgado", - "81010", - "Algeria" - ], - [ - "1283", - "Kieran", - "Estes", - "70093", - "Bermuda" - ], - [ - "1284", - "Tamara", - "Williamson", - "90905", - "French Guiana" - ], - [ - "1285", - "Dora", - "Serrano", - "W8K 6R5", - "Nauru" - ], - [ - "1286", - "Morgan", - "Bass", - "B6F 8R2", - "Madagascar" - ], - [ - "1287", - "Margaret", - "Austin", - "D2C 2C1", - "Belgium" - ], - [ - "1288", - "Nasim", - "Berry", - "J9X 7M5", - "Heard Island and Mcdonald Islands" - ], - [ - "1289", - "Jelani", - "Rutledge", - "34552", - "Bolivia" - ], - [ - "1290", - "Cassady", - "Hardin", - "I2K 4H6", - "Hong Kong" - ], - [ - "1291", - "Jenette", - "Thornton", - "44943", - "Uganda" - ], - [ - "1292", - "Alexandra", - "Sims", - "93937", - "Australia" - ], - [ - "1293", - "Ross", - "Higgins", - "61993", - "Nicaragua" - ], - [ - "1294", - "Penelope", - "Henson", - "90344", - "Trinidad and Tobago" - ], - [ - "1295", - "Yoshi", - "Blackwell", - "C8D 1T4", - "Costa Rica" - ], - [ - "1296", - "Daria", - "Rodriquez", - "X3C 6L0", - "Iceland" - ], - [ - "1297", - "Wesley", - "Waller", - "43947", - "Myanmar" - ], - [ - "1298", - "Adam", - "Hayden", - "88969", - "Italy" - ], - [ - "1299", - "Charity", - "William", - "46439", - "Greece" - ], - [ - "1300", - "Ronan", - "Hopper", - "51955", - "Zambia" - ], - [ - "1301", - "Geraldine", - "Hatfield", - "W9S 7T5", - "Luxembourg" - ], - [ - "1302", - "Barry", - "Nicholson", - "79625", - "Liechtenstein" - ], - [ - "1303", - "Donovan", - "Ortiz", - "68119", - "Macao" - ], - [ - "1304", - "Jeanette", - "Cooper", - "D5P 9L2", - "Sri Lanka" - ], - [ - "1305", - "Isadora", - "Stephenson", - "P4X 4H5", - "Mauritania" - ], - [ - "1306", - "Hall", - "Hays", - "J2Z 2H1", - "Svalbard and Jan Mayen" - ], - [ - "1307", - "Idola", - "Roberson", - "89249", - "Niue" - ], - [ - "1308", - "Olympia", - "Dennis", - "69498", - "Guinea" - ], - [ - "1309", - "Naida", - "Palmer", - "19840", - "Gambia" - ], - [ - "1310", - "Maxine", - "Rollins", - "87856", - "Belize" - ], - [ - "1311", - "Rooney", - "Phelps", - "48424", - "Italy" - ], - [ - "1312", - "Shelly", - "Edwards", - "O7O 1U4", - "Mali" - ], - [ - "1313", - "Cassidy", - "Holcomb", - "98785", - "Colombia" - ], - [ - "1314", - "Sybil", - "Moran", - "F3C 6E4", - "Switzerland" - ], - [ - "1315", - "Mufutau", - "Larson", - "00276", - "British Indian Ocean Territory" - ], - [ - "1316", - "Fiona", - "Bryant", - "U7Y 7N6", - "Cocos (Keeling) Islands" - ], - [ - "1317", - "Lenore", - "Boyle", - "H5G 6P9", - "Sudan" - ], - [ - "1318", - "Ignacia", - "Avila", - "Y5M 1S2", - "Romania" - ], - [ - "1319", - "Wendy", - "Stein", - "25422", - "Taiwan, Province of China" - ], - [ - "1320", - "Garrison", - "Bass", - "B9J 6D9", - "Romania" - ], - [ - "1321", - "Curran", - "Roy", - "X2F 4P2", - "Taiwan, Province of China" - ], - [ - "1322", - "Oliver", - "Beach", - "N6J 1C5", - "Kazakhstan" - ], - [ - "1323", - "Bo", - "Duran", - "D5C 5C2", - "Eritrea" - ], - [ - "1324", - "Tashya", - "Morrow", - "N2J 7O9", - "Rwanda" - ], - [ - "1325", - "Cheryl", - "Powell", - "72413", - "Niger" - ], - [ - "1326", - "Justin", - "Roth", - "18779", - "Brunei Darussalam" - ], - [ - "1327", - "Nathaniel", - "Foster", - "04955", - "Bermuda" - ], - [ - "1328", - "Candace", - "Nunez", - "G7Z 1N2", - "Moldova" - ], - [ - "1329", - "Nero", - "West", - "K3Q 6B3", - "Myanmar" - ], - [ - "1330", - "Brendan", - "Mcintyre", - "C4E 5H7", - "Argentina" - ], - [ - "1331", - "Chaney", - "Stafford", - "V3X 8J4", - "Benin" - ], - [ - "1332", - "Sylvia", - "Velez", - "95851", - "Iraq" - ], - [ - "1333", - "Azalia", - "Castro", - "55986", - "Israel" - ], - [ - "1334", - "Emily", - "Hogan", - "74667", - "Botswana" - ], - [ - "1335", - "Buckminster", - "Hurst", - "N9C 2X6", - "Reunion" - ], - [ - "1336", - "Rinah", - "Rodriquez", - "31896", - "Guinea-bissau" - ], - [ - "1337", - "Nash", - "Barnett", - "Y8X 7H5", - "China" - ], - [ - "1338", - "Xanthus", - "Barker", - "11212", - "Trinidad and Tobago" - ], - [ - "1339", - "Minerva", - "Huber", - "M6M 9U3", - "Equatorial Guinea" - ], - [ - "1340", - "Kaseem", - "Tillman", - "86565", - "Bulgaria" - ], - [ - "1341", - "Cassidy", - "Dejesus", - "93205", - "Sierra Leone" - ], - [ - "1342", - "Sheila", - "Munoz", - "26473", - "Benin" - ], - [ - "1343", - "Florence", - "Yates", - "M5O 1J1", - "Russian Federation" - ], - [ - "1344", - "Isadora", - "Wagner", - "88381", - "Philippines" - ], - [ - "1345", - "Hilel", - "Kramer", - "E5D 4F5", - "Lebanon" - ], - [ - "1346", - "Stewart", - "Lawson", - "67313", - "Malaysia" - ], - [ - "1347", - "Ira", - "Duffy", - "52841", - "Greece" - ], - [ - "1348", - "Ignatius", - "Robinson", - "10035", - "Russian Federation" - ], - [ - "1349", - "Baxter", - "Carroll", - "92288", - "Albania" - ], - [ - "1350", - "Palmer", - "James", - "N5X 5B1", - "Germany" - ], - [ - "1351", - "Ava", - "Eaton", - "76497", - "Egypt" - ], - [ - "1352", - "Kiona", - "Smith", - "09402", - "Belize" - ], - [ - "1353", - "Brian", - "Barlow", - "00156", - "Panama" - ], - [ - "1354", - "Nolan", - "Rosa", - "J2O 9W2", - "Uruguay" - ], - [ - "1355", - "Teegan", - "Burnett", - "02401", - "Italy" - ], - [ - "1356", - "Erin", - "Knox", - "95496", - "Egypt" - ], - [ - "1357", - "Amela", - "Sanford", - "59890", - "Virgin Islands, U.S." - ], - [ - "1358", - "Quemby", - "Hensley", - "17698", - "Tuvalu" - ], - [ - "1359", - "Ava", - "York", - "J1M 1A0", - "Nigeria" - ], - [ - "1360", - "Vivien", - "Ware", - "N9S 1W6", - "Bahamas" - ], - [ - "1361", - "Nyssa", - "Lamb", - "97964", - "Estonia" - ], - [ - "1362", - "Brenna", - "Slater", - "L4P 5V6", - "British Indian Ocean Territory" - ], - [ - "1363", - "Kennan", - "Larsen", - "M2A 4X0", - "Angola" - ], - [ - "1364", - "Linda", - "Luna", - "P8C 4S8", - "Gambia" - ], - [ - "1365", - "Boris", - "Poole", - "U7J 4G1", - "Aruba" - ], - [ - "1366", - "Lyle", - "Cote", - "F5J 3Y2", - "Somalia" - ], - [ - "1367", - "Oleg", - "Knapp", - "K4C 5T8", - "Guinea" - ], - [ - "1368", - "Hanae", - "Brown", - "51395", - "Nepal" - ], - [ - "1369", - "India", - "Hyde", - "E8P 7E8", - "Belize" - ], - [ - "1370", - "Madeson", - "Hodge", - "23265", - "Gambia" - ], - [ - "1371", - "Thaddeus", - "Hester", - "Y7S 5W1", - "Saint Helena" - ], - [ - "1372", - "Aaron", - "Kemp", - "A1Q 8R3", - "Albania" - ], - [ - "1373", - "Aurelia", - "Thornton", - "P8T 9D4", - "Swaziland" - ], - [ - "1374", - "Preston", - "Sharpe", - "97472", - "Niue" - ], - [ - "1375", - "Grace", - "Gregory", - "51767", - "Burkina Faso" - ], - [ - "1376", - "Nicole", - "Hicks", - "81040", - "Burkina Faso" - ], - [ - "1377", - "Hall", - "Randall", - "X1C 7A8", - "Cambodia" - ], - [ - "1378", - "Burke", - "Silva", - "57219", - "Romania" - ], - [ - "1379", - "Talon", - "Kline", - "28200", - "Argentina" - ], - [ - "1380", - "Cassady", - "Duncan", - "Y2M 8F5", - "Kenya" - ], - [ - "1381", - "Brielle", - "Reed", - "06254", - "Greece" - ], - [ - "1382", - "Claire", - "Stein", - "50289", - "Viet Nam" - ], - [ - "1383", - "Fleur", - "Cabrera", - "30131", - "Indonesia" - ], - [ - "1384", - "Ella", - "Ellison", - "Q7Q 4R2", - "Netherlands Antilles" - ], - [ - "1385", - "Zachery", - "Wolf", - "A9Q 6A8", - "Jamaica" - ], - [ - "1386", - "Emerson", - "Brewer", - "Y4R 9M9", - "Bosnia and Herzegovina" - ], - [ - "1387", - "Sarah", - "Brooks", - "27281", - "Pitcairn" - ], - [ - "1388", - "Kylan", - "Garrison", - "S8E 7L8", - "Djibouti" - ], - [ - "1389", - "Guinevere", - "Mills", - "75612", - "Comoros" - ], - [ - "1390", - "Claudia", - "Stevenson", - "73390", - "Colombia" - ], - [ - "1391", - "Valentine", - "Burton", - "Z9P 7R8", - "Nauru" - ], - [ - "1392", - "Raymond", - "Mclean", - "L8W 2K5", - "Brunei Darussalam" - ], - [ - "1393", - "Juliet", - "Combs", - "88712", - "Samoa" - ], - [ - "1394", - "Lawrence", - "Williamson", - "32528", - "Netherlands Antilles" - ], - [ - "1395", - "Inga", - "Rivers", - "12850", - "Kuwait" - ], - [ - "1396", - "Mira", - "Zimmerman", - "D1I 1W2", - "Ireland" - ], - [ - "1397", - "Hilda", - "Stafford", - "11054", - "Cuba" - ], - [ - "1398", - "Tanek", - "Kim", - "88590", - "Cayman Islands" - ], - [ - "1399", - "Bryar", - "Mcintyre", - "H6F 4S5", - "Russian Federation" - ], - [ - "1400", - "Sean", - "Reed", - "P2V 8J9", - "Malta" - ], - [ - "1401", - "Serena", - "Henderson", - "Z5C 8A0", - "Madagascar" - ], - [ - "1402", - "Hedley", - "Parks", - "L8S 6F4", - "Angola" - ], - [ - "1403", - "Alice", - "Quinn", - "06084", - "Senegal" - ], - [ - "1404", - "Linda", - "Burgess", - "H1E 7C0", - "Turkmenistan" - ], - [ - "1405", - "Hilda", - "Burns", - "Q9Q 4S2", - "Kyrgyzstan" - ], - [ - "1406", - "Griffith", - "Watts", - "D4J 7N2", - "United States Minor Outlying Islands" - ], - [ - "1407", - "Camden", - "Glenn", - "12939", - "Russian Federation" - ], - [ - "1408", - "Tallulah", - "Rush", - "G9V 3N2", - "Turkey" - ], - [ - "1409", - "Hasad", - "Salinas", - "H3F 7P9", - "Cameroon" - ], - [ - "1410", - "Violet", - "Chavez", - "T2H 9C6", - "Virgin Islands, U.S." - ], - [ - "1411", - "Declan", - "Hurley", - "32614", - "Iran, Islamic Republic of" - ], - [ - "1412", - "Robin", - "Dean", - "34266", - "Northern Mariana Islands" - ], - [ - "1413", - "Mariko", - "Avila", - "B8F 8Y5", - "Burundi" - ], - [ - "1414", - "Bradley", - "Pugh", - "11453", - "Sri Lanka" - ], - [ - "1415", - "Herman", - "Hernandez", - "F3C 6S2", - "Chile" - ], - [ - "1416", - "Montana", - "Wynn", - "B3M 8M2", - "Aruba" - ], - [ - "1417", - "Erin", - "Melton", - "17022", - "France" - ], - [ - "1418", - "Zachery", - "Small", - "L5O 7O1", - "French Southern Territories" - ], - [ - "1419", - "Melanie", - "Rivera", - "07922", - "Korea" - ], - [ - "1420", - "Blossom", - "Chase", - "75493", - "Mauritius" - ], - [ - "1421", - "Stephanie", - "Taylor", - "U8K 3I9", - "Bahamas" - ], - [ - "1422", - "Carter", - "Fulton", - "T4F 8D1", - "Turks and Caicos Islands" - ], - [ - "1423", - "Celeste", - "Medina", - "75629", - "Lebanon" - ], - [ - "1424", - "Katell", - "Guzman", - "15409", - "United Arab Emirates" - ], - [ - "1425", - "Howard", - "Rowland", - "29003", - "Liberia" - ], - [ - "1426", - "Reece", - "Taylor", - "W8G 7P7", - "Samoa" - ], - [ - "1427", - "Bradley", - "Peterson", - "52568", - "Singapore" - ], - [ - "1428", - "Ulric", - "Hancock", - "07437", - "Bolivia" - ], - [ - "1429", - "Francis", - "Rogers", - "15904", - "Albania" - ], - [ - "1430", - "Tatiana", - "Mccray", - "19604", - "Belize" - ], - [ - "1431", - "Merrill", - "Rowe", - "68539", - "Ethiopia" - ], - [ - "1432", - "Kiara", - "Taylor", - "F6D 8V7", - "Burkina Faso" - ], - [ - "1433", - "Buffy", - "Shannon", - "61880", - "Kiribati" - ], - [ - "1434", - "Amber", - "Farmer", - "K5F 1J7", - "Barbados" - ], - [ - "1435", - "Blake", - "Wilkins", - "O1L 2G2", - "Virgin Islands, U.S." - ], - [ - "1436", - "Aimee", - "Fulton", - "18626", - "Chad" - ], - [ - "1437", - "Kai", - "Montgomery", - "U6S 4W7", - "Costa Rica" - ], - [ - "1438", - "Latifah", - "Bell", - "74589", - "Chad" - ], - [ - "1439", - "Ronan", - "Herring", - "01710", - "Palestinian Territory, Occupied" - ], - [ - "1440", - "Macy", - "Skinner", - "78054", - "Gibraltar" - ], - [ - "1441", - "Ignatius", - "Berg", - "59756", - "Liechtenstein" - ], - [ - "1442", - "Prescott", - "Pratt", - "V6H 6P4", - "Kuwait" - ], - [ - "1443", - "Deborah", - "Hebert", - "11480", - "Liberia" - ], - [ - "1444", - "Quentin", - "Jones", - "G8W 8U6", - "Slovenia" - ], - [ - "1445", - "Duncan", - "Parsons", - "Z9F 5G8", - "Cambodia" - ], - [ - "1446", - "Sheila", - "George", - "18033", - "Trinidad and Tobago" - ], - [ - "1447", - "Alyssa", - "Padilla", - "V3O 6C3", - "Qatar" - ], - [ - "1448", - "Amelia", - "Orr", - "51943", - "Canada" - ], - [ - "1449", - "Bethany", - "Thomas", - "33451", - "Liberia" - ], - [ - "1450", - "Kellie", - "Pitts", - "G4S 1Q3", - "Panama" - ], - [ - "1451", - "Stone", - "Stout", - "L4C 9N0", - "Latvia" - ], - [ - "1452", - "Brynne", - "Bailey", - "B1M 4O0", - "Ukraine" - ], - [ - "1453", - "Aquila", - "Hurley", - "41312", - "United Kingdom" - ], - [ - "1454", - "David", - "Bradshaw", - "11152", - "Denmark" - ], - [ - "1455", - "Ryan", - "Gates", - "Z7O 1U0", - "Austria" - ], - [ - "1456", - "Kyle", - "Weber", - "39871", - "Guyana" - ], - [ - "1457", - "Declan", - "Moore", - "K3B 6L2", - "Gibraltar" - ], - [ - "1458", - "Theodore", - "Hickman", - "W8E 6K1", - "Mauritius" - ], - [ - "1459", - "Rebekah", - "Merritt", - "44042", - "Mauritania" - ], - [ - "1460", - "Meredith", - "Powell", - "98238", - "Bhutan" - ], - [ - "1461", - "Paki", - "Simmons", - "34122", - "Norway" - ], - [ - "1462", - "Carissa", - "Ballard", - "20095", - "Antarctica" - ], - [ - "1463", - "James", - "Wilson", - "96376", - "Venezuela" - ], - [ - "1464", - "Pamela", - "Gamble", - "U7F 7B6", - "Turkmenistan" - ], - [ - "1465", - "Rogan", - "Davenport", - "E6S 4R7", - "French Polynesia" - ], - [ - "1466", - "Daphne", - "Pearson", - "G2H 9M0", - "American Samoa" - ], - [ - "1467", - "Maxwell", - "Nash", - "87205", - "Guadeloupe" - ], - [ - "1468", - "Hayes", - "Salazar", - "55712", - "American Samoa" - ], - [ - "1469", - "Justin", - "Conner", - "03924", - "United Kingdom" - ], - [ - "1470", - "Blythe", - "Joyner", - "T6H 3M0", - "Montserrat" - ], - [ - "1471", - "Herrod", - "Spears", - "19474", - "Philippines" - ], - [ - "1472", - "Yvette", - "Joyce", - "R7Y 7B8", - "Botswana" - ], - [ - "1473", - "Chloe", - "Reid", - "K4Y 1R2", - "Philippines" - ], - [ - "1474", - "MacKensie", - "Branch", - "J5E 3X8", - "Saint Kitts and Nevis" - ], - [ - "1475", - "Nasim", - "Buchanan", - "M4E 4D2", - "Portugal" - ], - [ - "1476", - "Aileen", - "Rasmussen", - "H2V 3F4", - "Dominica" - ], - [ - "1477", - "Nicole", - "Mullins", - "U6Q 9X5", - "New Caledonia" - ], - [ - "1478", - "David", - "Luna", - "11935", - "Svalbard and Jan Mayen" - ], - [ - "1479", - "Germaine", - "Massey", - "G3N 4C7", - "Colombia" - ], - [ - "1480", - "Matthew", - "Knowles", - "V4D 4Z0", - "Turkey" - ], - [ - "1481", - "Timon", - "Rowe", - "14024", - "Morocco" - ], - [ - "1482", - "Gail", - "Young", - "68293", - "Bhutan" - ], - [ - "1483", - "Mariam", - "Mejia", - "O3P 4Q7", - "Singapore" - ], - [ - "1484", - "Carla", - "Norris", - "D7A 3F1", - "Liberia" - ], - [ - "1485", - "Ainsley", - "Donaldson", - "H4Z 1Q8", - "Tanzania, United Republic of" - ], - [ - "1486", - "Avye", - "Raymond", - "44808", - "Namibia" - ], - [ - "1487", - "Amanda", - "Sargent", - "O7F 3S4", - "Afghanistan" - ], - [ - "1488", - "Tiger", - "Chambers", - "I3K 7H4", - "United States" - ], - [ - "1489", - "Dylan", - "Ford", - "04043", - "Solomon Islands" - ], - [ - "1490", - "Kaitlin", - "Franklin", - "99451", - "Namibia" - ], - [ - "1491", - "Hayes", - "Craft", - "D6H 4Y6", - "Christmas Island" - ], - [ - "1492", - "Nolan", - "Sullivan", - "31246", - "United States Minor Outlying Islands" - ], - [ - "1493", - "Jennifer", - "Romero", - "E7I 1R7", - "Latvia" - ], - [ - "1494", - "Deanna", - "Wall", - "36109", - "Nepal" - ], - [ - "1495", - "Dara", - "Valenzuela", - "18359", - "Martinique" - ], - [ - "1496", - "Iris", - "Blanchard", - "84392", - "Turks and Caicos Islands" - ], - [ - "1497", - "Rhea", - "Burgess", - "T7Y 7C5", - "Liberia" - ], - [ - "1498", - "Karina", - "Small", - "B2F 2X5", - "Bermuda" - ], - [ - "1499", - "Victor", - "Case", - "49492", - "Vanuatu" - ], - [ - "1500", - "Rose", - "Terry", - "B4G 8I0", - "Timor-leste" - ], - [ - "1501", - "Wyatt", - "Berg", - "K3B 5N2", - "Vanuatu" - ], - [ - "1502", - "Zephania", - "Herrera", - "E6R 2A5", - "Romania" - ], - [ - "1503", - "Felix", - "Johns", - "X8U 2P1", - "Angola" - ], - [ - "1504", - "Melyssa", - "George", - "M4J 5X8", - "Uzbekistan" - ], - [ - "1505", - "Robert", - "Spears", - "61322", - "Papua New Guinea" - ], - [ - "1506", - "Myra", - "Wood", - "50638", - "Afghanistan" - ], - [ - "1507", - "Sean", - "Kerr", - "40094", - "Guadeloupe" - ], - [ - "1508", - "Wesley", - "Mcclain", - "H7F 1H3", - "Mongolia" - ], - [ - "1509", - "Ishmael", - "Hoover", - "42503", - "Czech Republic" - ], - [ - "1510", - "Ocean", - "Parker", - "L3Z 8G0", - "Guyana" - ], - [ - "1511", - "Berk", - "Clay", - "B6Q 7V7", - "Botswana" - ], - [ - "1512", - "Daquan", - "Harrison", - "78004", - "Niger" - ], - [ - "1513", - "Ramona", - "Burris", - "66986", - "Palau" - ], - [ - "1514", - "Jaden", - "Miranda", - "80086", - "Madagascar" - ], - [ - "1515", - "Solomon", - "Kirk", - "R7M 3M3", - "Slovenia" - ], - [ - "1516", - "Tanek", - "Rosales", - "X5B 5D0", - "Tonga" - ], - [ - "1517", - "Jack", - "Cooke", - "46356", - "French Southern Territories" - ], - [ - "1518", - "Naomi", - "Sykes", - "76541", - "Marshall Islands" - ], - [ - "1519", - "Moana", - "Vinson", - "K4R 3U7", - "Saint Pierre and Miquelon" - ], - [ - "1520", - "Kaye", - "Sweet", - "S6S 2G0", - "Dominican Republic" - ], - [ - "1521", - "Bruno", - "Beard", - "20686", - "Israel" - ], - [ - "1522", - "Helen", - "Richards", - "66393", - "Argentina" - ], - [ - "1523", - "Gisela", - "Owens", - "S8Q 4L3", - "Haiti" - ], - [ - "1524", - "Ivy", - "Garrett", - "P6G 8S8", - "United Arab Emirates" - ], - [ - "1525", - "Malik", - "Osborne", - "78332", - "Tajikistan" - ], - [ - "1526", - "Whoopi", - "Franco", - "T3T 5Y1", - "Serbia and Montenegro" - ], - [ - "1527", - "Basil", - "Baker", - "61233", - "Cuba" - ], - [ - "1528", - "Linda", - "King", - "31410", - "Falkland Islands (Malvinas)" - ], - [ - "1529", - "Allegra", - "Hobbs", - "F2C 9M8", - "Andorra" - ], - [ - "1530", - "Kirsten", - "Elliott", - "T8C 4X3", - "Haiti" - ], - [ - "1531", - "Joseph", - "Ortiz", - "40165", - "Falkland Islands (Malvinas)" - ], - [ - "1532", - "Pearl", - "Mccormick", - "93914", - "Falkland Islands (Malvinas)" - ], - [ - "1533", - "Fritz", - "Austin", - "A3S 7C8", - "Canada" - ], - [ - "1534", - "Lunea", - "Hickman", - "25676", - "Cameroon" - ], - [ - "1535", - "Inga", - "Cortez", - "14707", - "Comoros" - ], - [ - "1536", - "Claudia", - "Long", - "74877", - "Tokelau" - ], - [ - "1537", - "Judah", - "Williamson", - "S9N 6F0", - "Paraguay" - ], - [ - "1538", - "Eve", - "Beasley", - "K8Z 5H7", - "Honduras" - ], - [ - "1539", - "Tad", - "Lang", - "29577", - "Equatorial Guinea" - ], - [ - "1540", - "Jack", - "Lawson", - "46631", - "Costa Rica" - ], - [ - "1541", - "Vaughan", - "Barron", - "N9L 9T4", - "Chile" - ], - [ - "1542", - "Solomon", - "Bowman", - "05734", - "Cocos (Keeling) Islands" - ], - [ - "1543", - "Nash", - "Giles", - "64600", - "Denmark" - ], - [ - "1544", - "Xander", - "Eaton", - "84933", - "Bosnia and Herzegovina" - ], - [ - "1545", - "Hanna", - "Hull", - "61062", - "Namibia" - ], - [ - "1546", - "Lee", - "Gaines", - "V7H 6H7", - "Suriname" - ], - [ - "1547", - "Brian", - "Sutton", - "60055", - "Timor-leste" - ], - [ - "1548", - "Azalia", - "Henson", - "D9J 8E4", - "Antarctica" - ], - [ - "1549", - "Russell", - "Avila", - "01774", - "China" - ], - [ - "1550", - "Marsden", - "Leblanc", - "30201", - "New Caledonia" - ], - [ - "1551", - "Tad", - "Nichols", - "K5V 6N1", - "Monaco" - ], - [ - "1552", - "Eliana", - "Savage", - "06807", - "Central African Republic" - ], - [ - "1553", - "Madeline", - "Conway", - "83513", - "Latvia" - ], - [ - "1554", - "Kai", - "Caldwell", - "S1K 2Q2", - "Indonesia" - ], - [ - "1555", - "Wynne", - "Goodman", - "U9Y 8P7", - "Gibraltar" - ], - [ - "1556", - "Nora", - "Dudley", - "52688", - "Netherlands Antilles" - ], - [ - "1557", - "Anastasia", - "Gates", - "T7T 8C8", - "Morocco" - ], - [ - "1558", - "Lester", - "Good", - "76376", - "Heard Island and Mcdonald Islands" - ], - [ - "1559", - "Craig", - "Skinner", - "S7B 3Z6", - "Madagascar" - ], - [ - "1560", - "Kibo", - "Craft", - "M5C 2I9", - "Hong Kong" - ], - [ - "1561", - "Carlos", - "Buck", - "89343", - "Northern Mariana Islands" - ], - [ - "1562", - "Ivor", - "Mooney", - "M9D 2Y3", - "Korea" - ], - [ - "1563", - "Armand", - "Shields", - "E8O 7X6", - "Uzbekistan" - ], - [ - "1564", - "Grace", - "Weeks", - "G5B 3W5", - "Nicaragua" - ], - [ - "1565", - "Reagan", - "Mann", - "J2E 5I1", - "San Marino" - ], - [ - "1566", - "Quin", - "Nolan", - "Q9E 2Q0", - "Turkey" - ], - [ - "1567", - "Kareem", - "Jefferson", - "91393", - "Zambia" - ], - [ - "1568", - "Erica", - "Mccoy", - "C3P 3L0", - "Viet Nam" - ], - [ - "1569", - "Sybill", - "Larsen", - "J3U 3L9", - "Sierra Leone" - ], - [ - "1570", - "Angela", - "Weber", - "46559", - "Croatia" - ], - [ - "1571", - "Mannix", - "Noel", - "94029", - "Belgium" - ], - [ - "1572", - "Martina", - "Travis", - "20063", - "Solomon Islands" - ], - [ - "1573", - "Dominic", - "Whitehead", - "83547", - "Gibraltar" - ], - [ - "1574", - "Vladimir", - "Hunter", - "L3I 4G7", - "Reunion" - ], - [ - "1575", - "Farrah", - "Alexander", - "18538", - "Croatia" - ], - [ - "1576", - "Hop", - "Burns", - "X1C 7J6", - "Saint Lucia" - ], - [ - "1577", - "Zelda", - "Trevino", - "L8P 7E9", - "Guinea" - ], - [ - "1578", - "Nehru", - "Decker", - "Q1P 4Q9", - "Western Sahara" - ], - [ - "1579", - "Shay", - "Goff", - "68576", - "Sweden" - ], - [ - "1580", - "Dominic", - "Martin", - "C1M 9P2", - "Denmark" - ], - [ - "1581", - "Heather", - "Doyle", - "Y7R 9H1", - "Iran, Islamic Republic of" - ], - [ - "1582", - "Honorato", - "Rojas", - "29414", - "India" - ], - [ - "1583", - "Florence", - "England", - "64669", - "China" - ], - [ - "1584", - "Zane", - "Reyes", - "84771", - "Heard Island and Mcdonald Islands" - ], - [ - "1585", - "Scarlett", - "Poole", - "36928", - "Algeria" - ], - [ - "1586", - "Dieter", - "Brennan", - "Y8V 5L2", - "Colombia" - ], - [ - "1587", - "Jamal", - "Whitney", - "33428", - "Turkey" - ], - [ - "1588", - "Evan", - "Guy", - "72119", - "Slovakia" - ], - [ - "1589", - "Candace", - "Bauer", - "C8L 1P2", - "Macedonia" - ], - [ - "1590", - "Naomi", - "Pennington", - "17350", - "Tonga" - ], - [ - "1591", - "Celeste", - "Banks", - "R8R 4C8", - "Anguilla" - ], - [ - "1592", - "Basil", - "Elliott", - "80065", - "Singapore" - ], - [ - "1593", - "Darryl", - "Wise", - "33140", - "Brunei Darussalam" - ], - [ - "1594", - "Marny", - "Walls", - "S1K 4V1", - "Western Sahara" - ], - [ - "1595", - "Anastasia", - "Meyer", - "Z1F 8C2", - "El Salvador" - ], - [ - "1596", - "Brynne", - "Rivera", - "48070", - "Mexico" - ], - [ - "1597", - "Macey", - "Johnston", - "X9E 9J5", - "Guadeloupe" - ], - [ - "1598", - "Bethany", - "Marks", - "46648", - "Bhutan" - ], - [ - "1599", - "Kiayada", - "Glass", - "13661", - "Christmas Island" - ], - [ - "1600", - "Veda", - "Bowers", - "D7S 1S9", - "Korea" - ], - [ - "1601", - "Dante", - "Kirk", - "58404", - "Guinea" - ], - [ - "1602", - "Judah", - "Sloan", - "04528", - "Andorra" - ], - [ - "1603", - "Serena", - "Giles", - "12139", - "Papua New Guinea" - ], - [ - "1604", - "Chase", - "Hull", - "27203", - "Guinea-bissau" - ], - [ - "1605", - "Wallace", - "Poole", - "58919", - "Christmas Island" - ], - [ - "1606", - "Deacon", - "Lynn", - "Z1H 9G4", - "Kenya" - ], - [ - "1607", - "Igor", - "Duncan", - "X2V 2X1", - "Christmas Island" - ], - [ - "1608", - "Walker", - "Hopkins", - "67256", - "Bosnia and Herzegovina" - ], - [ - "1609", - "Serena", - "Burnett", - "Q4C 7Q0", - "Canada" - ], - [ - "1610", - "Hedwig", - "Burgess", - "O2J 7A5", - "Rwanda" - ], - [ - "1611", - "Amal", - "Richmond", - "34506", - "Australia" - ], - [ - "1612", - "Rhona", - "Gomez", - "W2C 3I7", - "Oman" - ], - [ - "1613", - "Kai", - "Acosta", - "N2O 7M2", - "Uganda" - ], - [ - "1614", - "Henry", - "Roman", - "78113", - "Guadeloupe" - ], - [ - "1615", - "Chester", - "Good", - "88809", - "Norway" - ], - [ - "1616", - "Cleo", - "Tanner", - "73924", - "Uganda" - ], - [ - "1617", - "Emi", - "Lloyd", - "59746", - "South Africa" - ], - [ - "1618", - "Christopher", - "Lopez", - "76264", - "Libyan Arab Jamahiriya" - ], - [ - "1619", - "Yvonne", - "Mathews", - "68655", - "Saint Lucia" - ], - [ - "1620", - "Kimberly", - "Mullen", - "D6J 9G3", - "Virgin Islands, British" - ], - [ - "1621", - "Hanna", - "Slater", - "F8F 9K5", - "Montserrat" - ], - [ - "1622", - "Laura", - "Dennis", - "J6U 2G3", - "Viet Nam" - ], - [ - "1623", - "Rogan", - "Richards", - "R1D 1B3", - "Argentina" - ], - [ - "1624", - "Mira", - "Rodriquez", - "C3D 3E5", - "Guinea" - ], - [ - "1625", - "Ezra", - "Myers", - "Y7Z 7X2", - "Kuwait" - ], - [ - "1626", - "Jocelyn", - "Martin", - "E2F 3F2", - "Algeria" - ], - [ - "1627", - "Denton", - "Lee", - "80903", - "Congo" - ], - [ - "1628", - "Grace", - "Leach", - "86865", - "Spain" - ], - [ - "1629", - "Clark", - "Morrow", - "12834", - "Northern Mariana Islands" - ], - [ - "1630", - "Armando", - "Calhoun", - "I3I 1D4", - "Spain" - ], - [ - "1631", - "George", - "Decker", - "R1B 6Q9", - "Mali" - ], - [ - "1632", - "Jerome", - "Salazar", - "03831", - "Faroe Islands" - ], - [ - "1633", - "Logan", - "Santiago", - "46269", - "Hungary" - ], - [ - "1634", - "Gavin", - "Tate", - "Y3L 6G5", - "Italy" - ], - [ - "1635", - "Chloe", - "Jennings", - "D9B 2H9", - "Cambodia" - ], - [ - "1636", - "Rashad", - "Knox", - "T1V 4G5", - "Germany" - ], - [ - "1637", - "Jin", - "Roberts", - "82928", - "Azerbaijan" - ], - [ - "1638", - "Amity", - "Guerrero", - "F4G 2L4", - "Viet Nam" - ], - [ - "1639", - "Carter", - "Roberson", - "53651", - "Niue" - ], - [ - "1640", - "Slade", - "Carson", - "H9E 1G1", - "Guyana" - ], - [ - "1641", - "Buckminster", - "Christensen", - "F5J 6T5", - "Algeria" - ], - [ - "1642", - "Fallon", - "Peters", - "D9Y 5Q4", - "Ethiopia" - ], - [ - "1643", - "Amy", - "Barry", - "D6F 3R4", - "New Caledonia" - ], - [ - "1644", - "Calvin", - "Buck", - "18354", - "Macedonia" - ], - [ - "1645", - "Kaye", - "Haynes", - "D9K 1X8", - "Italy" - ], - [ - "1646", - "Shea", - "Hammond", - "R7P 3X8", - "Guam" - ], - [ - "1647", - "Kiara", - "Franks", - "01185", - "Mozambique" - ], - [ - "1648", - "Armando", - "Oneil", - "88972", - "Bahrain" - ], - [ - "1649", - "Lesley", - "Allen", - "05171", - "Belgium" - ], - [ - "1650", - "Ignatius", - "Barrett", - "94084", - "Georgia" - ], - [ - "1651", - "Graham", - "Maldonado", - "76354", - "Dominican Republic" - ], - [ - "1652", - "Briar", - "Roman", - "P9M 3A9", - "Cayman Islands" - ], - [ - "1653", - "Germane", - "Colon", - "U3X 7S9", - "Brazil" - ], - [ - "1654", - "Alvin", - "Mcpherson", - "58411", - "Guinea" - ], - [ - "1655", - "Belle", - "Sandoval", - "87172", - "Cyprus" - ], - [ - "1656", - "Eric", - "Caldwell", - "63246", - "Guinea" - ], - [ - "1657", - "Nadine", - "Dale", - "T6E 4B0", - "Denmark" - ], - [ - "1658", - "Dora", - "Jimenez", - "85463", - "Nauru" - ], - [ - "1659", - "Mohammad", - "Strickland", - "H8B 9G2", - "Japan" - ], - [ - "1660", - "Reagan", - "Preston", - "G5E 8S5", - "Honduras" - ], - [ - "1661", - "Tamekah", - "Daniel", - "Z3X 6Q6", - "Belarus" - ], - [ - "1662", - "Halee", - "Mills", - "23332", - "Mayotte" - ], - [ - "1663", - "Courtney", - "England", - "09751", - "Saint Kitts and Nevis" - ], - [ - "1664", - "Dai", - "Arnold", - "A2N 9J4", - "Argentina" - ], - [ - "1665", - "Priscilla", - "Reyes", - "G2B 5M4", - "Azerbaijan" - ], - [ - "1666", - "Brenda", - "Stanley", - "I6O 3I1", - "Hungary" - ], - [ - "1667", - "Kasper", - "Washington", - "H4K 8K7", - "Serbia and Montenegro" - ], - [ - "1668", - "Suki", - "Hendricks", - "L1K 5O9", - "Norway" - ], - [ - "1669", - "Rebekah", - "Mccormick", - "89543", - "Slovenia" - ], - [ - "1670", - "Oprah", - "Rodriquez", - "90034", - "Costa Rica" - ], - [ - "1671", - "Ivory", - "Matthews", - "T9J 2A7", - "Panama" - ], - [ - "1672", - "Ferris", - "Garner", - "93583", - "Niue" - ], - [ - "1673", - "Melvin", - "White", - "X5U 9N8", - "Nigeria" - ], - [ - "1674", - "Henry", - "Swanson", - "E7V 2C9", - "Northern Mariana Islands" - ], - [ - "1675", - "Hadassah", - "Eaton", - "52798", - "Albania" - ], - [ - "1676", - "Lisandra", - "Sykes", - "90838", - "Namibia" - ], - [ - "1677", - "Honorato", - "Bradshaw", - "W3D 1Z9", - "United States" - ], - [ - "1678", - "Aurelia", - "Paul", - "Z6E 6W9", - "Malaysia" - ], - [ - "1679", - "Arthur", - "Mann", - "74673", - "Bhutan" - ], - [ - "1680", - "Melissa", - "Hernandez", - "11742", - "Dominican Republic" - ], - [ - "1681", - "Bert", - "Mosley", - "N2K 5U5", - "Kuwait" - ], - [ - "1682", - "Sigourney", - "Sharpe", - "30204", - "South Africa" - ], - [ - "1683", - "Ifeoma", - "Woods", - "39850", - "Haiti" - ], - [ - "1684", - "Tyler", - "Medina", - "K6L 9V8", - "Indonesia" - ], - [ - "1685", - "Karleigh", - "Griffin", - "G8Z 6W2", - "Canada" - ], - [ - "1686", - "Brianna", - "Collins", - "11919", - "New Caledonia" - ], - [ - "1687", - "Allistair", - "Hampton", - "O1X 2N7", - "Cocos (Keeling) Islands" - ], - [ - "1688", - "Carla", - "Manning", - "76866", - "Svalbard and Jan Mayen" - ], - [ - "1689", - "Jakeem", - "Brewer", - "Y1T 1D7", - "Comoros" - ], - [ - "1690", - "Price", - "Guerrero", - "S7Z 8O1", - "Christmas Island" - ], - [ - "1691", - "Harlan", - "Sandoval", - "58527", - "Czech Republic" - ], - [ - "1692", - "Marcia", - "Robinson", - "64662", - "Uganda" - ], - [ - "1693", - "Sylvester", - "Hewitt", - "81468", - "Honduras" - ], - [ - "1694", - "Dawn", - "Wood", - "77743", - "Malawi" - ], - [ - "1695", - "Farrah", - "Nielsen", - "E4N 9A9", - "Christmas Island" - ], - [ - "1696", - "Tanisha", - "Benjamin", - "L2J 3G7", - "Cape Verde" - ], - [ - "1697", - "Cherokee", - "Atkins", - "L7D 2L5", - "Moldova" - ], - [ - "1698", - "Madaline", - "Elliott", - "H7K 8R4", - "Barbados" - ], - [ - "1699", - "Odysseus", - "Roy", - "65008", - "Slovakia" - ], - [ - "1700", - "Eaton", - "Stein", - "Z2V 7H0", - "Moldova" - ], - [ - "1701", - "Rachel", - "Hurley", - "L6L 2B2", - "Antigua and Barbuda" - ], - [ - "1702", - "Stacey", - "Hardin", - "O9U 1B7", - "Montserrat" - ], - [ - "1703", - "Grady", - "Montgomery", - "75852", - "Guinea-bissau" - ], - [ - "1704", - "Serena", - "Douglas", - "F5M 8Z6", - "Mauritius" - ], - [ - "1705", - "Ralph", - "Duke", - "H7X 3M9", - "Tunisia" - ], - [ - "1706", - "Charles", - "Moody", - "86445", - "Pitcairn" - ], - [ - "1707", - "Mariam", - "Lara", - "07952", - "United Kingdom" - ], - [ - "1708", - "Whitney", - "Garza", - "74001", - "Norfolk Island" - ], - [ - "1709", - "Beverly", - "Thornton", - "69847", - "Canada" - ], - [ - "1710", - "Helen", - "Gentry", - "Z8S 7U4", - "Reunion" - ], - [ - "1711", - "Janna", - "Gould", - "W6C 6E1", - "Burundi" - ], - [ - "1712", - "Jana", - "Hooper", - "A1R 9Y0", - "Yemen" - ], - [ - "1713", - "Zachary", - "Nicholson", - "49616", - "Gabon" - ], - [ - "1714", - "Julian", - "Davis", - "37608", - "Anguilla" - ], - [ - "1715", - "Gay", - "Knox", - "51952", - "Croatia" - ], - [ - "1716", - "Iola", - "Moses", - "16601", - "French Polynesia" - ], - [ - "1717", - "Allegra", - "Holder", - "C9R 8J3", - "Dominican Republic" - ], - [ - "1718", - "Cecilia", - "Shannon", - "62624", - "Reunion" - ], - [ - "1719", - "Cora", - "Peterson", - "I9V 5P5", - "Chad" - ], - [ - "1720", - "Stewart", - "Mathews", - "A5H 1E1", - "Mexico" - ], - [ - "1721", - "Kathleen", - "Lynn", - "82408", - "Honduras" - ], - [ - "1722", - "William", - "Schneider", - "25823", - "Tajikistan" - ], - [ - "1723", - "Alice", - "Mcconnell", - "50155", - "Russian Federation" - ], - [ - "1724", - "Timon", - "Dillon", - "93171", - "Croatia" - ], - [ - "1725", - "Tanek", - "Ellison", - "Y7Q 5B1", - "Malawi" - ], - [ - "1726", - "Tamekah", - "Cummings", - "03764", - "Afghanistan" - ], - [ - "1727", - "Charlotte", - "Chaney", - "U7Y 7B0", - "Kyrgyzstan" - ], - [ - "1728", - "Jason", - "Conway", - "37713", - "Martinique" - ], - [ - "1729", - "Graiden", - "Combs", - "40454", - "Turkmenistan" - ], - [ - "1730", - "Virginia", - "Ortiz", - "K9N 2Q4", - "Malta" - ], - [ - "1731", - "Thomas", - "Cannon", - "W1H 3T9", - "Cuba" - ], - [ - "1732", - "Galena", - "Dominguez", - "68072", - "India" - ], - [ - "1733", - "Vaughan", - "Petty", - "15200", - "Lesotho" - ], - [ - "1734", - "Buffy", - "Saunders", - "K1W 3B1", - "Burkina Faso" - ], - [ - "1735", - "Chava", - "Hill", - "93461", - "Iran, Islamic Republic of" - ], - [ - "1736", - "Sage", - "Hampton", - "R8Y 8J1", - "Malta" - ], - [ - "1737", - "Nathaniel", - "Whitney", - "89097", - "Ukraine" - ], - [ - "1738", - "Hector", - "Hayden", - "70774", - "Netherlands" - ], - [ - "1739", - "Mercedes", - "Freeman", - "80848", - "Croatia" - ], - [ - "1740", - "Vance", - "Spencer", - "25484", - "Guyana" - ], - [ - "1741", - "Josephine", - "Stevens", - "E4D 9D1", - "Netherlands Antilles" - ], - [ - "1742", - "Barbara", - "Mcclure", - "22602", - "Cambodia" - ], - [ - "1743", - "Sydney", - "Holder", - "X4G 1Z7", - "British Indian Ocean Territory" - ], - [ - "1744", - "Velma", - "Evans", - "83914", - "New Zealand" - ], - [ - "1745", - "Francis", - "Lane", - "12545", - "Serbia and Montenegro" - ], - [ - "1746", - "Garrison", - "Brock", - "19993", - "Eritrea" - ], - [ - "1747", - "Quentin", - "Santiago", - "07085", - "Norfolk Island" - ], - [ - "1748", - "Ivory", - "Wilkerson", - "79440", - "Libyan Arab Jamahiriya" - ], - [ - "1749", - "Karyn", - "Buckner", - "D1Y 7D8", - "Cocos (Keeling) Islands" - ], - [ - "1750", - "Mari", - "Bright", - "24721", - "Pakistan" - ], - [ - "1751", - "Dexter", - "Garrison", - "X3X 7G3", - "Western Sahara" - ], - [ - "1752", - "Venus", - "Acevedo", - "V2F 8C0", - "Poland" - ], - [ - "1753", - "Nayda", - "Camacho", - "F6H 6J5", - "Northern Mariana Islands" - ], - [ - "1754", - "Avye", - "Hartman", - "G6V 2H0", - "Hong Kong" - ], - [ - "1755", - "Kerry", - "Baird", - "M3Q 7B7", - "Russian Federation" - ], - [ - "1756", - "Uma", - "Herman", - "C9A 4P3", - "Libyan Arab Jamahiriya" - ], - [ - "1757", - "Amaya", - "Roman", - "97179", - "Iceland" - ], - [ - "1758", - "Bruce", - "Joyce", - "18344", - "Denmark" - ], - [ - "1759", - "Jarrod", - "Alvarez", - "59269", - "Liberia" - ], - [ - "1760", - "Olivia", - "Reilly", - "99058", - "Malaysia" - ], - [ - "1761", - "Benedict", - "Hensley", - "23105", - "Uganda" - ], - [ - "1762", - "Lavinia", - "Hunter", - "44729", - "Maldives" - ], - [ - "1763", - "Bradley", - "Gomez", - "65125", - "Belize" - ], - [ - "1764", - "Keely", - "Burris", - "18390", - "Brunei Darussalam" - ], - [ - "1765", - "Autumn", - "England", - "E5D 7A5", - "Kyrgyzstan" - ], - [ - "1766", - "Jane", - "Blair", - "S1W 4O0", - "Bangladesh" - ], - [ - "1767", - "Chancellor", - "Barrett", - "E9F 1I1", - "Fiji" - ], - [ - "1768", - "Whitney", - "Morin", - "G5T 4E7", - "Aruba" - ], - [ - "1769", - "Madeline", - "Sparks", - "W7L 7E0", - "Belize" - ], - [ - "1770", - "Dale", - "Estes", - "82712", - "Guam" - ], - [ - "1771", - "Hakeem", - "Buck", - "O6K 1I8", - "Singapore" - ], - [ - "1772", - "Alexandra", - "Burns", - "12697", - "Portugal" - ], - [ - "1773", - "Winifred", - "Gill", - "Z8B 8B8", - "Uruguay" - ], - [ - "1774", - "Gail", - "Gomez", - "S1V 3N8", - "American Samoa" - ], - [ - "1775", - "Moana", - "Brady", - "18835", - "Wallis and Futuna" - ], - [ - "1776", - "Martha", - "Oliver", - "81962", - "Bolivia" - ], - [ - "1777", - "Nayda", - "Wooten", - "00071", - "Palau" - ], - [ - "1778", - "Bryar", - "Collier", - "50631", - "Mexico" - ], - [ - "1779", - "Penelope", - "Bradshaw", - "A6A 9M2", - "Lebanon" - ], - [ - "1780", - "Wyatt", - "Lara", - "75486", - "Slovenia" - ], - [ - "1781", - "Wang", - "Odonnell", - "N5X 1N5", - "Bahamas" - ], - [ - "1782", - "Chiquita", - "Harrell", - "21691", - "Guadeloupe" - ], - [ - "1783", - "Byron", - "Blankenship", - "M8A 3L4", - "Syrian Arab Republic" - ], - [ - "1784", - "Holmes", - "Stokes", - "81039", - "Mauritania" - ], - [ - "1785", - "Naomi", - "Phillips", - "56287", - "Switzerland" - ], - [ - "1786", - "Quyn", - "Johnson", - "D2T 6B7", - "Czech Republic" - ], - [ - "1787", - "Gillian", - "Sanders", - "50542", - "Colombia" - ], - [ - "1788", - "Hope", - "Benjamin", - "67423", - "Bolivia" - ], - [ - "1789", - "Bryar", - "Dean", - "U9V 9E5", - "Guatemala" - ], - [ - "1790", - "Karyn", - "Swanson", - "S6H 3R8", - "Israel" - ], - [ - "1791", - "Amena", - "David", - "02286", - "French Polynesia" - ], - [ - "1792", - "Ira", - "Joyner", - "37335", - "Cayman Islands" - ], - [ - "1793", - "Tanek", - "Oneil", - "75041", - "Slovenia" - ], - [ - "1794", - "Dolan", - "Miles", - "K7Q 9U8", - "Maldives" - ], - [ - "1795", - "Wang", - "Keith", - "88116", - "Congo" - ], - [ - "1796", - "Wylie", - "Bryant", - "93369", - "Andorra" - ], - [ - "1797", - "Heather", - "Bryant", - "78015", - "French Polynesia" - ], - [ - "1798", - "Regina", - "Wagner", - "29087", - "Virgin Islands, British" - ], - [ - "1799", - "Nathan", - "Bush", - "J5S 9L0", - "Viet Nam" - ], - [ - "1800", - "Charity", - "Dawson", - "29508", - "Greece" - ], - [ - "1801", - "Ulric", - "Guzman", - "I6R 6P6", - "Micronesia" - ], - [ - "1802", - "Keefe", - "Scott", - "J1R 8T6", - "Uzbekistan" - ], - [ - "1803", - "Florence", - "Price", - "U7P 8F6", - "Taiwan, Province of China" - ], - [ - "1804", - "Griffith", - "England", - "92557", - "China" - ], - [ - "1805", - "Kay", - "Nielsen", - "85991", - "Suriname" - ], - [ - "1806", - "Tamekah", - "Blackburn", - "47324", - "Panama" - ], - [ - "1807", - "Indira", - "Crosby", - "64463", - "Trinidad and Tobago" - ], - [ - "1808", - "Pamela", - "Vasquez", - "K2Q 9A1", - "Ghana" - ], - [ - "1809", - "Patricia", - "Haley", - "51509", - "Jordan" - ], - [ - "1810", - "Nevada", - "Prince", - "41315", - "Tokelau" - ], - [ - "1811", - "Martin", - "Wilkerson", - "Y8X 4Y5", - "Palestinian Territory, Occupied" - ], - [ - "1812", - "Deirdre", - "Castaneda", - "X1S 5E2", - "Bahrain" - ], - [ - "1813", - "Cara", - "Flynn", - "68372", - "Azerbaijan" - ], - [ - "1814", - "Sylvia", - "Alexander", - "E5F 9M5", - "Svalbard and Jan Mayen" - ], - [ - "1815", - "Macon", - "Suarez", - "69866", - "Tunisia" - ], - [ - "1816", - "Hammett", - "Haney", - "09768", - "Bangladesh" - ], - [ - "1817", - "Geoffrey", - "Simmons", - "61986", - "Burundi" - ], - [ - "1818", - "Danielle", - "Kelly", - "71568", - "Mali" - ], - [ - "1819", - "Wing", - "Brown", - "U4D 6L1", - "Uzbekistan" - ], - [ - "1820", - "Len", - "Barber", - "40311", - "Suriname" - ], - [ - "1821", - "Richard", - "Wilson", - "W9E 6D7", - "Finland" - ], - [ - "1822", - "Keaton", - "Hayes", - "55696", - "Slovakia" - ], - [ - "1823", - "Dora", - "Chaney", - "57297", - "United States Minor Outlying Islands" - ], - [ - "1824", - "Alexandra", - "Pruitt", - "17207", - "Turkmenistan" - ], - [ - "1825", - "Deanna", - "Gomez", - "C9M 9K0", - "Paraguay" - ], - [ - "1826", - "Laura", - "Downs", - "74422", - "Antigua and Barbuda" - ], - [ - "1827", - "Jolene", - "Lucas", - "K9E 6U4", - "Tokelau" - ], - [ - "1828", - "Lucy", - "Marquez", - "L1N 4O4", - "Argentina" - ], - [ - "1829", - "Abbot", - "Bishop", - "G8W 7I1", - "Guinea-bissau" - ], - [ - "1830", - "Aaron", - "Bowman", - "K8A 5K7", - "Greece" - ], - [ - "1831", - "Candace", - "Lee", - "58901", - "Turks and Caicos Islands" - ], - [ - "1832", - "Larissa", - "Allen", - "O1I 4X0", - "Belgium" - ], - [ - "1833", - "Linda", - "Malone", - "31211", - "United Arab Emirates" - ], - [ - "1834", - "Grace", - "Daugherty", - "62610", - "Cyprus" - ], - [ - "1835", - "Kyra", - "Berry", - "T2F 3E5", - "Netherlands Antilles" - ], - [ - "1836", - "Hadassah", - "Willis", - "C7H 5V4", - "El Salvador" - ], - [ - "1837", - "Kyle", - "Fitzgerald", - "X1V 2R9", - "Croatia" - ], - [ - "1838", - "Graiden", - "Atkinson", - "L9Q 6H8", - "Thailand" - ], - [ - "1839", - "Raymond", - "Fletcher", - "59574", - "Argentina" - ], - [ - "1840", - "Keaton", - "Barnett", - "O2G 6B4", - "Papua New Guinea" - ], - [ - "1841", - "Farrah", - "Kramer", - "21928", - "Netherlands Antilles" - ], - [ - "1842", - "Christian", - "Sellers", - "55504", - "Timor-leste" - ], - [ - "1843", - "Keith", - "Cohen", - "D9T 7D0", - "Italy" - ], - [ - "1844", - "Karleigh", - "Bruce", - "F2A 5H9", - "Montserrat" - ], - [ - "1845", - "Julie", - "Avery", - "T4T 3Y7", - "Nepal" - ], - [ - "1846", - "Hollee", - "Deleon", - "47524", - "Oman" - ], - [ - "1847", - "Charity", - "Booker", - "61071", - "Cocos (Keeling) Islands" - ], - [ - "1848", - "Flynn", - "Bond", - "E8L 9D2", - "Afghanistan" - ], - [ - "1849", - "Sybill", - "Roth", - "16453", - "Saudi Arabia" - ], - [ - "1850", - "Alyssa", - "Juarez", - "04466", - "Singapore" - ], - [ - "1851", - "Jennifer", - "Odonnell", - "59277", - "Tuvalu" - ], - [ - "1852", - "Carissa", - "Byrd", - "80861", - "Palau" - ], - [ - "1853", - "Coby", - "Barrett", - "04665", - "Congo" - ], - [ - "1854", - "Bertha", - "Paul", - "46442", - "Andorra" - ], - [ - "1855", - "Hayden", - "Dennis", - "K7E 3O1", - "France" - ], - [ - "1856", - "Kadeem", - "Berry", - "39544", - "Vanuatu" - ], - [ - "1857", - "Clayton", - "Burns", - "C2A 6W5", - "Andorra" - ], - [ - "1858", - "Breanna", - "Hardy", - "12284", - "Norway" - ], - [ - "1859", - "Yael", - "Hester", - "69399", - "Hong Kong" - ], - [ - "1860", - "Hunter", - "Harding", - "M4O 6N5", - "Bosnia and Herzegovina" - ], - [ - "1861", - "Breanna", - "Sutton", - "N2C 6K3", - "Singapore" - ], - [ - "1862", - "Bo", - "Huffman", - "54558", - "Taiwan, Province of China" - ], - [ - "1863", - "Zena", - "Potts", - "80326", - "Czech Republic" - ], - [ - "1864", - "Lucian", - "Sykes", - "D4M 6M5", - "Trinidad and Tobago" - ], - [ - "1865", - "Gabriel", - "Shepherd", - "77631", - "Bahrain" - ], - [ - "1866", - "Vivian", - "Gould", - "29510", - "Norway" - ], - [ - "1867", - "Ina", - "Sherman", - "08122", - "Portugal" - ], - [ - "1868", - "Constance", - "Parsons", - "D6E 9J8", - "Armenia" - ], - [ - "1869", - "Tallulah", - "Woodard", - "51380", - "Bahamas" - ], - [ - "1870", - "Amos", - "Morris", - "37846", - "Switzerland" - ], - [ - "1871", - "Charles", - "Kinney", - "45961", - "Marshall Islands" - ], - [ - "1872", - "Colby", - "Camacho", - "02978", - "Niger" - ], - [ - "1873", - "Ora", - "Hays", - "B6F 9Z9", - "Martinique" - ], - [ - "1874", - "Ariel", - "Cannon", - "04559", - "Burundi" - ], - [ - "1875", - "Beatrice", - "Hull", - "66569", - "Saint Pierre and Miquelon" - ], - [ - "1876", - "Stacey", - "Morrow", - "53760", - "Zimbabwe" - ], - [ - "1877", - "Naida", - "Thomas", - "43434", - "Virgin Islands, U.S." - ], - [ - "1878", - "Holly", - "Holcomb", - "31997", - "Kazakhstan" - ], - [ - "1879", - "Lee", - "Davenport", - "99355", - "Central African Republic" - ], - [ - "1880", - "Gary", - "Higgins", - "18703", - "Norway" - ], - [ - "1881", - "Kay", - "Wolf", - "25509", - "Switzerland" - ], - [ - "1882", - "Destiny", - "Patel", - "Q3X 2F8", - "Ghana" - ], - [ - "1883", - "Clayton", - "Middleton", - "Y5C 1I8", - "Antigua and Barbuda" - ], - [ - "1884", - "May", - "Rivers", - "26782", - "Uzbekistan" - ], - [ - "1885", - "Hadassah", - "Caldwell", - "64493", - "Chile" - ], - [ - "1886", - "Penelope", - "Gentry", - "V5N 7A6", - "Kyrgyzstan" - ], - [ - "1887", - "James", - "Boyle", - "95421", - "Indonesia" - ], - [ - "1888", - "Yuli", - "Cardenas", - "W4U 5U1", - "Solomon Islands" - ], - [ - "1889", - "George", - "Simpson", - "30385", - "Brazil" - ], - [ - "1890", - "Thaddeus", - "Ferrell", - "E6Z 2D4", - "Norfolk Island" - ], - [ - "1891", - "Piper", - "Morrow", - "S6I 1L8", - "Estonia" - ], - [ - "1892", - "Xaviera", - "Heath", - "L8I 5G1", - "Afghanistan" - ], - [ - "1893", - "Odette", - "Patton", - "L2S 4I8", - "Bosnia and Herzegovina" - ], - [ - "1894", - "Stewart", - "Phillips", - "E8E 5W6", - "El Salvador" - ], - [ - "1895", - "Kellie", - "Cooper", - "77401", - "Cape Verde" - ], - [ - "1896", - "Kathleen", - "Salinas", - "F3O 4Z9", - "Sierra Leone" - ], - [ - "1897", - "Fallon", - "Bennett", - "X3P 7L1", - "Macedonia" - ], - [ - "1898", - "Jesse", - "Guerrero", - "I2B 1Q0", - "Finland" - ], - [ - "1899", - "Zenaida", - "Mcguire", - "M5R 1X6", - "Kenya" - ], - [ - "1900", - "Carolyn", - "Richards", - "03060", - "Paraguay" - ], - [ - "1901", - "Ulla", - "Bruce", - "20940", - "Cambodia" - ], - [ - "1902", - "Adrian", - "Shaffer", - "M5O 9Y2", - "Thailand" - ], - [ - "1903", - "Callum", - "Russo", - "L3U 5S8", - "Holy See (Vatican City State)" - ], - [ - "1904", - "Echo", - "Mathews", - "49158", - "Spain" - ], - [ - "1905", - "Driscoll", - "Buckner", - "70115", - "Solomon Islands" - ], - [ - "1906", - "Nayda", - "Phillips", - "Y7D 4A9", - "Singapore" - ], - [ - "1907", - "Piper", - "Livingston", - "51701", - "Anguilla" - ], - [ - "1908", - "Zoe", - "Hoover", - "C8D 8W2", - "Iraq" - ], - [ - "1909", - "Veronica", - "Montoya", - "G6B 9S4", - "Egypt" - ], - [ - "1910", - "Kato", - "Richmond", - "41268", - "Saint Helena" - ], - [ - "1911", - "Kevyn", - "Lancaster", - "71863", - "Montserrat" - ], - [ - "1912", - "Rowan", - "Carr", - "90825", - "Ethiopia" - ], - [ - "1913", - "Alec", - "Wells", - "C9P 8I7", - "Netherlands" - ], - [ - "1914", - "Graham", - "Shields", - "S4B 5O9", - "Norfolk Island" - ], - [ - "1915", - "Pearl", - "Austin", - "43642", - "Bermuda" - ], - [ - "1916", - "Dana", - "Pugh", - "H4C 2A9", - "Tuvalu" - ], - [ - "1917", - "Lucy", - "Ellis", - "31272", - "Cameroon" - ], - [ - "1918", - "Logan", - "Wright", - "18651", - "Honduras" - ], - [ - "1919", - "Chantale", - "Velasquez", - "A5D 3X2", - "Burundi" - ], - [ - "1920", - "Linda", - "Ingram", - "R1P 1G8", - "Myanmar" - ], - [ - "1921", - "Ginger", - "Howell", - "Q5D 4E6", - "Pakistan" - ], - [ - "1922", - "Unity", - "Lester", - "P7M 7A4", - "Gibraltar" - ], - [ - "1923", - "Brett", - "Rutledge", - "Q1E 2B4", - "Thailand" - ], - [ - "1924", - "Stewart", - "Morrow", - "84299", - "Mali" - ], - [ - "1925", - "Declan", - "Aguilar", - "35400", - "Kenya" - ], - [ - "1926", - "Shad", - "Simpson", - "N8E 2U3", - "Saint Pierre and Miquelon" - ], - [ - "1927", - "Alma", - "Benton", - "Q6C 5D2", - "Pakistan" - ], - [ - "1928", - "Herman", - "Bailey", - "P5K 2X4", - "Ireland" - ], - [ - "1929", - "Keegan", - "Mendez", - "19421", - "Lesotho" - ], - [ - "1930", - "Erasmus", - "Foreman", - "J9T 1A2", - "Panama" - ], - [ - "1931", - "Tarik", - "Meyers", - "Z8V 5F9", - "Cape Verde" - ], - [ - "1932", - "Donovan", - "Knox", - "B8N 1G7", - "Iceland" - ], - [ - "1933", - "Chloe", - "Mccray", - "67537", - "United Arab Emirates" - ], - [ - "1934", - "Marvin", - "Edwards", - "21809", - "Ukraine" - ], - [ - "1935", - "Freya", - "Watkins", - "80099", - "Central African Republic" - ], - [ - "1936", - "Jerry", - "Morgan", - "C7U 7H5", - "Guinea" - ], - [ - "1937", - "Yardley", - "Marsh", - "23654", - "India" - ], - [ - "1938", - "Ava", - "Mueller", - "83374", - "Greece" - ], - [ - "1939", - "Silas", - "Joseph", - "P5M 7F2", - "Sweden" - ], - [ - "1940", - "Winifred", - "Solis", - "12335", - "Viet Nam" - ], - [ - "1941", - "Virginia", - "Cantu", - "K4C 3S5", - "Yemen" - ], - [ - "1942", - "Sade", - "Cole", - "40295", - "Spain" - ], - [ - "1943", - "Ethan", - "Hodges", - "R7W 8X2", - "Congo" - ], - [ - "1944", - "Barbara", - "Day", - "K6L 7S6", - "Nigeria" - ], - [ - "1945", - "Conan", - "Simon", - "22124", - "Guyana" - ], - [ - "1946", - "Lars", - "Puckett", - "R6Y 4N7", - "Trinidad and Tobago" - ], - [ - "1947", - "Quin", - "Ewing", - "99053", - "American Samoa" - ], - [ - "1948", - "Ali", - "Haynes", - "N6Z 7X0", - "China" - ], - [ - "1949", - "Sara", - "Wagner", - "74544", - "Chad" - ], - [ - "1950", - "Griffith", - "Fuentes", - "R1W 6Z9", - "Slovenia" - ], - [ - "1951", - "Sharon", - "Crane", - "I2Z 9D6", - "Philippines" - ], - [ - "1952", - "Marsden", - "Acosta", - "K6C 8C5", - "Jordan" - ], - [ - "1953", - "Whoopi", - "Villarreal", - "E2O 1T5", - "Svalbard and Jan Mayen" - ], - [ - "1954", - "Bruno", - "Ball", - "31931", - "Barbados" - ], - [ - "1955", - "Ulric", - "Young", - "T4R 3M5", - "Solomon Islands" - ], - [ - "1956", - "Noah", - "Gonzalez", - "L3O 6V5", - "Mayotte" - ], - [ - "1957", - "Cheryl", - "Gilliam", - "F4Q 4H9", - "Albania" - ], - [ - "1958", - "Bo", - "Rowe", - "67020", - "Jamaica" - ], - [ - "1959", - "Kelly", - "Alexander", - "P8Y 9K5", - "Somalia" - ], - [ - "1960", - "Hop", - "Navarro", - "O1G 9R6", - "Cayman Islands" - ], - [ - "1961", - "Zachery", - "Howard", - "67147", - "Fiji" - ], - [ - "1962", - "Elvis", - "Daugherty", - "X8V 7S7", - "Jordan" - ], - [ - "1963", - "Mallory", - "Hensley", - "A5S 1U6", - "Swaziland" - ], - [ - "1964", - "Fulton", - "Williams", - "P4C 4O5", - "Viet Nam" - ], - [ - "1965", - "Madison", - "Pittman", - "F8G 1P9", - "Chile" - ], - [ - "1966", - "Kermit", - "Bradford", - "W2T 6I5", - "Uganda" - ], - [ - "1967", - "Gabriel", - "Ballard", - "N5M 6W0", - "Andorra" - ], - [ - "1968", - "Jasmine", - "Barber", - "M2Z 7G5", - "French Guiana" - ], - [ - "1969", - "Thane", - "Koch", - "21097", - "Armenia" - ], - [ - "1970", - "Montana", - "Oneal", - "L2A 9Q6", - "South Africa" - ], - [ - "1971", - "Brett", - "Coleman", - "79399", - "Luxembourg" - ], - [ - "1972", - "Ivy", - "Jimenez", - "28549", - "Senegal" - ], - [ - "1973", - "Shad", - "Melton", - "Z8N 4Z5", - "Cook Islands" - ], - [ - "1974", - "Suki", - "Vance", - "H1A 1Z3", - "Ireland" - ], - [ - "1975", - "Jin", - "Hodges", - "L2I 3T8", - "France" - ], - [ - "1976", - "Diana", - "Booth", - "M3V 1S8", - "Iran, Islamic Republic of" - ], - [ - "1977", - "Martha", - "Nunez", - "27837", - "Northern Mariana Islands" - ], - [ - "1978", - "Silas", - "Ayers", - "17121", - "United States" - ], - [ - "1979", - "Ainsley", - "Whitaker", - "42695", - "Dominica" - ], - [ - "1980", - "Dillon", - "Tucker", - "N3R 3P3", - "Botswana" - ], - [ - "1981", - "Lillian", - "West", - "57665", - "Palau" - ], - [ - "1982", - "Talon", - "Hart", - "Z6T 4W3", - "Serbia and Montenegro" - ], - [ - "1983", - "Desiree", - "Booth", - "Q1W 9S1", - "Gambia" - ], - [ - "1984", - "Chastity", - "Merrill", - "F3B 9W7", - "Puerto Rico" - ], - [ - "1985", - "Nichole", - "Leon", - "T7V 5D6", - "Belize" - ], - [ - "1986", - "Rafael", - "Washington", - "87676", - "Eritrea" - ], - [ - "1987", - "Samson", - "Mathews", - "G7Q 5V6", - "Burkina Faso" - ], - [ - "1988", - "Jasper", - "Campbell", - "23791", - "Thailand" - ], - [ - "1989", - "Mason", - "Harrington", - "R9R 5S3", - "Nigeria" - ], - [ - "1990", - "Jameson", - "Frederick", - "R1N 4S0", - "Guyana" - ], - [ - "1991", - "Cadman", - "Woodard", - "43080", - "Gambia" - ], - [ - "1992", - "Catherine", - "Gill", - "W4W 8A4", - "Philippines" - ], - [ - "1993", - "Yael", - "Richards", - "99504", - "Kenya" - ], - [ - "1994", - "Porter", - "Finley", - "C8Z 5E0", - "Brunei Darussalam" - ], - [ - "1995", - "Alden", - "Merritt", - "P4E 9F0", - "Mali" - ], - [ - "1996", - "Kaye", - "Andrews", - "I5I 3A4", - "Cayman Islands" - ], - [ - "1997", - "Luke", - "Bryant", - "F3Z 2U1", - "Kuwait" - ], - [ - "1998", - "Heather", - "Blackburn", - "L1T 6B9", - "Mongolia" - ], - [ - "1999", - "Gage", - "Sykes", - "L9Q 7E6", - "Palestinian Territory, Occupied" - ], - [ - "2000", - "Kaseem", - "Harris", - "B9O 1C3", - "Korea" - ], - [ - "2001", - "Quail", - "Leonard", - "88755", - "Burkina Faso" - ], - [ - "2002", - "Dennis", - "Craft", - "13309", - "Namibia" - ], - [ - "2003", - "Ivor", - "Forbes", - "C3P 2E1", - "Malta" - ], - [ - "2004", - "Cade", - "Herman", - "R1E 5X9", - "Sri Lanka" - ], - [ - "2005", - "Larissa", - "Santiago", - "57781", - "Dominica" - ], - [ - "2006", - "Hyatt", - "Tillman", - "45071", - "Ghana" - ], - [ - "2007", - "Timothy", - "Rodgers", - "F8W 9W0", - "Andorra" - ], - [ - "2008", - "Hanae", - "Powell", - "F8B 7P7", - "Luxembourg" - ], - [ - "2009", - "Ima", - "Pennington", - "Z5W 5N5", - "Latvia" - ], - [ - "2010", - "Laurel", - "Bell", - "16805", - "Venezuela" - ], - [ - "2011", - "Avye", - "Long", - "04794", - "Dominica" - ], - [ - "2012", - "Lysandra", - "Pierce", - "H7O 3F4", - "Zimbabwe" - ], - [ - "2013", - "Eve", - "Pollard", - "L5K 6E2", - "Algeria" - ], - [ - "2014", - "Ina", - "Mcdowell", - "65712", - "Saint Lucia" - ], - [ - "2015", - "Meredith", - "Serrano", - "V8M 6K7", - "Libyan Arab Jamahiriya" - ], - [ - "2016", - "Daphne", - "Irwin", - "89933", - "Mongolia" - ], - [ - "2017", - "Adam", - "Henson", - "F6U 9D5", - "Chile" - ], - [ - "2018", - "Amery", - "Hoover", - "13408", - "Mongolia" - ], - [ - "2019", - "Quamar", - "Hendricks", - "20310", - "Gambia" - ], - [ - "2020", - "Ori", - "Wheeler", - "89005", - "Nigeria" - ], - [ - "2021", - "Zena", - "Douglas", - "Z1O 6F9", - "Serbia and Montenegro" - ], - [ - "2022", - "Buckminster", - "Huffman", - "R4V 9L2", - "Mali" - ], - [ - "2023", - "Harlan", - "Gamble", - "U4I 7M4", - "Guyana" - ], - [ - "2024", - "Dalton", - "Cline", - "63829", - "Tonga" - ], - [ - "2025", - "Martha", - "Weber", - "Z9B 4T0", - "Bangladesh" - ], - [ - "2026", - "Vernon", - "Francis", - "M5A 9X7", - "Tokelau" - ], - [ - "2027", - "Janna", - "Velazquez", - "67406", - "Qatar" - ], - [ - "2028", - "Fuller", - "Keller", - "80871", - "Burkina Faso" - ], - [ - "2029", - "Jamal", - "Spears", - "42197", - "Norfolk Island" - ], - [ - "2030", - "Christen", - "Holcomb", - "29806", - "Norway" - ], - [ - "2031", - "Mary", - "Carter", - "C6W 9K9", - "Belgium" - ], - [ - "2032", - "Colorado", - "Austin", - "62904", - "Cook Islands" - ], - [ - "2033", - "Fritz", - "Hunt", - "X8G 2V0", - "Morocco" - ], - [ - "2034", - "Isabella", - "Bush", - "17676", - "Monaco" - ], - [ - "2035", - "Adam", - "Gilliam", - "H7K 9X3", - "Indonesia" - ], - [ - "2036", - "John", - "Austin", - "O7X 4Z0", - "Czech Republic" - ], - [ - "2037", - "Cassady", - "Yates", - "68835", - "Christmas Island" - ], - [ - "2038", - "Ori", - "Cantrell", - "56920", - "Guinea" - ], - [ - "2039", - "May", - "Horn", - "47805", - "Kuwait" - ], - [ - "2040", - "Skyler", - "Clarke", - "64131", - "Lebanon" - ], - [ - "2041", - "Levi", - "Foster", - "S5Q 4B2", - "Germany" - ], - [ - "2042", - "Veda", - "Wilkinson", - "L7Z 9M8", - "Niger" - ], - [ - "2043", - "Brendan", - "Levine", - "L5B 9P4", - "Nepal" - ], - [ - "2044", - "Carson", - "Sullivan", - "93066", - "United Arab Emirates" - ], - [ - "2045", - "Steven", - "Spencer", - "F1V 9A7", - "Pitcairn" - ], - [ - "2046", - "Halla", - "Michael", - "N1U 1E7", - "Seychelles" - ], - [ - "2047", - "Jamal", - "Hobbs", - "G3D 6J7", - "New Caledonia" - ], - [ - "2048", - "Steel", - "Bush", - "U8F 6T2", - "Belize" - ], - [ - "2049", - "Ahmed", - "Dennis", - "M6E 3P3", - "Afghanistan" - ], - [ - "2050", - "Aspen", - "Estes", - "32157", - "American Samoa" - ], - [ - "2051", - "Peter", - "Kelly", - "91773", - "Morocco" - ], - [ - "2052", - "Xandra", - "Grimes", - "66702", - "Tokelau" - ], - [ - "2053", - "Michael", - "Battle", - "J2J 2N5", - "Honduras" - ], - [ - "2054", - "Steel", - "Wiggins", - "34625", - "United States Minor Outlying Islands" - ], - [ - "2055", - "Holmes", - "Christian", - "45402", - "Liechtenstein" - ], - [ - "2056", - "Charles", - "Barrett", - "O4N 9N8", - "Lebanon" - ], - [ - "2057", - "Hermione", - "Soto", - "C8E 4H8", - "Congo" - ], - [ - "2058", - "Elton", - "Maxwell", - "89033", - "Madagascar" - ], - [ - "2059", - "Zelda", - "Burks", - "B7W 5G7", - "Sweden" - ], - [ - "2060", - "Lynn", - "David", - "P3D 5K5", - "Chad" - ], - [ - "2061", - "Margaret", - "Neal", - "47438", - "Western Sahara" - ], - [ - "2062", - "David", - "Vaughan", - "E3L 8D9", - "Tokelau" - ], - [ - "2063", - "Vladimir", - "Mcfarland", - "U9V 1B3", - "Belgium" - ], - [ - "2064", - "Uriah", - "Harrington", - "77051", - "United Arab Emirates" - ], - [ - "2065", - "Noel", - "Merritt", - "J3G 7S1", - "Dominican Republic" - ], - [ - "2066", - "Christine", - "Key", - "54543", - "Niger" - ], - [ - "2067", - "Illana", - "Hendricks", - "07584", - "Montserrat" - ], - [ - "2068", - "Pearl", - "Lewis", - "U5D 2V3", - "Libyan Arab Jamahiriya" - ], - [ - "2069", - "Victoria", - "Bullock", - "17462", - "Mauritania" - ], - [ - "2070", - "Benedict", - "Marsh", - "61479", - "Guyana" - ], - [ - "2071", - "Quemby", - "Washington", - "99774", - "French Polynesia" - ], - [ - "2072", - "Shelley", - "Noble", - "U8S 5Z4", - "Philippines" - ], - [ - "2073", - "Olivia", - "Britt", - "72344", - "Holy See (Vatican City State)" - ], - [ - "2074", - "Oleg", - "Hendrix", - "67567", - "Cuba" - ], - [ - "2075", - "Hermione", - "Gutierrez", - "J5K 2J1", - "Mozambique" - ], - [ - "2076", - "Myra", - "Dean", - "03485", - "Andorra" - ], - [ - "2077", - "Deacon", - "Moore", - "34501", - "Tunisia" - ], - [ - "2078", - "Dai", - "Baird", - "B2P 4R0", - "Cambodia" - ], - [ - "2079", - "Levi", - "Melton", - "K7T 4B1", - "Zimbabwe" - ], - [ - "2080", - "Ocean", - "Dalton", - "66801", - "Gabon" - ], - [ - "2081", - "Selma", - "Harding", - "D7N 3J9", - "Kyrgyzstan" - ], - [ - "2082", - "Maisie", - "Gill", - "56324", - "Morocco" - ], - [ - "2083", - "Hillary", - "Horne", - "Y6O 6G3", - "Cyprus" - ], - [ - "2084", - "Joel", - "Stokes", - "77952", - "Burundi" - ], - [ - "2085", - "Channing", - "Patterson", - "G6B 8H4", - "China" - ], - [ - "2086", - "Elliott", - "Cleveland", - "H3J 9U9", - "Namibia" - ], - [ - "2087", - "Petra", - "Gay", - "44314", - "Palestinian Territory, Occupied" - ], - [ - "2088", - "May", - "Hatfield", - "48918", - "Faroe Islands" - ], - [ - "2089", - "Jemima", - "Francis", - "14347", - "Libyan Arab Jamahiriya" - ], - [ - "2090", - "Kyla", - "Hale", - "46200", - "Cocos (Keeling) Islands" - ], - [ - "2091", - "Veda", - "Bruce", - "F5W 9A6", - "Mauritania" - ], - [ - "2092", - "Sybill", - "Avila", - "58663", - "Angola" - ], - [ - "2093", - "Charissa", - "Salazar", - "35271", - "Faroe Islands" - ], - [ - "2094", - "Steven", - "Allison", - "E5L 4A3", - "Wallis and Futuna" - ], - [ - "2095", - "Kane", - "Parks", - "D5C 6K7", - "Norfolk Island" - ], - [ - "2096", - "Alika", - "Bishop", - "S3P 3O3", - "China" - ], - [ - "2097", - "James", - "Bonner", - "33277", - "Canada" - ], - [ - "2098", - "Yoko", - "Foster", - "B5J 6P9", - "Croatia" - ], - [ - "2099", - "Ivy", - "Riggs", - "94420", - "Kiribati" - ], - [ - "2100", - "Urielle", - "Rosa", - "V6W 2A0", - "Falkland Islands (Malvinas)" - ], - [ - "2101", - "Armando", - "Shepherd", - "Y5C 5W6", - "Panama" - ], - [ - "2102", - "Haley", - "Ingram", - "B4H 5U5", - "Fiji" - ], - [ - "2103", - "Brielle", - "Dyer", - "P2S 4H7", - "Malawi" - ], - [ - "2104", - "Francis", - "Brady", - "24239", - "Uruguay" - ], - [ - "2105", - "Fiona", - "Webster", - "72015", - "Belize" - ], - [ - "2106", - "Aiko", - "Santos", - "K4H 1N0", - "Saint Vincent and The Grenadines" - ], - [ - "2107", - "Amir", - "Rivas", - "02737", - "Papua New Guinea" - ], - [ - "2108", - "Mira", - "Kerr", - "W6E 6Y2", - "Sri Lanka" - ], - [ - "2109", - "Harrison", - "Jensen", - "50193", - "Heard Island and Mcdonald Islands" - ], - [ - "2110", - "Merrill", - "Randall", - "21534", - "Colombia" - ], - [ - "2111", - "Benjamin", - "Howe", - "N8M 4N6", - "Turkmenistan" - ], - [ - "2112", - "Melyssa", - "Kidd", - "97657", - "Cameroon" - ], - [ - "2113", - "Henry", - "Moore", - "95626", - "Botswana" - ], - [ - "2114", - "Nash", - "Peters", - "K3V 9F3", - "Wallis and Futuna" - ], - [ - "2115", - "Iliana", - "Holt", - "E9F 2Q8", - "Netherlands Antilles" - ], - [ - "2116", - "Naomi", - "Hood", - "P6D 2G3", - "Anguilla" - ], - [ - "2117", - "Ainsley", - "Barron", - "94273", - "New Caledonia" - ], - [ - "2118", - "Daphne", - "Acevedo", - "A9I 9E4", - "Bermuda" - ], - [ - "2119", - "Kiona", - "Keith", - "62523", - "Saint Lucia" - ], - [ - "2120", - "Kirsten", - "Mcgee", - "97481", - "Macedonia" - ], - [ - "2121", - "Emerald", - "Franklin", - "Q2I 6D6", - "Botswana" - ], - [ - "2122", - "Hall", - "Schroeder", - "I2D 9L7", - "Kenya" - ], - [ - "2123", - "Amaya", - "Lynch", - "50534", - "Costa Rica" - ], - [ - "2124", - "Randall", - "Hanson", - "B4R 2S3", - "United Arab Emirates" - ], - [ - "2125", - "Sasha", - "Clarke", - "50972", - "United States Minor Outlying Islands" - ], - [ - "2126", - "Susan", - "Sutton", - "Z4T 6K3", - "Solomon Islands" - ], - [ - "2127", - "Hiram", - "Torres", - "C8O 5O7", - "Botswana" - ], - [ - "2128", - "Melanie", - "Calhoun", - "87097", - "New Zealand" - ], - [ - "2129", - "Courtney", - "Sutton", - "07944", - "Spain" - ], - [ - "2130", - "Reuben", - "Beard", - "U6Z 8N5", - "Faroe Islands" - ], - [ - "2131", - "Jarrod", - "Payne", - "94171", - "Turkey" - ], - [ - "2132", - "Vincent", - "Potts", - "V5Z 9G9", - "Madagascar" - ], - [ - "2133", - "Kaye", - "Kent", - "O1B 2Z9", - "Fiji" - ], - [ - "2134", - "Carol", - "Green", - "78719", - "Comoros" - ], - [ - "2135", - "Cairo", - "Combs", - "G3C 8F0", - "Indonesia" - ], - [ - "2136", - "Ebony", - "Parker", - "77377", - "Portugal" - ], - [ - "2137", - "Gary", - "Shaffer", - "F1B 9W7", - "French Guiana" - ], - [ - "2138", - "Gay", - "Jimenez", - "05726", - "Nepal" - ], - [ - "2139", - "Patience", - "Bryan", - "60437", - "Macao" - ], - [ - "2140", - "Zenaida", - "Bowen", - "V3S 1G7", - "Mauritania" - ], - [ - "2141", - "Isaac", - "Aguirre", - "X8S 9K4", - "Bermuda" - ], - [ - "2142", - "Lacy", - "Harrell", - "67362", - "Bhutan" - ], - [ - "2143", - "Jael", - "Grimes", - "95612", - "Anguilla" - ], - [ - "2144", - "Catherine", - "Galloway", - "45834", - "Suriname" - ], - [ - "2145", - "Donna", - "Burt", - "N8C 2M8", - "Burkina Faso" - ], - [ - "2146", - "Colleen", - "Ball", - "N3E 4U8", - "Libyan Arab Jamahiriya" - ], - [ - "2147", - "Lael", - "Brady", - "01369", - "Macedonia" - ], - [ - "2148", - "Kermit", - "Logan", - "Y5P 8Q8", - "Honduras" - ], - [ - "2149", - "Katelyn", - "Orr", - "R7X 9W3", - "Switzerland" - ], - [ - "2150", - "Alisa", - "Glenn", - "17831", - "Timor-leste" - ], - [ - "2151", - "Lee", - "Bean", - "89445", - "Guam" - ], - [ - "2152", - "Maryam", - "Cotton", - "57924", - "Gambia" - ], - [ - "2153", - "Amena", - "Love", - "X1Z 6F7", - "Thailand" - ], - [ - "2154", - "Tallulah", - "Case", - "87477", - "Ecuador" - ], - [ - "2155", - "Carlos", - "Sanford", - "F6S 8J6", - "Iraq" - ], - [ - "2156", - "Quamar", - "David", - "D5F 2M8", - "Gabon" - ], - [ - "2157", - "Cassady", - "Mays", - "12786", - "Netherlands" - ], - [ - "2158", - "Jenna", - "Rowland", - "88845", - "China" - ], - [ - "2159", - "Justin", - "Tanner", - "66071", - "Nepal" - ], - [ - "2160", - "Riley", - "Santiago", - "F8K 2Y6", - "Gabon" - ], - [ - "2161", - "Iris", - "Gallegos", - "K9C 3T9", - "Niue" - ], - [ - "2162", - "Kato", - "Osborn", - "N4C 2L8", - "Puerto Rico" - ], - [ - "2163", - "Imogene", - "Schroeder", - "79710", - "United States Minor Outlying Islands" - ], - [ - "2164", - "Olympia", - "Hebert", - "D4W 1L0", - "Saint Lucia" - ], - [ - "2165", - "Skyler", - "Burnett", - "B2R 5H7", - "Antarctica" - ], - [ - "2166", - "Faith", - "Sims", - "88476", - "Egypt" - ], - [ - "2167", - "Emily", - "Odom", - "U7O 2P6", - "Kuwait" - ], - [ - "2168", - "Carly", - "Washington", - "46063", - "Benin" - ], - [ - "2169", - "Jolene", - "Meyer", - "B2B 9A4", - "Australia" - ], - [ - "2170", - "Ayanna", - "Conrad", - "84360", - "Northern Mariana Islands" - ], - [ - "2171", - "Violet", - "Blankenship", - "W2B 3U1", - "New Caledonia" - ], - [ - "2172", - "Rhona", - "Gallegos", - "10931", - "Montserrat" - ], - [ - "2173", - "Alice", - "Hodges", - "96181", - "Burkina Faso" - ], - [ - "2174", - "Brody", - "Sandoval", - "68959", - "Pitcairn" - ], - [ - "2175", - "Isabella", - "Dunlap", - "U8U 7Y8", - "Afghanistan" - ], - [ - "2176", - "Jordan", - "Golden", - "55152", - "Guam" - ], - [ - "2177", - "Gillian", - "Thomas", - "75633", - "Djibouti" - ], - [ - "2178", - "Hollee", - "Clay", - "79847", - "Panama" - ], - [ - "2179", - "Dane", - "Knapp", - "89535", - "Armenia" - ], - [ - "2180", - "Avram", - "Martin", - "T4S 4E2", - "Madagascar" - ], - [ - "2181", - "Fuller", - "Newman", - "47317", - "Jamaica" - ], - [ - "2182", - "Nina", - "Berry", - "81360", - "Mongolia" - ], - [ - "2183", - "Akeem", - "Pratt", - "56230", - "Colombia" - ], - [ - "2184", - "Lacy", - "Hayes", - "U7T 4F5", - "Cyprus" - ], - [ - "2185", - "Alfonso", - "Mcclure", - "06797", - "Swaziland" - ], - [ - "2186", - "Cedric", - "Love", - "64720", - "Bermuda" - ], - [ - "2187", - "Astra", - "Fernandez", - "H3I 1B0", - "Mongolia" - ], - [ - "2188", - "Iliana", - "Durham", - "R8C 7M8", - "Spain" - ], - [ - "2189", - "Gwendolyn", - "Livingston", - "C7X 5L1", - "Northern Mariana Islands" - ], - [ - "2190", - "Caldwell", - "Anderson", - "69099", - "Kuwait" - ], - [ - "2191", - "Risa", - "Mejia", - "P7A 4U7", - "Israel" - ], - [ - "2192", - "Dora", - "Navarro", - "L6G 2O8", - "Ireland" - ], - [ - "2193", - "Kirk", - "Dean", - "I2T 3E6", - "Pitcairn" - ], - [ - "2194", - "Jackson", - "Harvey", - "53467", - "Myanmar" - ], - [ - "2195", - "Thane", - "Ballard", - "87240", - "Solomon Islands" - ], - [ - "2196", - "Nadine", - "Estes", - "62003", - "Malta" - ], - [ - "2197", - "Candace", - "Nunez", - "57223", - "Virgin Islands, British" - ], - [ - "2198", - "Zelda", - "Odom", - "X4V 7F5", - "Mongolia" - ], - [ - "2199", - "Wylie", - "Ayala", - "S4I 4Q4", - "Djibouti" - ], - [ - "2200", - "Azalia", - "Page", - "57239", - "Korea, Republic of" - ], - [ - "2201", - "Joshua", - "Burch", - "R7B 1N7", - "Samoa" - ], - [ - "2202", - "Basil", - "Ramos", - "71614", - "Tunisia" - ], - [ - "2203", - "Jessica", - "Shields", - "U2D 4X3", - "Syrian Arab Republic" - ], - [ - "2204", - "Clio", - "Singleton", - "I1B 1B0", - "Ghana" - ], - [ - "2205", - "Astra", - "Dotson", - "62378", - "Turks and Caicos Islands" - ], - [ - "2206", - "Hamish", - "Tucker", - "E4Z 3N3", - "Anguilla" - ], - [ - "2207", - "Rachel", - "Matthews", - "U4I 8M3", - "Trinidad and Tobago" - ], - [ - "2208", - "Clayton", - "Ball", - "95319", - "India" - ], - [ - "2209", - "Quinn", - "Wilkinson", - "Y6M 3Q7", - "Virgin Islands, U.S." - ], - [ - "2210", - "Phelan", - "Talley", - "00543", - "Philippines" - ], - [ - "2211", - "Carol", - "Brock", - "M6X 4E2", - "Gibraltar" - ], - [ - "2212", - "Nomlanga", - "Robles", - "56511", - "Viet Nam" - ], - [ - "2213", - "Adrian", - "Clay", - "79479", - "France" - ], - [ - "2214", - "Sara", - "Riley", - "B9N 5P4", - "Peru" - ], - [ - "2215", - "Christine", - "Sweeney", - "W1Z 4S4", - "French Polynesia" - ], - [ - "2216", - "Leilani", - "Johnston", - "W1C 8M8", - "American Samoa" - ], - [ - "2217", - "Melyssa", - "Lambert", - "V1B 4P6", - "Iraq" - ], - [ - "2218", - "Talon", - "Delacruz", - "Y3N 9R2", - "Bulgaria" - ], - [ - "2219", - "Garth", - "Jennings", - "59667", - "Malta" - ], - [ - "2220", - "Naida", - "Coleman", - "45456", - "Finland" - ], - [ - "2221", - "Indigo", - "Lopez", - "77160", - "Pitcairn" - ], - [ - "2222", - "Asher", - "French", - "99064", - "British Indian Ocean Territory" - ], - [ - "2223", - "Vivian", - "Mcgowan", - "46310", - "Oman" - ], - [ - "2224", - "Gwendolyn", - "Cervantes", - "48905", - "Cocos (Keeling) Islands" - ], - [ - "2225", - "Logan", - "Reid", - "87376", - "Ethiopia" - ], - [ - "2226", - "Bryar", - "Wolfe", - "75860", - "Comoros" - ], - [ - "2227", - "Demetrius", - "Hutchinson", - "97252", - "Dominican Republic" - ], - [ - "2228", - "Freya", - "Becker", - "04872", - "United States" - ], - [ - "2229", - "Abel", - "Brooks", - "I7O 1M1", - "Comoros" - ], - [ - "2230", - "Silas", - "Mcguire", - "04101", - "Indonesia" - ], - [ - "2231", - "Quinn", - "Fletcher", - "B6E 2B0", - "Niger" - ], - [ - "2232", - "Rooney", - "Holden", - "29294", - "Micronesia" - ], - [ - "2233", - "Iris", - "Hale", - "N7W 6E9", - "Greenland" - ], - [ - "2234", - "Candace", - "Barry", - "U8I 5A4", - "Germany" - ], - [ - "2235", - "Yetta", - "Ball", - "62055", - "Switzerland" - ], - [ - "2236", - "Dai", - "Bentley", - "P2Y 4C5", - "Dominica" - ], - [ - "2237", - "Gannon", - "Dunlap", - "45728", - "Fiji" - ], - [ - "2238", - "Chelsea", - "Mays", - "36498", - "Guinea" - ], - [ - "2239", - "Ruth", - "Mcguire", - "62924", - "Maldives" - ], - [ - "2240", - "Melissa", - "Durham", - "D6S 1A2", - "Armenia" - ], - [ - "2241", - "Eaton", - "Salinas", - "53689", - "Somalia" - ], - [ - "2242", - "Driscoll", - "Cunningham", - "31194", - "Sweden" - ], - [ - "2243", - "Bevis", - "Acosta", - "V4M 9Z2", - "Jamaica" - ], - [ - "2244", - "Anastasia", - "Mcknight", - "24878", - "Sao Tome and Principe" - ], - [ - "2245", - "Anika", - "Rowland", - "45287", - "Chile" - ], - [ - "2246", - "Dexter", - "Rollins", - "00684", - "Iran, Islamic Republic of" - ], - [ - "2247", - "Brielle", - "Irwin", - "V4U 7R2", - "Belgium" - ], - [ - "2248", - "Ocean", - "Fields", - "08544", - "Croatia" - ], - [ - "2249", - "Sonia", - "Solis", - "C4X 1L5", - "Niue" - ], - [ - "2250", - "Joseph", - "Haney", - "29567", - "Argentina" - ], - [ - "2251", - "Lamar", - "Heath", - "81699", - "Italy" - ], - [ - "2252", - "Raya", - "Jordan", - "R6K 7B3", - "Spain" - ], - [ - "2253", - "Brody", - "Frost", - "34564", - "Dominican Republic" - ], - [ - "2254", - "Ann", - "Hawkins", - "S3A 5K7", - "Yemen" - ], - [ - "2255", - "Phillip", - "Lindsay", - "80544", - "Sierra Leone" - ], - [ - "2256", - "Willa", - "Maynard", - "A6A 4C5", - "Mexico" - ], - [ - "2257", - "Carolyn", - "Mercer", - "V8Z 1X5", - "Zimbabwe" - ], - [ - "2258", - "Justin", - "Cole", - "68764", - "Saint Vincent and The Grenadines" - ], - [ - "2259", - "Emmanuel", - "Parks", - "99769", - "Latvia" - ], - [ - "2260", - "Isaiah", - "Salazar", - "H1K 1X3", - "Turks and Caicos Islands" - ], - [ - "2261", - "Vance", - "Porter", - "49607", - "Costa Rica" - ], - [ - "2262", - "Igor", - "Kim", - "99489", - "Turkmenistan" - ], - [ - "2263", - "Emi", - "Graves", - "F4M 5L8", - "El Salvador" - ], - [ - "2264", - "Griffith", - "Monroe", - "11550", - "Tanzania, United Republic of" - ], - [ - "2265", - "Iliana", - "Coffey", - "30220", - "Albania" - ], - [ - "2266", - "Jemima", - "Guthrie", - "69283", - "Saint Pierre and Miquelon" - ], - [ - "2267", - "Zenia", - "Farrell", - "91872", - "Tanzania, United Republic of" - ], - [ - "2268", - "Lucas", - "Chambers", - "L5Z 1W0", - "Bouvet Island" - ], - [ - "2269", - "Zenaida", - "Valenzuela", - "31700", - "Guam" - ], - [ - "2270", - "Bradley", - "Wynn", - "21222", - "Lithuania" - ], - [ - "2271", - "Maite", - "Richard", - "H4D 7X0", - "Cameroon" - ], - [ - "2272", - "Moses", - "House", - "Y3Z 3K7", - "Saint Vincent and The Grenadines" - ], - [ - "2273", - "Erich", - "Petersen", - "U4N 9R7", - "Rwanda" - ], - [ - "2274", - "Stephanie", - "Zimmerman", - "70097", - "Malawi" - ], - [ - "2275", - "Rylee", - "Schneider", - "15645", - "Gibraltar" - ], - [ - "2276", - "Zia", - "Craig", - "H1K 1N9", - "Norway" - ], - [ - "2277", - "Fiona", - "Chaney", - "Y4U 7K8", - "San Marino" - ], - [ - "2278", - "Gil", - "Sherman", - "64720", - "Wallis and Futuna" - ], - [ - "2279", - "Raja", - "Sandoval", - "11225", - "Lithuania" - ], - [ - "2280", - "Illana", - "Wyatt", - "A2M 9O2", - "Brazil" - ], - [ - "2281", - "Declan", - "Howell", - "E9V 8J5", - "San Marino" - ], - [ - "2282", - "Warren", - "Cooper", - "47160", - "Guyana" - ], - [ - "2283", - "Alyssa", - "Juarez", - "S7G 8F2", - "Sweden" - ], - [ - "2284", - "Quynn", - "Long", - "P1P 5Y4", - "Mexico" - ], - [ - "2285", - "Dalton", - "Booker", - "I5T 1R3", - "Mauritius" - ], - [ - "2286", - "Lunea", - "Mclaughlin", - "I3F 6D4", - "Togo" - ], - [ - "2287", - "Irene", - "Brock", - "04760", - "Tajikistan" - ], - [ - "2288", - "Raven", - "Floyd", - "R2N 2Y5", - "Philippines" - ], - [ - "2289", - "Nichole", - "Farmer", - "81213", - "Seychelles" - ], - [ - "2290", - "Sophia", - "Mcdonald", - "86291", - "Chile" - ], - [ - "2291", - "Nehru", - "Matthews", - "60732", - "Central African Republic" - ], - [ - "2292", - "Marah", - "Nelson", - "44533", - "Kenya" - ], - [ - "2293", - "Marvin", - "Lyons", - "M7Y 1Q6", - "Somalia" - ], - [ - "2294", - "Ian", - "Fernandez", - "D9U 8B6", - "Turkey" - ], - [ - "2295", - "Gretchen", - "Dotson", - "48294", - "China" - ], - [ - "2296", - "Brady", - "Weaver", - "S4U 4I8", - "Burundi" - ], - [ - "2297", - "Ella", - "Salas", - "73771", - "Sao Tome and Principe" - ], - [ - "2298", - "Martha", - "Irwin", - "06554", - "Timor-leste" - ], - [ - "2299", - "Penelope", - "Pratt", - "S1R 4L4", - "Gabon" - ], - [ - "2300", - "Kenyon", - "Dale", - "64548", - "Zimbabwe" - ], - [ - "2301", - "Henry", - "Myers", - "07614", - "United Arab Emirates" - ], - [ - "2302", - "Chaney", - "Dunlap", - "18388", - "French Southern Territories" - ], - [ - "2303", - "Palmer", - "Le", - "10807", - "Colombia" - ], - [ - "2304", - "Kaseem", - "Madden", - "U4E 6L9", - "Guyana" - ], - [ - "2305", - "Grant", - "Anthony", - "F3K 4D8", - "Trinidad and Tobago" - ], - [ - "2306", - "Denton", - "Moore", - "I5O 4I5", - "Belize" - ], - [ - "2307", - "Regan", - "Pittman", - "U8T 9M1", - "Romania" - ], - [ - "2308", - "Valentine", - "Hunt", - "E9O 6H6", - "Poland" - ], - [ - "2309", - "Abraham", - "Love", - "X1T 4K0", - "Philippines" - ], - [ - "2310", - "Maggie", - "Gaines", - "W5Z 6L4", - "Chad" - ], - [ - "2311", - "Kylynn", - "Sears", - "53419", - "Ghana" - ], - [ - "2312", - "Abel", - "Hudson", - "O6C 6K5", - "Malaysia" - ], - [ - "2313", - "Aladdin", - "Brady", - "16465", - "Antarctica" - ], - [ - "2314", - "Laurel", - "Bush", - "42295", - "Kyrgyzstan" - ], - [ - "2315", - "Cameron", - "Shepherd", - "Y8R 5L7", - "Finland" - ], - [ - "2316", - "Colin", - "Barker", - "H8Q 5L0", - "Aruba" - ], - [ - "2317", - "Nichole", - "Stephens", - "B8P 3D5", - "Qatar" - ], - [ - "2318", - "Mary", - "Dorsey", - "J7D 1E5", - "Iceland" - ], - [ - "2319", - "Yetta", - "Dillon", - "I7X 9D3", - "Hong Kong" - ], - [ - "2320", - "Hope", - "May", - "L5W 1T9", - "Taiwan, Province of China" - ], - [ - "2321", - "Daphne", - "Barr", - "W2B 9G2", - "Korea, Republic of" - ], - [ - "2322", - "Melissa", - "Hartman", - "17607", - "Reunion" - ], - [ - "2323", - "Acton", - "Merritt", - "U7M 3Q5", - "Cape Verde" - ], - [ - "2324", - "Alika", - "Weeks", - "45475", - "Singapore" - ], - [ - "2325", - "Fitzgerald", - "Rowe", - "Z3Z 2B6", - "Israel" - ], - [ - "2326", - "Frances", - "Valentine", - "54329", - "Kyrgyzstan" - ], - [ - "2327", - "Hollee", - "Poole", - "56101", - "Saint Kitts and Nevis" - ], - [ - "2328", - "Melissa", - "Stafford", - "R5C 7V0", - "Philippines" - ], - [ - "2329", - "Patience", - "Jones", - "61516", - "Mauritius" - ], - [ - "2330", - "Uta", - "Sloan", - "K1B 9R2", - "Timor-leste" - ], - [ - "2331", - "Brent", - "West", - "69310", - "Burundi" - ], - [ - "2332", - "Otto", - "Olsen", - "88849", - "Monaco" - ], - [ - "2333", - "Blossom", - "Soto", - "E2Q 6E6", - "Ukraine" - ], - [ - "2334", - "Anastasia", - "Stanton", - "S8D 3U5", - "Mexico" - ], - [ - "2335", - "Nyssa", - "Massey", - "A4G 8G7", - "Ireland" - ], - [ - "2336", - "Brian", - "Moreno", - "T6O 4D7", - "Myanmar" - ], - [ - "2337", - "Fiona", - "Price", - "03826", - "Benin" - ], - [ - "2338", - "Wyoming", - "Knowles", - "I5M 7T3", - "Chad" - ], - [ - "2339", - "Iola", - "Noble", - "95251", - "Tunisia" - ], - [ - "2340", - "Cameran", - "Montgomery", - "35748", - "Korea" - ], - [ - "2341", - "Wesley", - "Sims", - "J6O 7C0", - "Hungary" - ], - [ - "2342", - "Mona", - "Gates", - "J6Y 3E2", - "Tokelau" - ], - [ - "2343", - "Dominique", - "Sellers", - "G6U 7I2", - "Sudan" - ], - [ - "2344", - "Destiny", - "Frazier", - "Y2P 5X6", - "Madagascar" - ], - [ - "2345", - "Kelsie", - "Stokes", - "78561", - "Yemen" - ], - [ - "2346", - "Julie", - "Jordan", - "U5H 4H0", - "Myanmar" - ], - [ - "2347", - "Xaviera", - "Hodge", - "36452", - "Turkey" - ], - [ - "2348", - "Cain", - "Boyd", - "74543", - "Lebanon" - ], - [ - "2349", - "Devin", - "Burch", - "94879", - "Cyprus" - ], - [ - "2350", - "Michelle", - "Manning", - "V7T 4A3", - "New Zealand" - ], - [ - "2351", - "Quintessa", - "Chapman", - "95379", - "Faroe Islands" - ], - [ - "2352", - "Danielle", - "Wells", - "27722", - "Colombia" - ], - [ - "2353", - "Faith", - "Decker", - "04881", - "Canada" - ], - [ - "2354", - "Gannon", - "Chapman", - "07687", - "Israel" - ], - [ - "2355", - "Jayme", - "Black", - "A6L 9W1", - "Jordan" - ], - [ - "2356", - "Zenia", - "Cooley", - "A6X 1B7", - "Greenland" - ], - [ - "2357", - "Maris", - "Burton", - "J4G 1Y0", - "Ecuador" - ], - [ - "2358", - "Rina", - "Vazquez", - "G3V 7G6", - "Russian Federation" - ], - [ - "2359", - "Nina", - "Stanton", - "E7Z 1W0", - "Dominica" - ], - [ - "2360", - "Alexandra", - "Jenkins", - "C6N 4R4", - "Morocco" - ], - [ - "2361", - "Jerome", - "Chen", - "68955", - "Israel" - ], - [ - "2362", - "Clementine", - "Robbins", - "X7I 7T3", - "Croatia" - ], - [ - "2363", - "Nigel", - "Guthrie", - "A4N 6X8", - "French Southern Territories" - ], - [ - "2364", - "Xaviera", - "Griffith", - "90489", - "Cuba" - ], - [ - "2365", - "Marsden", - "Best", - "U4B 5R7", - "Estonia" - ], - [ - "2366", - "Ebony", - "Benson", - "H7C 7F7", - "Anguilla" - ], - [ - "2367", - "Kylie", - "Hansen", - "38932", - "Eritrea" - ], - [ - "2368", - "Iola", - "Copeland", - "P4X 9M4", - "Rwanda" - ], - [ - "2369", - "Jorden", - "Green", - "48018", - "Namibia" - ], - [ - "2370", - "Hamish", - "Porter", - "L6F 8L1", - "Taiwan, Province of China" - ], - [ - "2371", - "Ezra", - "Taylor", - "09148", - "French Southern Territories" - ], - [ - "2372", - "Dara", - "Pratt", - "00558", - "Saint Kitts and Nevis" - ], - [ - "2373", - "Oliver", - "Holt", - "C4N 5Z7", - "Thailand" - ], - [ - "2374", - "Kato", - "Mcgee", - "17017", - "Micronesia" - ], - [ - "2375", - "Fuller", - "Rogers", - "M8F 6Y7", - "French Polynesia" - ], - [ - "2376", - "Carol", - "Stuart", - "55980", - "Sudan" - ], - [ - "2377", - "Wayne", - "Nichols", - "37344", - "Chile" - ], - [ - "2378", - "Lars", - "Gilbert", - "27076", - "Micronesia" - ], - [ - "2379", - "Todd", - "Rollins", - "M4I 4X8", - "Virgin Islands, U.S." - ], - [ - "2380", - "Colorado", - "Justice", - "68795", - "Yemen" - ], - [ - "2381", - "Jordan", - "Chang", - "11149", - "Mayotte" - ], - [ - "2382", - "Troy", - "Haynes", - "N2N 1N8", - "Reunion" - ], - [ - "2383", - "Amity", - "Snyder", - "17785", - "Argentina" - ], - [ - "2384", - "Kennan", - "Turner", - "30041", - "Brazil" - ], - [ - "2385", - "Dorothy", - "Gates", - "B7Z 6V4", - "Ghana" - ], - [ - "2386", - "Ariana", - "Rojas", - "70797", - "Eritrea" - ], - [ - "2387", - "Desirae", - "Joyner", - "63493", - "Maldives" - ], - [ - "2388", - "Marsden", - "Barton", - "36343", - "Chile" - ], - [ - "2389", - "Graham", - "Greer", - "65152", - "Cayman Islands" - ], - [ - "2390", - "Cameron", - "Edwards", - "89276", - "Montserrat" - ], - [ - "2391", - "Bradley", - "White", - "80364", - "United Kingdom" - ], - [ - "2392", - "Finn", - "Cote", - "G9P 1P0", - "Ghana" - ], - [ - "2393", - "Geoffrey", - "Becker", - "O5G 4L4", - "Wallis and Futuna" - ], - [ - "2394", - "Hayden", - "Estes", - "Q8G 7F9", - "Togo" - ], - [ - "2395", - "Quinlan", - "Garrett", - "R2C 3E7", - "Uganda" - ], - [ - "2396", - "Haviva", - "Harrington", - "64198", - "Bahamas" - ], - [ - "2397", - "Brennan", - "Hodge", - "35327", - "Paraguay" - ], - [ - "2398", - "Halee", - "Sykes", - "S6J 4S4", - "Costa Rica" - ], - [ - "2399", - "Mikayla", - "Ruiz", - "21686", - "Malaysia" - ], - [ - "2400", - "Macy", - "Stanley", - "F6D 6C4", - "Luxembourg" - ], - [ - "2401", - "Petra", - "Miles", - "O7X 2D2", - "Tokelau" - ], - [ - "2402", - "Oprah", - "Mendez", - "88994", - "France" - ], - [ - "2403", - "Upton", - "Silva", - "17878", - "French Southern Territories" - ], - [ - "2404", - "Wade", - "Pennington", - "S8J 3P2", - "Malaysia" - ], - [ - "2405", - "Gannon", - "Riddle", - "I4A 2H9", - "Somalia" - ], - [ - "2406", - "Jana", - "Myers", - "04982", - "Philippines" - ], - [ - "2407", - "Brooke", - "Hale", - "98272", - "Lithuania" - ], - [ - "2408", - "Hashim", - "Mendez", - "00144", - "Saint Helena" - ], - [ - "2409", - "Blythe", - "Hanson", - "U5Z 6P4", - "Saint Helena" - ], - [ - "2410", - "Michelle", - "Madden", - "B4R 1I9", - "Ireland" - ], - [ - "2411", - "Deirdre", - "Patton", - "B4H 1N7", - "Georgia" - ], - [ - "2412", - "Nathaniel", - "Chandler", - "W1V 8R4", - "Sierra Leone" - ], - [ - "2413", - "Tamekah", - "Murray", - "I8M 1W8", - "Guatemala" - ], - [ - "2414", - "Naida", - "Boyle", - "V4S 2N2", - "United Arab Emirates" - ], - [ - "2415", - "Hiroko", - "Winters", - "K8G 3R9", - "Barbados" - ], - [ - "2416", - "Palmer", - "Guy", - "A4H 5L1", - "Saudi Arabia" - ], - [ - "2417", - "Hermione", - "Nicholson", - "76147", - "Marshall Islands" - ], - [ - "2418", - "Russell", - "Boyd", - "66149", - "Switzerland" - ], - [ - "2419", - "Gretchen", - "Robles", - "B9L 1J7", - "Spain" - ], - [ - "2420", - "Leah", - "Gibbs", - "16682", - "Vanuatu" - ], - [ - "2421", - "Amir", - "Carlson", - "A5C 6F2", - "Myanmar" - ], - [ - "2422", - "Merrill", - "Ratliff", - "A6E 9B2", - "Tonga" - ], - [ - "2423", - "Wyatt", - "David", - "P8G 2M1", - "Kiribati" - ], - [ - "2424", - "Violet", - "Boyle", - "P5X 7B0", - "Denmark" - ], - [ - "2425", - "Jared", - "Myers", - "22131", - "Kyrgyzstan" - ], - [ - "2426", - "Lavinia", - "Stephenson", - "55537", - "Turks and Caicos Islands" - ], - [ - "2427", - "Zachary", - "Tyson", - "C4O 7V4", - "Macedonia" - ], - [ - "2428", - "Emma", - "Clark", - "A7Z 2Z1", - "Guam" - ], - [ - "2429", - "Aaron", - "Montoya", - "Q3U 2X1", - "Bahrain" - ], - [ - "2430", - "Dylan", - "Roach", - "81238", - "French Guiana" - ], - [ - "2431", - "Baxter", - "Rosario", - "H7B 1R2", - "Suriname" - ], - [ - "2432", - "Shad", - "Bolton", - "D1W 5X0", - "Barbados" - ], - [ - "2433", - "Hasad", - "Hines", - "D9U 3H1", - "Ukraine" - ], - [ - "2434", - "Maggy", - "French", - "M3E 5H8", - "Nicaragua" - ], - [ - "2435", - "Evangeline", - "Jenkins", - "57732", - "Nigeria" - ], - [ - "2436", - "Eaton", - "Shannon", - "56854", - "Namibia" - ], - [ - "2437", - "Keaton", - "Barber", - "G5V 7T0", - "Svalbard and Jan Mayen" - ], - [ - "2438", - "Lester", - "Love", - "J5Q 8H3", - "United Kingdom" - ], - [ - "2439", - "Olivia", - "Foley", - "16284", - "Mayotte" - ], - [ - "2440", - "Inez", - "Craig", - "98947", - "Poland" - ], - [ - "2441", - "Desirae", - "Jacobson", - "25950", - "French Polynesia" - ], - [ - "2442", - "Amethyst", - "Robertson", - "78840", - "Timor-leste" - ], - [ - "2443", - "Rahim", - "Day", - "61420", - "Maldives" - ], - [ - "2444", - "Kevyn", - "Mccarty", - "X7T 8Z3", - "Guam" - ], - [ - "2445", - "Logan", - "Malone", - "B6F 8N0", - "Madagascar" - ], - [ - "2446", - "Kathleen", - "Cote", - "L4R 6W9", - "Congo" - ], - [ - "2447", - "Porter", - "Mclean", - "G1Z 1W9", - "Mauritius" - ], - [ - "2448", - "Reagan", - "Chapman", - "86314", - "Palestinian Territory, Occupied" - ], - [ - "2449", - "Veda", - "Harrington", - "R7W 1K4", - "Congo" - ], - [ - "2450", - "Dominique", - "Hewitt", - "P5K 7L4", - "San Marino" - ], - [ - "2451", - "Zelda", - "Orr", - "Z5B 6V1", - "Greenland" - ], - [ - "2452", - "Natalie", - "Kane", - "10491", - "Belgium" - ], - [ - "2453", - "Elizabeth", - "Bright", - "R3V 2R4", - "Bangladesh" - ], - [ - "2454", - "Evan", - "Knapp", - "W3Z 3I5", - "Mauritius" - ], - [ - "2455", - "Unity", - "Armstrong", - "82986", - "Kiribati" - ], - [ - "2456", - "Arden", - "Winters", - "C7D 4M2", - "Sweden" - ], - [ - "2457", - "Hayfa", - "Henderson", - "B8Z 3V3", - "Latvia" - ], - [ - "2458", - "Ocean", - "Delacruz", - "Z3Z 2H8", - "Tonga" - ], - [ - "2459", - "Carter", - "Harding", - "R1Z 8J4", - "Ireland" - ], - [ - "2460", - "Harriet", - "Simmons", - "54757", - "Indonesia" - ], - [ - "2461", - "Sopoline", - "Hicks", - "I5A 6O2", - "Argentina" - ], - [ - "2462", - "Jenette", - "Ramos", - "I4V 3H6", - "Portugal" - ], - [ - "2463", - "Abigail", - "Berg", - "E6P 6L0", - "United States" - ], - [ - "2464", - "Sybill", - "Fox", - "02319", - "Svalbard and Jan Mayen" - ], - [ - "2465", - "Wyoming", - "Jarvis", - "I1R 7V9", - "Palestinian Territory, Occupied" - ], - [ - "2466", - "Cynthia", - "English", - "17983", - "Israel" - ], - [ - "2467", - "Jerry", - "Little", - "33846", - "Mauritius" - ], - [ - "2468", - "Quintessa", - "Donaldson", - "V4N 2K1", - "China" - ], - [ - "2469", - "Anne", - "Potter", - "78596", - "United States Minor Outlying Islands" - ], - [ - "2470", - "Madonna", - "Hart", - "A4A 4T8", - "Bahrain" - ], - [ - "2471", - "Madeline", - "Walls", - "Y3D 4T3", - "Comoros" - ], - [ - "2472", - "Fleur", - "Blevins", - "D1T 9P6", - "Guinea-bissau" - ], - [ - "2473", - "Jaden", - "Webb", - "13917", - "Lesotho" - ], - [ - "2474", - "Abdul", - "Fleming", - "A8A 3Y3", - "Canada" - ], - [ - "2475", - "Blaze", - "Carroll", - "41059", - "Marshall Islands" - ], - [ - "2476", - "David", - "Hoover", - "29132", - "Algeria" - ], - [ - "2477", - "Renee", - "Nieves", - "35843", - "Egypt" - ], - [ - "2478", - "Jaime", - "Mcclure", - "R5K 6B5", - "Liechtenstein" - ], - [ - "2479", - "Deborah", - "Fletcher", - "70399", - "Equatorial Guinea" - ], - [ - "2480", - "Otto", - "Lopez", - "72417", - "Belarus" - ], - [ - "2481", - "Bo", - "Walls", - "F4M 8X8", - "Latvia" - ], - [ - "2482", - "Jamal", - "Adams", - "N9X 3A2", - "Spain" - ], - [ - "2483", - "Silas", - "Gardner", - "25259", - "French Guiana" - ], - [ - "2484", - "Aladdin", - "Morin", - "45179", - "Sweden" - ], - [ - "2485", - "Dawn", - "Grant", - "53613", - "Grenada" - ], - [ - "2486", - "Forrest", - "Gay", - "53606", - "Cayman Islands" - ], - [ - "2487", - "Lavinia", - "Murphy", - "S5L 6X9", - "Turkey" - ], - [ - "2488", - "Sylvia", - "Wolfe", - "37280", - "Indonesia" - ], - [ - "2489", - "Wynter", - "Adkins", - "37391", - "Russian Federation" - ], - [ - "2490", - "Iola", - "Frank", - "I9H 1K7", - "Nigeria" - ], - [ - "2491", - "Emmanuel", - "Hester", - "Z6E 3I4", - "Guinea" - ], - [ - "2492", - "Karina", - "Christian", - "V8M 6F3", - "Honduras" - ], - [ - "2493", - "Malcolm", - "Holden", - "I7J 6U7", - "Austria" - ], - [ - "2494", - "Moana", - "Holmes", - "80402", - "Israel" - ], - [ - "2495", - "Ramona", - "Hewitt", - "U6B 7A6", - "Guadeloupe" - ], - [ - "2496", - "Nicholas", - "Terry", - "V8J 5D9", - "Costa Rica" - ], - [ - "2497", - "Erica", - "Dunlap", - "91596", - "Kazakhstan" - ], - [ - "2498", - "Logan", - "Harper", - "R7V 3T5", - "Guinea-bissau" - ], - [ - "2499", - "Bert", - "Ortega", - "74557", - "Paraguay" - ], - [ - "2500", - "Cameron", - "Ortiz", - "P9C 5B6", - "Eritrea" - ] - ] -} \ No newline at end of file diff --git a/PortalGPS/InicioGPS.aspx b/PortalGPS/InicioGPS.aspx index 3108676c0..51c7e7c0a 100644 --- a/PortalGPS/InicioGPS.aspx +++ b/PortalGPS/InicioGPS.aspx @@ -340,11 +340,5 @@ } - - <%----%> + -