[Risolto] Avvisa se non è una fattura SDI

[Barakkino]

Buongiorno,
Dallo SDI (Sistema Di Interscambio Ag.Entrate) copio da un file PDF la fattura del fornitore, la incollo in un foglio OO (A1) e da qui poi ricavo i dati da manipolare.
Il mio quesito è: se per errore in A1 non venisse incollato il testo "FATTURA ELETTRONICA" è possibile creare un avviso di errore?
Grazie

Editato: Allegati cancellati, contengono dati sensibili? (Admin)

[charlie]

Ciao credo che i tuoi allegati contengano dati sensibili. Se mi sbaglio fammelo saper, grazie.

[Barakkino]

Ciao credo che i tuoi allegati contengano dati sensibili. Se mi sbaglio fammelo saper, grazie.

Grazie, Charlie della tua attenzione
Si tratta di una bolletta Consorzio Acque Potabili (CAP) i miei dati li ho cancellati tutti sono rimasti solo quelli dell'Ente che sono pubblici.

[charlie]

Ok, li allego nuovamente.

[Attilafdd]

Allego un esempio

Cattura Esempio 2.png (101.71 KiB) Visto 334 volte

[Barakkino]

Allego un esempio

Cattura Esempio 2.png

Grazie, Attilafdd
la tua applicazione funziona benissimo, ma io avrei preferito una macro che bloccasse "Incolla" con una finestra indicante il non avvenuto incollaggio. La mia richiesta è anche perché ho altre situazioni simili dove incollando in modo sbagliato (+ o - celle) comprometterebbe il risultato.

[Gaetanopr]

....ma io avrei preferito una macro che bloccasse "Incolla" con una finestra indicante il non avvenuto incollaggio. La mia richiesta è anche perché ho altre situazioni simili dove incollando in modo sbagliato (+ o - celle) comprometterebbe il risultato.

Al massimo puoi cancellare quello appena incollato se in A1 non è presente la scritta "FATTURA ELETTRONICA", questo perchè se prima non incolli il contenuto in memoria non puoi sapere cosa sia presente nell'area degli appunti.
Ho aggiunto 3 righe alla fine della macro presente nel tuo allegato

Codice: Seleziona tutto

sub Incolla
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "A"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Format"
args3(0).Value = 1

dispatcher.executeDispatch(document, ".uno:PasteSpecial", "", 0, args3())

iF ThisComponent.CurrentController.ActiveSheet.GetCellRangeByName("A1").String = "FATTURA ELETTRONICA" Then 
   dispatcher.executeDispatch(document, ".uno:Undo", "", 0, Array())
End If 

end sub

[Barakkino]

Grazie, Gaetanopr
Non so perché ma la macro non funziona. Forse perché c'è "Incolla Speciale" ?

[Gaetanopr]

Cosa non funziona? io ho semplicemente aggiunto 3 righe alla macro già esistente, le mie modifiche annullano l'operazione di incollaggio in caso in A1 sia presente la scritta FATTURA ELETTRONICA, rileggendo a te però serve il contrario!!(forse intendi questo per "non funziona") ti basta cambiare il segno = con diverso <>.

Codice: Seleziona tutto

iF ThisComponent.CurrentController.ActiveSheet.GetCellRangeByName("A1").String <> "FATTURA ELETTRONICA" Then 
   dispatcher.executeDispatch(document, ".uno:Undo", "", 0, Array())
End If 

[Barakkino]

Grazie Gaetano, sempre gentile

potevo arrivarci io,