#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Date.au3>
#include <editconstants.au3>
#include <listviewconstants.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <guilistview.au3>
#include <Word.au3>
#include <GuiImageList.au3>
#include <Timers.au3>
#include <GuiListBox.au3>
#include <GuiButton.au3>
#include <ComboConstants.au3>
#include <misc.au3>
#include <Word.au3>
#include <MPDF_UDF.au3>
#include <GUIComboBox.au3>
#include <Constants.au3>
#include <DateTimeConstants.au3>
#include <file.au3>
#include <array.au3>
#include <INet.au3>
#include <Process.au3>
#include <ColorPicker.au3>
#include <WinAPI.au3>
#Include <Excel.au3>

;#RequireAdmin

Opt("GuiOnEventMode", 1)
Opt("GUICloseOnESC", 0)


Global $__MonitorList[1][5]
Global $Configfile = @scriptdir & "\data\config.ini"
Global $MenuItem8,$Input1
Global $VersionBuild = "20120727" ;YEAR|MON|DAY
Global $Studioversion = "0.1 Alpha"
GLOBAL $ERSTELLUNGSTAG = "27.07.2012 (" & $VersionBuild & ")"
Global $Studiofenster
Global $closeaction = _Config_Read("closeaction", "close")
Global $AskExit = _Config_Read("askexit", "true")
Global $enablelogo = _Config_Read("enablelogo", "true")
Global $Languagefile = _Config_Read("language", "Italiano.lng")
Global $Runonmonitor ;= _Config_Read("runonmonitor", "1")

;Startup Logo
Global Const $AC_SRC_ALPHA = 1
_GDIPlus_Startup()
$pngX = @ScriptDir & "\Data\startup.png"
Global $hImagestartup = _GDIPlus_ImageLoadFromFile($pngX)
$width = _GDIPlus_ImageGetWidth($hImagestartup)
$height = _GDIPlus_ImageGetHeight($hImagestartup)
Global $Logo_PNG = GUICreate("", $width, $height, -1, -1, $WS_POPUP, bitor($WS_EX_LAYERED, $WS_EX_TOOLWINDOW))
SetBitmap($Logo_PNG, $hImagestartup, 0)
GUISetState()
WinSetOnTop($Logo_PNG, "", 1)
Global $controlGui_startup = GUICreate("", $width, $height, -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD, $WS_EX_TOOLWINDOW), $Logo_PNG)
GUISetBkColor(0xFFFFFF) ; => hintergrund ebenfalls durchsichtig, damit die buttons direkt auf das Hintergrundbild gesetzt werden
_WinAPI_SetLayeredWindowAttributes($controlGui_startup, 0xFFFFFF)
;$startup_progress = GUICtrlCreateProgress(260, 290, 100, 10)
GUICtrlCreateLabel($Studioversion & @crlf & $VersionBuild, 240, 275, 295, 25, 2, -1)
GUICtrlSetFont(-1, 8.5, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$startup_text = GUICtrlCreateLabel("", 100, 250, 430, 25, 1, -1)
GUICtrlSetFont(-1, 8.5, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
Global $controlGui_ueber_GUI = GUICreate("", $width, $height, -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD, $WS_EX_TOOLWINDOW), $Logo_PNG)
GUISetBkColor(0xFFFFFF) ; => hintergrund ebenfalls durchsichtig, damit die buttons direkt auf das Hintergrundbild gesetzt werden
_WinAPI_SetLayeredWindowAttributes($controlGui_ueber_GUI, 0xFFFFFF)
$ueber_txt = GUICtrlCreateLabel("", 200, 220, 335, 70, 2, -1)
GUICtrlSetFont(-1, 8.5, 800, 0, "Arial")
;GUICtrlCreateIcon($smallIconsdll, 132, 520, 50, 16, 16)
#include <Studio_Addons.au3>
GUICtrlSetOnEvent(-1, "_hide_Info")
#include <Addons.au3>


_CenterOnMonitor($Logo_PNG, "", $Runonmonitor)

;Startup Ani
SetBitmap($Logo_PNG, $hImagestartup, 0)
if $enablelogo = "true" then
	$alpha = 0
	while 1
		$alpha = $alpha + 10
		if $alpha > 255 then
			$alpha = 255
			ExitLoop

		endif
		SetBitmap($Logo_PNG, $hImagestartup, $alpha)
	WEnd
	SetBitmap($Logo_PNG, $hImagestartup, 255)
	GUISetState(@SW_SHOW, $controlGui_startup)
	;guictrlsetdata($startup_progress, 10)
sleep(2000)
endif
_Fadeout_logo()

_anagraficaclienti()



Global $c
Global $dittaAC,$viaAC,$cittaAC,$provinciaAC,$mailAC,$cellAC,$pivaAC,$cdifiAC,$tellAC,$faxAC,$capAC,$ditta2AC,$via2AC,$citta2AC,$provincia2AC,$mail2AC,$cell2AC,$piva2AC
Global $cdfis2AC,$tell2AC,$fax2AC,$cap2AC,$ibanAC,$swiftAC,$bancaAC
Global $nome_op,$via_op,$citta_op,$provincia_op,$mail_op,$cell_op,$piva_op,$cdfi_op,$tell_op,$fax_op,$cap_op,$nome_leg,$via_leg,$citta_leg,$prov_leg,$mail_leg,$cell_leg
Global $piva_leg,$cdfi_leg,$tell_leg,$fax_leg,$cap_leg,$iban,$swift,$banca,$file_xls,$riga

Func _anagraficaclienti()
	Local $var = IniRead(@ScriptDir &"\Config.ini", "GlobalConfig", "key1", "NotFound")

	if $var <> '' Then
		$k = 0 ;  questa variabile a zero serve per quando passo da anagrafica clienti a fatture di vendita e in listcorpofatt non scazza i prodotti
	GUIDelete("GEST")
	$Form1 = GUICreate("GEST -- Anagrafica Clienti", 1075, 675, 150, 4);, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS))
	$Group1 = GUICtrlCreateGroup("Anagrafica Cliente", 15, 11, 1057, 633)
	$Group2 = GUICtrlCreateGroup("Sede Operativa", 31, 51, 217, 505)

	$dittaAC = GUICtrlCreateInput("", 47, 91, 185, 21)

	$viaAC = GUICtrlCreateInput("", 47, 130, 185, 21)
	$cittaAC = GUICtrlCreateInput("", 47, 171, 185, 21)
	$provinciaAC = GUICtrlCreateInput("", 47, 213, 185, 21)
	$mailAC = GUICtrlCreateInput("", 47, 254, 185, 21)
	$cellAC = GUICtrlCreateInput("", 47, 296, 185, 21)
	$pivaAC = GUICtrlCreateInput("", 47, 341, 185, 21)
	$cdifiAC = GUICtrlCreateInput("", 47, 384, 185, 21)
	$tellAC = GUICtrlCreateInput("", 47, 427, 185, 21)
	$faxAC = GUICtrlCreateInput("", 47, 472, 185, 21)
	$capAC = GUICtrlCreateInput("", 47, 522, 65, 21)

	$Label1 = GUICtrlCreateLabel("Ragione Sociale", 47, 74, 82, 17)
	$Label2 = GUICtrlCreateLabel("Via", 47, 113, 19, 17)
	$Label3 = GUICtrlCreateLabel("Cittą", 47, 154, 25, 17)
	$Label4 = GUICtrlCreateLabel("Provincia", 47, 196, 48, 17)
	$Label5 = GUICtrlCreateLabel("Mail", 47, 235, 23, 17)
	$Label6 = GUICtrlCreateLabel("Cell", 47, 279, 21, 17)
	$Label7 = GUICtrlCreateLabel("P.Iva", 47, 323, 29, 17)
	$Label8 = GUICtrlCreateLabel("C.d.Fis", 47, 367, 36, 17)
	$Label9 = GUICtrlCreateLabel("Tell", 47, 410, 21, 17)
	$Label10 = GUICtrlCreateLabel("Fax", 47, 451, 21, 17)
	$Label11 = GUICtrlCreateLabel("Cap", 47, 499, 23, 17)

	$Group3 = GUICtrlCreateGroup("Sede Legale", 257, 51, 217, 505)

	$ditta2AC = GUICtrlCreateInput("", 273, 91, 185, 21)
	$via2AC = GUICtrlCreateInput("", 273, 130, 185, 21)
	$citta2AC = GUICtrlCreateInput("", 273, 171, 185, 21)
	$provincia2AC = GUICtrlCreateInput("", 273, 213, 185, 21)
	$mail2AC = GUICtrlCreateInput("", 273, 254, 185, 21)
	$cell2AC = GUICtrlCreateInput("", 273, 296, 185, 21)
	$piva2AC = GUICtrlCreateInput("", 273, 341, 185, 21)
	$cdfis2AC = GUICtrlCreateInput("", 273, 384, 185, 21)
	$tell2AC = GUICtrlCreateInput("", 273, 427, 185, 21)
	$fax2AC = GUICtrlCreateInput("", 273, 472, 185, 21)
	$cap2AC = GUICtrlCreateInput("", 273, 522, 65, 21)

	$Label12 = GUICtrlCreateLabel("Ragione Sociale", 273, 74, 82, 17)
	$Label13 = GUICtrlCreateLabel("Via", 273, 113, 19, 17)
	$Label14 = GUICtrlCreateLabel("Cittą", 273, 154, 25, 17)
	$Label15 = GUICtrlCreateLabel("Provincia", 273, 196, 48, 17)
	$Label16 = GUICtrlCreateLabel("Mail", 273, 235, 23, 17)
	$Label17 = GUICtrlCreateLabel("Cell", 273, 279, 21, 17)
	$Label18 = GUICtrlCreateLabel("P.Iva", 273, 323, 29, 17)
	$Label19 = GUICtrlCreateLabel("C.d.Fis", 273, 367, 36, 17)
	$Label20 = GUICtrlCreateLabel("Tell", 273, 410, 21, 17)
	$Label21 = GUICtrlCreateLabel("Fax", 273, 451, 21, 17)
	$Label22 = GUICtrlCreateLabel("Cap", 273, 499, 23, 17)

	$Checkbox1 = GUICtrlCreateCheckbox("Se Uguale", 257, 26, 97, 17)

	$Group4 = GUICtrlCreateGroup("Coordinate Bancarie", 31, 563, 443, 73)
	$Label23 = GUICtrlCreateLabel("Banca", 39, 585, 35, 17)
	$ibanAC = GUICtrlCreateInput("", 175, 603, 169, 21)
	$Label24 = GUICtrlCreateLabel("Iban", 175, 585, 25, 17)
	$swiftAC = GUICtrlCreateInput("", 359, 602, 105, 21)
	$Label25 = GUICtrlCreateLabel("Swift", 359, 585, 27, 17)
	$bancaAC = GUICtrlCreateInput("", 39, 603, 121, 21)

	$EscConfigAC = GUICtrlCreateButton("Esci", 989, 607, 75, 25, 0)
	$InConfigAC = GUICtrlCreateButton("Inserisci", 899, 607, 75, 25, 0)

	$Group5 = GUICtrlCreateGroup("Anagrafica ", 491, 51, 569, 505)
	$List1AC = GUICtrlCreateListView("Nome o Ditta|Mail|Telefono|Cell|Indirizzo|Cittą|Fax|Cod.DB", 501, 76, 545, 409, $LVS_EX_GRIDLINES)
	_GUICtrlListView_SetExtendedListViewStyle($List1AC, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_SUBITEMIMAGES)) ; questa stringa fa la griglia stile excel
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) ; nome ditta
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) ; mail
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 80) ; telefono
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 80) ; cell
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100) ; indirizzo
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 80) ; citta
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) ; fax
	GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 30) ; cod.db
	$EliminaAC = GUICtrlCreateButton("Elimina", 872, 507, 75, 25, 0)
	$Button7AC = GUICtrlCreateButton("Visualizza", 971, 507, 75, 25, 0)
	$Button8AC = GUICtrlCreateButton("Cerca", 507, 507, 75, 21, 0)
	$Input6AC = GUICtrlCreateInput("", 595, 507, 169, 21)
	;$Ricordaredit = GUICtrlCreateEdit("", 496, 592, 153, 41, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
	;$PostIT = GUICtrlCreateLabel("PostIT", 496, 568, 35, 17)
GUISetState(@SW_SHOW)

	_MenuFile()

GUISetState(@SW_SHOW)
	GUICtrlSetOnEvent($EscConfigAC, "_Close")
	GUICtrlSetOnEvent($InConfigAC, "_insert_anagrafica")
Else
	$c=0
	_opzioni()
	EndIf
EndFunc



Func _insert_anagrafica()

	$nome_op=GUICtrlRead($dittaAC)

	$via_op=GUICtrlRead($viaAC)
	$citta_op=GUICtrlRead($cittaAC)
	$provincia_op=GUICtrlRead($provinciaAC)
	$mail_op=GUICtrlRead($mailAC)
	$cell_op=GUICtrlRead($cellAC)
	$piva_op=GUICtrlRead($pivaAC)
	$cdfi_op=GUICtrlRead($cdifiAC)
	$tell_op=GUICtrlRead($tellAC)
	$fax_op=GUICtrlRead($faxAC)
	$cap_op=GUICtrlRead($capAC)
	$nome_leg=GUICtrlRead($ditta2AC)
	$via_leg=GUICtrlRead($via2AC)
	$citta_leg=GUICtrlRead($citta2AC)
	$prov_leg=GUICtrlRead($provincia2AC)
	$mail_leg=GUICtrlRead($mail2AC)
	$cell_leg=GUICtrlRead($cell2AC)
	$piva_leg=GUICtrlRead($piva2AC)
	$cdfi_leg=GUICtrlRead($cdfis2AC)
	$tell_leg=GUICtrlRead($tell2AC)
	$fax_leg=GUICtrlRead($fax2AC)
	$cap_leg=GUICtrlRead($cap2AC)
	$iban=GUICtrlRead($ibanAC)
	$swift=GUICtrlRead($swiftAC)
	$banca=GUICtrlRead($bancaAC)

MsgBox(0,'',$nome_op)

$file_xls=_ExcelBookOpen(@ScriptDir & '\Data\Anagrafica_Clienti.xls',1)
If @error = 1 Then
    MsgBox(262144, "Errore!", "impossibile Creare un file Xls")
    Exit
ElseIf @error = 2 Then
    MsgBox(262144, "Errore!", "il File anagrafica_clienti.xls  non Esiste!, Devi crearne uno")
    Exit
EndIf

do
	$riga=$riga+1
$lettura_riga=_ExcelReadCell($file_xls,$riga,1)

Until $lettura_riga = ''

_ExcelWriteCell($file_xls,$nome_op,$riga,1)
	EndFunc




Func _opzioni()

$Form3 = GUICreate("Gest -- Opzioni", 502, 177, 268, 119)
$Group1 = GUICtrlCreateGroup("Opzioni Generali", 8, 16, 489, 153)
$Input1 = GUICtrlCreateInput("", 24, 72, 449, 21)
$Label1 = GUICtrlCreateLabel("Percorso Cartelle Clienti", 24, 48, 115, 17)
$Button1 = GUICtrlCreateButton("Apri", 392, 104, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Salva", 392, 136, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

GUIctrlSetOnEvent($MenuItem8, "_insert_path")
GUIctrlSetOnEvent($Button1, "_Apri_folder")
GUIctrlSetOnEvent($Button2, "_Salva_config")
GUISetOnEvent($GUI_EVENT_CLOSE, "_del_opzioni")
	EndFunc


Func _del_opzioni()
	guidelete('Gest -- Opzioni')
	EndFunc
Func _Salva_config()

if $c <> 0 Then
	Local $path=GUICtrlRead($Input1)
	IniWrite(@ScriptDir &"\Config.ini", "GlobalConfig", "key1", $path)
	GUIDelete('Gest -- Opzioni')
Else
	Local $path=GUICtrlRead($Input1)
	IniWrite(@ScriptDir &"\Config.ini", "GlobalConfig", "key1", $path)
	GUIDelete('Gest -- Opzioni')
	_anagraficaclienti()
EndIf

	EndFunc

Func _Apri_folder()
$cartella = FileSelectFolder("Scegli la Cartella.", "",1)
GUICtrlSetData($Input1, $cartella)

	EndFunc

Func _insert_path()




	EndFunc


Func _MenuFile()
	$MenuItem3 = GUICtrlCreateMenu("&File")
	$MenuItem6 = GUICtrlCreateMenuItem("Opzioni", $MenuItem3)
	$MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem3)
	$MenuItem8 = GUICtrlCreateMenuItem("Esci", $MenuItem3)


	GUISetOnEvent($GUI_EVENT_CLOSE, "_Close")
	GUIctrlSetOnEvent($MenuItem8, "_Close")
	GUIctrlSetOnEvent($MenuItem6, "_opzioni")
	EndFunc



func _Get_langstr($str)
$get = iniread(@scriptdir&"\data\language\"&$Languagefile,"RECORDER","str"&$str,"#LANGUAGE_ERROR#ID#"&$str)
return $get
EndFunc


func _Config_Read($key, $errorkey)
	$i = iniread($Configfile, "config", $key, $errorkey)
	return $i
EndFunc
;============= chiusura programma
Func _close()
	Exit
EndFunc   ;==>_close

;===============================================================
;Keep the GUI alive
;===============================================================
While 1
	Sleep(1000)
WEnd