***Zona franca***

A Mares.
Aborro, ingoi ogni or roba!!

CHE FICO M'E' VENUTO.
GIURO MAI PROVATO A FARLI!!!!
o-o

valerio188 ha scritto:

'sera mares

Clicca per allargare...

I re lavo' Valerio
(antipodo opposto palindromico, si prende l'ultima lettera, si sposta all'inizio e si legge al contrario)

geppo960 ha scritto:

A Mares.
Aborro, ingoi ogni or roba!!

CHE FICO M'E' VENUTO.
GIURO MAI PROVATO A FARLI!!!!
o-o

Clicca per allargare...

bravo!
o-o

Questo mi è piaciuto, oltre ai Vostri s'intenda:"E la maga caga male"!

RED HOT SPEXY ha scritto:

Questo mi è piaciuto, oltre ai Vostri s'intenda:"E la maga caga male"!

Clicca per allargare...

Povera maga!!! consiglio apposita pomata.

geppo960 ha scritto:

Povera maga!!! consiglio apposita pomata.

Clicca per allargare...

[FONT=Verdana, Arial, Helvetica, sans-serif]El Pube e' un pilota piazzista volante. Quando atterra e' felice, quando vola e' un signor pilota...Ay ay ay...[/FONT]

RED HOT SPEXY ha scritto:

[FONT=Verdana, Arial, Helvetica, sans-serif]El Pube e' un pilota piazzista volante. Quando atterra e' felice, quando vola e' un signor pilota...Ay ay ay...[/FONT]

Clicca per allargare...

Questa nun l'ho capita

...Elio e le storie tese....

////////

>>>>>>>>>>>>>>>>>>>>>>

............

Function AggBook(TIPOCAM, TipoFun As String, DAL As Date, AL As Date, TipoRic As String, Qta As Integer) As Integer
'Aggiorna il Booking in modalità diverse a secondo del flag TipoFun passato, ovvero:
' "-+" Toglie al campo identificato da TipoRic e Somma in Disponibili
' "+-" Somma al campo identificato da TipoRic e Toglie a Disponibili
' "++" Somma solamente al campo TipoRic
' "--" Toglie solamente al campo TipoRic
' "??" Ritorna la disponibilità del giorno richiesto
' "##" Imposta il valore nel campo TipoRic
Dim StrSql As String
Dim Camposql As String
Dim StrFissa As String
StrFissa = " WHERE BOBOOK.[DATA] BETWEEN " & DateSql(DAL) & " AND " & DateSql(AL) & " AND BOBOOK.[TIPO_CAM] = " & Cvs(TIPOCAM)
Select Case TipoRic
Case "OCC": Camposql = " BOBOOK.[OCCUPATE] "
Case "POS": Camposql = " BOBOOK.[POSSIBILI] "
Case "PRE": Camposql = " BOBOOK.[PRENOTATE] "
Case "IND": Camposql = " BOBOOK.[PREN-IND] "
Case "GRT": Camposql = " BOBOOK.[PREN-GR-TUR] "
Case "GRL": Camposql = " BOBOOK.[PREN-GR-LAV] "
Case "NOS": Camposql = " BOBOOK.[NO_SHOW] "
Case "INA": Camposql = " BOBOOK.[INAGIBILI] "
Case "POS": Camposql = " BOBOOK.[POSSIBILI] "
Case "ATT": Camposql = " BOBOOK.[LISTA_ATT] "
Case "DIS": Camposql = " BOBOOK.[DISPONIBILI] "
'Case "NON": CampoSQL = " BOBOOK.[NO_RES] "
Case Else: Exit Function
End Select

Select Case TipoFun
Case "++"
StrSql = "UPDATE BOBOOK SET "
StrSql = StrSql & Camposql & "=" & Camposql & " + " & Qta & StrFissa
DoCmd.RunSQL (StrSql)
Case "--"
StrSql = "UPDATE BOBOOK SET "
StrSql = StrSql & Camposql & "=" & Camposql & " - " & Qta & StrFissa
DoCmd.RunSQL (StrSql)
Case "+-"
StrSql = "UPDATE BOBOOK SET "
StrSql = StrSql & Camposql & "=" & Camposql & "+" & Qta _
& ", BOBOOK.[DISPONIBILI]=BOBOOK.[DISPONIBILI] - " & Qta _
& StrFissa
DoCmd.RunSQL (StrSql)
Case "-+"
StrSql = "UPDATE BOBOOK SET "
StrSql = StrSql & Camposql & "=" & Camposql & "-" & Qta _
& ", BOBOOK.[DISPONIBILI]=BOBOOK.[DISPONIBILI] + " & Qta _
& StrFissa
DoCmd.RunSQL (StrSql)
Case "??"
StrSql = "SELECT Sum(" & Camposql & ")" & StrFissa
Case "##"
StrSql = "UPDATE BOBOOK SET "
StrSql = StrSql & Camposql & "=" & Qta & StrFissa
DoCmd.RunSQL (StrSql)
Case Else
AggBook = 0
End Select

End Function

:-?

software venusiano..

....ehhhh....ora mi sento più tranquilla( e neanche tanto ).....

dolomia ha scritto:

software venusiano..

Clicca per allargare...

No Personaliano.

dolomia ha scritto:

software venusiano..

Clicca per allargare...

Venusia è la figlia di Rigel, l'anziano e turbolento vecchietto che lavora presso la fattoria "La Betulla Bianca". Il suo cuore inizia a battere per Actarus sin dal primo giorno in cui lo incontra, e proprio a causa di questo sentimento, soffrirà ogni volta che il suo amato dovrà partire in battaglia contro il nemico.

aoooooo!!! alla 24 ore me la portate pure a me sta robba che ve state a fumà

RED HOT SPEXY ha scritto:

Venusia è la figlia di Rigel, l'anziano e turbolento vecchietto che lavora presso la fattoria "La Betulla Bianca". Il suo cuore inizia a battere per Actarus sin dal primo giorno in cui lo incontra, e proprio a causa di questo sentimento, soffrirà ogni volta che il suo amato dovrà partire in battaglia contro il nemico.

Clicca per allargare...

Bellissimo Actarus....uno dei miei primi amori....
...ma non sono Venusia ehhhhh....