Marca

Olá Oscar Eu faço da seguinte maneira No meu caso uso MedimBlob Uma tabela somente para imagens Exemplo no cliente Quando entro pra editar busco a imagem do banco IF !Empt(f_Foto) .OR. !Empt(f_Foto2) IF GeraQuery( "SELECT FOTO_CLI1,FOTO_CLI2 FROM imagens WHERE CD_CLIENTE = " + ANY2SQL(oCodClie) ,_CodEmp,.F.,,,"tImagens",.T.) lTemFoto := .T. IF !File(f_Foto) MEMOWRIT(f_Foto,tImagens->Foto_Cli1) ENDIF IF !File(F_Foto2) MEMOWRIT(f_Foto2,tImagens->Foto_Cli2) ENDIF FechaSql ( "tImagens" ) ENDIF ENDIF Qdo Saio da edição Caso altere algo IF lTemFoto GravaBase("DELETE FROM imagens WHERE cd_cliente = " + ANY2SQL( oCodClie ), "Imagens") SqlImg := "INSERT INTO imagens (cd_cliente,foto_cli1,foto_cli2) VALUES (" +; ANY2SQL( oCodClie ) + [,] +; ANY2SQL(MemoRead( f_Foto )) + [,] +; ANY2SQL(MemoRead( f_Foto2 )) + ")" GravaBase(SqlImg,"imagens") ELSE IF !Empt(f_Foto) .OR. !Empt(f_Foto2) SqlImg := "INSERT INTO imagens (cd_cliente,foto_cli1,foto_cli2) VALUES (" +; ANY2SQL(oCodClie) + [,] +; ANY2SQL(MemoRead( f_Foto )) + [,] +; ANY2SQL(MemoRead( f_Foto2 )) + ")" GravaBase(SqlImg,"imagens") ENDIF ENDIF Espero que ajude

Blz

Olá Pessoal Alguém teria o método StruComb() da classe da NFE relativo a combustíveis já ajustado para a nova versão da nota ?

Exatamente isso. Everton. Não muda nada Na criação de seu temporário DbCreate( cFileName, aCopyStructure, "DBFCDX",.T., cTmpAlias) Ou se preferir antes de criar RddSetDefault( 'DBFCDX' ) Depois retorne para RddSetDefault( 'MySQL' )

Bom dia Everton. Você pode continuar fazendo exatamente como faz hoje e ai invés de gravar no dbf definitivo você irá passar a gravar na sua tabela do Mysql.

KKKK Irei me lembrar disso curintiano.......

João. Eu estou exatamente na contramão disso Estou tirando tudo que não é nativo do five de meu sistema com isso estou eliminando TsSay Tsbutton ts.... e ai por diante quero utilizar somente os componentes nativos.

Bom dia a Todos DEFINE DIALOG oDlgBol RESOURCE 'MINHATELA TITLE "TESTE DE ALINHAMENTO DE TEXTO " FONT meufonte BRUSH meubrush TRANSPARENT REDEFINE BITMAP oBmpFx ID 6000 RESOURCE "BANNER" OF oDlgBol ADJUST TRANSPARENT Quero escrever um texto que fique alinhado em cima deste bitmap sendo que da direita pra esquerda com o say e o sensitive say funcionam sendo q. ambos dão problemas em determinadas situações o say caso eu coloque um brush na tela ela não aparece o texto , ele mostra o Brush O sensitivesay deu problema com alguns temas e com o Windows server REDEFINE SAY oSayBol[7] PROMPT 'Texto que quero que saia alinhado a direita' ID 6001 OF oDlgBol FONT oPub:oFontBaner COLOR CLR_WHITE ALIGN RIGHT TRANSPARENT Com isso encontrei este exemplo que escreve em cima do bitmap e resolve o problema sendo que quero calcular a posição da coluna automaticamente e não colocar ela fixa para que se mudar a resolução não de problema: Como calcular nCalculoPosColuna de acordo com o texto q. eu enviar ?? O Gilmer me sugeriu utilizar a //GetTextWidth( <hDC>, <cString>, [<hFont>] ) --> nPixelWidth Sendo q. já tentei e não esta funcionando conforme a função abaixo q. inicializei no on init ACTIVATE DIALOG oDlgBol CENTERED ; ON INIT ( MontaSayTela ( oBmpFx , cTextoTela , oDlgBol ) ) FUNCTION MontaSayTela ( oBmpSay , cTextoSay , oDlg ) LOCAL nCalculoPos IF oBmpSay != NIL // 0 316 813 581 151 ? oDlg:nLeft,oDlg:nRight, oDlg:nWidth ,oDlg:nHeight ,oDlg:nBottom // Valores * ? oBmpSay:nLeft,oBmpSay:nRight, oBmpSay:nWidth ,oBmpSay:nHeight // 0 0 10 40 0 * nCalculoPos := GetTextWidth(0,Replicate("B",Max(oDlg:nHeight,len(cTextoSay))+1), oPub:oFontBaner) oBmpSay:bPainted := {|| oBmpSay:Say( 1 , nCalculoPos , cTextoSay , CLR_WHITE, , oPub:oFontBaner, .T. ,.T. , )} oBmpSay:Refresh() ENDIF Alguém saberia como resolver ?

Obrigado Joao

Olá Pessoal Alguém teria o fonte da classe win32prn.prg que pudesse me enviar ?

Rossine. Como faço pra falar com você. Tenho seu Skype mais você não responde.

Você já tentou utilizando o Outlook ou algo neste sentido somente pra ver se o problema não esta na sua conta de email ?

Judson. Eu tive o mesmo problema com o Cdo em um Server2003 Hora funcionava hora não Baixei na net SwithMail.exe q. é Free e consegui enviar utilizando ele.

Obrigado

cnavarro Existe a possibilidade de fazer o ajuste para xHarbour ? Tenho interesse em usar a rotina.

Esta rotina mapeia algum driver como o DropBox ou faz diferente ? Caso não crie uma pasta via Windows seria uma saída pra tentarmos fugir do tal vírus HansomWare

Bom dia a todos. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34946 Alguém conseguiu rodar usando xHarbour ?

Up

Vai sim Kapi. Quero colocar no xml exatamente para em caso de uma reimpressão desta nfe que a informação esteja neste xml e não no banco. Veja http://www.flexdocs.com.br/guiaNFe/gerarNFe.pag400.html

Bom dia. Alguém teria um xml com o troco informado ?

Bom natal a todos.

Pessoal. Caso o Ie do cliente seja o 8 não ativa a tela do recaptcha mesmo com a função do Giovany.

Qual seria o define da chave HKEY_LOCAL_MACHINE ?

Continuando a analisar tem a ver com isso ai https://webdesign.tutsplus.com/pt/tutorials/how-to-integrate-no-captcha-recaptcha-in-your-website--cms-23024 Com o Recaptcha