Ponto-de-Entrada: MNTA0809 - Cadastro de Bens
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada chamado ao clicar no botão incluir,alterar ou excluir no cadastro de Bens.Ao invés de chamar cadastro padrão ele irá chamar tela de cadastro personalizado do cliente.
Eventos
Programa Fonte
MNTA0809.PRW
Sintaxe
MNTA0809 - Cadastro de Bens ( )
Retorno
-
()
Observações
Exemplos
#INCLUDE "MNTA080.CH"#INCLUDE "FOLDER.CH"#INCLUDE "FONT.CH"#INCLUDE "COLORS.CH"#INCLUDE "PROTHEUS.CH"/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o ³MNTA0809 ³ Autor ³ Vitor Emanuel Batista ³ Data ³04/09/2008³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Funcao para montatgem de folder ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso ³ MNTA080 ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MNTA0809Local nCONTROL := 0 Local nOK := 0Local aPAGES := {}Local aTITLES := {}Local aVAR := {}Local bCAMPO := {|nCPO| Field(nCPO)}Local iy,xz,yyLocal aNoFields := {} Local aALTSTBPrivate NI,cGET,lGETD := .F. dbSelectArea("ST9")AADD(aTITLES,Oemtoansi(STR0030)) AADD(aPAGES,"HEADER 1")nCONTROL++AADD(aTITLES,Oemtoansi(STR0031)) AADD(aPAGES,"HEADER 2")nCONTROL++ cDvBem := ST9->T9_CODBEMcTudoOk := "NG_080TUDOK()" //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Cria Arquivo de Trabalho ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ DbSelectArea("TPE") aDBF := DbStruct() cArq := CriaTrab(aDBF) cTRB1080 := GetNextAlias() Use (cArq) NEW Exclusive Alias &(cTRB1080) If nOPCAO = 4 cTIPOCON := st9->t9_temcont nVALCONT := st9->t9_poscont DbSelectArea("TPE") DbSetOrder(1) If DbSeek(xFilial("TPE")+ST9->T9_CODBEM) DbSelectArea(cTRB1080) DbAppend() For iy := 1 To TPE->(FCount()) x1 := "TPE->"+FieldName(iy) y := "(cTRB1080)->"+FieldName(iy) Replace &y. with &x1. Next iy EndIf EndIf cTipMPad := Space(10) cCodfami := Space(Len(st9->t9_codfami)) lAltMPad := .f. Define MsDialog oDLG Title cCADASTRO From 8,0 To 29,80 Of oMAINWND oFOLDER := TFOLDER():New(1,0,aTITLES,aPAGES,oDLG,,,,.F.,.F.,320,200,) oFOLDER:aDIALOGS[1]:oFONT := oDLG:oFONT oFOLDER:aDIALOGS[2]:oFONT := oDLG:oFONT //oFOLDER:aDIALOGS[3]:oFONT := oDLG:oFONT NGPOPUP(aSMenu,@oMenu) oDlg:bRClicked:= { |o,x,y| oMenu:Activate(x,y,oDlg)} //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Enchoice 01 ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aTELA := {} aGETS := {} //Aadd(aNAOST9,"T9_CODBEM") Aadd(aNAOST9,"T9_CODTMS") Aadd(aNAOST9,"T9_PLACA") Aadd(aNAOST9,"T9_CAPMAX") Aadd(aNAOST9,"T9_MEDIA") Aadd(aNAOST9,"T9_TIPVEI") Aadd(aNAOST9,"T9_CHASSI") Aadd(aNAOST9,"T9_VALANO") Aadd(aNAOST9,"T9_CORVEI") Aadd(aNAOST9,"T9_DESCOR") Aadd(aNAOST9,"T9_CIDEMPL") Aadd(aNAOST9,"T9_UFEMPLA") Aadd(aNAOST9,"T9_RENAVAM") Aadd(aNAOST9,"T9_NRMOTOR") Aadd(aNAOST9,"T9_CEREVEI") aCHOICE := NGCAMPNSX3("ST9",aNAOST9) dbSelectArea("ST9") RegtoMemory("ST9",(nOPCAO == 3)) oENC01:= MsMGet():New("ST9",_nreg,nOPCAO,,,,aChoice,{0,0,135,315},,,,,,oFOLDER:aDIALOGS[1],,,.F.,"aSVATELA1") oENC01:oBOX:bGOTFOCUS := {|| NGENTRA80("ST9")} oFOLDER:bSETOPTION := {|x| M80SAIFOLD("ST9",x)} oEnc01:oBox:bRClicked:= { |o,x,y| oMenu:Activate(x,y, oEnc01)} aSVATELA1 := aCLONE(aTELA) aSVAGETS1 := aCLONE(aGETS) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ GetDados 01 ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aAdd(aNoFields, 'TB_CODBEM') #IFDEF TOP cQuery := "SELECT * FROM "+RetSqlName("STB")+" STB WHERE STB.TB_FILIAL = '"+xFilial("STB")+"' AND STB.TB_CODBEM = '"+ST9->T9_CODBEM+"' AND STB.D_E_L_E_T_ = ' '" FillGetDados( _nOpcx, "STB", 1, xFilial("STB")+ST9->T9_CODBEM, {|| "STB->TB_FILIAL + STB->TB_CODBEM"}, {|| .T.},aNoFields,,,cQuery) #ELSE cKeySTB := "ST9->T9_CODBEM" cGETALIASSTB := "STB" cGETWHILESTB := "STB->TB_FILIAL == xFILIAL('STB') .And. STB->TB_CODBEM == ST9->T9_CODBEM" FillGetDados( _nOpcx, cGETALIASSTB, 1, &cKEYSTB, {|| }, {|| .T.},aNoFields,,,,{|| NGMontaAcols(cGETALIASSTB,&cKeySTB,cGETWHILESTB)}) #ENDIF If nOPCAO <> 2 .And. nOPCAO <> 5 // Visual //Verificar se pode excluir as caracteristicas do bem If M->T9_PADRAO == 'S' lGETD := .F. Else lGETD := .T. EndIf EndIf dbSelectArea("STB") dbGobottom() dbSkip() If Empty(aCOLS) .OR. nOPCAO == 3 aCOLS := BLANKGETD(aHEADER) EndIf //Campos que podem ser alterados aALTSTB := {"TB_DETALHE"} nCARACT := aSCAN(aHEADER,{|x| Trim(Upper(x[2])) == "TB_CARACTE"}) nDETALH := aSCAN(aHEADER,{|x| Trim(Upper(x[2])) == "TB_DETALHE"}) aSVHEADER[1] := aCLONE(aHEADER) //aSVHEADER[2] := aCLONE(aHEADER) aSVCOLS[1] := aCLONE(aCOLS) n := Len(aCOLS) lLinOk := "NG080LINOK(1)" oGET01 := MSGETDADOS():New(0,0,135,315,nOPCAO,lLinOk,cTudoOk,"",lGETD,aALTSTB,,.T.,n,,,,,oFOLDER:aDIALOGS[2]) oGET01:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT oGET01:oBROWSE:bGOTFOCUS := {|| ENTRAGET(1)} oGet01:oBrowse:bLostFocus := {|| NG080LINOK()} oGET01:oBROWSE:Default() oGET01:oBROWSE:REFRESH() Activate Dialog oDLG On Init (ENCHOICEBAR(oDLG,{|| lOK:=.T.,If(MNTCHK080(),oDLG:End(),lOK := .F.)},{|| nOK:= 0,NG080CANC(nOPCAO)}),,; AlignObject(oDlg,{oFolder},1)) If lOK .And. STR(nOPCAO ,1) $ "345" NG080GRAVA(nOPCAO) If ALTERA .And. lTEMEST .And. st9->t9_temcont <> cTPCONT MNTA080CON(st9->t9_codbem,st9->t9_temcont) Endif If ALTERA If st9->t9_sitbem = "I" MNTA080IMAN(st9->t9_codbem) Endif Endif Else dbSelectArea(cTRB1080) dbGotop() If Reccount() > 0 dbSelectArea("TPE") dbSetOrder(1) If dbSeek(xFilial("TPE")+M->T9_CODBEM) dbSelectArea(cTRB1080) RecLock("TPE",.F.) For yy := 1 To FCount() x1 := "(cTRB1080)->"+FieldName(yy) y := "TPE->"+FieldName(yy) Replace &y. with &x1. Next yy MsUnlock("TPE") EndIf Else If nOPCAO = 4 .OR. nOPCAO = 3 If lSEGUNDO dbSelectArea("TPE") RecLock("TPE",.F.) dbDelete() MsUnlock("TPE") EndIf EndIf EndIf EndIf dbSelectArea(cTRB1080) Use FErase(cArq + GetDbExtension()) dbSelectArea("ST9") dbSetOrder(1) dbGoto(Recno()) Return/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡…o ³ ENTRAGET ³Autor ³ Vitor Emanuel Batista ³ Data ³ 04/09/08 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³ Retorna aCols e aHeader quando se foca a GETDADOS ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso ³ MNTA0809 ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/Static Function ENTRAGET(nG)Local cVAR := "oGET"+Strzero(nG,2)aHEADER := aCLONE(aSVHEADER[nG])aCOLS := aCLONE(aSVCOLS[nG])n := Len(aCOLS)oFOLDER:REFRESH()lRefresh := .t.If Type(cVAR) == "O" &cVAR:oBROWSE:REFRESH() If cVar = "oGET01" oGet01:oBrowse:Refresh() ElseIf Type(cVAR) == "O" oGet02:oBrowse:Refresh() EndIfEndIfnCONTROGD := nG Return
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
_cALIAS1 | Caracter | Privado | Não | |||||||||||
_nREG | Numérico | Privado | Não | |||||||||||
_nOPCX | Numérico | Privado | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas