Adrew,

This is my whole code in save button,


local laError[1],i
with thisform
select int_doc_vnd
? .Txc_TipoDoc.Value+.Txc_Armaz.value+.Txc_Serie.value+.Txc_Numdoc.value
replace;
c_TipoDoc with .Txc_TipoDoc.value;
c_armazem with .Txc_Armaz.value;
c_cod_ser with .Txc_Serie.value;
c_numdoc with .Txc_Numdoc.value
if !TableUpdate(1,.T.,"int_doc_vnd")
=aError(laError)
if vers(2) > 0
set step on
endif
endif


for i = 1 to alen(laError, 2)
? laError[1, i]
endfor

endwith

Thank's Joao