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 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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas