Hi
I want to make a dialog box which, if a condition is met, does not show the ACCEPT or SAVE buttons. But it gives me error.
C:\Users\Usuario\Desktop\EIEL\EIELORACLE>Echo off
(aliviadero.mb:598) Unrecognized command: Control.
Sub ALIVIADERO_FORM
OnError GoTo etiquetaError
Dim dateFECHAC as Date
Dim dateFECHAM as Date
' conversion de la variable string en formato date
If strACTION="SHOW" Then
'si es inserción recogermos la fecha actual
dateFECHAC = CurDate()
dateFECHAM = CurDate()
Else
'si el campo fecha esta vacio mostramos la fecha actual para evitar errores
If strFECHAC="" Then
dateFECHAC = strFECHAC
Else
dateFECHAC = FormatDate$(strFECHAC)
End If
If strFECHAM="" Then
dateFECHAM = strFECHAM
Else
dateFECHAM = FormatDate$(strFECHAM)
End If
End If
Dialog
Title "ALIVIADERO"
Width 289 Height 290
Calling ALIVIADERO_CHECK_EDITION
'DECLARACION DE LAS LABEL Y CAMPOS
'FASE
Control StaticText
Title "*"
Position 5,4
Width 15 Height 9
Control StaticText
Title "FASE"
Position 13,4
Width 46 Height 9
Control EditText
Value strFASE
Position 89,3
Width 190 Height 12
ID ID_FASE Disable
'DENOMINACION
Control StaticText
Title "*"
Position 5,124
Width 15 Height 9
Control StaticText
Title "DENOMINACIÓN"
Position 13,124
Width 75 Height 9
Control EditText
Value strDENOMINACION
Position 89,123
Width 190 Height 12
ID ID_DENOMINACION
'DISPONE_ACU
Control StaticText
Title "*"
Position 5,139
Width 15 Height 9
Control StaticText
Title "DISPONE DE ACU."
Position 13,139
Width 75 Height 9
Control PopupMenu
Title gblAUX_DISPONIBLIDAD
Value strDISPONE_ACU
Position 89,138
Width 190 Height 12
ID ID_DISPONE_ACU
Control GroupBox
Title ""
Position 5, 154 Width 279 Height 2
'OBSERVACIONES
Control StaticText
Title "OBSERVACIONES"
Position 13,164
Width 75 Height 9
Control EditText
Value strOBSERVA
Position 89,162
Width 190 Height 12
ID ID_OBSERVA
Control GroupBox
Title ""
Position 5, 180 Width 279 Height 2
Control StaticText
Title "CREACIÓN DEL DATO"
Position 13,190
Width 80 Height 9
Control StaticText
Title "USUARIO"
Position 13,205
Width 40 Height 9
Control EditText
Value strUSUAC
Position 65,204
Width 80 Height 12
ID ID_AUDIT_USUAC
Disable
Control StaticText
Title "FECHA"
Position 13,220
Width 40 Height 9
Control EditText
Value dateFECHAC
Position 65,219
Width 80 Height 12
ID ID_AUDIT_FECHAC
Disable
Control StaticText
Title "MODIFICACIÓN ÚLTIMA DEL DATO"
Position 160,190
Width 120 Height 9
Control StaticText
Title "USUARIO"
Position 160,205
Width 40 Height 9
Control EditText
Value strUSUAM
Position 200,204
Width 80 Height 12
ID ID_AUDIT_USUAM
Disable
Control StaticText
Title "FECHA"
Position 160,220
Width 40 Height 9
Control EditText
Value dateFECHAM
Position 200,219
Width 80 Height 12
ID ID_AUDIT_FECHAM
Disable
Control StaticText
Title "* Datos obligatorios entrega al Ministerio"
Position 5,240
Width 190 Height 9
Control StaticText
Title "** Otros datos obligatorios"
Position 5,250
Width 190 Height 9
' Mostrar botones solo si strACTION no es 'VIEW'
If strACTION <> "VIEW" Then
'BOTONES DEL FORMULARIO
Control OkButton
Title "&ACEPTAR"
ID ID_ACEPTAR
Position 96,270
Width 50 Height 14
Calling ALIVIADERO_OK
Control CancelButton
Title "&CANCELAR"
Position 149,270
Width 50 Height 14
End If
Exit Sub
etiquetaError:
Note "ERROR : " + Chr$(13) & Chr$(10) + Error$()
End Sub
------------------------------
Mayca González Pérez
COMUNIDAD. AUT. REG MURCIA
------------------------------