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

Importaciones

Browse Source
This commit is contained in:
rakcsle
2023-09-02 11:10:47 -07:00
parent 246e49e4f0
commit b7a31013a9
9 changed files with 147 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Compras/Importaciones.aspx.vb
View File

@@ -58,8 +58,12 @@ Partial Class Compras_Importaciones
DtCompras = New DataTable
DtComprasVinculadas = New DataTable
DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlAduanal.DataBind()
'DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
'DdlAduanal.DataBind()
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1"
TxtFecha.Text = Now.ToShortDateString
End Sub
@@ -87,7 +91,9 @@ Partial Class Compras_Importaciones
TxtPedimento.Text = ObjImportaciones.DtResultados.Rows(0)("Pedimento").ToString
TxtDescripcion.Text = ObjImportaciones.DtResultados.Rows(0)("Descripcion").ToString
TxtFecha.Text = ObjImportaciones.DtResultados.Rows(0)("Fecha").ToString
DdlAduanal.SelectedValue = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString
'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
@@ -139,13 +145,14 @@ Partial Class Compras_Importaciones
Exit Sub
End If
Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ")
Dim ObjImp As New ClsCompras
ObjImp.IniciaTransacSQL()
Dim ErrorImportacion = False
If CveImportacion < 0 Then
CveImportacion = ObjImp.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcion.Text.Trim, DdlAduanal.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveImportacion > 0 Then
For Each dr As DataRow In DtCompras.Rows
@@ -168,7 +175,7 @@ Partial Class Compras_Importaciones
End If
Else
If Not ObjImp.UpdateImportacion(TxtPedimento.Text.Trim, CveImportacion, TxtDescripcion.Text, DdlAduanal.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If Not ObjImp.UpdateImportacion(Pedimento, CveImportacion, TxtDescripcion.Text, DdlProveedores.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorImportacion = True
End If
End If