se agrego la columna de CveUsuarioModifico a las tablas de PrePoliza y prepolizadetalle
This commit is contained in:
Antonio Gonzalez
@@ -1533,7 +1533,7 @@ Partial Class Compras_Compras
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||
TabActivosFijos.Visible = False
|
||||
VerRefacturacion.Visible = False
|
||||
liServicios.Visible = False
|
||||
'liServicios.Visible = False
|
||||
DivConsignaciones.Visible = False
|
||||
End If
|
||||
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
|
||||
@@ -9545,7 +9545,7 @@ Partial Class Compras_Compras
|
||||
Retorno = False
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
Retorno = False
|
||||
End If
|
||||
End If
|
||||
@@ -9987,7 +9987,7 @@ Partial Class Compras_Compras
|
||||
Retorno = False
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
Retorno = False
|
||||
End If
|
||||
End If
|
||||
@@ -14642,7 +14642,7 @@ Partial Class Compras_Compras
|
||||
dt = ObjContabilidad.DtResultados
|
||||
|
||||
For Each dr As DataRow In dt.Rows
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0) Then
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
ErrorCancelar = True : Exit For
|
||||
End If
|
||||
Next
|
||||
@@ -15892,71 +15892,71 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
|
||||
If DdlTipo.SelectedValue.ToEntero = 1 Then
|
||||
'POR SI LLEGARA A TRONAR
|
||||
If DtServicios Is Nothing Then CreaDTServicios()
|
||||
DtServicios.Rows.Clear()
|
||||
|
||||
'POR SI LLEGARA A TRONAR
|
||||
If DtServicios Is Nothing Then CreaDTServicios()
|
||||
DtServicios.Rows.Clear()
|
||||
Dim objps As New ClsProductosServicios
|
||||
Dim dr As DataRow
|
||||
dvFacturas.Visible = False
|
||||
GvFacturas.Visible = False
|
||||
|
||||
Dim objps As New ClsProductosServicios
|
||||
Dim dr As DataRow
|
||||
dvFacturas.Visible = False
|
||||
GvFacturas.Visible = False
|
||||
|
||||
For Each DrGv As DataRow In TmpDT.Rows
|
||||
If DrGv("CvePS").ToString.ToEntero > 0 Then
|
||||
If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
dr = DtServicios.NewRow()
|
||||
dr("Consec") = DrGv("Consec").ToString.ToEntero
|
||||
dr("Total") = DrGv("Total").ToString.ToDecimal
|
||||
dr("CvePS") = DrGv("CvePS").ToString.ToEntero
|
||||
dr("PS") = DrGv("PS").ToString
|
||||
DtServicios.Rows.Add(dr)
|
||||
End If
|
||||
For Each DrGv As DataRow In TmpDT.Rows
|
||||
If DrGv("CvePS").ToString.ToEntero > 0 Then
|
||||
If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
dr = DtServicios.NewRow()
|
||||
dr("Consec") = DrGv("Consec").ToString.ToEntero
|
||||
dr("Total") = DrGv("Total").ToString.ToDecimal
|
||||
dr("CvePS") = DrGv("CvePS").ToString.ToEntero
|
||||
dr("PS") = DrGv("PS").ToString
|
||||
DtServicios.Rows.Add(dr)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018
|
||||
'For Each gvr As GridViewRow In GvPS.Rows
|
||||
' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' dr = DtServicios.NewRow()
|
||||
' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero
|
||||
' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal
|
||||
' dr("PS") = gvr.DataKey("PS").ToString
|
||||
' DtServicios.Rows.Add(dr)
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
objps.Dispose()
|
||||
|
||||
If DtServicios.Rows.Count > 0 Then
|
||||
GVServicios.DataSource = DtServicios
|
||||
GVServicios.DataBind()
|
||||
GVServicios.Visible = True
|
||||
Else
|
||||
GVServicios.DataSource = Nothing
|
||||
GVServicios.DataBind()
|
||||
End If
|
||||
Next
|
||||
|
||||
UpGVServicios.Update()
|
||||
UpFacturas.Update()
|
||||
UPGVFacturas.Update()
|
||||
|
||||
ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
|
||||
GVServicios.Visible = False
|
||||
dvFacturas.Visible = True
|
||||
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedores.DataBind()
|
||||
DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpFacturas.Update()
|
||||
UpGVServicios.Update()
|
||||
|
||||
'[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018
|
||||
'For Each gvr As GridViewRow In GvPS.Rows
|
||||
' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' dr = DtServicios.NewRow()
|
||||
' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero
|
||||
' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal
|
||||
' dr("PS") = gvr.DataKey("PS").ToString
|
||||
' DtServicios.Rows.Add(dr)
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
objps.Dispose()
|
||||
|
||||
If DtServicios.Rows.Count > 0 Then
|
||||
GVServicios.DataSource = DtServicios
|
||||
GVServicios.DataBind()
|
||||
GVServicios.Visible = True
|
||||
Else
|
||||
GVServicios.DataSource = Nothing
|
||||
GVServicios.DataBind()
|
||||
End If
|
||||
|
||||
UpGVServicios.Update()
|
||||
UpFacturas.Update()
|
||||
UPGVFacturas.Update()
|
||||
'If DdlTipo.SelectedValue.ToEntero = 1 Then
|
||||
|
||||
|
||||
'ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
|
||||
' GVServicios.Visible = False
|
||||
' dvFacturas.Visible = True
|
||||
' DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
' DdlProveedores.DataBind()
|
||||
' DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' UpFacturas.Update()
|
||||
' UpGVServicios.Update()
|
||||
|
||||
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
|
||||
@@ -16212,7 +16212,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
liServicios.Visible = True
|
||||
'liServicios.Visible = True
|
||||
liFletesImportaciones.Visible = True
|
||||
End If
|
||||
|
||||
@@ -20040,6 +20040,17 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub RblGastosVincularCrear_Click(sender As Object, e As EventArgs)
|
||||
Dim MostrarGastosServicios As Boolean = RblGastosVincularCrear.SelectedValue = "1"
|
||||
|
||||
DivGastosyServicios.Visible = MostrarGastosServicios
|
||||
DivGastosyServiciosFooter.Visible = MostrarGastosServicios
|
||||
|
||||
DivVincularCrear.Visible = Not MostrarGastosServicios
|
||||
DivVincularCrearFooter.Visible = Not MostrarGastosServicios
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user