John,
I see the issue -- The time array is NOT an array of Time
using v13 (no Time array)
so I had to use a longint array, or a time variable which points out
the problem.
I believe it is:
Even though there is a TIME ARRAY() command, the underlying array is
not actually time but longint.
If you use code block 1 (below) you get an error that 4D was expecting
an alpha numeric argument (HH MM SS is longint); however, if you use
code block 2 there wis no error.
Code Block 1:
C_POINTER($1)
C_TEXT($val)
If (Count parameters>=1)
$val:=String($1->;HH MM SS)
ALERT($val)
Else
ARRAY LONGINT(ah_Time;1)
ah_Time{1}:=Current time
_TEST (->ah_Time{1})
End if
Code Block 2:
C_POINTER($1)
C_TEXT($val)
c_Time($Temp)
If (Count parameters>=1)
$val:=String($1->;HH MM SS)
ALERT($val)
Else
$Temp:=Current time
_TEST (->Temp)
End if
Chip
On Thu, 28 Feb 2019 08:38:22 -0600, John DeSoi via 4D_Tech wrote:
>
> C_POINTER($1)
> C_TEXT($val)
>
> If (Count parameters>=1)
> $val:=String($1->;HH MM SS)
> ALERT($val)
> Else
> ARRAY TIME(ah_Time;1)
> ah_Time{1}:=Current time
> _TEST (->ah_Time{1})
> End if
>
>
---------------
Gas is for washing parts
Alcohol is for drinkin'
Nitromethane is for racing
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
