Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

aRet

Array

Vetor com os campos/colunas customizadas

aRet[ni,1]

ArrayTitulo do Campo/Coluna
aRet[ni,2]ArrayAlinhamento dos dados (LEFT/RIGHT)
aRet[ni,3]ArrayLargura da Coluna no Listbox
aRet[ni,4]ArrayCodeBlock (função) executado a cada linha no momento do SetArray/bLine do listbox

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)