OXC03LEV - Inclusão de Imagens e Vídeos

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

User Function OXC03LEV() aFotos := PARAMIXB[1]
aVideos := PARAMIXB[2]
SB1->B1_GRUPO := PARAMIXB[3]
SB1->B1_CODITE := PARAMIXB[4]
SB1->B1_COD := PARAMIXB[5]
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, SB1->B1_GRUPO, SB1->B1_CODITE, SB1->B1_COD

N/A

ADir(cDirFotVid+"P"+Alltrim(SB1->B1_GRUPO)+"_*.mp4",aVideosMP4)
ADir(cDirFotVid+"P"+Alltrim(SB1->B1_GRUPO)+"_*.wmv",aVideosWMV)
ADir(cDirFotVid+"P"+Alltrim(SB1->B1_GRUPO)+"_*.avi",aVideosAVI)

EndIf

If ExistBlock("OXC03LEV")
ExecBlock("OXC03LEV ", .f., .f., \{ aFotos, aVideos, SB1->B1_GRUPO, SB1->B1_CODITE, SB1->B1_COD \})
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 Produto nao encontrados! / Atencao
Return

OFIXC003.PRW