Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -961,6 +961,8 @@ Namespace Extensiones
|
||||
Retorno = ""
|
||||
End If
|
||||
|
||||
Retorno = UCase(Mid(Retorno, 1, 1)) + Mid(Retorno, 2, Len(Retorno))
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
@@ -1386,11 +1386,25 @@ Partial Class Bancos_PopIECompras
|
||||
#End Region
|
||||
|
||||
#Region "G U A R D A R"
|
||||
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)
|
||||
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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()
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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()
|
||||
|
||||
@@ -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">
|
||||
@@ -17,78 +17,78 @@
|
||||
<CommandText>/* Local Query */</CommandText>
|
||||
</Query>
|
||||
<Fields>
|
||||
<Field Name="Id">
|
||||
<DataField>Id</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Fecha">
|
||||
<DataField>Fecha</DataField>
|
||||
<rd:TypeName>System.DateTime</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoPoliza">
|
||||
<DataField>TipoPoliza</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="NombreCuenta">
|
||||
<DataField>NombreCuenta</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="CodigoCuenta">
|
||||
<DataField>CodigoCuenta</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Numero">
|
||||
<DataField>Numero</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Folio">
|
||||
<DataField>Folio</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Referencia">
|
||||
<DataField>Referencia</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Concepto">
|
||||
<DataField>Concepto</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="ConceptoPoliza">
|
||||
<DataField>ConceptoPoliza</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoMovto">
|
||||
<DataField>TipoMovto</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Cargos">
|
||||
<DataField>Cargos</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Abonos">
|
||||
<DataField>Abonos</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="SegNeg">
|
||||
<DataField>SegNeg</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Cargo">
|
||||
<DataField>Cargo</DataField>
|
||||
<rd:TypeName>System.Decimal</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Abono">
|
||||
<DataField>Abono</DataField>
|
||||
<rd:TypeName>System.Decimal</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Codigo">
|
||||
<DataField>Codigo</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="NombreUsuario">
|
||||
<DataField>NombreUsuario</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Id">
|
||||
<DataField>Id</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Fecha">
|
||||
<DataField>Fecha</DataField>
|
||||
<rd:TypeName>System.DateTime</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoPoliza">
|
||||
<DataField>TipoPoliza</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="NombreCuenta">
|
||||
<DataField>NombreCuenta</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="CodigoCuenta">
|
||||
<DataField>CodigoCuenta</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Numero">
|
||||
<DataField>Numero</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Folio">
|
||||
<DataField>Folio</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Referencia">
|
||||
<DataField>Referencia</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Concepto">
|
||||
<DataField>Concepto</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="ConceptoPoliza">
|
||||
<DataField>ConceptoPoliza</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="TipoMovto">
|
||||
<DataField>TipoMovto</DataField>
|
||||
<rd:TypeName>System.Int32</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Cargos">
|
||||
<DataField>Cargos</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Abonos">
|
||||
<DataField>Abonos</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="SegNeg">
|
||||
<DataField>SegNeg</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Cargo">
|
||||
<DataField>Cargo</DataField>
|
||||
<rd:TypeName>System.Decimal</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Abono">
|
||||
<DataField>Abono</DataField>
|
||||
<rd:TypeName>System.Decimal</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="Codigo">
|
||||
<DataField>Codigo</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
<Field Name="NombreUsuario">
|
||||
<DataField>NombreUsuario</DataField>
|
||||
<rd:TypeName>System.String</rd:TypeName>
|
||||
</Field>
|
||||
</Fields>
|
||||
<rd:DataSetInfo>
|
||||
<rd:DataSetName>DataSet1</rd:DataSetName>
|
||||
@@ -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>
|
||||
@@ -1217,7 +1223,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>=Fields!NombreUsuario.Value</Value>
|
||||
<Value>=Fields!NombreUsuario.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>1pt</FontSize>
|
||||
@@ -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>
|
||||
@@ -1685,7 +1695,7 @@
|
||||
</PageBreak>
|
||||
<Variables>
|
||||
<Variable Name="UsuarioRegistro">
|
||||
<Value>=Fields!NombreUsuario.Value</Value>
|
||||
<Value>=Fields!NombreUsuario.Value</Value>
|
||||
</Variable>
|
||||
</Variables>
|
||||
</Group>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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"
|
||||
|
||||
@@ -734,36 +734,50 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<asp:UpdatePanel ID="UPPContable" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-user-following font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Contable:</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
|
||||
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
|
||||
</div>
|
||||
</div>
|
||||
<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 class="portlet-body form">
|
||||
<div class="form-group input-iconright">
|
||||
<label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
|
||||
<asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
|
||||
<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>
|
||||
<asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</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>
|
||||
<span class="caption-subject bold uppercase">Contable:</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
|
||||
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<div class="form-group input-iconright">
|
||||
<label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
|
||||
<asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
|
||||
<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>
|
||||
<asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -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()
|
||||
|
||||
@@ -1716,13 +1716,22 @@ 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
|
||||
divCuentas.Visible = False
|
||||
divCuentasContp.Visible = True
|
||||
divCuentasContp.Visible = False
|
||||
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
divCuentas.Visible = False
|
||||
divCuentasContp.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user