Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada está localizado na rotina Consulta de Veiculos (VEIXC001), executado na opção "Parametros/Colunas" (atalho F12). Após confirmar a inclusão do campo e sua ordem, ao acessar novamente a rotina, o Ponto de Entrada também será executado corretamente. Sua finalidade é permitir campos/colunas customizadas no listbox referente a listagem de veiculos. | ||||||||||||||||||
Localização: | Consultas \ Gerais \ Veic. Atendimento (VEIXX001) | ||||||||||||||||||
Eventos: | If ExistBlock("VXC01CPO") For ni := 15 to len(cABC) For ny := 1 to len(cABC) aAdd(aOrdens,substr(cABC,ni,1)+substr(cABC,ny,1)) Next Next aVeicCust := ExecBlock("VXC01CPO",.f.,.f.,) For ni := 1 to len(aVeicCust) aAdd(aF12Tot,{ aOrdens[ni] , aVeicCust[ni,1] , aVeicCust[ni,4] , aVeicCust[ni,2] , aVeicCust[ni,3] }) // Campos Customizados Next EndIf | ||||||||||||||||||
Programa Fonte: | VEIXC001.PRW | ||||||||||||||||||
Função: | VXC001F12() | ||||||||||||||||||
Parâmetros: | N/A | ||||||||||||||||||
Retorno: |
|
Exemplo:
Include totvs.ch
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍ»±±
±±º Programa ³ VXC01CPO º Autor ³ Andre Luis Almeida º Data ³ 15/05/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍ͹±±
±±º Descricao³ Campos/Informacoes a serem apresentadas no ListBox de º±±
±±º ³ Veiculos da Consulta de Veiculos ( VEIXC001 ) º±±
±±ÌÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±º aVeicVer -> Vetor referente ao ListBox do Veiculo º±±
±±º oLbVeic:nAt -> Linha do Vetor referente ao ListBox do Veiculo º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VXC01CPO()
Local aRet := {}
//
aAdd(aRet,{"Compl.Modelo","LEFT",45,{ || U_M_CPOVV1( aVeicVer[oLbVeic:nAt,3] , aVeicVer[oLbVeic:nAt,24] , 'VV1->VV1_COMMOD' ) } })
aAdd(aRet,{"Loc.Padrao" ,"LEFT",25,{ || U_M_CPOVV1( aVeicVer[oLbVeic:nAt,3] , aVeicVer[oLbVeic:nAt,24] , 'VV1->VV1_LOCPAD' ) } })
//
Return(aRet)
User Function M_CPOVV1(cFilVV1,cChaInt,cCampo)
Local cRet := ""
Local cxFil := xFilial("VV1")
DbSelectArea("VV1")
DbSetOrder(1)
If Empty(cxFil)
DbSeek( cxFil + cChaInt )
Else
DbSeek( cFilVV1 + cChaInt )
EndIf
If VV1->(Found())
cRet := &(cCampo)
EndIf
Return(cRet)