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

Compra B-11648 error en total almacen contra prepoliza,GDiaz - 2024.08.09

Browse Source
This commit is contained in:
rakcsle
2024-08-13 09:07:15 -07:00
parent 1d4723f4fd
commit 60a7cd96cc
13 changed files with 696 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -113,6 +113,7 @@ Partial Class RepContratoDetalle
CveViajePasajero = 0
Session("FileExtension") = ""
ArchivoUpdate = ""
CargaGvBitacora()
End If
End Sub
@@ -298,7 +299,7 @@ Partial Class RepContratoDetalle
Try
If ObjContratos.UpdateContratos(CveContrato, LbFolio.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, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
Alert("Contrato actualizado correctamente")
End If
ObjContratos.Commit()
@@ -606,6 +607,19 @@ Partial Class RepContratoDetalle
End Sub
#End Region
#Region "Bitacora historial"
Private Sub CargaGvBitacora()
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
If CveContrato > 0 Then
Dim ObjGral As New ClsGenerales()
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
GvBitacora.DataSource = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If
GvBitacora.DataBind()
End Sub
#End Region
End Class