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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-03-08 14:09:53 -07:00
parent 7f79b4882c 36d3e2f1f8
commit 9d65dcfe6a
16 changed files with 338 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -162,7 +162,7 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>'></asp:Literal>
<asp:Label ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>' ToolTip='<%# Eval("CveFolioGarantia") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario">

42
Acumuladores/CatGarantiasMeses.aspx
View File

@@ -90,10 +90,7 @@
<div class="col-md-1 truncate" style="text-align: right!important">Tipo Uso</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoUso" DataTextField="TipoUso" DataValueField="CveTipoUso" CssClass="form-control input-sm select2me" runat="server" Width="200px"></asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -116,8 +113,8 @@
<ContentTemplate>
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaIng"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaInicioVigencia,FechaIng"
EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
data-sort="true"
data-freezerows="1"
@@ -129,31 +126,36 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Uso" ItemStyle-Width="150px">
<asp:TemplateField HeaderText="Tipo Uso" >
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlTiposUso" runat="server" Text='<%# Eval("TipoUso")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Mes" ItemStyle-Width="150px">
<asp:TemplateField HeaderText="Mes" ItemStyle-Width="100px">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Valor" ItemStyle-Width="150px">
<asp:TemplateField HeaderText="Valor" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlValor" runat="server" Text='<%# Eval("Valor", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Inicio Vigencia" ItemStyle-Width="120px">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlIVigencia" runat="server" Text='<%# Eval("FechaInicioVigencia", "{0:d}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
<asp:TemplateField HeaderText="Usuario">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
@@ -215,6 +217,24 @@
<label for="<%= TxtValor.ClientID.ToString()%>">Valor:</label>
<i></i>
</div>
<div class="col-md-2 truncate">
Fecha Inicio:
</div>
<div class="col-md-1" style="min-width: 125px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />
<label for="<%= ChkSeguir.ClientID.ToString()%>">Seguir Registrando:</label>

5
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -126,7 +126,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim ObjAcum As New ClsAcumuladores
If Not Actualizar Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtMes.Text = TxtMes.Text.ToEntero + 1
TxtValor.Text = ""
@@ -147,7 +147,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError)
End If
Else
If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario) Then
If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario) Then
TxtMes.Text = ""
TxtValor.Text = ""
@@ -211,6 +211,7 @@ Partial Class Acumuladores_CatFoliosGarantia
TxtMes.Text = GvRow.DataKey("Mes")
TxtValor.Text = GvRow.DataKey("Valor")
txtFechaI.Text = GvRow.DataKey("FechaInicioVigencia")
CargaCombosModal()
DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero)
DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero)

23
App_Code/ClsAcumuladores.vb
View File

@@ -608,14 +608,14 @@ Public Class ClsAcumuladores
End Try
Return Retorno
End Function
End Function
#End Region
#Region " GARANTÍAS MESES "
Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1) As Boolean
Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1, Optional FechaInicioVigencia As Date = MinFecha) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -625,7 +625,8 @@ Public Class ClsAcumuladores
.Add("@CveGarantiaMes", SqlDbType.Int).Value = CveGarantiaMes
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@Mes", SqlDbType.Int).Value = Mes
End With
@@ -641,7 +642,7 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -653,6 +654,7 @@ Public Class ClsAcumuladores
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@Mes", SqlDbType.Int).Value = Mes
.Add("@Valor", SqlDbType.SmallMoney).Value = Valor
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -670,7 +672,7 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer) As Boolean
Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -682,7 +684,8 @@ Public Class ClsAcumuladores
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
.Add("@Mes", SqlDbType.Int).Value = Mes
.Add("@Valor", SqlDbType.SmallMoney).Value = Valor
.Add("@Valor", SqlDbType.SmallMoney).Value = Valor
.Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With

2
Compras/Compras.aspx.vb
View File

@@ -8111,7 +8111,7 @@ Partial Class Compras_Compras
End If
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
Dim CvePreComprobacion As Integer
If ObjCompras.DtResultados.Rows.Count = 0 Then

344
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5986,189 +5986,211 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Observaciones", Observacion))
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
Dim DtMovimientosPoliza As DataTable = Nothing
If UsuarioActual.CveEmpresa = 48 Then
'Movimientos del IE
If ObjIE.IDPoliza > 0 Then
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
Else
DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
If UsuarioActual.CveEmpresa.Contiene(141) Then
Dim InicialesUsuarioGenero As String = ""
Try
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
If NombreUsuarioRenero.Trim.Length > 0 Then
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
End If
Catch ex As Exception
ObjConta.Dispose()
Else
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
End Try
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = ""
Dr("Cuenta") = ""
Dr("Cargo") = 0
Dr("Abono") = 0
DtMovimientosPoliza.Rows.Add(Dr)
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
End If
Dim DtMovimientosPoliza As DataTable = Nothing
If UsuarioActual.CveEmpresa = 48 Then
'Movimientos del IE
If ObjIE.IDPoliza > 0 Then
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
Else
DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
End If
ObjConta.Dispose()
Else
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = ""
Dr("Cuenta") = ""
Dr("Cargo") = 0
Dr("Abono") = 0
DtMovimientosPoliza.Rows.Add(Dr)
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
If PreP.DtResultados.Rows.Count > 0 Then
For Each drt As DataRow In PreP.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("CuentaNombre")
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
DtMovimientosPoliza.Rows.Add(Dr)
Next
End If
End If
PreP.Dispose()
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
If Archivo.Exists Then
ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
Else
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
End If
ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
Dim FechaExpedicion As Date = Now
Dim Importe As Double
Dim FormatoCheque As String = ""
Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
Dim tIdPoliza As Integer
Dim DtMovimientosPoliza As DataTable = Nothing
Dim RFC As String = ""
Dim Correo As String = ""
Dim CLABE As String = ""
Dim NoSucursal As String = ""
Dim Telefono As String = ""
Dim IVA As Double = 0
Folio = ""
TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
Ruta = UsuarioActual.Empresa.Ruta
PagueseA = ObjIE.PagueseA
Folio = ObjIE.Folio
Importe = ObjIE.Importe
CveTipoTransaccion = ObjIE.CveTipoTransaccion
Banco = ObjIE.Banco
NumCuenta = ObjIE.DepositoCuenta
If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
CLABE = ObjIE.DepositoCLABE
If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
NoSucursal = ObjIE.DepositoSucursal
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
FechaExpedicion = ObjIE.FechaDocumento
Observacion = ObjIE.Observaciones
UsuarioRegistro = ObjIE.UsuarioNombre
SubProyecto = ObjIE.SubProyecto
AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
NotificarA = ObjIE.NotificarA
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
For Each drt As DataRow In PreP.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("CuentaNombre")
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
DtMovimientosPoliza.Rows.Add(Dr)
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
Next
If CveProveedor > 0 Then
Dim Prov As New ClsCompProveedores
If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
If Prov.DtResultados.Rows.Count > 0 Then
RFC = Prov.DtResultados.Rows(0)("RFC").ToString
Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
End If
End If
Prov.Dispose()
End If
If CvePersonal > 0 Then
Dim RH As New ClsRH
If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
If RH.DtResultados.Rows.Count > 0 Then
Correo = RH.DtResultados.Rows(0)("Correo").ToString
Banco = RH.DtResultados.Rows(0)("Banco").ToString
NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
End If
End If
RH.Dispose()
End If
End If
End If
PreP.Dispose()
End If
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
params.Add(New ReportParameter("PagueseA", PagueseA))
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
params.Add(New ReportParameter("Banco", Banco))
params.Add(New ReportParameter("NumCuenta", NumCuenta))
params.Add(New ReportParameter("CLABE", CLABE))
params.Add(New ReportParameter("Concepto", Observacion))
params.Add(New ReportParameter("Factura", ""))
params.Add(New ReportParameter("RFC", RFC))
params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
params.Add(New ReportParameter("NumSucursal", NoSucursal))
params.Add(New ReportParameter("Correo", Correo))
params.Add(New ReportParameter("Telefono", Telefono))
params.Add(New ReportParameter("NotifiqueA", NotificarA))
params.Add(New ReportParameter("Obra", SubProyecto))
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
If Archivo.Exists Then
ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
Else
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
End If
ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
Dim FechaExpedicion As Date = Now
Dim Importe As Double
Dim FormatoCheque As String = ""
Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
Dim tIdPoliza As Integer
Dim DtMovimientosPoliza As DataTable = Nothing
Dim RFC As String = ""
Dim Correo As String = ""
Dim CLABE As String = ""
Dim NoSucursal As String = ""
Dim Telefono As String = ""
Dim IVA As Double = 0
Folio = ""
TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
Ruta = UsuarioActual.Empresa.Ruta
PagueseA = ObjIE.PagueseA
Folio = ObjIE.Folio
Importe = ObjIE.Importe
CveTipoTransaccion = ObjIE.CveTipoTransaccion
Banco = ObjIE.Banco
NumCuenta = ObjIE.DepositoCuenta
If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
CLABE = ObjIE.DepositoCLABE
If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
NoSucursal = ObjIE.DepositoSucursal
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
FechaExpedicion = ObjIE.FechaDocumento
Observacion = ObjIE.Observaciones
UsuarioRegistro = ObjIE.UsuarioNombre
SubProyecto = ObjIE.SubProyecto
AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
NotificarA = ObjIE.NotificarA
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
If CveProveedor > 0 Then
Dim Prov As New ClsCompProveedores
If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
If Prov.DtResultados.Rows.Count > 0 Then
RFC = Prov.DtResultados.Rows(0)("RFC").ToString
Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
End If
End If
Prov.Dispose()
End If
If CvePersonal > 0 Then
Dim RH As New ClsRH
If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
If RH.DtResultados.Rows.Count > 0 Then
Correo = RH.DtResultados.Rows(0)("Correo").ToString
Banco = RH.DtResultados.Rows(0)("Banco").ToString
NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
End If
End If
RH.Dispose()
End If
If UsuarioActual.CveEmpresa = 66 Then
params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
End If
End If
PreP.Dispose()
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
params.Add(New ReportParameter("PagueseA", PagueseA))
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
params.Add(New ReportParameter("Banco", Banco))
params.Add(New ReportParameter("NumCuenta", NumCuenta))
params.Add(New ReportParameter("CLABE", CLABE))
params.Add(New ReportParameter("Concepto", Observacion))
params.Add(New ReportParameter("Factura", ""))
params.Add(New ReportParameter("RFC", RFC))
params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
params.Add(New ReportParameter("NumSucursal", NoSucursal))
params.Add(New ReportParameter("Correo", Correo))
params.Add(New ReportParameter("Telefono", Telefono))
params.Add(New ReportParameter("NotifiqueA", NotificarA))
params.Add(New ReportParameter("Obra", SubProyecto))
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
If Archivo.Exists Then
ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
Else
ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
End If
If UsuarioActual.CveEmpresa = 66 Then
params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
End If
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
If Archivo.Exists Then
ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
Else
ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
End If
ElseIf CveTipoTransaccion.Contiene(6) Then
'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
ElseIf CveTipoTransaccion.Contiene(6) Then
'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim FechaExpedicion As Date = Now
Dim Importe As Double

2
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -586,7 +586,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))

14
Empresas/141/Formatos/CHQ-7451.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
@@ -818,7 +818,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>IAP</Value>
<Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
@@ -829,9 +829,9 @@
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>3.13986cm</Left>
<Left>2.53509cm</Left>
<Height>0.6cm</Height>
<Width>0.85958cm</Width>
<Width>1.46435cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType>

12
Empresas/141/Formatos/CHQ-7452.rdlc
View File

@@ -818,7 +818,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>IAP</Value>
<Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
@@ -829,9 +829,9 @@
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>3.13986cm</Left>
<Left>2.53509cm</Left>
<Height>0.6cm</Height>
<Width>0.85958cm</Width>
<Width>1.46435cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType>

3
General/RepIndicadorResumen.aspx.vb
View File

@@ -41,7 +41,8 @@ Partial Class General_RepIndicadorResumen
End If
If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, TipoDocto:="Fac",
CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC")
End If

2
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -3947,7 +3947,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Next
End If
End If
End If
End If
End If

5
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1383,8 +1383,9 @@ Partial Class Sistemas_UsuarioDetalle
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If UsuarioActual.CveUsuario = 100 Then
Alert("Globals Recargados")
GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then
Alert("Globals Recargados " & UsuarioActual.CveEmpresa)
End If
'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados

5
Sistemas/Usuarios.aspx.vb
View File

@@ -60,7 +60,10 @@ Partial Class Sistemas_Usuarios
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ViewState("Orden") = ""
ViewState("Orden") = ""
ViewState("CveRol") = -1
CargarEmpresa()
CargaDatos()

5
Ventas/PV.aspx
View File

@@ -3115,7 +3115,8 @@
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label>
<ajax:MaskedEditExtender ID="MEEEtiqueta" runat="server" TargetControlID="TxtEtiqueta" Mask="99\/99" MaskType="None" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta (mm/yy):</label>
</div>
</div>
</div>
@@ -3142,7 +3143,7 @@
<div class="col-md-8">
<div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" ClientValidationFunction="ValidarCodigoEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
<asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" Display="None" ClientValidationFunction="ValidarCodigoEnsamble" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
<label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
</div>
</div>

78
Ventas/PV.aspx.vb
View File

@@ -6663,7 +6663,7 @@ Partial Class PV
Dim ObjCliente As New ClsClientes
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
@@ -7126,7 +7126,7 @@ Partial Class PV
Else
'TxtPUFactura.Enabled = True
'TxtPUFactura.Text = ""
DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
' DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
End If
DdlPSAjuste.DataBind()
' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7418,6 +7418,10 @@ Partial Class PV
Alert("No se ha especificado producto de ajuste a entregar")
Exit Sub
End If
If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then
Alert("No se ha especificado la etiqueta.")
Exit Sub
End If
If Not CalculaMesesUso() Then
Exit Sub
End If
@@ -7427,53 +7431,63 @@ Partial Class PV
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
Dim CveMarca As Integer = -1
CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
Dim ImportePagarCliente As Decimal = 0
Dim ObjAcum As New ClsAcumuladores
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If ObjAcum.DtResultados.Rows.Count > 0 Then
TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
''obtener siempre y cuando la fecha de inicio sea mayor
Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate
Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia")
If drg IsNot Nothing Then
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
Dim CargoVendido As Decimal = 0
Dim CargoGarantia As Decimal = 0
Dim CveTamaño As Integer = 0
Dim CargoVendido As Decimal = 0
Dim CargoGarantia As Decimal = 0
Dim CveTamaño As Integer = 0
If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
CargoGarantia = Dr("Cargo").ToString.ToDecimal
If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
CargoGarantia = Dr("Cargo").ToString.ToDecimal
End If
End If
End If
If DdlPS.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
CveTamaño = Dr("CveTamaño").ToString.ToEntero
If DdlPS.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
CveTamaño = Dr("CveTamaño").ToString.ToEntero
End If
End If
End If
Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CveTamaño = {CveTamaño}")
If DrCargo IsNot Nothing Then
Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CveTamaño = {CveTamaño}")
If DrCargo IsNot Nothing Then
CargoVendido = DrCargo("Cargo").ToString.ToDecimal
CargoVendido = DrCargo("Cargo").ToString.ToDecimal
End If
End If
'el ajuste no puede ser mayor al precio de lo vendido de nuevo
If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
'el ajuste no puede ser mayor al precio de lo vendido de nuevo
If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
TxtImporteAjuste.Text = "0.00"
CargoGarantia = CargoVendido
ImportePagarCliente = 0
End If
ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
Else
Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
'cuando no está registrada, no da ajuste
TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
TxtImporteAjuste.Text = "0.00"
CargoGarantia = CargoVendido
ImportePagarCliente = 0
End If
ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
Else
Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
'cuando no está registrada, no da ajuste

52
Ventas/RepProductosServicios.aspx.vb
View File

@@ -61,29 +61,31 @@ Partial Class Ventas_RepProductosServicios
#Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10"))
DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12"))
DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13"))
DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14"))
DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15"))
DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16"))
DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17"))
DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))
Private Sub CargaGrupo()
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
DdlGrupo.Items.Add(New ListItem("Año", "6"))
DdlGrupo.Items.Add(New ListItem("Mes", "7"))
DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
DdlGrupo.Items.Add(New ListItem("Marca", "24"))
DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
DdlClienteClasificacion.DataBind()
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
CargaGrupo()
TipoCambio = 1
TCEspecifico = 0