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