PC Toledo

Código: Selecionar todos

#include <minigui.ch>

Function Main
Declare Window principal
Load Window principal
principal.Center
principal.Activate
Return Nil

Function Janela1()
Declare Window janelamodal1
Load Window janelamodal1
janelamodal1.Center
janelamodal1.Activate
Return Nil

Function Janela2()
Declare Window janelamodal2
Load Window janelamodal2
janelamodal2.Center
janelamodal2.Activate
Return Nil

Código: Selecionar todos

     DEFINE WINDOW F2 ;
         AT 0,0 ;
         WIDTH 800 HEIGHT 600 ;
         TITLE 'SiCCoSV - SISTEMA DE CONTROLE COMERCIAL DE ORDENS DE SERVIÇO VEICULAR' ;
         FONT 'Arial' SIZE 12 ;
         CHILD // ; // já existe o WINDOW F1 como MAIN.
            DEFINE MAIN MENU 
               for H=1 TO LEN(MENU_H)
               // ? MENU_GUI[I,1],MENU_GUI[I,2],MENU_GUI[I,3],MENU_GUI[I,4]
               // INKEY(0)
                  if MENU_H[H,1]='&Cadastros'
                     POPUP MENU_H[H,1]
                        // for CAD=1 to len(MENU_CAD)
                           POPUP MENU_CAD[1,1]
                              for CADH1=1 to len(MENU_CADH1)
                                 // ? 'MENU_CADH1[CADH1,2]',MENU_CADH1[CADH1,2]
                                 // wait
                                 MENUITEM MENU_CADH1[CADH1,1] ACTION MENU_CADH1[CADH1,2] // NAME MENU_CAD1[CAD1,3]
                              next
                           END POPUP
                           POPUP MENU_CAD[2,1]
                              // for CADH2=1 to len(MENU_CADH2)
                                 // POPUP MENU_CADH2[CADH2,1]
                                 POPUP MENU_CADH2[1,1]
                                    for CADH2V1=1 to len(MENU_CADH2V1)
                                       MENUITEM MENU_CADH2V1[CADH2V1,1] ACTION MENU_CADH2V1[CADH2V1,2] // NAME MENU_CAD1[CAD1,3]
                                    next
                                 POPUP MENU_CADH2[2,1]
                                    for CADH2V2=1 to len(MENU_CADH2V2)
                                       MENUITEM MENU_CADH2V2[CADH2V2,1] ACTION MENU_CADH2V2[CADH2V2,2] // NAME MENU_CAD1[CAD1,3]
                                    next
                                 END POPUP
                                 POPUP MENU_CADH2[3,1]
                                    for CADH2V3=1 to len(MENU_CADH2V3)
                                       MENUITEM MENU_CADH2V3[CADH2V3,1] ACTION MENU_CADH2V3[CADH2V3,2] // NAME MENU_CAD1[CAD1,3]
                                    next
                                 END POPUP
                                 POPUP MENU_CADH2[4,1]
                                    for CADH2V4=1 to len(MENU_CADH2V4)
                                       MENUITEM MENU_CADH2V4[CADH2V4,1] ACTION MENU_CADH2V4[CADH2V4,2] // NAME MENU_CAD1[CAD1,3]
                                    next
                                 END POPUP
                              // next
                           END POPUP
                           POPUP MENU_CAD[3,1]
                              for CADH3=1 to len(MENU_CADH3)
                                 MENUITEM MENU_CADH3[CADH3,1] ACTION MENU_CADH3[CADH3,2] // NAME MENU_CAD1[CAD1,3]
                              next
                           END POPUP
                        // next
                        MENUITEM MENU_CAD1[1,1] ACTION MENU_CAD1[1,2] // NAME MENU_CAD1[CAD1,3]
                     END POPUP
                  elseif MENU_H[H,1]='C&onsultas'
                     POPUP MENU_H[H,1]
                        for CON=1 to len(MENU_CON)
                           MENUITEM MENU_CON[CON,1] ACTION MENU_CON[CON,2] NAME MENU_CON[CON,3]
                        next
                     END POPUP
                  elseif MENU_H[H,1]='&Relatórios'
                     POPUP MENU_H[H,1]
                        for REL=1 to len(MENU_REL)
                           MENUITEM MENU_REL[REL,1] ACTION MENU_REL[REL,2] NAME MENU_REL[REL,3]
                        next
                     END POPUP
                  endif
                  // endif
               next
               POPUP '&Configurações'
                  for FOR=1 to len(MENU_FOR)
                     MENUITEM MENU_FOR[FOR,1] ACTION MENU_FOR[FOR,2] // NAME &MENU_FOR[FOR,3]
                  next
               END POPUP
            END MENU
   END WINDOW
   CENTER WINDOW F2
   F2.Activate()

Código: Selecionar todos

     aadd (LINHA,'&Cadastros')
     aadd (BLOCO,{|LIN,COL| MCI10001 (LIN,COL)})
     aadd (H_IND,'MCI10001')
     aadd (MENU_H,{ATAIL(LINHA),ATAIL(BLOCO),ATAIL(H_IND)})
MONTA_VETOR (LINHA,BLOCO,H_IND,'Formatador-1',{|| EXECUTA_PROGRAMA ({|| PCI10998 ()})},'PCI10998','MENU_FOR')

Código: Selecionar todos

static function MONTA_VETOR (LINHA,BLOCO,H_IND,PROMPT,ACAO,INDICE,MATRIZ_MENU)
     if E_MASTER () .or. EXISTE_PROGRAMA (INDICE)
          aadd (LINHA,PROMPT)
          aadd (BLOCO,ACAO)
          aadd (H_IND,INDICE)
          aadd (&MATRIZ_MENU.,{ATAIL(LINHA),ATAIL(BLOCO),ATAIL(H_IND)})
return

Código: Selecionar todos

MONTA_VETOR (LINHA,BLOCO,H_IND,'Formatador-1',{|| EXECUTA_PROGRAMA ({|| PCI10998 ()})},'PCI10998','MENU_FOR')

Código: Selecionar todos

if len (LINHA) > 0
          OPCAO := MENU_VERTICAL (LIN,COL,LINHA,BLOCO,H_IND,OPCAO)
          restscreen (0,0,maxrow (),maxcol (),S_TEL)
endif

Código: Selecionar todos

function MENU_VERTICAL (LIN1,COL1,ELEM,BLOCO,IND_HELP,INICIO)
     memvar K_HELP,K_UTIL,K_CNS
     local I        := 1,;
           J        := 1,;
           N_PROMPT := len (ELEM),;
           PROMPT   := aclone (ELEM),;
           HOTKEY   := array (len (ELEM)),;
           TECLA    := 1,;
           S_CURSOR := set (_SET_CURSOR),;
           COMPL    := 0
     afill (HOTKEY,'')
     set cursor off
     if LIN1 = 1
          LIN1++
     endif
     FORM_PROMPT (PROMPT)
     COMPL := MAX_ELEM_VETOR (PROMPT)
     COL1 := if (COL1 + COMPL + 1 < 80,COL1,COL1 - (COL1 + COMPL + 1 - 80) - 1)
     MOLDURA (LIN1,COL1,LIN1 + N_PROMPT + 1,COL1 + COMPL + 1,.f.,'')
     COL1++
     for I := 1 to N_PROMPT
          PROMPT [I] := if (at ('~',PROMPT [I]) = 0,padr (PROMPT [I],COMPL),padr (PROMPT [I],COMPL+1))
          ESCR_BAR_NORMAL (LIN1 + I,COL1,PROMPT [I])
          if at ('~',PROMPT [I]) <> 0
               HOTKEY [I] := upper (substr (PROMPT [I],at ('~',PROMPT [I]) + 1,1))
          endif
     next I
     I := if (INICIO <> nil,INICIO,1)
     do while .t.
          ESCR_BAR_DESTAQUE (LIN1 + I,COL1,PROMPT [I])
          TECLA := inkey (0)
          do case
          case TECLA = K_ENTER
               eval (BLOCO [I],LIN1 + I + 1,COL1 + 1)
          case TECLA = K_ESC
               TECLA := I
               exit
          endcase
     enddo
     set (_SET_CURSOR,S_CURSOR)
return TECLA

Código: Selecionar todos

static function EXECUTA_PROGRAMA (PROGRAMA)
         // MINIMIZE WINDOW F2
         // RELEASE  WINDOW F2
     set key TECLA_UTIL to UTIL_PROG
     close all
     eval (PROGRAMA)
     ABRE_ARQ_ACESSO ()
     set key TECLA_HELP to
     set key TECLA_UTIL to
return

Código: Selecionar todos

if len(MENU_CADH2V1)>0
      for CADH2V1=1 to len(MENU_CADH2V1)
          MENUITEM MENU_CADH2V1[CADH2V1,1] ACTION MENU_CADH2V1[CADH2V1,2] // NAME MENU_CAD1[CAD1,3]
      next
endif

Código: Selecionar todos

Error BASE/1132 Bound error:array access
called from (b) MCI10000(2232)
...

Código: Selecionar todos

MENUITEM MENU_CADH2V1[CADH2V1,1] ACTION MENU_CADH2V1[CADH2V1,2] // NAME MENU_CAD1[CAD1,3]

Código: Selecionar todos

if len(MENU_CADH1)>0
  for CADH1=1 to len(MENU_CADH1)
    MENUITEM MENU_CADH1[CADH1,1] ACTION MENU_CADH2V1[CADH2V1,3] // NAME MENU_CAD1[CAD1,3]
  next
endif

Código: Selecionar todos

if len(MENU_CADH1)>0
  for CADH1=1 to len(MENU_CADH1)
    MENUITEM MENU_CADH1[CADH1,1] ACTION EXECUTA_PROGRAMA2(pci10048()) // NAME MENU_CAD1[CAD1,3]
  next
endif

Código: Selecionar todos

static function EXECUTA_PROGRAMA2 (PROGRAMA)
     MINIMIZE WINDOW F2
     RELEASE  WINDOW F2
     set key TECLA_UTIL to UTIL_PROG
     close all
     PCI10048() // ou &PROGRAMA. (acho que tanto faz, não testei ainda esse exemplo)
     ABRE_ARQ_ACESSO ()
     set key TECLA_HELP to
     set key TECLA_UTIL to
return

Código: Selecionar todos

        // DEFINE WINDOW FLogin AT 0,0 WIDTH nPicWidth + 50 HEIGHT nPicHeight TITLE "SiCCoSV v4.01 - Tela de Entrada" BACKCOLOR aPicBackColor CHILD NOSYSMENU NOSIZE NOMINIMIZE NOMAXIMIZE ;
        DEFINE WINDOW FLogin AT 0,0 WIDTH nPicWidth + 50 HEIGHT nPicHeight TITLE "SiCCoSV v4.01 - Tela de Entrada" BACKCOLOR aPicBackColor NOSYSMENU NOSIZE NOMINIMIZE NOMAXIMIZE ;
            ON INTERACTIVECLOSE {||NIL};
            ON INIT SetCoords() ON MOUSEDRAG MoveForm() ON MOUSEMOVE SetCoords()
            ON KEY ESCAPE OF FLogin ACTION {||ENCERRA_LOGIN()}
            ON KEY ALT+F4 OF FLogin ACTION {||ENCERRA_LOGIN()}
            @  50,  82 LABEL   lblUserID  VALUE "Usuário:"  TRANSPARENT FONTCOLOR YELLOW BOLD AUTOSIZE
FLogin.txbPasswrd.SetFocus } 
            @  45, 140 TEXTBOX txbUserID  WIDTH 85 HEIGHT 21  FONTCOLOR BLUE BOLD NUMERIC INPUTMASK '999999' ON ENTER { || ConfirmUser()  };
               ON GOTFOCUS  FLogin.lblUserID.FontBold := .T. ;
               ON LOSTFOCUS FLogin.lblUserID.FontBold := .F. 
               
            @  80,  90 LABEL   lblPaswrd  VALUE "Senha:" TRANSPARENT FONTCOLOR YELLOW BOLD AUTOSIZE
            @  75, 140 TEXTBOX txbPasswrd WIDTH 85 HEIGHT 21 FONTCOLOR BLUE BOLD PASSWORD MAXLENGTH 06 ON ENTER { || ConfirmSenha() };
               ON GOTFOCUS  FLogin.lblPaswrd.FontBold := .T. ;
               ON LOSTFOCUS FLogin.lblPaswrd.FontBold := .F. 

            DEFINE TOOLBAR barrasenha OF FLogin BUTTONSIZE 200,40 FONT 'Arial' SIZE 08 FLAT BORDER BOTTOM
               BUTTON btnApply CAPTION '&Ok'      PICTURE BMPCONFIRMA ACTION {||ConfirmUserSenha()} TOOLTIP "Clique aqui para confirmar seu Usuário e Senha e entrar no SiCCoSV!" SEPARATOR 
               BUTTON cancela  CAPTION '&Cancela' PICTURE BMPCANCELA  ACTION {||ENCERRA_LOGIN()}    TOOLTIP "Cancela a entrada no SiCCoSV!"                                                   END TOOLBAR
        END WINDOW  // FLogin

        FLogin.Cursor := "DragCurs"
        FLogin.Center()
        FLogin.Activate()

   ELSE
        MsgStop( cPictFNm + " Faltado Arquivos de Imagens! O sistema será abortado !", "ERROR 8 - SiCCoSV" )
   ENDIF

RETURN // PERMITIU // CheckUser()     

Código: Selecionar todos

? 'início da função'
wait
? 'fim da função'
wait

Código: Selecionar todos

PROCEDURE ConfirmSenha()
    STATIC nAttempt := 0
    LOCAL n2Right, n2Left, nRepeat
    LOCAL nColumn, nStep
    LOCAL cUserID   := FLogin.txbUserID.Value,;
          cPassword := padr (alltrim (upper(FLogin.txbPasswrd.Value)),6), mPASSWORD := space (6)
          // padr (alltrim (upper(cPassWord)),6)
    if .not. fUSUA (cUserID)
      MsgStop ('Usuário Não Cadastrado. Tente Novamente','SiCCoSV')
      lConfirmed := .f.
      return lConfirmed
    endif
    mPASSWORD := padr (alltrim (upper(cPassWord)),6)
    PERMITIU  := CRIPTOGRAFA (mPASSWORD) == PASSWORD
    set key K_F4 to
    set cursor off
    if (PERMITIU) .and. (lastkey () <> K_ESC)
        COD_ACESSO := mCOD_USU := cUserID
        lConfirmed := .T.
        FLogin.HIde
        // FLogin.Release // substituí essa linha pela abaixo, por pensar que aqui era o problema.
        ThisWindow.Release
    ELSE
        MsgStop( "Senha Inválida. Tente Novamente!", "Acesso ao Sistema" )
    ENDIF
RETURN lConfirmed // ConfirmUser()