- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Função EXISTE arquivo no caminho
×
Linguagem de Programação ADVPL
Perguntas Função EXISTE arquivo no caminho
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 2 meses atrás #16715
por Mjuniorfacic
Função EXISTE arquivo no caminho foi criado 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!!!
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.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 2 meses atrás #16717
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
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.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 2 meses atrás #16719
por Mjuniorfacic
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
Respondido por Mjuniorfacic no tópico Função EXISTE arquivo no caminho
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Função EXISTE arquivo no caminho
Tempo para a criação da página:0.116 segundos