Wellington Vieira

Bom dia, Alguem já testou este visual fivewin...?? visual http://visualfivewin.blogspot.com/ download http://rapidshare.com/files/371352100/jkide93x.zip wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Obrigado.. Cordialmente, wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

certo,, onde posso conseguir o timage.prg... em dicas,, não consigo.. Cordialmente,, wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Boa Tarde,, Alguem poderia me dizer como inserir IMAGENS (JPEG), em um um REPORT,, no PRINTER sei como,, mas não funciona no REPORT. Obs. Não quero utilizar BMP e sim JPEG.. Tenho que usar Timage() ?? Agradeço... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Boa Tarde,, Alguem poderia me dizer como inserir IMAGENS (JPEG), em um um REPORT,, no PRINTER sei como,, mas não funciona no REPORT. Obs. Não quero utilizar BMP e sim JPEG.. Tenho que usar Timage() ?? Agradeço... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

ok, Vitor eu não havia pensado nisso.. OBRIGADO.. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Boa Noite, Uma dúvida em relação ao arquivo no formato de TEXTO (.txt), que é importado para o aplicativo gratuito da SEFAZ de emissão de N.F.Eletrônica. Na segunda linha, nos campos atributos da NF-e: A|Versão do layout|Nf-e| No segundo campo Versão do layout, estou informando 1.10, qualquer outra versão, na importação pelo aplicativo da SEFAZ, resulta em um erro do tipo versão do layout não confere. Alguem saberia me dizer o porque isso acontece.. Entrei em contacto com a RECEITA EM BH, e me disseram para entrar em contacto com o desenvolvedor do software que seria na RECEITA SP, assim o fiz,, mas não obtive resposta conversando com o pessoal técnico da mesma, ou melhor me deram a resposta que não sabiam o porque isso acontecia. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Boa Noite, Uma dúvida em relação ao arquivo no formato de TEXTO (.txt), que é importado para o aplicativo gratuito da SEFAZ de emissão de N.F.Eletrônica. Na segunda linha, nos campos atributos da NF-e: A|Versão do layout|Nf-e| No segundo campo Versão do layout, estou informando 1.10, qualquer outra versão, na importação pelo aplicativo da SEFAZ, resulta em um erro do tipo versão do layout não confere. Alguem saberia me dizer o porque isso acontece.. Entrei em contacto com a RECEITA EM BH, e me disseram para entrar em contacto com o desenvolvedor do software que seria na RECEITA SP, assim o fiz,, mas não obtive resposta conversando com o pessoal técnico da mesma, ou melhor me deram a resposta que não sabiam o porque isso acontecia. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Bom dia, Bom minha dúvida é seguinte: Preciso fazer uma matriz (4Xinfinito forçada) Quatro ao infinito forçada , sem limites na lateralidade e na profundidade, como mostro abaixo Empresa | -------------------------------------------------------------------------- | | | | Pedro Joao Marcos claudia | | | | ------------------------------- ------------------------------ --------------------- ---------------------------- | | | | | | | | | | | | | | | | paulo1 paulo2 paulo3 paulo4 paulo5 paulo6 paulo7 paulo8 Bil1 Bil2 Bil3 Bil4 Pam1 Pam2 Pam3 Pam4 id=code>id=code>Começa assim,, a empresa gera 04 ramificações,, cada um desses quatro gera mais quatro ramificações,, e cada um desses 16 gera mais quatro ramificações e assim por diante,, sendo que a rede empresa e a principal e cada um gera uma rede própria. Como fazer isso, e depois como saber por exemplo,, que a empresa tem 02(dois) niveis abaixo dela,, mas como saber quantos niveis tem o Pedro, Joao, Marcos etc,, abaixo dele,, e também,, como saber quantos níveis o paulo1, paulo2 tem abaixo dele.. e assim por diante.. Obs. A entrada na base de dados,, começa a partir da empresa.. ou seja,, o 1º cadastro é a empresa,, depois o Pedro, Joao,Marcos Claudia, paulo1,paulo2,paulo3 etc.. e assim por diante. // base de dados para o POSTGRSQL....... CREATE TABLE contratos ( cont serial NOT NULL, cemp smallint, // empresa.. ccod integer, // codigo do cliente cncd integer, // numero de controle do documento cdte date, // data da emissão.. cpre boolean, // se foi presente.. cind integer, // codigo do cliente que indicou.. catv boolean, // ativo cpct integer, // pertence a qual contrato.. cbol boolean, // marcado.. CONSTRAINT contratos_pkey PRIMARY KEY (cont) ) ; Dese já agradeço qualquer contribuição com a minha dúvida wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Bom dia, Bom minha dúvida é seguinte: Preciso fazer uma matriz (4Xinfinito forçada) Quatro ao infinito forçada , sem limites na lateralidade e na profundidade, como mostro abaixo Empresa | -------------------------------------------------------------------------- | | | | Pedro Joao Marcos claudia | | | | ------------------------------- ------------------------------ --------------------- ---------------------------- | | | | | | | | | | | | | | | | paulo1 paulo2 paulo3 paulo4 paulo5 paulo6 paulo7 paulo8 Bil1 Bil2 Bil3 Bil4 Pam1 Pam2 Pam3 Pam4 id=code>id=code>Começa assim,, a empresa gera 04 ramificações,, cada um desses quatro gera mais quatro ramificações,, e cada um desses 16 gera mais quatro ramificações e assim por diante,, sendo que a rede empresa e a principal e cada um gera uma rede própria. Como fazer isso, e depois como saber por exemplo,, que a empresa tem 02(dois) niveis abaixo dela,, mas como saber quantos niveis tem o Pedro, Joao, Marcos etc,, abaixo dele,, e também,, como saber quantos níveis o paulo1, paulo2 tem abaixo dele.. e assim por diante.. Obs. A entrada na base de dados,, começa a partir da empresa.. ou seja,, o 1º cadastro é a empresa,, depois o Pedro, Joao,Marcos Claudia, paulo1,paulo2,paulo3 etc.. e assim por diante. // base de dados para o POSTGRSQL....... CREATE TABLE contratos ( cont serial NOT NULL, cemp smallint, // empresa.. ccod integer, // codigo do cliente cncd integer, // numero de controle do documento cdte date, // data da emissão.. cpre boolean, // se foi presente.. cind integer, // codigo do cliente que indicou.. catv boolean, // ativo cpct integer, // pertence a qual contrato.. cbol boolean, // marcado.. CONSTRAINT contratos_pkey PRIMARY KEY (cont) ) ; Dese já agradeço qualquer contribuição com a minha dúvida wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Pesquisa de busca incremental com instrução SQL, no caso abaixo no POSTGRESQL.. mas a instrução é a mesma... // tabela de fornecedores.. //if oServer:TableExists("r10000000") // else // cQuery := 'CREATE TABLE r10000000(' // cQuery += 'acdg serial primary key,' && codigo do fornecedor // cQuery += 'apfj character(1),' && pessoa fisica ou juridica // cQuery += 'andn character(14),' && numero do documento cpf ou cnpj // cQuery += 'adct Date,' && data do cadastro // cQuery += 'apem Numeric(1,0),' && porte da empresa // cQuery += 'anrs Varchar(50),' && nome ou razao social // cQuery += 'anft Varchar(20),' && nome fantasia // cQuery += 'atdl Numeric(1,0),' // cQuery += 'andl character(18),' && inscricao, rg etc... // cQuery += 'acep Varchar(8),' && cep // cQuery += 'aend Varchar(50),' && endere‡o // cQuery += 'abai Varchar(30),' && bairro // cQuery += 'acid Varchar(30),' && cidade // cQuery += 'aest character(2),' && estado // cQuery += 'atl1 character(10),' // cQuery += 'atl2 character(10),' // cQuery += 'atfx character(10),' // cQuery += 'ates character(12),' // cQuery += 'aeml Varchar(50),' && e-mail. // cQuery += 'apct Varchar(30),' && pessoa contato // cQuery += 'awww Varchar(50),' && site // cQuery += 'arps Varchar(50),' && representante // cQuery += 'aemr Varchar(50),' && e-mail do representante. // cQuery += 'atlr character(10),' && telefone do representante // cQuery += 'arma Varchar(30),' && ramo de atividade // cQuery += 'actc Varchar(30),' && natureza dos gastos. // cQuery += 'aobs text)' && observacoes. // oQuery := oServer:Query(cQuery) // if oQuery:neterr() // msgstop("Nao foi possível criar arquivo de fornecedores. O sistema sera finalizado.","ATENÇÃO") // //PQclose(conn) // oServer:Destroy() // // return .t. // endif // oQuery:Destroy() // endif function proc_fornecedor() private Salvavar := "A" private opim mtitl = "Fornecedores" asample = {""} mseq := {} define dialog consfor title mtitl from 08,05 to 22.5, 70 color mcolorEA,mcolorEB style ( WS_BORDER ) define font mtahoma name "Tahoma" size 5.5,13 define font ofont name "Courier" size 11,11 mdescri := space(50) @ 003,02 say mtitl of consfor font mtahoma color mcolorAA,mcolorAB pixel @ 003,40 get odescri VAR mdescri picture "@!" font mtahoma size 150,8.5 of Consfor color mcolorCA,mcolorCB pixel @ 1.2, 00 TO 6.5, 36.0 label "" of consfor @ 23,2.0 listbox oBrw fields asample[oBrw],asample[oBrw]; headers mtitl,"Codigo" FIELDSIZES 400,015; size 249,065 On DblClick( alt_fornecedor() ); pixel of consfor oBrw:lCellStyle = .t. oBrw:lAutoSkip = .t. oBrw:SetArray(asample) oBrw:bGoTop = { || oBrw:nat := 1 } oBrw:bGoBottom = { || oBrw:nat := Eval( oBrw:bLogicLen ) } oBrw:bSkip = { | nWant, nOld | nOld := oBrw:nat, oBrw:nat += nWant,; oBrw:nat := Max( 1, Min( oBrw:nat, Eval( oBrw:bLogicLen ) ) ),; oBrw:nat - nOld } oBrw:bLogicLen = { || Len( asample ) } oBrw:cAlias = "Array" // Just put something oBrw:nClrBackHead := CLR_LG // Cor do Fundo do Cabe‡alho oBrw:nClrBackFocus := CLR_HB // Cor do Cursor Em Cima do Ötem oBrw:nClrForeFocus := CLR_AM // cor da letra da barra ativa oBrw:nClrPane := CLR_LG oBrw:nColAct := 1 // Onde o Cursor Vai Iniciar qual coluna? oBrw:nLineStyle := 3 // Estilo das linhas nos dados da Browse //oBrw:aJustify := { .F., .F., .F., .F. } // Justifica os Cabe‡alhos Esq. .T. =Centro oBrw:lMChange := .F. // Desabilita Mousemove oBrw:SetFocus() // Refocus on The Browse oBrw:Refresh() // Estabiliza o Browse/Listbox //consfor:bKeyDown := {|nKey| IIf( nKey == VK_RETURN,consfor:end(),0)} activate dialog consfor centered on init con_fornecedor() if GetKeyState(VK_RETURN) .or. !GetKeyState(VK_ESCAPE) alt_fornecedor() endif Salvavar := "A" opim:end() return nil function con_fornecedor() define timer opim Interval 70 Action Psq_fornecedor() activate timer opim function Psq_fornecedor() if SalvaVar <> odescri:cText SalvaVar := odescri:cText asample := {} mseq := {} obrw:SetArray(asample) obrw:refresh() if empty(odescri:cText) return .t. endif cQuery := "select acdg,anrs from r10000000 where "+; "substr(anrs,1"+","+alltrim(str(len(alltrim(odescri:cText))))+")"+; " = " + "'"+alltrim(odescri:cText)+"'" +; " order by anrs asc;" oQuery := oServer:Query(cQuery) DO WHILE ! oQuery:Eof() a = oQuery:Fieldget(oQuery:Fieldpos('acdg')) b = oQuery:Fieldget(oQuery:Fieldpos('anrs')) if !empty(a) aadd( asample,{b,alltrim(str(a))}) aadd( mseq,a) endif oQuery:Skip() END oQuery:destroy() oBrw:SetArray(asample) oBrw:refresh() endif return nil function alt_fornecedor() if mseq[oBrw] > 0 malte = mseq[oBrw] cQuery := "select * from r10000000 where "+; "acdg = " + alltrim(str(malte)) cQuery += " order by acdg asc;" oQuery := oServer:Query(cQuery) nculf = 0 && ultimo fornecedor... nforn = space(50) && nome do fornecedor.. if oQuery[11] = 1 DO WHILE ! oQuery:Eof() nculf = oQuery:Fieldget(oQuery:Fieldpos('acdg')) nforn = oQuery:Fieldget(oQuery:Fieldpos('anrs')) oQuery:Skip() END oQuery:destroy() endif consfor:end() endif return nil id=code>id=code>wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem conhece ou já utilizou esta DLL, para a Nfe,, COMUNICA ÇÃO COM A SEFAZ.. que esta no site abaixo: http://nf-eletronica.com/blog/?page_id=118 wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem conhece ou já utilizou esta DLL, para a Nfe,, COMUNICA ÇÃO COM A SEFAZ.. que esta no site abaixo: http://nf-eletronica.com/blog/?page_id=118 wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Sei que não sou muito sociável, e por isso até peço desculpas. Mas desejo um excelente natal a todos e um ano novo de muitas realizações profissionais e também pessoais a todos que participam deste fórum e a seus familiares. Um ano repleto de amor, paz, esperança e grandes feitos. *** ---QUE O NOSSO SENHOR JESUS CRISTO, ABENÇOE A TODOS---*** UM GRANDE ABRAÇO... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Sei que não sou muito sociável, e por isso até peço desculpas. Mas desejo um excelente natal a todos e um ano novo de muitas realizações profissionais e também pessoais a todos que participam deste fórum e a seus familiares. Um ano repleto de amor, paz, esperança e grandes feitos. *** ---QUE O NOSSO SENHOR JESUS CRISTO, ABENÇOE A TODOS---*** UM GRANDE ABRAÇO... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem conhece onde posso adquirir,, ou baixar um software que realize animações em flash free... ?? No momento não estou podendo comprar, se alguem souber agradeço Cordialmente,, wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem conhece onde posso adquirir,, ou baixar um software que realize animações em flash free... ?? No momento não estou podendo comprar, se alguem souber agradeço Cordialmente,, wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem aqui do forum já testou esta IDE,, Visual FiveWin de 16/10/2008 - JKide32 http://www.geocities.com/patrickksfan/download/jkide32.zip wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Alguem aqui do forum já testou esta IDE,, Visual FiveWin de 16/10/2008 - JKide32 http://www.geocities.com/patrickksfan/download/jkide32.zip wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

JHILBERT, realmente é uma boa iniciativa,, Pode contar comigo neste desenvolvimento,basta colocarmos em prática de uma maneira arquitetada e organizada. Quem sabe não façamos também o SINTEGRA.. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

valeu Vilian, vou dar uma olhada no forum internacional. Obrigado.. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Em postgresql,, eu faço assim: Que é o mesmo padrão para SQL.. cdtnasc = ctod("") cRet := Sql_Executa( "UPDATE tbclientes SET dtnasc= " + iif(empty(cdtnasc),"null","'"+cdtnasc+"'") + " WHERE tbclientes.id = " + ccodigo ) id=code>id=code>Obs. o padrão da variável cdtnasc tem que estar no mesmo formato do bco de dados para data ex: aaaa/mm/dd -> se o formato da base estiver assim a variavel também tem que estar.. ou em outro formato..isso depende de vc... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Tenho um software de automação de baterias,, que acessa uma base de dados POSTGRESQL, o meu cliente me solicitou que o seus vendedores usasem um computador de mão. Para realizar os pedidos ( Fazer os pedidos ). Consultas de estoque Consultas de consignados Débitos de clientes etc.. Minha dúvida,, trabalhar com PALM OS ou com Pocket PC,, sei que fivewin não se programa em PALM OS,, teria que usar outra linguagem ou script de programação,, já o Pocket PC,, se não estou enganado,, existe o Fivewin Pocket Pc. Desculpem a minha ignorância,, neste caso qual a melhor opção? e ainda qual a diferença entre os dois ? Qual o tipo de comunicação é utilizado pelos 02 ? consigo isso via FTP, por e-mail, envio e recebimento de arquivos TXT? Uma outra questão ? Para que no ato do pedido feito em um computador de mão, no mesmo instante,, este pedido entrasse no sistema o que é necessário.. ? ou se os dados são transmitidos depois via ftp. ou e-mail, ou transmissão de arquivos.. Obrigado.. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Tenho um software de automação de baterias,, que acessa uma base de dados POSTGRESQL, o meu cliente me solicitou que o seus vendedores usasem um computador de mão. Para realizar os pedidos ( Fazer os pedidos ). Consultas de estoque Consultas de consignados Débitos de clientes etc.. Minha dúvida,, trabalhar com PALM OS ou com Pocket PC,, sei que fivewin não se programa em PALM OS,, teria que usar outra linguagem ou script de programação,, já o Pocket PC,, se não estou enganado,, existe o Fivewin Pocket Pc. Desculpem a minha ignorância,, neste caso qual a melhor opção? e ainda qual a diferença entre os dois ? Qual o tipo de comunicação é utilizado pelos 02 ? consigo isso via FTP, por e-mail, envio e recebimento de arquivos TXT? Uma outra questão ? Para que no ato do pedido feito em um computador de mão, no mesmo instante,, este pedido entrasse no sistema o que é necessário.. ? ou se os dados são transmitidos depois via ftp. ou e-mail, ou transmissão de arquivos.. Obrigado.. wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

valeu Luiz, vou testar com background... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br