Perguntas Faturamento com forma de pagto cheque

Ate pensei em utulizar a SCV para determinas as formas

User Function M460FIM

Local _aArea := GetArea()

SE1->(dbsetorder(1))

If SE1->(dbSetOrder(1), dbSeek( xfilial("SE1") + SF2->F2_SERIE + SF2->F2_DOC ) )
While SE1->(!Eof()) .and. (SE1->E1_NUM == SF2->F2_DOC) .and. (SE1->E1_PREFIXO == SF2->F2_SERIE) .and. (SE1->E1_CLIENTE == SF2->F2_CLIENTE) .and. (SE1->E1_LOJA == SF2->F2_LOJA)
If RecLock("SE1",.F.)
// se existir na scv varias parcelas vai utilizar o FOR ou WHILE
// mas ai teria que encontrar tb a parcela na SE1
SE1->E1_FORMPG := POSICIONE("SCV",2,XFILIAL("SCV")+SC5->C5_NUM+PARCELA,"CV_FORMAPG")
MsUnlock()
Endif

SE1->( dbskip() )
Enddo
Endif
RestArea(_aArea)

Return .t.