SELE NO
\nGO 1
\nIF RLOCK()
\nREPLACE NO WITH No+1
\nThisform.text2.value = No
\nUNLOCK
\nENDIF<\/p>\n
***************************************************************************************************************************
\n* Function : Running No.
\n* Use : Table -> RUNNO.DBF
\n* Example : ?PADL(RUNNO(‘RUNNO’,’CN’,.F.),7,’0′) && for Display New Runno no
\n* : ?PADL(RUNNO(‘RUNNO’,’CN’,.T.),7,’0′) && for Dispaly New Runno no and Update new Running No
\n***************************************************************************************************************************
\nFUNCTION RUNNO (cTABLENAME,cFIELDNAME,lFLDUPDATE)
\n* cTABLENAME = TABLE FOR RUNNING NO.
\n* cFIELDNAME = FIELDNAME FOR KEEP LAST RUNNO
\n* lFLDUPDATE = CONDITION FOR UPDATE FIELD
\nIF PARAMETERS() < 2
\nRETURN 0 && CANNOT GENERATE RUNNING NO
\nENDIF
\nIF PARAMETERS() = 2
\nlFLDUPDATE = .F.
\nENDIF
\nLOCAL nRUNNO
\nUSE (cTABLENAME) SHARED IN 0
\nSELECT (cTABLENAME)
\nDO WHILE !RLOCK()
\n* WAITTING FOR LOCK RECORD
\nENDDO
\nnRUNNO = &cFIELDNAME + 1
\nIF lFLDUPDATE
\nREPLACE &cFIELDNAME WITH nRUNNO
\nENDIF
\nUNLOCK
\nUSE IN (cTABLENAME)
\nRETURN nRUNNO
\nENDFUNC<\/p>\n
\u0e27\u0e34\u0e18\u0e35\u0e43\u0e0a\u0e49
\n====
\n\u0e01\u0e48\u0e2d\u0e19\u0e2d\u0e37\u0e48\u0e19\u0e15\u0e49\u0e2d\u0e07\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a \u0e2b\u0e21\u0e32\u0e22\u0e40\u0e25\u0e02 runno \u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19\u0e01\u0e47\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e1e\u0e34\u0e48\u0e21 record \u0e27\u0e48\u0e32\u0e07\u0e46 1 record
\n* \u0e16\u0e49\u0e32\u0e21\u0e35\u0e15\u0e31\u0e27\u0e04\u0e38\u0e21 \u0e2b\u0e25\u0e32\u0e22\u0e15\u0e31\u0e27 \u0e01\u0e47\u0e43\u0e0a\u0e49\u0e27\u0e34\u0e18\u0e35\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e40\u0e2d\u0e32 \u0e41\u0e15\u0e48 record \u0e15\u0e49\u0e2d\u0e07 \u0e21\u0e35 1 \u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19 \u0e40\u0e0a\u0e48\u0e19 \u0e2a\u0e21\u0e38\u0e15\u0e34\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e21\u0e35 runno \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a invoice \u0e41\u0e25\u0e30 credit note \u0e01\u0e47\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e23\u0e2d\u0e44\u0e27\u0e49\u0e40\u0e0a\u0e48\u0e19<\/p>\n
CREATE TABLE MYRUN (INV N (5,0),CN N (5,0) )
\n* \u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19 insert record \u0e27\u0e48\u0e32\u0e07\u0e46 1 record
\nINSERT INTO MYRUN(INV,CN) VALUES(0,0)<\/p>\n
\u0e40\u0e27\u0e25\u0e32\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e01\u0e47\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49 function \u0e14\u0e31\u0e07\u0e19\u0e35\u0e49<\/p>\n
?RUNNO(‘MYRUN’,’CN’) && \u0e08\u0e30\u0e43\u0e2b\u0e49\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19 numeric 1 \u0e41\u0e15\u0e48\u0e44\u0e21\u0e48\u0e21\u0e35\u0e01\u0e32\u0e23 update runno \u0e25\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e08\u0e23\u0e34\u0e07
\n?PADL(RUNNO(‘MYRUN’,’CN’),5,’0′) && \u0e43\u0e2b\u0e49\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19 ‘00001’ \u0e41\u0e15\u0e48\u0e44\u0e21\u0e48\u0e21\u0e35\u0e01\u0e32\u0e23 update runno \u0e25\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e08\u0e23\u0e34\u0e07<\/p>\n
?RUNNO(‘MYRUN’,’CN’,.T.) && \u0e08\u0e30\u0e43\u0e2b\u0e49\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19 numeric 1 \u0e41\u0e25\u0e49\u0e27\u0e17\u0e33\u0e01\u0e32\u0e23 update runno \u0e25\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e08\u0e23\u0e34\u0e07
\n?PADL(RUNNO(‘MYRUN’,’CN’,.T.),5,’0′) && \u0e43\u0e2b\u0e49\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19 ‘00001’ \u0e41\u0e25\u0e49\u0e27\u0e17\u0e33\u0e01\u0e32\u0e23 update runno \u0e25\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e08\u0e23\u0e34\u0e07<\/p>\n","protected":false},"excerpt":{"rendered":"
SELE NO GO 1 IF RLOCK() REPLACE NO WITH No+1 Thisform.text2.value = No UNLOCK ENDIF<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[13],"tags":[],"class_list":["post-23976","post","type-post","status-publish","format-standard","hentry","category-13"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p6cOVM-6eI","_links":{"self":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/23976","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=23976"}],"version-history":[{"count":2,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/23976\/revisions"}],"predecessor-version":[{"id":23978,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/23976\/revisions\/23978"}],"wp:attachment":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=23976"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=23976"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=23976"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}