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

2021-03-03 18:40:30 -07:00
parent 2391f4503f af200988f9
commit 028c17b32f
20 changed files with 3021 additions and 2848 deletions
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1604,7 +1604,7 @@ Public Class ClsContabilidad
 #End Region


-    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean
+    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Conta_CuentasConceptosGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -1614,6 +1614,7 @@ Public Class ClsContabilidad
            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
            .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -961,6 +961,8 @@ Namespace Extensiones
                Retorno = ""
            End If

+            Retorno = UCase(Mid(Retorno, 1, 1)) + Mid(Retorno, 2, Len(Retorno))
+
            Return Retorno
        End Function

--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1389,8 +1389,22 @@ Partial Class Bancos_PopIECompras
    Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click


-        If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
-            Alert($"La fecha de compra no puede ser mayor que la fecha de pago  <br/> Fecha de compra: {  FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia)
+
+
+        Dim FechaFactura As Date = FechaCompra
+        Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
+
+        Dim AnioFactura As Integer = FechaFactura.Year
+        Dim MesFactura As Integer = FechaFactura.Month
+
+        Dim AnioDocumento As Integer = FechaDocumentoPago.Year
+        Dim MesDocumento As Integer = FechaDocumentoPago.Month
+
+        If AnioFactura > AnioDocumento Then
+            Alert($"El mes de la  fecha de compra no puede ser mayor al mes de la  la fecha de pago <br/> Fecha de compra: {  FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+            Alert($"El mes de la  fecha de compra no puede ser mayor al mes de la  la fecha de pago <br/> Fecha de compra: {  FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1390,12 +1390,25 @@ Partial Class Bancos_PopIEVentas



-        If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
-            Alert($"La fecha de venta no puede ser mayor que la fecha de pago <br/> Fecha de venta: {  FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+        Dim FechaFactura As Date = FechaVenta
+        Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
+
+        Dim AnioFactura As Integer = FechaFactura.Year
+        Dim MesFactura As Integer = FechaFactura.Month
+
+        Dim AnioDocumento As Integer = FechaDocumentoPago.Year
+        Dim MesDocumento As Integer = FechaDocumentoPago.Month
+
+        If AnioFactura > AnioDocumento Then
+            Alert($"El mes de la  fecha de venta no puede ser mayor al mes de la  la fecha de pago <br/> Fecha de venta: {  FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+            Alert($"El mes de la  fecha de venta no puede ser mayor al mes de la  la fecha de pago <br/> Fecha de venta: {  FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If


+
        'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
        If Not Page.IsValid Then
            Exit Sub
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -716,13 +716,27 @@ Partial Class Bancos_ProveedoresAbonar
        Dim ValFechaDocumento As Boolean = False
        Dim FoliosFechasValFechaDocumento As New StringBuilder

-        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
+        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")

        For Each gvRowVal As GridViewRow In GvCxP.Rows

            If gvRowVal.FCCheckBox("Chk").Checked Then
-                If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then
-                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") }  fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }<br/>")
+
+
+                Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+                Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+
+                Dim AnioFactura As Integer = FechaFactura.Year
+                Dim MesFactura As Integer = FechaFactura.Month
+
+                Dim AnioDocumento As Integer = FechaDocumento.Year
+                Dim MesDocumento As Integer = FechaDocumento.Month
+
+                If AnioFactura > AnioDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    ValFechaDocumento = True
+                ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
                    ValFechaDocumento = True
                End If

@@ -735,6 +749,7 @@ Partial Class Bancos_ProveedoresAbonar
        End If


+
        If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
            Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
            Exit Sub
--- 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"

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

--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -852,11 +852,11 @@ Partial Class Compras_Proveedores
                DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad

-                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                    CargaCuentasConceptos()
                    divCuentas.Visible = True
                    divCuentasContp.Visible = False
-                Else
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
                    divCuentas.Visible = False
                    divCuentasContp.Visible = True
                End If
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas
                                 CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
                                 CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then

+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
+                    If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                                        DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                        ObjContaEmpresa.Dispose()
+                        ObjConta.Dispose()
+                        Exit Sub
+                    End If
+                End If
+
                Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")

                If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
@@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas
                updatos.Update()

                Alert("La cuenta se guardo correctamente")
+
            End If
        Else
            Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
+            End If
+
            Dim ErrorParametros = True
            DtDatos = Nothing
            CargaTipoCuentas()
--- a/Contabilidad2/RepBalanceGeneral.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneral.aspx.vb
@@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx")
+            End If
+
            'If UsuarioActual.Empresa.UsaAC Then
            '    TipoReporte = -1
            'Else
--- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
@@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
+            End If
+
            Dim ErrorParametros = True
            ModoImpresion = False
            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
--- a/Contabilidad2/RepEstadoResultados.aspx.vb
+++ b/Contabilidad2/RepEstadoResultados.aspx.vb
@@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx")
+            End If
+
            'tdTipoReporte.Visible = True
            TipoReporte = 1

--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
+            End If
+
            Dim ErrorParametros = True

            CargaTipoCuentas()
--- a/Empresas/119/Formatos/Polizas.rdlc
+++ b/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>
--- a/Empresas/154/Formatos/OC.rdlc
+++ b/Empresas/154/Formatos/OC.rdlc
@@ -1,5 +1,111 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>11331dc3-a681-47ed-913e-5e2b9920498f</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="CveOrdenCompraDetalle">
+          <DataField>CveOrdenCompraDetalle</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CveOrdenCompra">
+          <DataField>CveOrdenCompra</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Cantidad">
+          <DataField>Cantidad</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="CveUnidadMedida">
+          <DataField>CveUnidadMedida</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PS">
+          <DataField>PS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveClasificacion">
+          <DataField>CveClasificacion</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Clasificacion">
+          <DataField>Clasificacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveActivoFijo">
+          <DataField>CveActivoFijo</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDato">
+          <DataField>TipoDato</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CodigoAF">
+          <DataField>CodigoAF</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CodigoPS">
+          <DataField>CodigoPS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="UnidadMedida">
+          <DataField>UnidadMedida</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="UM">
+          <DataField>UM</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Observacion">
+          <DataField>Observacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
      <Body>
        <ReportItems>
          <Tablix Name="Tablix1">
@@ -193,7 +299,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                              <Value>Observaciones</Value>
+                                  <Value>Observaciónes</Value>
                                  <Style>
                                    <FontFamily>calibri</FontFamily>
                                    <FontSize>8pt</FontSize>
@@ -1960,7 +2066,6 @@
            </Style>
          </Textbox>
          <Textbox Name="Textbox34">
-        <CanGrow>true</CanGrow>
            <KeepTogether>true</KeepTogether>
            <Paragraphs>
              <Paragraph>
@@ -1988,26 +2093,6 @@
                <Color>LightGrey</Color>
                <Style>Solid</Style>
              </Border>
-          <TopBorder>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-            <Width>1pt</Width>
-          </TopBorder>
-          <BottomBorder>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-            <Width>1pt</Width>
-          </BottomBorder>
-          <LeftBorder>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-            <Width>1pt</Width>
-          </LeftBorder>
-          <RightBorder>
-            <Color>LightGrey</Color>
-            <Style>Solid</Style>
-            <Width>1pt</Width>
-          </RightBorder>
              <BackgroundColor>White</BackgroundColor>
              <VerticalAlign>Middle</VerticalAlign>
              <PaddingLeft>2pt</PaddingLeft>
@@ -2697,110 +2782,8 @@
        <ColumnSpacing>0.13cm</ColumnSpacing>
        <Style />
      </Page>
-  <AutoRefresh>0</AutoRefresh>
-  <DataSources>
-    <DataSource Name="DsOC">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>11331dc3-a681-47ed-913e-5e2b9920498f</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DsOC">
-      <Query>
-        <DataSourceName>DsOC</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="CveOrdenCompraDetalle">
-          <DataField>CveOrdenCompraDetalle</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CveOrdenCompra">
-          <DataField>CveOrdenCompra</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Cantidad">
-          <DataField>Cantidad</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="CveUnidadMedida">
-          <DataField>CveUnidadMedida</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Abreviatura">
-          <DataField>Abreviatura</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="PS">
-          <DataField>PS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveClasificacion">
-          <DataField>CveClasificacion</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Clasificacion">
-          <DataField>Clasificacion</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveActivoFijo">
-          <DataField>CveActivoFijo</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Codigo">
-          <DataField>Codigo</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="TipoDato">
-          <DataField>TipoDato</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CodigoAF">
-          <DataField>CodigoAF</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CodigoPS">
-          <DataField>CodigoPS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="UnidadMedida">
-          <DataField>UnidadMedida</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Importe">
-          <DataField>Importe</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="Total">
-          <DataField>Total</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="UM">
-          <DataField>UM</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Observacion">
-          <DataField>Observacion</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="SubProyecto">
-          <DataField>SubProyecto</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DsOC</rd:DataSetName>
-        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsOC.xsd</rd:SchemaPath>
-        <rd:TableName>DtOCDetalle</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
+    </ReportSection>
+  </ReportSections>
  <ReportParameters>
    <ReportParameter Name="CentroCostos">
      <DataType>String</DataType>
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -3189,9 +3189,9 @@ Partial Class Ventas_PortalCliente
                ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
                ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")

-                ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
-                If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then
-                    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows(0)("MetodoPago").ToString
+                ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
+                If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
+                    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
                Else
                    ObjFactura.CveMetodoPago = 1
                    ObjFactura.MetodoPago = "Efectivo"
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -734,10 +734,22 @@
                                                    </div>
                                                </div>
                                            </div>
-
                                            <asp:UpdatePanel ID="UPPContable" runat="server" UpdateMode="Conditional">
                                                <ContentTemplate>
+                                                    <div id="divCuentas" runat="server" visible="false">
+                                                        <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
+                                                            <ContentTemplate>
+                                                                <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
+                                                                    <Columns>
+                                                                        <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                        <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+                                                    </div>

+                                                    <div id="divCuentasContp" runat="server" visible="false">
                                                        <div class="portlet-title">
                                                            <div class="caption font-green">
                                                                <i class="icon-user-following font-green"></i>
@@ -757,6 +769,7 @@
                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
                                                                    </asp:DropDownList>
                                                                    <i></i>
+
                                                                </div>
                                                                <div class="form-group input-iconright">
                                                                    <label for="<%= DdlPrestamos.ClientID.ToString()%>">Préstamos:</label>
@@ -765,6 +778,7 @@
                                                                    </asp:DropDownList>
                                                                </div>
                                                            </div>
+                                                    </div>
                                                </ContentTemplate>
                                            </asp:UpdatePanel>

--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -15,6 +15,7 @@ Partial Class RH_Personal
    Inherits ClsPaginas

 #Region "P R O P I E D A D E S"
+
    Private Property DTCuentasBancos As DataTable
        Get
            Return CType(ViewState("DTCuentasBancos"), DataTable)
@@ -1612,6 +1613,15 @@ Partial Class RH_Personal
                DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
                DdlAlmacenDestinoLiberarUniforme.DataBind()

+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
            Else
                Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                BtnGuardar.Enabled = False
@@ -1620,6 +1630,16 @@ Partial Class RH_Personal
        ObjPersonal.Dispose()
    End Sub

+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+        UpCuentaConceptos.Update()
+    End Sub
+
    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
        'System.Threading.Thread.Sleep(3000)
        Dim ObjPersonal As New ClsRH()
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1716,11 +1716,20 @@ Partial Class Clientes
                End If

                CargaEventoBitacora()
-                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                '    CargaCuentasConceptos()
+                '    divCuentas.Visible = True
+                '    divCuentasContp.Visible = False
+                'Else
+                '    divCuentas.Visible = False
+                '    divCuentasContp.Visible = True
+                'End If
+
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                    CargaCuentasConceptos()
                    divCuentas.Visible = True
                    divCuentasContp.Visible = False
-                Else
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
                    divCuentas.Visible = False
                    divCuentasContp.Visible = True
                End If
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -657,18 +657,32 @@ Partial Class Ventas_ClientesAbonar
        Dim ValFechaDocumento As Boolean = False
        Dim FoliosFechasValFechaDocumento As New StringBuilder

-        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
+        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")

        For Each gvRowVal As GridViewRow In GvCxC.Rows

            If gvRowVal.FCCheckBox("Chk").Checked Then
-                If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
+
+                Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+                Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+
+                Dim AnioFactura As Integer = FechaFactura.Year
+                Dim MesFactura As Integer = FechaFactura.Month
+
+                Dim AnioDocumento As Integer = FechaDocumento.Year
+                Dim MesDocumento As Integer = FechaDocumento.Month
+
+                If AnioFactura > AnioDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    ValFechaDocumento = True
+                ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
                    ValFechaDocumento = True
                End If
-            End If
-        Next

+            End If
+
+        Next


        If ValFechaDocumento Then
@@ -2987,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
@@ -3014,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
@@ -3027,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