Jump to content
Fivewin Brasil

zekasan

Membros
 View Profile  See their activity

  • Posts

    146

  • Joined

  • Last visited

  • Days Won

    6

 Content Type 

Posts posted by zekasan

  4. Ajuda com SQL

    in Programação

    Posted

    Não é isso, aí ele vai pegar só o que for deste cnpj com tipo de impressão que não seja 5

    eu não quero que seja selecionado documentos deste CNPJ com tipo de emissão 5.

    EU quero pegar de todos os outros CNPJ do BD e deste CNPJ, porém deste CNPJ eu não quero os tipo 5

  5. Ajuda com SQL

    in Programação

    Posted

    Bom dia, abaixo um dos select do meu prg

    "select count(1) as qt, sum(case when a.vlliquido = a.vltotalprestacao then (a.vlliquido - a.vlicms) "+;

    "when a.vlliquido <> a.vltotalprestacao then (a.vlliquido - a.vlICMScredpres) "+;

    "end) as valorliquido_meta, c.cdempresa as empresa_meta, "+;

    "convert(nvarchar(10), a.dtemissao, 103) as emissao_rela "+;

    "from gtcconhe a "+;

    "left join sisclifa b on a.cdinscricao = b.cdinscricao "+;

    "left join sisrepre c on b.cdrepresentante = c.cdrepresentante "+;

    "where isnull(a.inconhecimento,0) = 0 "+;

    "and a.dtemissao >= '"+DATA_SQL(DATA_INICIO_META)+"' "+;

    "and a.dtemissao <= '"+DATA_SQL(DATA_FIM_META)+"' "+;

    "and a.cdinscricao = '49351786001071' "+;

    "and a.intipoemissao = 5 "+;

    "group by c.cdempresa, a.dtemissao "+;

    "order by c.cdempresa, a.dtemissao "

    Destacado em vermelho, pego todos CTe que foram emitidos para o cnpj e que tiveram o tipo de emissão = 5

    O que eu preciso também é o contrário, que ele não pegue os CTe deste CNPJ com o tipo de emissão 5 (somente estes não podem ser pegos)

    Podem me ajudar?

    Grato

  8. CAPTCHA - isto me tira do sério

    in Programação

    Posted

    Tem algum método que eu consiga jogar o código abaixo para ser exibido dentro da minha dialog? e não na página do browser? Aí eu mataria uma fase do captcha.



    oIE1 := CreateObject('InternetExplorer.Application')

    oIE1:Visible := .t.


    oIE1:left := 0

    oIE1:top := 0

    oIE1:height := 180

    oIE1:width := 260

    oIE1:Visible := .T.



    while( oIE1:ReadyState != 4 )

    HB_IdleSleep( 0 )

    end while

  12. CAPTCHA - isto me tira do sério

    in Programação

    Posted

    Obrigado pela ajuda, mas não se enquadra ainda no que eu preciso:

    Programa que está sendo desenvolvido:

    - Usuário digita o CNPJ ou CPF

    - O sistema verifica primeiramente no banco de dados interno se há alguma restrição para aquele cliente

    - Não havendo restrição ele irá procurar no www.ieptb.com.br se há algum protesto negativando o cliente

    - Caso não haja restrição ele irá depois na receita e no sintegra para verificar se ele está ativo.

    - Eu preciso que não mostre a página de cada www, vou entrar com o cnpj automaticamente em cada página,

    mostrando apenas o captcha de cada www em uma dialog minha.

    - Isto para agilizar o processo, semi-automatizando a pesquisa, porque o cliente pode estar na linha.

  18. função em C# para alterar cores do group-box

    in Programação

    Posted

    Bom dia, é um assunto abordado várias vezes, achei este código em C# para alterar as cores do group-box, é possível usarmos no Five com xHarbour? Alguém poderia 'traduzir' ?



    * borderColor = Cor da borda

    * textColor = Cor do texto do título do groupbox

    * radius = Define a curvatura da borda



    public class myGroupBox:GroupBox

    {

    private Color borderColor;

    private float radius;

    private Color textColor;

    public Color BorderColor

    {

    get

    {

    return this.borderColor;

    }

    set

    {

    this.borderColor = value;

    }

    }

    public float Radius

    {

    get

    {

    return this.radius;

    }

    set

    {

    this.radius = value;

    }

    }

    public Color TextColor

    {

    get

    {

    return this.textColor;

    }

    set

    {

    this.textColor = value;

    }

    }

    public myGroupBox()

    {

    this.borderColor = Color.Black;

    this.textColor = Color.Black;

    this.radius = 8;

    }

    protected override void OnPaint(PaintEventArgs e)

    {

    GraphicsPath gp = new GraphicsPath();

    gp.AddArc(e.ClipRectangle.X + e.ClipRectangle.Width - 2 - (radius * 2), e.ClipRectangle.Y + 8, radius * 2, radius * 2, 270, 90);

    gp.AddArc(e.ClipRectangle.X + e.ClipRectangle.Width - 2 - (radius * 2), e.ClipRectangle.Y + e.ClipRectangle.Height - 2 - (radius * 2), radius * 2, radius * 2, 0, 90);

    gp.AddArc(e.ClipRectangle.X, e.ClipRectangle.Y + e.ClipRectangle.Height - 2 - (radius * 2), radius * 2, radius * 2, 90, 90);

    gp.AddArc(e.ClipRectangle.X, e.ClipRectangle.Y + 8, radius * 2, radius * 2, 180, 90);

    gp.CloseFigure();

    e.Graphics.DrawPath(new Pen(borderColor), gp);

    Size tSize = TextRenderer.MeasureText(this.Text, this.Font);

    Rectangle textRect = e.ClipRectangle;

    textRect.X += 15;

    textRect.Width = tSize.Width;

    textRect.Height = tSize.Height;

    e.Graphics.FillRectangle(new SolidBrush(this.BackColor), textRect);

    e.Graphics.DrawString(this.Text, this.Font, new SolidBrush(textColor), textRect);

    }

    }

    }

  21. Envio de eMail com TSMTP

    in Programação

    Posted

    Exemplo retirado do site indicado pelo Gilmer

    * Connect to SMTP server then send email

    Function SendMail(ToList, Subject, Message)
    Local Kode
    Local SmtpHost
    Local SmtpUser
    Local SmtpPass
    Local SmtpFrom
    Local SmtpRepl
    y Local ccList
    Local bccList
    Local Attachments
    SmtpHost = "smtp.my-isp.com"
    SmtpUser = "my-user-name"
    SmtpPass = "my-password"
    SmtpFrom = "<mike@my-isp.com>"
    SmtpReply= "<mike@my-isp.com>"
    ccList = Chr(0)
    bccList = Chr(0)
    Attachments = Chr(0)
    * specify the port to connect on (default port is 25)
    seeIntegerParam(0, SEE_SMTP_PORT, 587)
    * enable "SMTP Authentication"
    Kode = seeIntegerParam(0, SEE_ENABLE_ESMTP, 1)
    * specify the user name and password for SMTP authentication
    seeStringParam(0, SEE_SET_USER, SmtpUser)
    seeStringParam(0, SEE_SET_SECRET, SmtpPass)
    * connect to SMTP server
    Kode = seeSmtpConnect(0, SmtpHost, SmtpFrom, SmtpReply)
    * error ? (negative return Kodes are errors)
    if Kode < 0
    return Kode
    endif
    * send email to list of recipients (ToList)
    Kode = seeSendEmail(0,ToList,ccList,bccList,Subject,Message,Attachments)
    return Kode

  23. Enviar email

    in Programação

    Posted

    parte de programa que uso:

    Function EnviaMail() //(oassunto,odestino,otexto)
    local cUser := Space(50), cPass := Space(15), cRemt := Space(50), ;
    cDest := Space(250), cTime, cAssuntoE := Space(500),;
    cCC := "", cCCO := ""
    local oDlg, oSay[12], oBtn[2], nItem := 0
    local cDados, i
    private oGet[8]
    if IsInternet() == .f.
    msgstop("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação")
    return .f.
    endif
    cTxt := CORPO
    cAssuntoE := ASSUNTO
    cDest := FATURA->EMAI
    Private oCab, oGru, oCon, oCod, oMenu, lSair := .f., oM2, lCheck := .t.
    if( lRet := Config_Mail(Lower(alltrim(iEMAIL_CONTA)),Alltrim(iEMAIL_SENHA),Lower(Alltrim(iEMAIL_CONTA)),;
    Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cAssuntoE ), ;
    oText_Log:Add("Fatura "+FATURA->NUME+" enviada com sucesso para o e-mail "+FATURA->EMAI+" - "+time()),)
    Return Nil
    Function Config_Mail(cUser,cPass,cRemt,cDest, cCC, cCCO, cTxt, cSubject)
    local lRet := .f.
    local oCfg, oError
    local cServ := iEMAIL_PROVEDOR
    local nPort := iEMAIL_PORTA
    local lAut := iEMAIL_AUTENTICA
    local lSSL := iEMAIL_SSL
    * cUser := email_usuario
    TRY
    oCfg := CREATEOBJECT( "CDO.Configuration" )
    WITH OBJECT oCfg:Fields
    :Update()
    END WITH
    lRet := .t.
    CATCH oError
    oText_Log:Add("ERRO: problema na configuração CDO.Configuration na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time())
    /* MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ;
    "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ;
    "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ;
    "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ;
    "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
    "Mensaje: " + oError:Description, "Atenção" )
    */
    END
    //--> FIM DAS CONFIGURAÇOES.
    if lRet
    lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject)
    endif
    Return lRet
    Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject)
    local cToken
    local lRet := .f.
    cTo := cTo //--> PARA
    cCC := cCC //--> COM COPIA
    cBCC := cBCC //--> COM COPIA OCULTA
    TRY
    oMsg := CREATEOBJECT ( "CDO.Message" )
    WITH OBJECT oMsg
    :Configuration := oCfg
    :From := cFrom
    :To := cTo
    :CC := cCC
    :BCC := cBCC
    :Subject := cSubject
    :TextBody := cMsg
    //:HTMLBody = cMsg
    :AddAttachment(ARQUIVO_PDF)
    :Send()
    END WITH
    lRet := .t.
    CATCH
    oText_Log:Add("ERRO: problema na configuração CDO.Message na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time())
    lRet := .f.
    END
    Return lRet
×
×
  • Create New...