reneumg

Vou Dar meu pitaco, se é que entendi o Post. Se fazer assim: Exemplo: Select("CLIENTE") index on Upper(NOME) tag NOMECLI to ("C:\TABELA") vBusca:="ANTONIO C" CLIENTE->(DbSeek(vBusca,.t.)) Ou SET SOFTSEEK ON CLIENTE->(DbSeek(vBusca)) SET SOFTSEEK OFF Fim

Valeu Galera, Tai uma coisa simples que eu não sabia como fazer, procurei em todos os exemplos e não achei. Rochinha, como é que não pensei nisso antes, usava este :nAt pra saber o registro que estava mas não sabia como posicionar nele, apanhei pra kct rsrsrsrs. Valeu mesmo, Obrigado.

Eroni, obrigado por responder mas não achei ai a minha resposta. Não sei se vc entendeu, por exemplo quando eu jogo um DBF no listbox e uso a função DBF->(DBGoTo(Reg)) e dou um :Refresh() em seguida fica lá o registro que eu quero e os que estão proximo, quero fazer isso em uma array será que isso é possivel?

Boa tarde galera. Estou tentando posicionar o ponteiro em uma array em um listbox e não consigo, Deixa eu me explicar: Tenho um Listbox assim; REDEFINE LISTBOX oLbx ; FIELDS aItens[ oLbx:nAt, 1 ],; aItens[ oLbx:nAt, 2 ],; aItens[ oLbx:nAt, 3 ],; AllTrim(aItens[ oLbx:nAt, 4 ])+" - "+aItens[ oLbx:nAt, 5 ] ; ID 200 OF oDlg ; TITLE "CNPJ ou CPF", "Nome do Cliente", "Endereço", "Cidade" ; FIELDSIZES 120, 300, 280, 200 ; ON LEFT DBLCLICK (oReg:=oLbx:nAt, ICliente(oCursor, oCNPJCli, aItens, .f.), oLbx:SetArray( aItens ), oLbx:Refresh(),; oCNPJCli:=aItens[ oReg, 1 ] ) ; ON CHANGE ( oCNPJCli:=aItens[ oLbx:nAt, 1 ]) ; COLOR CLR_BLUE Quando eu Altero ou Incluo um cliente ou faço uma busca do cliente pelo cnpj não sei como posiciar o ponteiro no listbox. Ex: Tenho 1000 registo ai e tenho que ir no registro 500 como faço isso. Assim eu acho o Registro oReg:=AScan( aItens, { | a | oCNPJCli== a[ 1 ] } ) Mas como usar as funcões oLbx:SetArray( aItens ), oLbx:Refresh() Desde ja agradeço quem puder me ajudar

Herberson, Vê se não ta faltando nada ai, no meu sistema assim ta funcionando, essa Dll é meio embaçada. já sofri muito com ela, As vezes são essas propriedades InicioNossoNumero , FimNossoNumero , ProximoNossoNumero ou ArquivoRemessa:Sequencia, eu nunca vi esse erro ai não. Abs. ********************************************************************************************************************* oCBX:= TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licença de teste para banco 001 carteira 51 oCBX:ArquivoLicenca := "c:\CobreBemX\licenca\09999999000199-001-51.conf" If !File("c:\CobreBemX\licenca\09999999000199-001-51.conf") nMsgBox( "c:\CobreBemX\licenca\09999999000199-001-51.conf", "Arquivo de Licenca Não Localizado") RETURN( .t. ) EndIf // Monta dados da Agencia oCBX:CodigoAgencia := "9999" // Monta dados do Cod. Cedente oCBX:CodigoCedente := "99999999" // Monta dados da Sequencia do Arq. de Remessa oCBX:ArquivoRemessa:Sequencia:= "0001" // Monta dados do Sequencia Inicio nosso Número If oNossoNo= oCBX:InicioNossoNumero := "0001" EndIf // Monta dados da Sequencia Proximo nosso Número If oNossoNo= oCBX:ProximoNossoNumero := "0002" EndIf // Monta dados da Sequencia Fim nosso Número If oNossoNo= oCBX:FimNossoNumero := "0099" EndIf oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "c:\CobreBemX\Imagens\"+COD_BAN+".jpg" //BannerCBX.gif" oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "c:\CobreBemX\Imagens\" oCBX:PadroesBoleto:InstrucoesCaixa:=MensBOL oCBX:PadroesBoleto:Demonstrativo:="Mensagem do corpo do boleto se vc for impromir" Do While !Eof() // Inicia a Linha da Remessa oBoleto := oCBX:DocumentosCobranca:Add() oMeusDds:= oBoleto:MeusDados:Add() oMeusDds:Nome:="TipoDocumentoTradicional" //"TipoDocumentoTradicional" ou "TipoDocumentoEscritural" oMeusDds:Valor:="Sim" // Monta dados do sacado oBoleto:NomeSacado := X->NOME oBoleto:DataDocumento := Dtoc(X->DT_EMISS) oBoleto:DataVencimento := Dtoc(X->DT_VENC) oBoleto:NumeroDocumento:= X->NUM_DUPL oBoleto:ValorDocumento := X->VALOR oBoleto:BancoEmiteBoleto := .t. // .f. o cliente Imprime se, .t. o Banco Imprime oBoleto:DiasProtesto := "05" oBoleto:InstrucaoCobranca1 := "2" //Codigo para Baixa/Devolução oBoleto:InstrucaoCobranca2 := " " oBoleto:InstrucaoCobranca3 := "2" //1-Baixar/Devolver 2-Nao oBoleto:CalculaDacNossoNumero := iif(oNossoNo=,.t.,.f.) oBoleto:BancoGeraNossoNumero := iif(oNossoNo=[N],.t.,.f.) oBoleto:TipoDocumentoCobranca := X->TIPODOC oBoleto:ValorDesconto := X->VAL_DESC oBoleto:ValorjurosdiaAtraso := X->JRS_DIA If vMulta>0 oBoleto:ValorMultaAtraso := (X->VALOR*vMulta) //Multa EndIf oBoleto:CPFSacado := AllTrim(X->CPF_CNPJ) oBoleto:EnderecoSacado := AllTrim(X->ENDERECO) oBoleto:BairroSacado := AllTrim(X->BAIRRO) oBoleto:CidadeSacado := AllTrim(X->CIDADE) oBoleto:EstadoSacado := X->UF oBoleto:CepSacado := X->CEP If oNossoNo= oCBX:CalcularDadosBoletos() oDbf:NOSSO_NO := oBoleto:NossoNumero EndIf DBSkip() EndDo DBGoTop() //Gera o arquivo de remessa oCBX:ArquivoRemessa:Arquivo := oArqRem //"Ex Remessa.txt" oCBX:ArquivoRemessa:Diretorio:= "C:\Banco\" oCBX:ArquivoRemessa:Layout := CNAB400 // "CNAB400" ou "FEBRABAN240" oCBX:GravaArquivoRemessa() //Improme o Boleto oCBX:ImprimeBoletos() //oCBX:End()

oCBX:InicioNossoNumero := 0001 oBoleto := oCBX:DocumentosCobranca:Add() oBoleto:CalculaDacNossoNumero := .t. .... .... If oNossoNo= oCBX:CalcularDadosBoletos() oDBF:NOSSO_NO := oBoleto:NossoNumero EndIf Neste caso ele calcula o nosso numurero, mas vc tem que ou pegar o ultimo nosso numero gereado, ou gerar em outra carteira pra nao gerar duplicidade. Espero que ajude.

A Cobrebem se toronu uma fria, quem tem; comece a pensar em outra coisa, pois eles não estão mais fazendo correcões. o primeiro email que pedi correção em uma carteira do ITAU em 17/04, e o Segundo 30/04 e até hoje não me deram respostas. Resumindo quem já entrou, procure outra ferramento, quem não entrou, NÃO ENTRE. 1º Email--> Suporte Técnico Cobre Bem Adicionar aos contatos 17/04/2014 Para: Reneu Mendes Garcia Prezado(a) Reneu Reneu Mendes Garcia, Obrigado por entrar em contato conosco. Foi aberto um chamado junto à nossa equipe de desenvolvimento. Assim que esse estiver concluído, retornaremos o contato através deste e-mail. Por favor, aguarde nosso retorno. Colocamo-nos a sua disposição para esclarecer eventuais dúvidas. Atenciosamente, Marcelo Andrade | Cobre Bem Tecnologia www.cobrebem.com.br RJ: +55 (21) 2288 5990 SP: +55 (11) 5041 2228 Suporte Técnico Cobre Bem Adicionar aos contatos 30/04/2014 Para: Reneu Mendes Garcia ******************************************************************************************* 2º Email----> Prezado(a) Reneu Reneu Mendes Garcia, Obrigado por entrar em contato conosco. Ainda não obtivemos um parecer quanto a prazo para conclusão deste chamado. Esse permanece em desenvolvimento e assim que estiver concluso, retornaremos o contato através deste mesmo histórico. Colocamo-nos a sua disposição para esclarecer eventuais dúvidas. Atenciosamente, Marcelo Andrade | Cobre Bem Tecnologia www.cobrebem.com.br RJ: +55 (21) 2288 5990 SP: +55 (11) 5041 2228

Valeu Amigo João, Assim também abriu.. Com a dll acho que vai funcionar melhor. CNN:Open("DRIVER=Firebird/InterBase® driver;"+; "Password=masterkey;"+; "User ID=sysdba;"+; "Database=D:\FireBird\promaspe.fdb;"+; "dbclient_library=fbclient.dll") Abraço

Ah Pessoal Assim Abriu Leu e Gravou, Será que é esse o Jeito Certo? public CNN Try CNN:=CreateObject("ADODB.Connection") CNN:Open("driver=Firebird/InterBase® driver;Server=d em Computador;Database="+D:\FireBird\promaspe.fdb+";Uid="+alltrim(upper(m_usuario))+";Pwd="+alltrim(m_senha)+";") Catch e Error Connection CNN QUIT End

Olá Pessoal. Alguém sabe como usar o comando para abir um BD Firebird com ADODB ; Achei os comandos abaixo em xharbour mas da o erro.: Erro Nativo: -904 Descrição..: [ODBC Firebird Driver] unavailable database public CNN Try CNN:=CreateObject("ADODB.Connection") CNN:Open("DRIVER=Firebird/InterBase® driver;UID=SYSDBA;PWD=masterkey;DBNAME=D:\FireBird\promaspe.fdb;CHARSET=WIN1252;DIALECT=3;CLIENT=fbclient.dll") Catch e Error Connection CNN ? "Erro Connection" Quit End Ah tentei também miudar a dll de fbCliente.dll p/ fbembed.dll mas não deu certo Se alguém souber e puder me ajudar eu agradeço

Esse seu problema ta muito estranho já que vc disse que está funcionando em outro lugar, tente sair do campo com TAB ou de outra maneira sem usar o enter e vê se da o mesmo erro, as vezes o erro esta no próximo campo ou em outro lugar num when ou valid, sei lá. é muito dificil saber o que ta errado no sistema.

Bom dia Primeiro ve se não tem nada de diferente da tela que vc ta fazendo com as anteriores do workshop, e tente o exemplo abaixo. No workshop na Dialog q vc fez clique botão direito e entre em Edit as Text... vc vai ver se os fontes são iguais. ******************************************************************************************************** Local aUF, oUF, oCmb aUF := { "AC","AL","AM","AP","BA","CE","DF","ES","GO","MA","MG","MT","MS","PA",; "PB","PE","PI","PR","RJ","RN","RO","RR","RS","SC","SE","SP","TO" } oUF:="SP" REDEFINE COMBOBOX oCmb Var oUF ITEMS aUF ID 109 OF oDlg02 UPDATE

Boa Tarde Oscar De uma olhada na Classe, talvez vc tem essa resposta lá. C:\FWH\SOURCE\CLASSES\printer.prg oPrn := PrintBegin( oTitulo, ; // Titulo .F., ; // User lPreview,; // Preview nil, ; // Model lModal, .F. ) // lselect Abraços

Valeu Yury deu certo sua dica *Mudei este //PRINTER oPrn FROM USER preview NAME "Ficha Técnica do Produto" MODAL // Escolhe a Impressora *Para Este oPrn:=PrintBegin("Ficha Técnica do Produto", .T., .T., NIL, .T.) Ah não tinha visto que tinha ficado daquele jeito, tá corrigido. Obrigado.

Bom dia pessoal. Estou tentando fazer uma impressao usando o Fw 13.02 BCC5.82 e esta acontecento o seguinte. Depois da impressao ao inves de parar no preview da impressao ele volta para a Dialog que pedi a impressao e a impressao fica embaixo desta dialog. Como resolver isso? Desde ja Agradeco quem puder me ajudar. Fontes Abaixo -; //------------------------------------------------------------// * FUNCION : F_RelFichaProd() -> NIL * * * * FUNCTION F_RelFichaProd() Local oDlg, oLst, oDbfCd, oGet[6], lNv:=.f. Local aTipo:={.t.,.f.,.f.,.f.} If !Acesso_Modulo("R") Return .f. EndIf vBusca:="" Select("PRODUTO") DATABASE oDbfCd oDbfCd:Load() oDbfCd:bEoF := {|| NIL} oDbfCd:bBoF := {|| NIL} F_OrdScope( "MATPROD", PRODUTO->COD_PRO) MATPROD->(DbSetRelation("MATERIAL",{||MATPROD->COD_MAT},"MATPROD->COD_MAT")) PRODUTO->(DbSetRelation("GRUPOPRO",{||PRODUTO->GRUP_PRO},"PRODUTO->GRUP_PRO")) DEFINE DIALOG oDlg RESOURCE "Dlg_FichaTecPro" REDEFINE GET oGet[1] VAR oDbfCD:COD_PRO ID 101 OF oDlg UPDATE ; PICTURE "@R 99/99.999" WHEN .f. REDEFINE GET oGet[2] VAR oDbfCD:NOME ID 102 OF oDlg UPDATE ; PICTURE "@!" WHEN .f. REDEFINE CHECKBOX oGet[3] var aTipo[1] ID 103 OF oDlg ; ON CLICK ( aTipo:={.t.,.f.,.f.,.f.}, F_Refresh(oGet, 3, 6)) REDEFINE CHECKBOX oGet[4] var aTipo[2] ID 104 OF oDlg ; ON CLICK ( aTipo:={.f.,.t.,.f.,.f.}, F_Refresh(oGet, 3, 6)) REDEFINE CHECKBOX oGet[5] var aTipo[3] ID 105 OF oDlg ; ON CLICK ( aTipo:={.f.,.f.,.t.,.f.}, F_Refresh(oGet, 3, 6)) REDEFINE CHECKBOX oGet[6] var aTipo[4] ID 106 OF oDlg ; ON CLICK ( aTipo:={.f.,.f.,.f.,.t.}, F_Refresh(oGet, 3, 6)) REDEFINE LISTBOX oLbx1 ; FIELDS PRODUTO->COD_PRO,; PRODUTO->NOME,; PRODUTO->UNIDADE ; ID 200 OF oDlg ; FIELDSIZES 90, 330, 45 ; TITLE "Codigo", "Descrição", "Unid." ; ON LEFT DBLCLICK (BscFocus(oGet[3]) ) ; ON CHANGE (oDbfCD:Load(), F_OrdScope( "MATPROD", oDbfCD:COD_PRO), F_Refresh(oGet, 1, 2)) ; COLOR CLR_BLUE oLbx1:bGoTop:={|| 1 } oLbx1:cAlias:= "PRODUTO" oLbx1:bKeyChar = { | nKey | LstBusca( oLbx1, nKey ) } oLbx1:aActions:= {{|| PRODUTO->(dbSetOrder(1)),oLbx1:Refresh() },; {|| PRODUTO->(dbSetOrder(2)),oLbx1:Refresh() }} oGet[1]:lDisColors := .f. oGet[2]:lDisColors := .f. REDEFINE BTNBMP ID 10 OF oDlg RESOURCE "Print32" ; TOOLTIP "Imprimir o Produto" ; NOBORDER ; ACTION (ImprFichaProduto("MATPROD", aTipo)) REDEFINE BTNBMP ID 20 OF oDlg RESOURCE "Cancel" ; TOOLTIP "Sair do Modulo" ; NOBORDER ACTION (oDlg:End()) ACTIVATE DIALOG oDlg Center RETURN ( NIL ) *************************************************************************************** Function ImprFichaProduto(oAuxil, aT_Prc) Local oFnt[4], oPn[3], oLi, oLb , oPag:=1, oTot:=0 Local oT_Incid:=0, oMarg:=0, oMark:=0, oPreco Public oPrn oLi:=0.6 PRINTER oPrn FROM USER preview NAME "Ficha Técnica do Produto" // Escolhe a Impressora // oPrn:SetLandScape() // Paisagem oPrn:SetPortrait() //Retrato oPrn:SetPage(9) //A4 oPrn:SetSize(2150,2790) If Empty( oPrn:hDC ) msgalert("Impressora não esta Instalada!!!") Return nil // Printer was not installed or ready Endif Define FONT oFnt[1] NAME "Ms Sans Serif" SIZE 0, -6 OF oPrn Define FONT oFnt[2] NAME "Ms Sans Serif" SIZE 0, -8 OF oPrn BOLD Define FONT oFnt[3] NAME "Ms Sans Serif" SIZE 0, -10 OF oPrn ITALIC Define FONT oFnt[4] NAME "Times New Roman" SIZE 0, -14 OF oPrn Define PEN oPn[1] width 0.5 of oPrn Define PEN oPn[2] width 1 of oPrn Define PEN oPn[3] width 3 of oPrn PAGE oLi+=0.4 SayTxt( oLi, 5.30 , "FICHA DE COMPOSIÇÃO DO PRODUTO", oFnt[4], oprn) SayBox( oLi, 0.2 , oLi+.6, 20.0 , oPrn , oPn[1]) oLi+=0.6 SayTxt( oLi, 0.40 , "Código", oFnt[1], oprn) SayTxt( oLi, 3.10 , "Descrição do Produto", oFnt[1], oprn) SayTxt( oLi,12.60 , "Unid.", oFnt[1], oprn) SayTxt( oLi,14.40 , "Grupo de Venda", oFnt[1], oprn) SayTxt( oLi+.2, 0.40 , PRODUTO->COD_PRO, oFnt[3], oprn) SayTxt( oLi+.2, 3.10 , PRODUTO->NOME , oFnt[3], oprn) SayTxt( oLi+.2,12.60 , PRODUTO->UNIDADE, oFnt[3], oprn) SayTxt( oLi+.2,14.40 , GRUPOPRO->GRUP_PRO+"-"+GRUPOPRO->DESCR, oFnt[3], oprn) SayBox( oLi, 0.2 , oLi+.6, 03.0 , oPrn , oPn[1]) SayBox( oLi, 3.0 , oLi+.6, 12.5 , oPrn , oPn[1]) SayBox( oLi,12.5 , oLi+.6, 14.3 , oPrn , oPn[1]) SayBox( oLi,14.3 , oLi+.6, 20.0 , oPrn , oPn[1]) oLi+=0.6 (oAuxil)->(DbGotop()) Do While !(oAuxil)->(Eof()) oPreco:=iif(aT_Prc[2], MATERIAL->ULT_PRECO,; iif(aT_Prc[3], MATERIAL->MED_PRECO,; iif(aT_Prc[4], MATERIAL->MOR_PRECO, MATERIAL->COT_PRECO))) SayTxt( oLi, 0.30 , "Código", oFnt[1], oprn) SayTxt( oLi, 1.80 , "Descrição do Material", oFnt[1], oprn) SayTxt( oLi, 9.30 , "Quantidade", oFnt[1], oprn) SayTxt( oLi,10.50 , "Peso Espec.", oFnt[1], oprn) SayTxt( oLi,12.10 , "ICMS", oFnt[1], oprn) SayTxt( oLi,13.35 , "IPI", oFnt[1], oprn) SayTxt( oLi,14.40 , "Qtde Total", oFnt[1], oprn) SayTxt( oLi,16.60 , "Val. Unitário", oFnt[1], oprn) SayTxt( oLi,18.60 , "Valor Total", oFnt[1], oprn) SayTxt( oLi+.2, 0.40 , Transform(MATPROD->COD_MAT, [@R 99/99.999] ), oFnt[2], oprn) SayTxt( oLi+.2, 1.90 , MATERIAL->NOME , oFnt[2], oprn) SayTxt( oLi+.2, 9.20 , Transform(MATPROD->QTD_TOT, [@E 99,999.999] ), oFnt[2], oprn) SayTxt( oLi+.2,10.40 , Transform(MATERIAL->PESO_ESP, [@E 9,999.9999] ) , oFnt[2], oprn) SayTxt( oLi+.2,12.00 , Transform(MATERIAL->ICMS, [@E 99.99] )+"%" , oFnt[2], oprn) SayTxt( oLi+.2,13.10 , Transform(MATERIAL->IPI, [@E 999.99] )+"%" , oFnt[2], oprn) SayTxt( oLi+.2,14.30 , Transform(F_QtdeTotal(), [@E 9,999,999.999] )+" "+MATPROD->UNIDADE, oFnt[2], oprn) SayTxt( oLi+.2,16.40 , Transform(oPreco, [@E 9,999,999.999] ), oFnt[2], oprn) SayTxt( oLi+.2,18.10 , Transform(F_CstTotal(F_QtdeTotal(), aT_Prc), [@E 9,999,999.99] ), oFnt[2], oprn) SayBox( oLi, 0.2 , oLi+.5, 01.7 , oPrn , oPn[1]) SayBox( oLi, 1.7 , oLi+.5, 09.2 , oPrn , oPn[1]) SayBox( oLi,09.2 , oLi+.5, 10.4 , oPrn , oPn[1]) SayBox( oLi,10.4 , oLi+.5, 11.9 , oPrn , oPn[1]) SayBox( oLi,11.9 , oLi+.5, 13.1 , oPrn , oPn[1]) SayBox( oLi,13.1 , oLi+.5, 14.3 , oPrn , oPn[1]) SayBox( oLi,14.3 , oLi+.5, 16.4 , oPrn , oPn[1]) SayBox( oLi,16.4 , oLi+.5, 18.0 , oPrn , oPn[1]) SayBox( oLi,18.0 , oLi+.5, 20.0 , oPrn , oPn[1]) oLi+=0.5 oTot+=F_CstTotal(F_QtdeTotal(), aT_Prc) // oLi+=1.2 If oLi >= 25 ENDPAGE oLi:=0.6 PAGE EndIf (oAuxil)->(DBSkip()) EndDo Tot_Encargos(oTot, @oT_Incid, @oMarg, @oMark) SayTxt( oLi, 0.30 , "Incidências", oFnt[1], oprn) SayTxt( oLi, 2.10 , "Marg. Lucro", oFnt[1], oprn) SayTxt( oLi, 4.10 , "Mark Up", oFnt[1], oprn) SayTxt( oLi, 6.10 , "Preço Venda", oFnt[1], oprn) SayTxt( oLi,18.10 , "Custo Total", oFnt[1], oprn) SayTxt( oLi+.2, 0.3, Transform(oT_Incid, [@E 999.99] )+"%", oFnt[3], oprn) SayTxt( oLi+.2, 2.1, Transform(oMarg, [@E 999.99] )+"%", oFnt[3], oprn) SayTxt( oLi+.2, 4.1, Transform(oMark, [@E 99.99999] ), oFnt[3], oprn) SayTxt( oLi+.2, 6.1, Transform(oTot*oMark, [@E 99,999,999.99] ), oFnt[3], oprn) SayTxt( oLi+.2,18.1, Transform(oTot, [@E 9,999,999.99] ), oFnt[3], oprn) SayBox( oLi, 0.2 , oLi+.6, 2.0 , oPrn , oPn[1]) SayBox( oLi, 2.0 , oLi+.6, 4.0 , oPrn , oPn[1]) SayBox( oLi, 4.0 , oLi+.6, 6.0 , oPrn , oPn[1]) SayBox( oLi, 6.0 , oLi+.6, 8.5 , oPrn , oPn[1]) SayBox( oLi,18.0 , oLi+.6, 20.0 , oPrn , oPn[1]) oLi+=0.5 ENDPAGE ENDPRINT CursorArrow() oFnt[1]:End() // Destroy the font object oFnt[2]:End() // Destroy the font object oFnt[3]:End() // Destroy the font object oFnt[4]:End() // Destroy the font object oPn[1]:End() // Destroy the font object oPn[2]:End() // Destroy the font object oPn[3]:End() // Destroy the font object Return nil

Obrigado, João(s) kkkkk, João (Kapiaba), "People", é uma BITMAP que ta na RC., isso tá normal aparece a figura no botão sem problemas, João Bosco obrigado, tava assim CONTROL "Tbtnbmp", 104, "Tbtnbmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 62, 57, 66, 24 E editei a Dialog e fiz assim, deu certo. CONTROL "", 104, "Tbtnbmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 62, 57, 66, 24 Abraços Reneu M. Garcia

Boa tarde pessoal, Estou testando essa classe no Fw13 e fica aparecendo no botão TBtnBmp como faço pra tirar isso de lá, no Fw 2.7 não aparece mas no Fw13 aparece.. Estou fazendo assim. REDEFINE BTNBMP ID 104 OF oDlg RESOURCE "People" ; TOOLTIP "Teste Pessoas" ; NOBORDER ACTION ( oDlg:End()) Estou usando FW13 e BCC582 Montando a RC no WorkShop Se alguem puder ajudar, Desde já agradeço;

O JOÃO, OBRIGADO POR RESPONDER, Eu uso o xharbour, e achei esse exemplo, mas nao consegui compilar. e parece ser muito legal. parece que no proprio sistema vou conseguir montar o banco de dados e as tabelas não precisanco usar por exemplo o IBOConsole, onde eu montei um banco e as tabelas. Algumas dessa funcoes achei em SQL.lib mas falta algumas. Como por exemplo. FBStartTransaction(db) FBRollback(trans)

Ola pessoal boa tarde. Estou tentando estudar um banco de dados e vi que o firebird não é tão dificil de instalar e entender Buscando exemplos na net achei o exemplo abaixo mas não sei qual as lib que compila junto com ele, Alguem usa ou sabe me dizer qual as libs que contém as funcões do exemplo abaixo? As Funcoes: FBCreateDB('test.gdb','sysdba', 'masterkey', 1024, 'ASCII', nDialect ) FBConnect("127.0.0.1:d:\firebird\tests\test.gdb", "sysdba", "masterkey") FBExecute( db, 'insert into customer(customer) values ("test 1")', dialect, trans) FBClose(db) FBStartTransaction(db) FBRollback(trans) FBQuery(db, 'create table teste (code smallint)', dialect, trans) FBCommit(trans) FBGetData(qry,x) FBFree(qry) FBClose(db) Estou usando Fivewm 13.02 - BCC 5.82 //****** //************************************************* // Exemplo usando BD Firebird #include "common.ch" Function Main() dialect := 1 if File('test.gdb') FErase('test.gdb') end ? FBCreateDB('test.gdb','sysdba', 'masterkey', 1024, 'ASCII', nDialect ) /* Connect rdbms */ db := FBConnect("127.0.0.1:d:\firebird\tests\test.gdb", "sysdba", "masterkey") if ISNUMBER(db) ? 'Error' quit end ? FBExecute(db, 'sldjfs;ldjs;djf', dialect) ? FBClose(db) trans := FBStartTransaction(db) qry := FBQuery(db, 'create table teste (code smallint)', dialect, trans) FBCommit(trans) ? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 1")', dialect, trans) ? "Status no Rollback: ", FBRollback(trans) trans := FBStartTransaction(db) ? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 2")', dialect, trans ) ? "Status commit: ", FBCommit(trans) ? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 3")', dialect ) // FIX WINDOWS GPF BELOW qry := FBQuery(db, "SELECT * FROM sales", dialect) num_cols := qry[4] columns := qry[6] For x := 1 to num_cols ? x, "> " For y := 1 to len(columns[x]) ?? columns[x,y], ' ' Next Next ? '---' do while (fetch_stat := FBFetch(qry)) == 0 ? fetch_stat for x := 1 to num_cols ?? FBGetData(qry,x), ', ' next end ? 'Fetch code:', fetch_stat ? "Status Free sql: ", FBFree(qry) /* Close connection with rdbms */ ? "Status Fechar Database: ", FBClose(db) Return Nil

Marcio boa noite, eu faço assim e compila certinho, mas eu não uso o xDev, Vê se esse exemplo te ajuda. * Gera um Arquivo De Soma do Produto DbCreate( cBase+oArq, { { "NOSSONO", "C", 20, 0 },; { "NOME_CL", "C", 40, 0 },; { "NO_CONTA","C", 12, 0 },; { "CD_OCOR", "C", 03, 0 },; { "DT_OCOR", "C", 10, 0 },; { "DT_CRED", "C", 10, 0 },; { "VAL_PGO", "N", 12, 2 },; { "VAL_IOF", "N", 10, 2 },; { "VAL_JRS", "N", 10, 2 },; { "VAL_TAX", "N", 10, 2 },; { "VAL_CRED","N", 12, 2 },; { "VAL_TITU","N", 12, 2 },; { "NUM_DUPL","C", 15, 0 },; { "CARTEIRA","C", 05, 0 },; { "CONFIRMA","C", 25, 0 },; { "REGIS", "N", 8, 0 } } ) * Abre o arquivo de dados Auxiliar em modo exclusivo If NET_USE(oArq, "AXRETORNO", cBase, .t., 1) Select("AXRETORNO") EndIf // Necessário efetuar download da lib TOleAuto em http://www.cobrebem.com/downloads/cbx/hbole.zip oCBX:= TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licença de teste para banco 001 carteira 11 oCGC := "49707321000142" oCd_Ban:="001" oCart :="11" oCBX:ArquivoLicenca := "c:\CobreBemX\licenca\"+oCGC+"-"+oCd_Ban+"-"+AllTrim(oCart)+".conf" If !File("c:\CobreBemX\licenca\"+oCGC+"-"+oCd_Ban+"-"+AllTrim(oCart)+".conf") nMsgBox( "c:\CobreBemX\licenca\"+oCGC+"-"+oCd_Ban+"-"+AllTrim(oCart)+".conf", "Arquivo de Licenca Não Localizado") RETURN( .f. ) EndIf oCBX:CodigoAgencia := "0123-A" oCBX:NumeroContaCorrente := "00996677-A" oCBX:CodigoCedente := "000567" oCBX:OutroDadoConfiguracao1:="000" oCBX:InicioNossoNumero := "00001" oCBX:ProximoNossoNumero:= "00001" oCBX:FimNossoNumero := "99999" oCBX:ArquivoRetorno:Arquivo := "RetornoBB.Ret" oCBX:ArquivoRetorno:Diretorio:= "c:\CobreBemX\" oCBX:ArquivoRetorno:Layout := "CNAB400" // "CNAB400" ou "FEBRABAN240" oCBX:CarregaArquivosRetorno() For oN = 0 to oCBX:OcorrenciasCobranca:Count() -1 AXRETORNO->(DbAppend()) AXRETORNO->NO_CONTA:=CONTAS->NO_CONTA AXRETORNO->NOSSONO :=oCBX:OcorrenciasCobranca[oN]:NossoNumero AXRETORNO->CD_OCOR :=oCBX:OcorrenciasCobranca[oN]:CodigoOcorrencia AXRETORNO->DT_OCOR :=oCBX:OcorrenciasCobranca[oN]:DataOcorrencia AXRETORNO->DT_CRED :=oCBX:OcorrenciasCobranca[oN]:DataCredito AXRETORNO->VAL_PGO :=oCBX:OcorrenciasCobranca[oN]:ValorPago AXRETORNO->VAL_IOF :=oCBX:OcorrenciasCobranca[oN]:ValorIOF AXRETORNO->VAL_TAX :=oCBX:OcorrenciasCobranca[oN]:ValorTaxaCobranca AXRETORNO->VAL_JRS :=oCBX:OcorrenciasCobranca[oN]:ValorJurosPago AXRETORNO->VAL_CRED:=oCBX:OcorrenciasCobranca[oN]:ValorCredito AXRETORNO->NUM_DUPL:=oCBX:OcorrenciasCobranca[oN]:NumeroDocumento AXRETORNO->CARTEIRA:=oCBX:OcorrenciasCobranca[oN]:Carteira For nI = 0 to oCBX:OcorrenciasCobranca[oN]:MotivosOcorrencia:Count() -1 oBoleto:=oCBX:OcorrenciasCobranca[oN]:MotivosOcorrencia[nI]:Codigo oBoleto+=[-] oBoleto+=oCBX:OcorrenciasCobranca[oN]:MotivosOcorrencia[nI]:Descricao Next AXRETORNO->CONFIRMA:=oBoleto oRet+=(AXRETORNO->VAL_PGO+AXRETORNO->VAL_CRED) // nMsgBox( "Retorono"+oNossoNo+oBoleto, "Variavel de Retorno") Next Select("AXRETORNO") Reneu M. Garcia - Catanduva - SP

Rone o terra mudou a porta de 25 p/ 587 os outros não sei Abs citação:Aproveitando o topico e pedindo SOS para os amigos, ja que não entende esta parte de porta. No meu fonte esta assim: Private aServs := { {"@hotmail.com", "smtp.live.com", 25, .t. },; {"@yahoo.com.br", "smtp.mail.yahoo.com.br", 25, .f. },; {"@gmail.com", "smtp.gmail.com", 465, .t. },; {"@uol.com.br", "smtps.uol.com.br", 465, .f. },; {"@bol.com.br", "smtp.bol.com.br", 25, .f. },; {"@terra.com.br", "smtp.terra.com.br", 25, .f. },; {"@ig.com.br", "smtp.ig.com.br", 465, .t. },; {"@ibest.com.br", "smtp.ibest.com.br", 465, .t. },; {"@itelefonica.com.br","smtp.itelefonica.com.br", 25, .f. },; {"@pop.com.br", "smpt.pop.com.br", 25, .f. } } id=code>id=code>SE ALGUEM PUDER AJUDAR, COMO É QUE FICA AS ALTERAÇÕES PARA ESTES SERVIDORES E SE TIVER MAIS ALGUM PARA ACRESCENTAR Jà MEU MUITO OBGDAO... id=quote>id=quote>Reneu M. Garcia - Catanduva - SP

Dorneles, Obrigado pela dica mas é isso que vou fazer já pedi pra eles criar uma conta pelo terra, ou criar uma conta no gmail e falar pra eles parar com o hotmail, já perdi um tempão com isso e não consigo resolver. Valeu Abraços... citação:Olá Reneu, Eu estava com o mesmo problema, resolvi da seguinte forma, crie uma conta no gmail, só para envio e resolveu. com o gmail até nos cliente que não enviava com o hotmail, com o gmail envia normal. cServ := "smtp.gmail.com" nPort := 465 lAut := .t. lSSL := .t. FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio id=quote>id=quote>Reneu M. Garcia - Catanduva - SP

Aparentemente não tem nada bloqueado no email. e pra tá bloqueado teria que ta as 3 contas que tentei mandar, mesmo pq pelo site eu mando e recebo email normalmente. citação: citação:PODE SER que seja bloqueio da conta por parte do hotmail... se for mesmo isto, logo no inicio(ao entrar na conta) mostra uma msg vc segue os passos e desbloqueia. jah aconteceu aqui id=quote>id=quote>Isto mesmo, basta criar outra conta, ou desbloquear via celular. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Reneu M. Garcia - Catanduva - SP

João não é problema de senha errada pois um cliente me disse que sistema tinha parado de mandar email pelo hotmail eu tentei com o email dele não enviou, tentei com o do funcionario dele não enviou, testei com meu email não enviou também todos hotmail, o mesmo sistema manda pelo terra sem problemas so mudei a porta do terra de 25 p/ 587, então acho que mudou mesmo alguma coisa no hotmail só não sei o que é. citação:Envie email e a senha no meu email q eu testo aqui. joao@pleno.com.br depois vc. troca a senha. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Reneu M. Garcia - Catanduva - SP

Boa tarde João. não deu certo. já tentei: {"@hotmail.com", "smtp.live.com", 25, .t. } {"@hotmail.com", "smtp.live.com", 465, .t. } {"@hotmail.com", "smtp.live.com", 587, .t. } {"@hotmail.com", "smtp.live.com", 995, .t. } {"@hotmail.com", "smtps.live.com", 25, .t. } {"@hotmail.com", "smtps.live.com", 25, .f. } {"@hotmail.com", "smtps.live.com", 587, .t. } {"@hotmail.com", "smtps.live.com", 587, .f. } Nenhuma dessa opções deu certo. se alguem tiver mais alguma diga.. citação:{"@hotmail.com", "smtp.live.com", 25, .T. },; Ou {"@hotmail.com", "smtps.live.com", 25, .T. },; Veja que ele é: https://login.live.com João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 21/12/2012 15:51:42 Editado por - kapiaba on 21/12/2012 15:57:27 id=quote>id=quote>Reneu M. Garcia - Catanduva - SP