Histórico da Página
Ponto de Entrada
Descrição: | Este ponto de entrada está localizado na rotina de Pedido Máquinas (VEIVM190) e é utilizado para inserir a segunda coluna de cores na grid dos pedidos. Este ponto de entrada trabalha em conjunto com os pontos de entrada VM190STA e VM190LEG. | |||||||||
Localização: | Atualizações \ Máquinas JD \ Pedido Máquinas JD (VEIVM190) | |||||||||
Eventos: | /*/{Protheus.doc} VVM1900021_Cor2Coluna Retorna a Cor da 2a.Coluna @author Andre Luis Almeida @since 13/07/2018 /*/ Static Function VVM1900021_Cor2Coluna( aVetPed , nLinVetPed ) Local cCor2Coluna := ExecBlock("VM190COR",.f.,.f.,{ aVetPed , nLinVetPed }) /* Principais elementos do Vetor de Pedidos enviado como Parametro para serem utilizados no Ponto de Entrada VM190COR: aVetPed[ nLinVetPed , 01 ] = Numero do Pedido ( caracter ) aVetPed[ nLinVetPed , 02 ] = Data do Pedido ( string exemplo: 20180715 ) aVetPed[ nLinVetPed , 03 ] = Chassi - VV1_CHASSI ( caracter ) aVetPed[ nLinVetPed , 15 ] = Data FDD ( string exemplo: 20180715 ) aVetPed[ nLinVetPed , 17 ] = RecNo do VQ0 ( numerico ) aVetPed[ nLinVetPed , 19 ] = Filial do Pedido ( caracter ) aVetPed[ nLinVetPed , 26 ] = ChaInt - VV1_CHAINT ( caracter ) aVetPed[ nLinVetPed , 29 ] = Data ORSD ( string exemplo: 20180715 ) aVetPed[ nLinVetPed , 32 ] = Status ( caracter ) Exemplos de Retorno ( nome cor ) do Ponto de Entrada VM190COR: cCor2Coluna := "BR_VERDE" cCor2Coluna := "BR_AZUL" cCor2Coluna := "BR_VERMELHO" cCor2Coluna := "BR_BRANCO" */ Return LoadBitmap( GetResources() , cCor2Coluna ) | |||||||||
Programa Fonte: | VEIVM190.PRW | |||||||||
Função: | VVM1900021_Cor2Coluna() | |||||||||
| Parâmetros: |
Principais elementos do Vetor de Pedidos enviado como Parametro para serem utilizados: aAuxPed[ nAuxLin , 01 ] = Numero do Pedido ( caracter ) aAuxPed[ nAuxLin , 02 ] = Data do Pedido ( string exemplo: 20180715 ) aAuxPed[ nAuxLin , 03 ] = Chassi - VV1_CHASSI ( caracter ) aAuxPed[ nAuxLin , 15 ] = Data FDD ( string exemplo: 20180715 ) aAuxPed[ nAuxLin , 17 ] = RecNo do VQ0 ( numerico ) aAuxPed[ nAuxLin , 19 ] = Filial do Pedido ( caracter ) aAuxPed[ nAuxLin , 26 ] = ChaInt - VV1_CHAINT ( caracter ) aAuxPed[ nAuxLin , 29 ] = Data ORSD ( string exemplo: 20180715 ) | |||||||||
Retorno: |
|
Exemplo:
//////////////////////////////////////////////////////////////////
// Ponto de Entrada na rotina de Pedidos de Maquinas (VEIVM190) //
// utilizado para inserir 2a.coluna de cores na grid dos Pedidos//
//////////////////////////////////////////////////////////////////
User Function VM190COR()
Local cRetCor := ""
Local dAuxDat := dDataBase
Local aAuxPed := ParamIxb[01]
Local nAuxLin := ParamIxb[02]
/*
Principais elementos do Vetor de Pedidos enviado como Parametro para
serem utilizados:
aAuxPed[ nAuxLin , 01 ] = Numero do Pedido ( caracter )
aAuxPed[ nAuxLin , 02 ] = Data do Pedido ( string exemplo: 20180715 )
aAuxPed[ nAuxLin , 03 ] = Chassi - VV1_CHASSI ( caracter )
aAuxPed[ nAuxLin , 15 ] = Data FDD ( string exemplo: 20180715 )
aAuxPed[ nAuxLin , 17 ] = RecNo do VQ0 ( numerico )
aAuxPed[ nAuxLin , 19 ] = Filial do Pedido ( caracter )
aAuxPed[ nAuxLin , 26 ] = ChaInt - VV1_CHAINT ( caracter )
aAuxPed[ nAuxLin , 29 ] = Data ORSD ( string exemplo: 20180715 )
aAuxPed[ nAuxLin , 32 ] = Status ( caracter )
Exemplos de Retorno ( nome cor ):
cRetCor := "BR_VERDE"
cRetCor := "BR_AZUL"
cRetCor := "BR_VERMELHO"
cRetCor := "BR_BRANCO"
cRetCor := "BR_PINK"
cRetCor := "BR_PRETO"
cRetCor := "BR_CINZA"
cRetCor := "BR_LARANJA"
*/
dAuxDat := stod( aAuxPed[ nAuxLin , 29 ] ) // Data ORSD
If ( dAuxDat - dDataBase ) < 43
cRetCor := "BR_PINK"
ElseIf ( dAuxDat - dDataBase ) < 57
cRetCor := "BR_LARANJA"
Else
cRetCor := "BR_CINZA"
EndIf
Return cRetCor
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas