

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,Tslc001.Email,TSLC001.NUMERO,TSLC001.CELULAR,Tslc005.Descricao as COND_PAGTO "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tslv021.*,Tslc003.CODBAR FROM Tslv021 LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLV021")

SELECT TSLV021.*,TSLV020.DATA,TSLV020.BRUTO,TSLV020.DESCONTO AS DESCONT,TSLV020.ACRESCIM,TSLV020.LIQUIDO,TSLV020.OBS,TSLV020.OBS2,;
TSLV020.PESSOA,TSLV020.COMPRADO,TSLV020.CLINOM,TSLV020.CLIEND,TSLV020.CLIBAI,TSLV020.CLICID,TSLV020.CLITEL,TSLV020.NUMERO,;
TSLV020.CLICPF,TSLV020.CLICGC,TSLV020.CLICEP,TSLV020.CLIINS,TSLV020.NOME,TSLV020.COND_PAGTO;
FROM TSLV021 ;
LEFT JOIN TSLV020 ON TSLV021.CUPOM = TSLV020.SEQ ;
INTO CURSOR TMP_IMPRIMIR

   nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
   TSEXEC("T",nSelect,"TMP_VENCTOS")

   cVenctos = "Vencimentos" + chr(13) + "Forma de Pagamento:" + ALLTRIM(TMP_IMPRIMIR.COND_PAGTO) + CHR(13)

   SELECT TMP_VENCTOS
   go top IN TMP_VENCTOS
   DO WHILE ! EOF("TMP_VENCTOS")
      cVenctos  = cVenctos + "CD: " + ALLTRIM(TMP_VENCTOS.RECCOD) + " " + "DATA: " + DTOC(TMP_VENCTOS.RECVENCI) + "  " + "VALOR: " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
      SKIP IN TMP_VENCTOS
      LOOP

   ENDDO

   cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

   cEmp = ALLTRIM(TSL.NOME) + CHR(13)+CHR(10) 
*   cEmp = cEmp + "CNPJ:" + MCPF(TSL.CGC) + " - Insc. Estadual:" + Alltrim(Tsl.Ie)+chr(13)+chr(10) 
   cEmp = cEmp + ALLTRIM(TSL.ENDERECO) + " - " + ALLTRIM(TSL.BAIRRO) + CHR(13)+CHR(10)
   cEmp = cEmp + SUBSTR(TSL.CEP,1,5) + " -" + SUBSTR(TSL.CEP,6,3) + "-" + ALLTRIM(TSL.CIDADE) + "-" + ALLTRIM(TSL.UF)+CHR(13)+CHR(10)
   cEmp = cEmp + "Fone:" + TSL.FONE + CHR(13)
   cEmp = cEmp + "Celular: (15) 99656-8253"


   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR


IF EMPTY(ALLTRIM(TSLV020.EMAIL))
   MESSAGEBOX("Cliente Sem E-mail Cadastrado ",48,"Aviso")
   RETURN .F.
ENDIF 

cArqImp = FULLPATH(CURDIR()) + "IMPRESS\TSORCBEDULLI.FRX"

*REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

cArqTemp = FULLPATH(CURDIR()) + "TEMP\orc_" + padl(ALLTRIM(STR(cTabImp,6)),6,"0") + ".pdf"
*cArqEnv[1] = cArqTemp
GERAPDF("TMP_IMPRIMIR",cArqImp,cArqTemp)

TSEXEC("T","SELECT * FROM Tsl ","TSL")
TSEXEC("T","SELECT * FROM Tsc008a WHERE ?cCodEmp = EMPCOD ","TMP_EMP")

SELECT TSLV020
GO TOP IN TSLV020

cEndEmail = LOWER(ALLTRIM(TSLV020.EMAIL))

IF EMPTY(ALLTRIM(cEndEmail))
   MESSAGEBOX("Cliente Sem E-mail Cadastrado ",48,"Aviso")
   RETURN .F.
ENDIF 

LOCAL oMsg AS Object 
oMsg = CREATEOBJECT("JMail.Message")

* Fica em silncio se ocorrer algum erro
oMsg.Silent = .T.
      
* Informar qual o email que est enviando
*!*	      oMsg.From = ISLOWER(ALLTRIM(TMP_EMP.EMAIL))

oMsg.From = "noreply@tsti.com.br"
oMsg.FromName = ALLTRIM(TSL.NOME)
oMsg.AddRecipient(ALLTRIM(cEndEmail))
      
      * Ler o email do destinatrio e adiciona
      * o email  lista de recipientes da mensagem
*!*	      oMsg.AddRecipient(LOWER(ALLTRIM(TMP_EMP.EMAILCONT)))
*!*	      oMsg.AddRecipient("wmbg@terra.com.br")
      
      * Ler o assunto da mensagem
      oMsg.Subject = ("Oramento " + ALLTRIM(TSL.NOME))
*!*	      oMsg.Subject = "RFD DA EMPRESA"
      
      * Adiciona a mensagem em formato texto
      *oMsg.AppendText(ThisForm.edtMensagem.Value)
      XX = CHR(13) + CHR(10)
      cMens = "Seguem anexo Oramento" + XX + XX + XX
      cMens = cMens + "Atenciosamente," + XX + XX
      cMens = cMens + PROPER(ALLTRIM(TMP_EMP.EMPNOM)) + XX
      cMens = cMens + ALLTRIM(TMP_EMP.EMAIL) + XX + XX + XX
      cMens = cMens + "E-Mail Automtico Gerado por Tsl 2.0 - TSTI - Tecnologia da Informao"
      
*!*	      oMsg.AppendText("TESTE")
      
      * Adiciona mensagem em formato HTML
      oMsg.AppendHTML("<HTML><BODY>"+;
         [<font face="Verdana, Arial, Helvetica,]+;
         [ sans-serif" size="2">] +;
         STRTRAN(cMens,;
         CHR(13)+CHR(10),"<br>") + ;
         [</font>] +;
         "</BODY></HTML>")
*!*	      
      * Adiciona o(s) anexo(s)  mensagem
            
      IF ! EMPTY(ALLTRIM(cArqTemp))
         
         IF FILE(cArqTemp)
            oMsg.AddAttachment(ALLTRIM(cArqTemp))
         ENDIF
         
      ENDIF

	* Usurio P/ autenticar na hora do envio:
*!*		oMsg.MailServerUserName ;
*!*			= "testejmail@foxtotal.com.br"
*!*		* Senha p/ autenticar na hora do envio:
*!*		oMsg.MailServerPassWord = "teste"

      oMsg.MailServerUserName = "noreply@tsti.com.br"
      * Senha p/ autenticar na hora do envio:
      oMsg.MailServerPassWord = "golpreto"
      
*!*	      oMsg.MailServerUserName ;
*!*			= "tsl@tsti.com.br"
*!*	      * Senha p/ autenticar na hora do envio:
*!*	      oMsg.MailServerPassWord = "fiatuno"
      
      * Envia a mensagem
      *IF oMsg.Send(ALLTRIM(TMP_EMP.SERVSAIDA)) THEN 
      IF oMsg.Send("smtp.terra.com.br:587") THEN 
         MESSAGEBOX("Mensagem enviada!",0+64,;
                    "Envio completo")
      
      ELSE
         MESSAGEBOX("Ocorreu um erro no envio:"+;
            CHR(13)+STR(oMsg.ErrorCode) + ;
            CHR(13)+oMsg.ErrorMessage,0+16,;
            "Erro no envio")
      
      ENDIF	
      
      * Elimina o objeto mensagem
      oMsg = NULL

