From 79076ac5e85756d4f1077e32b2043ebd50a3656b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 19 Aug 2019 12:18:07 -0500 Subject: [PATCH 01/30] =?UTF-8?q?solo=20se=20movi=C3=B3=20al=20dise=C3=B1o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/CatPS.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatPS.aspx b/Ventas/CatPS.aspx index a1d71989a..932dcc77c 100644 --- a/Ventas/CatPS.aspx +++ b/Ventas/CatPS.aspx @@ -207,7 +207,7 @@ - + <%-- --%> From 708389c6bc0611deed0b7ae2ea723e749d58f01a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 19 Aug 2019 13:02:35 -0500 Subject: [PATCH 02/30] =?UTF-8?q?validaci=C3=B3n=20para=20agregar=20orden?= =?UTF-8?q?=20de=20compra?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/OC/OC.aspx b/OC/OC.aspx index 9fe4917bf..30e93fdef 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -818,6 +818,8 @@ + +
@@ -826,6 +828,8 @@ + + From 45d7c72078e402d651978d18472faa040ea3a9e7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 19 Aug 2019 12:57:56 -0700 Subject: [PATCH 03/30] =?UTF-8?q?Correci=C3=B3n=20de=20asignacion=20de=20d?= =?UTF-8?q?ocumentos=20relacionados?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 3 ++- localhost.sln | 45 ------------------------------------------- 2 files changed, 2 insertions(+), 46 deletions(-) delete mode 100644 localhost.sln diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8f60dce37..f3a8526a7 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8186,8 +8186,9 @@ Partial Class Ventas Else 'SI LA FACTURA VIENE DE SER CANCELADA SISTEMA CUANDO SE REFACTURO NO HAY QUE RELACIONAR - If CveEstatusFacturaPadre <> 4 Then + If (CveEstatusFacturaPadre > 0 AndAlso CveEstatusFacturaPadre <> 4) OrElse (DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0) Then If Obj.CveTipoRelacion > 0 Then + Select Case Obj.CveTipoRelacion Case 1 Timbre.CFDIRelacionados.TipoRelacion = "01" diff --git a/localhost.sln b/localhost.sln deleted file mode 100644 index 57e824a65..000000000 --- a/localhost.sln +++ /dev/null @@ -1,45 +0,0 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 14 -VisualStudioVersion = 14.0.25420.1 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}" - ProjectSection(WebsiteProperties) = preProject - SccProjectName = ""$/localhost", CAAAAAAA" - SccAuxPath = "" - SccLocalPath = "." - SccProvider = "MSSCCI:Microsoft Visual SourceSafe" - UseIISExpress = "false" - TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.6" - Debug.AspNetCompiler.VirtualPath = "/localhost" - Debug.AspNetCompiler.PhysicalPath = "..\SIGIT\" - Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" - Debug.AspNetCompiler.Updateable = "true" - Debug.AspNetCompiler.ForceOverwrite = "true" - Debug.AspNetCompiler.FixedNames = "false" - Debug.AspNetCompiler.Debug = "True" - Release.AspNetCompiler.VirtualPath = "/localhost" - Release.AspNetCompiler.PhysicalPath = "..\SIGIT\" - Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" - Release.AspNetCompiler.Updateable = "true" - Release.AspNetCompiler.ForceOverwrite = "true" - Release.AspNetCompiler.FixedNames = "false" - Release.AspNetCompiler.Debug = "False" - SlnRelativePath = "..\SIGIT\" - EndProjectSection -EndProject -Global - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection - GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {B4590109-7BF9-411C-A1AE-792C02707CE6} - EndGlobalSection -EndGlobal From f8179670b40df94370e820c8fb121584ccc87d3d Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 19 Aug 2019 11:05:35 -0700 Subject: [PATCH 04/30] Entrega Directa requiere Cliente y Vendedor --- OC/OC.aspx | 2 ++ OC/OC.aspx.vb | 6 ++++++ localhost.sln | 45 +++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 53 insertions(+) create mode 100644 localhost.sln diff --git a/OC/OC.aspx b/OC/OC.aspx index ccc521dda..9fe4917bf 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -589,6 +589,8 @@
+<%-- + --%>
Vendedor: diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 90fb21398..f2bb091f8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2219,6 +2219,12 @@ Partial Class OC End Function Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + 'Entrega Directa requiere Cliente y Vendedor + If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then + Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.") + Exit Sub + End If + 'VALIDACIONES PARA GUARDAR If ValidaGuardar() Then Exit Sub diff --git a/localhost.sln b/localhost.sln new file mode 100644 index 000000000..57e824a65 --- /dev/null +++ b/localhost.sln @@ -0,0 +1,45 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 14 +VisualStudioVersion = 14.0.25420.1 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}" + ProjectSection(WebsiteProperties) = preProject + SccProjectName = ""$/localhost", CAAAAAAA" + SccAuxPath = "" + SccLocalPath = "." + SccProvider = "MSSCCI:Microsoft Visual SourceSafe" + UseIISExpress = "false" + TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.6" + Debug.AspNetCompiler.VirtualPath = "/localhost" + Debug.AspNetCompiler.PhysicalPath = "..\SIGIT\" + Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Debug.AspNetCompiler.Updateable = "true" + Debug.AspNetCompiler.ForceOverwrite = "true" + Debug.AspNetCompiler.FixedNames = "false" + Debug.AspNetCompiler.Debug = "True" + Release.AspNetCompiler.VirtualPath = "/localhost" + Release.AspNetCompiler.PhysicalPath = "..\SIGIT\" + Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Release.AspNetCompiler.Updateable = "true" + Release.AspNetCompiler.ForceOverwrite = "true" + Release.AspNetCompiler.FixedNames = "false" + Release.AspNetCompiler.Debug = "False" + SlnRelativePath = "..\SIGIT\" + EndProjectSection +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {B4590109-7BF9-411C-A1AE-792C02707CE6} + EndGlobalSection +EndGlobal From 67e4aadedae3ee3f52869f2e4acb1414f380b32e Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 19 Aug 2019 12:09:43 -0700 Subject: [PATCH 05/30] Guarda Folio correcto en la Referencia de PrePoliza --- Bancos/IE.aspx.vb | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 78282a279..7a2b5318c 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2376,13 +2376,18 @@ Partial Class Bancos_IE 'valida prepoliza If CvePrePoliza > 0 Then - Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - + Dim Folio As String = "" CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) + If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + Folio = ObjIE.Folio + End If + + Dim Conc As String = If(TxtObservaciones.Text = "", Folio, TxtObservaciones.Text) + Dim Ref As String = If(TxtObservaciones.Text = "", Folio, TxtObservaciones.Text) + If CveIE > 0 Then If Comprobante <> "" Then @@ -2562,7 +2567,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = Folio Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" ImporteAplicar = TxtImporte.Text.ToDecimal @@ -2643,7 +2648,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = Folio Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" @@ -3038,11 +3043,11 @@ Partial Class Bancos_IE If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ" ConceptoRenglon = String.Format("Anticipo {0}", PagueseA) - IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq) + IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, Folio, TipoChq) If IDPoliza > 0 Then FolioPoliza = Conta.Folio - Referencia = TxtFolio.Text + Referencia = Folio ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text) Total = TxtImporte.Text.ToDouble From 90714499ea6f696322020ba9db53e0afac76de9c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 19 Aug 2019 12:18:23 -0700 Subject: [PATCH 06/30] Guardar PDF en facturacion masiva --- Ashx/SIGFacturacion.ashx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 5f4fb1591..d016019c6 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -763,7 +763,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState End Sub Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte() - Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))) + Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) Dim File As Byte() = Nothing Try Using httpClient = New HttpClient() From 1a30530778d52e105c4ae2a07531d7827425382e Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 12:24:41 -0700 Subject: [PATCH 07/30] En el reporte de rembolsos comprobaciones contabilizar automaticamente cuando se unifica, en IE que agare el folio que regrese cuando se registre este mismo. --- Bancos/IE.aspx.vb | 38 +++++++++++++---------- Compras/RepRembolsoComprobaciones.aspx.vb | 37 ++++++++++++++++++++-- 2 files changed, 56 insertions(+), 19 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 78282a279..3b46b208e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2352,7 +2352,6 @@ Partial Class Bancos_IE Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero Dim tImporteMonedaExtranjera As Decimal = 0 If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal - If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero 'cheque Dim PagueseA = "" If HdnCveCliente.Value.ToEntero > 0 Then @@ -2372,18 +2371,21 @@ Partial Class Bancos_IE End If If MsgError = "" Then - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) - - 'valida prepoliza - If CvePrePoliza > 0 Then - Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, + + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) - If CveIE > 0 Then + If CveIE > 0 Then + + If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque + CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) + + 'valida prepoliza + If CvePrePoliza > 0 Then + Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) + Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) If Comprobante <> "" Then ComprobanteIE = $"{CveIE}.{Comprobante}" @@ -2462,7 +2464,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -2562,7 +2564,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" ImporteAplicar = TxtImporte.Text.ToDecimal @@ -2643,7 +2645,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" @@ -2883,7 +2885,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -3038,11 +3040,11 @@ Partial Class Bancos_IE If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ" ConceptoRenglon = String.Format("Anticipo {0}", PagueseA) - IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq) + IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, ObjIE.Folio, TipoChq) If IDPoliza > 0 Then FolioPoliza = Conta.Folio - Referencia = TxtFolio.Text + Referencia = ObjIE.Folio ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text) Total = TxtImporte.Text.ToDouble @@ -3075,11 +3077,13 @@ Partial Class Bancos_IE End If Else - MsgError = "No se insertó el encabezado" + MsgError = "No se pudo insertar la póliza" End If + Else - MsgError = "No se pudo insertar la póliza" + MsgError = "No se insertó el encabezado" End If + End If Else diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index efc17754c..b3484860e 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -160,10 +160,17 @@ Partial Class Compras_RepRembolsoComprobaciones Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click Dim ObjComp As New ClsCompras() Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL) + Dim ObjAC As ClsContPAQi = Nothing + If UsuarioActual.Empresa.UsaAC Then + ObjAC = New ClsContPAQi(UsuarioActual.Empresa) + ObjAC.IniciaTransacSQL() + End If Dim TieneError = False Dim CvePrePoliza As Integer = 0 + Dim IdPoliza As Integer = 0 + Dim Msg As New StringBuilder - CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, txtfechaUnificacion.text.trim.todate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) + CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then @@ -187,17 +194,43 @@ Partial Class Compras_RepRembolsoComprobaciones End If End If + If Not TieneError Then + Msg.AppendFormat("Se unificaron todas las compras con éxito") + End If + + If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then + If ObjAC Is Nothing Then + TieneError = True + Return + End If + + If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + TieneError = True + Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + Else + IdPoliza = ObjMov.ContaIdPoliza + End If + + If IdPoliza > 0 AndAlso Not TieneError Then + Msg.AppendFormat("

Ver Póliza", IdPoliza) + End If + + End If + If Not TieneError Then ObjComp.Commit() - Alert("Se unificaron todas las compras con éxito", TipoMensaje.MsgInformacion) + If ObjAC IsNot Nothing Then ObjAC.Commit() + Alert(Msg.ToString, TipoMensaje.MsgInformacion) Else ObjComp.RollBack() + If ObjAC IsNot Nothing Then ObjAC.RollBack() Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia) End If ObjComp.Dispose() ObjMov.Dispose() + If ObjAC IsNot Nothing Then ObjAC.Dispose() End Sub #Region " CARGA DATOS " From 51eb9861f99e85f4ae11aa7dfc626711b80e7e79 Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 13:13:21 -0700 Subject: [PATCH 08/30] Cambios en IE --- Bancos/IE.aspx.vb | 5 +++++ SIGGIT.sln | 38 ++++++++++++++++++++++++++++++++++++++ 2 files changed, 43 insertions(+) create mode 100644 SIGGIT.sln diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 3b46b208e..b7bc8a148 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2384,6 +2384,11 @@ Partial Class Bancos_IE 'valida prepoliza If CvePrePoliza > 0 Then + + If Not ObjIE.UpdateIEPrePoliza(MinFecha, "", -1, CvePrePoliza, CveIE, -1) Then + MsgError = "Ocurrio un error al agregar la prepoliza al IE." + End If + Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) diff --git a/SIGGIT.sln b/SIGGIT.sln new file mode 100644 index 000000000..43ee77b10 --- /dev/null +++ b/SIGGIT.sln @@ -0,0 +1,38 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 14 +VisualStudioVersion = 14.0.25420.1 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{FDC5C912-427E-4541-B08F-04591188AA00}" + ProjectSection(WebsiteProperties) = preProject + UseIISExpress = "false" + TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0" + Debug.AspNetCompiler.VirtualPath = "/localhost" + Debug.AspNetCompiler.PhysicalPath = "..\wwwSIG\" + Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Debug.AspNetCompiler.Updateable = "true" + Debug.AspNetCompiler.ForceOverwrite = "true" + Debug.AspNetCompiler.FixedNames = "false" + Debug.AspNetCompiler.Debug = "True" + Release.AspNetCompiler.VirtualPath = "/localhost" + Release.AspNetCompiler.PhysicalPath = "..\wwwSIG\" + Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Release.AspNetCompiler.Updateable = "true" + Release.AspNetCompiler.ForceOverwrite = "true" + Release.AspNetCompiler.FixedNames = "false" + Release.AspNetCompiler.Debug = "False" + SlnRelativePath = "..\wwwSIG\" + EndProjectSection +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.Build.0 = Debug|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal From 8652b26302fb3763f19c69b1f0dde301713e858f Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 15:44:16 -0700 Subject: [PATCH 09/30] Validacion en Compras de que el IEPS de la OC sea igual al de la factura. --- Compras/Compras.aspx.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6a563aae9..89c01b93c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14469,6 +14469,10 @@ Partial Class Compras_Compras End If End If + If (LbIEPSOC1.Text.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then + Alert("Hay una diferencia de IEPS entre la factura y la OC.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If 'PSCodigo DE XML IP Dim DtTemporalXML = TmpDT.Copy From 62551bf1a2d303b2dc960b76a6e4494968c3515d Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 16:28:17 -0700 Subject: [PATCH 10/30] Cambio en RepRembolososComprobaciones --- Compras/RepRembolsoComprobaciones.aspx.vb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index b3484860e..f0681b57d 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -201,14 +201,15 @@ Partial Class Compras_RepRembolsoComprobaciones If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then If ObjAC Is Nothing Then TieneError = True - Return End If - If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then - TieneError = True - Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - Else - IdPoliza = ObjMov.ContaIdPoliza + If Not TieneError Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + TieneError = True + Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + Else + IdPoliza = ObjMov.ContaIdPoliza + End If End If If IdPoliza > 0 AndAlso Not TieneError Then From ba0246f87a87f876e2ed11bdcb7f67d4d0b5611c Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 17:30:38 -0700 Subject: [PATCH 11/30] Se modifico formato factura de JAM, se arreglo el porcentaje de IEPS --- Empresas/119/Formatos/Factura.rdlc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Empresas/119/Formatos/Factura.rdlc b/Empresas/119/Formatos/Factura.rdlc index cdcbffadc..3867b6594 100644 --- a/Empresas/119/Formatos/Factura.rdlc +++ b/Empresas/119/Formatos/Factura.rdlc @@ -2252,7 +2252,7 @@ - =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Fields!ImporteIEPS.Value & "(" & cdbl(Fields!PorcentajeIEPS.Value) * 100 & "%)","") + =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Fields!ImporteIEPS.Value & "(" & Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) & "%)","") - - - - - - Textbox22 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CANT. - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - T.E. - - - - - - - Textbox21 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P.U. - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SUBTOTAL - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.17561in - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TiempoEntrega.Value - - - - - - - TiempoEntrega1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 0.02778in - 0.00139in - 0.34081in - 8.03958in - - - - - - true - - - - - SUBTOTAL: - - - - - - - Textbox19 - 0.56593in - 5.89776in - 0.21875in - 1.04574in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) - - - - - - - Textbox42 - 0.54093in - 6.9435in - 0.21875in - 1.0787in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 0.99232in - 6.9435in - 0.21875in - 1.0787in - 3 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - - - - - TOTAL: - - - - - - - Textbox19 - 1.01732in - 5.89776in - 0.21875in - 1.04574in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - IVA: - - - - - - - Textbox19 - 0.79857in - 5.89776in - 0.21875in - 1.04574in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) - - - - - - - Textbox42 - 0.77357in - 6.9435in - 0.21875in - 1.0787in - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - Embedded - CINTILLOLOGOTIPOS - FitProportional - 1.50802cm - 0.06704cm - 1.69361cm - 14.91328cm - 9 - - - - - - true - true - - - - - ="Son: " & UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 1.31604in - 2.66493in - 0.18861in - 5.37603in - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.127cm - 0.07058cm - 3.9023cm - 20.42407cm - - - - - - 4.33815cm - - - - - - true - true - - - - - - - - - - - - - Cotización - - - - - - - - No. - - - - - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox4 - 0.04298in - 3.51392in - 0.29178in - 4.55343in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - =Parameters!SucursalCliente.Value - - - - - - - - - Atención: - - - - =Parameters!ClienteContacto.Value - - - - - - - - - Tel: - - - - =Parameters!ClienteTelefono.Value - - - - - - - - - E-Mail: - - - - =Parameters!ClienteContactoMail.Value - - - - - - - - - Fecha: - - - - =Parameters!FechaSolicitud.Value - - - - - - - Textbox18 - 0.86792cm - 11.06848cm - 3.27899cm - 9.4226cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.66868cm - 11.36047cm - 0cm - 1.7247cm - 3 - - 1.5pt - - - - - true - true - - - - - Compuproveedores, S.A DE C.V. - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www - - - - . - - - - compuproveedores - - - - . - - - - com - - - - - - - Textbox2 - 1.1557cm - 4.03176cm - 0.74402cm - 6.70687cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tel. - - - - =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", -IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", -IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", -IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) - - - - - - - Textbox3 - 0.66868cm - 4.03176cm - 0.45527cm - 6.70687cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 7.63292cm - true - true - - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 17.72297cm - 0.41981cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 6.92679cm - 0.07937cm - 0.56854cm - 20.42759cm - - - - - - - - true - true - - - - - =Parameters!VendedorNombre.Value - - - - - - - - - - =Parameters!VendedorTelefono.Value - - - - - - - =Parameters!VendedorCelular.Value - - - - - - - =Parameters!VendedorMail.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - BannerChilo - Fit - 3.92835cm - 0.13228cm - 2.57528cm - 20.21765cm - 1 - - - - - - true - true - - - - - Precios unitarios, no incluyen IVA - - - - - - - - - No devolución, no cancelación una vez hecho el pedido - - - - - - - - - Todo pedido requiere Orden de Compra - - - - - - - - - Precios sujetos a cambio sin previo aviso - - - - - - - - - Cotización sujeta a disponibilidad - - - - - - - - - Vigencia de cotización: - - - - =Parameters!Vigencia.Value - - - - - - - - - Condiciones de pago: - - - - =Parameters!CondicionPago.Value - - - - - - - - - Forma de entrega: - - - - =Parameters!FormaEntrega.Value - - - - - - - Textbox20 - 0.62794cm - 12.53405cm - 3.36038cm - 7.87937cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precios cotizados en Moneda Nacional - - - - - - - Textbox6 - 0.3175cm - 13.22197cm - 0.31044cm - 7.19145cm - 3 - - =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!FirmaVendedor.Value - FitProportional - 0.37747cm - 0.50093cm - 1.35889cm - 5.74406cm - 4 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.10718cm - 6.39645cm - 19.863cm - 5 - - = iif(Globals!PageNumber=Globals!TotalPages, true,false) - - - - - - - true - 0.09525cm - 0.07411cm - 6.57948cm - 20.46108cm - 1 - - = iif(Globals!PageNumber=Globals!TotalPages, false,true) - - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0cm - 0cm - 1.27cm - + + + + + + Textbox22 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CANT. + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + T.E. + + + + + + + Textbox21 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P.U. + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SUBTOTAL + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.17561in + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TiempoEntrega.Value + + + + + + + TiempoEntrega1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 0.02778in + 0.00139in + 0.34081in + 8.03958in + + + + + + true + + + + + SUBTOTAL: + + + + + + + Textbox19 + 0.56593in + 5.89776in + 0.21875in + 1.04574in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) + + + + + + + Textbox42 + 0.54093in + 6.9435in + 0.21875in + 1.0787in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 0.99232in + 6.9435in + 0.21875in + 1.0787in + 3 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + + + + + TOTAL: + + + + + + + Textbox19 + 1.01732in + 5.89776in + 0.21875in + 1.04574in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + IVA: + + + + + + + Textbox19 + 0.79857in + 5.89776in + 0.21875in + 1.04574in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) + + + + + + + Textbox42 + 0.77357in + 6.9435in + 0.21875in + 1.0787in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + Embedded + CINTILLOLOGOTIPOS + FitProportional + 1.50802cm + 0.06704cm + 1.69361cm + 14.91328cm + 9 + + + + + + true + true + + + + + ="Son: " & UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 1.31604in + 2.66493in + 0.18861in + 5.37603in + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.127cm + 0.07058cm + 3.9023cm + 20.42407cm + + + + + + 4.33815cm + + + + + + true + true + + + + + + + + + + + + + Cotización + + + + + + + + No. + + + + + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + + + + Textbox4 + 0.04298in + 3.51392in + 0.29178in + 4.55343in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + =Parameters!SucursalCliente.Value + + + + + + + + + Atención: + + + + =Parameters!ClienteContacto.Value + + + + + + + + + Tel: + + + + =Parameters!ClienteTelefono.Value + + + + + + + + + E-Mail: + + + + =Parameters!ClienteContactoMail.Value + + + + + + + + + Fecha: + + + + =Parameters!FechaSolicitud.Value + + + + + + + Textbox18 + 0.86792cm + 11.06848cm + 3.27899cm + 9.4226cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.66868cm + 11.36047cm + 0cm + 1.7247cm + 3 + + 1.5pt + + + + + true + true + + + + + Compuproveedores, S.A DE C.V. + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www + + + + . + + + + compuproveedores + + + + . + + + + com + + + + + + + Textbox2 + 1.1557cm + 4.03176cm + 0.74402cm + 6.70687cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tel. + + + + =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", +IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", +IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", +IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) + + + + + + + Textbox3 + 0.66868cm + 4.03176cm + 0.45527cm + 6.70687cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 7.63292cm + true + true + + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 17.72297cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 6.92679cm + 0.07937cm + 0.56854cm + 20.42759cm + + + + + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + + + + + + + =Parameters!VendedorTelefono.Value + + + + + + + =Parameters!VendedorCelular.Value + + + + + + + =Parameters!VendedorMail.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + BannerChilo + Fit + 3.92835cm + 0.13228cm + 2.57528cm + 20.21765cm + 1 + + + + + + true + true + + + + + Precios unitarios, no incluyen IVA + + + + + + + + + No devolución, no cancelación una vez hecho el pedido + + + + + + + + + Todo pedido requiere Orden de Compra + + + + + + + + + Precios sujetos a cambio sin previo aviso + + + + + + + + + Cotización sujeta a disponibilidad + + + + + + + + + Vigencia de cotización: + + + + =Parameters!Vigencia.Value + + + + + + + + + Condiciones de pago: + + + + =Parameters!CondicionPago.Value + + + + + + + + + Forma de entrega: + + + + =Parameters!FormaEntrega.Value + + + + + + + Textbox20 + 0.62794cm + 12.53405cm + 3.36038cm + 7.87937cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precios cotizados en Moneda Nacional + + + + + + + Textbox6 + 0.3175cm + 13.22197cm + 0.31044cm + 7.19145cm + 3 + + =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!FirmaVendedor.Value + FitProportional + 0.37747cm + 0.50093cm + 1.35889cm + 5.74406cm + 4 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.10718cm + 6.39645cm + 19.863cm + 5 + + = iif(Globals!PageNumber=Globals!TotalPages, true,false) + + + + + + + true + 0.09525cm + 0.07411cm + 6.57948cm + 20.46108cm + 1 + + = iif(Globals!PageNumber=Globals!TotalPages, false,true) + + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0cm + 0cm + 1.27cm + - - - Catálogo de Shipments - - - - -
  • - - - Crear Shipment - - -
    • -     - - - - - -
    -
    -
    - Shipments -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -     -     - - - - -     - +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Shipments.aspx.cs" EnableEventValidation="false" Inherits="GPS_Shipments" %> + + + + + + + + Catálogo de Shipments + + + + +
  • + + + Crear Shipment + + +
    • +     + + + + + +
    +
    +
    + Shipments +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +     +     + + + + +     + - - - + +     + diff --git a/GPS/Shipments.aspx.cs b/GPS/Shipments.aspx.cs index 2e6a3ada3..dc27aa9ba 100644 --- a/GPS/Shipments.aspx.cs +++ b/GPS/Shipments.aspx.cs @@ -154,34 +154,41 @@ public partial class GPS_Shipments : ClsPaginas } protected void LnkAddStop_Click(object sender, EventArgs e) { - if (DtStops != null) - { - var Row = DtStops.NewRow(); - Row["StopSequence"] = DtStops.Rows.Count + 1; - Row["Name"] = TxtLocName.Text.Trim(); - Row["LocationID"] = TxtLocID.Text.Trim(); - Row["StopType"] = DdlStopType.SelectedValue; - Row["StopRole"] = DdlStopRole.SelectedValue; - Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); - Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); - - Row["Address"] = TxtAddress.Text.Trim(); - Row["City"] = TxtCity.Text.Trim(); - Row["State"] = TxtState.Text.Trim(); - Row["PostalCode"] = TxtPostalCode.Text.Trim(); - Row["Country"] = TxtContry.Text.Trim(); - - var latlon = TxtLatLong.Text.Trim().Split(','); - - Row["Lat"] = latlon[0]; - Row["Lon"] = latlon[1]; - - DtStops.Rows.Add(Row); + try + { + if (DtStops != null) + { + var Row = DtStops.NewRow(); + Row["StopSequence"] = DtStops.Rows.Count + 1; + Row["Name"] = TxtLocName.Text.Trim(); + Row["LocationID"] = TxtLocID.Text.Trim(); + Row["StopType"] = DdlStopType.SelectedValue; + Row["StopRole"] = DdlStopRole.SelectedValue; + Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); + Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); + + Row["Address"] = TxtAddress.Text.Trim(); + Row["City"] = TxtCity.Text.Trim(); + Row["State"] = TxtState.Text.Trim(); + Row["PostalCode"] = TxtPostalCode.Text.Trim(); + Row["Country"] = TxtContry.Text.Trim(); + + var latlon = TxtLatLong.Text.Trim().Split(','); + + Row["Lat"] = latlon[0]; + Row["Lon"] = latlon[1]; + + DtStops.Rows.Add(Row); + } + GvStops.DataSource = DtStops; + GvStops.DataBind(); + + UpShipment.Update(); + } + catch (Exception ex) + { + this.OnError("Ocurrió un error al registrar la parada (stop)", ex); } - GvStops.DataSource = DtStops; - GvStops.DataBind(); - - UpShipment.Update(); this.RegistraScript("$('#DivStop').modal('hide');"); } diff --git a/PortalGPS/InicioGPS.aspx.vb b/PortalGPS/InicioGPS.aspx.vb index 96fa525fa..17d5eccd0 100644 --- a/PortalGPS/InicioGPS.aspx.vb +++ b/PortalGPS/InicioGPS.aspx.vb @@ -34,8 +34,8 @@ Partial Class GPS_PruebaMaster If UsuarioActual.Contraseña = (ContraseñaPredeterminadaEncriptada) OrElse UsuarioActual.ActCambiarContraseña Then Response.Redirect("/Sistemas/CatContrasenia.aspx") Else + CargaZonasHorarias() CargaDispositivos() - CargaZonasHorarias() End If End If End Sub diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index e9c55c3cd..4b2761db4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -160,7 +160,7 @@ - + @@ -173,7 +173,7 @@ - + @@ -186,7 +186,8 @@ - + + @@ -199,7 +200,7 @@