' Il seguente frammento di codice clona un documento
' DW_Clona(DB,pTipo1,pTipo_Cont1,pNumero1,pTipo2,pTipo_Cont2,pNumero2,pPubblica,pData)
' pTipo1 -> Tipo del documento d'origine
' pTipo_Cont1 -> Tipo_Cont del documento d'origine
' pNumero1 -> Numero del documento d'origine
' pTipo2 -> Tipo del documento d'origine
' pTipo_Cont2 -> Tipo_Cont del documento di destinazione
' pNumero2 -> Numero del documento di destinazione
' pPubblica -> True = il documento viene pubblicato
' pData -> Data di redazione e di pubblicazione
' ritorna: "" se tutto è andato bene, altrimenti il messaggio d'errore
dim msg as string
msg = DW_Clona(form.GetDataBase(),"P", "ARC","005", "P", "ARC","031",true,Today())
if msg<>"" then
form.alert(msg)
else
form.alert("Clonazione effettuata con successo")
end if