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:
Jonathan Alexis Perez Morales
2024-12-09 16:20:02 -07:00
parent 59e3885806 38bc7192be
commit 5c593e5e96
8 changed files with 89 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
App_Code/ClsPaginas.vb
View File

@@ -2154,18 +2154,30 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Property GlobalDTBancosCuentas(CveUsuario As Integer) As DataTable Public Shared Property GlobalDTBancosCuentasGral(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional CveTipoCuenta As Integer = -1) As DataTable
' Get Get
' Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) Dim AppNombre As String = $"GlobalDTBancosCuentasGral-{CveEmpresa}"
' If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario ={1}", Str, CveUsuario) If HttpContext.Current.Application(AppNombre) Is Nothing Then
' Dim Dv As New DataView(DirectCast(Application("GlobalDTBancosCuentas"), DataTable), Str, "", DataViewRowState.CurrentRows) Using ObjBancos As New ClsBancos
' GlobalDTBancosCuentas = Dv.ToTable If ObjBancos.GetBancosCuentas(-1, CveEmpresa) Then
' Dv.Dispose() HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
' End Get Else
' Set(value As DataTable) HttpContext.Current.Application(AppNombre) = Nothing
' Application("GlobalDTBancosCuentas") = value End If
' End Set End Using
'End Property End If
Dim Str As String = String.Format("CveEmpresa = {0} ", CveEmpresa)
If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta)
If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
GlobalDTBancosCuentasGral = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTBancosCuentasGral-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}"

89
Compras/Compras.aspx.vb
View File

@@ -1656,36 +1656,6 @@ Partial Class Compras_Compras
DdlTipoComprobante_SelectedIndexChanged(Nothing, Nothing) DdlTipoComprobante_SelectedIndexChanged(Nothing, Nothing)
DdlTipoCompra.SelectedValueExist(15) DdlTipoCompra.SelectedValueExist(15)
DdlTipoCompra_SelectedIndexChanged(Nothing, Nothing) DdlTipoCompra_SelectedIndexChanged(Nothing, Nothing)
'For Each gvRow As GridViewRow In GvFacturaNC.Rows
' If gvRow.DataKey("CveCompra").ToEntero > 0 AndAlso gvRow.FCCheckBox("ChkFacturaNC").Checked Then
' Dim SerieFolioFacura As String = ObtenerUltimaParte(gvRow.DataKey("SerieFolio"))
' Dim seleccion As String = ""
' For Each item As ListItem In DdlRemisionNotaCredito.Items
' Dim serieFolioItem As String = ObtenerUltimaParte(item.Text)
' If SerieFolioFacura = serieFolioItem Then
' 'seleccion = item.Value
' AutoSelRNC = True
' DdlRemisionNotaCredito.SelectedValueExist(item.Value)
' Exit For
' End If
' Next
' If AutoSelRNC Then
' Exit For
' End If
' End If
'Next
If AutoSelRNC Then
'DdlRemisionNotaCredito_SelectedIndexChanged(Nothing, Nothing)
End If
HLAplicaNCFact.Visible = True
UpPS.Update() UpPS.Update()
UpEstatus.Update() UpEstatus.Update()
@@ -15189,8 +15159,6 @@ Partial Class Compras_Compras
UpGvOC1.Update() UpGvOC1.Update()
TmpDT = TmpDT.FiltraParametros("", "PU") TmpDT = TmpDT.FiltraParametros("", "PU")
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows For Each Gvr As GridViewRow In GvOC1.Rows
@@ -15446,17 +15414,13 @@ Partial Class Compras_Compras
Vinculacion() Vinculacion()
ElseIf Math.Abs(LbSubTotalOC2.Text.ToDecimal - (LbSubTotalOC1.Text.ToDecimal - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then ElseIf Math.Abs(LbSubTotalOC2.Text.ToDecimal - (LbSubTotalOC1.Text.ToDecimal - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
Vinculacion() If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
Else
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2) ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2)
ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2) ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2)
Dim ImporteOCConIVA As Decimal = 0D Dim ImporteOCConIVA As Decimal = 0D
Dim ImporteOCSinIVA As Decimal = 0D Dim ImporteOCSinIVA As Decimal = 0D
Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ") Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ")
Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ") Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ")
@@ -15472,18 +15436,45 @@ Partial Class Compras_Compras
AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA) AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA)
AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA) AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA)
If ConfirmaVinculacionOCProntoPago(AjusteProntoPagoPorcentajeIVA) Then If ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA) Then
Vinculacion() Vinculacion()
End If End If
Else
Vinculacion()
End If
Else
If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2)
ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2)
Dim ImporteOCConIVA As Decimal = 0D
Dim ImporteOCSinIVA As Decimal = 0D
Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ")
Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ")
For Each gvr As GridViewRow In GvOC1.Rows
If gvr.DataKey("IVAPorcentaje").ToDecimal > 0 Then
ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal)
Else
ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal)
End If
Next
AjusteProntoPagoPorcentajeIVA = TmpDT.MAX("IVAPorcentaje").ToDecimal
AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA)
AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA)
If ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA) Then
Vinculacion()
End If
Else Else
LbSubTotalDif.Visible = True LbSubTotalDif.Visible = True
LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero
Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,) Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,)
RegistraScript("CalculaTotalesOC();") RegistraScript("CalculaTotalesOC();")
End If End If
End If End If
UpEstatus.Update() UpEstatus.Update()
@@ -15617,7 +15608,7 @@ Partial Class Compras_Compras
IndexTmpOriginal += 1 IndexTmpOriginal += 1
Next Next
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
If CvePS_RNC = 0 Then If CvePS_RNC = 0 Then
@@ -15637,9 +15628,6 @@ Partial Class Compras_Compras
Dim Clasificacion As String = PSRow("Clasificacion").ToString Dim Clasificacion As String = PSRow("Clasificacion").ToString
Dim PS As String = PSRow("PS").ToString Dim PS As String = PSRow("PS").ToString
Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
Dim DTConIVA As DataTable = TmpDT.FiltraParametros(" IVAPorcentaje > 0") Dim DTConIVA As DataTable = TmpDT.FiltraParametros(" IVAPorcentaje > 0")
If DTConIVA.Rows.Count > 0 Then If DTConIVA.Rows.Count > 0 Then
@@ -15680,7 +15668,6 @@ Partial Class Compras_Compras
Tab.ActiveTabIndex = 0 Tab.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False
ImgSubProyecto.Visible = False ImgSubProyecto.Visible = False
LbAgregar.Visible = False LbAgregar.Visible = False
@@ -16559,8 +16546,9 @@ Partial Class Compras_Compras
If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then
DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15")) DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
UpEstatus.Update() UpEstatus.Update()
'oculta el botón para aplicar el saldo, esto bloquea que no duplique el abono.
HLAplicaNCFact.Visible = False
End If End If
End If End If
Else Else
DivReembolso.Visible = True DivReembolso.Visible = True
@@ -17204,9 +17192,9 @@ Partial Class Compras_Compras
Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ") Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
InicializaAplicaNCFact() ' InicializaAplicaNCFact()
End If 'End If
End Sub End Sub
Private Sub OriginalesVisible(Accion As Boolean) Private Sub OriginalesVisible(Accion As Boolean)
@@ -21824,12 +21812,11 @@ Partial Class Compras_Compras
End Set End Set
End Property End Property
Public Function ConfirmaVinculacionOCProntoPago(AjusteProntoPagoPorcentajeIVA As Decimal) As Boolean Public Function ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA As Decimal) As Boolean
If VincularOcProntoPago Then If VincularOcProntoPago Then
Return True Return True
Else Else
Dim TmpImporteRNC As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNC + (ImporteRNC * AjusteProntoPagoPorcentajeIVA), ImporteRNC) Dim TmpImporteRNC As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNC + (ImporteRNC * AjusteProntoPagoPorcentajeIVA), ImporteRNC)
Dim TmpImporteRNCProntoPago As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNCProntoPago + (ImporteRNCProntoPago * AjusteProntoPagoPorcentajeIVA), ImporteRNCProntoPago) Dim TmpImporteRNCProntoPago As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNCProntoPago + (ImporteRNCProntoPago * AjusteProntoPagoPorcentajeIVA), ImporteRNCProntoPago)

4
Nomina/Nomina.aspx.cs
View File

@@ -3323,7 +3323,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
using (ClsNominas objRH = new ClsNominas()) using (ClsNominas objRH = new ClsNominas())
{ {
if (objRH.GETPersonalVacaciones(UsuarioActual.CveEmpresa, SRCvePersonal)) if (objRH.GetPersonalVacaciones(UsuarioActual.CveEmpresa, SRCvePersonal))
{ {
GvVacaciones.DataSource = objRH.DtResultados; GvVacaciones.DataSource = objRH.DtResultados;
@@ -3345,7 +3345,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
ChkVacCobrarIMSS.Checked = true; ChkVacCobrarIMSS.Checked = true;
using (ClsNominas objnom = new ClsNominas()) using (ClsNominas objnom = new ClsNominas())
{ {
if (objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal)) if (objnom.GetPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
{ {
DdlVacPeriodo.DataSource = objnom.DtResultados; DdlVacPeriodo.DataSource = objnom.DtResultados;
DdlVacPeriodo.DataBind(); DdlVacPeriodo.DataBind();

9
OC/OC.aspx.vb
View File

@@ -2748,6 +2748,13 @@ Partial Class OC_OC
TieneError = True TieneError = True
End If End If
If ModalidadSubProyectoGeneral Then
Dim t As Integer = DtDetalle.COUNT("CvePS", $"CveSubProyecto <> {DdlSubProyectoGral.SelectedValue}")
If t > 0 Then
Alert("Se tienen partidas de diferentes Sucursales.", TipoMensaje.MsgAdvertencia)
Return True
End If
End If
'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR 'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
@@ -4054,12 +4061,10 @@ Partial Class OC_OC
e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle")) e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then

2
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -2296,7 +2296,7 @@ Partial Class Sistemas_UsuarioDetalle
If UsuarioControlado Then If UsuarioControlado Then
DdlCuentasBancarias.DataSource = DtCuentasBancariasControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}") DdlCuentasBancarias.DataSource = DtCuentasBancariasControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
Else Else
DdlCuentasBancarias.DataSource = GlobalDTBancosCuentas(-1, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCuentasBancarias.DataSource = GlobalDTBancosCuentasGral(CveEmpresa)
End If End If
End If End If
DdlCuentasBancarias.DataBind() DdlCuentasBancarias.DataBind()

2
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -591,7 +591,7 @@ Partial Class RepContratoDetalle
If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then
ErrorProceso = True ErrorProceso = True
End If End If

20
Ventas/Ventas.aspx
View File

@@ -320,8 +320,6 @@
<asp:LinkButton ID="LBDevolucionAlmacen" OnClick="LBDevolucionAlmacen_Click" runat="server" Text="<i class='fa fa-pencil'></i> Solicitar Devolución Almacén" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" /> <asp:LinkButton ID="LBDevolucionAlmacen" OnClick="LBDevolucionAlmacen_Click" runat="server" Text="<i class='fa fa-pencil'></i> Solicitar Devolución Almacén" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />
</li> </li>
<%-- <li> <%-- <li>
<asp:LinkButton ID="LbDescargarExcel" Visible="false" OnClick="LbDescargarExcel_Click" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton> <asp:LinkButton ID="LbDescargarExcel" Visible="false" OnClick="LbDescargarExcel_Click" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton>
</li>--%> </li>--%>
@@ -344,7 +342,7 @@
<asp:LinkButton ID="LnkGenerarOC" OnClick="LnkGenerarOC_Click" title="Generar Orden de Compra!" runat="server"><i class="fa fa-tags"></i> Generar Orden de Compra</asp:LinkButton> <asp:LinkButton ID="LnkGenerarOC" OnClick="LnkGenerarOC_Click" title="Generar Orden de Compra!" runat="server"><i class="fa fa-tags"></i> Generar Orden de Compra</asp:LinkButton>
</li> </li>
<asp:UpdatePanel ID="UPPDescontabilizar" runat="server" UpdateMode="Conditional"> <%--<asp:UpdatePanel ID="UPPDescontabilizar" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="BtnContabilizar" runat="server" Text="<i class='fa fa-plus-square'></i>Contabilizar" Visible="false" /> <asp:LinkButton ID="BtnContabilizar" runat="server" Text="<i class='fa fa-plus-square'></i>Contabilizar" Visible="false" />
@@ -357,7 +355,7 @@
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="BtnDescontabilizar" /> <asp:PostBackTrigger ControlID="BtnDescontabilizar" />
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>--%>
<li> <li>
<asp:HyperLink ID="HLModalFletes" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#ModalFletes" runat="server"><i class='fa fa-truck'></i> Fletes</asp:HyperLink> <asp:HyperLink ID="HLModalFletes" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#ModalFletes" runat="server"><i class='fa fa-truck'></i> Fletes</asp:HyperLink>
@@ -402,19 +400,14 @@
<li> <li>
<asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton> <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink> <asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" /> <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
<asp:PostBackTrigger ControlID="BtnContabilizar" />
<asp:PostBackTrigger ControlID="BtnContabilizar" />
<asp:PostBackTrigger ControlID="LnkImprimirFormatoCicovisa" /> <asp:PostBackTrigger ControlID="LnkImprimirFormatoCicovisa" />
<asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" /> <asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" />
<%-- <asp:PostBackTrigger ControlID="LnkDescargarFacturaPrueba" />--%>
<%-- <asp:PostBackTrigger ControlID="LbDescargarExcel" />--%>
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
@@ -952,15 +945,6 @@
</td> </td>
</tr> </tr>
<tr align="left" id="trContabilizada" runat="server" visible="False">
<td><b>Contabilizada:</b></td>
<td>
<asp:HyperLink ID="HLContabilizada" Target="_blank" runat="server" Text="No"></asp:HyperLink>
<asp:HyperLink ID="HPLContaCancelacion" Target="_blank" runat="server" Text=""></asp:HyperLink>
<%-- <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" Visible="false" CssClass="btn btn-success" />--%>
<%--<asp:Button ID="BtnDescontabilizar" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la poliza?" data-btn-ok-label="si" Text="Descontabilizar" runat="server" OnClick="BtnDescontabilizar_Click" CssClass="btn btn-default" Style="margin-left: 20px;" Visible="false" />--%>
</td>
</tr>
<tr align="left"> <tr align="left">
<td><b>Se timbró:</b>&nbsp;</td> <td><b>Se timbró:</b>&nbsp;</td>
<td> <td>

71
Ventas/Ventas.aspx.vb
View File

@@ -3294,7 +3294,7 @@ Partial Class Ventas
CargaFormatoSucursal() CargaFormatoSucursal()
InicializaDevolucionAlmacen() 'InicializaDevolucionAlmacen()
'CargaOtrosConceptos() 'CargaOtrosConceptos()
CargaFacturaOC() CargaFacturaOC()
@@ -5827,30 +5827,6 @@ Partial Class Ventas
End If End If
IdPoliza = DbRowVenta("IdPoliza").ToString().ToEntero() IdPoliza = DbRowVenta("IdPoliza").ToString().ToEntero()
'Carga si es Contabilizada
If IdPoliza > 0 Then
HLContabilizada.Text = "Si"
HLContabilizada.NavigateUrl = $"/Contabilidad/RegPoliza.aspx?IdPoliza={DbRowVenta("IdPoliza")}"
trContabilizada.Visible = True
If UsuarioActual.TienePermisoProceso(107) Then BtnDescontabilizar.Visible = True
Else
'cuando no este contabilizada y usa AC, habilita el boton para generar la poliza
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.CveRol = 1 Then
BtnGenerarPoliza.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
BtnContabilizar.Visible = True
End If
End If
If DbRowVenta("IdPolizaCancelacion").ToString().ToEntero() > 0 Then
HPLContaCancelacion.Text = "Cancelación"
HPLContaCancelacion.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", DbRowVenta("IdPolizaCancelacion"))
trContabilizada.Visible = True
End If
If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString().ToEntero() = 0 Then If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString().ToEntero() = 0 Then
BtnGenerarOS.Visible = True BtnGenerarOS.Visible = True
BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta) BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta)
@@ -7298,7 +7274,8 @@ Partial Class Ventas
CargarAlmacenes() CargarAlmacenes()
CargaDocumentacionCliente() 'RMF. 2024.12.07, verificar cuando se debe de cargar.
'CargaDocumentacionCliente()
If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});" BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -21794,9 +21771,9 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
HLCargaCotizaciones.Visible = True HLCargaCotizaciones.Visible = True
HlAgregarExcel.Visible = False HlAgregarExcel.Visible = False
Else 'Else
HLCargaCotizaciones.Visible = False ' HLCargaCotizaciones.Visible = False
HlAgregarExcel.Visible = True ' HlAgregarExcel.Visible = True
End If End If
Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385)
@@ -23678,36 +23655,7 @@ Partial Class Ventas
RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1") RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
'CancelarDocumento(True) 'CancelarDocumento(True)
End Sub End Sub
Private Sub BtnContabilizar_Click(sender As Object, e As System.EventArgs) Handles BtnContabilizar.Click
'Dim ObjMov As New ClsContabilidad
'Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
'If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, 2) Then
' Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
'Else
' Alert(String.Format("Ocurrio un error al contabilizar {0}", ObjMov.AlertaMensaje))
'End If
'ObjMov.Dispose()
End Sub
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
'Alert("Hola entre", TipoMensaje.MsgError)
'Exit Sub
Dim ObjConta As New ClsContabilidad
Dim Movimientos As Integer = ObjConta.GetMovimientosPoliza(IdPoliza, UsuarioActual.CveEmpresa)
'Verifica que solo exista 1 compra asociada
If Movimientos = 1 Then
EliminaPoliza()
Else
RegistraScript("ConfirmEliminarPolizaMultiple();")
End If
ObjConta.Dispose()
End Sub
Private Sub BtnMateriales_Click(sender As Object, e As EventArgs) Handles BtnMateriales.Click Private Sub BtnMateriales_Click(sender As Object, e As EventArgs) Handles BtnMateriales.Click
Dim OS As New ClsOS Dim OS As New ClsOS
Dim DtDetalle As DataTable = Nothing Dim DtDetalle As DataTable = Nothing
@@ -25510,7 +25458,9 @@ Partial Class Ventas
' Exit Sub ' Exit Sub
'End If 'End If
If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = NowADS().Month And TxtFecha.Text.ToDate.Year = NowADS().Year)) Then If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse
DdlTipoComprobante.SelectedValue = "Dev" OrElse
(DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = NowADS().Month And TxtFecha.Text.ToDate.Year = NowADS().Year)) Then
If Not DevolucionAlmacen = 2 Then If Not DevolucionAlmacen = 2 Then
'If UsuarioActual.Empresa.Funcionalidad(555) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(555) = "1" Then
@@ -28409,7 +28359,7 @@ Partial Class Ventas
Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1) Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
If CveVenta <= 0 AndAlso TempCliente <= 0 Then If CveVenta <= 0 AndAlso TempCliente <= 0 Then
Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir" Dim a As String = "carga de documentacion del cliente, masivo, corregir"
a.GuardaLog() a.GuardaLog()
End If End If
@@ -28446,7 +28396,6 @@ Partial Class Ventas
UpModalButtonUploadDocumentoCliente.Update() UpModalButtonUploadDocumentoCliente.Update()
RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static', keyboard: false});") RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static', keyboard: false});")
End Sub End Sub
Protected Sub BtnModalClienteDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalClienteDocumentoUpload.Click Protected Sub BtnModalClienteDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalClienteDocumentoUpload.Click