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

merge manual

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-02 12:55:11 -07:00
parent e1a5d171ba b67c3e9a52
commit 92f69f8b29
13 changed files with 3429 additions and 3327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Compras/Compras.aspx.vb
View File

@@ -4561,19 +4561,13 @@ Partial Class Compras_Compras
Case 237
Select Case FleteImportacionOpcion
Case 1
Dim Dr As DataRow = Nothing
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
ErrorOC = True
End If
Else
If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
ErrorOC = True
End If
''actualiza la compra para que no se surta en almacen. sino por el flete o importación
'If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
' ErrorOC = True
'End If
Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
ErrorOC = True
@@ -19272,22 +19266,13 @@ Partial Class Compras_Compras
Case 237
Select Case FleteImportacionOpcion
Case 1
Dim Dr As DataRow = Nothing
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Dr = ObjInventario.DtResultados.Rows(0)
End If
End If
If Dr IsNot Nothing Then
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
If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
ErrorTrans = True
End If
'''actualiza la compra para que no se surta en almacen. sino por el flete o importación
''If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
'' ErrorTrans = True
''End If
Case 2
If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
ErrorTrans = True