× Linguagem de Programação ADVPL

Perguntas Função EXISTE arquivo no caminho

Mais
11 anos 2 meses atrás #16715 por Mjuniorfacic
Galera existe alguma função em ADVPL que verifica se existe o arquivo no caminho?

Segue o exemplo:

cArquivo := AllTrim('\spool\pc\Ped_' + cNumPed + "_pag1.jpg")
aAnexos := {cArquivo}

If existe (AllTrim('\spool\pc\Ped_' + cNumPed + "_pag2.jpg"))
cArquivo := AllTrim('\spool\pc\Ped_' + cNumPed + "_pag2.jpg")
aAnexos := {cArquivo}
EndIf

cAccount := RTrim(SuperGetMV("MV_RELACNT"))
cDe := RTrim(UsrRetMail(__cUserID))

A pergunta é: se existe o arquivo pag2 tb anexe!!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16717 por lalberto
Respondido por lalberto no tópico Função EXISTE arquivo no caminho
If FILE(AllTrim('\spool\pc\Ped_' + cNumPed + "_pag2.jpg"))

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16719 por Mjuniorfacic

Luiz Alberto escreveu: If FILE(AllTrim('\spool\pc\Ped_' + cNumPed + "_pag2.jpg"))


Ficou Ótimo Luiz
Obrigado

cAssunto := 'Pedido de Compra nº: ' + cNumPed
cArquivo := AllTrim('\spool\pc\Ped_' + cNumPed + "_pag1.jpg")
cArquivo2 := AllTrim('\spool\pc\Ped_' + cNumPed + "_pag2.jpg")

If File(cArquivo2)
aAnexos := {cArquivo,cArquivo2}
else
aAnexos := {cArquivo}
EndIf

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.116 segundos
Joomla templates by a4joomla