Alpha Software Mobile Development Tools:   Alpha Anywhere    |   Alpha TransForm subscribe to our YouTube Channel  Follow Us on LinkedIn  Follow Us on Twitter  Follow Us on Facebook

Announcement

Collapse

The Alpha Software Forum Participation Guidelines

The Alpha Software Forum is a free forum created for Alpha Software Developer Community to ask for help, exchange ideas, and share solutions. Alpha Software strives to create an environment where all members of the community can feel safe to participate. In order to ensure the Alpha Software Forum is a place where all feel welcome, forum participants are expected to behave as follows:
  • Be professional in your conduct
  • Be kind to others
  • Be constructive when giving feedback
  • Be open to new ideas and suggestions
  • Stay on topic


Be sure all comments and threads you post are respectful. Posts that contain any of the following content will be considered a violation of your agreement as a member of the Alpha Software Forum Community and will be moderated:
  • Spam.
  • Vulgar language.
  • Quotes from private conversations without permission, including pricing and other sales related discussions.
  • Personal attacks, insults, or subtle put-downs.
  • Harassment, bullying, threatening, mocking, shaming, or deriding anyone.
  • Sexist, racist, homophobic, transphobic, ableist, or otherwise discriminatory jokes and language.
  • Sexually explicit or violent material, links, or language.
  • Pirated, hacked, or copyright-infringing material.
  • Encouraging of others to engage in the above behaviors.


If a thread or post is found to contain any of the content outlined above, a moderator may choose to take one of the following actions:
  • Remove the Post or Thread - the content is removed from the forum.
  • Place the User in Moderation - all posts and new threads must be approved by a moderator before they are posted.
  • Temporarily Ban the User - user is banned from forum for a period of time.
  • Permanently Ban the User - user is permanently banned from the forum.


Moderators may also rename posts and threads if they are too generic or do not property reflect the content.

Moderators may move threads if they have been posted in the incorrect forum.

Threads/Posts questioning specific moderator decisions or actions (such as "why was a user banned?") are not allowed and will be removed.

The owners of Alpha Software Corporation (Forum Owner) reserve the right to remove, edit, move, or close any thread for any reason; or ban any forum member without notice, reason, or explanation.

Community members are encouraged to click the "Report Post" icon in the lower left of a given post if they feel the post is in violation of the rules. This will alert the Moderators to take a look.

Alpha Software Corporation may amend the guidelines from time to time and may also vary the procedures it sets out where appropriate in a particular case. Your agreement to comply with the guidelines will be deemed agreement to any changes to it.



Bonus TIPS for Successful Posting

Try a Search First
It is highly recommended that a Search be done on your topic before posting, as many questions have been answered in prior posts. As with any search engine, the shorter the search term, the more "hits" will be returned, but the more specific the search term is, the greater the relevance of those "hits". Searching for "table" might well return every message on the board while "tablesum" would greatly restrict the number of messages returned.

When you do post
First, make sure you are posting your question in the correct forum. For example, if you post an issue regarding Desktop applications on the Mobile & Browser Applications board , not only will your question not be seen by the appropriate audience, it may also be removed or relocated.

The more detail you provide about your problem or question, the more likely someone is to understand your request and be able to help. A sample database with a minimum of records (and its support files, zipped together) will make it much easier to diagnose issues with your application. Screen shots of error messages are especially helpful.

When explaining how to reproduce your problem, please be as detailed as possible. Describe every step, click-by-click and keypress-by-keypress. Otherwise when others try to duplicate your problem, they may do something slightly different and end up with different results.

A note about attachments
You may only attach one file to each message. Attachment file size is limited to 2MB. If you need to include several files, you may do so by zipping them into a single archive.

If you forgot to attach your files to your post, please do NOT create a new thread. Instead, reply to your original message and attach the file there.

When attaching screen shots, it is best to attach an image file (.BMP, .JPG, .GIF, .PNG, etc.) or a zip file of several images, as opposed to a Word document containing the screen shots. Because Word documents are prone to viruses, many message board users will not open your Word file, therefore limiting their ability to help you.

Similarly, if you are uploading a zipped archive, you should simply create a .ZIP file and not a self-extracting .EXE as many users will not run your EXE file.
See more
See less

Date Script

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Date Script

    Hi all,

    How can I find the Day of week on this script?
    I do not have any result of my vDays message.
    dim i as n
    dim vDur as n = 3
    dim vSDate as d ={11/30/09}
    dim vNext as c
    dim vDays as c
    dim vDate as c


    if vdur>0 then
    for i=1 to vdur
    vNext=vSDate+i
    vDate=ui_msg_box("Date",vNext)
    'vDays=ui_msg_box("Day",dow({vDate}))
    'vdays=ui_msg_box("Day",cdow(dtoc(vDate)))
    vdays=ui_msg_box("Day",cdow(ctod(vDate))) '<--- Result: Blank

    next i
    else
    ui_msg_box("No Duration","Enter Duration Information")
    end if

    #2
    Re: Date Script

    What do you intend

    vDate=ui_msg_box("Date",vNext)

    to do?
    Code:
    vdays=ui_msg_box("Day",cdow(ctod([COLOR="Red"]vNext[/COLOR]))) '<--- Result: [COLOR="Red"]Not [/COLOR]Blank
    There can be only one.

    Comment


      #3
      Re: Date Script

      Stan,

      My intention is Day of Week for the vDate which I added with duration. It should be "Monday and so".

      Comment


        #4
        Re: Date Script

        John,

        The documentation indicates that the return type of

        ui_msg_box("Date",vNext)

        is a numerical response code, not a date.

        Unless you are testing that response code, eliminate the assignment

        vDate=

        Change the other line as indicated.
        There can be only one.

        Comment


          #5
          Re: Date Script

          Stan,

          I was looking for a wrong variable field.

          Thank you.

          Comment


            #6
            Re: Date Script

            Stan,

            How about save the vNext result to a filed in my Work Order table?
            Code:
            dim thdr as p
            dim i as n
            dim vDur as n 
            dim vSDate as d
            dim vNext as c
            thdr=table.open("wrkodr_hd",File_rw_shared)
            vSDate=thdr.Plan_startdate
            vDur=thdr.Plan_duration
            
            thdr.index_primary_put()
            thdr.fetch_first()
            while .not. thdr.fetch_eof()
            if vdur>0 then
            	for i=1 to vdur
            		vnext=vsdate+i
            		'vDate=ui_msg_box("counting",vsdate+i)
            		'vDays=ui_msg_box("Day",cdow(ctod(vNext)))
            
            		Select
            		    case cdow(ctod(vNext))="Monday"
            		        thdr=table.change_begin()
            				     thdr.mon=vNext
            				thdr=table.change_end(.t.)
            			case cdow(ctod(vNext))="tuesay"
            			    thdr=table.change_begin()
            				     thdr.Tue=vNext
            				thdr=table.change_end(.t.)
            			case cdow(ctod(vNext))="Wednesay"
            			    thdr=table.change_begin()
            				     thdr.wed=vNext
            				thdr=table.change_end(.t.)	
            		end select
            
            		next i
            	else
                ui_msg_box("No Duration","Enter Duration Information")	
            end if
            thdr.fetch_next()	
            end while
            
            thdr.close()
            end

            Comment


              #7
              Re: Date Script

              If I understand what you want to do..


              Code:
              dim thdr as p
              dim i as n
              dim vDur as n 
              dim vSDate as d
              dim vNext as c
              thdr=table.open("wrkodr_hd",File_rw_shared)
              
              
              thdr.index_primary_put()
              thdr.fetch_first()
              while .not. thdr.fetch_eof()
              [COLOR="Red"]vSDate=thdr.Plan_startdate [COLOR="Blue"]'move these two lines to here[/COLOR]
              vDur=thdr.Plan_duration[/COLOR] [COLOR="Blue"]'move these two lines to here[/COLOR]
              if vdur>0 then
              	for i=1 to vdur
              		vnext=vsdate+i
              		'vDate=ui_msg_box("counting",vsdate+i)
              		'vDays=ui_msg_box("Day",cdow(ctod(vNext)))
              
              		Select
              		    case cdow(ctod(vNext))="Monday"
              		        thdr=table.change_begin()
              				     thdr.mon=vNext
              				thdr=table.change_end(.t.)
              			case cdow(ctod(vNext))="tuesay"
              			    thdr=table.change_begin()
              				     thdr.Tue=vNext
              				thdr=table.change_end(.t.)
              			case cdow(ctod(vNext))="Wednesay"
              			    thdr=table.change_begin()
              				     thdr.wed=vNext
              				thdr=table.change_end(.t.)	
              		end select
              
              		next i
              	else
                  ui_msg_box("No Duration","Enter Duration Information")	
              end if
              thdr.fetch_next()	
              end while
              
              thdr.close()
              end
              There can be only one.

              Comment


                #8
                Re: Date Script

                Stan,

                Woooo~~~~AK (my scream to A5)

                Code:
                Error Message - thdr.Mon subelement not found
                What is this error mean here.

                Comment


                  #9
                  Re: Date Script

                  It means that there is not a "Mon" field in the table referenced by the

                  thdr.

                  pointer dot variable. ("wrkodr_hd")
                  There can be only one.

                  Comment


                    #10
                    Re: Date Script

                    I really didn't study your code other than to notice the two statements out of place. There are other issues. Changes in red.

                    thdr.change_begin()

                    not

                    thdr = table.change_begin()

                    for example.


                    Code:
                    dim thdr as p
                    dim i as n
                    dim vDur as n 
                    dim vSDate as d
                    dim vNext as c
                    thdr=table.open("wrkodr_hd",File_rw_shared)
                    
                    
                    thdr.index_primary_put()
                    thdr.fetch_first()
                    while .not. thdr.fetch_eof()
                    vSDate=thdr.Plan_startdate 'move these two lines to here
                    vDur=thdr.Plan_duration 'move these two lines to here
                    if vdur>0 then
                    	for i=1 to vdur
                    		vnext=vsdate+i
                    		'vDate=ui_msg_box("counting",vsdate+i)
                    		'vDays=ui_msg_box("Day",cdow(ctod(vNext)))
                    
                    		Select
                    		    case cdow(ctod(vNext))="Monday"
                    		        [COLOR="red"]thdr[/COLOR].change_begin()
                    				     thdr.mon=vNext
                    				[COLOR="Red"]thdr[/COLOR].change_end(.t.)
                    			case cdow(ctod(vNext))="tuesay"
                    			    [COLOR="red"]thdr[/COLOR].change_begin()
                    				     thdr.Tue=vNext
                    				[COLOR="red"]thdr[/COLOR].change_end(.t.)
                    			case cdow(ctod(vNext))="Wednesay"
                    			    [COLOR="red"]thdr[/COLOR].change_begin()
                    				     thdr.wed=vNext
                    				[COLOR="red"]thdr[/COLOR].change_end(.t.)	
                    		end select
                    
                    		next i
                    	else
                        ui_msg_box("No Duration","Enter Duration Information")	
                    end if
                    thdr.fetch_next()	
                    end while
                    
                    thdr.close()
                    end
                    There can be only one.

                    Comment


                      #11
                      Re: Date Script

                      Stan,

                      Thank you.

                      Comment


                        #12
                        Re: Date Script

                        Stan,

                        It does not fire. I think I still missed some of function here.

                        Comment


                          #13
                          Re: Date Script

                          We need to find a translator.

                          It does not fire. I think I still missed some of function here.
                          I have no clue what this means.

                          John,

                          You downloaded gaby's sample and fixed his problem. If you were to upload a sample, do you think that might happen for you? Someone would download your sample and see what is wrong????
                          Last edited by Stan Mathews; 12-14-2009, 08:32 PM.
                          There can be only one.

                          Comment


                            #14
                            Re: Date Script

                            Stan,

                            I mean It(vNext variable) did not save into the a field of the Work_order table.

                            I wish to know How to Zip file only selected files from my Master database.
                            Every time I tested the Zip file, It shows every thing from my master database.

                            I will create a sample database on tomorrow and zip it on here.

                            I always appreciate and try to share with others in this forum.

                            Comment


                              #15
                              Re: Date Script

                              wish to know How to Zip file only selected files from my Master database.
                              In the Alpha control panel, right click on a table or set name and choose Zip. This will include the table or set and the support files for same, not the whole database.
                              There can be only one.

                              Comment

                              Working...
                              X