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

-- limpieza de opciones, como contabilziación de AC

Browse Source 
-- comentado la get de docuemntación
This commit is contained in:
rrene
2024-12-09 10:03:12 -07:00
parent 139e58f8a1
commit 7e260847ed
2 changed files with 15 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
Ventas/Ventas.aspx.vb
View File

@@ -3293,7 +3293,7 @@ Partial Class Ventas
CargaFormatoSucursal()
InicializaDevolucionAlmacen()
'InicializaDevolucionAlmacen()
'CargaOtrosConceptos()
CargaFacturaOC()
@@ -5826,30 +5826,6 @@ Partial Class Ventas
End If
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
BtnGenerarOS.Visible = True
BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta)
@@ -7297,7 +7273,8 @@ Partial Class Ventas
CargarAlmacenes()
CargaDocumentacionCliente()
'RMF. 2024.12.07, verificar cuando se debe de cargar.
'CargaDocumentacionCliente()
If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -21752,9 +21729,9 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
HLCargaCotizaciones.Visible = True
HlAgregarExcel.Visible = False
Else
HLCargaCotizaciones.Visible = False
HlAgregarExcel.Visible = True
'Else
' HLCargaCotizaciones.Visible = False
' HlAgregarExcel.Visible = True
End If
Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385)
@@ -23636,36 +23613,7 @@ Partial Class Ventas
RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
'CancelarDocumento(True)
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
Dim OS As New ClsOS
Dim DtDetalle As DataTable = Nothing
@@ -25468,7 +25416,9 @@ Partial Class Ventas
' Exit Sub
'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 UsuarioActual.Empresa.Funcionalidad(555) = "1" Then
@@ -28355,7 +28305,7 @@ Partial Class Ventas
Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
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()
End If
@@ -28392,7 +28342,6 @@ Partial Class Ventas
UpModalButtonUploadDocumentoCliente.Update()
RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static', keyboard: false});")
End Sub
Protected Sub BtnModalClienteDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalClienteDocumentoUpload.Click