Função Copiar Pedido de Venda MATA410

Bom dia Pessoal,

Tenho uma personalização que preciso criar uma função de copiar pedido de Venda MATA410. Estou tentando a função abaixo, mas não está dando certo. Alguém tem um exemplo ?

Static Function CopiarPV() Local aArea := GetArea() Private Inclui := .F. Private Altera := .F. Private Copiar := .T. Private nOpca := 1 Private cCadastro := "Pedido de Vendas" Private aRotina := {}

If !Empty((cAliasTmp)->C5_NUM) DbSelectArea('SC5') SC5->( DbSetOrder( 1 ) ) nRecno := SC5->(Recno()) SC5->( DbSeek( xFilial('SC5') + (cAliasTmp)->C5_NUM ) ) SC5->(a410Copia("SC5",nRecno,9)) //MATA410( Nil, Nil, Nil, Nil, "a410Copia" ) else FWAlertInfo("Atenção: Selecione um Pedido de Venda ! ", "Atenção!") EndIf RestArea(aArea) Return