2. bat_G que trabalha banco de dados no D
main()
parameters dir_dados
-------- questao e a seguinte nao uso nehuma lib grafica so teste de de como funciona na rede em janela ---
TESTE 1
no icone n2 dados no D tenho LAYOUT LARGURA 80 E ALTRURA 50 TELA INTEIRA - UNLOCK FUNCIONA OK
NO TESTE 2 LAYOUT 80 E ALTURA 50 TELA JANELA - UNLOCK CONGELA
----- JA NO ICONE 1 DADOS C - NAO EXISTE ERROR NO UNLOCK ---
ALGUEM JA PASSOU POR ISTO
*--------------
FUNCTION FRLOCK(OPCAO,REG_ALT)
PRIVATE FLAG,TEMPO
FLAG = .F.
TEMPO = 0
OPCAO:= UPPER(OPCAO)
IF OPCAO = 'I' && PARA INCLUSAO
DO WHILE TEMPO <= 10
APPEND BLANK
if dbRLOCK()
FLAG = .T.
TEMPO = 100
else
INKEY(0.5)
TEMPO = TEMPO + 0.5
endif
ENDDO
IF ! FLAG
MOSTRA(23,1,'APPE Blank ao Arquivo '+dbf()+' Nao Disponivel')
FUNLOCK()
ENDIF
ELSE && PARA ALTERACOES E EXCLUSOES
IF RECNO() != REG_ALT
GOTO REG_ALT
ENDIF
DO WHILE TEMPO <= 10
if dbRLOCK()
FLAG = .T.
TEMPO = 100
else
INKEY(0.5)
TEMPO = TEMPO + 0.5
ENDIF
ENDDO
IF ! FLAG
MOSTRA(23,1,'ACESSO ao Registro '+STR(REG_ALT, 5)+' do Arquivo '+DBF()+' NAO Disponivel')
FUNLOCK()
ENDIF
ENDIF
RETURN(FLAG)
*-----------------------------------
FUNCTION FUNLOCK()
** DBCOMMIT()
*** DBCOMMIT - NAO PRECISA SO FORCA GRAVACAO FISICAMENTE
UNLOCK
RETURN(NIL)
============================
A QUESTAO E PORQUE COLOCO EM JANELA CONGELA O UNLOCK
SO NA DIRECAO BANCO DE DADOS DA REDE


