Descrição: | Este Ponto de Entrada será executado na rotina Painel Orçamento (OFIXA018) na abertura da rotina. A mesma permite inserir novas cores de legenda no browser | ||||||||||||||||||||||||
Localização: | Atualizações \ Mov Oficina \ Painel Orçamento (OFIXA018) | ||||||||||||||||||||||||
Eventos: | Função OA18ROBJOR If lOrc_AtuStatus VS1->(DbSetOrder(1)) If VS1->(DbSeek( xFilial("VS1") + aLbOrcs[oLbOrcs:nAt, nPosNumOrc] )) aLbOrcs[oLbOrcs:nAt, nPosStatus] := VS1->VS1_STATUS EndIf EndIf cStatus := aLbOrcs[oLbOrcs:nAt, nPosStatus] cTipOrc := aLbOrcs[oLbOrcs:nAt, nPosTipOrc] cGerFin := aLbOrcs[oLbOrcs:nAt, nPosGerFin] Do Case Case cStatus == "0" .AND. cTipOrc == "2" return of10verd Case cStatus == "0" .AND. cTipOrc == "1" return oBRVERDE Case cStatus == "2" .AND. cTipOrc == "1" return oBRPINK Case cStatus == "3" return oBRBRANCO Case cStatus == cXA018FaseConfer return oBRAZUL Case cStatus == "5" return oBRMARROM Case cStatus $ "RT" return oBRCINZA Case cStatus == "F" .AND. cTipOrc == "1" return oBRAMARELO Case cStatus == "F" .AND. cTipOrc == "2" return of5amar Case cStatus == "P" .OR. (cStatus == "2" .AND. cTipOrc == "2") return of12azul Case cStatus == "L" return of5amar Case cStatus == "I" return of14cinz Case cStatus == "C" .AND. cTipOrc == "2" return of7verm Case cStatus == "C" .AND. cTipOrc == "1" return oBRVERMELHO Case cStatus == "X" If cTipOrc == "1" .and. cGerFin =="0" Return oBRPRCruz Else return oBRPRETO Endif Case ExistBlock("OX018COR") return ExecBlock("OX018COR",.f.,.f.,{"O",cStatus,cTipOrc,cGerFin}) EndCase Função OA18ROBJPD if lPed_AtuStatus VS1->(DbSetOrder(1)) VS1->(DbSeek( xFilial("VS1") + aLbPedi[oLbPedi:nAt, nPosNumOrc] )) aLbPedi[oLbPedi:nAt, nPosPedSta] := VS1->VS1_PEDSTA endif cPedSta := aLbPedi[oLbPedi:nAt, nPosPedSta] Do Case Case cPedSta == "0" return oBRVERDE Case cPedSta == "1" return oBRAMARELO Case cPedSta == "2" return oBRPRETO Case cPedSta == "3" return oBRVERMELHO Case ExistBlock("OX018COR") return ExecBlock("OX018COR",.f.,.f.,{"P",cPedSta}) EndCase | ||||||||||||||||||||||||
Programa Fonte: | OFIXA018.PRW | ||||||||||||||||||||||||
Função: | OA18ROBJPD() / OA18ROBJOR() | ||||||||||||||||||||||||
| Parâmetros: |
| ||||||||||||||||||||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
User Function OX018COR()
Local cTipoOp := ParamIXB[1]
Local cStatus := ParamIXB[2]
Local oBRMARROM := LoadBitmap( GetResources(), "BR_MARROM" )
Local oBRBRANCO := LoadBitmap( GetResources(), "BR_BRANCO" )
Local oBRPRETO := LoadBitmap( GetResources(), "BR_PRETO" )
If cTipoOp == "P"
if cStatus == "Z"
Return oBRMARROM
EndIf
ElseIf cTipoOp == "O"
if cStatus == "Z"
Return oBRPRETO
EndIf
EndIf
Return oBRBRANCO
OBS.: Este Ponto de Entrada trabalha em conjunto com os Pontos de Entrada abaixo:
