osmarindy

Elaborei um sistema na empresa onde trabalho que também não poderia ser acessado de casa, apenas criei um servidor local e um sistema de login. Talvez isso possa te ajudar.

Boa noite, estou com um problema no retorno dos meus dados pelo json. Seguinte criei algumas classes php. em todas coloquei o codigo: header('Content-Type: text/html; charset=UTF-8'); para tentar minimizar os problemas com o charsert. Porem, na busca por cep tenho uma classe que busca as informações do banco. Essa classe busca a informação e verifica a quantidade de registros encontrados. $total = ($arrayCollection) ? mysql_num_rows($arrayCollection):0; e atribui aos atributos da classe os valores. após volto para a classe buscacep. onde tem o seguinte código $busca = $buscaCepObj->getCep($cep);(GetCep retorna a quantidade de registros encontrados) if($busca==1){ $dados["txtSucesso"] = $busca; $dados["txtLogradouro"] = $buscaCepObj->getNmLogradouro(); $dados["txtBairro"] = $buscaCepObj->getNmBairro(); $dados["txtCidade"] = $buscaCepObj->getNmCidade(); $dados["txtEstado"] = $buscaCepObj->getNm_Uf(); $dados["txtCodCep"]= $buscaCepObj->getCdLogradouro(); }else{ Porem, se mando imprimir o objeto cep imprime corretamente. echo $buscaCepObj->getNmLogradouro(); Caso mandar imprimir o objeto pelo json, da problema no charset. echo $dados; alguém sabe como resolver?

Excel? usa o comando Hide para o formulário que você não quer que aparece. Private Sub btnDuvida_Click() frmOcultar.Hide frmMostrar.Show End Sub

Resolvido, foi so mudar o tipo de variavel de float para double

Boa tarde, Alguém poderia me ajudar, estou tentando criar uma rotina vba para calcular no autocad a distância entre dois pontos: distancia = ThisDrawing.Utility.GetDistance e inserir um texto com o valor da distância no meio dos dois pontos selecionados. Set Txt = ThisDrawing.ModelSpace.AddText(distancia, ponto, alturatxt) porem não tenho a menor noção de como capturar as coordenadas para inserir o texto. Alguém sabe como pegar a coordenada e calcular o ponto de inserção do texto? grato.

Boa tarde pessoal, Estou desenvolvendo uma rotina vba para autocad, onde faz uma busca no desenho capturando todos os itens. Depois para os textos com determinados layers são calculados e exportados para uma planilha excel, mas, não estou conseguindo capturar os dados mantendo as casas decimais. Alguém sabe como consigo fazer isso. Segue trecho do código: For Each elem In ThisDrawing.ModelSpace With elem 'captura do layer do texto Array1 = .Layer 'acrescenta o valor para cada variavel de acordo com o layer Select Case Array1 Case "texto-cc-poste" textoCcPoste = textoCcPoste + Val(elem.TextString) Case "espinado" espinado = espinado + Val(elem.TextString) Case "espinadoJunto" espinadoJunto = espinadoJunto + Val(elem.TextString) Case "espinadoSemCordo" espinadoSemCordo = espinadoSemCordo + Val(elem.TextString) Case "cordoalha" cordoalha = cordoalha + Val(elem.TextString) Case "auto" auto = auto + Val(elem.TextString) End Select 'incrementa o numero de objetos verificados count = count + 1 End With Next elem