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

manejo sobre el usuario asignado, reporte cambios

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-02 18:16:32 -07:00
parent 2db71eddfa
commit e3b39d3d09
4 changed files with 55 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
OC/OC.aspx.vb
View File

@@ -817,6 +817,7 @@ Partial Class OC
End If
End If
MostrarUsuarioAsignado()
Me.Form.DefaultButton = ""
End Sub
@@ -3128,7 +3129,7 @@ Partial Class OC
Else
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
Promocion:=Promocion) Then
@@ -8038,6 +8039,13 @@ Partial Class OC
UpSolicitarAnticipo.Update()
End Sub
Private Sub MostrarUsuarioAsignado()
If CveUsuarioAsignado > 0 Then
PnlUsuarioYaAsignado.Visible = True
Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
LblUsuarioYaAsignado.Text = NombreUsuario
End If
End Sub
'Private Sub CargaVentaRelacionada()
' Dim GridViewPSAux As GridView = GvD
' Dim CveOCDetalle As New StringBuilder()