Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição
aAuxPedVetorVetor do Pedido
nAuxLinNuméricoLinha do vetor do Pedido

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:

NomeTipoDescrição
cRetCorCaractere

nome da cor a ser utilizada.

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"

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