Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <?php
- include('../conexao/conexao_oracle.php');
- require_once("phpmailer/class.phpmailer.php");
- error_reporting(E_ALL);
- ini_set("display_errors",1);
- // Inicia a classe PHPMailer
- $mail = new PHPMailer();
- $num_analise = $_POST['NUM_ANALISE'];
- //$check = $row['NEXTVAL'];
- //$query = oci_parse($conexao, 'SELECT FORNECEDOR FROM ANACOTFOR WHERE NUM_ANALISE = '.$num_analise.'');
- //oci_execute($query);
- //////////////////////////////////////////////////GERAÇÃO DO ARQUIVO TXT/////////////////////////////////////////////////////////////////////////////
- $row = array('tratorag','chb');
- foreach($row as $forn)
- {
- $stid = oci_parse($conexao, '
- SELECT PRE.FORNECEDOR, PRO.NUM_ANALISE, PRO.COD_PROD, PRO.DESC_PROD, PRE.UNDCOMPRA, PRO.QTDCOT, PRE.VALOR_UNI, PRE.QTDDISPFORN, PRE.IPI, PRE.FRETE FROM ANACOTPRO PRO
- LEFT OUTER JOIN ANACOTPRECO PRE ON
- PRE.NUM_ANALISE = PRO.NUM_ANALISE AND
- PRE.COD_PROD = PRO.COD_PROD
- WHERE PRO.NUM_ANALISE = '.$num_analise.'');
- oci_execute($stid);
- $myfile = fopen("../mapa/".$num_analise.".csv","w") or die("Não foi possível abrir o arquivo!");
- fwrite($myfile, "FORNECEDOR; ANALISE; CODPRODUTO; DESCRICAO; UNDCOMPRA; QTD; VALOR UNITARIO; QTD DISPONIVEL NO FORNECEDOR; IPI; FRETE \n");
- while (($row = oci_fetch_array($stid, OCI_BOTH)) != false) {
- $txt=$row['FORNECEDOR'] . ';'. $row['NUM_ANALISE'] . ';' . $row['COD_PROD'] . ';' . $row['DESC_PROD'] . ';' . $row['UNDCOMPRA'] .';' . $row['QTDCOT'] . ';' . $row['VALOR_UNI'] . ';' . $row['QTDDISPFORN'] . ';' . $row['IPI'] . ';' . $row['FRETE'] . "\n";
- fwrite ($myfile, $txt);
- }
- //oci_free_statement($stid);
- //oci_close($conexao);
- echo "Exportado com Sucesso";
- fclose($myfile);
- }
- //////////////////////////////////////////SELECIONA OS EMAILS E ENVIA UTILIZANDO UM WHILE////////////////////////////////////////////////////////////
- $resultado = oci_parse($conexao, "SELECT FORN.EMAIL, FORN.FORNECEDOR FROM ANACOTFOR COT, CADASTRO_FORNECEDORES FORN WHERE COT.NUM_ANALISE = '".$num_analise."' AND FORN.FORNECEDOR = COT.FORNECEDOR");
- oci_execute($resultado);
- //$row = oci_fetch_array($resultado);
- while($row = oci_fetch_array($resultado))
- $mail->AddBCC($row[0]);
- var_dump($resultado);
- // Define os dados do servidor e tipo de conexão
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- //$mail->IsSMTP(); // Define que a mensagem será SMTP
- $mail->Host = "smtp.office365.com"; // Endereço do servidor SMTP
- $mail->SMTPAuth = true; // Usa autenticação SMTP? (opcional)
- $mail->Username = 'julio_vale@usinaester.com.br'; // Usuário do servidor SMTP
- $mail->Password = '******'; // Senha do servidor SMTP
- // Define o remetente
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- $mail->From = "julio_vale@usinaester.com.br";
- $mail->FromName = "Julio"; // Seu nome
- // Define os destinatário(s)
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- $mail->AddAddress($row, 'Luciano');
- //$mail->AddAddress('julio_vale@usinaester.com.br', 'Julio');
- //$mail->AddAddress('ciclano@site.net');
- //$mail->AddCC('ciclano@site.net', 'Ciclano'); // Copia
- //$mail->AddBCC('fulano@dominio.com.br', 'Fulano da Silva'); // Cópia Oculta
- // Define os dados técnicos da Mensagem
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- $mail->IsHTML(true); // Define que o e-mail será enviado como HTML
- $mail->CharSet = 'utf-8'; // Charset da mensagem (opcional)
- // Define a mensagem (Texto e Assunto)
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- $mail->Subject = "Cotação - Usina Ester"; // Assunto da mensagem
- $mail->Body ="À<br>
- <b>Departamento de Vendas</b>,<p>
- Venho por meio desta solicitar orçamento com preço, formas de pagamento, prazo de envio, custo e forma de envio.<p>
- <p>Agradecemos desde já pela participação.<p>
- Atenciosamente,<p>
- <b>Departamento de Compras</b>
- <br>Usina Açucareira Ester S/A";
- //$mail->AltBody = "Este é o corpo da mensagem de teste, em Texto Plano! \r\n :)";
- // Define os anexos (opcional)
- // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- $mail->AddAttachment( "../mapa/".$num_analise.".csv");
- //$mail->AddAttachment("../mapa/258.csv", "novo_nome.csv"); // Insere um anexo
- // Envia o e-mail
- $enviado = $mail->Send();
- // Limpa os destinatários e os anexos
- $mail->ClearAllRecipients();
- $mail->ClearAttachments();
- // Exibe uma mensagem de resultado
- if ($enviado) {
- echo "<script>
- alert('E-mail enviado com sucesso!');
- window.location.href = '../mapa/index.php';
- </script>";
- } else {
- echo "Não foi possível enviar o e-mail.";
- echo "<b>Informações do erro:</b> " . $mail->ErrorInfo;
- }
- ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement