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

compartilhar
  • Está dando algum erro? Já tentou de outra forma usar a própria Mata410 como teste?

    Victor Freidinger   15 de Feb de 2024
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl mata410 ou faça a sua própria pergunta.