VXC03LEV - Inclusão de Imagens e Vídeos de Locais Diferentes

Este Ponto de entrada está disponível, para que seja possível adicionar imagens e vídeos de locais diferentes não disponibilizados pela implementação atual do sistema.

User Function VXC03LEV()
aFotos := PARAMIXB[1]
aVideos := PARAMIXB[2]
cCodMar := PARAMIXB[3]
cModVei := PARAMIXB[4]
cChassi := PARAMIXB[5]
cChaInt := PARAMIXB[6]
AADD(aFotos, "C:/Fotos/work.jpg")
// ... manuseio geral das variaveis, com alteracao nos arrays aFotos e aVideos
Return Nil

Português(Brasil)

Todas

Todos

Todas

aFotos, aVideos, cCodMar, cModVei, cChassi, cChaInt

N/A

ADir(cDirFotVid+"V"+Alltrim(cCodMar)+"_*.mp4",aVideosMP4)
ADir(cDirFotVid+"V"+Alltrim(cCodMar)+"_*.wmv",aVideosWMV)
ADir(cDirFotVid+"V"+Alltrim(cCodMar)+"_*.avi",aVideosAVI)

EndIf

EndIf

EndIf

If ExistBlock("VXC03LEV")
ExecBlock("VXC03LEV ", .f., .f., \{ aFotos, aVideos, cCodMar, cModVei, cChassi, cChaInt \})
EndIf

If len(aFotosPNG) <= 0 .and. len(aFotosJPG) <= 0 .and. len(aVideosMP4) <= 0 .and. len(aVideosWMV) <= 0 .and. len(aVideosAVI) <= 0 .and. len(aVideos) <= 0 .and. len(aFotos) <= 0
MsgStop(STR0003+CHR(13)+CHR(10)+CHR(13)+CHR(10)+IIf(!Empty(cDirFotVid),cDirFotVid,"MV_DIRFTGC"),STR0002) // Foto(s)/Video(s) do Veiculo nao encontrados! / Atencao
Return

VEIXC003.PRW