No artigo de hoje, vamos demonstrar em como acionar o recurso de copiar um produto, direto via código fonte.
Se você já teve a necessidade de abrir a tela para cópia de produto para algum usuário via código fonte, o processo seria o seguinte:
- Posicione no produto origem, através de DbSetOrder com MsSeek ou através de um DbGoTo
- Em seguida, acione um FWExecView passando a operação 9 de cópia
Caso você queira, dê um SetFunName também para definir como MATA010.
Abaixo o trecho do fonte de exemplo:
//Setando nome da função
SetFunName("MATA010")
lCopia := .T.
//Posiciona no produto e aciona a tela de cópia
DbSelectArea("SB1")
SB1->(DbGoTo(aRecAux[nLinAtu]))
//Acionando inclusao do produto
FWExecView('Cópia de Produto', 'MATA010', 9)
//Retornando função principal
SetFunName(cFunBkp)
lCopia := .F.
Bom pessoal, por hoje é só.
Abraços e até a próxima.
