Contratos, flujo ventas, contratos estado de cuenta

This commit is contained in:
Rakcsle Supertramp
2020-11-19 13:07:24 -07:00
parent 7d3992236d
commit 5150dec8fe
6 changed files with 223 additions and 817 deletions

View File

@@ -96,8 +96,8 @@ Partial Class Contratos_ContratoAvance
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
BtnGuardar.Visible = False
btnanexogral.Visible = False
BtnGuardar.Visible = False
CargaContrato()
@@ -146,16 +146,16 @@ Partial Class Contratos_ContratoAvance
fecha = ""
DtDatos = ObjContratos.DtResultados
If ObjContratos.DtResultados.Rows.Count > 0 Then
BtnGuardar.Visible = True
btnanexogral.Visible = True
BtnGuardar.Visible = True
End If
End If
Else
If ObjContratos.GetContratosAvanceHistoricos(CveContrato, 2, DdlAvances.SelectedValue) Then
fecha = DdlAvances.SelectedValue
DtDatos = ObjContratos.DtResultados
BtnGuardar.Visible = False
btnanexogral.Visible = False
BtnGuardar.Visible = False
End If
End If
ObjContratos.Dispose()
@@ -280,7 +280,7 @@ Partial Class Contratos_ContratoAvance
Dim TieneError = False
Dim CveContratoDetalle As Integer
Dim Cantidad As Double
Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos
'Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos
Dim guardarArchivos As New List(Of Archivo)
For Each gvr As GridViewRow In Gv.Rows
@@ -328,9 +328,10 @@ Partial Class Contratos_ContratoAvance
Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia)
Else
Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
For Each fileItem As Archivo In filesgral
fileItem.filename.FilesMove(fileItem.filename, urlsave)
Next
'For Each fileItem As Archivo In filesgral
' fileItem.filename.FilesMove(fileItem.filename, urlsave)
'Next
For Each fileItem As Archivo In guardarArchivos
fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave)
@@ -338,7 +339,7 @@ Partial Class Contratos_ContratoAvance
ObjContratos.Commit()
Alert("se guardo Correctamente")
End If
AnexoGral.Text = "[]"
'AnexoGral.Text = "[]"
ObjContratos.Dispose()
CargaddlAvance()
CargaDatosAvance()