;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc SD_Dialog1(Disparo,Campo,Evento,Elemento)
Temp=True
MSG_CAMPO=""
TECLA=""

If Disparo="EVENT" And Evento["Type"]="KEY" Then
   Switch
     Case Evento["KeyCode"] = 27:
          Temp=False
          CancelDialog
     OtherWise:
          Dados_cheque=Dados_Cheque+Chr(Evento["KeyCode"])
          Temp=false
          If Len(Dados_Cheque)=34
             Then AcceptDialog
          EndIf
   EndSwitch
EndIf
RefreshDialog
Monta_Prompt(MSG_CAMPO,TECLA)
Return Temp
EndProc
