Histórico da Página
Ponto de Entrada
Descrição: | Ponto de Entrada no Fechamento de Ordem de Serviço, executado no momento que o usuário clica em "Selecionar para Fechamento". Possibilita alterar o valor default dos campos relacionados ao Centro de Custo de Peças: "VO3_CENCUS" , "VO3_CONTA" , "VO3_ITEMCT" e "VO3_CLVL". |
Localização: | Atualizações \ Mov Oficina \ Fechamento Os Mod 2 (OFIXA100) |
Eventos: | If ExistBlock("OX100CCP") aAuxCCP := {} aAdd(aAuxCCP,{"VO3_CENCUS",oGetDetVO3:aCols[nPos, DVO3CENCUS ]}) // 1 aAdd(aAuxCCP,{"VO3_CONTA" ,oGetDetVO3:aCols[nPos, DVO3CONTA ]}) // 2 aAdd(aAuxCCP,{"VO3_ITEMCT",oGetDetVO3:aCols[nPos, DVO3ITEMCT ]}) // 3 aAdd(aAuxCCP,{"VO3_CLVL" ,oGetDetVO3:aCols[nPos, DVO3CLVL ]}) // 4 aAuxCCP := ExecBlock("OX100CCP",.f.,.f.,{ cTipTem, oGetDetVO3:aCols[nPos, DVO3GRUITE ] , oGetDetVO3:aCols[nPos, DVO3CODITE ] , aAuxCCP, cNumOS }) oGetDetVO3:aCols[nPos, DVO3CENCUS ] := aAuxCCP[01,02] oGetDetVO3:aCols[nPos, DVO3CONTA ] := aAuxCCP[02,02] oGetDetVO3:aCols[nPos, DVO3ITEMCT ] := aAuxCCP[03,02] oGetDetVO3:aCols[nPos, DVO3CLVL ] := aAuxCCP[04,02] EndIf |
Programa Fonte: | OFIXX100.PRW |
Função: | OX100PECA() |
Retorno: | aCCPec - Vetor com o conteúdo dos campos: aCCPec[1,2] := "" // VO3_CENCUS aCCPec[2,2] := "" // VO3_CONTA aCCPec[3,2] := "" // VO3_ITEMCT aCCPec[4,2] := "" // VO3_CLVL |
Parâmetros: | cTpTmp := ParamIxb[1] // Tipo de Tempo cGpPec := ParamIxb[2] // Grupo da Peca cCdPec := ParamIxb[3] // Codigo da Peca aCCPec := ParamIxb[4] // Vetor com os campos e seus respectivos conteúdos que podem ser alterados cNumOs := ParamIxb[5] // Numero da OS |
Exemplo:
#Include 'Protheus.ch'
//////////////////////////////////////////////////////////////////////////////////////////////////
// //
// OX100CCP - Ponto de Entrada no Fechamento de Ordem de Serviço, executado no momento que o //
// usuario clica em "Selecionar para Fechamento". Possibilita alterar o valor //
// default dos campos relacionados ao Centro de Custo de Peças: //
// "VO3_CENCUS" //
// "VO3_CONTA" //
// "VO3_ITEMCT" //
// "VO3_CLVL" //
// //
//////////////////////////////////////////////////////////////////////////////////////////////////
User Function OX100CCP()
Local cTpTmp := ParamIxb[1] // Tipo de Tempo
Local cGpPec := ParamIxb[2] // Grupo da Peca
Local cCdPec := ParamIxb[3] // Codigo da Peca
Local aCCPec := ParamIxb[4] // Vetor com os campos e seus respectivos conteudos que podem ser alterados
Local cNumOs := ParamIxb[5] // Numero da OS
// aCCPec[1,2] := "" // VO3_CENCUS
// aCCPec[2,2] := "" // VO3_CONTA
// aCCPec[3,2] := "" // VO3_ITEMCT
// aCCPec[4,2] := "" // VO3_CLVL
MsgInfo("Ponto de entrada OX100CCP executado com sucesso! OS: "+cNumOs)
Return aClone(aCCPec)