Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rene Julian Mirabal Lascano

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


Ir para o final dos metadados


Ir para o início dos metadados

LJ7109 -

...

Ponto de entrada

...

executado antes da abertura do sistema de Varejo.

Descrição:

Disponibilizar P.E

Disponibilizado Ponto de Entrada para atuar no momento da

seleção do produto, podendo alterar o código da tabela de preço DA1

entrada do sistema de varejo.

Eventos:

O ponto de entrada é executado assim que o sistema começa a inicializar o modulo, não é passado nenhuma variável de parâmetro ou é esperado algum retorno para tomada de ação, ou seja a ação realizada no ponto de entrada não vai modificar o procedimento do sistema ao termino da execução do ponto de entrada.

Programa Fonte:LOJXFUNB.PRW
Parâmetros:Não é passado nenhum parâmetro para esse ponto de entrada, como o modulo esta realizando ainda a inicialização o sistema não possui informação para ser adicionada a esse ponto de entrada.
Retorno:

Não é esperado retorno para esse ponto de entrada, é realizado a chamada desse ponto de entrada e logo em seguida o sistema continua o processo de inicialização do modulo.

Exemplo: 

Vamos Realizar uma validação de data e inibir a entrada no sistema caso essa data do novo movimento seja inferior a ultima última data de movimento, assim o ususario usuário não ira conseguir realizar realizará lançamentos com data retroativa.

...

movimento gravado na tabela de orçamentos do loja.
@author - Vendas Varejo
@since 11/2017
/*/
//--------------------------------------------------------------

User Function LJ7109()

Local aArea := GetArea("SL1")
Local dDtMov := StoD(" / / ")
Local nRecSL1 := 0 // Ultimo Recno do SL1
Local cMensagem := ""

DbSelectArea("SL1")
DbSetOrder(1) //L1_FILIAL+L1_NUM

nRecSL1 := LastRec() // pego o ultimo Recno inserido

If nRecSL1 > 0
         DbGoTo(nRecSL1) // Posiciona no ultimo registro
         dDtMov := SL1->L1_EMISSAO
         cMensagem := "A data do ultimo movimento ("+ DtoC(dDtMov)+ ") é maior que a data do dia("+ DtoC(dDataBase)+ ")." + Chr(13)+ chr(10)
          If dDtMov > dDataBase
                    MsgStop(cMensagem)
                    Final()  // Aborta o sistema
          EndIf
EndIf

RestArea(aArea)


Return