View Replies (1)
how to prevent a messagebox from displaying when i don't need it in some cases
  1. How-to
  2.  PowerBuilder
0 Votes
  1. hatem moalla
  2. PowerBuilder
  3. Wednesday, 28 February 2024 08:51 AM UTC

in my powerbuilder 19 project, it's all about article management. when i click on "new" button, it displays a dwc_article(freeform) empty and i have to insert all the article details(reference, name ...) and in itemfocuschanged event of dwc_article. i made sure to get a messagebox "valdiation error" when i insert a reference or name empty. the problem is, when i select a row in dwc_report (tabular) and click "update" it display the article details in dwc_aritcle (freeform) but then when i click on "new" button it display the validation error message box 3 times and i don't wanna it to display in this case.

*here is the script for itemfocuschanged event of dwc_article:

integer li_row
string ls_reference
string ls_name

li_row = This.GetRow()
 cb_3.Enabled = false
 cb_7.Enabled = false



	// Check if the focus is on the reference field
	if This.GetColumnName() <> "reference"  then
		 // Get the value of the reference field
		 ls_reference = This.GetItemString(li_row, "reference")
	
		 // Check if the reference field is empty or has more than 50 characters
		 if IsNull(ls_reference) or Trim(ls_reference) = "" or Len(ls_reference) > 50 then
			  MessageBox("Validation Error", "Reference field must not be empty and should have 50 characters or less.")
			  // Set focus back to the reference field
						 cb_3.Enabled = false
						 cb_7.Enabled = false
			  This.SetColumn("reference")
			  return 1 // Prevent focus change
		 
	else
		
	end if
	end if
	
	
	
	
	li_row = This.GetRow()
	
	// Check if the focus is on the name field
	if This.GetColumnName() <> "name" and This.GetColumnName() <> "reference" then
		 // Get the value of the name field
		 ls_name = This.GetItemString(li_row, "name")
		 cb_3.Enabled = false
		 cb_7.Enabled = false
	
		 // Check if the name field is empty or has more than 50 characters
		 if IsNull(ls_name) or Trim(ls_name) = "" or Len(ls_name) > 50 then
			  MessageBox("Validation Error", "Name field must not be empty and should have 50 characters or less.")
			  // Set focus back to the name field
			  This.SetColumn("name")
			  cb_3.Enabled = false
			  cb_7.Enabled = false
			  return 1 // Prevent focus change
		 
	else
		cb_3.Enabled = true
		cb_7.Enabled = true
		end if
	end if

	
	return 0

*here is the script of "new" button :

dwc_article.reset()
dwc_article.insertrow(0)
char reference
dwc_article.scrolltorow(dwc_article.insertrow(0))

// Scroll to the newly inserted row
long ll_new_row
ll_new_row = dwc_article.InsertRow(0)
dwc_article.ScrollToRow(ll_new_row)


// Get the current date
date ld_date_creation
ld_date_creation = today()

string ls_formatted_date
ls_formatted_date = String(ld_date_creation, "yyyy-mm-dd")

// Set the current date to the "date_de_creation" column
dwc_article.SetItem(ll_new_row, "date_de_creation", ls_formatted_date)

bl_btn_new_clicked = true


dwc_article.modify("reference.Protect='0'") // This removes input capability from all columns
	   dwc_article.modify("name.Protect='0'")
	   dwc_article.modify("prix.Protect='0'")
		 dwc_article.modify("date_de_creation.Protect='1'")

and here is the script for "update" button :

long ll_row
ll_row = dwc_report.GetSelectedRow(0) // Get the selected row index in dwc_report


if ll_row >= 0 then // If a row is selected
    // Clear existing data in dwc_article
    dwc_article.Reset()
	 
	 long ll_nextRow
    ll_nextRow = dwc_article.RowCount() + 1

    // Copy data from dwc_report to dwc_article
    dwc_report.RowsCopy(ll_row, ll_row, Primary!, dwc_article, ll_nextRow, Primary!)

    // Disable all inputs in dwc_article
    dwc_article.modify("reference.Protect='1'") 
    dwc_article.modify("name.Protect='0'")
    dwc_article.modify("prix.Protect='0'")
    dwc_article.modify("date_de_creation.Protect='1'")

    // Retrieve data in dwc_article to reflect changes
    //dwc_report.retrieve()
	//dwc_article.retrieve()
else
    MessageBox("No row selected", "Please select a row in the report")
end if

 

How safe is the /LARGEADDRESSAWARE flag for 32-bit PowerBuil... Webbrowser control is not loading PDF file when application ...
Responses (1)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.