Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Ponto de Entrada VXCPVQ0, substitui a tela de seleção de pedidos de Fabrica. Caso esteja compilado, este Ponto de Entrada, somente será ativado caso o pedido selecionado possuir mais de uma máquina vinculada.

Localização:

Atualizações \ Mov Atendimento \Atend. Modelo2 (VEIXA018)

Eventos:

Static Function VXC001PDM()
LOCAL aArea := GetArea()



Local cTitulo    := OemToAnsi(STR0106 + cNumPed) //Seleciona o Veiculo/Máquina no Pedido:
Local nOpca     := 0
Local nL        := 35

Private aVetVQ0     := {}    // Status
Private oTik      := LoadBitmap(GetResources(), "LBTIK")
Private oNo       := LoadBitmap(GetResources(), "LBNO" )
Private lAbortPrint := .F.
Private oDlgVQ0
Default lFecha := .F.

dbSelectArea("VQ0")
dbSetOrder(2)
dbSeek(xFilial("VQ0")+cNumPed)
IF Eof()
    Return .F.
Endif

While !Eof() .and. VQ0->(VQ0_FILIAL+VQ0_NUMPED) == xFilial("VQ0")+cNumPed
    IF !Empty(cNumPed)
        aAdd(aVetVQ0,{.F.,VQ0->VQ0_CHASSI,VQ0->VQ0_CHAINT, VQ0->VQ0_MODVEI})
    Endif
    dbSkip()
Enddo
IF Len(aVetVQ0) == 0
    Return .F.
Endif

IF Len(aVetVQ0) == 1
    cChassi := aVetVQ0[1,2]
    cChaint := aVetVQ0[1,3]
    Return .T.
Else    

    oDlgVQ0 := MSDialog():New(180,180,600,750,cTitulo,,,,,CLR_BLACK,CLR_WHITE,,,.T.)

    If ExistBlock("VXCPVQ0")
        ExecBlock("VXCPVQ0",.f.,.f.,{aVetVQ0})
    Else

        @ 07, 07 SAY STR0011 OF oDlgVQ0 PIXEL COLOR CLR_BLUE // Marca
        @ 17, 05 LISTBOX oLbox1 FIELDS HEADER "", STR0033, STR0107, STR0014 SIZE 260, 150  oDlgVQ0 PIXEL ON DBLCLICK (MarcaSel(@aVetVQ0,oLbox1:nAt),oLbox1:Refresh())// CHASSI: CHAINT: MODELO:

        oLbox1:SetArray( aVetVQ0 )
        oLbox1:bLine := { || { Iif(aVetVQ0[oLbox1:nAt, 1 ],oTik, oNo) ,;
        aVetVQ0[oLbox1:nAt,02],;
        aVetVQ0[oLbox1:nAt,03],;
        aVetVQ0[oLbox1:nAt,04],;
        } }
        nL += 110
        //                             L    C
        oBtnSalvar   := tButton():New(175, 070 , STR0108        , oDlgVQ0, {||  nOpca := 1 , oDlgVQ0:END() }, 053, 018,,,, .T.)// OK
        oBtnSair     := tButton():New(175, 150 , STR0109    , oDlgVQ0, {||  oDlgVQ0:END()}, 053, 018,,,, .T.) // Cancelar

        ACTIVATE MSDIALOG oDlgVQ0 CENTERED

        oDlgVQ0:refresh

        IF nOpca != 1
            Return .F.
        EndIf
    Endif
Endif
    cChassi := aVetVQ0[1,2]
    cChaint := aVetVQ0[1,3]
    oDlgVQ0:refresh
RestArea(aArea)
return .T.

Programa Fonte:

VEICX001.PRW

Função:

VXC001PDM()

Parâmetros:
NomeTipoDescrição
aVetVQ0Array

Array com as informações da consulta a ser executada.


Dados da variável aVetVQ0


NomeTipoDescrição

[1]

LógicoRetorna .F.

[2]

Caractere

VQ0->VQ0_CHASSI // Chassi do pedido

[3]

Caractere

VQ0->VQ0_CHAINT // Chassi interno do pedido

[4]

Caractere

VQ0->VQ0_MODVEI // Modelo do pedido

Retorno:

Não há.


Exemplo:

#INCLUDE "PROTHEUS.CH"


User Function VXCPVQ0()


Local aVetAux := {}


aAdd(aVetAux, aClone(ParamIxb))


MsgAlert("Ponto de Entrada VXCPVQ0 executado com sucesso!","Atenção")


Return