Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA6551 - Abastecimento
Descrição: Chamado depois de clicar no botão “Incluir” , onde por exemplo, faz a uma validação checar se funcionário pode realizar o abastecimento. Programa Fonte MNTA655.PRX Sintaxe MNTA6551 - Abastecimento ( ) --> .T. / 0 Retorno
Exemplos User Function MNTA6551() Local Ccadastro := "Abastecimento" Local oDlg, oMainWndLocal nOpcaLocal aAreaTQN := TQN->(GetArea())Private cMat := Space(Len(SRA->RA_MAT))Private cSen := Space(Len(SRA->RA_SENHA)) If Inclui Define MsDialog oDlg Title Ccadastro From 9,0 To 16,50 Of oMainWnd @ 1.5,1 Say "Matricula" COLOR CLR_BLUE @ 1.4,5 MSGET cMat PICTURE '@!' F3 "SRA" Valid EXISTCPO('SRA',cMat,1) @ 2.5,1 Say "Senha" COLOR CLR_BLUE @ 2.4,5 MSGET cSen PASSWORD Valid VALSENHA(cMat,cSen) Activate MsDialog oDlg On Init EnchoiceBar(oDlg,{||nOpca:=1,oDlg:End()},{|| nOpca:=2,oDlg:End()},,) CENTERED If (nOpca == 1) RestArea(aAreaTQN) DbSelectArea("TQN") Return .t. Else RestArea(aAreaTQN) DbSelectArea("TQN") Return 0 EndIf EndIfRestArea(aAreaTQN)DbSelectArea("TQN")Return Static Function VALSENHA(cCodFunSRA,cSenhaSRA)Local lRet := .t.If Empty(cSenhaSRA) MsgStop("Senha informada não poderá ser branca!","Atenção") Return .f.EndifdbSelectArea("SRA")dbSetOrder(01)If dbSeek(xFilial("SRA")+cCodFunSRA) If cSenhaSRA != SRA->RA_SENHA MsgStop("Senha informada não corresponde à senha do funcionário no cadastro de Funcionários!","Atenção") lRet := .f. EndifElse If !dbSeek(xFilial("SRA")+cCodFunSRA) MsgStop("Senha informada não corresponde à senha do funcionário no cadastro de Funcionários!","Atenção") lRet := .f. EndifEndifReturn lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas