Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:

#Include 'Protheus.ch'

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

// //

// 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)