Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência de Saída (Orçamentos) via Coletor, executado no momento da seleção do Orçamento quando o registro já estiver bloqueado por outro usuário.

Localização:

SIGAACD - Automação Coleta de Dados \ Conf. Saída (OFIA070)

Eventos:

...

DbSelectArea("VS1")

If !SimpleLock() // No coletor utilizar SimpleLock ao inves de SoftLock

//

VtAlert(STR0027,STR0002) // Orcamento encontra-se Bloqueado por outro usuario! / Atencao

//

If ExistBlock("OA070BLQ")

ExecBlock("OA070BLQ",.f.,.f.,{ VS1->VS1_NUMORC }) // Dispara PE se tiver Bloqueado por outro usuario

EndIf

//

Else

...

Programa Fonte:

OFIA070.PRW

Função:

OA0700011_TELAORCAMENTOS()

Parâmetros:
NomeTipoDescrição

cOrc

Caractere

VS1->VS1_NUMORC ( Nro. do Orçamento )

Retorno:

Não há.


Exemplo:

Include totvs.ch

// Ponto de Entrada na rotina de Conferência de Saida (Orçamentos) via Coletor,

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

// bloqueado por outro usuário

User Function OA070BLQ()


Local cOrc := ParamIXB[1] // VS1->VS1_NUMORC ( Nro. do Orçamento )


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


Return