Esse código não vai funcionar no Harbour devido ao fato de tentar colocar no GET ativo um valor diferente (o campo é numérico e você tenta colocar um campo caracter).
Observe que WCOD := 0, ou seja, minha variável é numérica! Se fosse caracter aí sim ficaria como você explicou no seu exemplo. Ambos os casos funcionam!
Additional uncaught exception thrown while handling exception.
Original
PDOException: SQLSTATE[HY000]: General error: 2006 MySQL server has gone away: SELECT 1 AS expression
FROM
{variable} variable
WHERE ( (name = :db_condition_placeholder_0) ); Array
(
[:db_condition_placeholder_0] => cron_last
)
in variable_set() (line 1313 of /home/storage/b/1e/df/linguagemclipper1/public_html/includes/bootstrap.inc).
PDOException: SQLSTATE[HY000]: General error: 2006 MySQL server has gone away: DELETE FROM {semaphore}
WHERE (value = :db_condition_placeholder_0) ; Array
(
[:db_condition_placeholder_0] => 72027631767ee6cef894186.53038596
)
in lock_release_all() (line 288 of /home/storage/b/1e/df/linguagemclipper1/public_html/includes/lock.inc).
:background_color(white)/hotmart/product_contents/b449f350-1ac9-4d8b-a258-f8020ec09fba/capa.png "Este é um produto da Hotmart! Saiba mais.")
Comentários
Não funciona no Harbour
Comment:
Esse código não vai funcionar no Harbour devido ao fato de tentar colocar no GET ativo um valor diferente (o campo é numérico e você tenta colocar um campo caracter).
A solução é:
WCOD := SPACE( 6 )
@ 10,10 SAY "CODIGO:" GET WCOD PICT "999999" VALID EVAL( { || WCOD := STRZERO( VAL( WCOD ), 6 ), .T.} )
//Outros GETs
READ
Ambos os casos estão corretos!
Comment:
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, DBFCDX e SIBRA para imprimir relatórios.
Páginas