| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Modelo3
Descrição: Exibe formulário para cadastro contendo uma enchoice e uma getdados. Programa Fonte: MATXATU.PRW Sintaxe: Modelo3 ( cTitulocAliascAlias2 [ aMyEncho ] [ cLinhaOk ] [ cTudoOk ] [ nOpcE ] [ nOpcG ] [ cFieldOk ] [ lVirtual ] [ nLinhas ] [ aAltEnchoice ] [ nFreeze ] [ aButtons ] [ aCordW ] [ nSizeHeader ] ) --> lRet Retorno:
Exemplos #include "rwmake.ch" User Function RDMOD3() Local _niaRotina := {{ "Pesquisa","AxPesqui", 0 , 1},; { "Visual","AxVisual", 0 , 2},; { "Inclui","AxInclui", 0 , 3},; { "Altera","AxAltera", 0 , 4, 20 },; { "Exclui","AxDeleta", 0 , 5, 21 }}//+--------------------------------------------------------------+//| Opcoes de acesso para a Modelo 3 |//+--------------------------------------------------------------+cOpcao:="INCLUIR"Do Case Case cOpcao=="INCLUIR"; nOpcE:=3 ; nOpcG:=3 Case cOpcao=="ALTERAR"; nOpcE:=3 ; nOpcG:=3 Case cOpcao=="VISUALIZAR"; nOpcE:=2 ; nOpcG:=2EndCaseDbSelectArea("SC5")DbSetOrder(1)DbGotop()//+--------------------------------------------------------------+//| Cria variaveis M->????? da Enchoice |//+--------------------------------------------------------------+RegToMemory("SC5",(cOpcao=="INCLUIR"))//+--------------------------------------------------------------+//| Cria aHeader e aCols da GetDados |//+--------------------------------------------------------------+nUsado:=0dbSelectArea("SX3")DbSetOrder(1)DbSeek("SC6")aHeader:={}While !Eof().And.(x3_arquivo=="SC6") If Alltrim(x3_campo)=="C6_ITEM" dbSkip() Loop Endif If X3USO(x3_usado).And.cNivel>=x3_nivel nUsado:=nUsado+1 Aadd(aHeader,{ TRIM(x3_titulo), x3_campo, x3_picture,; x3_tamanho, x3_decimal,"AllwaysTrue()",; x3_usado, x3_tipo, x3_arquivo, x3_context } ) Endif dbSkip()EndIf cOpcao=="INCLUIR" aCols:={Array(nUsado+1)} aCols[1,nUsado+1]:=.F. For _ni:=1 to nUsado aCols[1,_ni]:=CriaVar(aHeader[_ni,2]) NextElse aCols:={} dbSelectArea("SC6") dbSetOrder(1) dbSeek(xFilial()+M->C5_NUM) While !eof().and. SC6->C6_NUM == M->C5_NUM AADD(aCols,Array(nUsado+1)) For _ni:=1 to nUsado aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2])) Next aCols[Len(aCols),nUsado+1]:=.F. dbSkip() EndEndifIf Len(aCols)>0 //+--------------------------------------------------------------+ //| Executa a Modelo 3 | //+--------------------------------------------------------------+ cTitulo:="Teste de Modelo3()" cAliasEnchoice:="SC5" cAliasGetD:="SC6" cLinOk:="AllwaysTrue()" cTudOk:="AllwaysTrue()" cFieldOk:="AllwaysTrue()"// aCpoEnchoice:={} //{"C5_CLIENTE"} _lRet:=Modelo3(cTitulo,cAliasEnchoice,cAliasGetD,,cLinOk,cTudOk,nOpcE,nOpcG,cFieldOk) //+--------------------------------------------------------------+ //| Executar processamento | //+--------------------------------------------------------------+ If _lRet Aviso("Modelo3()","Confirmada operacao!",{"Ok"}) EndifEndif Return Parâmetros:
|
