Merge branch 'master' of http://192.168.10.111:8383/SIG

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"
 
@@ -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()
 

Empresas/119/Formatos/Polizas.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet1">
@@ -171,6 +171,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -460,6 +461,7 @@
                           </Style>
                         </Textbox>
                         <ColSpan>7</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -551,6 +553,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -771,6 +774,7 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -992,6 +996,7 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1206,6 +1211,7 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1540,6 +1546,7 @@
                           </Style>
                         </Textbox>
                         <ColSpan>3</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -1677,7 +1684,10 @@
                 <TablixMember>
                   <Group Name="Id">
                     <GroupExpressions>
-                      <GroupExpression>=Fields!Id.Value</GroupExpression>
+                      <GroupExpression>=Fields!Fecha.Value</GroupExpression>
+                      <GroupExpression>=Fields!TipoPoliza.Value</GroupExpression>
+                      <GroupExpression>=Fields!Numero.Value</GroupExpression>
+                      <GroupExpression>=Fields!ConceptoPoliza.Value</GroupExpression>
                     </GroupExpressions>
                     <PageBreak>
                       <BreakLocation>End</BreakLocation>

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