formas pagamento mp20 II R

[cezarvm]

O pessoal quando uso esta função derruba meu programa, oque estou fazendo de errado?

BMRVerificaFormasPagamento()


FUNCTION BMRVerificaFormasPagamento()
local nretorno :=0
local cbuffer :=spac(3016)
local lretorno :=.t.
nretorno := Bematech_FI_Verificaformaspagamento(@cbuffer)
lRetorno := TrataRetorno(nRetorno,.T.)
IF ! lRetorno
BREAK
ENDIF