;** TbprOrca *******************************************************************
;*  Altera Precos de Itens para Nova Tabela                                    *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 11/10/2013 por Kamila gomes
;Ultima Alteracao: 25/08/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes desativar tecla alt+O (-24) ir ao prompt do DOS

;*******************************************************************************
;* Rotina de Digitacao Dados do Item                                           *
;*******************************************************************************
Proc Item_DialogP(Disparo,Campo,Evento,Elemento)

TECLA=" Esc=Retornar  F1=Tabelas"
MSGCAMPO=""

If INICIO_DIALOG
   Then SelectControl "I_Codigo_Tabela"
        INICIO_DIALOG=False
EndIf

Temp=True
If Disparo="EVENT" And DynArraySize(Evento)>0 And Evento["Type"]="KEY" Then
   Switch
       Case Evento["KeyCode"] = -46:
            OK=False
            CancelDialog
            Temp=False
       Case Evento["KeyCode"] = -24:
            Registro_ItemP("Gravar")
            CancelDialog
       Case Evento["KeyCode"] = 9:
            Temp=False
       Case Evento["KeyCode"] = -59 :
            Window Handle Dialog to JANELA
            Window Move JANELA To 9,82
              
            Moveto [Codigo da Tabela     ]
                    
            ConsultaF1()
            echo Normal
            Window Handle Dialog to JANELA
            Window Move JANELA To 09,24
            echo off
                     
            VSD_I_Codigo_Tabela =[Codigo da Tabela]
                    
            TECLA=TECLA+"F1=Tabelas  "
            RefreshDialog
            Temp=False
       Case Evento["KeyCode"] = 27:
            OK=False
            Temp=False
            CancelDialog
            Temp=False
      Case Evento["KeyCode"] = 13:
           VSD_I_Codigo_Tabela=AlinhM(ControlValue("I_Codigo_Tabela"),5)
           Moveto [Codigo da Tabela]
           Ativa_Lookup()
           Moveto [Codigo da Tabela]
           Locate VSD_I_Codigo_Tabela
           If RetVal
              Then VSD_I_Codigo_Tabela = [Codigo da Tabela]
                   KeyPress "ESC"
                   [Codigo da Tabela]=VSD_I_Codigo_Tabela
                   Registro_ItemP("Gravar")
                   CancelDialog
              Else Mensagem("Item n„o Cadastrado !")
                   VSD_I_Codigo_Tabela =""
                   TECLA=TECLA+"F1=Tabelas  "
                   KeyPress "ESC"
           EndIf
           Echo Off
           RefreshDialog
           Temp=False
   EndSwitch
EndIf


@ 24,0 ?? TECLA+Spaces(80-Len(TECLA))
PaintCanvas Attribute 31 24,0,24,79
Message(MSGCAMPO)

Return TEMP
EndProc

;*******************************************************************************
;* Rotina para Gravacao/Leitura do Item                                        *
;*******************************************************************************
Proc Registro_ItemP(Funcao_Registro)
Private Funcao_Registro
Switch
  Case Funcao_Registro="Gravar":
       [Codigo da Tabela     ]=VSD_I_Codigo_Tabela

  Case Funcao_Registro="Ler":
       VSD_I_Codigo_Tabela      =[Codigo da Tabela     ]
       Moveto [Codigo da Tabela]
       Locate VSD_I_Codigo_Tabela
       If RetVal
          Then While True
                 If [Codigo da Tabela]<>VSD_I_Codigo_Tabela
                    Then QuitLoop
                 EndIf
                 Down
                 If AtLast()
                    Then QuitLoop
                 EndIf
               EndWhile
       EndIf
       KeyPress "ESC"
EndSwitch
EndProc

;*******************************************************************************
;* Rotina para Digitacao Item                                                  *
;*******************************************************************************
INICIO_DIALOG=True
Registro_ItemP("Ler")

KeyEnable -24 ; usando tecla alt+o que pode ir ao prompt do DOS

OK=True
Showdialog "Nova Tabela de Pre‡o !" Proc "Item_DialogP" @ 09,24 height 05 width 30

   Label  @ 00,10 "" for "I_Codigo_Tabela"
   Accept @ 01,10 Width 08 "A5" picture "!*!" Tag "I_Codigo_Tabela" to VSD_I_Codigo_Tabela

Enddialog

KeyDisable -24 ; usando tecla alt+o que pode ir ao prompt do DOS



