Sub btg_report_non_fiscale_CheckedChange(Checked As Boolean)
'24/11/2016
If md_wifi.wifi_control=False Then
btg_report_non_fiscale.Checked=False
Return
End If
Try '!324 line
btg_chiusura_giornata.Checked=False
If Checked Then
Dim Title As String="STAMPA REPORT GIORNALIERO NON FISCALE!"
Dim Message As String="Attenzione eseguire la stampa report giornaliera?"
Dim MsgParam As t_MsgParam=Dialog.MyMsgBox(Message,Title,"Si","","No","?")
Dim risp As Int=Msgbox2(MsgParam.Message,MsgParam.Title,MsgParam.Positive,MsgParam.Cancel,MsgParam.Negative,Null)
'Wait For Msgbox_Result (risp As Int)
Select risp
Case DialogResponse.POSITIVE
'N.B. Comando 2003 funzona solamente con Demo CustomCom NO CON DemoSF
CallSubDelayed(Me,"ReportNonFiscale")
'ReportNonFiscale
Case Else
btg_report_non_fiscale.Checked=False
End Select
End If
Catch
Utility.SaveLog("Vista_400_chiusura.btg_report_non_fiscale_CheckedChange ERR= " & CRLF & LastException.Message)
End Try
End Sub