From 2315c536001ea06bd86aac19e42e91bad9c47ce6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Jul 2022 08:13:18 -0700 Subject: [PATCH 01/17] =?UTF-8?q?--=20correcc=C3=B3n=20de=20almacen=20virt?= =?UTF-8?q?ual,=20en=20recepci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 03ae2fa79..2bda09324 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1024,7 +1024,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim FolioVirtualEntrada As Integer = 0 Dim FolioVirtualSalida As Integer = 0 Dim FolioEntrada As Integer = 0 - Dim Fecha As Date = TxtFecha.Text.ToDate + Dim Fecha As DateTime = TxtFecha.Text.ToDate Dim ErrorMovInv As Boolean = False Dim ErrorAC As Boolean = False Dim TextoError = "" @@ -1120,7 +1120,7 @@ Partial Class Inventarios_TraspasoAlmacen End If 'VIRTUAL SALIDA/ENTRADA - If RealizarMovimientoVirtual AndAlso CveAlmacenVirtualSalida > 0 AndAlso Not ErrorMovInv Then + If RealizarMovimientoVirtual AndAlso CveMovimientoSalida > 0 AndAlso Not ErrorMovInv Then Dim dtvirtual As DataTable = Nothing @@ -1129,7 +1129,7 @@ Partial Class Inventarios_TraspasoAlmacen dtvirtual = ObjInventario.DtResultados If dtvirtual.Rows.Count > 0 Then - CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenVirtualEntrada) + CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenVirtualEntrada) FolioVirtualSalida = ObjInventario.Folio Dim Contabilizable As Boolean = False Dim Concepto As String = TxtObservaciones.Text @@ -1150,7 +1150,7 @@ Partial Class Inventarios_TraspasoAlmacen 'SALIDA VIRTUAL Dim importevirtual As Decimal = 0 - CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S3", CveMovimientoRelacionado:=CveMovimientoEntrada, CveAlmacenDestino:=CveAlmacenVirtualEntrada) + CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 36, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S3", CveMovimientoRelacionado:=CveMovimientoEntrada, CveAlmacenDestino:=CveAlmacenVirtualEntrada) FolioVirtualEntrada = ObjInventario.Folio If CveMovimientoVirtualEntrada > 0 Then Dim DtCostosVirtual As DataTable @@ -2182,9 +2182,10 @@ Partial Class Inventarios_TraspasoAlmacen Dim FolioVirtualEntrada, FolioVirtualSalida As Integer If RealizarMovimientoVirtual AndAlso Not ErrorMovInv Then - Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenEntrada).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero() + Dim CveAlmacenVirtualSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenEntrada).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero() + Dim CveAlmacenVirtualEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenSalida).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero() - If CveAlmacenVirtual > 0 Then + If CveAlmacenVirtualSalida > 0 Then Dim dtvirtual As DataTable = Nothing @@ -2192,7 +2193,7 @@ Partial Class Inventarios_TraspasoAlmacen dtvirtual = ObjInventario.DtResultados If dtvirtual.Rows.Count > 0 Then - CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/S22") + CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/S22") FolioVirtualSalida = ObjInventario.Folio For Each RowVirtual As DataRow In dtvirtual.Rows Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() @@ -2212,7 +2213,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TA22", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtualSalida, UsuarioActual.CveEmpresa) Then Dim resultado As DataTable = ObjInventario.DtResultados - CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S23") + CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualEntrada, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S23") FolioVirtualEntrada = ObjInventario.Folio For Each RowVirtual As DataRow In resultado.Rows From 53a48dc09d377c055a1ddb24f079daeb49d744bb Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Jul 2022 08:14:12 -0700 Subject: [PATCH 02/17] -- --- Compras/Compras.aspx.vb | 262 +++------------------------------------- 1 file changed, 18 insertions(+), 244 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a3c44fd31..5fc0f6dcc 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2175,24 +2175,7 @@ Partial Class Compras_Compras If Cambio Then DdlRetIVAConcepto.Items.Clear() - If RFCProv.Length = 13 Then ' personal moral - If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) - End If - - If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles - DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - End If - - If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) - DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) - DdlRetIVAConcepto.Items.Add(New ListItem("General", "6")) - End If - - - ElseIf RFCProv.Length = 12 Then + If RFCProv.Length = 13 Then ' personal fisica If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) End If @@ -2205,10 +2188,26 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) - DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) + DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5")) + DdlRetIVAConcepto.Items.Add(New ListItem("General", "6")) End If + ElseIf RFCProv.Length = 12 Then ' persona moral + If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + End If + If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + End If + + If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) + DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5")) + DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) + End If End If @@ -5936,8 +5935,6 @@ Partial Class Compras_Compras Next - - Dim CveClasificacionDT As Integer = -1 Dim CveSubProyectoDT As Integer = -1 Dim CveTipoGastoDT As Integer = -1 @@ -6022,54 +6019,6 @@ Partial Class Compras_Compras IdCtaContable = IdCuentaBancaria End If - - 'Case 19 'IVA Acreditable - ' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then - ' If importePagoProv = importeProv Then - ' importeMovimiento = TxtIVA.Text.ToDecimal - ' Else - ' importeMovimiento = 0 - ' End If - ' Else - ' importeMovimiento = importeIVAAcreditable - ' End If - - ' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador - - ' PorcentajeImpuesto = PorcentajeIVA - ' IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) - ' If chkImportacion.Checked Then - ' ConceptoContable = 288 - ' End If - - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - ' End If - ' End If - - ' 'Agregamos el Opuesto del 19 -> 14 - ' If importeMovimiento <> 0 Then - ' Dim IdCtaIva As Integer = 0 - ' IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) - ' Dim ttConceptoContable As Integer = 14 - - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - ' End If - ' End If - - ' If chkImportacion.Checked Then - ' ttConceptoContable = 287 - ' End If - - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then - ' ErrorPrepoliza = True - ' End If - ' End If - - ' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" Case 14 'IVA X Acreditar importeMovimiento = CompraActual.IVA importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL @@ -6109,21 +6058,6 @@ Partial Class Compras_Compras importeMN = 0 End If - - - 'Case 287 'IVA X Acreditar - ' importeMovimiento = CompraActual.IVA - ' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador - ' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" - ' PorcentajeImpuesto = PorcentajeIVA - ' IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - ' End If - ' End If - - Case 25 'IEPS X Acreditar If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then CveSubProyectoInsertar = CveSubProyecto @@ -6144,33 +6078,7 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1) End If - 'Case 26 'IEPS Acreditable - ' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then - ' importeMovimiento = ImporteIEPSAcreditable - ' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - ' End If - ' End If - ' 'Agregamos el Opuesto del 26 -> 25 - ' If importeMovimiento <> 0 Then - ' Dim IdCtaIEPS As Integer = 0 - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - ' End If - ' End If - - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then - ' ErrorPrepoliza = True - ' End If - ' End If - - ' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" - - ' End If Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof. If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then @@ -6217,119 +6125,6 @@ Partial Class Compras_Compras End If End If - 'Case 22 'RetIVA Acreditable Honorarios/Serv. Prof. - ' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then - ' If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then - ' Dim Funcionalidad As Integer = 0 - ' Dim ConceptoContableContra As Integer = 0 - - ' If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then - ' Funcionalidad = 308 - ' ConceptoContable = 22 - ' ConceptoContableContra = 15 - ' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then - ' Funcionalidad = 310 - ' ConceptoContable = 184 - ' ConceptoContableContra = 183 - - ' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then - ' Funcionalidad = 312 - ' ConceptoContable = 186 - ' ConceptoContableContra = 185 - - ' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then - ' Funcionalidad = 314 - ' ConceptoContable = 249 - ' ConceptoContableContra = 248 - - ' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then - ' Funcionalidad = 578 - ' ConceptoContable = 286 - ' ConceptoContableContra = 285 - ' ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then - ' Funcionalidad = 578 - ' ConceptoContable = 333 - ' ConceptoContableContra = 334 - ' End If - - ' importeMovimiento = importeRetIVAAcreditable - ' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - - ' If UsuarioActual.Empresa.TipoContabilidad = 2 Then - - ' If CtaProveedorRetIVA > 0 Then - ' IdCtaContable = CtaProveedorRetIVA - ' ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero - ' Else - ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' End If - - ' 'Agregamos el Opuesto del 22 -> 15 - ' If importeMovimiento <> 0 Then - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then - ' ErrorPrepoliza = True - ' End If - ' End If - - ' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" - ' End If - ' End If - - 'Case 23 'RetISR Acreditable - ' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then - ' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then - - ' Dim funcionalidad As Integer = 0 - ' Dim ConceptoContableContra As Integer = 0 - - ' If DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then - ' funcionalidad = 316 - ' ConceptoContable = 23 - ' ConceptoContableContra = 16 - ' ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then - ' funcionalidad = 318 - ' ConceptoContable = 244 - ' ConceptoContableContra = 243 - ' ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then - ' funcionalidad = 348 - ' ConceptoContable = 328 - ' ConceptoContableContra = 327 - ' End If - - ' importeMovimiento = importeRetISRAcreditable - ' importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - - ' If UsuarioActual.Empresa.TipoContabilidad = 2 Then - ' If CtaProveedorRetISR > 0 Then - ' IdCtaContable = CtaProveedorRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero - ' Else - ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' End If - - - ' 'Agregamos el Opuesto del 23 -> 16 - ' If importeMovimiento <> 0 Then - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then - ' ErrorPrepoliza = True - ' End If - ' End If - - ' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" - ' End If - ' End If Case 16 'Ret ISR X Acreditar If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then @@ -6397,27 +6192,6 @@ Partial Class Compras_Compras importeMovimiento = 0 End If - 'Case 65 'Perdida - - ' CveSubProyectoInsertar = CveSubProyecto - ' If CveSubProyectoInsertar <= 0 Then - ' ErrorPrepoliza = True - ' Alert("Concepto perdida cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) - ' End If - - ' If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then - ' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - ' If TCPago < TipoCambioCompra Then - ' importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv - ' importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable - ' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable - ' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable - ' importeMN = importeMovimiento - ' End If - ' Else - ' importeMovimiento = 0 - ' End If - Case 6 'Compra Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" From 48b2fc8f28174944f782f2e6e5a8b7cd097afccd Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Jul 2022 08:15:08 -0700 Subject: [PATCH 03/17] =?UTF-8?q?--=20corrreci=C3=B3n=20texto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Empresas/140/Formatos/Factura.rdlc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 38de1d8fd..c2627df75 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -2879,7 +2879,7 @@ - pagos:@bdhbaterias.com + pagos@bdhbaterias.com From 55fda3dc4ef85b7117c19960d0d2ef70c02baf2a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Jul 2022 08:15:27 -0700 Subject: [PATCH 04/17] - --- Bancos/PrestamoPersonal.aspx.cs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 09dbde1c3..3798fed6a 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -583,8 +583,6 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas } - - if (CveIE > 0) { //GUARDA COMPROBANTE From 73a6f862fb236855791d3bd7129cfbeaff1a455a Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 24 Jul 2022 19:01:48 -0700 Subject: [PATCH 05/17] fechas vencimientos --- Inicio.aspx.vb | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index fadb35692..e919fbee7 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -336,10 +336,8 @@ Partial Class Inicio Private Sub MuestraPsProximosAVencer() - - Dim ObjInventarios = New ClsInventarios - If ObjInventarios.GetProductosCaducidad(-1, Now, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then + If ObjInventarios.GetProductosCaducidad(-1, MinFecha, Now.AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then GvModalPSPorCaducar.DataSource = ObjInventarios.DtResultados @@ -352,20 +350,16 @@ Partial Class Inicio GvModalPSPorCaducar.DataSource = Nothing End If - - ObjInventarios.Dispose() GvModalPSPorCaducar.DataBind() - End Sub - Private Sub MuestraRSCOProximosAVencer() Dim ObjInventarios As New ClsInventarios - If ObjInventarios.RepCompuestosVigencia(-1, -1, Now, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then + If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddDays(30), 1, UsuarioActual.CveEmpresa, True) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados @@ -383,9 +377,6 @@ Partial Class Inicio End Sub - - - Private Sub CargaSubProyectos() DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubproyectos.DataBind() From 39a49d3478d77598caafaf18a43dba10c091684d Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 24 Jul 2022 19:06:12 -0700 Subject: [PATCH 06/17] =?UTF-8?q?correcci=C3=B3n=20ortograf=C3=ADa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inicio.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inicio.aspx b/Inicio.aspx index 9b7209883..a83974a0a 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1496,7 +1496,7 @@
-

Productos Proximos a caducar

+

Productos Próximos a caducar

@@ -1553,7 +1553,7 @@
-

Productos RSCO Proximos a Vencer

+

Productos RSCO Próximos a Vencer

From dfea5034bd9328e83695593d4cfd4851043fe967 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 24 Jul 2022 19:37:10 -0700 Subject: [PATCH 07/17] - columna de codigonombre --- Ashx/SIGWeb.ashx | 4 ++-- Inventarios/RecepcionUsados.aspx.vb | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 13be2dac8..9afe72256 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -753,8 +753,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim DtRetorno As DataTable = Nothing Dim ColumnaNombre As String = "NombreComercial" 'Abreviaturas. N. Nombre, NC. NombreComercial,... - If IfNull(context.Request("ColTexto"), "") = "N" Then - ColumnaNombre = "Nombre" + If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then + ColumnaNombre = IIf(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto")) End If Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 3385a7bfa..22e264f22 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -374,6 +374,7 @@ Partial Class Inventarios_RecepcionUsados EsConsumoInterno = False Correo = "" FolioCorreo = "" + DdlClientes.ddlWS.Attributes.Add("data-coltexto", "CodigoNombre") If IfNull(Request("Opc"), "").ToString = "S" Then RBLOpcion.SelectedValue = "3" From 330cb497ce99b53e77679777ca16762459fa2dcb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 26 Jul 2022 14:40:07 -0700 Subject: [PATCH 08/17] =?UTF-8?q?--activaci=C3=B3n=20de=20concepto=20=20ba?= =?UTF-8?q?ncos,=20si=20es=20cargo,=20deben=20de=20salir=20las=20opciones?= =?UTF-8?q?=20de=20Ingreso,=20sino=20de=20egreso.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 42 +++++++++++++++++------------- 2 files changed, 25 insertions(+), 19 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 18169a79c..23aab310d 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -562,7 +562,7 @@ - diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index c01afa5e1..5ee75e444 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1000,8 +1000,11 @@ Partial Class ContabilidadC_RegPrePolizaS 'Registra movimieno bancario If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then + Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString + If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero) - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"), + + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio, gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "", False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE < 0 Then @@ -1490,6 +1493,8 @@ Partial Class ContabilidadC_RegPrePolizaS End If If AplicaBancos AndAlso Not AplicaComplementaria Then + TxtCargoE.AutoPostBack = True + TxtAbonoE.AutoPostBack = True CargaModalConceptoTipoTransaccion("Egs") 'DivModalConceptoAncho.Attributes.Add("style", "width:1000px") DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6") @@ -1500,6 +1505,8 @@ Partial Class ContabilidadC_RegPrePolizaS DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12") RegistraScript("$('#DivModalConceptoAncho').attr('style','width:450px');") DvMoldalConceptoSeccion2.Visible = False + TxtCargoE.AutoPostBack = False + TxtAbonoE.AutoPostBack = False End If If AplicaTC Then @@ -2932,11 +2939,12 @@ Partial Class ContabilidadC_RegPrePolizaS End If - If gvr.DataKey("CveConceptoContable").ToEntero = 30 Then + Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString + If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero) - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString, + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio, gvr.DataKey("ContadoBeneficiario").ToString, Importe, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) FolioIE = gvr.DataKey("ContadoNumeroFolio").ToString @@ -2947,9 +2955,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - - - If gvr.DataKey("CveConceptoContable").ToEntero <> 30 Then If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then @@ -2960,15 +2965,12 @@ Partial Class ContabilidadC_RegPrePolizaS End If - If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then idCuentaContabilizacion = 0 End If If Importe <> 0 Then Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero - - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"), TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, @@ -2976,7 +2978,6 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then - Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -3008,11 +3009,8 @@ Partial Class ContabilidadC_RegPrePolizaS If MsgError = "" Then - Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""") - - ObjIE.Commit() If Conta IsNot Nothing Then Conta.Commit() @@ -3045,6 +3043,11 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero + TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero + UpTotalCargo.Update() + UpTotalAbono.Update() + UpPrePoliza.Update() End Sub @@ -3069,20 +3072,15 @@ Partial Class ContabilidadC_RegPrePolizaS DdlModalConceptoCuenta.DataBind() DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) - - End Sub #End Region - - Private Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Handles BtnDescontabilizar.Click Dim ObjConta As New ClsContabilidad - If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion) @@ -3118,5 +3116,13 @@ Partial Class ContabilidadC_RegPrePolizaS Venta.Dispose() End Sub + + Private Sub TxtCargoE_TextChanged(sender As Object, e As EventArgs) Handles TxtCargoE.TextChanged + If TxtCargoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Ing") + End Sub + + Private Sub TxtAbonoE_TextChanged(sender As Object, e As EventArgs) Handles TxtAbonoE.TextChanged + If TxtAbonoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Egs") + End Sub End Class From 28f53cf53283282064fd91c4249907277787c2c5 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Jul 2022 09:48:39 -0700 Subject: [PATCH 09/17] -- aplicar anticipos2 E158 --- Ventas/ClientesAbonar.aspx | 15 +++- Ventas/ClientesAbonar.aspx.vb | 137 +++++++++++++++++----------------- 2 files changed, 80 insertions(+), 72 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 4bb0bc047..84e10111e 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -461,21 +461,28 @@ - <%--24--%> + <%--25--%> - <%--25--%> + <%--26--%> + <%--27--%> + + + + + + - <%--26--%> + <%--28--%> Auxiliar @@ -483,7 +490,7 @@ - <%--27--%> + <%--29--%> Comp
Pago diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index d833010bd..6bc627306 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -551,7 +551,9 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol8").Visible = False e.Row.FCTextBox("TxtLiqColT").Visible = False e.Row.FCTextBox("TxtAmort").Visible = False + e.Row.FCTextBox("TxtAmort2").Visible = False e.Row.FCDropDownList("DdlAnti").Visible = False + e.Row.FCDropDownList("DdlAnti2").Visible = False End If If e.Row.RowIndex = 1 Then @@ -638,6 +640,7 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqColT").Attributes.Add("class", $"ClsSelLiqVentaTotal{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtAmort").Attributes.Add("class", $"ClsSelLiqAnt") + e.Row.FCTextBox("TxtAmort2").Attributes.Add("class", $"ClsSelLiqAnt") e.Row.FCTextBox("TxtLiqCol1").Attributes.Add("onkeyup", $"SumaLiq (this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") @@ -648,11 +651,16 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtAmort").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") + e.Row.FCTextBox("TxtAmort2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCDropDownList("DdlAnti").DataSource = DtIngresos e.Row.FCDropDownList("DdlAnti").DataBind() e.Row.FCDropDownList("DdlAnti").Items.Insert(0, New ListItem("-", "-1")) + e.Row.FCDropDownList("DdlAnti2").DataSource = DtIngresos + e.Row.FCDropDownList("DdlAnti2").DataBind() + e.Row.FCDropDownList("DdlAnti2").Items.Insert(0, New ListItem("-", "-1")) + End If Else @@ -1064,12 +1072,38 @@ Partial Class Ventas_ClientesAbonar Dim TCP As Decimal = 0 If DtIngresos IsNot Nothing Then TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue)) + Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue)).ToDate + 'considera fluctuación + If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then + If tTCPFecha <= UltimaFluctuacion.FechaFluctuacion Then + tTCPFecha = UltimaFluctuacion.FechaFluctuacion + TCP = UltimaFluctuacion.TCFluctuacion + End If + End If End If 'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo - FluctuacionAnticipo = ((TCP - tipoCambioVenta) * gvr.FCTextBox("TxtAmort").Text.ToDecimal).RoundSQL - MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort").Text.ToDecimal, TCP, tipoCambioVenta, gvr.DataKey("SerieFolio").ToString) + FluctuacionAnticipo = ((TCP - tipoCambioVentaValuacion) * gvr.FCTextBox("TxtAmort").Text.ToDecimal).RoundSQL + MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("SerieFolio").ToString) End If + If gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero > 0 Then + Dim TCP As Decimal = 0 + If DtIngresos IsNot Nothing Then + TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)) + Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)).ToDate + 'considera fluctuación + If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then + If tTCPFecha <= UltimaFluctuacion.FechaFluctuacion Then + tTCPFecha = UltimaFluctuacion.FechaFluctuacion + TCP = UltimaFluctuacion.TCFluctuacion + End If + End If + + End If + 'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo + FluctuacionAnticipo += ((TCP - tipoCambioVentaValuacion) * gvr.FCTextBox("TxtAmort2").Text.ToDecimal).RoundSQL + MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort2").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("SerieFolio").ToString) + End If End If @@ -1282,21 +1316,26 @@ Partial Class Ventas_ClientesAbonar Dim tImporteVenta, tImportePago As Decimal Dim Diferencia As Decimal = 0 ImporteMovimiento = 0 + Dim ImportePago As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal.RoundSQL + + If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then + ImportePago = ImportePago - gvr.FCTextBox("TxtAmort").Text.ToDecimal - gvr.FCTextBox("TxtAmort2").Text.ToDecimal + End If tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal) If CveMonedaVenta = 1 And CveMoneda <> 1 Then 'factura pesos, pago en dolares - tImporteVenta = gvr.FCTextBox("TxtAbonar").Text.ToDecimal.RoundSQL - tImportePago = (((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioVenta / tipoCambioPago).RoundSQL * tipoCambioPago).RoundSQL + tImporteVenta = ImportePago + tImportePago = ((ImportePago * tipoCambioVenta / tipoCambioPago).RoundSQL * tipoCambioPago).RoundSQL ElseIf CveMonedaVenta <> 1 And CveMoneda <> 1 Then 'factura dolares, pago en dolares - tImporteVenta = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioVentaValuacion).RoundSQL - tImportePago = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioPago).RoundSQL + tImporteVenta = (ImportePago * tipoCambioVentaValuacion).RoundSQL + tImportePago = (ImportePago * tipoCambioPago).RoundSQL ElseIf CveMonedaVenta <> 1 And CveMoneda = 1 Then 'factura dolares, pago en pesos - tImporteVenta = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioVentaValuacion).RoundSQL - tImportePago = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioPago).RoundSQL + tImporteVenta = (ImportePago * tipoCambioVentaValuacion).RoundSQL + tImportePago = (ImportePago * tipoCambioPago).RoundSQL End If 'If FluctuacionAnticipo <> 0 Then @@ -1323,10 +1362,10 @@ Partial Class Ventas_ClientesAbonar If FuncionalidadFluctuacionImpuestos Then Dim TCImpuestos As Decimal = tipoCambioPago - Diferencia -= (((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IVA - Diferencia -= (((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA - Diferencia -= (((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR - Diferencia -= (((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS + Diferencia -= (((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioVentaValuacion) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IVA + Diferencia -= (((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVentaValuacion) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA + Diferencia -= (((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVentaValuacion) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR + Diferencia -= (((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVentaValuacion) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS Diferencia = Diferencia.RoundSQL End If @@ -1398,12 +1437,10 @@ Partial Class Ventas_ClientesAbonar MsgError = "No se pudo insertar la póliza" Exit For End If - End If Next - If gvr.FCCheckBox("ChkGenerarNC").Checked AndAlso ObjFactura IsNot Nothing Then ObjFactura.DescuentoProntoPago = gvr.DataKey("DescuentoProntoPago").ToDecimal() ListaFacturasGenerarNC.Add(ObjFactura) @@ -1465,44 +1502,6 @@ Partial Class Ventas_ClientesAbonar MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, CveIE, TxtImporte.Text.ToDecimal, tipoCambioPago, tipoCambioVenta, TxtObservaciones.Text) - 'If CveMonedaPago = 2 Then - ' 'rmf faltan las cuentas - ' If IdCtaContMonedaComplementariaAnticipo > 0 Then - ' If CveMonedaPago = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - ' tipoCambioPago = TxtTCDolares.Text.ToDecimal - ' ElseIf CveMonedaPago = 2 AndAlso CveMonedaFiltro = 2 Then - ' tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - ' End If - - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' Else - ' If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - ' tipoCambioPago = TxtTCDolares.Text.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then - ' tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - ' End If - - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' End If - 'Else - ' If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - ' tipoCambioPago = TxtTCDolares.Text.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then - ' tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - ' End If - - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - 'End If End If If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then @@ -1701,27 +1700,27 @@ Partial Class Ventas_ClientesAbonar Dim MsgError As String = "" If CveMonedaPago = 2 Then 'rmf faltan las cuentas - 'If IdCtaContMonedaComplementariaAnticipo > 0 Then - If CveMonedaPago = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - tipoCambioPago = TxtTCDolares.Text.ToDecimal - ElseIf CveMonedaPago = 2 AndAlso CveMonedaFiltro = 2 Then - tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - End If + + 'If CveMonedaPago = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES + ' tipoCambioPago = TxtTCDolares.Text.ToDecimal + 'ElseIf CveMonedaPago = 2 AndAlso CveMonedaFiltro = 2 Then + ' tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal + 'End If If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, TxtObservaciones.Text, 92, Referencia, TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=Importe, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, Importe / TxtTC.Text.ToDecimal, Importe), Referencia, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (Importe * tipoCambioPago) - Importe, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, Importe / TxtTC.Text.ToDecimal, Importe), Referencia, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioPago}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (Importe * tipoCambioPago) - Importe, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" End If Else - If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - tipoCambioPago = TxtTCDolares.Text.ToDecimal - ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then - tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal - End If + 'If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES + ' tipoCambioPago = TxtTCDolares.Text.ToDecimal + 'ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then + ' tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal + 'End If If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, Importe * tipoCambioPago, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" @@ -2885,7 +2884,7 @@ Partial Class Ventas_ClientesAbonar #Region "LIQUIDACION" Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs) - Dim a As String = "se recarga para que no pierda sesíón el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás + Dim a As String = "se recarga para que no pierda sesión el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás End Sub Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs) @@ -2910,9 +2909,10 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(24).Visible = True GvCxC.Columns(25).Visible = True GvCxC.Columns(26).Visible = True 'anticipos + GvCxC.Columns(27).Visible = True 'anticipos2 - GvCxC.Columns(27).Visible = False GvCxC.Columns(28).Visible = False + GvCxC.Columns(29).Visible = False Else @@ -2932,10 +2932,11 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(23).Visible = False GvCxC.Columns(24).Visible = False GvCxC.Columns(25).Visible = False - GvCxC.Columns(26).Visible = False + GvCxC.Columns(26).Visible = False 'anticipos + GvCxC.Columns(27).Visible = False 'anticipos2 - GvCxC.Columns(27).Visible = True GvCxC.Columns(28).Visible = True + GvCxC.Columns(29).Visible = True End If From 952b16f031943d971b4d6d43ef694738f53a6330 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Jul 2022 09:50:23 -0700 Subject: [PATCH 10/17] - cfdi, requerido --- Ventas/Clientes.aspx | 6 ++++-- Ventas/Clientes.aspx.vb | 5 +++-- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index fda9bb029..d6e3cb71f 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1072,8 +1072,7 @@
- ¿El Cliente nos retiene IVA por Fletes y Acarreos?: - + ¿El Cliente nos retiene IVA por Fletes y Acarreos?:

@@ -1090,6 +1089,8 @@ + +
@@ -5028,6 +5029,7 @@ +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4bd6fa8d7..55fa194cf 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -10243,10 +10243,11 @@ Partial Class Clientes ' DdlRegimenFiscal.SelectedIndex = -1 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal") + Dim Val As String If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then 'verifico que sino existe el valor. lo limpie - Dim Val As String = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscal.SelectedValue) + Val = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscal.SelectedValue) If Val = "" Then 'sino encuentra valor, lo limpia DdlRegimenFiscal.Items.Clear() DdlRegimenFiscal.SelectedValue = Nothing @@ -10255,7 +10256,7 @@ Partial Class Clientes DdlRegimenFiscal.DataSource = dt DdlRegimenFiscal.DataBind() - + DdlRegimenFiscal.SelectedValueExist(Val) UpDatos.Update() End Sub From 95db34a9ae12aa30b28cc36b8d4cae0aa510cc95 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 29 Jul 2022 16:21:05 -0700 Subject: [PATCH 11/17] --- App_Code/ClsNominas.vb | 8 +- App_Code/ClsRH.vb | 32 +- GPS/Asistencia.rdlc | 905 +++++++++++++++++++++++++++++++++ Nomina/Nomina.aspx.cs | 67 ++- RH/ActualizacionMasiva.aspx | 70 +-- RH/ActualizacionMasiva.aspx.vb | 65 ++- RH/Asistencias.aspx | 91 ++-- RH/Asistencias.aspx.vb | 83 ++- RH/Personal.aspx.vb | 41 +- Sistemas/UsuarioDetalle.aspx | 4 +- vwd.webinfo | 10 + 11 files changed, 1260 insertions(+), 116 deletions(-) create mode 100644 GPS/Asistencia.rdlc diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b9ce81522..10f9a0250 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1338,10 +1338,14 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe un Concepto de Nomina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UK_Nom_Conceptos_CveEmpresa_Codigo") Then + Alert("Ya existe un Concepto de Nomina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error al Guardar el Concepto de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al Guardar el Concepto de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception OnError("Ocurrió un error al Guardar el Concepto de Nomina", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) @@ -1386,6 +1390,8 @@ Public Class ClsNominas Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe un Concepto de Nomina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UK_Nom_Conceptos_CveEmpresa_Codigo") Then + Alert("Ya existe un Concepto de Nomina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error el Concepto de Nomina", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b0d5a6a97..c642bf35c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1896,7 +1896,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Function - Public Function GetPersonalMasivo(CveTurno As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveSupervisor As Integer, CveEmpresa As Integer) As Boolean + Public Function GetPersonalMasivo(CveTurno As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveSupervisor As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -1906,7 +1906,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveSupervisor", SqlDbType.Int).Value = CveSupervisor + .Add("@CveSupervisor", SqlDbType.Int).Value = CveSupervisor + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -2271,6 +2272,33 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function + Public Function UpdatePersonalMasivoData(CveTurno As Integer, CveCliente As Integer, CveSupervisor As Integer, CvePersonal As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_RH_PersonalUpdateMasivoData") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTurno", SqlDbType.Int).Value = CveTurno + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveSupervisor", SqlDbType.VarChar).Value = CveSupervisor + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Personal no se guardó debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function UpdatePersonalMasivo(CveTurno As Integer, CveSubProyecto As Integer, CveSupervisor As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, CvePersonal As Integer, CveEmpresa As Integer) As Boolean diff --git a/GPS/Asistencia.rdlc b/GPS/Asistencia.rdlc new file mode 100644 index 000000000..e20d350f1 --- /dev/null +++ b/GPS/Asistencia.rdlc @@ -0,0 +1,905 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 74f8a171-24f1-4404-809e-ec2e098f1907 + + + + + + DataSet3 + /* Local Query */ + + + + Codigo + System.String + + + Nombre + System.String + + + AsistenciasInasistencias + System.String + + + PorcentajePago + System.Decimal + + + HorasDobles + System.Decimal + + + HorasTriples + System.Decimal + + + MotivoHoraExtra + System.String + + + + DataSet3 + C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd + DataTable1 + + + + + + + + + + + + + + + 1.43285cm + + + 5.73362cm + + + 2.51764cm + + + 1.99729cm + + + 2.5cm + + + 2.5cm + + + 2.1825cm + + + + + 0.6cm + + + + + true + true + + + + + Código + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Personal + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Asistencias + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % de Pago + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Horas Dobles + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Horas Triples + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Firma + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Codigo.Value + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AsistenciasInasistencias.Value + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorcentajePago.Value + + + + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!HorasDobles.Value>0,Fields!HorasDobles.Value.ToString(),"") + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIf(Fields!HorasTriples.Value>0,Fields!HorasTriples.Value.ToString(),"") + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + + Gray + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 2.11349cm + 0.31432cm + 1.2cm + 18.8639cm + + + + + + true + true + + + + + Lista de asistencia del día + + + + =Parameters!Fecha.Value + + + + + + + Textbox15 + 0.57891cm + 0.31432cm + 0.9175cm + 18.8639cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.65554in +