Jump to content
Fivewin Brasil

email com assinatura eletronica e logotipo

Vitor Reis

By Vitor Reis
in Programação

 Share

Recommended Posts

Vitor Reis Newbie

Vitor Reis

Posted
Posted

Alguem por favor, já fez ou sabe fazer ??

eu envio emails de orçamento dentro do sistema, mas sempre foi email simples.. sem nenhum logotipo, marca d´agua ou qualquer frescura que o outlook faz..

um cliente tá pedindo algo mais sofisticado..

ele quer colocar o logotipo da empresa e assinatura eletronica no corpo do email

Alguem pode me ajudar..

eu pago se necessario

Vitor

(11) 9-7414-4341 (Whats)

Email: vitor.reis@terra.com.br

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted
Vitor, veja onde está escrito: TESTE.JPG




FUNCTION Envia_Mail( oCfg, cFROM, cTo, cCC, cBCC, cMsg, cSubject )


  LOCAL cToken, lRet := .F.

  LOCAL oIco, oFnt, oFont, oDlgConf, oConfigura, oSaida, IDCor, oGroup, TRAB

  LOCAL aGet := ARRAY(10), oScreenShot, oBmpEmail, lAppend, DeOndeVem


  PUBLIC lNewAnexoVemdaNFe


  cTo   := Destinatarios( cTo )  //-> PARA

  cCC   := Destinatarios( cCC )  //-> COM COPIA

  cBCC  := Destinatarios( cBCC ) //-> COM COPIA OCULTA


  // Reforco, caso nao envie o cBCC - agora funcionando normal.

  IF .NOT. EMPTY( cCC ) .AND. .NOT. EMPTY( cBCC )

     cCC := cCC + ";" + cBCC   // somente para seguranca.

  ENDIF


  TRY

     oMsg := CREATEOBJECT ( "CDO.Message" )


     WITH OBJECT oMsg


          :Configuration := oCfg


          :FROM          := ALLTRIM( cFROM )


          :To            := ALLTRIM( cTo )


          :CC            := ALLTRIM( cCC )


          IF .NOT. EMPTY( cBCC )

             :BCC        := TRIM( cBCC )

          ENDIF


          :Subject       := ALLTRIM( cSubject )


          :TextBody      := ALLTRIM( cMsg )


          IF lNewAnexoVemdaNFe  // VEM DA NF-E, ENVIAR EMAIL +- LINHA 14192/200


             FOR x := 1 To Len( NewAnexo )  // Anexos dos Email aqui - NF-e


                SYSREFRESH()


                IF NewAnexo[x] <> NIL

                   :AddAttachment(ALLTRIM(NewAnexo[x]))

                ENDIF


             NEXT


             // Para Incorporar uma imagem no corpo do email. 26/03/2013

             // Se precisar, ligar e criar o pegador de .bmp/jpg

             // http://alanart.net/fivewin/index.php?/topic/20914-imagem-no-corpo-do-email/

             /*

             :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"


             loBP:=:AddRelatedBodyPart("c:\plenocbx\silco.bmp", "id_imagen10", 1)


             WITH OBJECT loBP:Fields

                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"

                :Update()

             END WITH

             */


             // Solicitando confirmación de lectura

             // Assim funcionou..

             /*

             IF IPFIXO->IPFIXO3 = UPPER[S]

                :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom

                :Fields:UpDate()

                //cFrom=Conta de saida. Quem envia o email

             ENDIF

             */


             SELECT IPFIXO

             GOTO 1


             // Solicitando confirmación de lectura

             // Assim funcionou..

             IF IPFIXO3 = "S"  // pede confirmacao do envio do email


                :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom

                :Fields:UpDate()

                //cFrom=Conta de saida. Quem envia o email


             ENDIF


             SELECT( DbServidor:cAlias )


          ELSE // VEM DAQUI MESMO - RMAIL.PRG - INICIO


             FOR x := 1 To Len( aAttach )  // Anexos dos Email aqui - LOCAL


                SYSREFRESH()


                IF aAttach[x] <> NIL

                   :AddAttachment(ALLTRIM(aAttach[x]))

                ENDIF


             NEXT


             // Para Incorporar uma imagem no corpo do email. 26/03/2013

             // Se precisar, ligar e criar o pegador de .bmp/jpg

             // :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>A Imagem Acima Esta Incorporada a Mensajem.</p>"


             // NO TOPO DA MENSAGEM

             // CORPO DO EMAIL NA IMAGEM: A Imagem Acima Esta Incorporada a Mensajem.

             // :HTMLBody = "<p><img src='cid:id_imagen10'></p>" +"<p>"+ALLTRIM( cMsg )+"</p>"


             // NO RODAPE DA MENSAGEM.. EU SOU PLORIDA,,, KKKKKKKKKKK

             // CORPO DO EMAIL NA IMAGEM: A Imagem Acima Esta Incorporada a Mensajem.

             :HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"


             loBP:=:AddRelatedBodyPart("c:\plenocbx\TESTE.JPG", "id_imagen10", 1)


             WITH OBJECT loBP:Fields


                :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"


                :Update()

             END WITH


             SELECT IPFIXO

             GOTO 1


             // Solicitando confirmación de lectura

             // Assim funcionou..

             IF IPFIXO3 = "S"


                :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom

                :Fields:UpDate()

                //cFrom=Conta de saida. Quem envia o email


             ENDIF


             SELECT( DbServidor:cAlias )


          ENDIF


          :Send()


     END WITH


     lRet := .T.


   CATCH


      IF lVemdeVariosEmails .AND. ; // := .F. // Para Checar Status do Email se Errado

         lTemEmaiLErrado            // := .F.


         MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                      " )+CRLF+;

                  OemToAnsi( "O PROGRAMA Jµ NÇO AVISOU QUE TEM EMAIL" )+CRLF+;

                  OemToAnsi( "ERRADO NO CADASTRO DE CLIENTES?       " )+CRLF+;

                  OemToAnsi( "RETORNE PARA A LISTBOX DOS EMAILS E   " )+CRLF+;

                  OemToAnsi( "ANOTE OS CLIENTES COM EMAILS ERRADOS. " )+CRLF+;

                  OemToAnsi( "SAIA DA NOTA FISCAL ELETRâNICA E ENTRE" )+CRLF+;

                  OemToAnsi( "NO PLENO E CORRIJA OS EMAILS COM ERRO." )+CRLF+;

                  OemToAnsi( "PARA IMPRIMIR UMA LISTAGEM DOS EMAILS " )+CRLF+;

                  OemToAnsi( "DOS CLIENTES, ENTRE NO BOTÇO:         " )+CRLF+;

                  OemToAnsi( "<Alterar Email do Cliente> e Imprima. " ),     ;

                  OemToAnsi( "Cadastro de Clientes Com Email Errado." ) )


      ELSE


         IF .NOT. IsInternet()


            MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: NÇO Hµ CONEXÇO COM A INTERNET " )+CRLF+;

                     OemToAnsi( "SAIA DO PROGRAMA E VERIFIQUE SUAS CONEXåES     " )+CRLF+;

                     OemToAnsi( "DE INTERNET. ENQUANTO PERMANECER ESTA MENSAGEM " )+CRLF+;

                     OemToAnsi( "NÇO TENTE ENVIAR NADA VIA INTERNET.            " )+CRLF+;

                     OemtoAnsi( "FALHA NO MODEM DE INTERNET, NÇO ESTµ ATIVO.    " )+CRLF+;

                     OemToAnsi( "VERIFIQUE SUAS CONEXåES DE INTERNET.      ERRO!" ),     ;

                     OemToAnsi( "ALERTA MµXIMO, COMPUTADOR SEM INTERNET ATIVA.  " ) )


         ELSE  // EMAIL DESCONFIGURADO, ALTERADO EM: 24/09/2013

          // Graciele(Silco) Nao conseguiu entender a mensagem de jeito nenhum


            // FECHO OS BANCOS DOS EMAILS PARA NAO QUEBRAR

            CLOSE EMAILADI

            CLOSE EMAILENV

            CLOSE SERVIDOR

            CLOSE CODIGOS

            CLOSE CABGRUPO

            CLOSE GRUPOS

            CLOSE CONTATOS


            TRAB := OemToAnsi( "ENVIADOR DE EMAILS DA NF-e ESTµ DESCONFIGURADO - ATEN€ÇO!" )


            DEFINE ICON oIco   NAME "ICONE"

            DEFINE FONT oFnt   NAME "Ms Sans Serif" SIZE 00, -12 BOLD

            DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 00, -14 BOLD

            // ESTA EM: EMAIL.RES

            DEFINE DIALOG oDlgConf RESOURCE "DLG_ENVIADOR_DESCONFIGURADO"     ;

                   COLORS CLR_BLACK, CLR_WHITE TRANSPARENT ICON oIco


            oDlgConf:lHelpIcon := .F.


            For IDCor = 401 To 406 // Os ID's dos TEXTOS na DIALOG.

               REDEFINE SAY ID IDCor OF oDlgConf ;

               COLORS CLR_BLUE, CLR_WHITE UPDATE FONT oFont TRANSPARENT

            Next IDCor


            REDEFINE SAY ID 410 OF oDlgConf COLORS CLR_BLACK, CLR_WHITE UPDATE FONT oFnt TRANSPARENT


            REDEFINE GROUP oGroup ID 501 OF oDlgConf FONT oFnt TRANSPARENT    ;

                     COLOR CLR_HRED


            REDEFINE GET aGet[10] VAR TRAB ID 30 PICTURE "@" OF oDlgConf UPDATE;

                     WHEN( .F. ) FONT oFont COLORS CLR_BLUE, CLR_WHITE


            REDEFINE BITMAP oBmpEmail ID 125 RESOURCE "EMAIL" OF oDlgConf ADJUST TRANSPARENT


            oBmpEmail:cToolTip := OemToAnsi( "Configure o Seu Enviador de Email Antes Leia as Instru‡äes")


            REDEFINE BUTTONBMP oConfigura    ID 301  OF oDlgConf              ;

                     ACTION( RMAIL( lAppend := .F., DeOndeVem := [NFE] ) )


            oConfigura:cToolTip := "Configurar o Enviador de Emails"


            REDEFINE BUTTONBMP oScreenShot   ID 302  OF oDlgConf              ;

                     ACTION( ( MOSTRA_SCREENSHOT() ), XFOCUS( oConfigura ) )


            oScreenShot:cToolTip := OemToAnsi( "SCREENSHOT: Modelo de Tela do Cadastro do Provedor" )


            // By Rossine, modificado na WINDOW.PRG - Cuidado.

            oScreenShot:lToolTipBallon   := .T.

            oScreenShot:nTooltipWidth    := 200

            oScreenShot:nTooltipTexColor := CLR_BLACK

            oScreenShot:nTooltipBKColor  := nRGB( 250, 250, 250 )

            oScreenShot:cTooltipTitle    := OemToAnsi( "SCREENSHOT: Modelo de Tela do Cadastro do Provedor" )

            oScreenShot:nTooltipIcon     := 1  && 0=NONE / 1=TTI_INFO / 2=TTI_WARNING / 3=TTI_ERROR

            //-> 0=TTDT_AUTOMATIC / 1=TTDT_RESHOW / 2=TTDT_AUTOPOP / 3=TTDT_INITIAL

            oScreenShot:nSetDelayType    := 2

            oScreenShot:nSetDelayTime    := 32767  //-> Velocidade do TOOLTIP-> +- 1:30 Secs


            REDEFINE BUTTONBMP oSaida ID 303  OF oDlgConf                     ;

                     ACTION( oDlgConf:End() ) CANCEL


            oSaida:cToolTip := "Saida - Exit - Cancelar"


            SET FONT OF oConfigura  TO oFont

            SET FONT OF oScreenShot TO oFont

            SET FONT OF oSaida      TO oFont


            ACTIVATE DIALOG oDlgConf CENTERED


            oFnt:End()

            oFont:End()


            // ABRO OS BANCOS NOVAMENTE PARA NAO QUEBRAR

            ArqsDBF() // Criacao e abertura dos DBFS


         ENDIF


      ENDIF


      lRet := .F.


   END


RETURN( lRet )


Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted
+----------------------------------------------------------------------------+

¦ FiveWin for xHarbour 13.06 - Junho de 2013 xHarbour development power ¦_

¦ © FiveTech, 1993-2013 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ¦¦

+----------------------------------------------------------------------------+¦

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

+----------------------------------------------------------------------------+

¦ FiveWin For xHarbour 13.06 Junho de 2013 Contato Sistemas Ltda. ¦_

¦ Aguarde um Momento, Compilando Aplicação 32 Bits, Processamento Demorado ¦¦

¦ CopyRight© João@2007 - Todos os Direitos Reservados. GERAPNFE 32 Bits. ¦¦

¦ Participação Especial Vagner Wirts - vwirts@ig.com.br - 12/07/2013 Inicio. ¦¦

¦ Agradecimentos Especiais - Gilmer Tavares - Virtual Objects Informatica ¦¦

¦ vendas@fivewin.com.br - suporte@fivewin.com.br - gilmer@fivewin.com.br ¦¦

----------------------------------------

Total memory allocated: 882078 bytes (46755 blocks)

WARNING! Memory allocated but not released: 192 bytes (4 blocks)

source\common\expropt1.c(158) hb_compExprNew() Block 1 0x1547218 (size 48) "\70\

DA\50\01\00\00\00\00\00\00\00\00\00\00\00\00\00\00\01\00\00\00\00\00\03\00\00\00

\01\00\00\00"

source\common\expropt1.c(158) hb_compExprNew() Block 2 0x150da70 (size 48) "\C8\

7F\54\01\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\38\00\00\00\21\00\00\00

\01\00\00\00"

source\common\expropt1.c(158) hb_compExprNew() Block 3 0x1544668 (size 48) "\FC\

92\53\01\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\09\00\00\00

\01\00\00\00"

source\common\expropt1.c(158) hb_compExprNew() Block 4 0x15392fc (size 48) "\C8\

7F\54\01\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\21\00\00\00

\01\00\00\00"

Borland Resource Compiler Version 5.40

Copyright © 1990, 1999 Inprise Corporation. All rights reserved.

Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland

.

.

* Aplicacao Foi Desenvolvida Com Sucesso

.

* Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE

.

.

* Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao.

.

* Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto *

1 arquivo(s) copiado(s).

C:\TORBAL2>



al Incorporar este codigo en mi programa me genera este WARNING!


Que es esto?


Codigo que genera esto en mi enviador(send) de emails:






   :HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"


   loBP := :AddRelatedBodyPart( cDirPleno + "\LOGO.JPG", "id_imagen10", 1)


   WITH OBJECT loBP:Fields


      :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"


      :Update()


   END WITH




Gracias, saludos



Alguém sabe que diabos é isso??



Total memory allocated: 882078 bytes (46755 blocks)

WARNING! Memory allocated but not released: 192 bytes (4 blocks)

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted
erro en la linea 158 master que puede ser?




/*

 * $Id: expropt1.c,v 1.25 2009/02/28 08:44:29 lculik Exp $

 */


/*

 * Harbour Project source code:

 * Compiler Expression Optimizer - common expressions

 *

 * Copyright 1999 Ryszard Glab

 * www - http://www.harbour-project.org

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2, or (at your option)

 * any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this software; see the file COPYING.  If not, write to

 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,

 * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).

 *

 * As a special exception, the Harbour Project gives permission for

 * additional uses of the text contained in its release of Harbour.

 *

 * The exception is that, if you link the Harbour libraries with other

 * files to produce an executable, this does not by itself cause the

 * resulting executable to be covered by the GNU General Public License.

 * Your use of that executable is in no way restricted on account of

 * linking the Harbour library code into it.

 *

 * This exception does not however invalidate any other reasons why

 * the executable file might be covered by the GNU General Public License.

 *

 * This exception applies only to the code released by the Harbour

 * Project under the name Harbour.  If you copy code from other

 * Harbour Project or Free Software Foundation releases into a copy of

 * Harbour, as the General Public License permits, the exception does

 * not apply to the code that you add in this way.  To avoid misleading

 * anyone as to the status of such modified files, you must delete

 * this exception notice from them.

 *

 * If you write modifications of your own for Harbour, it is your choice

 * whether to permit this exception to apply to your modifications.

 * If you do not wish that, delete this exception notice.

 *

 */


/* TODO:

 *    - Correct post- and pre- operations to correctly handle the following code

 *    a[ i++ ]++

 *    Notice: in current implementation (an in Clipper too) 'i++' is evaluated

 *    two times! This causes that the new value (after incrementation) is

 *    stored in next element of the array.

 */


/* NOTE: This must be the first definition

 *    This is a common code shared by macro and standalone compiler

 */

#define  HB_MACRO_SUPPORT


#include <math.h>

#include "hbmacro.h"

#include "hbcomp.h"

#include "hbdate.h"


/* memory allocation

 */

#define  HB_XGRAB( size )  hb_xgrab( (size) )

#define  HB_XFREE( pPtr )  hb_xfree( (void *)(pPtr) )


#include "hbexemem.h"


static char * s_OperTable[] = {

   "",             /* HB_ET_NONE      */

   "ExtCodeblock", /* HB_ET_EXTBLOCK  */

   "NIL",          /* HB_ET_NIL       */

   "Numeric",      /* HB_ET_NUMERIC   */

   "Date",         /* HB_ET_DATE      */

   "String",       /* HB_ET_STRING    */

   "Codeblock",    /* HB_ET_CODEBLOCK */

   "Logical",      /* HB_ET_LOGICAL   */

   "SELF",         /* HB_ET_SELF      */

   "Array",        /* HB_ET_ARRAY     */

   "@",            /* HB_ET_VARREF    */

   "@M->",         /* HB_ET_MEMVARREF */

   "@Func()",      /* HB_ET_FUNREF    */

   "IIF",          /* HB_ET_IIF       */

   ",",            /* HB_ET_LIST      */

   ",",            /* HB_ET_ARGLIST   */

   "Array[]",      /* HB_ET_ARRAYAT   */

   "&",            /* HB_ET_MACRO     */

   "()",           /* HB_ET_FUNCALL   */

   "->",           /* HB_ET_ALIASVAR  */

   "()->",         /* HB_ET_ALIASEXPR */

   ":",            /* HB_ET_SEND      */

   "WITH:",        /* HB_ET_WITHSEND  */

   "",             /* HB_ET_FUNNAME   */

   "",             /* HB_ET_ALIAS     */

   "",             /* HB_ET_RTVAR     */

   "",             /* HB_ET_VARIABLE  */

   "++",           /* HB_EO_POSTINC   */

   "--",           /* HB_EO_POSTDEC   */

   ":=",           /* HB_EO_ASSIGN    */

   "+=",           /* HB_EO_PLUSEQ    */

   "-=",           /* HB_EO_MINUSEQ   */

   "*=",           /* HB_EO_MULTEQ    */

   "/=",           /* HB_EO_DIVEQ     */

   "%=",           /* HB_EO_MODEQ     */

   "^=",           /* HB_EO_EXPEQ     */

   ".OR.",         /* HB_EO_OR        */

   ".AND.",        /* HB_EO_AND       */

   ".NOT.",        /* HB_EO_NOT       */

   "=",            /* HB_EO_EQUAL     */

   "==",           /* HB_EO_EQ        */

   "<",            /* HB_EO_LT        */

   ">",            /* HB_EO_GT        */

   "<=",           /* HB_EO_LE        */

   ">=",           /* HB_EO_GE        */

   "!=",           /* HB_EO_NE        */

   "$",            /* HB_EO_IN        */

   "LIKE",         /* HB_EO_LIKE      */

   "MATCH",        /* HB_EO_MATCH     */

   "+",            /* HB_EO_PLUS      */

   "-",            /* HB_EO_MINUS     */

   "*",            /* HB_EO_MULT      */

   "/",            /* HB_EO_DIV       */

   "%",            /* HB_EO_MOD       */

   "^",            /* HB_EO_POWER     */

   "&",            /* HB_EO_BITAND    */

   "|",            /* HB_EO_BITOR     */

   "^^",           /* HB_EO_BITXOR    */

   ">>",           /* HB_EO_BITSHIFTR */

   "<<",           /* HB_EO_BITSHIFTL */

   "-",            /* HB_EO_NEGATE    */

   "++",           /* HB_EO_PREINC    */

   "--"            /* HB_EO_PREDEC    */

};


/* ************************************************************************* */


HB_EXPR_PTR hb_compExprNew( int iType )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNew(%i)", iType));


   pExpr = ( HB_EXPR_PTR ) HB_XGRAB( sizeof( HB_EXPR ) );


   pExpr->ExprType = (unsigned char)iType;

   pExpr->pNext    = NULL;

   pExpr->ValType  = HB_EV_UNKNOWN;

   pExpr->Counter  = 1;


   return pExpr;

}


/* Delete self - all components will be deleted somewhere else

 */

void hb_compExprClear( HB_EXPR_PTR pExpr )

{

   if( --pExpr->Counter == 0 )

      HB_XFREE( pExpr );

}


/* Increase a reference counter (this allows to share the same expression

 * in more then one context)

 */

HB_EXPR_PTR hb_compExprClone( HB_EXPR_PTR pSrc )

{

   pSrc->Counter++;

   return pSrc;

}


char * hb_compExprDescription( HB_EXPR_PTR pExpr )

{

   if( pExpr )

      return s_OperTable[ pExpr->ExprType ];

   else

      return s_OperTable[ 0 ];

}


int hb_compExprType( HB_EXPR_PTR pExpr )

{

   return ( int ) pExpr->ExprType;

}


/* ************************************************************************* */


HB_EXPR_PTR hb_compExprNewExtBlock( BYTE *pCode, ULONG ulLen )

{

   HB_EXPR_PTR pExpr;


   pExpr = hb_compExprNew( HB_ET_EXTBLOCK );


   pExpr->value.asExtBlock.pCode = pCode;

   pExpr->value.asExtBlock.ulLen = ulLen;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewEmpty( void )

{

   return hb_compExprNew( HB_ET_NONE );

}


HB_EXPR_PTR hb_compExprNewDouble( double dValue, BYTE ucWidth, BYTE ucDec )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewDouble(%f, %i)", dValue, ucDec));


   pExpr = hb_compExprNew( HB_ET_NUMERIC );


   pExpr->value.asNum.dVal    = dValue;

   pExpr->value.asNum.bWidth  = ucWidth;

   pExpr->value.asNum.bDec    = ucDec;

   pExpr->value.asNum.NumType = HB_ET_DOUBLE;

   pExpr->ValType = HB_EV_NUMERIC;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewLong( HB_LONG lValue )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewLong(%" PFHL "i)", lValue));


   pExpr = hb_compExprNew( HB_ET_NUMERIC );


   pExpr->value.asNum.lVal    = lValue;

   pExpr->value.asNum.bDec    = 0;

   pExpr->value.asNum.NumType = HB_ET_LONG;

   pExpr->ValType = HB_EV_NUMERIC;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewDate( HB_EXPR_PTR pYear, HB_EXPR_PTR pMonth, HB_EXPR_PTR pDate )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewDate()"));


   pExpr = hb_compExprNew( HB_ET_DATE );


   pExpr->value.asDate.date = hb_dateEncode( (int) pYear->value.asNum.lVal, (int) pMonth->value.asNum.lVal, (int) pDate->value.asNum.lVal );

   pExpr->value.asDate.time = 0;

   pExpr->value.asDate.type = HB_ET_DDATE;

   pExpr->ValType = HB_EV_DATE;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewDateTime( HB_EXPR_PTR pYear, HB_EXPR_PTR pMonth, HB_EXPR_PTR pDate ,HB_EXPR_PTR pHour, HB_EXPR_PTR pMinute, HB_EXPR_PTR pSeconds, int iAmPm, int * piOk )

{

   HB_EXPR_PTR pExpr;


   pExpr = hb_compExprNew( HB_ET_DATE );


   if( pYear )

   {

      if( pSeconds )

      {

         if( pSeconds->value.asNum.NumType == HB_ET_DOUBLE )

         {

            hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           (int) pYear->value.asNum.lVal, (int) pMonth->value.asNum.lVal, (int) pDate->value.asNum.lVal,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, pSeconds->value.asNum.dVal, iAmPm, piOk );

         }

         else

         {

            hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           (int) pYear->value.asNum.lVal, (int) pMonth->value.asNum.lVal, (int) pDate->value.asNum.lVal,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, ( double ) pSeconds->value.asNum.lVal, iAmPm, piOk );

         }

      }

      else

      {

         hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           (int) pYear->value.asNum.lVal, (int) pMonth->value.asNum.lVal, (int) pDate->value.asNum.lVal,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, ( double ) 0, iAmPm, piOk );

      }

   }

   else

   {

      if( pSeconds )

      {

         if( pSeconds->value.asNum.NumType == HB_ET_DOUBLE )

         {

            hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           1899, 12, 30,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, pSeconds->value.asNum.dVal, iAmPm, piOk );

         }

         else

         {

            hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           1899, 12, 30,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, ( double ) pSeconds->value.asNum.lVal, iAmPm, piOk );

         }

      }

      else

      {

         hb_comp_datetimeEncode( &pExpr->value.asDate.date, &pExpr->value.asDate.time,

                           1899, 12, 30,

                           (int) pHour->value.asNum.lVal, (int) pMinute->value.asNum.lVal, ( double ) 0, iAmPm, piOk );

      }

   }

   pExpr->value.asDate.type = HB_ET_DDATETIME;


   pExpr->ValType = HB_EV_DATE;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewDateTimeVal( LONG lDate, LONG lTime, USHORT uType )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewDateTimeVal(%d,%d,%hu)", lDate, lTime, uType ));


   pExpr = hb_compExprNew( HB_ET_DATE );


   pExpr->value.asDate.type = uType;

   pExpr->value.asDate.date = lDate;

   pExpr->value.asDate.time = lTime;


   pExpr->ValType = HB_EV_DATE;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewString( char *szValue, ULONG ulLen, BOOL fDealloc )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewString(%s,%lu)", szValue, ulLen));


   pExpr = hb_compExprNew( HB_ET_STRING );


   pExpr->value.asString.string = szValue;

   pExpr->value.asString.dealloc = fDealloc;

   pExpr->ulLength = ulLen;

   pExpr->ValType = HB_EV_STRING;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewCodeBlock( void )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewCodeBlock()"));


   pExpr = hb_compExprNew( HB_ET_CODEBLOCK );


   pExpr->value.asList.pExprList = NULL;

   pExpr->value.asList.pIndex    = NULL;  /* this will hold local variables declarations */

   pExpr->ValType = HB_EV_CODEBLOCK;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewLogical( int iValue )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewLogical(%i)", iValue));


   pExpr = hb_compExprNew( HB_ET_LOGICAL );


   pExpr->value.asLogical = iValue;

   pExpr->ValType = HB_EV_LOGICAL;


   return pExpr;

}



HB_EXPR_PTR hb_compExprNewNil( void )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewNil()"));


   pExpr = hb_compExprNew( HB_ET_NIL );


   pExpr->ValType = HB_EV_NIL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewSelf( void )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewSelf()"));


   pExpr = hb_compExprNew( HB_ET_SELF );


   pExpr->ValType = HB_EV_OBJECT;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewVarRef( char * szVarName )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewVarRef(%s)", szVarName));


   pExpr = hb_compExprNew( HB_ET_VARREF );


   pExpr->value.asSymbol.szName = szVarName;

   pExpr->value.asSymbol.szNamespace = NULL;

   pExpr->ValType = HB_EV_VARREF;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMemVarRef( char * szVarName )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewVarRef(%s)", szVarName));


   pExpr = hb_compExprNew( HB_ET_MEMVARREF );


   pExpr->value.asSymbol.szName = szVarName;

   pExpr->value.asSymbol.szNamespace = NULL;

   pExpr->ValType = HB_EV_VARREF;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewFunRef( char * szFunName )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewFunRef(%s)", szFunName));


   pExpr = hb_compExprNew( HB_ET_FUNREF );


   pExpr->value.asSymbol.szName = szFunName;

   pExpr->value.asSymbol.szNamespace = NULL;

   pExpr->ValType = HB_EV_FUNREF;

   return pExpr;

}



/* Creates a new literal array { item1, item2, ... itemN }

 *    'pArrList' is a list of array elements

 */

HB_EXPR_PTR hb_compExprNewArray( HB_EXPR_PTR pArrList )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewArray()"));


   pArrList->ExprType = HB_ET_ARRAY;   /* change type from ET_LIST */

   pArrList->ValType  = HB_EV_ARRAY;

   pArrList->ulLength = 0;


   pExpr = pArrList->value.asList.pExprList;   /* get first element on the list */


   /* Now we need to replace all EO_NONE expressions with ET_NIL expressions

    * If EO_NONE is the first expression and there is no more expressions

    * then it is an empty array {} and ET_NIL cannot be used

    */

   if( pExpr->ExprType == HB_ET_NONE && pExpr->pNext == NULL )

   {

      HB_XFREE( pExpr );

      pArrList->value.asList.pExprList = NULL;

   }

   else

   {

      /* there are at least one non-empty element specified

       */

      while( pExpr )

      {

         /* if empty element was specified replace it with NIL value */

         if( pExpr->ExprType == HB_ET_NONE )

            pExpr->ExprType = HB_ET_NIL;

         pExpr = pExpr->pNext;

         ++pArrList->ulLength;

      }

   }


   pArrList->value.asList.pIndex = NULL;

   return pArrList;

}


/* Creates new macro expression

 */

HB_EXPR_PTR hb_compExprNewMacro( HB_EXPR_PTR pMacroExpr, unsigned char cMacroOp, char * szName )

{

   HB_EXPR_PTR pExpr;


   if( szName )

   {

      HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewMacro(%s)", szName));


      /* Macro variable is used:  &identifier

       * or macro text: [text]&variable[more_macro_text]

       */

      /*

       * NOTE: Clipper assumes that all variables used in macro expressions

       * are memvar variables

       * NOTE: Clipper pushes the complete macro expression converted

       * to string in case complex expression is used, e.g.

       * My&var.1

       * is pushed as:

       * "MY&VAR.1"

       */

      pExpr = hb_compExprNew( HB_ET_MACRO );

      pExpr->value.asMacro.cMacroOp  = cMacroOp; /* '&' if variable or 0 if text */

      pExpr->value.asMacro.szMacro   = szName;   /* variable name or macro text */

      pExpr->value.asMacro.pExprList = NULL;     /* this is not a parenthesized expressions */

      pExpr->value.asMacro.SubType   = HB_ET_MACRO_VAR;


      if( cMacroOp == 0 )

      {

         /* check if variable with valid scope is used in macro text

          * (local, static and field variables are not allowed)

          * e.g.

          * LOCAL var

          * ? &var      // this is OK

          * ? &var.ext  // this is invalid

          */

         hb_compExprCheckMacroVar( szName );

      }

   }

   else

   {

      HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewMacro(&)"));


      /* Macro expression:  &( expression_list )

       */

      pExpr = hb_compExprNew( HB_ET_MACRO );

      pExpr->value.asMacro.pExprList = pMacroExpr;

      pExpr->value.asMacro.szMacro   = NULL; /* this is used to distinguish &(...) from &ident */

      pExpr->value.asMacro.SubType   = HB_ET_MACRO_EXPR;

   }


   return pExpr;

}


/* Creates new aliased variable

 *    aliasexpr -> identifier

 */

HB_EXPR_PTR hb_compExprNewAliasVar( HB_EXPR_PTR pAlias, HB_EXPR_PTR pVariable )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewAliasVar()"));


   pExpr = hb_compExprNew( HB_ET_ALIASVAR );


   pExpr->value.asAlias.pAlias    = pAlias;

   pExpr->value.asAlias.pVar      = pVariable;

   pExpr->value.asAlias.pExpList  = NULL;


   /* macro expressions in alias context require a special handling

    */

   if( pAlias->ExprType == HB_ET_MACRO )

      pAlias->value.asMacro.SubType = HB_ET_MACRO_ALIASED;

   if( pVariable->ExprType == HB_ET_MACRO )

      pVariable->value.asMacro.SubType = HB_ET_MACRO_ALIASED;


   return pExpr;

}


/* Creates new aliased expression

 *    alias_expr -> ( expression )

 */

HB_EXPR_PTR hb_compExprNewAliasExpr( HB_EXPR_PTR pAlias, HB_EXPR_PTR pExpList )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewAliasExpr()"));


   pExpr = hb_compExprNew( HB_ET_ALIASEXPR );


   pExpr->value.asAlias.pAlias    = pAlias;

   pExpr->value.asAlias.pExpList  = pExpList;

   pExpr->value.asAlias.pVar      = NULL;


   if( pAlias->ExprType == HB_ET_MACRO )

   {

       /* Is it a special case &variable->( expressionList ) */

       //if( pAlias->value.asMacro.SubType == HB_ET_MACRO_VAR )

           pAlias->value.asMacro.SubType = HB_ET_MACRO_ALIASED;

   }


   return pExpr;

}


/* Creates new send expression

 *    pObject : szMessage

 */

HB_EXPR_PTR hb_compExprNewSend( HB_EXPR_PTR pObject, char * szMessage )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewSend(%p, %s)", pObject, szMessage));


   pExpr = hb_compExprNew( HB_ET_SEND );

   pExpr->value.asMessage.szMessage     = szMessage;

   pExpr->value.asMessage.pObject       = pObject;

   pExpr->value.asMessage.pParms        = NULL;

   pExpr->value.asMessage.bByRef        = FALSE;

   pExpr->value.asMessage.pMacroMessage = NULL;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewSendExp( HB_EXPR_PTR pObject, HB_EXPR_PTR pMessage )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewSend(%p, %s)", pObject, pMessage->value.asSymbol.szName));


   pExpr = hb_compExprNew( HB_ET_SEND );

   pExpr->value.asMessage.pObject       = pObject;

   pExpr->value.asMessage.pParms        = NULL;

   pExpr->value.asMessage.bByRef        = FALSE;


   if( pMessage->ExprType == HB_ET_FUNNAME )

   {

      pExpr->value.asMessage.szMessage     = pMessage->value.asSymbol.szName;

      pExpr->value.asMessage.pMacroMessage = NULL;


      pMessage->value.asSymbol.szName = NULL;

      HB_XFREE( pMessage );

   }

   else

   {

      pExpr->value.asMessage.szMessage     = NULL;

      pExpr->value.asMessage.pMacroMessage = pMessage;

   }


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewWithSend( char *szMessage )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewWithSend(%s)", szMessage));


   pExpr = hb_compExprNew( HB_ET_WITHSEND );

   pExpr->value.asMessage.pObject   = NULL;

   pExpr->value.asMessage.pParms    = NULL;

   pExpr->value.asMessage.szMessage = szMessage;

   pExpr->value.asMessage.pMacroMessage = NULL;


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewWithSendExp( HB_EXPR_PTR pMessage )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewWithSendExp(%s)", pMessage->value.asSymbol.szName));


   pExpr = hb_compExprNew( HB_ET_WITHSEND );

   pExpr->value.asMessage.pObject   = NULL;

   pExpr->value.asMessage.pParms    = NULL;


   if( pMessage->ExprType == HB_ET_FUNNAME )

   {

      pExpr->value.asMessage.szMessage     = pMessage->value.asSymbol.szName;

      pExpr->value.asMessage.pMacroMessage = NULL;


      pMessage->value.asSymbol.szName = NULL;

      HB_XFREE( pMessage );

   }

   else

   {

      pExpr->value.asMessage.szMessage     = NULL;

      pExpr->value.asMessage.pMacroMessage = pMessage;

   }


   return pExpr;

}


/* Creates new method call

 *    pObject : identifier ( pArgList )

 *

 *    pObject = is an expression returned by hb_compExprNewSend

 *    pArgList = list of passed arguments - it will be HB_ET_NONE if no arguments

 *                are passed

 */

HB_EXPR_PTR hb_compExprNewMethodCall( HB_EXPR_PTR pObject, HB_EXPR_PTR pArgList )

{

   pObject->value.asMessage.pParms = pArgList;


   return pObject;

}


HB_EXPR_PTR hb_compExprNewWithMethodCall( HB_EXPR_PTR pWithMessage, HB_EXPR_PTR pArgList )

{

   pWithMessage->value.asMessage.pParms = pArgList;


   return pWithMessage;

}


/* Creates a list - all elements will be used

 * This list can be used to create an array or function's call arguments

 */

HB_EXPR_PTR hb_compExprNewList( HB_EXPR_PTR pFirstItem )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewList()"));


   pExpr = hb_compExprNew( HB_ET_LIST );

   pExpr->value.asList.pExprList = pFirstItem;

   return pExpr;

}


/* Creates a list of function call arguments

 */

HB_EXPR_PTR hb_compExprNewArgList( HB_EXPR_PTR pFirstItem )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewArgList()"));


   pExpr = hb_compExprNew( HB_ET_ARGLIST );

   pExpr->value.asList.pExprList = pFirstItem;

   return pExpr;

}


/* Adds new element to the list

 */

HB_EXPR_PTR hb_compExprAddListExpr( HB_EXPR_PTR pList, HB_EXPR_PTR pNewItem )

{

   if( pList->value.asList.pExprList )

   {

      HB_EXPR_PTR pExpr;


      /* add new item to the end of the list */

      pExpr = pList->value.asList.pExprList;

      while( pExpr->pNext )

         pExpr = pExpr->pNext;

      pExpr->pNext = pNewItem;

   }

   else

      pList->value.asList.pExprList = pNewItem;


   return pList;

}


HB_EXPR_PTR hb_compExprNewVar( char * szName )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewVar(%s)", szName));


   pExpr = hb_compExprNew( HB_ET_VARIABLE );

   pExpr->value.asSymbol.szName = szName;

   pExpr->value.asSymbol.szNamespace = NULL;

   return pExpr;

}


/* Create a new declaration of PUBLIC or PRIVATE variable.

 *

 * szName is a string with variable name if 'PUBLIC varname' context

 * pMacroVar is a macro expression if 'PUBLIC &varname' context

 */

HB_EXPR_PTR hb_compExprNewRTVar( char * szName, HB_EXPR_PTR pMacroVar )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewRTVar(%s, %p)", szName, pMacroVar));


   pExpr = hb_compExprNew( HB_ET_RTVAR );

   pExpr->value.asRTVar.szName = szName;

   pExpr->value.asRTVar.pMacro = pMacroVar;

   if( pMacroVar )

      pMacroVar->value.asMacro.SubType = HB_ET_MACRO_SYMBOL;

   return pExpr;

}


/* Create a new symbol used in an alias expressions

 */

HB_EXPR_PTR hb_compExprNewAlias( char * szName )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprNewAlias(%s)", szName));


   pExpr = hb_compExprNew( HB_ET_ALIAS );

   pExpr->value.asSymbol.szName = szName;

   pExpr->value.asSymbol.szNamespace = NULL;

   return pExpr;

}



/* ************************************************************************* */


HB_EXPR_PTR hb_compExprNewEqual( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_EQUAL );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPlus( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_PLUS );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMinus( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MINUS );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMult( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MULT );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewDiv( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_DIV );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMod( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MOD );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPower( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_POWER );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewBitAnd( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_BITAND );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewBitOr( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_BITOR );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewBitXOr( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_BITXOR );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewBitShiftR( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_BITSHIFTR );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewBitShiftL( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_BITSHIFTL );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPostInc( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_POSTINC );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPostDec( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_POSTDEC );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPreInc( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_PREINC );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPreDec( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_PREDEC );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewPlusEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_PLUSEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMinusEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MINUSEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMultEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MULTEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewDivEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_DIVEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewModEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MODEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewExpEq( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_EXPEQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewAnd( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_AND );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewOr( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_OR );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewMatch( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_MATCH );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewLike( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_LIKE );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewNot( HB_EXPR_PTR pNotExpr )

{

   HB_EXPR_PTR pExpr;


   if( pNotExpr->ExprType == HB_ET_LOGICAL )

   {

      pNotExpr->value.asLogical = ! pNotExpr->value.asLogical;

      pExpr = pNotExpr;

   }

   else

   {

      pExpr = hb_compExprNew( HB_EO_NOT );

      pExpr->value.asOperator.pLeft  = pNotExpr;

      pExpr->value.asOperator.pRight = NULL;

   }


   return pExpr;

}


HB_EXPR_PTR hb_compExprNewEQ( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_EQ );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewLT( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_LT );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewGT( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_GT );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewLE( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_LE );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewGE( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_GE );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewNE( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_NE );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


HB_EXPR_PTR hb_compExprNewIN( HB_EXPR_PTR pLeftExpr )

{

   HB_EXPR_PTR pExpr = hb_compExprNew( HB_EO_IN );

   pExpr->value.asOperator.pLeft = pLeftExpr;

   pExpr->value.asOperator.pRight = NULL;

   return pExpr;

}


/* NOTE: all invalid cases are handled by yacc rules

 */

HB_EXPR_PTR hb_compExprNewNegate( HB_EXPR_PTR pNegExpr )

{

   HB_EXPR_PTR pExpr;


   if( pNegExpr->ExprType == HB_ET_NUMERIC )

   {

      if( pNegExpr->value.asNum.NumType == HB_ET_DOUBLE )

      {

         pNegExpr->value.asNum.dVal = - pNegExpr->value.asNum.dVal;

         pNegExpr->value.asNum.bWidth = (unsigned char) HB_DBL_LENGTH( pNegExpr->value.asNum.dVal );

      }

      else

      {

         pNegExpr->value.asNum.lVal = - pNegExpr->value.asNum.lVal;

         pNegExpr->value.asNum.bWidth = (unsigned char) HB_LONG_LENGTH( pNegExpr->value.asNum.lVal );

      }

      pExpr = pNegExpr;

   }

   else

   {

      pExpr = hb_compExprNew( HB_EO_NEGATE );

      pExpr->value.asOperator.pLeft = pNegExpr;

      pExpr->value.asOperator.pRight = NULL;

   }

   return pExpr;

}


/* ************************************************************************* */


/* Handles (expression := expression) syntax

 */

HB_EXPR_PTR hb_compExprAssign( HB_EXPR_PTR pLeftExpr, HB_EXPR_PTR pRightExpr )

{

   HB_EXPR_PTR pExpr;


   HB_TRACE(HB_TR_DEBUG, ("hb_compExprAssign()"));


   pExpr = hb_compExprNew( HB_EO_ASSIGN );

   pExpr->value.asOperator.pLeft  = pLeftExpr;

   pExpr->value.asOperator.pRight = pRightExpr;

   return pExpr;

}


/*  Return a number of elements on the linked list

 */

ULONG hb_compExprListLen( HB_EXPR_PTR pExpr )

{

   ULONG ulLen = 0;


   if( pExpr )

   {

      pExpr = pExpr->value.asList.pExprList;


      while( pExpr )

      {

         pExpr = pExpr->pNext;

         ++ulLen;

      }

   }


   return ulLen;

}

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted


Resuelto super master, asi:





   :HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"


   loBP := :AddRelatedBodyPart( cDirPleno + "\LOGO.JPG", "id_imagen10", 1)


   WITH OBJECT loBP:Fields


      // :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10" // Asi, genera WARNINGS

      :Item("urn:schemas:mailheader:Content-ID"):Value :=  "id_imagen10"  // Asi, no.


      :Update()


   END WITH



Muchas gracias, thanks, muito obrigado.


Regards, saludos.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...