OX100CCS Atualização do Valor Padrão dos Campos de Contabilidade de Serviços no Fechamento OS Modelo 2 (OFIXA100)

Ponto de Entrada

Descrição:	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 Serviços: "VO4_CENCUS" , "VO4_CONTA" , "VO4_ITEMCT" e "VO4_CLVL".
Localização:	Atualizações \ Mov Oficina \ Fechamento Os Mod 2 (OFIXA100)
Eventos:	If ExistBlock("OX100CCS") aAuxCCS := {} aAdd(aAuxCCS,{"VO4_CENCUS",oGetResVO4:aCols[ nPos , RVO4CENCUS]}) // 1 aAdd(aAuxCCS,{"VO4_CONTA" ,oGetResVO4:aCols[ nPos , RVO4CONTA ]}) // 2 aAdd(aAuxCCS,{"VO4_ITEMCT",oGetResVO4:aCols[ nPos , RVO4ITEMCT ]}) // 3 aAdd(aAuxCCS,{"VO4_CLVL" ,oGetResVO4:aCols[ nPos , RVO4CLVL ]}) // 4 aAuxCCS := ExecBlock("OX100CCS",.f.,.f.,{ oGetDetVO4:aCols[nCntFor,DVO4TIPTEM] , oGetDetVO4:aCols[nCntFor,DVO4TIPSER] , aAuxCCS }) oGetResVO4:aCols[ nPos , RVO4CENCUS ] := aAuxCCS[01,02] oGetResVO4:aCols[ nPos , RVO4CONTA ] := aAuxCCS[02,02] oGetResVO4:aCols[ nPos , RVO4ITEMCT ] := aAuxCCS[03,02] oGetResVO4:aCols[ nPos , RVO4CLVL ] := aAuxCCS[04,02] EndIf
Programa Fonte:	OFIXX100.PRW
Função:	OX100SLPRC()
Retorno:	aCCSrv - Vetor com o conteudo dos campos: aCCSrv[1,2] := "" // VO4_CENCUS aCCSrv[2,2] := "" // VO4_CONTA aCCSrv[3,2] := "" // VO4_ITEMCT aCCSrv[4,2] := "" // VO4_CLVL
Parâmetros:	cTpTmp := ParamIxb[1] // Tipo de Tempo cTpSrv := ParamIxb[2] // Tipo de Serviço aCCSrv := ParamIxb[3] // Vetor com os campos e seus respectivos conteudos que podem ser alterados

Exemplo:

//////////////////////////////////////////////////////////////////////////////////////////////////

// //

// OX100CCS - 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 Serviços: //

// "VO4_CENCUS" //

// "VO4_CONTA" //

// "VO4_ITEMCT" //

// "VO4_CLVL" //

// //

//////////////////////////////////////////////////////////////////////////////////////////////////

User Function OX100CCS()

Local cTpTmp := ParamIxb[1] // Tipo de Tempo

Local cTpSrv := ParamIxb[2] // Tipo de Serviço

Local aCCSrv := ParamIxb[3] // Vetor com os campos e seus respectivos conteudos que podem ser alterados

// aCCSrv[1,2] := "" // VO4_CENCUS

// aCCSrv[2,2] := "" // VO4_CONTA

// aCCSrv[3,2] := "" // VO4_ITEMCT

// aCCSrv[4,2] := "" // VO4_CLVL

MsgInfo("Ponto de entrada OX100CCS executado com sucesso!")

Return aClone(aCCSrv)