Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada utilizado para inserir elemento nas matrizes utilizadas no ListBox da Fila da OS (deve trabalhar em conjunto com o OM490TEL).

Atenção: a rotina Fila de O.S. (OFIOM490) se encontra em homologação. Assim que a mesma for aprovada e disponibilizada, este aviso será removido e a documentação para implementação da mesma será disponibilizada no TDN.

Parâmetros:

Nome do ListBox atual

Eventos:

Private aTempDados := {}


aTempDados := {;

(cAuxOSAlias)->VO1_NUMOSV ,; // 1 - NumOSV

(cAuxOSAlias)->VO1_PLAVEI ,; // 2 - Placa Veiculo

(cAuxOSAlias)->A1_NOME ,; // 3 - Nome do Cliente

(cAuxOSAlias)->VAI_NOMTEC ,; // 4 - Nome do Produtivo

(cAuxOSAlias)->VO4_CODPRO ,; // 5 - Codigo do Produtivo

(cAuxOSAlias)->VO4_TIPTEM ,; // 6 - Tipo de Tempo

(cAuxOSAlias)->VO1_DATABE + StrZero((cAuxOSAlias)->VO1_HORABE,4) ; // 7 - Coluna para organizar

}


If lPEAddFila

ExecBlock("OM490AFL",.f.,.f.,{ cNomeLBox , OS_TAM_MATRIZ })

EndIf


AADD( &(cNomeArray) , aClone(aTempDados) )


Programa Fonte:

OFIOM490.PRW 

Função:

OFM490012_AddFila() 

Retorno:


 

Exemplo:

// Ponto de Entrada utilizado para inserir elemento nas matrizes utilizadas no ListBox da Fila da OS e Produtivo

User Function OM490AFL()


Local cParFila := ParamIXB[1]

Local nTamMatriz := ParamIXB[2]


If cParFila == "FILA"

AADD(aTempDados,(cAuxOSAlias)->VO1_XHABIL)

EndIf


If cParFila == "FILA_PRODUTIVO"

AADD(aTempDados,(cAuxProdutivo)->VAI_XHABIL)

EndIf


Return