×
Linguagem de Programação ADVPL
Perguntas enviar por email
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14796
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 enviar por email
oPrn:SaveAllAsJPEG('\SYSTEM\Ped_'+_cNumPed,1400,1800,200)
cArquivo := AllTrim('\SYSTEM\Ped_'+_cNumPed+"_pag1.jpg")
aAnexos := {cArquivo}
cAccount := RTrim(SuperGetMV("MV_RELACNT"))
cDe := RTrim(SuperGetMV("MV_RELFROM"))
cPara := _cPara
cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
cServer := Rtrim(SuperGetMv("MV_RELSERV"))
cMensagem := 'Encaminhamos nosso Pedido de Venda abaixo, conforme sua cotação. '+CRLF+CRLF +;
'Ficamos no aguardo da confirmação de recebimento, bem como, aceite do mesmo.'+ CRLF+CRLF+;
'Qualquer dúvida, por favor, entrar em contato.'+ CRLF+CRLF+;
'Atenciosamente,'+CRLF+CRLF+;
CRLF+cDe+CRLF+CRLF+'Departamento de Vendas'+CRLF
If File(cArquivo)
EnvMail(cAccount ,cPassword ,cServer ,cDe,;
cPara,cMensagem, aAnexos)
Endif
cArquivo := AllTrim('\SYSTEM\Ped_'+_cNumPed+"_pag1.jpg")
aAnexos := {cArquivo}
cAccount := RTrim(SuperGetMV("MV_RELACNT"))
cDe := RTrim(SuperGetMV("MV_RELFROM"))
cPara := _cPara
cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
cServer := Rtrim(SuperGetMv("MV_RELSERV"))
cMensagem := 'Encaminhamos nosso Pedido de Venda abaixo, conforme sua cotação. '+CRLF+CRLF +;
'Ficamos no aguardo da confirmação de recebimento, bem como, aceite do mesmo.'+ CRLF+CRLF+;
'Qualquer dúvida, por favor, entrar em contato.'+ CRLF+CRLF+;
'Atenciosamente,'+CRLF+CRLF+;
CRLF+cDe+CRLF+CRLF+'Departamento de Vendas'+CRLF
If File(cArquivo)
EnvMail(cAccount ,cPassword ,cServer ,cDe,;
cPara,cMensagem, aAnexos)
Endif
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
11 anos 5 meses atrás - 11 anos 5 meses atrás #14797
por aarezende
Respondido por aarezende no tópico enviar por email
Vlw Luiz, sempre eficaz...com essa beca ainda parece o Hitman...fatal !!!
so um detalhe pode ser em PDF inves de JPG mudo a clausula de JPG ?
abs...
so um detalhe pode ser em PDF inves de JPG mudo a clausula de JPG ?
abs...
Ultima edição: 11 anos 5 meses atrás por aarezende.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14800
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 enviar por email
ahahahahhha hitman foi foda 
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14803
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 enviar por email
Coloca no Final
oPrn:Preview()
oPrn:SaveAllAsJPEG('ArqImg',1400,1800,200)
oPrn:End()
oPrn:Preview()
oPrn:SaveAllAsJPEG('ArqImg',1400,1800,200)
oPrn:End()
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.
Tempo para a criação da página:0.132 segundos