Precisei utilizar esta funcionalidade, mas no módulo de compras. Não estou no Editor, mas sim em um form
, logo não posso utilizar Me.DocumentoCompra
.
Para isso estou a editar o documento que pretendo clonar, invocando a função ClonaObjecto
. Altero o Tipodoc
e actualizo mas está a dar um erro:
0:Erro não especificado
Qual é a forma correta de efetuar esta operação?
Dim objCopia As GcpBEDocumentoCompra
Set objCopia = New GcpBEDocumentoCompra
Dim objOrig As GcpBEDocumentoCompra
Set objOrig = Aplicacao.BSO.Comercial.Compras.Edita("000", "FPD", "2018", "8")
'Clona o objeto de origem
Set objCopia = PSO.FuncoesGlobais.ClonaObjecto(objOrig)
objCopia.TipoDoc = "FD"
BSO.Comercial.Compras.Actualiza objCopia
BSO.Comercial.Compras.Actualiza objOrig