Theotokos

FELIZ NATAL PROSPERO ANO NOVO Que Deus e nosso Senhor Jesus Cristo abençoe a todos com muita paz, saúde, alegria, sucesso e amor!!!!

Boa tarde pessoal, queria saber a opnião de vcs... alguns clientes querem reaproveitar as impressoras fiscais que já foi dado baixa para transformar em impressora não fiscais... tem uns kits para fazer isso na internet... SERÁ QUE ISSO FUNCIONA? O QUE ACHAM DA IDÉIA? ALGUEM JÁ VEZ ISSO?

aDialog é referente a esta linha @ 20, 1 FOLDER oFld PROMPT "&1 - Principal", "&2 - Trabalho", "&3 - Cônjuge" , "&4 - Foto"; OF pr000016 SIZE 300, 212 PIXEL Cada posição do vetor é referente a uma aba... aDialog[1] = Principal aDialog[2] = Trabalho aDialog[3] = Conjuge aDialof[4] = Foto

CREIO QUE ESTEJA FAZENDO MAIS OU MENOS ASSIM oBrw:aCols[1]:AddBmpFile( "BMP\UP.Bmp" ) oBrw:aCols[1]:AddBmpFile( "BMP\DOWN1.Bmp" ) oBrw:aCols[1]:bBmpData := { || If( BanMerca->M_QUANTIDA > M_EMINIMO, 1, 2 ) } oBrw:aCols[1]:bStrData := { || "AQUI O TEXTO QUE QUEIRA MOSTRAR JUNTO COM A IMAGEM" } oBrw:aCols[1]:nDataBmpAlign := 3

oi @rochinha,boa noite.... este NetIO funciona com xharbour tambem? Se Sim, vc sabe a partir de qual Versão? Obgdão!!!

http://fivewin.com.br/index.php?/search/

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NNU ]:cHeader := "Nosso Número" aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NNU ]:nHeadStrAlign:= AL_CENTER aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_VAL ]:cHeader := "Valor R$" aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_VAL ]:nHeadStrAlign:= AL_CENTE tente alinhar a Right campo numérico... AL_RIGHT

Não sei como vc esta atrbuindo o valor no vetor, mas tente assim... (mantem sempre o valor numerico, e só transforma para exbir) oLbx:aCols[3]:bStrData := {|| Transform(aDados[oLbx:nArrayAt,7],"@E 9,999.99") } oLbx:aCols[3]:cHeader := "Total" oLbx:aCols[3]:nWidth := 80 oLbx:aCols[3]:oDataFont := oFnt4

é conectar o leitor e ser feliz.... kkkk brincadeira a parte, poste a parte do teu codigo que utilizar a leitor, bem provavel que é algo no codigo, ai com certeza os amigos ai vão conseguir ajudar... em tese, provavel que qdo vc ler o codigo de barrar, chame alguma rotina/função e ao retornar esta perdendo o foco do get...

Olá rochinha, Bom Dia, Estas funções serve também para salvar arquivo BMP ? é que tenho uma rotina que qdo o usuário fecha o caixa, o sistema salva a dialog.. oDlg::saveToBmp( cArqTela ); ai gostaria de ao invés de salvar em arquivo bmp, salva direto no arquivo DBF... Seria possivel com esta funções ou teria alguma outra? Obgdão!!!

tente assim: WITH OBJECT oBrw:Foto :AddBitmap( Foto ) :bBmpData := { || 1 } END With object oBrw:Foto :AddBitmap( foto ) :AddBitmap( Foto1 ) :bBmpData := {|| If( suacondicao, 1, 2) } end

Bom Dia!!! THEOTOKOS = RONE.... so eu memo....

o teu campo no FR3 esta formatado como Data? dd/mm/aaaa

Eu nao uso, mas talvez isto funcione oPanel:aPanels[ n ]:SetText( "NOVO TEXTO") n = posição do texto no painel... = 11

Vlw @Rogerio Figueira, vou baixar... mas vc teria ai um exemplo de como utilizar e enviar email direto sem interação com usuáiro?

tentei pelo gmail... mas agora da erro "unknown error" e nao sei o que esta errado!!!

Vlw!! vu tentar com outro então, é com cliente que utiliza BOL...

no log esta aparecendo este erro de autenticação, o que pode ser? configuração ou senha? 20180412-09:37:05 :INETRECVLINE( 6A2A518, , 512 ) >> 535 5.7.8 Error: authentication failed: generic failure <<

Boa Tarde!!! Estou tentando enviar email, e dá mensagem de que foi enviado com sucesso, porem não recebo o email... utilizando o seguinte rotina : cProto := "smtp://" cServer := "smtps.bol.com.br" cPOPServer := "imap.bol.com.br" cUsuaID := "ronecoura@bol.com.br" cPassword := "minha senha" cUsuaID := StrTran( cUsuaID, "@", "&at;" ) cUrl := cProto + cUsuaID + ":" + cPassword + "@" + cServer * cFrom := "ronecoura@bol.com.br" cTo := "errosys@rl-informatica.net" cCC := "ronecoura@bol.com.br" cSubject := "Fechamento do Caixa - " + DtoC(Date()) cFile := "" cBody := "EM ANEXO A IMAGEM DA TELA DO CAIXA" nPort := 587 * oUrl := TUrl():New(cUrl , lCreateLogFile := .f.) oUrl:nPort := nPort oUrl:cUserid := cUsuaID * oSmtp := TIpClientSmtp():new( oUrl , lCreateLogFile ) * oEMail := TIpMail():new() oEMail:setHeader( cSubject, cFrom, cTo, cCC ) oEMail:setBody( cBody ) oEMail:attachFile( cFile ) //oEMail:hHeaders[ "Disposition-Notification-To" ] := cFrom // solicita confirmacao oSmtp:nConnTimeout := 2000 IF oSmtp:open() oSmtp:sendMail( oEMail ) oSmtp:close() MSGINFO( , [RL Informatica] ) ELSE MSGINFO( oSmtp:lastErrorMessage(), "ERRO" ) ENDIF

se vc tiver um richText só para esta parte do fiador, ai sim!!! na aba codigo, vc insere a condição para mostrar ou não, exemplo: supondo que o nome do richText chame rtFiador If <fiador2_contrato."NOME"> = '' THEN Begin rtFiador.visible := true; End else Begin rtFiador.visible := false; End; Acho que é isso: testa ai.. e vai ajeitando o codigo...

Desistir do REDEFINE WINDOWS e passei para REDEFINE DIALOG não ficou tão bom, mas no momento esta melhor... Vlw @kapiaba muito obgdo!!!

Este oBar eu tirei - não estou usando botoes... alias, qdo chamo a rotina BmpOpen() abre a Windows (que fica por tras da Dialog) e o foco fica só na Dialog, não consigo clicar na Windows enquanto não fecho a Dialog se não tiver outro jeito, vou deixar sem o MDIChild e oWndBmp:SetControl()

Vishi.... sê nao acredita...não funcinou Creio que o problema esta no VerBMP.prg DEFINE WINDOW oWndBmp FROM 2,2 TO 25,50; TITLE "BITMAP " + cBmpFile MDICHILD @ 0, 0 IMAGE oBmp FILENAME cBmpFile SCROLL ADJUST OF oWndBmp ; on left click (AjustaZoom(oBmp,"A",oSay)) ; on right click (AjustaZoom(oBmp,"R",oSay)) oWndBmp:SetControl( oBmp ) no MDIChild e oWndBmp:SetControl( oBmp) porque seu tiro só o MDIChild o oWndbmp:Setcontrol() ão funciona... mas ai a Windows fica no primeiro plano...

Fonte VerBmp.prg #include "FiveWin.ch" STATIC ownd //----------------------------------------------------------------------------// function BmpOpen( cFileOpen ) local oWndBmp, oBar, oBmp, oIcon, oLupa local oSay,oFont local cBmpFile cBmpFile := cFileOpen if ! Empty( cBmpFile ) DEFINE FONT oFont NAME "Arial" SIZE 5, 13 DEFINE WINDOW oWndBmp FROM 2,2 TO 25,50; TITLE "BITMAP " + cBmpFile MDICHILD @ 0, 0 IMAGE oBmp FILENAME cBmpFile SCROLL ADJUST OF oWndBmp ; on left click (AjustaZoom(oBmp,"A",oSay)) ; on right click (AjustaZoom(oBmp,"R",oSay)) oWndBmp:SetControl( oBmp ) ajustazoom(oBmp,"z",oBar) ACTIVATE WINDOW oWndBmp oFont:End() endif return oWndBmp function imprimirbmp(Bmp,oBmp) local oPrn local nZoom:=oBmp:Zoom() local anchura:=oBmp:nWidth()*nZoom local altura :=oBmp:nHeight()*nZoom PRINT oPrn NAME "BITMAP" PAGE oPrn:SayBitmap(0,0,bmp,anchura,altura) ENDPAGE ENDPRINT return nil Function AjustaZoom(oBmp,cAccion,oSay) local nZoom:=oBmp:Zoom() do case case cAccion == "S" oBmp:lStretch := !oBmp:lStretch oBmp:ScrollAdjust() oBmp:Refresh( .t. ) case cAccion == "R" if nZoom*10>1 oBmp:lStretch := .f. nZoom:=nZoom-(0.10) oBmp:Zoom(nZoom) oBmp:Refresh() oBmp:ScrollAdjust() endif case cAccion == "A" oBmp:lStretch := .f. nZoom:=nZoom+0.10 oBmp:Zoom(nZoom) oBmp:Refresh() oBmp:ScrollAdjust() endcase return NIL //----------------------------------------------------------------------------// procedure AppSys // XBase++ requirement return //----------------------------------------------------------------------------// De onde chamo essa rotina : Procedure Con_OS() LOCAL oDlg, oCol, oGet, oFnt[3], oImg * Private cFile := "BMP\CLIENTE.BMP" * cProcura := Space(30) cCampo := PadL("Cliente",15) * Sel("Atende",1) DbGoBottom() * DEFINE FONT oFnt[1] NAME "Tahoma" SIZE 0, 16 DEFINE FONT oFnt[2] NAME "Tahoma" SIZE 0, 20 BOLD DEFINE FONT oFnt[3] NAME "Tahoma" SIZE 0, 14 * DEFINE DIALOG oDlg RESOURCE "DLG_CON_OS" * oDlg:lTransparent := .T. oDlg:lHelpIcon := .F. * REDEFINE IMAGE oImg ID 4009 OF oDlg UPDATE ADJUST FILE cFile ON ClICK( BmpOpen( cFile ) ) * REDEFINE SAY oSay ID 4008 FONT oFnt[2] COLOR CLR_RED * oBrw := TxBrowse():New( oDlg ) oBrw:CreateFromResource( 4005 ) oBrw:cAlias := 'Atende' * ADD COLUMN TO XBROWSE oBrw DATA CLIENTE+CRLF+"Nº "+StrZero(NCLIENTE,5) TITLE "Cliente" SIZE 350 ADD COLUMN TO XBROWSE oBrw DATA NOS TITLE "Nº OS" SIZE 100 RIGHT ADD COLUMN TO XBROWSE oBrw DATA PRODUTO TITLE "Produto" SIZE 250 ADD COLUMN TO XBROWSE oBrw DATA DATA_ENTRA TITLE "Dt.Entrada" SIZE 080 PICTURE "@D 99/99/9999" ADD COLUMN TO XBROWSE oBrw DATA DATA_SAIDA TITLE "Dt.Saída" SIZE 080 PICTURE "@D 99/99/9999" ADD COLUMN TO XBROWSE oBrw DATA VRSERVICO TITLE "Vr.Serviços" SIZE 100 PICTURE "@E 9,999.99" ALIGN RIGHT * oBrw:aCols[1]:bPaintText :={|oCol,hDC,cText,aCoord| ; PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oFnt[1], oFnt[3], CLR_BLACK, CLR_RED ) } * * Definir Fontes * oBrw:aCols[1]:oDataFont := oFnt[1] oBrw:aCols[2]:oDataFont := oFnt[2] oBrw:aCols[3]:oDataFont := oFnt[3] oBrw:aCols[4]:oDataFont := oFnt[3] oBrw:aCols[5]:oDataFont := oFnt[3] oBrw:aCols[6]:oDataFont := oFnt[3] * oBrw:lHeader := .t. // se vai mostrar header cabeçalho) oBrw:nHeaderLines := 2 oBrw:nHeaderHeight := 25 * oBrw:lRecordSelector := .t. oBrw:nRecSelColor := RGB(205,220,255) oBrw:lTransparent := .T. * oBrw:nRowHeight := 40 oBrw:lColDividerComplete := .f. oBrw:nDataLines := 2 // Number of lines of the data rows oBrw:nFooterLines := 2 // Number of lines of the footer oBrw:nDataType := 0 // Data type to be used: 0->rdd, 1->array, ... (more to come) If navigation codeblocks are not specified then get automatically initialized when adjusting the browse depending on this DATA value oBrw:nColDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray oBrw:nRowDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray oBrw:nMarqueeStyle := 5 // Marquee style (row selected) 0 No Marquee 1 Dotted cell 2 Solid cell 3 Highlight cell 4 Highlight row & Raise Cell 5 Highlight row 6 Highlight row & multiselect oBrw:bSeek := {|c| cProcura := C, oGet:Refresh(), DbSeek(Upper( c )) } oBrw:bClrSelFocus := {|| {cCorFrente, cCorfundo} } oBrw:bClrSel := {|| {cCorFrente, cCorFundo} } oBrw:SetRDD(.F.) oBrw:lVThumbTrack := .T. * oBrw:bChange := { || cFile := "FOTOS\C_"+StrZero(NCLIENTE,5)+".bmp", ; oImg:LoadImage( , If( File(cFile), cFile, "BMP\CLIENTE.BMP") ),; oImg:Refresh() } * oBrw:BLClicked := { || cFile := "FOTOS\C_"+StrZero(NCLIENTE,5)+".bmp", ; oImg:LoadImage( , If( File(cFile), cFile, "BMP\CLIENTE.BMP") ),; oImg:Refresh() } * oBrw:aCols[2]:AddBmpFile( "BMP\St1.Bmp" ) oBrw:aCols[2]:AddBmpFile( "BMP\St2.Bmp" ) oBrw:aCols[2]:AddBmpFile( "BMP\St3.Bmp" ) oBrw:aCols[2]:AddBmpFile( "BMP\St4.Bmp" ) oBrw:aCols[2]:bBmpData := { || VerStatus() } oBrw:aCols[2]:nDataBmpAlign := 1 * oBrw:aCols[1]:bLClickHeader := {|| Sel("Atende",6), oBrw:Refresh() } oBrw:aCols[2]:bLClickHeader := {|| Sel("Atende",1), oBrw:Refresh() } oBrw:aCols[3]:bLClickHeader := {|| Sel("Atende",3), oBrw:Refresh() } oBrw:aCols[4]:bLClickHeader := {|| Sel("Atende",4), oBrw:Refresh() } oBrw:aCols[5]:bLClickHeader := {|| Sel("Atende",5), oBrw:Refresh() } * REDEFINE COMBOBOX oCbx VAR cCampo PROMPTS {"Nº OS","Cliente","Data Entrada","Data Saída","Produto"} UPDATE ID 104 OF oDlg REDEFINE GET oGet VAR cProcura ID 106 OF oDlg ON CHANGE (BcDdOS(oGet,cCampo,oBrw), oDlg:Refresh()) ; CUEBANNER "Digite para buscar..." * REDEFINE BTNBMP ID 4002 OF oDlg 2007 ACTION (Lan_Atendimento(1), xFocus(oBrw)) PROMPT "Novo" FILE "BMP\IncluirP.BMP" REDEFINE BTNBMP ID 4004 OF oDlg 2007 ACTION (Lan_Atendimento(2,Atende->NOS), xFocus(oBrw)) PROMPT "Alterar" FILE "BMP\EditarP.BMP" REDEFINE BTNBMP ID 4006 OF oDlg 2007 ACTION (Excluir(), oBrw:Refresh(), xFocus(oBrw)) PROMPT "Excluir" FILE "BMP\ExcluirP.BMP" REDEFINE BTNBMP ID 4007 OF oDlg 2007 PROMPT "Relatório" File "Bmp\Printer.Bmp" * REDEFINE BTNBMP ID 105 OF oDlg 2007 ACTION (oDlg:End()) FILE "BMP\Sair.BMP" * ACTIVATE DIALOG odlg CENTER ON INIT (xFocus( oBrw )) * RETURN

Tmb nao deu certo.. minimiza tudo... DEFINE WINDOW oWndBmp FROM 2,2 TO 25,50; TITLE "BITMAP " + cBmpFile // MDICHILD @ 0, 0 IMAGE oBmp FILENAME cBmpFile SCROLL ADJUST OF oWndBmp ; on left click (AjustaZoom(oBmp,"A",oSay)) ; on right click (AjustaZoom(oBmp,"R",oSay)) // oWndBmp:SetControl( oBmp ) Qdo eu comento esses dois itens em vermelho, ai funciona... porem perco o ajuste da windows qdo executa AjustaZoom()