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.
|
