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

se quitó la columna de CveCompra a la tabla de fletes

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-28 10:19:39 -07:00
parent 90cb6cb8c5
commit a3a0e6e36c
4 changed files with 275 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/Compras.aspx.vb
View File

@@ -19218,13 +19218,13 @@ Partial Class Compras_Compras
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
ObjInventario.Dispose()
Exit Sub
End If
End If
'If Dr IsNot Nothing Then
' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
' ObjInventario.Dispose()
' Exit Sub
' End If
'End If
ObjInventario.Dispose()
End If
@@ -19257,8 +19257,11 @@ Partial Class Compras_Compras
If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
ErrorTrans = True
End If
If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then
ErrorTrans = True
End If
Else
ErrorTrans = True
ErrorTrans = True
End If
Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then