Option Explicit ' --------------------------------------------------------------- ' Este script ilustra el uso de posExt para: ' 1.- Limitar el máximo numero de líneas de un documento de venta ' (factura, nota de entrega o cotizacion) ' 2.- Verificar si es permitido facturarle a un cliente en función ' del valor de su campo Status (Calificacion) ' lazpurua/21-Mar-2009 ' --------------------------------------------------------------- Dim isValid ' Requerida para devolver el resultado de la validacion Private Const MAX_LINEAS_FACTURA = 30 Public Sub frmFacturacionCompleta_GedObject_MayAddRow(pForm, pControl) If pForm.flxDetalles.Rows >= MAX_LINEAS_FACTURA + 1 Then mAdvertencia "No puede agregar mas lineas al documento" isValid = False End If End Sub ' ---------------------------------------------------------------- ' Determina si se le puede facturar (cotizar, despachar mercancia) ' a un cliente en función de su campo Status. ' Si el cliente está marcado como Irregular, se requiere una clave ' de supervisor. Si está marcado como Malo, no se permite la ope- ' racion. ' ---------------------------------------------------------------- Public Sub frmFacturacionCompleta_txCodigoCliente_LostFocus(pForm, pControl) Dim elCliente Set elCliente = pControl.Instance If Not elCliente Is Nothing Then If elCliente.Status = 1 Then If VerificarUsuario("Cliente irregular") < 5 Then isValid = False End If ElseIf elCLiente.Status = 2 Then msgBox "Cliente bloqueado" isValid = False End If End If End Sub