TUYLIN_DT_OC060ABT_Novas_Opcoes_Acoes_Relacionadas

Descrição:

Criação de Opção no Ações Relacionadas da Consulta da 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

Função:

OC060