Perguntas Função no Venda Assistida

Galera eu fiz essa função, mas é o seguinte quando eu coloco uma condição de pagamento diferente da A vista (001) o sistema muda a forma de pagamento para Cheque. No caso eu precisava que ela ficasse com FI (financiado)
Mas do jeito que esta, não ta dando certo alguém pode me ajudar?

Observação: já tentei com o campo LQ_FORMA no lugar do L4_FORMA também não obtive sucesso, depois dei um F1 na forma de pagamento e vi que o nome do campo é L4_FORMA
Segue imagem com campo que preciso alterar.

Eu to meio perdido porque a logica ta certa, mas não estou obtendo sucesso

#include 'protheus.ch'

user function VenColab()

local cFunc := POSICIONE("SA1",1,XFILIAL("SA1")+M->LQ_CLIENTE+LQ_LOJA,'A1_XFUNCIO')

if(cFunc == 'S')
LQ_CONDPG := '015'
L4_FORMA := 'FI'
endif
return ''

Galera seguinte eu fiz faz tempo vou colocar aqui talvez sirva futuramente pra alguém fazer um gatilho no sigaloja
a sacada esta aqui: aColsDet[n,aScan(aHeaderDet,{|x|alltrim(x[02])=="LR_CONDPG"})] que é igual fazer M->LQCONDPG em outros módulos, porém no loja o convencional não funciona, pois cada grid fica em um aCols diferente

Flw