AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Luis Quijada
2025-04-16 17:37:00 -07:00
parent a5d97bd965 8692adba40
commit cf44233599
20 changed files with 601 additions and 313 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
App_Code/ClsMovimientos.vb
View File

@@ -789,7 +789,6 @@ Public Class ClsMovimientos
Public Function GetEgresosSinComprobar(FechaInicio As String, FechaFin As String, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer, Optional CveTipoTransaccion As Integer = -1, Optional CveUsuarioSolicito As Integer = -1) As Boolean Public Function GetEgresosSinComprobar(FechaInicio As String, FechaFin As String, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer, Optional CveTipoTransaccion As Integer = -1, Optional CveUsuarioSolicito As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_EgresosSinComprobar") DataAdapter("PA_Banc_EgresosSinComprobar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -820,7 +819,6 @@ Public Class ClsMovimientos
Public Function GetIngresosAcreedorXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetIngresosAcreedorXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresosAcreedorXSaldar") DataAdapter("PA_Banc_IngresosAcreedorXSaldar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -840,7 +838,6 @@ Public Class ClsMovimientos
End Function End Function
Public Function GetPrestamosPersonalXSaldar(CvePersonal As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetPrestamosPersonalXSaldar(CvePersonal As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_PrestamosPersonalXSaldar") DataAdapter("PA_Banc_PrestamosPersonalXSaldar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -861,7 +858,6 @@ Public Class ClsMovimientos
Public Function GetDeudoresrXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetDeudoresrXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DuedorXSaldar") DataAdapter("PA_Banc_DuedorXSaldar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -883,7 +879,6 @@ Public Class ClsMovimientos
Public Function GetIngresosPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean Public Function GetIngresosPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresosPorComprobar") DataAdapter("PA_Banc_IngresosPorComprobar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -909,7 +904,6 @@ Public Class ClsMovimientos
Public Function GetIngresosAnticiposPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean Public Function GetIngresosAnticiposPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresosAnticiposSinComprobar") DataAdapter("PA_Banc_IngresosAnticiposSinComprobar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -935,7 +929,6 @@ Public Class ClsMovimientos
Public Function GetMovimientosIE(Opcion As Integer, CveFiltro As Integer, CveCuentaBancaria As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean Public Function GetMovimientosIE(Opcion As Integer, CveFiltro As Integer, CveCuentaBancaria As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_MovimientosIE") DataAdapter("PA_Banc_MovimientosIE")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -962,7 +955,6 @@ Public Class ClsMovimientos
Public Function GetEgresosSinComprobarPersonal(CveEmpresa As Integer) As Boolean Public Function GetEgresosSinComprobarPersonal(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_EgresosSinComprobarPersonal") DataAdapter("PA_Banc_EgresosSinComprobarPersonal")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -982,7 +974,6 @@ Public Class ClsMovimientos
Public Function GetChequesFYE(CveEmpresa As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Public Function GetChequesFYE(CveEmpresa As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ReporteChequesFYEGet") DataAdapter("PA_Banc_ReporteChequesFYEGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1004,7 +995,6 @@ Public Class ClsMovimientos
Public Function GetEgresosSinComprobarPersonalDetalle(CvePersonal As Integer, CveEmpresa As Integer) As Boolean Public Function GetEgresosSinComprobarPersonalDetalle(CvePersonal As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_EgresosSinComprobarPersonalDetalle") DataAdapter("PA_Banc_EgresosSinComprobarPersonalDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1025,8 +1015,7 @@ Public Class ClsMovimientos
Public Function GetDeudoresSaldos(CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetDeudoresSaldos(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DeudoresSaldosGet")
DataAdapter("PA_Banc_DeudoresSaldos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1045,8 +1034,7 @@ Public Class ClsMovimientos
Public Function GetDeudoresComisionesSaldos(CveEmpresa As Integer) As Boolean Public Function GetDeudoresComisionesSaldos(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DeudoresComisionesSaldosGet")
DataAdapter("PA_Banc_DeudoresComisionesSaldos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -1064,8 +1052,7 @@ Public Class ClsMovimientos
Public Function GetDeudoresComisionesSaldosDetalle(CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetDeudoresComisionesSaldosDetalle(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DeudoresComisionesSaldosDetalleGet")
DataAdapter("PA_Banc_DeudoresComisionesSaldosDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1085,7 +1072,6 @@ Public Class ClsMovimientos
Public Function GetDeudoresSaldos2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetDeudoresSaldos2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DeudoresSaldos2") DataAdapter("PA_Banc_DeudoresSaldos2")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1106,7 +1092,6 @@ Public Class ClsMovimientos
Public Function GetSaldosDeudorAcreedorAnticipos(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean Public Function GetSaldosDeudorAcreedorAnticipos(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_SaldosDAP") DataAdapter("PA_Banc_SaldosDAP")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1136,8 +1121,7 @@ Public Class ClsMovimientos
Public Function GetDeudoresSaldosDetalle(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetDeudoresSaldosDetalle(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DeudoresSaldosDetalleGet")
DataAdapter("PA_Banc_DeudoresSaldosDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1158,7 +1142,6 @@ Public Class ClsMovimientos
Public Function GetIngresosSaldos(CveCliente As Integer, CveEmpresa As Integer) As Boolean Public Function GetIngresosSaldos(CveCliente As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresosSaldos") DataAdapter("PA_Banc_IngresosSaldos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1179,7 +1162,6 @@ Public Class ClsMovimientos
Public Function GetOtrosIngresos(Opcion As Integer, CveCliente As Integer, CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetOtrosIngresos(Opcion As Integer, CveCliente As Integer, CveProveedor As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_OtrosIngresos") DataAdapter("PA_Banc_OtrosIngresos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1202,7 +1184,6 @@ Public Class ClsMovimientos
Public Function GetIngresosSaldosDetalle(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetIngresosSaldosDetalle(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresosSaldosDetalle") DataAdapter("PA_Banc_IngresosSaldosDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1224,7 +1205,6 @@ Public Class ClsMovimientos
Public Function GetDocumentosxPagarDetalle(CveCliente As Integer, CveMoneda As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean Public Function GetDocumentosxPagarDetalle(CveCliente As Integer, CveMoneda As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_DocumentosxPagarSaldosDetalle") DataAdapter("PA_Banc_DocumentosxPagarSaldosDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1247,7 +1227,6 @@ Public Class ClsMovimientos
Public Function GetCajaChicaDetalle(CveCajaChica As Integer, CveEmpresa As Integer) As Boolean Public Function GetCajaChicaDetalle(CveCajaChica As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_CajaChicaDetalle") DataAdapter("PA_Banc_CajaChicaDetalle")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1268,7 +1247,6 @@ Public Class ClsMovimientos
Public Function UpdateReembolsoComprobante(CveComprobacion As Integer, Comprobante As String) As Boolean Public Function UpdateReembolsoComprobante(CveComprobacion As Integer, Comprobante As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ReembolosoComprobanteUpdate") DataAdapter("PA_Comp_ReembolosoComprobanteUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1290,7 +1268,6 @@ Public Class ClsMovimientos
Public Function GetAcreedoresSaldosDetalles(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetAcreedoresSaldosDetalles(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_AcreedoresSaldosDetalles") DataAdapter("PA_Banc_AcreedoresSaldosDetalles")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1312,7 +1289,6 @@ Public Class ClsMovimientos
Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_AcreedoresSaldos") DataAdapter("PA_Banc_AcreedoresSaldos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1414,7 +1390,6 @@ Public Class ClsMovimientos
Optional ConComprobacion As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean Optional ConComprobacion As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_CxPProgramar") DataAdapter("PA_Comp_CxPProgramar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1457,7 +1432,8 @@ Public Class ClsMovimientos
Return Retorno Return Retorno
End Function End Function
Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, Optional OpcionSaldo As Integer = 1) As Boolean Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha,
Optional OpcionSaldo As Integer = 1, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CxPPersonalCajaChica") DataAdapter("PA_CxPPersonalCajaChica")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1468,6 +1444,7 @@ Public Class ClsMovimientos
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos .Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos
.Add("@CveSubProyecto", SqlDbType.Int).Value = OpcionSaldo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
App_Code/ClsPaginas.vb
View File

@@ -6225,6 +6225,7 @@ Public Class ClsPaginas
Dim ObjInv As New ClsGenerales Dim ObjInv As New ClsGenerales
Dim TelDestino As String = "" Dim TelDestino As String = ""
Dim NombreUsuario As String = "" 'Persona que timbro Dim NombreUsuario As String = "" 'Persona que timbro
Dim LugarOrigen As String = ""
If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
@@ -6235,6 +6236,7 @@ Public Class ClsPaginas
TipoDocto = Dr("TipoDocto").ToString TipoDocto = Dr("TipoDocto").ToString
TelDestino = Dr("TelDestino").ToString TelDestino = Dr("TelDestino").ToString
NombreUsuario = Dr("NombreUsuario").ToString NombreUsuario = Dr("NombreUsuario").ToString
LugarOrigen = Dr("LugarOrigen").ToString
If UsuarioActual.CveEmpresa = 13 Then If UsuarioActual.CveEmpresa = 13 Then
PermisoSCTR1 = Dr("PermisoSCTR1").ToString PermisoSCTR1 = Dr("PermisoSCTR1").ToString
@@ -6632,6 +6634,8 @@ Public Class ClsPaginas
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}")) params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
params.Add(New ReportParameter("SerieFolio", SerieFolio)) params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("NombreUsuario", NombreUsuario)) params.Add(New ReportParameter("NombreUsuario", NombreUsuario))
params.Add(New ReportParameter("LugarOrigen", LugarOrigen))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion)) params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
'CLIENTE 'CLIENTE

7
App_Code/ClsVentas.vb
View File

@@ -3,9 +3,7 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Runtime.CompilerServices
Imports Extensiones Imports Extensiones
Imports Profact.TimbraCFDI40
Public Class ClsVentas Public Class ClsVentas
Implements IDisposable Implements IDisposable
@@ -7915,11 +7913,6 @@ Public Class ClsVentas
#Region "IDisposable Support" #Region "IDisposable Support"

4
App_Code/Timbrado.vb
View File

@@ -964,9 +964,9 @@ Public Class Timbrado
If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
'validación especial. 'validación especial.
If Ventas.TipoDocto.Contiene("Ing", "Dev") Then If Ventas.TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(153) = "" Then ' funcionalidad para no filtrar por códigos 01010101
Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144)) Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506")
Select c.ClaveProdServ, c.Descripcion) Select c.ClaveProdServ, c.Descripcion)
Dim Str As New StringBuilder Dim Str As New StringBuilder
Str.Append("Los siguientes productos tienen especificado un código no permitido por el SAT: <br/>") Str.Append("Los siguientes productos tienen especificado un código no permitido por el SAT: <br/>")

6
Bancos/DepositosCaja.aspx
View File

@@ -318,14 +318,14 @@
</div> </div>
</div> </div>
<div class="col-md-1" id="DivIVA"> <div class="col-md-1" id="DivIVA" runat="server">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox> <asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
<label for="<%= TxtIVA.ClientID.ToString()%>">IVA:</label> <label for="<%= TxtIVA.ClientID.ToString()%>">IVA:</label>
</div> </div>
</div> </div>
<div class="col-md-1" id="dd2" style="margin-right: 100px;"> <div class="col-md-1" style="margin-right: 100px;" id="divInterClasif" runat="server">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class=" form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion"> <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class=" form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
@@ -336,7 +336,7 @@
</div> </div>
<div class="col-md-2" id="divSubProyectoIntermediario"> <div class="col-md-2" id="divInterSubProyecto" runat="server">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me"> <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
</asp:DropDownList> </asp:DropDownList>

88
Bancos/DepositosCaja.aspx.vb
View File

@@ -15,11 +15,22 @@ Partial Class Bancos_DepositosCaja
Set(value As Integer) Set(value As Integer)
ViewState("FacturasCheckadas") = value ViewState("FacturasCheckadas") = value
End Set End Set
End Property
Private Property IntermediarioPendiente As Boolean
Get
Return ViewState("IntermediarioPendiente").ToString.ToBool
End Get
Set(value As Boolean)
ViewState("IntermediarioPendiente") = value
End Set
End Property End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
FacturasCheckadas = 0 FacturasCheckadas = 0
IntermediarioPendiente = False
TxtFecha.Text = NowADS().ToShortDateString TxtFecha.Text = NowADS().ToShortDateString
txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString txtFechaF.Text = NowADS().ToShortDateString
@@ -45,6 +56,13 @@ Partial Class Bancos_DepositosCaja
'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") 'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" 'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
If UsuarioActual.CveEmpresa = 145 Then
IntermediarioPendiente = True
divInterClasif.Visible = False
divInterSubProyecto.Visible = False
DivIVA.Visible = False
End If
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
@@ -307,35 +325,7 @@ Partial Class Bancos_DepositosCaja
NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, $"Depósito Bancario - {DdlTipoDeposito.SelectedItem.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1) NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, $"Depósito Bancario - {DdlTipoDeposito.SelectedItem.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)
Dim IntermediarioFactura As Boolean = False
If UsuarioActual.CveEmpresa = 145 Then IntermediarioFactura = True
If ChkIntermediario.Checked Then
CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
OcurrioError = True
End If
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
OcurrioError = True
End If
End If
If Not IntermediarioFactura Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
OcurrioError = True
End If
End If
If IVA <> 0 Then
If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
OcurrioError = True
End If
End If
End If
Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero
@@ -419,6 +409,38 @@ Partial Class Bancos_DepositosCaja
OcurrioError = True OcurrioError = True
End If End If
If Not OcurrioError AndAlso ChkIntermediario.Checked Then
CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
OcurrioError = True
End If
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
OcurrioError = True
End If
End If
If Not IntermediarioPendiente Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
OcurrioError = True
End If
Else 'se manda el saldo como deudor
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 43, "Comisión Intermediario", "Comisión Intermediario", CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=DdlProveedorIntermediario.SelectedValue.ToEntero, CveIE:=CveIEOrigen) Then
OcurrioError = True
End If
End If
If IVA <> 0 Then
If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
OcurrioError = True
End If
End If
End If
If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, CuentaRetorno, CuentaRetorno * TipoCambio, 325, $"Depósito Bancario - CAJA - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveSubProyecto:=CveSubProyecto) Then If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, CuentaRetorno, CuentaRetorno * TipoCambio, 325, $"Depósito Bancario - CAJA - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveSubProyecto:=CveSubProyecto) Then
OcurrioError = True OcurrioError = True
@@ -436,11 +458,11 @@ Partial Class Bancos_DepositosCaja
Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
'si es el primero, se descuenta la "comisión" ''si es el primero, se descuenta la "comisión"
If i = 0 AndAlso IntermediarioFactura Then 'If i = 0 AndAlso IntermediarioPendiente Then
Importe = Importe - ImporteInter ' Importe = Importe - ImporteInter
i += 1 ' i += 1
End If 'End If
'Datos de las Prepolizas A Cancelar 'Datos de las Prepolizas A Cancelar
Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero

2
Bancos/IE.aspx.vb
View File

@@ -2314,7 +2314,7 @@ Partial Class Bancos_IE
'CANCELA NC 'CANCELA NC
ImporteAplicar = ImporteAplicar - Impo ImporteAplicar = ImporteAplicar - Impo
ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), -(ImporteAplicarMN), 12, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), -(ImporteAplicarMN), 91, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveVentaAmortizacion:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
Exit Select Exit Select
End If End If

471
Compras/Compras.aspx.vb
View File

@@ -9373,7 +9373,7 @@ Partial Class Compras_Compras
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Not ErrorAC Then If Retorno AndAlso Not ErrorAC Then
Dim Cont As Integer = 0 Dim Cont As Integer = 0
Dim indiceTR As Integer = 0 Dim indiceTR As Integer = 0
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
@@ -9501,6 +9501,11 @@ Partial Class Compras_Compras
End If End If
'Retorno = True 'Retorno = True
'Alert("La Compra se actualizó correctamente.") 'Alert("La Compra se actualizó correctamente.")
If Not ActualizarPrePolizaValidacion(ObjContabilidad, ObjCompra) Then
Retorno = False
End If
Else Else
If IdPoliza > 0 Then If IdPoliza > 0 Then
If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
@@ -9513,7 +9518,7 @@ Partial Class Compras_Compras
End If End If
End If End If
If (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then If Retorno AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then
'NOTA. si hay un cambio en el reembolso, puede tener estas consideraciones. 'NOTA. si hay un cambio en el reembolso, puede tener estas consideraciones.
'1. no tenía comprobación y se ocupa relacionar, se deberá validar que no tenga pagos contabilizados '1. no tenía comprobación y se ocupa relacionar, se deberá validar que no tenga pagos contabilizados
'2. se está cambiando de comprobación '2. se está cambiando de comprobación
@@ -9911,6 +9916,7 @@ Partial Class Compras_Compras
(row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
(row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
(row1("Obs").ToString <> row2("Obs").ToString) Or (row1("Obs").ToString <> row2("Obs").ToString) Or
(row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
(DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
Return False Return False
End If End If
@@ -9936,7 +9942,7 @@ Partial Class Compras_Compras
End Function End Function
Private Function ActualizarPrePoliza(ObjConta As ClsContabilidad, ObjCompra As ClsCompras) As Boolean Private Function ActualizarPrePoliza(ByRef ObjConta As ClsContabilidad, ByRef ObjCompra As ClsCompras) As Boolean
Dim Retorno As Boolean = True, ErrorPrepoliza As Boolean = False Dim Retorno As Boolean = True, ErrorPrepoliza As Boolean = False
Dim CvePlantillaPrePoliza As Integer Dim CvePlantillaPrePoliza As Integer
@@ -10047,175 +10053,224 @@ Partial Class Compras_Compras
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO
If CveCompra > 0 And CveCompraFactura = 0 Then
'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 14, CveCompra, 1) Then ErrorPrepoliza = True
If DdlTipoCompra.SelectedValue = "10" Then If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 5, CveCompra, 1) Then ErrorPrepoliza = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, importeMN, 95, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 311, CveCompra, 1) Then ErrorPrepoliza = True
ErrorPrepoliza = True If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 305, CveCompra, 1) Then ErrorPrepoliza = True
End If If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 306, CveCompra, 1) Then ErrorPrepoliza = True
End If End If
If Not ErrorPrepoliza Then
If DdlTipoCompra.SelectedValue = "10" Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, importeMN, 95, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
ErrorPrepoliza = True
End If
End If
'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
Dim CveConceptoContableAlmacen As Integer = 0
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero
If CveConceptoContableAlmacen = 0 AndAlso tUsaInventarios Then 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then Dim CveConceptoContableAlmacen As Integer = 0
If (CveImportacion > 0 Or CveFlete > 0) Then If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
CveConceptoContableAlmacen = CveConceptoContableAlmacen CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero
If CveConceptoContableAlmacen = 0 AndAlso tUsaInventarios Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
If (CveImportacion > 0 Or CveFlete > 0) Then
CveConceptoContableAlmacen = CveConceptoContableAlmacen
Else
CveConceptoContableAlmacen = 205
End If
If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
CveConceptoContableAlmacen = 205
End If
Else Else
CveConceptoContableAlmacen = 205 CveConceptoContableAlmacen = 225
End If End If
If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
CveConceptoContableAlmacen = 205
End If
Else
CveConceptoContableAlmacen = 225
End If End If
End If End If
End If
'AF 'AF
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2") DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2")
If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then
For Each Row2 As DataRow In DT.Rows
importeMovimiento = Row2("Total").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If importeMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, importeMovimiento, 49, Row2("CodAF").ToString, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
ErrorPrepoliza = True
End If
End If
Next
End If
'LIMPIA
importeMovimiento = 0
'COSTO ALMACEN
Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
If tUsaInventarios And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
DT.AcceptChanges()
DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
If (DT.Rows.Count > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
For Each Row2 As DataRow In DT.Rows For Each Row2 As DataRow In DT.Rows
importeMovimiento = Row2("Total").ToString.ToDecimal
importeMovimiento = TmpDT.SUM("Total", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
Dim SeContabiliza As Boolean = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, importeMovimiento, 49, Row2("CodAF").ToString, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
If DdlTipoCompra.SelectedValue = "10" Then
SeContabiliza = False
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
Next Next
End If End If
End If
'LIMPIA 'LIMPIA
importeMovimiento = 0 importeMovimiento = 0
'COSTO ALMACEN
Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
If tUsaInventarios And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] DT.AcceptChanges()
If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso tUsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And CveConceptoContableAlmacen.Contiene(176, 205) Then DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If (DT.Rows.Count > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
importeMN = importeMovimiento * tipoCambioActual * Multiplicador For Each Row2 As DataRow In DT.Rows
If importeMovimiento <> 0 Then importeMovimiento = TmpDT.SUM("Total", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableAlmacen, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
ErrorPrepoliza = True If importeMovimiento <> 0 Then
Dim SeContabiliza As Boolean = True
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
If DdlTipoCompra.SelectedValue = "10" Then
SeContabiliza = False
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
End If
Next
End If End If
End If End If
End If
'NC CON PRODUCTOS - CUENTA PUENTE 'LIMPIA
importeMovimiento = 0
If tUsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("Ant") And CveConceptoContableAlmacen.Contiene(225) Then 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso tUsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And CveConceptoContableAlmacen.Contiene(176, 205) Then
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
If importeMovimiento <> 0 Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableAlmacen, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
ErrorPrepoliza = True
End If
End If
End If
'GASTO
DT = TmpDT.Copy
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
If DdlTipoCompra.SelectedValue <> "10" Or DdlTipoCompra.SelectedValue = "13" Then
For Each Dr As DataRow In DT.Rows
If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
Dr("CveAlmacen") = 0
End If
Dr.AcceptChanges()
Next
End If
DT.AcceptChanges()
DtAlmacenes.Dispose()
If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then
'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
If tUsaInventarios And CveConceptoContableAlmacen > 0 Then
DT = DT.FiltraParametros("CveTipoPS <> 2")
End If
End If
Dim DTDistinct As DataTable = DT.Copy
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
Else
'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
' DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
'Else
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
'End If
End If
If DTDistinct.Rows.Count > 0 Then
For Each Row2 As DataRow In DTDistinct.Rows
'DETERMINA IMPORTE
'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
' importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
'Else
importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
'End If
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
End If
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
'AGREGA MOVIMIENTO If importeMovimiento <> 0 Then
If importeMovimiento <> 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 6, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableAlmacen, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
Next End If
'NC CON PRODUCTOS - CUENTA PUENTE
If tUsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("Ant") And CveConceptoContableAlmacen.Contiene(225) Then
importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If importeMovimiento <> 0 Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableAlmacen, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento)) Then
ErrorPrepoliza = True
End If
End If
End If
'GASTO
DT = TmpDT.Copy
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
If DdlTipoCompra.SelectedValue <> "10" Or DdlTipoCompra.SelectedValue = "13" Then
For Each Dr As DataRow In DT.Rows
If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
Dr("CveAlmacen") = 0
End If
Dr.AcceptChanges()
Next
End If
DT.AcceptChanges()
DtAlmacenes.Dispose()
If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then
'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
If tUsaInventarios And CveConceptoContableAlmacen > 0 Then
DT = DT.FiltraParametros("CveTipoPS <> 2")
End If
End If
Dim DTDistinct As DataTable = DT.Copy
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
Else
'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
' DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
'Else
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
'End If
End If
If DTDistinct.Rows.Count > 0 Then
For Each Row2 As DataRow In DTDistinct.Rows
'DETERMINA IMPORTE
'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
' importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
'Else
importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
'End If
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
End If
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
'AGREGA MOVIMIENTO
If importeMovimiento <> 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 6, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
ErrorPrepoliza = True
End If
End If
Next
End If
'LIMPIA
importeMovimiento = 0
If CveCompra > 0 And CveCompraFactura = 0 Then
Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
Dim IVAPorcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
Dim CveTipoSaldo As Integer = 1
Select Case DdlTipoComprobante.SelectedValue
Case "Fac"
CveTipoSaldo = 1
Exit Select
Case "NC"
CveTipoSaldo = 15
Exit Select
Case "Ant"
CveTipoSaldo = 11
Exit Select
Case "Dev"
CveTipoSaldo = 15
Exit Select
End Select
Dim ConceptoTipoTotal As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(CveTipoSaldo, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
If Not ErrorPrepoliza AndAlso TxtIVA.Text.ToDecimal > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal, (TxtIVA.Text.ToDecimal * tipoCambioActual * Multiplicador), 14, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveSubProyecto:=CveSubProyecto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=IVAPorcentaje) Then
ErrorPrepoliza = True
End If
End If
If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtTotal.Text.ToDecimal, (TxtTotal.Text.ToDecimal * tipoCambioActual * Multiplicador), ConceptoTipoTotal.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveSubProyecto:=CveSubProyecto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual) Then
ErrorPrepoliza = True
End If
End If
End If End If
'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
'LIMPIA
importeMovimiento = 0
Next Next
End If End If
@@ -10225,9 +10280,91 @@ Partial Class Compras_Compras
Next Next
End If End If
''OIC 2025-04-16 El bloque de validacion se paso a la funcion ActualizarPrePolizaValidacion
'If DtPrePolizas IsNot Nothing Then
' For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows
' If ObjConta.ValidacionesPrePoliza(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), UsuarioActual, Opcion:=4, AutoConta:=False) Then
' If ObjConta.ValorPolizaDescuadre > 0 Then
' ErrorPrepoliza = True
' Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
' GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
' Exit For
' End If
' End If
' Next
'End If
If Not ErrorPrepoliza Then
Retorno = True
Else
Retorno = False
End If
Return Retorno
End Function
Private Function ActualizarPrePolizaValidacion(ByRef ObjConta As ClsContabilidad, ByRef ObjCompra As ClsCompras) As Boolean
Dim Retorno As Boolean = True, ErrorPrepoliza As Boolean = False
Dim CvePlantillaPrePoliza As Integer
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
CvePlantillaPrePoliza = 60
Else
CvePlantillaPrePoliza = 1
End If
If (ArrAnticipos.Count > 0 And CveCompra > 0) Or (ArrAnticipos.Count > 0 And UsuarioActual.Empresa.UsaAC) Then
CvePlantillaPrePoliza = 52
End If
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
CvePlantillaPrePoliza = 60
Else
CvePlantillaPrePoliza = 1
End If
End If
Dim DtPrePolizas As DataTable = Nothing
If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
For Each Row As DataRow In ObjConta.DtResultados.Rows
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
Select Case ConceptoContable
Case 6
Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = ""
Dim tUsaInventarios As Boolean = UsuarioActual.Empresa.UsaInventarios
If (UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122, 145)) Then tUsaInventarios = False
If Not ObjConta.GetPrePolizasDetalleCompra(CveCompra, UsuarioActual.CveEmpresa) Then
ErrorPrepoliza = True
Else
DtPrePolizas = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176,5,305,311)")
If DtPrePolizas.Rows.Count > 0 Then
Dim drr As DataRow = ObjConta.DtResultados.FiltraParametros("CveConceptoContable in(6,68,49,205,176,5,305,311)").FiltroPrimero("")
CveProveedorConcepto = drr("CveProveedor").ToString.ToEntero
CveIE = drr("CveIE").ToString.ToEntero
CveCreditoDetalle = drr("CveCreditoDetalle").ToString.ToEntero
Concepto = drr("Concepto").ToString
End If
End If
End Select
Next
End If
If DtPrePolizas IsNot Nothing Then If DtPrePolizas IsNot Nothing Then
For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows
If ObjConta.ValidacionesPrePoliza(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), UsuarioActual, Opcion:=4, AutoConta:=False) Then If Not ObjConta.ValidacionesPrePoliza(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), UsuarioActual, Opcion:=4, AutoConta:=False) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorPrepoliza = True ErrorPrepoliza = True
Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
@@ -10247,6 +10384,7 @@ Partial Class Compras_Compras
Return Retorno Return Retorno
End Function End Function
Protected Sub ImgActualizarProyecto_Click(sender As Object, e As EventArgs) Handles ImgActualizarProyecto.Click Protected Sub ImgActualizarProyecto_Click(sender As Object, e As EventArgs) Handles ImgActualizarProyecto.Click
'actualizo los proyectos 'actualizo los proyectos
Dim Compra As New ClsCompras Dim Compra As New ClsCompras
@@ -17409,6 +17547,9 @@ Partial Class Compras_Compras
If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then
TxtTotal.Text = Total.ToString.FormatoNumero() TxtTotal.Text = Total.ToString.FormatoNumero()
If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
TxtIVA.Text = IVA.ToString.FormatoNumero()
End If
End If End If
Else Else
@@ -18023,24 +18164,43 @@ Partial Class Compras_Compras
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
ViewState("IVAPS") = PS("IVA").ToString ViewState("IVAPS") = PS("IVA").ToString
If ViewState("IVAPS").ToString.ToEntero() = -1 Then If ViewState("IVAPS").ToString.ToEntero() = -1 Or (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0) Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0)
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlIVA.Enabled = True DdlIVA.Enabled = True
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble If (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
Case 0 If PS("IVA").ToString.ToEntero = -1 Then
DdlIVA.SelectedValue = "1" ViewState("IVAPS") = 0.16
Case 0.16 DdlIVA.SelectedValue = "1.16"
DdlIVA.SelectedValue = "1.16" Else
Case 0.08 Select Case ViewState("IVAPS").ToString().ToDouble
DdlIVA.SelectedValue = "1.08" Case 0
End Select DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
Else
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble
Case 0
DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
End If End If
Else Else
'DdlIVA.SelectedValue = "1" 'DdlIVA.SelectedValue = "1"
' DdlIVA.Enabled = False ' DdlIVA.Enabled = False
@@ -18684,12 +18844,13 @@ Partial Class Compras_Compras
If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
DrPS("IVA") = 0 DrPS("IVA") = 0
DrPS("IVAPorcentaje") = 0 DrPS("IVAPorcentaje") = 0
ElseIf CveCompra > 0 And CveCompraFactura = 0 Then
DrPS("IVA") = (IVA * Total).RoundSQL
DrPS("IVAPorcentaje") = IVA
Else Else
If ActualizarIva Then If ActualizarIva Then
DrPS("IVA") = (IVA * Total).RoundSQL DrPS("IVA") = (IVA * Total).RoundSQL
End If End If
DrPS("IVAPorcentaje") = IVA DrPS("IVAPorcentaje") = IVA
End If End If
@@ -19813,6 +19974,10 @@ Partial Class Compras_Compras
Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL) Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
Dim Estatus As Boolean = ActualizarPrePoliza(ObjContabilidad, ObjCompra) Dim Estatus As Boolean = ActualizarPrePoliza(ObjContabilidad, ObjCompra)
If Estatus Then
Estatus = ActualizarPrePolizaValidacion(ObjContabilidad, ObjCompra)
End If
If Estatus Then If Estatus Then
ObjCompra.Commit() ObjCompra.Commit()

19
Compras/RepRembolsoComprobaciones.aspx
View File

@@ -26,16 +26,11 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkExportar" runat="server"> <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Exportar Excel </asp:LinkButton>
<i class="fa fa-ad-excel"></i> Exportar Excel
</asp:LinkButton>
</li> </li>
<li runat="server" id="LiImprimir" visible="true"> <li runat="server" id="LiImprimir" visible="true">
<asp:LinkButton ID="LnkImprimir" runat="server" Visible="false"> <asp:LinkButton ID="LnkImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir Reembolso</asp:LinkButton>
<i class="fa fa-print"></i> Imprimir Reembolso
</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink ID="HLAgregarComprobante" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivArchivo" runat="server"><i class='fa fa-file-o'></i> Cargar Comprobante</asp:HyperLink> <asp:HyperLink ID="HLAgregarComprobante" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivArchivo" runat="server"><i class='fa fa-file-o'></i> Cargar Comprobante</asp:HyperLink>
</li> </li>
@@ -123,6 +118,13 @@
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label class="col-md-1" style="margin-top: 10px; margin-left: 5px;">
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
</label>
<div class="col-md-2" style="margin-top: 10px;">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" >
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -188,7 +190,8 @@
</div> </div>
<asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza"> <asp:GridView ID="GvCxP" GridLines="None" CssClass="ScrollAD table table-smallpadding Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes"
DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,CvePrePoliza,Gpo">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Compra</HeaderTemplate> <HeaderTemplate>Compra</HeaderTemplate>

20
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -87,7 +87,9 @@ Partial Class Compras_RepRembolsoComprobaciones
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlPersonal.DataBind() DdlPersonal.DataBind()
txtFechaI.Text = NowADS.AddYears(-1).ToShortDateString txtFechaI.Text = NowADS.AddMonths(-3).ToShortDateString
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Todos")
End If End If
End Sub End Sub
@@ -133,8 +135,17 @@ Partial Class Compras_RepRembolsoComprobaciones
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.BackColor = Drawing.Color.LightGray 'If e.Row.RowIndex = 0 Then
' e.Row.BackColor = Drawing.Color.LightGray
'End If
If e.Row.DataKey("Gpo").Trim.Length = 0 Then
e.Row.CssClass = "Totales"
End If
If e.Row.DataKey("Gpo").Trim.Length > 0 AndAlso e.Row.DataKey("CveCompra").ToEntero = 0 Then
e.Row.CssClass = "SubTotales"
End If End If
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
@@ -236,7 +247,8 @@ Partial Class Compras_RepRembolsoComprobaciones
If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2 If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1) ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1,
CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero)
DtDatos = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados
GvCxP.DataSource = DtDatos GvCxP.DataSource = DtDatos

2
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1561,7 +1561,7 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlProveedoresE.Items.Insert(0, New ListItem(" - ", "-1")) DdlProveedoresE.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub End Sub
Private Sub CargaComprasE(CveProveedor As Integer, Optional tCveCompra As Integer = -1) Private Sub CargaComprasE(CveProveedor As Integer, Optional tCveCompra As Integer = -1)
If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 6, 17, 305, 308, 310, 311, 312) Then
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
DdlComprasE.ClearSelection() DdlComprasE.ClearSelection()

59
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -6128,6 +6128,18 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!LugarOrigen.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
@@ -6144,7 +6156,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>8.52539cm</Width> <Width>8.52539cm</Width>
<ZIndex>35</ZIndex> <ZIndex>35</ZIndex>
<Style> <Style>
@@ -6177,6 +6189,22 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!LugarOrigen.Value</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
<Color>#000000</Color>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
@@ -6193,7 +6221,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>9.88366cm</Left> <Left>9.88366cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>4.64948cm</Width> <Width>4.64948cm</Width>
<ZIndex>36</ZIndex> <ZIndex>36</ZIndex>
<Style> <Style>
@@ -6230,7 +6258,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>20.62438cm</Top> <Top>20.62438cm</Top>
<Left>14.52964cm</Left> <Left>14.52964cm</Left>
<Height>0.92071cm</Height> <Height>1.25232cm</Height>
<Width>4.65203cm</Width> <Width>4.65203cm</Width>
<ZIndex>37</ZIndex> <ZIndex>37</ZIndex>
<Style> <Style>
@@ -6274,7 +6302,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>8.52539cm</Width> <Width>8.52539cm</Width>
@@ -6311,7 +6339,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>9.88366cm</Left> <Left>9.88366cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>4.64948cm</Width> <Width>4.64948cm</Width>
@@ -6348,7 +6376,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox57</rd:DefaultName> <rd:DefaultName>Textbox57</rd:DefaultName>
<Top>21.54509cm</Top> <Top>21.86259cm</Top>
<Left>14.52964cm</Left> <Left>14.52964cm</Left>
<Height>1.08106cm</Height> <Height>1.08106cm</Height>
<Width>4.65203cm</Width> <Width>4.65203cm</Width>
@@ -6365,7 +6393,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line2"> <Line Name="Line2">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>1.5cm</Left> <Left>1.5cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6377,7 +6405,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Line> </Line>
<Line Name="Line3"> <Line Name="Line3">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>9.94339cm</Left> <Left>9.94339cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6389,7 +6417,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Style> </Style>
</Line> </Line>
<Line Name="Line4"> <Line Name="Line4">
<Top>22.49898cm</Top> <Top>22.81648cm</Top>
<Left>14.71743cm</Left> <Left>14.71743cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>3.90544cm</Width> <Width>3.90544cm</Width>
@@ -6418,7 +6446,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox120</rd:DefaultName> <rd:DefaultName>Textbox120</rd:DefaultName>
<Top>22.67201cm</Top> <Top>22.98951cm</Top>
<Left>1.36431cm</Left> <Left>1.36431cm</Left>
<Height>0.45969cm</Height> <Height>0.45969cm</Height>
<Width>10.17692cm</Width> <Width>10.17692cm</Width>
@@ -6511,7 +6539,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>23.161cm</Top> <Top>23.161cm</Top>
<Left>0.03979cm</Left> <Left>0.03979cm</Left>
<Height>23.1317cm</Height> <Height>23.4492cm</Height>
<Width>19.53633cm</Width> <Width>19.53633cm</Width>
<ZIndex>29</ZIndex> <ZIndex>29</ZIndex>
<Visibility> <Visibility>
@@ -7562,7 +7590,8 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Rectangle> </Rectangle>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>47.03985cm</Top> <Top>46.78659cm</Top>
<Left>0.04317cm</Left>
<Height>5.54925cm</Height> <Height>5.54925cm</Height>
<Width>19.53633cm</Width> <Width>19.53633cm</Width>
<ZIndex>31</ZIndex> <ZIndex>31</ZIndex>
@@ -8121,6 +8150,12 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="LugarOrigen">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Code>Function PageNumber() As String <Code>Function PageNumber() As String
Return Me.Report.Globals!OverallPageNumber Return Me.Report.Globals!OverallPageNumber

84
Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
View File

@@ -17,6 +17,14 @@
<CommandText>/* Local Query */</CommandText> <CommandText>/* Local Query */</CommandText>
</Query> </Query>
<Fields> <Fields>
<Field Name="Gpo">
<DataField>Gpo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveCompra">
<DataField>CveCompra</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Proveedor"> <Field Name="Proveedor">
<DataField>Proveedor</DataField> <DataField>Proveedor</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
@@ -77,10 +85,10 @@
<Width>1.79565cm</Width> <Width>1.79565cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.02289cm</Width> <Width>2.90517cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.54059cm</Width> <Width>1.65831cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.29435cm</Width> <Width>2.29435cm</Width>
@@ -440,6 +448,10 @@
<Value>=Fields!SerieFolio.Value</Value> <Value>=Fields!SerieFolio.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -453,7 +465,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -474,6 +489,10 @@
<Value>=Fields!Proveedor.Value</Value> <Value>=Fields!Proveedor.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -487,7 +506,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -509,6 +531,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>dd/MM/yyyy</Format> <Format>dd/MM/yyyy</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -522,7 +548,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -544,6 +573,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -557,7 +590,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -579,6 +615,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.00;(#,0.00)</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -592,7 +632,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -614,6 +657,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -627,7 +674,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -649,6 +699,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -662,7 +716,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -684,6 +741,10 @@
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Color>=IIF(LEN(Fields!Gpo.Value) = 0
, "#235285"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#23527c", "Black")
)</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -697,7 +758,10 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=IIF(Fields!SerieFolio.Value = "TOTAL", "#67809F", "No color")</BackgroundColor> <BackgroundColor>=IIF(LEN(Fields!Gpo.Value) = 0
, "#9cacc1"
, IIF(LEN(Fields!Gpo.Value) &gt; 0 AndAlso Fields!CveCompra.Value = 0, "#cccccc", "No color")
)</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>

8
Inventarios/EntradasSalidas.aspx
View File

@@ -432,6 +432,14 @@
<asp:HyperLink ID="HplOS" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HplOS" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink>
</div> </div>
</div> </div>
<div class="row" runat="server" id="divOP" visible="false" style="margin-top: 5px;">
<label class="col-md-4 truncate">
OP:
</label>
<div class="col-md-8">
<asp:HyperLink ID="HplOP" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink>
</div>
</div>
</div> </div>
</div> </div>

62
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -921,6 +921,11 @@ Partial Class Inventarios_EntradasSalidas
HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}" HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}"
End If End If
If DtMov.Rows(0)("CveOP").ToString.ToEntero() > 0 Then
divOP.Visible = True
HplOP.Text = "1" 'DtMov.Rows(0)("OSFolio").ToString
HplOP.NavigateUrl = $"/OP/OP.aspx?CveOP={DtMov.Rows(0)("CveOP")}"
End If
If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then
Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen))
@@ -4069,49 +4074,56 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1") Then If ObjInventario.Modulo.Contiene("API-Traspaso-PT-Pallet") Then
Contabilizable = False Contabilizable = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If ObjInventario.Modulo.Contiene("Consig") Then If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1", "API-Traspaso-PT-Pallet") Then
Contabilizable = False Contabilizable = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 95, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If ObjInventario.Modulo.Contiene("ASA/G1", "Vta/E4", "ARMPAQ1", "RE/GSC3") Then If ObjInventario.Modulo.Contiene("Consig") Then
Contabilizable = False Contabilizable = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 95, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If DdlConcepto.SelectedValue.Contiene("1", "6", "22", "23", "7", "16", "21", "24", "32") Then If ObjInventario.Modulo.Contiene("ASA/G1", "Vta/E4", "ARMPAQ1", "RE/GSC3") Then
'genero las prepolizas manuales Contabilizable = False
Dim tCveConcepto As Integer = 95 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
Dim CveCuenta As Integer
If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=-1, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If DdlConcepto.SelectedValue.Contiene("1", "6", "22", "23", "7", "16", "21", "24", "32") Then
Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero 'genero las prepolizas manuales
Dim tCveConcepto As Integer = 69 Dim tCveConcepto As Integer = 95
If ObjInventario.CveConcepto = 37 Then Dim CveCuenta As Integer
tCveConcepto = 181 If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=-1, Contabilizable:=Contabilizable) Then
For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, ValorInventario, tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
Exit For End If
Else
Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
Dim tCveConcepto As Integer = 69
If ObjInventario.CveConcepto = 37 Then
tCveConcepto = 181
End If End If
Next For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, ValorInventario, tCveConcepto, Concepto, Concepto, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
ErrorMovInv = True
Exit For
End If
Next
End If
End If End If
End If End If
End If End If

6
Ventas/Clientes.aspx
View File

@@ -1901,9 +1901,9 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="13"></asp:TextBox> <asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEECobranzaTelefono" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label> <label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label>
</div> </div>
</div> </div>

11
Ventas/Clientes.aspx.vb
View File

@@ -1765,8 +1765,6 @@ Partial Class Clientes
If array(4) = "1" Then ChkRevViernes.Checked = True If array(4) = "1" Then ChkRevViernes.Checked = True
If array(5) = "1" Then ChkRevSabado.Checked = True If array(5) = "1" Then ChkRevSabado.Checked = True
End If End If
ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString()) ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString())
'Horario 'Horario
@@ -2578,7 +2576,6 @@ Partial Class Clientes
Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim InformacionCompleta As Boolean = True Dim InformacionCompleta As Boolean = True
@@ -2599,13 +2596,13 @@ Partial Class Clientes
End If End If
Next Next
If tPagare = 0 Then InformacionCompleta = False If tPagare = 0 Then InformacionCompleta = False
If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
End If End If
If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
'SOLO VALIDA EN CLIENTES FRENCUENTE 'SOLO VALIDA EN CLIENTES FRECUENTE
If DdlTipoCliente.SelectedValue = "1" Then If DdlTipoCliente.SelectedValue = "1" Then
If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
@@ -2622,10 +2619,6 @@ Partial Class Clientes
Next Next
If tPagare = 0 Then InformacionCompleta = False If tPagare = 0 Then InformacionCompleta = False
End If End If
'If DivInfoCompleta.Visible Then
' InformacionCompleta = ChkInformacionCompleta.Checked
'End If
End If End If
'CargaSucursal() 'CargaSucursal()

20
Ventas/PVCobranza.aspx
View File

@@ -342,7 +342,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-5">
<div class="portlet light xspadding traspasorow bordered"> <div class="portlet light xspadding traspasorow bordered">
<div class="portlet-title"> <div class="portlet-title">
@@ -371,16 +371,16 @@
DataKeyNames="CveVenta,CveCliente,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza"> DataKeyNames="CveVenta,CveCliente,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago,PlazoCobranza">
<Columns> <Columns>
<%--<asp:BoundField HeaderText="Atención" DataField="AtencionA" />--%> <%--<asp:BoundField HeaderText="Atención" DataField="AtencionA" />--%>
<asp:TemplateField HeaderText="Atención/Cliente" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Atención/Cliente" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="25%">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" ID="LblAtencionA" Font-Italic="true" Text='<%# Eval("AtencionA") %>'></asp:Label><br /> <asp:Label runat="server" ID="LblAtencionA" Font-Italic="true" Text='<%# Eval("AtencionA") %>'></asp:Label><br />
<asp:Label runat="server" ID="Label4" Text='<%# Eval("NombreComercial") %>'></asp:Label> <asp:Label runat="server" ID="Label4" Text='<%# Eval("NombreComercial") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Center" /> <asp:HyperLinkField ItemStyle-Width="20%" HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha/Hora" DataField="Fecha" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField ItemStyle-Width="15%" HeaderText="Fecha/Hora" DataField="Fecha" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField ItemStyle-Width="20%" HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField ItemStyle-Width="20%" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkImprimir" runat="server" AlternateText="Imprimir ticket" <asp:LinkButton ID="LnkImprimir" runat="server" AlternateText="Imprimir ticket"
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
@@ -478,7 +478,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-7">
<asp:Panel runat="server" ID="PnlContado" DefaultButton="BtnPagar" Visible="false"> <asp:Panel runat="server" ID="PnlContado" DefaultButton="BtnPagar" Visible="false">
<div class="row"> <div class="row">
@@ -685,13 +685,13 @@
<label style="font-weight: bold; font-size: medium;">Total:</label> <label style="font-weight: bold; font-size: medium;">Total:</label>
<div class="input-icon"> <div class="input-icon">
<i style="margin: 0px;">$</i> <i style="margin: 0px;">$</i>
<asp:TextBox ID="TxtImporteContado" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="180px" ReadOnly="true" ClientIDMode="Static" Style="text-align: right; font-size: 14px;"></asp:TextBox> <asp:TextBox ID="TxtImporteContado" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100%" ReadOnly="true" ClientIDMode="Static" Style="text-align: right; font-size: 14px;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender3" runat="server" TargetControlID="TxtImporteContado" FilterType="Custom, Numbers" ValidChars=".," /> <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender3" runat="server" TargetControlID="TxtImporteContado" FilterType="Custom, Numbers" ValidChars=".," />
</div> </div>
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<div class="row"> <div class="row">
<div class="col-md-4" style="display: flex; align-items: center;"> <div class="col-md-5" style="display: flex; align-items: center;">
<label id="lblCambio" runat="server" style="font-weight: bold; font-size: medium;">Cambio:</label> <label id="lblCambio" runat="server" style="font-weight: bold; font-size: medium;">Cambio:</label>
<div class="input-icon"> <div class="input-icon">
<i style="margin: 0px;">$</i> <i style="margin: 0px;">$</i>
@@ -700,7 +700,7 @@
<ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," /> <ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
</div> </div>
</div> </div>
<div class="col-md-8" style="display: flex; align-items: center;"> <div class="col-md-7" style="display: flex; align-items: center;">
<label style="font-weight: bold; font-size: medium;">Sob/falt:</label> <label style="font-weight: bold; font-size: medium;">Sob/falt:</label>
&nbsp; &nbsp;
<asp:CheckBox ID="ChkSobFaltante" runat="server" ClientIDMode="Static" /> <asp:CheckBox ID="ChkSobFaltante" runat="server" ClientIDMode="Static" />

2
Ventas/RepVentasResumen.aspx.vb
View File

@@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen
VxC = Nothing VxC = Nothing
End If End If
If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, DdlSubProyecto.SelectedValue.ToEntero, "-1", -1, "-1", "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
Datos = ObjVentas.DtResultados Datos = ObjVentas.DtResultados
GvPxC.DataSource = Datos GvPxC.DataSource = Datos
Else Else

2
asmx/WSSIGApp.asmx
View File

@@ -1745,7 +1745,7 @@ Public Class WSSIGApp
Public Function GetRepRecuperacion(CveEmpresa As Integer, FechaI As String, FechaF As String, Gpo As Integer, CveUsuarioConsulta As Integer, CveSubProyecto As Integer, CveCliente As Integer) As String Public Function GetRepRecuperacion(CveEmpresa As Integer, FechaI As String, FechaF As String, Gpo As Integer, CveUsuarioConsulta As Integer, CveSubProyecto As Integer, CveCliente As Integer) As String
Dim retorno = "[]" Dim retorno = "[]"
Using ObjVentas As New ClsMovimientos Using ObjVentas As New ClsMovimientos
If ObjVentas.GetRepRecuperacion(FechaI.ToDateTime(), FechaF.ToDateTime(), CveCliente, CveSubProyecto, -1, -1, -1, "-1", CveEmpresa, Gpo, -1, CveUsuarioConsulta:=CveUsuarioConsulta) Then If ObjVentas.GetRepRecuperacion(FechaI.ToDateTime(), FechaF.ToDateTime(), MinFecha, MaxFecha, CveCliente, CveSubProyecto, -1, -1, -1, "-1", CveEmpresa, Gpo, -1, CveUsuarioConsulta:=CveUsuarioConsulta) Then
retorno = ObjVentas.DtResultados.ToJson() retorno = ObjVentas.DtResultados.ToJson()
End If End If
End Using End Using