Contratos, Indicadores reportes
This commit is contained in:
Rakcsle Supertramp
@@ -454,12 +454,12 @@ Partial Class Contratos_ContratoObra
|
||||
If CveContrato > 0 Then
|
||||
If UsuarioActual.TienePermisoProceso(164) Then
|
||||
BtnEliminar.Visible = True
|
||||
Gv.Columns(11).Visible = True
|
||||
GvInsumos.Columns(9).Visible = True
|
||||
Gv.Columns(9).Visible = True
|
||||
GvInsumos.Columns(8).Visible = True
|
||||
Else
|
||||
BtnEliminar.Visible = False
|
||||
Gv.Columns(11).Visible = False
|
||||
GvInsumos.Columns(9).Visible = False
|
||||
Gv.Columns(9).Visible = False
|
||||
GvInsumos.Columns(8).Visible = False
|
||||
End If
|
||||
|
||||
'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial
|
||||
@@ -469,8 +469,8 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
Else
|
||||
TabPres.Visible = False
|
||||
Gv.Columns(11).Visible = True
|
||||
GvInsumos.Columns(9).Visible = True
|
||||
Gv.Columns(9).Visible = True
|
||||
GvInsumos.Columns(8).Visible = True
|
||||
|
||||
End If
|
||||
|
||||
@@ -993,7 +993,7 @@ Partial Class Contratos_ContratoObra
|
||||
'RowPorcentajeComision.Visible = False
|
||||
RowEstatus.Visible = False
|
||||
'dvAddendum.Visible = False
|
||||
liImprimir.Visible = True
|
||||
'liImprimir.Visible = True
|
||||
CargaPlantillas()
|
||||
'TrContratoPlantilla.Visible = True
|
||||
'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo"))
|
||||
@@ -1042,7 +1042,7 @@ Partial Class Contratos_ContratoObra
|
||||
'TDObservacion.Visible = True
|
||||
'tdObservaciones.Visible = True
|
||||
TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString
|
||||
Gv.Columns(6).Visible = True
|
||||
Gv.Columns(4).Visible = True
|
||||
'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString)
|
||||
End If
|
||||
|
||||
@@ -1073,6 +1073,7 @@ Partial Class Contratos_ContratoObra
|
||||
TxtFechaInicial.Text = ObjContratos.FechaInicial.ToShortDateString
|
||||
TxtUbicacion.Text = ObjContratos.Ubicacion
|
||||
TxtResponsable.Text = ObjContratos.Responsable
|
||||
TxtLugar.Text = ObjContratos.Lugar
|
||||
TxtPorAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
|
||||
TxtPorAmortizacionAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
|
||||
TxtPorGarantia.Text = ObjContratos.PorGarantia.FormatoNumero
|
||||
@@ -1100,8 +1101,8 @@ Partial Class Contratos_ContratoObra
|
||||
If ObjContratos.TipoEstatus = 2 Then
|
||||
DdlEstatus.Enabled = False
|
||||
If UsuarioActual.TienePermisoProceso(173) Then
|
||||
liVigenteContrato.Visible = True
|
||||
LBVigenteContrato.Visible = True
|
||||
'liVigenteContrato.Visible = True
|
||||
'LBVigenteContrato.Visible = True
|
||||
End If
|
||||
Else
|
||||
DdlEstatus.Items.Clear()
|
||||
@@ -1110,17 +1111,17 @@ Partial Class Contratos_ContratoObra
|
||||
DdlEstatus.DataBind()
|
||||
Select Case ObjContratos.TipoEstatus
|
||||
Case 1
|
||||
If UsuarioActual.TienePermisoProceso(173) Then
|
||||
liTerminarContrato.Visible = True
|
||||
LBTerminarContrato.Visible = True
|
||||
|
||||
liCancelarContrato.Visible = True
|
||||
LBCancelarContrato.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(173) Then
|
||||
' liTerminarContrato.Visible = True
|
||||
'LBTerminarContrato.Visible = True
|
||||
|
||||
' liCancelarContrato.Visible = True
|
||||
'LBCancelarContrato.Visible = True
|
||||
End If
|
||||
Case 2, 3 ' reactivar el contrato
|
||||
If UsuarioActual.TienePermisoProceso(173) Then
|
||||
liVigenteContrato.Visible = True
|
||||
LBVigenteContrato.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(173) Then
|
||||
' liVigenteContrato.Visible = True
|
||||
' LBVigenteContrato.Visible = True
|
||||
End If
|
||||
End Select
|
||||
|
||||
@@ -1315,7 +1316,7 @@ Partial Class Contratos_ContratoObra
|
||||
TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1,
|
||||
PorcentajeComision:=0, TipoGarantia:=-1, Folio:=0, FechaVenc:=Nothing, EstatusFianza:=1,
|
||||
CvePeriodo:=-1, CveCuentaEquipo:=-1, CveContratoPlantilla:=-1, CveVendedor:=-1,
|
||||
Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim())
|
||||
Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim)
|
||||
|
||||
|
||||
TieneError = Not GuardaFianzas(ObjContratos)
|
||||
@@ -1414,7 +1415,7 @@ Partial Class Contratos_ContratoObra
|
||||
CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0,
|
||||
TipoGarantia:=-1, Folio:=-1, FechaVenc:=Nothing, EstatusFianza:=-1, CveContratoPlantilla:=-1,
|
||||
CveCuentaEquipo:=-1, CveVendedor:=-1, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False,
|
||||
CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim()) Then
|
||||
CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim) Then
|
||||
|
||||
|
||||
TieneError = Not GuardaFianzas(ObjContratos)
|
||||
@@ -1840,11 +1841,11 @@ Partial Class Contratos_ContratoObra
|
||||
Gv.DataSource = DtTemp
|
||||
DtPresupuestos = DtTemp
|
||||
Gv.DataBind()
|
||||
If CveTipoContrato = 25 Then
|
||||
Gv.Columns(0).Visible = False
|
||||
Gv.Columns(2).Visible = False
|
||||
Gv.Columns(3).Visible = False
|
||||
Gv.Columns(9).Visible = False
|
||||
If CveTipoContrato = 25 Then
|
||||
' Gv.Columns(0).Visible = False
|
||||
Gv.Columns(2).Visible = False
|
||||
' Gv.Columns(3).Visible = False
|
||||
Gv.Columns(7).Visible = False
|
||||
End If
|
||||
'If (Gv.Rows.Count > 0) Then
|
||||
' Gv.UseAccessibleHeader = True
|
||||
@@ -2581,7 +2582,7 @@ Partial Class Contratos_ContratoObra
|
||||
End If
|
||||
|
||||
TabReporteAvance.Visible = True
|
||||
lbImprimirAvance.Visible = True
|
||||
'lbImprimirAvance.Visible = True
|
||||
|
||||
Dim Modalidad = IfNull(Request("Tipo"), 1, 2)
|
||||
|
||||
@@ -2600,16 +2601,32 @@ Partial Class Contratos_ContratoObra
|
||||
Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjContratos.Dispose()
|
||||
'ObjContratos.Dispose()
|
||||
GvDatosAvance.DataBind()
|
||||
|
||||
If (GvDatosAvance.Rows.Count > 0) Then
|
||||
GvDatosAvance.UseAccessibleHeader = True
|
||||
GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
RegistraScript("OrdenarGV();")
|
||||
End If
|
||||
|
||||
UpGral.Update()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If ObjContratos.GetReporteContratosAvancesDetalleControl(CveContrato, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
GvDatosAvanceControl.DataSource = ObjContratos.DtResultados
|
||||
Else
|
||||
Alert("Ocurrió un Error al obtener el Reporte de Avances de control. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
GvDatosAvanceControl.DataBind()
|
||||
|
||||
ObjContratos.Dispose()
|
||||
UpGral.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound
|
||||
@@ -2629,6 +2646,27 @@ Partial Class Contratos_ContratoObra
|
||||
e.Row.FCLinkButton("LBAvanceXFacturarCantidad").CommandArgument = Liga2
|
||||
e.Row.FCLinkButton("LBAvanceXFacturarImporte").CommandArgument = Liga2
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then
|
||||
e.Row.CssClass = "Totales white"
|
||||
ElseIf e.Row.DBCampo("CvePS").ToString.ToEntero = 0 Then
|
||||
e.Row.CssClass = "SubTotales"
|
||||
End If
|
||||
|
||||
'Dim Liga1 = $"{e.Row.DBCampo("CveClasificacion").ToEntero}|{e.Row.DBCampo("Clasificacion")}|{e.Row.DBCampo("CvePS").ToEntero}|{e.Row.DBCampo("CodigoPS")}|1"
|
||||
'e.Row.FCLinkButton("LBAvanceCantidad").CommandArgument = Liga1
|
||||
'e.Row.FCLinkButton("LBAvanceImporte").CommandArgument = Liga1
|
||||
|
||||
'Dim Liga2 = $"{e.Row.DBCampo("CveClasificacion").ToEntero}|{e.Row.DBCampo("Clasificacion")}|{e.Row.DBCampo("CvePS").ToEntero}|{e.Row.DBCampo("CodigoPS")}|2"
|
||||
'e.Row.FCLinkButton("LBAvanceXFacturarCantidad").CommandArgument = Liga2
|
||||
'e.Row.FCLinkButton("LBAvanceXFacturarImporte").CommandArgument = Liga2
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs)
|
||||
@@ -2672,9 +2710,9 @@ Partial Class Contratos_ContratoObra
|
||||
GVAvanceXDocumento.DataSource = ObjContratos.DtResultados
|
||||
DtAvanceDocumento = ObjContratos.DtResultados
|
||||
If DtAvanceDocumento.Rows.Count > 0 Then
|
||||
LBImprimir.Visible = True
|
||||
End If
|
||||
LBImprimirInformacionG.Visible = True
|
||||
'LBImprimir.Visible = True
|
||||
End If
|
||||
' LBImprimirInformacionG.Visible = True
|
||||
Else
|
||||
Alert("Ocurrió un error al obtener el Reporte de Avances por Documento. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
End If
|
||||
@@ -2871,7 +2909,7 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
If GvContratosGastos.Rows.Count > 0 Then
|
||||
GvContratosGastos.HeaderRow.CssClass = "SinColor"
|
||||
LBImprimirGastos.Visible = True
|
||||
'LBImprimirGastos.Visible = True
|
||||
End If
|
||||
|
||||
UpContratoGasto.Update()
|
||||
@@ -2948,12 +2986,12 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
UpPedidosDevoluciones.Update()
|
||||
End Sub
|
||||
Protected Sub ImgExcelPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDevExcel.Click
|
||||
GenerarPDFPedDev("Excel")
|
||||
End Sub
|
||||
Protected Sub ImgImprimirPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDev.Click
|
||||
GenerarPDFPedDev()
|
||||
End Sub
|
||||
'Protected Sub ImgExcelPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDevExcel.Click
|
||||
' GenerarPDFPedDev("Excel")
|
||||
'End Sub
|
||||
'Protected Sub ImgImprimirPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDev.Click
|
||||
' GenerarPDFPedDev()
|
||||
'End Sub
|
||||
Private Sub GenerarPDFPedDev(Optional Formato As String = "PDF")
|
||||
If DsDatosPedDev Is Nothing Then
|
||||
Alert("No se pudieron consultar los pedidos y devoluciones", TipoMensaje.MsgAdvertencia)
|
||||
@@ -3202,27 +3240,27 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
ObjInv.Dispose()
|
||||
|
||||
LnkAjusteAF.Visible = True
|
||||
'LnkAjusteAF.Visible = True
|
||||
DivHajusteAF.Visible = False
|
||||
GvDatosAlmacen.Columns(6).Visible = False
|
||||
|
||||
CargaInventarios()
|
||||
UPHajusteAF.Update()
|
||||
UpHajusteAcciones.Update()
|
||||
|
||||
UPHajusteAF.Update()
|
||||
' UpHajusteAcciones.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LnkAjusteAF.Visible = False
|
||||
Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
' LnkAjusteAF.Visible = False
|
||||
DivHajusteAF.Visible = True
|
||||
GvDatosAlmacen.Columns(6).Visible = True
|
||||
|
||||
CargaInventarios()
|
||||
|
||||
UPHajusteAF.Update()
|
||||
UpHajusteAcciones.Update()
|
||||
UPHajusteAF.Update()
|
||||
' UpHajusteAcciones.Update()
|
||||
UpAlmacen.Update()
|
||||
|
||||
End Sub
|
||||
@@ -3425,9 +3463,9 @@ Partial Class Contratos_ContratoObra
|
||||
Response.End()
|
||||
End If
|
||||
End Sub
|
||||
Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click
|
||||
DescargarFormato()
|
||||
End Sub
|
||||
'Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click
|
||||
' DescargarFormato()
|
||||
'End Sub
|
||||
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
|
||||
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
|
||||
Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
|
||||
@@ -3702,9 +3740,9 @@ Partial Class Contratos_ContratoObra
|
||||
#Region " IMPRESION "
|
||||
|
||||
#Region " IMPRIMIR AVANCE POR DOCUMENTO "
|
||||
Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click
|
||||
GenerarPDF()
|
||||
End Sub
|
||||
'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click
|
||||
' GenerarPDF()
|
||||
'End Sub
|
||||
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
@@ -3730,66 +3768,67 @@ Partial Class Contratos_ContratoObra
|
||||
End If
|
||||
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
|
||||
End Sub
|
||||
Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
Dim dt As DataTable = DtAvanceDocumento
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Contrato", Titulo))
|
||||
'DATOS DEL CONTRATO
|
||||
params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim))
|
||||
params.Add(New ReportParameter("Descripcion", TxtDescripcionContrato.Text.Trim))
|
||||
params.Add(New ReportParameter("Proveedor", If(TrProveedor.Visible = True, DdlContratista.SelectedItem.Text.Trim, "-")))
|
||||
params.Add(New ReportParameter("Ubicacion", TxtUbicacion.Text.Trim))
|
||||
params.Add(New ReportParameter("Responsable", TxtResponsable.Text.Trim))
|
||||
params.Add(New ReportParameter("Almacen", "-"))
|
||||
params.Add(New ReportParameter("Porcentaje", "-"))
|
||||
'CENTRO DE COSTOS
|
||||
params.Add(New ReportParameter("Proyecto", If(DVddlproyecto.Visible = True, DdlProyecto.SelectedItem.Text.Trim, "-")))
|
||||
params.Add(New ReportParameter("SubProyecto", CveSubProyecto.ToString))
|
||||
params.Add(New ReportParameter("Addendum", ""))
|
||||
'INFORMACION
|
||||
params.Add(New ReportParameter("Cliente", If(TrCliente.Visible = True, DdlCliente.SelectedItem.Text.Trim, "-")))
|
||||
params.Add(New ReportParameter("Sucursal", If(TrClienteSucursal.Visible = True, DdlSucursalCliente.SelectedItem.Text.Trim, "-")))
|
||||
params.Add(New ReportParameter("FechaInicial", TxtFechaInicial.Text.Trim))
|
||||
params.Add(New ReportParameter("FechaFinal", TxtFechaFinal.Text.Trim))
|
||||
params.Add(New ReportParameter("Moneda", DdlMoneda.SelectedItem.Text.Trim))
|
||||
params.Add(New ReportParameter("TipoCambio", If(tipoCambio.Visible = True, TxtTipoCambio.Text.Trim, "-")))
|
||||
params.Add(New ReportParameter("IVA", TxtPorIVA.Text.Trim))
|
||||
params.Add(New ReportParameter("Anticipo", TxtPorAnticipo.Text.Trim))
|
||||
params.Add(New ReportParameter("Amortizacion", TxtPorAmortizacionAnticipo.Text.Trim))
|
||||
params.Add(New ReportParameter("Garantia", TxtPorGarantia.Text.Trim))
|
||||
params.Add(New ReportParameter("Minimo", "-"))
|
||||
params.Add(New ReportParameter("Maximo", "-"))
|
||||
params.Add(New ReportParameter("Total", If(DvTotal.Visible = True, TxtTotal.Text.Trim, "-")))
|
||||
'Estatus
|
||||
params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text.Trim))
|
||||
params.Add(New ReportParameter("TipoGarantia", ""))
|
||||
params.Add(New ReportParameter("EstatusFianza", ""))
|
||||
params.Add(New ReportParameter("Folio", "0"))
|
||||
params.Add(New ReportParameter("FechaVencimiento", ""))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF")
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
|
||||
' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
' Dim dt As DataTable = DtAvanceDocumento
|
||||
' Dim params As New List(Of ReportParameter)
|
||||
' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
' params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
' params.Add(New ReportParameter("Contrato", Titulo))
|
||||
' 'DATOS DEL CONTRATO
|
||||
' params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim))
|
||||
' params.Add(New ReportParameter("Descripcion", TxtDescripcionContrato.Text.Trim))
|
||||
' params.Add(New ReportParameter("Proveedor", If(TrProveedor.Visible = True, DdlContratista.SelectedItem.Text.Trim, "-")))
|
||||
' params.Add(New ReportParameter("Ubicacion", TxtUbicacion.Text.Trim))
|
||||
' params.Add(New ReportParameter("Responsable", TxtResponsable.Text.Trim))
|
||||
' params.Add(New ReportParameter("Almacen", "-"))
|
||||
' params.Add(New ReportParameter("Porcentaje", "-"))
|
||||
' 'CENTRO DE COSTOS
|
||||
' params.Add(New ReportParameter("Proyecto", If(DVddlproyecto.Visible = True, DdlProyecto.SelectedItem.Text.Trim, "-")))
|
||||
' params.Add(New ReportParameter("SubProyecto", CveSubProyecto.ToString))
|
||||
' params.Add(New ReportParameter("Addendum", ""))
|
||||
' 'INFORMACION
|
||||
' params.Add(New ReportParameter("Cliente", If(TrCliente.Visible = True, DdlCliente.SelectedItem.Text.Trim, "-")))
|
||||
' params.Add(New ReportParameter("Sucursal", If(TrClienteSucursal.Visible = True, DdlSucursalCliente.SelectedItem.Text.Trim, "-")))
|
||||
' params.Add(New ReportParameter("FechaInicial", TxtFechaInicial.Text.Trim))
|
||||
' params.Add(New ReportParameter("FechaFinal", TxtFechaFinal.Text.Trim))
|
||||
' params.Add(New ReportParameter("Moneda", DdlMoneda.SelectedItem.Text.Trim))
|
||||
' params.Add(New ReportParameter("TipoCambio", If(tipoCambio.Visible = True, TxtTipoCambio.Text.Trim, "-")))
|
||||
' params.Add(New ReportParameter("IVA", TxtPorIVA.Text.Trim))
|
||||
' params.Add(New ReportParameter("Anticipo", TxtPorAnticipo.Text.Trim))
|
||||
' params.Add(New ReportParameter("Amortizacion", TxtPorAmortizacionAnticipo.Text.Trim))
|
||||
' params.Add(New ReportParameter("Garantia", TxtPorGarantia.Text.Trim))
|
||||
' params.Add(New ReportParameter("Minimo", "-"))
|
||||
' params.Add(New ReportParameter("Maximo", "-"))
|
||||
' params.Add(New ReportParameter("Total", If(DvTotal.Visible = True, TxtTotal.Text.Trim, "-")))
|
||||
' 'Estatus
|
||||
' params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text.Trim))
|
||||
' params.Add(New ReportParameter("TipoGarantia", ""))
|
||||
' params.Add(New ReportParameter("EstatusFianza", ""))
|
||||
' params.Add(New ReportParameter("Folio", "0"))
|
||||
' params.Add(New ReportParameter("FechaVencimiento", ""))
|
||||
|
||||
' If Imagen.Exists Then
|
||||
' params.Add(New ReportParameter("LogoPath", logouri))
|
||||
' Else
|
||||
' params.Add(New ReportParameter("LogoPath", ""))
|
||||
' End If
|
||||
' ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF")
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "I M P R E S I O N D E G A S T O S"
|
||||
Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click
|
||||
GenerarPDFGastos()
|
||||
End Sub
|
||||
'Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click
|
||||
' GenerarPDFGastos()
|
||||
'End Sub
|
||||
Private Sub GenerarPDFGastos(Optional Formato As String = "PDF")
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
@@ -3819,22 +3858,22 @@ Partial Class Contratos_ContratoObra
|
||||
End If
|
||||
Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato)
|
||||
End Sub
|
||||
|
||||
Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click
|
||||
TxtDescripcion.Text = ""
|
||||
TxtImporteC.Text = ""
|
||||
TxtFecha.Text = ""
|
||||
UpAgregarGastos.Update()
|
||||
RegistraScript("$('#ModalAgregarGastos').modal();")
|
||||
End Sub
|
||||
|
||||
'Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click
|
||||
' TxtDescripcion.Text = ""
|
||||
' TxtImporteC.Text = ""
|
||||
' TxtFecha.Text = ""
|
||||
' UpAgregarGastos.Update()
|
||||
' RegistraScript("$('#ModalAgregarGastos').modal();")
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "I M P R E S I O N D E S U M I N I S T R O S"
|
||||
Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click
|
||||
GenerarPDFSuministros()
|
||||
End Sub
|
||||
'Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click
|
||||
' GenerarPDFSuministros()
|
||||
'End Sub
|
||||
Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF")
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
@@ -3863,9 +3902,9 @@ Partial Class Contratos_ContratoObra
|
||||
#End Region
|
||||
|
||||
#Region "I M P R E S I O N D E A V A N C E "
|
||||
Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click
|
||||
GenerarPDFAvance()
|
||||
End Sub
|
||||
'Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click
|
||||
' GenerarPDFAvance()
|
||||
'End Sub
|
||||
Private Sub GenerarPDFAvance(Optional Formato As String = "PDF")
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
@@ -3895,9 +3934,9 @@ Partial Class Contratos_ContratoObra
|
||||
#End Region
|
||||
|
||||
#Region "I M P R E S I O N D E P R E S U P U E S T O "
|
||||
Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click
|
||||
GenerarPDFPPresupuesto()
|
||||
End Sub
|
||||
'Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click
|
||||
' GenerarPDFPPresupuesto()
|
||||
'End Sub
|
||||
Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF")
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
@@ -3927,12 +3966,12 @@ Partial Class Contratos_ContratoObra
|
||||
#End Region
|
||||
|
||||
#Region "I M P R E S I O N D E A C T I V O S F I J O S "
|
||||
Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click
|
||||
GenerarPDFActivosFijos()
|
||||
End Sub
|
||||
Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click
|
||||
GenerarPDFActivosFijos("Excel")
|
||||
End Sub
|
||||
'Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click
|
||||
' GenerarPDFActivosFijos()
|
||||
'End Sub
|
||||
'Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click
|
||||
' GenerarPDFActivosFijos("Excel")
|
||||
'End Sub
|
||||
Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF")
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
@@ -4053,13 +4092,13 @@ Partial Class Contratos_ContratoObra
|
||||
ObjGral.Dispose()
|
||||
'DdlPlantillaContrato.DataSource = DtPlantillasContratos
|
||||
'DdlPlantillaContrato.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click
|
||||
' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}")
|
||||
' DescarFormato(docx)
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click
|
||||
' ' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}")
|
||||
' ' DescarFormato(docx)
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user