Ponto de Entrada
Descrição: | Criação de Opção no Ações Relacionadas da Consulta da OS (OFIOC060) |
Localização: | Consultas / Gerais / Ordem de Serviços (OFIOC060) |
Eventos: | Function OC060(cAlias,nReg,nOpc) //variaveis controle de janela Local aObjects := {} , aPosObj := {} , aInfo := {} Local aSizeAut := MsAdvSize(.t.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR) Local nTamSerie := FGX_MILSNF("VOO", 6, "VOO_SERNFI") // Local aFolder060 := {} Local aAreaVAI := VAI->(GetArea()) // Private oOkTik := LoadBitmap( GetResources() , "LBTIK" ) Private oNoTik := LoadBitmap( GetResources() , "LBNO" ) // Private a060TPC := {} // Todas Pecas Private a060TSC := {} // Todos Servicos // Private a060Res := {} // Folder 1 - Resumo // Private a060PecaTT := {} // Folder 2 - ListBox Tipo de Tempo Pecas Private a060PecaInconv := {} // Folder 2 - ListBox Inconveniente Pecas Private a060PecaGrp := {} // Folder 2 - ListBox Grupo de Pecas Private a060Peca := {} // Folder 2 - ListBox de Pecas // Private a060SrvcTT := {} // Folder 3 - ListBox Tipo de Tempo Servicos Private a060SrvcInconv := {} // Folder 3 - ListBox Inconveniente Servicos Private a060SrvcTipoSer := {} // Folder 3 - ListBox Tipo de Servico Private a060Srvc := {} // Folder 3 - ListBox de Servicos // Private a060Psa := {} // Folder 4 - ListBox de Pausas Servicos // Private a060Orc := {} // Folder 5 - ListBox de Orcamentos // Private a060Pen := {} // Folder 6 - Pecas Pendentes // Private lLbPLTpP := .t. // Tik no ListBox Tipo de Tempo Pecas Private lLbPLTpS := .t. // Tik no ListBox Tipo de Tempo Servicos Private lLbPLInP := .t. // Tik no ListBox Inconveniente Pecas Private lLbPLInS := .t. // Tik no ListBox Inconveniente Servicos Private lLbPLGp := .t. // Tik no ListBox Grupo de Pecas Private lLbPLTS := .t. // Tik no ListBox Tipo de Servico // Private lTemPec := .t. // Possui FOLDER 2-Pecas Private lTemSrv := .t. // Possui FOLDER 3-Servicos Private lTemPsa := .t. // Possui FOLDER 4-Pausas Servicos Private lTemOrc := .t. // Possui FOLDER 5-Orcamentos Private lTemPen := .t. // Possui FOLDER 6-Peças Pendentes // Private oNada := LoadBitmap( GetResources() , "NAOEXISTE" ) // DEIXAR SEM IMAGEM Private oCor := oNada Private oAzul := LoadBitmap( GetResources() , "BR_AZUL" ) // Liberado Private oVerm := LoadBitmap( GetResources() , "BR_VERMELHO" ) // Faturado Private oVerd := LoadBitmap( GetResources() , "BR_VERDE" ) // Aberto Private oPret := LoadBitmap( GetResources() , "BR_PRETO" ) // Cancelado // Private aNewBot := {} // Opcoes -> Acoes Relacionadas // Private cCadastro := STR0001 // Ordens de Serviço // OC060_LEV() // Levanta registros: PECAS e SERVICOS // aObjects := {} AAdd( aObjects, { 1, 10 , .T., .T. } ) AAdd( aObjects, { 1, 00 , .T., .F. } ) aInfo := {aSizeAut[1] , aSizeAut[2] , aSizeAut[3] , aSizeAut[4] , 2 , 2 } aPosObj := MsObjSize (aInfo, aObjects,.F.) // VV1->(DbSetOrder(1)) VV1->(DbSeek( xFilial("VV1") + VO1->VO1_CHAINT )) // VE1->(DbSetOrder(1)) VE1->(DbSeek( xFilial("VE1") + VV1->VV1_CODMAR )) // SA1->(DbSetOrder(1)) SA1->(DbSeek( xFilial("SA1") + VO1->VO1_PROVEI + VO1->VO1_LOJPRO )) // nTamLb := ( ( aPosObj[1,4] - 15 ) / 9 ) // Dividir TELA em 9 colunas ( 3 LISTBOX ) // AADD(aNewBot, {"PMSCOLOR",{|| OC060LEG() },( STR0002 )} ) // Legenda
If ( ExistBlock("OC060ABT") ) // Incluir Opcoes no Acoes relacionadas aNewBot := ExecBlock("OC060ABT",.f.,.f.,{aNewBot}) EndIf
|
Programa Fonte: | OFIOC060.PRW |
Função: | OC060 |
Parâmetros: | ParamIxb[1] - Vetor de opçoes originais |
Retorno: | aRet - vetor com opções customizadas |
Exemplo:
// Adicionar opcoes no "Acoes Relacionadas" no OFIOC060
User Function OC060ABT()
Local aRet := ParamIxb[01] // aNewBot -
aAdd(aret, {"AVGBOX1", {|| U_TESTE() }, "Descrição da Opção" } )
Return(aRet)