-merge traspaso almacen

This commit is contained in:
2021-02-10 13:06:19 -07:00
56 changed files with 27541 additions and 14199 deletions

View File

@@ -7497,8 +7497,8 @@ Partial Class Ventas
If TxtKilometraje.Text.ToEntero() = 0 Then
'cuando es la clasificacion de llantas
Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
If FaltaObservacion = 20342 Then
Dim FaltaObservacion As Integer = TmpDT.MAX("CveClasificacion", "Clasificacion like '%Llanta%'").ToEntero '.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
If FaltaObservacion > 0 Then 'sino se ha especificado km cuando tiene al clasif llanta
Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If