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

Importaciones, correos clientes

Browse Source
This commit is contained in:
rakcsle
2023-09-05 00:51:29 -07:00
parent 36702136d8
commit a96922bd77
6 changed files with 85 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/RepImportaciones.aspx.vb
View File

@@ -29,9 +29,10 @@ Partial Class Compras_RepImportaciones
TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
TxtFechaF.Text = Date.Now.ToShortDateString
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1"
'DdlAF.DataSource = GlobalDTActivoFijos
'DdlAF.DataBind()
@@ -52,7 +53,7 @@ Partial Class Compras_RepImportaciones
If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1"
If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1"
If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then
If ObjImportaciones.GetImportaciones(-1, DdlProveedores.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then
DtImportaciones = ObjImportaciones.DtResultados
Else
Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError)