From 2a1cbf53f9660f1ba36a9dc07221ad9e7d015793 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Jun 2021 16:20:49 -0700 Subject: [PATCH 1/4] =?UTF-8?q?se=20cambi=C3=B3=20combo=20de=20clientes=20?= =?UTF-8?q?de=20contratos=20a=20dropdownlost?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx | 2 +- OC/OC.aspx.vb | 23 ++++++++++++----------- 2 files changed, 13 insertions(+), 12 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index fd95b1c4d..b4968ba52 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -2545,7 +2545,7 @@
- +
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 5d6ca8ded..95c8204f9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -677,7 +677,7 @@ Partial Class OC TipoOS = True End If - BtnGeneraContrato.Visible = True : CargaClientes() + BtnGeneraContrato.Visible = True : CargaClientesContrato() CargaEstatusInicialFinal() CargaEstatusUsuarios() @@ -6770,7 +6770,7 @@ Partial Class OC BtnSolicitudAnticipo.Visible = False HlAgregarExcel.Visible = True LbDescargarExcel.Visible = True - BtnGeneraContrato.Visible = True : CargaClientes() + BtnGeneraContrato.Visible = True : CargaClientesContrato() LbVerificarExistencia.Visible = True LnkAgregarGuia.Visible = False @@ -7387,10 +7387,11 @@ Partial Class OC #Region "CONTRATOS" - Private Sub CargaClientes() - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() - DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1")) + Private Sub CargaClientesContrato() + 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlClientes.DataBind() + 'DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlClienteContrato End Sub Private Sub CargaContratos() @@ -7403,20 +7404,20 @@ Partial Class OC UpContrato.Update() End Sub - Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged + Private Sub DdlClienteContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteContrato.selectedindexchange DdlContratos.Items.Clear() ' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'") Dim ObjContratos As New ClsContratos - If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, 1) Then + If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClienteContrato.SelectedValue.ToEntero, -1, 1) Then If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'") - DdlContratos.DataBind() End If End If - + ObjContratos.Dispose() + DdlContratos.DataBind() DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -7492,7 +7493,7 @@ Partial Class OC End If Next TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString) - Ddlcliente.txtValue.Value = DdlClientes.SelectedValue + Ddlcliente.txtValue.Value = DdlClienteContrato.SelectedValue CargaSuperior() CargaDatosDetalles() From 1d3ea6d29193244b40ed48b09fabfbd734528577 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 2 Jun 2021 14:23:40 -0700 Subject: [PATCH 2/4] Documentos correcion descarga de documentos al hacer postback tras mostrar moadl de subida, cuentas bancarias restriccion de 18 caracteres exactos --- Bancos/CuentasBancariasDetalle.aspx | 2 ++ Ventas/Clientes.aspx.vb | 26 +++++++++++++++++++++++++- 2 files changed, 27 insertions(+), 1 deletion(-) diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx index 3862302b9..d2a0f9b05 100644 --- a/Bancos/CuentasBancariasDetalle.aspx +++ b/Bancos/CuentasBancariasDetalle.aspx @@ -61,6 +61,8 @@ CLABE: + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4588b91b2..571e1b1b6 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -6826,10 +6826,12 @@ Partial Class Clientes UPGvDocumentosCliente.Update() 'UpGvDocumentosFirma2.Update() End Sub - Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs) + Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim chkEstatus As CheckBox + CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero() CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero() Documentacion = GvRow.DataKey("Documentacion") @@ -6849,7 +6851,29 @@ Partial Class Clientes UpTituloFirma.Update() RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static', keyboard: false});") + + GvdocumentosEventosDescarga() + End Sub + + + Private Sub GvdocumentosEventosDescarga() + + For Each GvRow As GridViewRow In GvDocumentosCliente.Rows + + If GvRow.RowType = DataControlRowType.DataRow Then + + Dim LnkDownLoadDoc As LinkButton = GvRow.FCLinkButton("LnkDownLoadDoc") + Dim ImgDownLoadFormato As LinkButton = GvRow.FCLinkButton("ImgDownLoadFormato") + ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoadFormato) + ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc) + + End If + + Next + + End Sub + Private Sub GuardarDocumentosClientes(Optional _CveDocumentacionExcluir As Integer = -1) Dim hasError As Boolean = True From ab74b09054c614ca3d5f5ed503eab8362b3209d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Jun 2021 19:16:11 -0700 Subject: [PATCH 3/4] impuestos locales --- General/SaldosIniciales.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 2590c9fb1..c6cce12bd 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1109,7 +1109,7 @@ Partial Class General_SaldosIniciales Dim CveMoneda As Integer = 1 Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString - Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocalesl"), Row("ImpuestosLocales").ToString, "0").ToDecimal + Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True From 764084ce3b9f83d7a864233f2d3b929d64e1b386 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Jun 2021 19:16:28 -0700 Subject: [PATCH 4/4] mejora visual y manejo de la carga en excel --- Contabilidad/RegPrePolizaS.aspx | 9 ++++----- Contabilidad/RegPrePolizaS.aspx.vb | 20 ++++++++++++++------ 2 files changed, 18 insertions(+), 11 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 7fdbf74da..fde03b86f 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -145,7 +145,7 @@
- +
@@ -159,7 +159,7 @@
- +
@@ -202,9 +202,8 @@

- -
-
+ + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 2c44b33e0..d8ace96b3 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1963,8 +1963,15 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If - If Row("SubProyecto").ToString <> "" Then - CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero + If Row("SubProyecto").ToString.Trim <> "" Then + CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero + + If CveSubProyecto = 0 Then + Alert(String.Format("El subproyecto {0} no se reconoció, favor de verificar el archivo.", Row("SubProyecto"))) + DtMovimientos.Clear() + Exit For + End If + End If If CveConceptoContable = 69 Then @@ -1983,8 +1990,8 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveConcepto") = CveConceptoContable dr("CveConceptoContable") = CveConceptoContable dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString - dr("Cargo") = Row("Cargo").ToString.ToDecimal - dr("Abono") = Row("Abono").ToString.ToDecimal + dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL + dr("Abono") = Row("Abono").ToString.ToDecimal.RoundSQL dr("Descripcion") = Row("Concepto").ToString dr("CveSubProyecto") = CveSubProyecto dr("CveProveedor") = -1 @@ -1995,12 +2002,13 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveVenta") = -1 dr("CveCuenta") = CveCuenta - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero + DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() Next + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero + TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero GvMov.DataSource = DtMovimientos GvMov.DataBind()