From 83a2bccc98d502177521fa3ec9a8cdcd46180598 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 27 Feb 2021 15:37:59 -0700 Subject: [PATCH 1/3] Compras Validacion Combustibles --- Compras/Compras.aspx.vb | 80 +++++++++++++++++++++++++++++++---------- 1 file changed, 62 insertions(+), 18 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6bd0ab547..0809c0dc4 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3987,21 +3987,10 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + + AjustaCombustibles() + '------------------INICIA VALIDACIONES------------------ - - Dim TempIva As Decimal - For Each drowv As DataRow In TmpDT.Rows - TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal) - Next - - Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva) - - If Math.Abs(DifGenelraIvas) > 0.2 Then - Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple @@ -6508,7 +6497,7 @@ Partial Class Compras_Compras End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" @@ -6836,8 +6825,8 @@ Partial Class Compras_Compras importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable() Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS") @@ -7063,7 +7052,7 @@ Partial Class Compras_Compras End If Case 5 'Proveedores If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor - Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) + Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) If tipoCambioActual <> 1 Then Select Case ConceptoContable Case 5 @@ -8540,6 +8529,61 @@ Partial Class Compras_Compras End If End Sub + + Private Sub AjustaCombustibles() + + + If Not TmpDT.Columns.Contains("AplicaIEPS") Then + TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean))) + End If + + If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then + TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean))) + End If + + For Each dRow As DataRow In TmpDT.Rows + If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0) + dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString) + dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString) + Else + dRow("AplicaIEPS") = False + dRow("IEPSGrabaIVA") = False + End If + Next + + Dim DTConsulta As New DataTable + DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ") + + If DTConsulta.Rows.Count > 0 Then + + Dim IndiceContador As Integer = 0 + Dim IndiceUltimo As Integer = 0 + + For Each dRow As DataRow In TmpDT.Rows + + If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then + IndiceUltimo = IndiceContador + End If + + IndiceContador = IndiceContador + 1 + + Next + + + Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal + Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles + + If Math.Abs(DiferenciaIVas) > 0.01D Then + TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas + TmpDT.AcceptChanges() + End If + + End If + + + End Sub + Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged Dim ObjProveedores As New ClsCompProveedores() From 07ffac282c13c9384ae69c5a2f319b2a1e0ba229 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 1 Mar 2021 15:16:00 -0700 Subject: [PATCH 2/3] Se corrije cambio en retorno de cancelacion de IE, se esperaba bool la funcion se cambio en diciembre de 2020 a retorno de tipo entero. --- Ventas/ClientesAbonar.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index e6df12068..874218a2d 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -3001,7 +3001,7 @@ Partial Class Ventas_ClientesAbonar 'CANCELA IE If Not ErrorCancelar Then - If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then + If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then ErrorCancelar = True End If End If @@ -3028,7 +3028,7 @@ Partial Class Ventas_ClientesAbonar 'CANCELA IE If Not ErrorCancelar Then - If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then + If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then ErrorCancelar = True End If End If @@ -3041,12 +3041,12 @@ Partial Class Ventas_ClientesAbonar If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then 'CANCELA IE MES ANTERIOR - If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then + If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then ErrorCancelar = True End If Else 'CANCELA IE MES ACTUAL - If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then + If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then ErrorCancelar = True End If End If From 039a624810f270cf817b87bd4277be28ed85e0fb Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 1 Mar 2021 16:27:00 -0700 Subject: [PATCH 3/3] RDLC poliza 119, se agregaron grupos --- Empresas/119/Formatos/Polizas.rdlc | 162 +++++++++++++++-------------- 1 file changed, 86 insertions(+), 76 deletions(-) diff --git a/Empresas/119/Formatos/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc index 080600e53..fa48d9432 100644 --- a/Empresas/119/Formatos/Polizas.rdlc +++ b/Empresas/119/Formatos/Polizas.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -17,78 +17,78 @@ /* Local Query */ - - Id - System.Int32 - - - Fecha - System.DateTime - - - TipoPoliza - System.String - - - NombreCuenta - System.String - - - CodigoCuenta - System.String - - - Numero - System.Int32 - - - Folio - System.Int32 - - - Referencia - System.String - - - Concepto - System.String - - - ConceptoPoliza - System.String - - - TipoMovto - System.Int32 - - - Cargos - System.String - - - Abonos - System.String - - - SegNeg - System.String - - - Cargo - System.Decimal - - - Abono - System.Decimal - - - Codigo - System.String - - - NombreUsuario - System.String - + + Id + System.Int32 + + + Fecha + System.DateTime + + + TipoPoliza + System.String + + + NombreCuenta + System.String + + + CodigoCuenta + System.String + + + Numero + System.Int32 + + + Folio + System.Int32 + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + TipoMovto + System.Int32 + + + Cargos + System.String + + + Abonos + System.String + + + SegNeg + System.String + + + Cargo + System.Decimal + + + Abono + System.Decimal + + + Codigo + System.String + + + NombreUsuario + System.String + DataSet1 @@ -171,6 +171,7 @@ 2pt + true @@ -460,6 +461,7 @@ 7 + true @@ -551,6 +553,7 @@ 2pt + true @@ -771,6 +774,7 @@ 1pt + true @@ -992,6 +996,7 @@ 1pt + true @@ -1206,6 +1211,7 @@ 1pt + true @@ -1217,7 +1223,7 @@ - =Fields!NombreUsuario.Value + =Fields!NombreUsuario.Value 3 + true @@ -1677,7 +1684,10 @@ - =Fields!Id.Value + =Fields!Fecha.Value + =Fields!TipoPoliza.Value + =Fields!Numero.Value + =Fields!ConceptoPoliza.Value End @@ -1685,7 +1695,7 @@ - =Fields!NombreUsuario.Value + =Fields!NombreUsuario.Value