Leaderboard

Boa noite galera, Andei lendo os fórum já postados e comentados, e não consegui uma luz para como iniciar uma instalação e configuração do harbour e fivewin, já trabalho com os dois na empresa que programo, mas como entrei lá e já está tudo certo somente fazemos manutenção nos fontes, não consegui ainda que ninguém me de uma ajuda para deixar 100% na minha máquina para eu programar e desenvolver meus projetos. Abrass até mais vlw

Amiguinhos, Para rodar aplicativos como administrador a mesma precisa estar configurada no registro e descobri uma chave no registro que faz isto. Portanto saquei a informação e posto aqui para que testem e vejam se funciona. O conteúdo do arquivo .REG que pode ser executado via Prompt de comando é: Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers] "C:\\PASTA\\SISTEMA.EXE"="RUNASADMIN" [HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\PASTA] "sistema.exe"="RUNASADMIN" Onde sistema é o nome de seu aplicativo e pasta é o nome da pasta que esta o mesmo. Pensando em automatizar criei uma função em meu sistema(Fivewin), que pode ser implementada por todos, na linguagem preferida. Função RunASS: FUNCTION RunASS( cCaminhoCompleto, lXPCompativel ) ***************************************************** * Grava o registro do aplicativo ***************************************************** DEFAULT lXPCompativel := .F. LOCAL cRunName, cRunKey, cRegKey cRegRoot := HKEY_CURRENT_USER cRegKey := "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" cRegValue:= ["]+cCaminhoCompleto+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"] SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue ) cRegValue:= ["]+cFileName(cCaminhoCompleto)+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"] SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue ) RETURN nil Os parâmetros são: cCaminhoCompleto - Caminho completo do aplicativo, exemplo: c:\pasta\subpasta\outrapasta\sistema.exe lXPCompativel - colocar .t. se caso quer forçar execução em modo de compatibilidade Exemplo: ... RunASS( "c:\pasta\subpasta\outrapasta\sistema.exe", .f. ) ... As funções que usei aqui foram elaboradas para uso com o Fivewin que usa a classe tReg32(). Função SetRegVar() FUNCTION SETREGVAR( nKey, cRegKey, cSubKey, uValue ) LOCAL oReg, cValue nKey := IF( nKey == NIL, HKEY_CURRENT_USER, nKey ) uValue := IF( uValue == NIL, "", uValue ) oReg := TReg32():Create( nKey, cRegKey ) cValue := oReg:Set( cSubKey, uValue ) oReg:Close() RETURN cValue

Um amigo me pediu um exemplo para gerar QRCODE em xHarbour/Fivewin. Procurei no forum achei alguns exemplos mas faltava a DLL, em outros exemplos tinha um codigo fonte gigante, enfim, achei bem complicado. Então consegui a DLL (vlw Luis Batata - MicroFly) analisando alguns fontes montei um exemplo bem prático que gera o QRCODE em bitmap e até exibe ele. Espero que ajude outros obs: neste link tem o codigo fonte e a dll http://www.emotta.com.br/qrcode/qrcode.rar #include "fivewin.ch" Function u_Teste() Local cStr := "AQUI DEVE SER COLOCADO O CONTEUDO DO QRCODE" Local cFile := "arq.bmp" Local oDlg Local oBmp1 QRCode(cStr,cFile) // aqui vc chama a funcao passando como parametro o conteudo do QRCODE e o arquivo BMP que será gerado DEFINE DIALOG oDlg FROM 0,0 TO 300,300 TITLE "Exibir QRCODE" PIXEL @ 10,10 BITMAP oBmp1 FILE cFile OF oDlg Size 200,200 Pixel NOBORDER ACTIVATE DIALOG oDlg CENTERED Return DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"

otimo topico so faltam falar como vai ser as quest das novas kg isso ainda n intendi.

Amiguinhos, Isto é muito fácil de resolver, e não tem que ficar configurando VPN, TCP-IP do servidor, DDNS ou NoIP. Você precisará apenas criar um pequeno aplicativo que seja instalado nesta máquina do depósito e que leia o conteúdo de uma pasta e quando encontrar um arquivo especificado por você então processa a impressão. No servidor seu sistema mandará o arquivo para uma pasta especifica, ou seja: Crie a pasta c:\intranet\envios no servidor. Crie a pasta c:\intranet\recebidos no cliente distante. Crie uma conta no Mega Sync, Instale o [url=https://megasync.br.uptodown.com/windows]MegaSync Desktop[/url] nas duas máquinas e configure no servidor para ler em c:\intranet\envios e no cliente distante para ler em c:\intranet\recebidos. Deixe os serviços rodarem e jogue arquivos nas pasta para ver o que acontece. Se gostou, dê um "LIKE" e ajude nosso canalforum.

Amiguinhos, Apesar do titulo isto nada tem de hackerismo e sim de necessidade. De repente voce se depara com este incoveniente e precisa de auxilio do administrador ou a senha para um usuário master no Windows e a pessoa que tem não quer revelar. Com funções assim, escondidas em menus, você pode programar estas brechas para facilitar o seu suporte. Agora, não vá sacanear o seu cliente, heim... //////////////////////////////////////////////////////////////////////////// // // Propositos: Permitir a manutencao do Firewall( Testado no Windows 7 64 ) // //////////////////////////////////////////////////////////////////////////// function FirewallOFF() // Jose Carlos da Rocha - 09/02/2016 ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0) return nil function FirewallON() // Jose Carlos da Rocha - 09/02/2016 ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state on", "c:\windows\system32", 0) return nil Coloquem estas funções para serem chamadas via botões de seu sistema ou num menu de manutenção.

Olá, Recentemente integramos a API de loja virtual da Tray com nosso software e alguns aspectos foram bem nebulosos, por isto quero dividir com vocês uma dica super útil para casos como este, onde é necessário realizar um HTTP PUT usando lib cUrl. Segue o exemplo de código que demonstra o trecho mais importante: FUNCTION Tray_UpdateEstoque( sku_id, nEstoque, access_token ) LOCAL cEndPoint := 'https://666.commercesuite.com.br/web_api/products/'+alltrim(str(sku_id))+'?access_token='+access_token LOCAL cData := '{"Product": {"stock": '+ALLTRIM(STR(nEstoque))+'}}' LOCAL curl LOCAL nRet LOCAL Buff LOCAL Resp IF !empty( curl := curl_easy_init() ) curl_easy_setopt( curl, HB_CURLOPT_HTTPHEADER, {"Content-Type:application/json"} ) curl_easy_setopt( curl, HB_CURLOPT_CUSTOMREQUEST, 'PUT') curl_easy_setopt( curl, HB_CURLOPT_URL, cEndPoint ) curl_easy_setopt( curl, HB_CURLOPT_POSTFIELDS, cData ) curl_easy_setopt( curl, HB_CURLOPT_FOLLOWLOCATION, 1) curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP ) curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYPEER, 0 ) curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYHOST, 0 ) nRet := curl_easy_perform( curl ) Buff := curl_easy_dl_buff_get( curl ) curl_easy_cleanup( curl ) IF (nRet == HB_CURLE_OK) hb_jsonDecode( Buff, @Resp ) ENDIF ELSE RETURN .F. ENDIF IF !HB_ISHASH(Resp) ? Buff // Exibe na tela a mensagem de erro obtida RETURN .F. ENDIF * Retorno em caso de sucesso (status code 200 ou 201) nRet := Resp['code'] RETURN (nRet == 200 .OR. nRet == 201) Em nosso caso utilizamos o compilador Harbour, mas, isto deve servir como base para você caso use outros compiladores. Espero ter ajudado.

a

Às vezes me esqueço e coisas que eu lembrei que eu havia esquecido, mas nunca, jamais esquecerei da parceria "Dr. Gilmer e Flexdocs" no que diz respeito à NF-e e NFS-e. O Gilmer é o que podemos entender como "o pequeno notável !", kkk salvou muitos Clippeiros que estavam desnorteados. Vlw. Vlw Kapiaba, grande colaborador, Vlw muitos outros de fórum que são importantíssimos na minha carreira de programador de computador. Não sou empresário, sou programador de computador, a empresa é só um CNPJ. Sou o João Programador.

Chamando pelo Skype

Desejo a todos clientes e amigos um natal cheio de Paz, Saúde e Harmonia. Em 2017 teremos muitas novidades boas para a comunidade Harbour

Amigos tenho instalado harbour e xharbour, bcc55 UPX_Tool_1.03 fwh vc98 ( so faz descompactar numa pasta e nao instala.) Entro na pasta samples ou tests do h ou Xh tento compilar build test etc só dá erro. Por favor no clipper fw eu fazia clipper arquivo /n etc blinker fi arquivo etc @fivelink.lnk compilava e cria o executavel beleza. Mas to apanhando como devo fazer para criar executavel no h ou xh o que preciso gravar na minha maquina para que isto deh certo. Alguem pode me ajudar? kbmcuca@ibest.com.br Aguardo resposta dos amigos do FW.

Agenda de Compromissos - Eletronica agendamento para : Pessoal / Clientes / Fornecedor dispara uma mensagem na tela qdo o usuario logado tem alguma agenda para o dia, esta para disparar a cada 1 minuto, mais esta parametrizada e você determina o tempo para disparo de aviso, o disparo da tela de mensagem é automático por padrão deixei 1 minuto mais você poderá mudar no botão parametrização da agenda. Peça uma DEMO nos endereços abaixo, tentei colocar aqui mais não é permitido baixa o demo neste linkhttp://www.4shared.com/file/AbTtHJRNce/SETUPAGENDA2.html versao com correções dos bugs www.microfly.com.br suporte@microfly.com.br WhatsApp (11) 96969-3667 Skype suporte.microfly

Usando cGetDir() muito interessante. #include "FiveWin.ch" #define BIF_NONEWFOLDERBUTTON 0x200 #define BIF_RETURNONLYFSDIRS 0x0001 #define BIF_DONTGOBELOWDOMAIN 0x0002 #define BIF_STATUSTEXT 0x0004 #define BIF_RETURNFSANCESTORS 0x0008 #define BIF_EDITBOX 0x0010 #define BIF_VALIDATE 0x0020 #define BIF_NEWDIALOGSTYLE 0x0040 #define BIF_USENEWUI (BIF_NEWDIALOGSTYLE | BIF_EDITBOX) #define BIF_BROWSEINCLUDEURLS 0x0080 #define BIF_BROWSEFORCOMPUTER 0x1000 #define BIF_BROWSEFORPRINTER 0x2000 #define BIF_BROWSEINCLUDEFILES 0x4000 #define BIF_SHAREABLE 0x8000 #define MAX_PATH 260 FUNCTION Main() LOCAL cTitle, cPath, cCarpDest, cPathDest cTitle := "Seleccione Carpeta" IF FWVERSION = "FWHX 13.06" cPath := GETCURDIR() ELSE cPath := CURDRIVE() + ":\" + GETCURDIR() ENDIF cCarpDest := "Seleccione la carpeta donde copiar las novedades" cPathDest := cGetDir( cTitle, cPath,, cCarpDest, ; BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + ; BIF_USENEWUI + BIF_NONEWFOLDERBUTTON ) IF .NOT. EMPTY( cPathDest ) ? cPathDest ENDIF RETURN NIL Gostaria de mais comentários a respeito disso, porfa. abs

Galera alguém tem algo assim em FiveWin? // Consulta cep ou endereço em WebService - xHarbour #DEFINE CRLF chr(13)+chr(10) #INCLUDE "FILEIO.CH" Function Main() Local nDll , pApi Local cCepOrigem := Space(9) Local cCepDestino:= Space(9) Local nPeso := 0 Clear Set Color to 'ww/BB+' Clear @ 00,00 say padc('Consulta de Tarifa Via correio ',80) Color('R+/NN+') @ 01,00 say padc('xHarbour 99.70',80) Color('GB+/NN+') @ 24,00 say padc('Joao Frazato ( sistema_jaf@hotmail.com)',80) Color('N/NN+') @ 10,10 say 'Nr. Cep Remetente :' Get cCepOrigem Pict "@R 99.999-999" @ 12,10 say 'Nr. Cep Destino :' Get cCepDestino Pict "@R 99.999-999" @ 14,10 say 'Peso :' get nPeso Pict "@EZ 999.999" Read If LastKey()==27 Return nil endif cUrl := 'http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem='+; Alltrim(cCepOrigem)+; '&cepDestino='+; Alltrim(cCepDestino)+; '&peso='+StrZero(nPeso,11,3) cComando:= cUrl If VereficaNet( 'www.correios.com.br' )==.f. Alert('Problema com o Site .....http://www.correios.com.br') Return Nil Endif Try oHttp := CreateObject("winhttp.winhttprequest.5.1") oHttp:Open("GET",cUrl,.f.) oHttp:Send() cResp1 := oHttp:ResponseText() Catch Return cResp End Try nPos := At('&Tarifa=',cResp1) nPos1 := At('&erro=',cResp1) cValor := Substr(cResp1,nPos+8,nPos1-1) Alert('Valor Encomenda :'+Transf(val(cValor),"@EZ 999,999.99") ) *memoedit(cResp1) Centra(24,'') Return ( Nil ) Function Centra(cLin,cMsg) @ cLin,00 say Padc(cMsg,24) Return nil //---------------------------------------------- Function VereficaNet( cAddress ) LOCAL aHosts LOCAL cName InetInit() IF cAddress == NIL cAddress := "www.google.com.br" ENDIF aHosts := InetGetHosts( cAddress ) IF aHosts == NIL .or. len(aHosts)=0 InetCleanup() RETURN .f. endif InetCleanup() RETURN (.T.) Abs

Boa tarde, alguem já desenvolveu arquivo de Registro /Cancelamento de arquivo para o spc nacional ? Estou seguindo o layout mas é muito mal explicado. Alguem teria um exemplo de arquivo gerado com Inclusao e exclusao para eu comparar com o meu ? Grato William

Evandro Não coloquei aquí o caminho que estou seguindo pois acredito ser deselegante ficar falando de outra linguagem meste forum. Sou muito grato ao Clipper/Fivewin e depois ao xHarbour/Fivewin pois graças a eles consegui grande parte do que tenho hoje. Mas a vida segue e precisamos tomar novos caminhos para não ficarmos parados no tempo. Já expliquei e explicarei em email meus pontos de vista e da linguagem para algum amigos. Esses encontros / congressos me trouxeram enormes conhecimentos e não é por causa dessa mudança que deixarei de encontra-los em outra oportunidade. A grande maioria das vezes não se trata de linguagem e sim de troca de conhecimento. Abraços José Carlos Guarulhos-SP

Olá Pessoal, Postei um pequeno exemplo de uso da classe que criei para o Webservice do Farmácia Popular, como tive bastante dificuldade em fazer com o xHarbour resolvi compartilhar. Está em Dicas, bom uso para todos.

Pessoal Boa noite Mais uma vez, peço a autorização e a atenção da galera para o evento acima, quem tiver interessado, inscreva-se. Link: http://joseelielson.wix.com/eventowindevrecife []s,

// Como saber ser você está como administrador ou não. #include "FiveWin.ch" function Main() ? IsUserAdmin() return nil FUNCTION IsUserAdmin() Return IsUserAnAdmin() /* *********************************************************************************** */ DLL32 STATIC FUNCTION IsUserAnAdmin() AS BOOL PASCAL LIB "Shell32.dll" /* *********************************************************************************** */

Difícil. Hoje tomei coragem de entrar no FW. Recebi essa triste mensagem no dia pelo Facebook. Ao longo do ano de 2019 conversei com ele algumas vezes pelo Skype. Mas tinha dias em que ele relatava as fortes dores. Participei com ele de um último projeto do Frota... Sei que ele não conseguiu terminar as alterações que pretendia. Hoje tenho convicção que ele descansou. Assim quis o Senhor. Abraços.

Não perdendo a brincadeira, Rochinha, além da PINGA, limão açúcar e gelo Abraços

Amiguinhos, Acho que você vai precisar de PINGA

Amiguinhos, Caso queiram testar o mod_Harbour mas tá sem tempo pra configurar basta pegar este pacote. http://www.5volution.com.br/forum/Apache24.rar Crie no drive C: uma pasta chamada Apache24. Para executar entre na pasta C:\Apache24\bin e execute o httpd.exe. Tudo correndo bem o servidor web ira rodar. Entre no browse e comande localhost:8081. Tudo correndo aparecerá a frase It Works. Agora comande localhost:8081/samples. Tudo correndo aparecerá a lista de .PRGs. Basta clicar neles e ver algum resultado. menu.prg e main.prg ilustram melhor a experiencia. Depois basta analisar os códigos.

DIFERENCIAL DE ALÍQUOTAS NAS OPERAÇÕES ENTRE CONTRIBUINTES (RPA) DIFERENCIAL DE ALIQUOTAS NAS OPERAÇÕES ENTRE CONTRIBUINTES O fato gerador do diferencial de alíquotas, ocorre no momento da entrada no Estado de materiais ou bens, oriundos de outra unidade da Federação, destinados para uso, consumo ou ativo imobilizado de contribuinte do ICMS, ou seja, mercadorias que não serão objeto de saída subsequente. Nas operações interestaduais com mercadorias sujeitas a Substituição Tributária, em que há Convênio ou Protocolo vigente entre os Estados, é atribuída ao remetente da mercadoria a responsabilidade pelo recolhimento do ICMS/ST devido ao Estado de destino da mercadoria. Caso a mercadoria seja destinada para uso, consumo ou ativo imobilizado, de contribuinte do ICMS, será atribuída ao remetente a responsabilidade pelo recolhimento do diferencial de alíquotas. Assim para que a responsabilidade pelo recolhimento do diferencial de alíquotas seja atribuída ao remetente da mercadoria, temos que preencher alguns requisitos: 1° mercadoria ou bem, tem que ser destinado para uso, consumo ou ativo (porque caso seja destinada à comercialização, seria o recolhimento do ICMS/ST com a MVA); 2° a mercadoria tem que estar sujeita a Substituição Tributária no Estado de destino; 3° tem que ter Protocolo/Convênio vigente entre o Estado do remetente e o Estado de destino atribuindo a responsabilidade ao remetente pelo recolhimento do ICMS/ST. Sobre a forma de cálculo do diferencial de alíquotas nas operações entre contribuintes, após a publicação da Emenda Constitucional nº 87/2015, alguns Estados mudaram a forma de cálculo, gerando uma grande dúvida sobre a forma correta. Em virtude disto foi publicado o Convênio ICMS nº 52/2017, onde em sua cláusula décima quarta apresenta uma fórmula de cálculo do diferencial de alíquotas nas operações com mercadorias sujeitas a Substituição Tributária "por dentro", entretanto esta cláusula esta suspensa até a decisão final de ADI nº 5.866. Assim, apresentamos abaixo a forma de cálculo do diferencial de alíquotas para cada Estado: ACRE - Nos termos do P.arágrafo 1° do Artigo 97 do RICMS/AC, o diferencial de alíquotas será calculado conforme a fórmula "ICMS ST DIFAL = [(V oper - ICMS origem)/(1 - ALQ interna)] x ALQ interna - (V oper x ALQ interestadual)", onde: 1 - "ICMS ST DIFAL" é o valor do imposto correspondente à diferença entre a alíquota interna a consumidor final deste Estado para o bem ou a mercadoria e a alíquota interestadual; li - "V oper" é o valor da operação interestadual, acrescido dos valores correspondentes a frete, seguro, impostos, contribuições e outros encargos transferíveis ou cobrados do destinatário, ainda que por terceiros; Ili - "ICMS origem" é o valor do imposto correspondente à operação interestadual, destacado no documento fiscal de entrada; IV - "ALQ interna" é a alíquota interna deste Estado para as operações com o bem e a mercadoria a consumidor final; V - "ALQ interestadual" é a alíquota estabelecida pelo Senado Federal para a operação. ALAGOAS - Cálculo "por dentro" nos termos do Comunicado SRE nº 20/2015. Necessário ressaltar que o cálculo indicado neste Comunicado se aplica tanto para a antecipação, como também para o diferencial de alíquotas, conforme previsto no Artigo 1º,_P.arágrafo 4° da Lei nº 6.474/2004. DAR: código é 5007-5 (FECOEP - ICMS DIFAL - CONSUMIDOR FINAL CONTRIBUINTE) GNRE: 10012-9 (FECOEP - ICMS Fundo Estadual de Combate à Pobreza por Operação) Segue link para acesso ao Comunicado, onde é apresentado exemplo de cálculo: httP.s://www.legisweb.com.br/assinante/bancodedados/legislacao/visualizar/?abr=2&estado=2&tipo=31&ano=2015&id=315008 AMAPÁ - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre a base de cálculo do ICMS próprio, conforme artigQ.jj_,_§ 1° Anexo Ido RICMS/AP - Decreto nº 2.269/1998. AMAZONAS - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação na unidade federada de origem acrescida dos valores do frete e de outras despesas transferidas ao adquirente, conforme § 7° do artigo 12 e incisos IX e X do artigo 13 do RICMS/AM. BAHIA - Cálculo "por dentro", conforme exemplo abaixo extraido do Parecer nº 30.280/2016: Considerando que o valor total da Nota Fiscal já contempla o ICMS incidente da operação interestadual (R$ 1.000,00), para apuração da base de cálculo do DIFAL deverá ser extraido o valor do imposto interestadual (7%), em seguida, deverá ser acrescido o imposto da operação interna da Bahia (18%): Valor total da nota R$ 1.000,00; Extração do ICMS Interestadual - R$ 1.000,00 x 0,93 = R$ 930,00; Base de Cálculo para DIFAL- R$ 930,00/0,82 = R$ 1.134,14; Difal - (R$ 1.134,14 X 18%) - R$ 70,00 (ICMS interestadual) = R$ 134,14. Caso o remetente seja optante pelo Regime Simples Nacional, a Secretaria da Fazenda do Estado da Bahia, orienta através do Perguntas e Respostas publicado em sua página, uma forma diferenciada para o cálculo do diferencial de alíquotas, independente do Regime do Tributação do destinatário, levando em consideração o valor indicado pelo remetente no campo "informações complementares, assim sugerimos a leitura do Comentário o qual segue link: htt12s://www.legisweb.com.br/assinante/bancodedados/comentarios/visualizar/?area=2&assunto=11&estado=5&cat=1&id=671O CEARÁ - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação sobre o qual foi cobrado o ICMS no Estado de origem, conforme artigo 25, inciso XI e artigo 589 do RICMS/CE. DISTRITO FEDERAL - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação, conforme artigo 34, inciso IX do RICMS/DF. ESPIRITO SANTO - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação , conforme artigo 63, inciso XI do RICMS/ES. GOIÁS - No Estado de Goiás há previsão de cálculo "por dentro" do diferencial de alíquotas, nos termos do Artigo 65, inciso Ili do RCTE/GO, inclusive caso se trate de diferencial de alíquotas a título de Substituição Tributária, conforme previsto no Artigo 39,_12arágrafo 2° e Artigo 51,J! do Anexo VIII do RCTE/GO. MARANHÃO - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação sobre o qual foi cobrado o imposto no Estado de origem, conforme artigo 15, inciso XIV do RICMS/MA. MATO GROSSO - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação ou prestação sobre o qual incidiu o ICMS próprio, conforme artigo 81, inciso Ili do RICMS/MT. MATO GROSSO DO SUL - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação, conforme artigo 17, inciso 1, alínea "h" do RICMS/MS, c/c Decreto Nº 15007 DE 24/05/2018. MINAS GERAIS - No Estado de Minas Gerais há previsão de cálculo "por dentro", nos termos do Artigo 43,_12arágrafo 8°, inciso I do RICMS/MG. Vejamos as fórmulas: (BC destacada na NF - aliq interestadual do ICMS aplicada = valor da operação sem ICMS) [Valor da operação sem ICMS / (1 - aliq interna de Minas Gerais)= BC do diferencial] (BC do diferencial x aliq interna de MG = ICMS interno) (ICMS interno - ICMS destacado na NF = diferencial de alíquotas) Vejamos um exemplo utilizando as fórmulas acima: Informações constantes na NF: BC 1.000,00 Aliq interestadual 12% ICMS interestadual 120,00 Informações internas e cálculo do diferencial: Aliq interna 18% (BC destacada na NF - aliq interestadual do ICMS aplicada = valor da operação sem ICMS) 1.000,00 - 12% = 880,00 [Valor da operação sem ICMS / (1 - aliq interna de Minas Gerais)= BC do diferencial] 880,00 / (1 - 18%) = BC do diferencial 880,00 / 0,82 = 1.073,17 (BC do ICMS do diferencial x aliq interna de MG = ICMS interno) 1.073,17 X 18% = 193,17 (ICMS interno - ICMS destacado na NF = diferencial de alíquotas) 193,17-120,00 = 73,17 PARÁ- No Estado do Pará há previsão de cálculo "por dentro", nos termos do Artigos 6° e 7° da Lei nº 8.315/2015. Para fins de cálculo do imposto correspondente à diferença entre a alíquota interna e a interestadual, deverão ser observados os seguintes procedimentos: a) da base de cálculo será excluída a parcela relativa ao próprio imposto, apurado com a aplicação da alíquota interestadual; ao valor obtido na forma da letra "a", será incluído o montante do próprio imposto, considerando a alíquota interna do Estado do Pará, estabelecida para a mercadoria, bem ou serviço; c) sobre o valor obtido na forma da letra "b" será aplicada a alíquota interna estabelecida para a mercadoria, bem ou serviço; d) o valor imposto devido corresponderá à diferença positiva entre o valor obtido na forma da letra "c" e a parcela relativa ao imposto de que trata a letra "a". Segue link de Comentário com exemplo de cálculo: htt1:1s://www.legisweb.com.br/assinante/bancodedados/comentarios/visualizar/?area=2&assunto=11&estado=14&cat=1&id=6729 PARAIBA - A legislação do Estado da Paraíba determina que o cálculo do diferencial de alíquotas será normal, alíquota interna menos a interestadual sobre o valor da operação, conforme inciso X e 1:1arágrafos 1 º e 3º do art. 14 do RICMS/PB. PARANÁ- Na legislação do Estado do Paraná há previsão de cálculo "por dentro", conforme Art. 8º,_1:1arágrafo 12 do RICMS/PR c/c Consulta nº 008/2017. Para fins de cálculo do imposto correspondente à diferença entre a alíquota interna e a interestadual, deverão ser observados os seguintes procedimentos: a) do valor da operação informado no documento fiscal, excluir o montante do imposto correspondente à alíquota interestadual; ao valor obtido na forma da alínea "a", incluir o montante do imposto calculado pela alíquota interna estabelecida para a mercadoria na operação com o consumidor final; c) sobre o valor obtido na forma da alínea "b", aplicar a alíquota interna estabelecida para a mercadoria na operação com o consumidor final; d) o imposto devido corresponderá à diferença entre o valor obtido na forma da alínea "c" e aquele devido à unidade federada de origem relativo à operação interestadual. Segue exemplo de cálculo, considerando: Valor da operação: R$ 2.000,00 Alíquota interestadual: 12% Alíquota interna 18% Valor do ICMS próprio: R$ 240,00 *Para encontrar a base de cálculo, conforme indicado na alínea "a" acima vamos excluir o valor do ICMS próprio: R$ 2.000,00 - R$ 240,00 = R$ 1.760,00 *Para localizar a base de cálculo do diferencial de alíquotas, do valor encontrado vamos incluir a alíquota interna prevista para a mercadoria no Estado do Paraná, conforme indicado na alínea "b" acima: R$ 1.760,00 /0.82 = R$ 2.146,34 (neste caso utilizamos o divisor de 0.82 pois no nosso exemplo a alíquota interna é de 18%, caso a alíquota interna fosse de 20% o divisor seria de 0.80 e assim sucessivamente). *Encontrada a base de cálculo, vamos multiplicar pela alíquota interna, conforme previsto na alínea "c" acima: R$ 2.146,34 X 18% = R$ 386,34 *Por fim, do valor encontrado, vamos diminuir o valor do ICMS próprio, conforme indicado na alínea "d" acima: R$ 386,34 - R$ 240,00 = R$ 146,34 Logo, o valor do diferencial de alíquotas será de R$ 143,34. PERNAMBUCO - Na legislação do Estado de Pernambuco há previsão de cálculo "por dentro", conforme incisos X e XI do art. 12 da Lei nº 15.730/2016. Para fins de cálculo do imposto correspondente à diferença entre a alíquota interna e a interestadual, deverão ser observados os seguintes procedimentos: a) do valor da operação na UF de origem, exclui-se o respectivo ICMS e; ao valor assim obtido devem-se somar os valores referentes ao IPI (se houver), a seguro, juros, demais importâncias pagas, recebidas ou debitadas, descontos concedidos sob condição e o frete, caso o transporte seja efetuado pelo próprio remetente ou por sua conta e ordem e seja cobrado em separado; c) ao valor encontrado inclui-se o montante equivalente ao imposto devido na operação interna; Segue exemplo , considerando: Valor da operação: R$ 2.000,00 Alíquota interestadual: 7% Alíquota interna 18% Valor do ICMS próprio: R$ 140,00 *Para encontrar a base de cálculo, conforme indicado na alínea "a" acima vamos excluir o valor do ICMS próprio: R$ 2.000,00 - R$ 140,00 = R$ 1.860,00 *Para localizar a base de cálculo do diferencial de alíquotas, do valor encontrado vamos incluir a alíquota interna prevista para a mercadoria no Estado de Pernambuco, conforme indicado na alínea "c" acima: R$ 1.860,00 /0.82 = R$ 2.268,29 (neste caso utilizamos o divisor de 0.82 pois no nosso exemplo a alíquota interna é de 18%, caso a alíquota interna fosse de 20% o divisor seria de 0.80 e assim sucessivamente). PIAUI - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor total da operação, conforme artigo 22, inciso XII do RICMS/PI. RIO DE JANEIRO - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação, conforme artigo 4º,.Y!, do Livro 1, do RICMS/RJ. RIO GRANDE DO NORTE - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação, conforme Artigo 69, inciso XIII e artigo 82 do RICMS/RN. RIO GRANDE DO SUL - Há previsão de cálculo "por dentro", conforme Instrução Normativa DRP nº 045/98, Título 1, CaJ;iítulo Ili, Seção 10.1, consta o cálculo do diferencial de alíquotas por dentro, o qual será apresentado a seguir. Antes de apresentar o cálculo por dentro, temos como objetivo enfatizar que a SEFAZ/RS já esclareceu tal situação e orienta que o cálculo do diferencial de alíquotas, será por dentro, ainda que recolhido pelo remetente a título de Substituição Tributária, através do informativo localizado no link. Segue abaixo o exemplo de cálculo, considerando: Valor da operação: R$ 1.000,00 Alíquota interestadual: 12% Logo, ICMS de origem: R$ 120,00 Alíquota interna: 18% ICMS devido ={ [(1.000 - 120)/(1- 0.18)] x O,18} - 120,00 ICMS devido = {[ 880,00/ 0.82 ] X O,18} - 120,00 ICMS devido= [1.073,17 X O,18] - 120,00 ICMS devido= 193,17 - 120,00 ICMS devido = R$ 73,17 RONDÔNIA- Há previsão de cálculo "por dentro", nos termos do Artigo 16 e Artigo 17, inciso li, alínea "c" do RICMS/RO. Integra a base de cálculo o montante relativo à diferença de alíquota interna utilizada neste Estado e a interestadual aplicável no Estado de origem, quando devido. RORAIMA - Não há previsão de cálculo "por dentro", ou seja, o cálculo será normal, alíquota interna menos a interestadual sobre o valor da operação sobre o qual foi cobrado o ICMS no Estado de origem, conforme artigo 29, inciso XI do RICMS/RR. SANTA CATARINA - Nos termos do Artigo 19,_J;iarágrafo 7°, do Anexo 3 do RICMS/SC, a base de cálculo do imposto devido será o valor da operação interestadual adicionado imposto correspondente à diferença entre a alíquota interna a consumidor final estabelecida na legislação tributaria do Estado de Santa Catarina para o bem ou a mercadoria e a alíquota interestadual. Ou seja, a base de cálculo do diferencial de alíquotas será "por dentro", conforme exemplo abaixo: Valor da operação com ICMS: R$ 100,00 Alíquota interestadual: 12% Alíquota interrna: 17% Do valor da operação vamos excluir o ICMS da operação própria: R$ 100,00 X 0,88 (100 - alíquota interestadual) = R$ 88,00 Do valor encontrado vamos incluiir "por dentro" alíquota interna de Santa Catarina: R$ 88,00/0,83 (100 - alíquota interna)= R$ 106,02 Uma vez encontrada a base de cálculo (R$ 106,02), vamos multiplicar pela alíquota interna: R$ 106,02 X 17% = R$ 18,02 E para encontrar o valor do diferencial de alíquotas, vamos deduzir o ICMS próprio da operação: R$ 18,02 - R$ 12,00 = R$ 6,02 SÃO PAULO - Foi publicado o Comunicado CAT nº 23/2017 orientando o cálculo do diferencial de alíquotas "por dentro", entretanto este Comunicado é baseado na cláusula décima guarta do Convênio ICMS nº 52/2017. Logo o Comunicado do Estado de São Paulo também perdeu seus efeitos, desta forma o cálculo do diferencial de alíquotas para o Estado de São Paulo será normal, alíquota interna menos interestadual sobre o valor da operação, nos termos do Artigo 37, inciso VI do RICMS/SP. SERGIPE - Há previsão de cálculo "por dentro", nos termos do Artigo 23, inciso V do RICMS/SE e Portaria SEFAZ nº 367/2016. TOCANTINS - Há previsão de cálculo "por dentro", nos termos do Artigo 22, inciso XV do RICMS/TO e Instrução Normativa SEFAZ nº 1/2016.

Amigos essa parece ser fácil mas não é: Tenho um richedit e 1 botao. Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto richedit a data atual ( date() ) , só que com fonte Tahoma e size = 10. Lembrando que no richedit vai ter outros textos com fontes e tamanhos diferentes digitados pelo usuario , e sempre que clicar no botao, insere a data atual na ultima linha com fonte tahoma e size 10 , mas mantendo as caracteristicas do restante . Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo) Grato William Adami

Pessoal encontrei um site que permite buscar o endereço pelo CEP de maneira gratuita, desde que não se faça chamadas em massa para a WebService, caso isso aconteça eles bloqueiam o seu IP e ai o serviço para de funcionar. Montei um exemplo simples de como obter as informações. Espero que seja util Function U_BuscaCep() Local cCep := "13380-003" Local cCodCid cCep := StrTran(cCep,"-","") cRet := WebGetCep(cCEP) hCep := u_JsonToHash(cRet) Try cCodCid := StrZero(Val(SubStr(hCep["ibge"],3)),6) Catch hCep := NIL End If hCep # nil MsgStop(Upper(SemAcento(hCep["logradouro"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["bairro"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["localidade"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["ibge"]))+Chr(13)+Chr(10)+; Upper(SemAcento(hCep["uf"]))) Else MsgStop("CEP não encontrado ou serviço fora do ar") EndIf Return hCep Static Function Emt_GetHtml(cLink) Local oOle Local cHtml := "" Try oOle := CreateObject( "Microsoft.XMLHTTP" ) oOle:Open( "GET", cLink, .f. ) oOle:Send() cHtml := oOle:ResponseBody oOle := nil Catch End Return cHtml STATIC Function WebGetCep(cCEP) Local cUrl cUrl := 'http://viacep.com.br/ws/'+cCEP+'/json' cJsonRet := Emt_GetHtml(cUrl) cJsonRet := OemToAnsi(hb_UTF8ToStr(cJsonRet)) Return cJsonRet Static Function u_JsonToHash(cStringJson) Local hJson := {=>} cStringJson := StrTran( cStringJson,':[','=>{') cStringJson := StrTran( cStringJson,'":"','" => "') cStringJson := StrTran( cStringJson,'[','{') cStringJson := StrTran( cStringJson,']','}') cStringJson := StrTran( cStringJson,'":null','"=>nil') cStringJson := StrTran( cStringJson,'":true' ,'"=>.t.' ) cStringJson := StrTran( cStringJson,'":false','"=>.f.') cStringJson := StrTran( cStringJson,'":','"=>') cStringJson := StrTran( cStringJson,"\/","/" ) cStringJson := StrTran( cStringJson,Chr(13),"" ) cStringJson := StrTran( cStringJson,Chr(10),"" ) Try hJSon := &( cStringJson ) Catch hJSon := Hash() End Return hJson Static Function SemAcento(cStr) Local cRet := "" Local nI Local cCar Local nPos Local aCar := {} cRet := cStr cRet := StrTran(cRet,"á","a") cRet := StrTran(cRet,"à","a") cRet := StrTran(cRet,"ã","a") cRet := StrTran(cRet,"â","a") cRet := StrTran(cRet,"é","e") cRet := StrTran(cRet,"è","e") cRet := StrTran(cRet,"ê","e") cRet := StrTran(cRet,"í","i") cRet := StrTran(cRet,"ì","i") cRet := StrTran(cRet,"î","i") cRet := StrTran(cRet,"ó","o") cRet := StrTran(cRet,"ò","o") cRet := StrTran(cRet,"õ","o") cRet := StrTran(cRet,"ô","o") cRet := StrTran(cRet,"ú","u") cRet := StrTran(cRet,"ù","u") cRet := StrTran(cRet,"û","u") cRet := StrTran(cRet,"ç","c") cRet := StrTran(cRet,"Á","A") cRet := StrTran(cRet,"À","A") cRet := StrTran(cRet,"Ã","A") cRet := StrTran(cRet,"Â","A") cRet := StrTran(cRet,"É","E") cRet := StrTran(cRet,"È","E") cRet := StrTran(cRet,"Ê","E") cRet := StrTran(cRet,"Í","I") cRet := StrTran(cRet,"Ì","I") cRet := StrTran(cRet,"Î","I") cRet := StrTran(cRet,"Ó","O") cRet := StrTran(cRet,"Ò","O") cRet := StrTran(cRet,"Õ","O") cRet := StrTran(cRet,"Ô","O") cRet := StrTran(cRet,"Ú","U") cRet := StrTran(cRet,"Ù","U") cRet := StrTran(cRet,"Û","U") cRet := StrTran(cRet,"Ç","C") Return cRet

Amiguinhos, Se esse kabra num fosse tão Petista e Curintiano, até que seria uma kara bakana Ele é um Ka-PT-a, kkkkkkkkkkkkkkkkkkk

Se esse kabra num fosse tão Petista e Curintiano, até que seria uma kara bakana... kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

Amiguinhos, Eis um exemplo de código para obter informações sobre GTINs de produtos para sanear seus bancos de dados de produtos, que foi disponibilizado pela BlueSoft O código foi testado em Harbour Simplex 0.45. Use a função de OLE preferida no lugar de TOleAuto():New(...): cNCMCosmos := "https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json" AUTH_TOKEN := "8e0g9T_n22f7_koK5lSeAA" strMsg := "" oNCMCosmos := TOleAuto():New( "Microsoft.XMLHTTP" ) oNCMCosmos:Open( "GET", cNCMCosmos, .F. ) oNCMCosmos:setRequestHeader( "Content-Type", "application/json;charset=UTF-8" ) oNCMCosmos:setRequestHeader( "X-Cosmos-Token", AUTH_TOKEN ) oNCMCosmos:Send( strMsg ) MemoEdit( oNCMCosmos:responseText ) O exemplo acima só funcionará após feito o seu cadastro no site e obtendo o AUTH_TOKEN para uso. Veja como funciona e API e Faça o cadastro Resultado em JSON. { "description":"AÇÚCAR REFINADO UNIÃO 1KG", "gtin":7891910000197, "thumbnail":"https://cdn-cosmos.bluesoft.com.br/products/7891910000197", "price":"R$ 3,49", "avg_price":3.49, "max_price":3.49, "min_price":3.49, "width":0.0, "height":0.0, "length":0.0, "net_weight":null, "gross_weight":null, "created_at":"2014-04-24T11:07:34.000-03:00", "updated_at":"2018-09-11T10:35:53.000-03:00", "barcode_image":"http://api.cosmos.bluesoft.com.br/products/barcode/C5A6D9FADB6D01B6E5B321FAB9053F92.png", "brand":{"name":"UNIAO", "picture":""}, "gpc":{"code":"10000043", "description":"Açúcar / Substitutos do Açúcar (Não perecível)"}, "ncm":{"code":"17019900", "description":"Outros", "full_description":"Açúcares e produtos de confeitaria - Açúcares de cana ou de beterraba e sacarose quimicamente pura, no estado sólido - Outros: - Outros"}, "cest":{"id":2154, "code":"1710300", "description":"Outros tipos de açúcar, em embalagens de conteúdo inferior ou igual a 2 kg, exceto as embalagens contendo envelopes individualizados (sachês) de conteúdo inferior ou igual a 10 g", "parent_id":1671}, "gtins":[{"gtin":7891910000197,"commercial_unit":{"type_packaging":"Unidade","quantity_packaging":1,"ballast":null,"layer":null}}, {"gtin":7891910000203,"commercial_unit":{"type_packaging":"Fardo","quantity_packaging":10,"ballast":null,"layer":null}}]} Os testes se limitam a uma quantidade de 25 retornos por dia na opção grátis ma tem uma Tabela de Preços Façam suas implementações e bom trabalho. Observação: Não trabalho na empresa e não ganhei nada para divulgar.

Senhores, boa tarde ! Tenho uma oportunidade para desenvolvimento xHarbour / Fivewin / PELLES C / Resources / SQLRDD . Se alguem tiver interesse , seria de forma autonoma ! Pablo Rivera +11+994526227

Tanto faz: 32 bits roda em 64 bits. Ai, é questão de gosto, teste os dois e decida-se. abs. Eu não largo o meu Workshop.exe the best, nem a pau Juvenal!! kkkkkkkkkkkkkkk

Amiguinhos, Segue link para baixar Emuladores de Balanças @braços

A long long time ago. Achei que tinha perdido.... Aprendi pra kcte com este exemplo. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34392 Creio vá servir para outros iniciantes em Fivewin. Abs.

Estou vivo sim! graças a deus!

Ola amigos Sei como é difícil estar em uma situação delicada como esta, não passei por isso, mais minha esposa teve câncer de mama, e graças a deus, este mês de maio foi a ultima dose da medicação para a cura do câncer, apesar de ser um tratamento realmente muito caro, e posso lhes dizer que sou um privilegiado por ter a condição de custear todo o tratamento dela. Hoje fiz uma transferência, de um certo valor para o nosso amigo, espero que lhe seja útil, sempre que possível irei fazer um aporte a você, apesar de não nos conhecermos, mais o que vale é o coração de quem esta contribuindo, e de quem esta recebendo. Pois uma das minhas maiores alegrias é poder ajudar o próximo, sempre que possível. Um abraço aos amigos.

Pelo visto, esta tabela deve ser o papa-leguas, eu vi só o rastro da poeira. Não resisti... kkkkkkkkkkkkkkkkkkkkkkkkkkkkk

É na lingua da XUXA.

Amiguinhos, Será que fico com pena de quem abandonou a Fivewin. Fivewin: Ame-a ou Deixa-a.

Esta NT 2015 003 é a Regra da DIFAL para vendas à Consumidor Final. Aparentemente não houve grande alterações nesta versão 1.90. Pelo que analisei, apenas aprimoraram algumas regras de validações. Não deve alterar em nada a versão da DLL da FlexDocs. Um abraço

https://social.technet.microsoft.com/wiki/contents/articles/2458.fechar-um-processo-local-e-remoto-pelo-taskkill-pt-br.aspx

Bom dia pessoal. Estou usando o ListView e senti falta de um método que retornasse todos os itens selecionados. Como não encontrei nada, acabei criando aqui. Segue os métodos #DEFINE LVM_GETITEMSTATE 0x102C ******************************************** METHOD GetItemState(nItem) CLASS tListView ******************************************** nItem := IIF(nItem=NIL, ::nOption,nItem) RETURN( SendMessage( ::hWnd,LVM_GETITEMSTATE, nItem,2)) ********************************************* METHOD GetItemSelected() CLASS tListView ********************************************* aItems := {} AEVAL(::aPrompts,{|Item,Pos| IIF( ::GetItemState(Pos-1) = 2, AADD(aItems,{Pos-1,Item}),.T.)}) RETURN(aItems) []'s Ana

Pessoal fiz a função, fucei na classe TIMAGE e encontrei uma maneira de identificar se o arquivo é uma imagem válida. Segue a função e o exemplo de uso. Obrigado a todos por tentarem ajudar ! sempre é válido ! vlwww Function u_Teste() Local cFile := cGetFile( "*.*", "Seleccione um arquivo" ) If ValidJpg(cFile) Mensagem("Imagem válida") Else Mensagem("Imagem inválida") EndIf Return Static Function ValidJpg(cArq) Return FITypeFromMemory(MemoRead(cArq)) >= 0

O site http://pt.giveawayoftheday.com/ tem para download softwares completos e grátis todos os dias. Os softwares ficam disponíveis durante 24 horas. São registrados como uma versão especial.. Não shareware nem demo. As limitações nestas versões são ausência de suporte ou atualizações... Estou acompanhando este site já faz tempo... as vezes tem algo interessante, noutras nem tanto. Vale a pena dar uma olhada sempre. Att. Everton

Olá PessoALL, Devido à enorme dificuldade em encontrar profissionais no mercado e apostar firme na trinca: xHabour/Fivewin/SQL, tive a idéia de criar um curso em B.Horizonte/MG para formar estes profissionais. A idéia seria pegar profissionais com conhecimento em outras linguagens, ou no mínimo algoritmo (sem isso, sem chance) e passar o dialeto da trinca. Mas seria uma coisa bem profissional com a finalidade de devolver o mesmo ao mercado executando as tarefas de programar, compilar e dar manutenção. Pensei em um curso igual aos existentes de java: - Básico; - Intermediário; - Avançado. Onde: Básico: Conceito da linguagem, declaração de variáveis, comandos, principais funções, classes, métodos, utilização de IDE (Pelles e não Workshop pq esta bagaça é coisa só do João rsrsrsrs), utilização de DBF (coisa do Wirts vixe), etc. Intermediário: Tudo do básico, algumas ferramentas como fastreport, declaração/utilização de DLL, etc. Avançado: Tudo do intermediário, conceitos e utilização de SQL, utilização de web-services, etc. Naturalmente que é uma visão inicial e pode inclusive sofrer alterações conforme os companheiros sugerirem. Para tudo isso, preciso saber se vai existir demanda, pois preparar um laboratório não é barato. Se a demanda for mínima e percebermos que não será uma coisa viável, naturalmente que a idéia morre aqui. Mas se existir a possibilidade de termos turmas substanciais é claro que iremos prosseguir. É isso, deem as suas opiniões. PS 1: Pessoal, claro que vou precisar de todo material que a galera tem para eu poder fazer uma compilação de tudo e gerar apostilas dinâmicas e claras. Isso dai é outra pedra no nosso sapato (material). PS 2: Vou conversar com o Gilmer para ver os aspectos legais (uso da LIB nos treinamentos), desconto na aquisição para quem fizer o curso, patrocínio da FivewinBrasil/FiveTech para que possamos fazer uma coisa bem em conta, etc.

Ola, pessoal ? onde posso adquir alguma didática de como criar classes para o FW ? Tenho visto em alguns tutoriais um tipo de rotina no final do arquivo prg algo como HBCLASS, Type Pascal, Boolean ... onde encontro estas explicações? Grato. Nelson Nunes de Araujo Santo André - SP nelson.n.araujo@hotmail.com nelson.n.araujo@gmail.com Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop

Olá galera. Estou tendo um problema com a xBrowse. Ela a princípio mostra a tela legal, porém ao clicar uma vez, em algumas linhas, ele posiciona o focus em registro diferente (coisa mais doida). O código está assim: /// DEFINE DIALOG oDlg RESOURCE 'SELECIONAAGENCIA' TITLE 'Usuário: '+oVs:UsCodOper+' '+oVs:UsNomeOper oDlg:lHelpIcon := .f. redefine xBrowse oLbx fields TmpAg->ag_codigo, TmpAg->ag_sigla, TmpAg->ag_cidade, TmpAg->ag_uf ; ALIAS 'TmpAg' ID 601 OF oDlg FIELDSIZES 80, 120, 170, 80 ; HEADERS 'Agência','Sigla','Cidade','UF' COLORS CLR_BLUE,CLR_WHITE UPDATE oLbx:blDblClick := {|| (lSair := .t., nOption := 1, oDlg:end() ) } oLbx:bKeyDown := {|nK| if( nK != VK_RETURN, , (lSair := .t., nOption := 1, oDlg:end() ))} redefine buttonBMP oBtn01 bitmap "ok16" ID 101 of odlg TEXTRIGHT action( lSair := .t., nOption := 1, oDlg:end() ) TOOLTIP 'Inicia o Trabalho com a Agencia Selecionada' redefine buttonBMP oBtn10 bitmap "sai16" ID 109 of odlg TEXTRIGHT action( lSair := .t., nOption := 2, oDlg:end() ) TOOLTIP 'Volta ao menu principal' CANCEL ACTIVATE DIALOG oDlg CENTERED valid lSair //// Coloquei uma tela anexo para vcs verem o que acontece. O estranho é que com o Duplo Clique funciona legal. Eu nem tinha percebido isso, mas o cliente me mostrou e eu fiquei assustado. Alguém tem a solução? Um abraço,

Galera, bom dia, desde o inicio de Dezembro do ano passado, o ISTOOL começou a nos dar problemas na hora de enviar o instalador para nosso FTP, as vezes vai e outras ele quebra a página. Alguém tem um instalador bom e fácil de usar? Obg. abs.

Guardando o link, vai que... https://code.google.com/p/fivewin-contributions/downloads/detail?name=TSBrowse.zip&can=2&q= abs.

Boa Tarde Pessoal! A minha resposta será na visão do Linares e não as minhas, mas irei responder para que de alguma forma o pessoal possa entender os motivo que leva o Linares a não dar sequencia aos produtos FIVEWIN..........: EM PRODUCAO A PASSOS DE TARTARUGA, QUANDO ATUALIZA VEM CHEIO DE BUG Tirando uma ferramenta IDE, não tem muito mais que evoluir o FW a não ser acertar bugs e pequenas novas atualizações ou classes que ganhe um visual novo, em 2013 ele liberou o recurso metro, que na verdade das GUI disponíveis do mercado e unica que tem, quanto ao BUG, certamente ele já esta pensando em como levar isto de uma melhor forma. Sobre a ferramenta IDE, ele sempre deixou claro que nunca foi seu objetivo, alias o pessoal cobra RDD diretamente da ferramenta, vale lembrar que o fivewin é uma GUI e não uma linguagem completa, esta dependência tem que vir do [x]harbour. FIVELINUX.......: PARADO Isto mostra falta de informação sua, agora é projeto FREE e realmente não foi para frente, justamente pq não tem demanda de vendas, como você ou qualquer outra pessoa, ele vai manter um produto, apenas se ele realmente der lucro, muita gente pediu! que precisava, etc.. que o mundo Windows iria acabar, mas esta ai... nada aconteceu para ambos os lados FIVEWEB........: IGUAL CABEÇA DE BACALHAU, EXISTE, MAS NINGUEM VÊ Ele liberou de forma FREE as primeiras versões para ver qual seria o interesse dos os usuários, já que existe um grupo pequeno que exige esta ferramenta, mesmo assim, novamente! a demanda foi muita pequena, como investir tempo o retorno é pequeno e ainda tem muita coisa para acontecer neste mercado WEB, inclusive o [x]harbour precisa ver que caminho vai tomar neste sentido. FIVEPPC.........: DESCONTINUADO, MAS QUANDO ESTA NA ATIVA NAO ERA ATUALIZADO Este produto teve um boa quantidade de venda e chegou no que deu de recurso para fazer para Pocket PC, mas a microsoft mudou o foco, fabricante de pocket não investe mais, pq continuar o produto? mas se você já usou!? você iria saber que desenvolvia qualquer sistema para pocket com sintaxe similar do FW FIVEDROID....: DESCONTINUADO, MAS NEM SABIA QUE ESTAVA SENDO FEITO Novamente começou uma ferramenta simples para avaliar mercado e novamente ele percebeu que não teria demanda suficiente para gerar um bom faturamento, quantas pessoas você encontra no mercado que tem esta necessidade!? FIVEMEC.........: SE NAO ESTIVER PARADO DEVE ESTAR QUASE. Este ai! pior ainda! quantos pontos de venda usa MAC ? quanto pontos de venda usa um IPOD Pessoal! Não existe mais hoje linguagem soberana! tudo mudou, hoje ferramenta moderna trabalha em camada, o que quer dizer isto!? se comunicar com qualquer uma, fazendo aquilo que ela faz de melhor.