Histórico da Página

Chamado depois de clicar no botão “Incluir” , onde por exemplo, faz a uma validação checar se funcionário pode realizar o abastecimento.

MNTA655.PRX

MNTA6551 - Abastecimento ( ) --> .T. / 0

.T. / 0(qualquer)
• Verdadeiro ou Zero

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