Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA0809 - Cadastro de Bens
Descrição: Ponto de Entrada chamado ao clicar no botão Incluir, Alterar ou Excluir no cadastro de Bens.Ao invés de chamar o cadastro padrão, ele irá chamar a tela de cadastro personalizado do cliente. Eventos
Programa Fonte MNTA0809.PRW Sintaxe MNTA0809 - Cadastro de Bens ( ) --> Nil 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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas