Ponto-de-Entrada: OA013ROT - Conf. Orçamentos
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada executado antes do browse da rotina Conf. Orçamentos (OFIXA013) com a finalidade de gravação de log.
Eventos
User Function OA013ROT()
MsgInfo("OA013ROT()
return
Programa Fonte
OFIXA013.PRW
Sintaxe
OA013ROT - Conf. Orçamentos ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
Function OFIXA013()
Private cCadastro := STR0001 // Orcamento de Pecas e Servicos
Private aRotina := MenuDef()
Private aCores := { {'OXAVERORC()=="1"','BR_VERDE'},;
{'OXAVERORC()=="2"','BR_AMARELO'}}
// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aOrc
If ExistBlock("OA013ROT")
ExecBlock("OA013ROT",.f.,.f.)
EndIf
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("VS1")
dbSetOrder(1)
//
FilBrowse('VS1',{},'VS1->VS1_STATUS=="4" .and. (VS1_DATVAL >= ddatabase .or. VS1_TIPORC=="3")') // Filtra os retornos de remessa
mBrowse( 6, 1,22,75,"VS1",,,,,,aCores)
dbClearFilter()
//
Return
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |