AUTOCODE

AUTOCODE

Postby Otto » Wed Aug 17, 2022 7:13 am

Hello friends,

Inspired by a video -Designer Minigui ( https://www.youtube.com/watch?v=UcFw1bqsaV4 ) -, I restarted after a long time with my project: AUTOCODE.
You are right that you have to use wizards.
I will extend AUTOCODE and AUTOCODE4modHarbour.

Here is a link to AUTOCODE
https://www.youtube.com/watch?v=FKiJc6l3oW8




First I extend Autocode to use xBrowser- funciton:
//XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, ;
// bValid, "SlNo", lNoModal, lAutoFit )




Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6307
Joined: Fri Oct 07, 2005 7:07 pm

Re: AUTOCODE

Postby Antonio Linares » Wed Aug 17, 2022 7:23 am

Dear Otto,

thank you for all your great contributions!

best regards
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42054
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: AUTOCODE

Postby Otto » Wed Aug 17, 2022 7:44 am

Dear Antonio,
thank you.
I am thinking if I should try to use a webview2 FROM or a FW DIALOG for the input dialog.
Maybe I can create a xbrowse-function equivalent for mod harbour.
This would be great if AUTOCODE code provide both source codes.

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6307
Joined: Fri Oct 07, 2005 7:07 pm

Re: AUTOCODE

Postby Otto » Wed Aug 17, 2022 9:10 am

Hello friends,
maybe someone knows a more effective way to resolve the string info variables?
local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
Best regards,
Otto

Image

Code: Select all  Expand view

 #include "fivewin.ch"
//XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, "SlNo", lNoModal, lAutoFit )

function main
    local uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, cSlNo, lNoModal, lAutoFit
    //local cCode := "XBrowse( uData , cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )"
//  local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
    local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
                   
    local cTmp := ""
    local nlencTmp := 0
    local cTmp2 := ""
    local cLog := ""
   
    cCode := ALLTRIM( cCode )
    cTmp := StrToken( cCode, 1, "," )
    nlencTmp := len( cTmp )
   
   cTmp2 := ALLTRIM( SUBSTR( cCode, ( nlencTmp + 2 ) ) )
   uData := SUBSTR( cTmp, 8 )
   uData := STRTRAN( uData, "(", "" )
   cLog := "uData: " + uData  + CRLF + "remaining: " + cTmp2
 
   if cTmp2 = '"' // to do .or. cTmp2 = "'"
    cTmp := ALLTRIM( StrToken( cTmp2, 1, '"' ) )
        cTitle := cTmp
        nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
    cTmp2 := SUBSTR( cTmp2, 2 )
   else
    cTmp := StrToken( cTmp2, 1, "," )
    cTitle := cTmp
        nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
   endif
   
   
    cTmp := StrToken( cTmp2, 1, "," )
    lAutoSort := cTmp
    nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
   
   
   
   
   
   cLog :=  "uData: " + uData  + CRLF +;
                "cTitle: " + cTitle + CRLF +;  
                "lAutoSort: " + lAutoSort + CRLF +;  
                CRLF + "remaining: " + cTmp2
   
   MsgInfo( cLog )

return



 
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6307
Joined: Fri Oct 07, 2005 7:07 pm

Re: AUTOCODE

Postby Jimmy » Wed Aug 17, 2022 8:13 pm

hi Otto,

where do i find those Form-Designer :?:
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: AUTOCODE

Postby Otto » Wed Aug 17, 2022 10:23 pm

Hello Jimmy,
see the last post on:

https://www.facebook.com/groups/harbour.project/

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6307
Joined: Fri Oct 07, 2005 7:07 pm

Re: AUTOCODE

Postby Jimmy » Thu Aug 18, 2022 4:53 pm

hi Otto,
Otto wrote:see the last post on:

https://www.facebook.com/groups/harbour.project/

thx for Advice

but i do not use Facebook so i can´t open Website without Facebook Account

did you have a direct Link :?:
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: AUTOCODE

Postby Otto » Thu Aug 18, 2022 5:56 pm

Jimmy, there is a youtube-link:
https://www.youtube.com/watch?v=UcFw1bqsaV4
Maybe there is a download link inside.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6307
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Marc Venken and 27 guests