jef2_tim

eduardo... qual o teu telefone fixo para podermos trocar uma ideia.. mande para meu email jeferson@impactusinformatica.com.br valeu amigo Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Uma cliente me mostrou uma danfe que o campo para reducao de base de calculo e o campo de margem de valor agregado estao diferentes, creio, do manual. No manual estes campos de percentuais sao de tamanho 5 com 2 casas decimais. Um deles me mostra um campo do valor de 16.267%, como pode isso se o campo so sao 2 casas decimais? E outra situacao é 103.00 %, como pode isso se sao apenas 5 caracteres? Só se o Ponto nao é entendido como caracter porem acho que se fosse assim o layout deveria ser como o sintegra, onde o sistema entende que os ultimos caracteres sao decimais e nao precisa mandar pontos. Algum amigo ja passou por isso? Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Uma cliente me mostrou uma danfe que o campo para reducao de base de calculo e o campo de margem de valor agregado estao diferentes, creio, do manual. No manual estes campos de percentuais sao de tamanho 5 com 2 casas decimais. Um deles me mostra um campo do valor de 16.267%, como pode isso se o campo so sao 2 casas decimais? E outra situacao é 103.00 %, como pode isso se sao apenas 5 caracteres? Só se o Ponto nao é entendido como caracter porem acho que se fosse assim o layout deveria ser como o sintegra, onde o sistema entende que os ultimos caracteres sao decimais e nao precisa mandar pontos. Algum amigo ja passou por isso? Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Valeu gunafe Mas este numero sequencia do equipamento quem lanca, o cara que faz o lacre ou o nosso sistema tem que cadastrar na impressora? Flow amigo Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigos obrigado .. vcs foram rapidos nas respostas e ideias... Realmente... a array estava recebendo um valor la que nao tem nada haver. No for ele estava com a (for a = 1 to len(....)) esta letrinha "a" do for que me kgou tudo, pois criei um campo tbm chamado A em um banco de dados LAAAAAAAAAAAAAAAA NA CAIXA PREGO que conflitou isto tudo ae... affffffff uauauua mas resolvido... obrigado amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigos... de um dia pro outro simplesmente comecou a dar este erro Application =========== Path and name: C:\Impac\Impac.EXE (32 bits) Size: 7,654,912 bytes Time from start: 0 hours 0 mins 44 secs Error occurred at: 28/09/11, 09:42:14 Error description: Error BASE/2022 Erro nos parƒmetros: ALLTRIM Args: [ 1] = U Stack Calls =========== Called from: => ALLTRIM(0) Called from: .\source\classes\COMBOBOX.PRG => (b)TCOMBOBOX:DEFAULT(660) Called from: => ASCAN(0) Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:DEFAULT(660) Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:INITIATE(605) Called from: => __OBJSENDMSG(0) Called from: => HB_EXECFROMARRAY(0) Called from: .\source\function\HARBOUR.PRG => OSEND(221) Called from: => HB_EXECFROMARRAY(0) Called from: .\source\function\HARBOUR.PRG => ASEND(199) Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(662) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273) Called from: C:\Projetos\saf_lb4.prg => WINTITULO(60) Called from: C:\Projetos\saf_ro1.prg => RO9_REL(370) Called from: C:\Projetos\saf_ro1.prg => (b)SAF_RO1(143) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427) Called from: .\source\classes\WINDOW.PRG => _FWH(3353) Called from: => SENDMESSAGE(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273) Called from: C:\Projetos\saf_ro1.prg => SAF_RO1(148) Called from: C:\Projetos\impac.prg => (b)BUILDMENU(954) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1017) Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(243) Called from: => TMDIFRAME:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(3353) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(966) Called from: C:\Projetos\impac.prg => MAIN(353) id=code>id=code>o codigo que chama este combo *-------------------------------------------------------- FUNCTION WinTitulo( cReport, cTitle, cSubTitulo,cNmeArq, Orc ) *-------------------------------------------------------- LOCAL cArea Local oDlgImp, noESC:=.f., mTip_Sai Local aImpressoras := Get_Impress() Local mImpress := Space(30) Local mImpLocal := .F. aItemTrf := {"Normal","Adobe PDF","WinWord (DOC)","Excel","XML"} If !lIsDir("C:\Impac\Reports") If MsgYesNo("Pasta de Relatórios Inexistente! O Impactus Irá Criar a Pasta de Relatórios.","Criando Pasta de Relatórios") If !lMkDir("C:\Impac\Reports") MsgStop("O Impactus Encontrou Problemas Para Criar Reports em Impac C:! Contate o Adminstrador.","Erro Ao Criar Pasta") Endif Endif Endif DEFINE DIALOG oDlgImp RESOURCE "PRINT" ReDefine CheckBox oModDOS Var mModDos ID 121 OF oDlgImp; UPDATE Redefine CheckBox olViz Var lViz ID 122 Of oDlgImp ; When !mModDos ReDefine CheckBox oImpLocal Var mImpLocal ID 130 OF oDlgImp; UPDATE ReDefine ComboBox oImpress Var mImpress ITEMS aImpressoras ID 123 OF oDlgImp ; UPDATE; When mModDos .and. !mImpLocal ReDefine ComboBox oTipTrf Var mTipTrf ITEMS aItemTrf ID 124 OF oDlgImp ; UPDATE; When !mModDos Redefine BUTTON oOk ID 125 OF oDlgImp; Action (noESC:=.t.,oDlgImp:End(), cReport := mImpress ) Cancel Redefine BUTTON oCancel ID 126 OF oDlgImp; Action ( noESC:=.t.,oDlgImp:End(), cReport := "C" ) Cancel ACTIVATE DIALOG oDlgImp CENTERED Valid noESC Return cReport + If(mImplocal,"L","R") * id=code>id=code>estava normal e do nada parou de funcionar... e nao estou compreendendo que erro é este se alguem puder me dar uma luz flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA Editado por - jef2_tim on 28/09/2011 10:19:36

Amigos... de um dia pro outro simplesmente comecou a dar este erro Application =========== Path and name: C:\Impac\Impac.EXE (32 bits) Size: 7,654,912 bytes Time from start: 0 hours 0 mins 44 secs Error occurred at: 28/09/11, 09:42:14 Error description: Error BASE/2022 Erro nos parƒmetros: ALLTRIM Args: [ 1] = U Stack Calls =========== Called from: => ALLTRIM(0) Called from: .\source\classes\COMBOBOX.PRG => (b)TCOMBOBOX:DEFAULT(660) Called from: => ASCAN(0) Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:DEFAULT(660) Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:INITIATE(605) Called from: => __OBJSENDMSG(0) Called from: => HB_EXECFROMARRAY(0) Called from: .\source\function\HARBOUR.PRG => OSEND(221) Called from: => HB_EXECFROMARRAY(0) Called from: .\source\function\HARBOUR.PRG => ASEND(199) Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(662) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273) Called from: C:\Projetos\saf_lb4.prg => WINTITULO(60) Called from: C:\Projetos\saf_ro1.prg => RO9_REL(370) Called from: C:\Projetos\saf_ro1.prg => (b)SAF_RO1(143) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427) Called from: .\source\classes\WINDOW.PRG => _FWH(3353) Called from: => SENDMESSAGE(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944) Called from: => DIALOGBOX(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273) Called from: C:\Projetos\saf_ro1.prg => SAF_RO1(148) Called from: C:\Projetos\impac.prg => (b)BUILDMENU(954) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1017) Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(243) Called from: => TMDIFRAME:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(3353) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(966) Called from: C:\Projetos\impac.prg => MAIN(353) id=code>id=code>o codigo que chama este combo *-------------------------------------------------------- FUNCTION WinTitulo( cReport, cTitle, cSubTitulo,cNmeArq, Orc ) *-------------------------------------------------------- LOCAL cArea Local oDlgImp, noESC:=.f., mTip_Sai Local aImpressoras := Get_Impress() Local mImpress := Space(30) Local mImpLocal := .F. aItemTrf := {"Normal","Adobe PDF","WinWord (DOC)","Excel","XML"} If !lIsDir("C:\Impac\Reports") If MsgYesNo("Pasta de Relatórios Inexistente! O Impactus Irá Criar a Pasta de Relatórios.","Criando Pasta de Relatórios") If !lMkDir("C:\Impac\Reports") MsgStop("O Impactus Encontrou Problemas Para Criar Reports em Impac C:! Contate o Adminstrador.","Erro Ao Criar Pasta") Endif Endif Endif DEFINE DIALOG oDlgImp RESOURCE "PRINT" ReDefine CheckBox oModDOS Var mModDos ID 121 OF oDlgImp; UPDATE Redefine CheckBox olViz Var lViz ID 122 Of oDlgImp ; When !mModDos ReDefine CheckBox oImpLocal Var mImpLocal ID 130 OF oDlgImp; UPDATE ReDefine ComboBox oImpress Var mImpress ITEMS aImpressoras ID 123 OF oDlgImp ; UPDATE; When mModDos .and. !mImpLocal ReDefine ComboBox oTipTrf Var mTipTrf ITEMS aItemTrf ID 124 OF oDlgImp ; UPDATE; When !mModDos Redefine BUTTON oOk ID 125 OF oDlgImp; Action (noESC:=.t.,oDlgImp:End(), cReport := mImpress ) Cancel Redefine BUTTON oCancel ID 126 OF oDlgImp; Action ( noESC:=.t.,oDlgImp:End(), cReport := "C" ) Cancel ACTIVATE DIALOG oDlgImp CENTERED Valid noESC Return cReport + If(mImplocal,"L","R") * id=code>id=code>estava normal e do nada parou de funcionar... e nao estou compreendendo que erro é este se alguem puder me dar uma luz flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA Editado por - jef2_tim on 28/09/2011 10:19:36

Alguem ja tem? Busco uma boa parceria para revender o sistema Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Alguem ja tem? Busco uma boa parceria para revender o sistema Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola gunafe Nao é o serial do ECF e sim o numero dado a ele dentro do estabelecimento comercial. (Numero do equipamento). EU me lembro que tem um comando que vc diz qual é o numero daquele equipamento no estabelecimento... Precisa deste numero para gerar o sintegra... Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola macs Este programa é free? Ele manda para a imprssora LX300 em modo texto ? (Draft) EU uso atualmente o noDosImp porem ele faz com que o condencado fique extremamente pqno... e se eu tento usar uma letra acima de tamanho ele ja fica grande demais... nao fica como o DOS mesmo. o Time fica como o DOS? flow amigo Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola macs Este programa é free? Ele manda para a imprssora LX300 em modo texto ? (Draft) EU uso atualmente o noDosImp porem ele faz com que o condencado fique extremamente pqno... e se eu tento usar uma letra acima de tamanho ele ja fica grande demais... nao fica como o DOS mesmo. o Time fica como o DOS? flow amigo Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Nao encontrei no HELP o comando para colocar o numero do equipamento no ECF para poder gerar o Sintegra, alguem sabe? Flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Nao encontrei no HELP o comando para colocar o numero do equipamento no ECF para poder gerar o Sintegra, alguem sabe? Flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Sem crysis luis.. tranquilo... eu sei q às vezes agente fica meio complicado... e sei que eu nao devia ter postado, mas só postei pq tem haver com meu problema anterior entende... querendo ou nao... é uma demonstracao de que temos que pensar às vezes pois a solucao é mais simples do que parece entende um xharbraço amigos... bom fim d semana... tudo de bom e até mais Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Luis... É tao extressante ser programador, temos muitos problemas fora os que ja temos na vida, como esposas, quem tem filhos filhos... e tudo mais... Achei interessante brincar um pouco, alguem que leu pode ter achado graça e assim fazendo pode ter ajudado a descontrair e conseguir a solucao que quer com a mente mais tranquilinha... Relaxa luis... apenas relaxe, às vezes faz bem e é bom http://desciclopedia.ws/wiki/Programa%C3%A7%C3%A3o_Orientada_a_Gambiarras acessa ae depois, tem um monte de besteira para ler e descancar um tikinho a mente de programador uauauuauaua e a resposta tem haver com o problema do topico sobre SQL que postei antes... só nao coloquei no mesmo pq nao queria me extressar Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA Editado por - jef2_tim on 22/09/2011 16:40:55

Método MacGyver O programador. Método MacGyver é um avançado método de criação de sistemas no qual o programador ou, preferencialmente, o gambiarrizador, de posse de recursos e informações limitadas, consegue desenvolver um complexo sistema por completo e em questão de horas. O método recebe este nome pois, fazendo-se um comparativo com o mundo cotidiano, é equivalente a pegar um sabonete, um clipes e um chiclete e com estes ingredientes construir uma bomba atômica, metodologia de construção exaustivamente utilizada por MacGyver. Sua principal característica é a de ser infalível, não importando as condições e o tempo disponível. MacGyver e o Método MacGyver são indispensáveis em qualquer projeto que utiliza a Programação Orientada a Gambiarras. Otem aconteceu isso: Em uma consulta de SQL tentando retornar todos os produtos que entraram no meu estoque porem organizando por data de entrada de forma decrescente, porem... eu precisava obter em outro momento.. da mesma consulta o menor valor contido no campo valor de custo, mas manter a organizacao na GRID... Apos tentar de varias formas... o Metodo MacGyver de meu amigo programador entrou em acao... Fazer a Query pelo valor de custo e organizar a GRID pela ordem de data decrescente... uauauuaua Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Método MacGyver O programador. Método MacGyver é um avançado método de criação de sistemas no qual o programador ou, preferencialmente, o gambiarrizador, de posse de recursos e informações limitadas, consegue desenvolver um complexo sistema por completo e em questão de horas. O método recebe este nome pois, fazendo-se um comparativo com o mundo cotidiano, é equivalente a pegar um sabonete, um clipes e um chiclete e com estes ingredientes construir uma bomba atômica, metodologia de construção exaustivamente utilizada por MacGyver. Sua principal característica é a de ser infalível, não importando as condições e o tempo disponível. MacGyver e o Método MacGyver são indispensáveis em qualquer projeto que utiliza a Programação Orientada a Gambiarras. Otem aconteceu isso: Em uma consulta de SQL tentando retornar todos os produtos que entraram no meu estoque porem organizando por data de entrada de forma decrescente, porem... eu precisava obter em outro momento.. da mesma consulta o menor valor contido no campo valor de custo, mas manter a organizacao na GRID... Apos tentar de varias formas... o Metodo MacGyver de meu amigo programador entrou em acao... Fazer a Query pelo valor de custo e organizar a GRID pela ordem de data decrescente... uauauuaua Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Legal... Jogar o resultado em uma array fica mais facil e leve de trabalhar flow amigao Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Nao estou usando rdd.. acesso direto a mysql... nao estou usando dbf.. acesso direto SELECT safrep.DOCREP AS DOCREP, safrep.SERDOC AS SERDOC, safrep.DATEEE AS DATEEE, safrep.DATMOV AS DATMOV, safrep.CODPRO AS CODPRO, safrep.QTDPRO AS QTDPRO, safrep.VLRCUS AS VLRCUS, safrep.CODFRN AS CODFRN, saffrn.NME AS NME, saffrn.TEL AS TEL, saffrn.FAX AS FAX, safrep.CODEMP AS CODEMP FROM saffrn, safrep WHERE safrep.CODFRN=saffrn.CODFRN AND (safrep.CODPRO='%1' AND safrep.DATMOV BETWEEN '%2' AND '%3' AND safrep.CODEMP LIKE '%4' AND safrep.STATU = 'N') ORDER BY DATMOV DESC id=code>id=code>nao tem como eu mudar somente o order de uma query e mandar um refresh query ? sei la algo assim? a query esta retornando correto os dados... de DARMOV DESC quero reordenar para VLRCUS e usar o mesmo bs Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Nao sei nenhum bom forum nacional de mysql mas sei que os amigos aqui sao feras tbm nisso entao... Eu fiz uma query onde me retorna la umas informacoes em uma determinada ordem, eu gostaria de saber se ha como eu alterar a ordem destes resultados em outro momento para nao precisar fazer uma nova consulta? Ex: Fiz uma query que me retorna os produtos fornecidos por todos os fornecedores em um determinado periodo ordenado pela data de entrada. Depois que extrai as informacoes do resultado ou quero mudar a ordem para que possa saber qual o registro que tem o campo VLRCUS de menor valor ... entende? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Nao sei nenhum bom forum nacional de mysql mas sei que os amigos aqui sao feras tbm nisso entao... Eu fiz uma query onde me retorna la umas informacoes em uma determinada ordem, eu gostaria de saber se ha como eu alterar a ordem destes resultados em outro momento para nao precisar fazer uma nova consulta? Ex: Fiz uma query que me retorna os produtos fornecidos por todos os fornecedores em um determinado periodo ordenado pela data de entrada. Depois que extrai as informacoes do resultado ou quero mudar a ordem para que possa saber qual o registro que tem o campo VLRCUS de menor valor ... entende? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Verifique a quantidade de variaveis publicas.. passei por isso no comecinho justamente por excesso de variaveis publicas. Eu entrava no sistema e do nada fechava... outra coisa é como kapiaba falow... olhe as classes e pegue as corretas para 32bits... procure ... principalmente neste comeco, usar classes do proprio five win... e nao de terceiros... se puder fazer isso vai ajudar a converter... ae depois vc vai colocando as classes.. à medida q vai testando e tendo certeza q elas estao em 32bits flow Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

oUrl:=turl():New("http://xxxxxx.xxxxns.XxfX/senhas/" + variavel + ".variavel") cUrl:="http://xxxxxx.xxxxns.XxfX/senhas/" + variavel + ".variavel") opg := TipClientHttp():New( oUrl ,.t.) opg:nConnTimeout := 20000 // ? "Connecting with", oUrl:cServer if !(opg:Open( cUrl )) MsgInfo('Não foi possivel conectar-se com a impactus para cadastrar o cliente na base de dados') else cBuf_Senha := opg:readAll() Endif id=code>id=code>Com o turl funciona! Ele vai no servidor pegar a informacao no momento que solicitdo! O comando anterior serviu apenas para eu executar um site... porem ao tentar pegar uma info dava aquele problema! Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Eu uso para poder acessar um local na net e pegar uma informacao oPg_Senha:=CreateObject("Microsoft.XMLHTTP") oPg_Senha:Open("GET","http://XXX.XXXns.info/sXXaX/" + mCnpj + ".txt",.F.) // aqui eu acesso uma pagina pegando um arquivo q é o cnpj do cliente Try oPg_Senha:Send() catch oError msgstop("ERRO AO VALIDAR SISTEMA!!!" + oError:Description + ". O Impactus Carregara a Ultima Estrutura de Liberacao Carregada Na Ultima Execucao","Erro Ao Validar Impactus") Error_Net := .T. End Try Inkey(1) if !Error_NET cBuf_Senha := oPg_Senha:responseBody // aqui pego o conteudo do arquivo msginfo(cBuf_Senha) Endif Endif id=code>id=code>o problema é que ... se eu alterar, no servidor o conteudo deste arquivo, e fizer novamente esta funcao dentro do sistema sem sair dele ele me retorna o valor anterior... é como que o primeiro conteudo fica gravado na memoria e só consigo receber o valor correto se eu sair e entrar no sistema e fazer a consulta novamente... ha como eu esvaziar ou dar um fim no comando para poder a cada vez que executo obter o valor correto? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA