Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência de Volume de Entrada via Coletor, executado no momento da seleção do Volume quando o registro já estiver bloqueado por outro usuário.

Localização:

SIGAACD - Automação Coleta de Dados \ Conf. Volume Entrada (OFIA350)

Eventos:

...

DbSelectArea("VCX")

For nCntFor := 1 to len(aRecVCX[nPos,2])

VCX->(DbGoto(aRecVCX[nPos,2,nCntFor,2]))

If !SimpleLock() // No coletor utilizar SimpleLock ao inves de SoftLock - Travar todos os Registros do VCX

//

VTAlert(STR0005,STR0002) // Volume encontra-se Bloqueado por outro usuario! / Atencao

//

If ExistBlock("OA350BLQ")

ExecBlock("OA350BLQ",.f.,.f.,{ aRecVCX[nPos,1] }) // Dispara PE se tiver Bloqueado por outro usuario

EndIf

//

lTravouVCX := .f.

Exit

Else

aRecVCX[nPos,2,nCntFor,1] := .t. // Travou VCX

EndIf

Next

If lTravouVCX

...

Programa Fonte:

OFIA350.PRW

Função:

OA3500011_TELA1()

Parâmetros:
NomeTipoDescrição

cVol

Caractere

Volume de Entrada

Retorno:

Não há.


Exemplo:

Include totvs.ch

// Ponto de Entrada na rotina de Conferência de Volume de Entrada via Coletor,

// executado no momento da seleção do Volume quando o registro já estiver

// bloqueado por outro usuário

User Function OA350BLQ()


Local cVol := ParamIXB[1] // Volume de Entrada


VtAlert("Ponto de entrada OA350BLQ executado com sucesso!")


Return