Olá pessoal, segui fazendo provas para descobrir o que é o erro:
Error DBFNTX/1020 Tipo incorreto de dado: VL_SER
Para isso, eu fui acrescentando de a 2 os campos para ver desde onde começava o erro, e o que percebi que o problema esta no formato, por exemplo: quando eu deixei só 12 campos, e como último campo numérico o de 6:2 (6 inteiros,2dec) no deu erro:
Function grid_C500_colctrls()
Local aColumnControls
aColumnControls := { {'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','NUMERIC','999999999'} ,;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','999.99'} }
return aColumnControls
o usuário não podia acrescentar mais dÃgitos dos que correspondiam para cada campo, depois continuei acrescentando mais campos
Function grid_C500_colctrls()
Local aColumnControls
aColumnControls := { {'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','CHARACTER'} ,;
{'TEXTBOX','NUMERIC','999999999'} ,;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','CHARACTER'},;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','999.99'},;
{'TEXTBOX','NUMERIC','9999999999.99'} ,;
{'TEXTBOX','NUMERIC','9999999999.99'} }
return aColumnControls
E aà o programa deixa que o usuário no campo 12, em vez de continuar como no primeiro exemplo deixando que complete só (6:2), agora deixa que complete como os outros campos numéricos (13:2), existe alguma propriedade ou comando para controlar isso? já que me tinha acontecido o mesmo com um campo caracter de 40 dig, que logo de acrescentar outros campos numéricos, em vez de pedir como se fosse carater, passou a pedir como se fosse numérico, tomando o formato do seguinte campo.
Desde já obrigada pela ajuda!