Descrição: | Este Ponto de Entrada será executado na rotina de Agrega/desagrega (VEIXA040) e permite incluir um conteúdo padrão para a janela de inclusão de uma peça. Este Ponto de Entrada está localizado na rotina de Agrega/Desagrega, executado no momento de abrir a janela de Incluir PEÇA, tem como finalidade preencher um conteudo padrão para a janela de Inclusão. | ||||||||||||||||||||||||||
Localização: | Atualizações \ MovAtendimento \ Agrega/desagrega (VEIXA040) | ||||||||||||||||||||||||||
Eventos: | AADD(aParamBox,{1,STR0065,cGruIte,"@!",'vazio().or.(FG_Seek("SBM","MV_PAR01",1,.f.).and.(cGruIte:=MV_PAR01))',"BM5",clMod,30,.t. Else // Inclusao - Possibilita inserir conteudo ( inicializador / relacao nos campos ) na tela de Item ( SB1 ) If ExistBlock("VXX040RL") // Relacao dos Campos da tela de Item ( SB1 ) }) AADD(aParamBox,{1,STR0066,cCodIte,"@!",'vazio().or.(FG_POSSB1("MV_PAR02","SB1->B1_CODITE","MV_PAR01").and.(cCodIte:=MV_PAR02))',"B16",clMod,100,.t.}) AADD(aParamBox,{1,STR0032,nQtd,"@E 9999","MV_PAR03>0","",clMod,50,.t.}) If nOperacao == 2 // Desagregar AADD(aParamBox,{1,STR0077,nCus,"@E 9,999,999.99","MV_PAR04>=0","",clMod,80,.t.}) // Valor EndIf For ni := 1 to len(aParambox) aAdd(aRetIte,aParambox[ni,3]) // Carregando conteudo Default Next If ParamBox(aParamBox,STR0062,@aRetIte,,,,,,,,.f.) .and. ( !lVXX040IT .or. ExecBlock("VXX040ITaVRelacao := ExecBlock("VXX040RL",.f.,.f.,{ cTp , nOperacao , aClone(aVRelacaoaRetIte) }) ) cGruIte := aVRelacao[1] cCodIte := aVRelacao[2] nQtd := aVRelacao[3] nCus := aVRelacao[4] EndIf EndIf // Peca | ||||||||||||||||||||||||||
Programa Fonte: | VEIXA040VEIXX040.PRW | ||||||||||||||||||||||||||
Função: | FS_IAEITE() | ||||||||||||||||||||||||||
| Parâmetros: |
| ||||||||||||||||||||||||||
| Retorno: |
| Retorno: |
|
Exemplo:
Include totvs.ch
/*
/*
VXX040RL VXX040IT - Ponto de Entrada na no OK da Tela de Inclusão Manutenção de Peças do Agrega/Desagrega
Utilizado para trazer o conteudo padrao dos campos na tela
Retorno do Ponto de Entrada:
Array com o conteudo inicializador dos campos -
Validar no OK da Tela de Inclusão, Alteração ou Exclusão
Retorno: lógico ( .t. / .f. ) para dar continuidade ao processoObs.: disparado somente na Inclusão de Peças
*/
User Function VXX040RL(VXX040IT()
Local cTp := ParamIXB[01] // Tipo de Chamada ( I = Inclusão / A = Alteração / E = Exclusão )
Local cAgrDes := ParamIXB[0102] // Operação ( 1 = Agrega / 2 = Desagrega )
Local aRet aVetor := ParamIXB[0203] // Array com conteudo { Grupo do Item , Codigo do Item , Quantidade , Custo }
Local lRet := .t. // Retorno ( Lógico )
/*
aRetaVetor[1] = Grupo do Item
aRetaVetor[2] = Codigo do Item
aRetaVetor[3] = Quantidade
aRetaVetor[4] = Custo ( utilizado somente na Operação de Desagrega Desagregacao )
*/
Do Case
Case cTp == "I" // Validar a Inclusão
If aVetor[1] <> "XXXX" // Validar o Grupo por exemplo
lRet := .t.
Else
lRet := .f.
EndIf
Case cTp == "A" // Validar a Alteração
If aVetor[2] <> "XXXXXXXXXXXXX" // Validar o Codigo do Item por exemplo
lRet := .t.
Else
lRet := .f.
EndIf
Case cTp == "E" // Validar a Exclusão
lRet := .t.
EndCase
//
MsgInfo("Ponto de Entrada VXX040RL VXX040IT executado com sucesso!")
Return aRetlRet
