PC Toledo

Código: Selecionar todos

Select Mydbf

 if Rlock()
    replace a with b
    ......
    .......
endif

Código: Selecionar todos

Static Procedure Atualiza_Entrada()
  local nWindow := Thiswindow.name
  local num_doc := Trim(GetProperty(nWindow,"tx_num_doc","value"))
  local nomepag:= ''
  local oldreg:= 0
  local soma :=  0
  local totn :=  0
  local chave
  local nome_bord := ''
  local cTxtPrint := ''
  local dif := .f.
  select ent
  set order to 2
  seek num_doc
  if (Eof())
  *
  Return Nil
  elseif (atualiza .and. Empty(destino))
  *
  elseif (!atualiza .and. !Empty(destino))
  *
  endif
  oldreg:= RecNo()
  do case
     case ent->condpag = "2"
        nomepag:= "DUPLICATA"
     case ent->condpag = "3"
        nomepag:= "CARTEIRA"
     case ent->condpag = "4"
        nomepag:= "CHEQUE PRE-DATADO"
     case ent->condpag = "1"
        nomepag:= "A VISTA"
  endcase
  totn:= ent->totalnota - ent->imposto - ent->desconto
  * soma os valores dos produtos
  do while (!Eof())
     if (Trim(ent->document) = Trim(num_doc))
        soma+= ultpreco
     else
        exit
     endif
     skip
     loop
  enddo
  st:= "NOTA DIGITADA CORRETAMENTE"
  * compara os valores dos produtos com o valor da nota
  if (totn != round(soma,2))
     st:= "VL  NOTA DIF. VL DOS PRODUTOS"
     dif := .t.
  endif
  goto oldreg
  do while (!Eof())
     chave:= ent->grupo + ent->sub_grupo + ent->codigo
     select mcf
     seek val(chave)
     if (rlock())  // se eu trocar para flock() não da o erro
        replace outdesp3  with  outdesp2
        replace numdoc3   with  numdoc2
        replace frete3    with  frete2
        replace preuni3   with  preuni2
        replace dtfor3    with  dtfor2
        replace codfor3   with  codfor2
        replace qtdfor3   with  qtdfor2
        replace outdesp2  with  outdesp1
        replace numdoc2   with  numdoc1
        replace frete2    with  frete1
        replace preuni2   with  preuni1
        replace dtfor2    with  dtfor1
        replace codfor2   with  codfor1
        replace qtdfor2   with  qtdfor1
        replace numdoc1   with  ent->document
        replace frete1    with  ent->imposto
        replace preuni1   with  ent->custo
        replace dtfor1    with  ent->emissao
        replace codfor1   with  ent->codfor
        replace qtdfor1   with  ent->qtdultcomp
        replace outdesp1  with  ent->desconto
        replace almox_atu with  almox_atu +  ent->qtdultcomp
        replace datamov   with  var4         
        mcf->(Dbcommit())
        mcf->(Dbunlock()) 
     endif

Código: Selecionar todos

******************************
Function TravaRegistro(cAlias)
******************************
*
*
Local lRet := .T.
Hb_Default(@cAlias,Alias())
Do While .T.
      If (cAlias)->(rlock())
         exit
      EndIf
   If hwg_MsgYesNo('Registro não bloqueado, '+cAlias+' Tentar Novamente ? '+hb_eol()+"Função: "+ProcName(1))
   Else
      lRet := .F.
      Exit
   EndIf
EndDo
Return lRet

Código: Selecionar todos

*------------------------*
FUNCTION bloq_reg(cAlias)
*------------------------*
LOCAL nTimeout := 10  // Tempo limite em segundos
LOCAL nStartTime := SECONDS()

// Usa o alias atual se nenhum alias for passado
Hb_Default(@cAlias, ALIAS())

MSGBOX1(cAlias) // debug 

DO WHILE .T.
    // Tenta obter o bloqueio no registro
    IF (cAlias)->(RLOCK())
        RETURN 1
    ENDIF

    // Verifica se o tempo limite foi atingido
    IF SECONDS() - nStartTime >= nTimeout
        RETURN 0  // Não conseguiu obter o bloqueio dentro do tempo limite
    ENDIF

    // Espera um pouco antes de tentar novamente
    INKEY(0.1)
ENDDO

Código: Selecionar todos

local cCaixaLoja := "cai_" + CAI->cc_destino // arquivo caixa/banco dinamico 

         Bloq_reg(cCaixaLoja)
           (cCaixaLoja)->(DBDELETE())//;DBSKIP(1)
         unlock