Linha Microsiga Protheus

Árvore de páginas

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)