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

Folio RepContratos Limpiesa

Browse Source
This commit is contained in:
rakcsle
2024-09-10 16:28:54 -07:00
parent b674691241
commit 3affcebabf
1 changed files with 1 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
Transportes/RepContratos.aspx.vb
View File

@@ -71,7 +71,6 @@ Partial Class ListadoContratos
End Sub
Private Sub CargaFolio()
'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
Dim ObjFolio As New ClsGralFolios
If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=-1) Then
@@ -122,7 +121,7 @@ Partial Class ListadoContratos
Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
'Agregamos Contrato
@@ -413,68 +412,5 @@ Partial Class ListadoContratos
End Sub
'Private Sub CargaFolios(Optional FacturarDocumentoNuevo As Boolean = False)
' Dim ObjFolios As New ClsGralFolios()
' Dim TipoDoctoConsulta As String = ""
' If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
' Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
' If DT.Rows.Count > 0 Then
' ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString().ToEntero()
' 'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString())
' 'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate
' ViewState("FolioActual") = DT.Rows(0)("FActual").ToString()
' If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
' LblSerie.Text = SerieVenta
' Else
' LblSerie.Text = DT.Rows(0)("Serie").ToString()
' End If
' TxtFolio.Text = DT.Rows(0)("FActual").ToString()
' If Not FacturarDocumentoNuevo Then
' If Not CveEmpresaCRM > 0 Then
' 'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
' If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
' BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
' BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
' TrVistaPrevia.Visible = EstatusCliente
' End If
' Else
' If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
' BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
' BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
' TrVistaPrevia.Visible = EstatusCliente
' Else
' BtnCrearApartirDe.Enabled = True
' BtnEmitirImprimir.Visible = True
' TrVistaPrevia.Visible = True
' End If
' End If
' End If
' UpFacturar.Update()
' Else
' If DdlTipoComprobante.Items.Count > 0 Then
' Alert("No tiene registrados Folios para " & DdlTipoComprobante.SelectedItem.Text & " en esta sucursal.", TipoMensaje.MsgAdvertencia)
' Else
' Alert("No tiene permisos para generar ningun tipo de documento.", TipoMensaje.MsgAdvertencia)
' End If
' TrEmitir.Visible = False
' TrVistaPrevia.Visible = False
' BtnCrearApartirDe.Enabled = False
' BtnEmitirImprimir.Visible = False
' UpFacturar.Update()
' End If
' DT.Dispose()
' End If
' ObjFolios.Dispose()
' 'End If
'End Sub
End Class