From e9b8b6925181d955511d8eef92b37dbdc20f4ca2 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 May 2021 10:29:09 -0700 Subject: [PATCH 1/5] aplica anticipos pagados E72,E80 --- App_Code/ClsMovimientos.vb | 11 ++++++----- CxC/RepCxC.aspx | 3 +++ CxC/RepCxC.aspx.vb | 5 ++++- 3 files changed, 13 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index a382bb7e6..35896829d 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -241,7 +241,7 @@ Public Class ClsMovimientos Gpo As Integer, CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean + Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -273,7 +273,8 @@ Public Class ClsMovimientos .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion - .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados End With Try @@ -324,7 +325,7 @@ Public Class ClsMovimientos CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1, - Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1) As Boolean + Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -364,8 +365,8 @@ Public Class ClsMovimientos .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente - + .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente + .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados End With Try diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 82e7afba0..374b50382 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -335,6 +335,9 @@ +
+ +
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index f049dfde1..e625f98bc 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -105,6 +105,7 @@ Partial Class RepCxC CargaCombos() CargaGvPersonalizarRaqngoColumnas() CargaDatos() + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then ChkAnticipos.visible = True ActivaEnviarEstadoCuenta() If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True CreaDataTableColor() @@ -195,12 +196,14 @@ Partial Class RepCxC CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) + Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0) + If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, - TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados From de902db308bd1fe1596d837cb731320ef79ba088 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 May 2021 10:29:25 -0700 Subject: [PATCH 2/5] - considera ocultar imgE --- Contratos/ContratoObra.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 8573e6e37..9826998e5 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1679,9 +1679,9 @@ Partial Class Contratos_ContratoObra If e.Row.DBCampo("PermitirEstimacion").ToString = "1" Then ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True End If - If Autorizado Then - e.Row.FCLinkButton("imgE").Visible = False - e.Row.FCLinkButton("imgD").Visible = False + If Autorizado Then + ' e.Row.FCLinkButton("imgE").Visible = False + 'e.Row.FCLinkButton("imgD").Visible = False End If If CveTipoContrato = 25 Then e.Row.Cells(1).Width = Unit.Pixel(10) @@ -2044,8 +2044,8 @@ Partial Class Contratos_ContratoObra ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True End If If Autorizado Then - e.Row.FCLinkButton("imgE").Visible = False - e.Row.FCLinkButton("imgD").Visible = False + 'e.Row.FCLinkButton("imgE").Visible = False + 'e.Row.FCLinkButton("imgD").Visible = False End If End If From 21559c432aeca8ab42f51d85fbc5778ddf4849e3 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 May 2021 18:23:28 -0700 Subject: [PATCH 3/5] =?UTF-8?q?--=20correcci=C3=B3n=20de=20foliopoliza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index a26732099..c98118d5c 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -735,8 +735,8 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = drt("CvePersonal") dr("CveClasificacion") = -1 dr("MultipleSubProyecto") = drt("MultipleSubProyecto") - dr("FolioPoliza") = drt("FolioPoliza") - + 'dr("FolioPoliza") = 0 'drt("FolioPoliza") + DtMovimientos.Rows.Add(dr) Next From 81f31130d993bc7f53deaa62efcb8a431c7d3093 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 7 May 2021 21:52:56 -0700 Subject: [PATCH 4/5] ClsAF CveCliente duplciado en parametros RepLicencias --- App_Code/ClsAF.vb | 2 +- Contratos/FacturacionMasiva.aspx.vb | 9 +++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 8c9c1da2b..cd7bbc863 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -2604,7 +2604,7 @@ Public Class ClsAF .Add("@FechaVF", SqlDbType.DateTime).Value = FechaVF .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveCliente", SqlDbType.Int).Value = Estatus + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With Try SqlAdapter.Fill(Data) diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 7e2e5216f..8deac32ec 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -566,16 +566,21 @@ Partial Class Contratos_FacturacionMasiva DtR("Cantidad") = row("CantidadContratada") DtR("CveUM") = row("CveUM") DtR("UM") = row("UM") - DtR("SATClaveUM") = row("SATClaveUnidadMedida") + + DtR("SATClaveUM") = row("SATClaveUM") DtR("CveClasificacion") = row("CveClasificacion") DtR("Clasificacion") = row("Clasificacion") DtR("CvePS") = row("CvePS") DtR("PS") = row("PS") DtR("CodigoPS") = row("CodigoPS") - DtR("SATClaveProdServ") = row("SATClavePS") + + DtR("SATClaveProdServ") = row("SATClaveProdServ") + DtR("NoIdentificacion") = row("NoIdentificacion") + DtR("CveTipoPS") = drPS("CveTipoPS") DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario") + DtR("Obs") = TxtObservaciones.Text + " " + row("Observacion").ToString DtR("PU") = row("PU") DtR("IVA") = row("PorcentajeIVA") From 7d9aca44f00383f67c8463262ba9d547acfea9ed Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 8 May 2021 06:06:46 -0700 Subject: [PATCH 5/5] -- cambios de cobro-intermediarios izettle --- Bancos/DepositosCaja.aspx | 39 +++++++++++++++++++------ Bancos/DepositosCaja.aspx.vb | 55 +++++++++++++++++++++++++++--------- 2 files changed, 73 insertions(+), 21 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 445f02eb9..5f0713e77 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -144,10 +144,7 @@ - + + + +
+
+ +
+
+ +
+
+ + + +
+
+ + +
+
+ + +
+
+ + + + +
+
- - - - +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index b245a4e7d..9e9a43dcb 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -46,19 +46,31 @@ Partial Class Bancos_DepositosCaja DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDeposito.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) DdlClasificacion.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource DdlClasificacionDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) + + 'intermediario + DdlProveedorIntermediario.datasource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343)) + DdlProveedorIntermediario.databind + + DdlClasifIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) + DdlClasifIntermediario.DataBind() + + + DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectoIntermediario.DataBind() + End Sub @@ -134,8 +146,11 @@ Partial Class Bancos_DepositosCaja Dim CveSubProyectoDescuento As Integer = -1 Dim CveClasificacion As Integer = -1 Dim CveClasificacionDescuento As Integer = -1 - Dim documentos As String = "Los Depósitos se realizaron exitósamente

" + Dim documentos As String = "Los Depósitos se realizaron exitosamente

" Dim imprimirFolios As String = "" + Dim CveSubProyectoIntermediario As Integer = -1 + Dim CveClasificacionIntermediario As Integer = -1 + If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero @@ -172,13 +187,6 @@ Partial Class Bancos_DepositosCaja End If - If IVA <> 0 Then - IVA = CDec(0.16) - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then - OcurrioError = True - End If - End If - End If If ChkDescuento.Checked Then @@ -189,6 +197,24 @@ Partial Class Bancos_DepositosCaja OcurrioError = True End If End If + + If 1 = 1 Then + + CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero + CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + OcurrioError = True + End If + + If IVA <> 0 Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then + OcurrioError = True + End If + End If + + End If + Else OcurrioError = True End If @@ -210,17 +236,20 @@ Partial Class Bancos_DepositosCaja FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) If Not FolioIE > 0 Then OcurrioError = True + Exit For End If CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then OcurrioError = True + Exit For End If 'Asignamos la cuenta Deposito - If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then OcurrioError = True + Exit For End If Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")