VXCPVQ0 Ponto de Entrada para substitui a tela de seleção de pedidos de Fabrica na rotina Atendimento Modelo 2 (VEIXA018).

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.

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.

Função:

VXC001PDM()