Adalberto_sis

Acompanho este fórum a muito tempo, mesmo não sabendo muito de fivewin, não entendo este usuário Eric, nunca vi ele contribuindo em nada, talvez não tenha conhecimento suficiente para isto, que é o meu caso, mais entrar nos tópico com toda esta arrogância, com certeza é o tipo de usuário que só suga informações aqui, poderia pelo menos ser mais humilde e não dar palpite nos tópico...fica a dica Adalberto

citação:Feliz dia do amigos a todos os amigos!!! []'s id=quote>id=quote>Companheiro só por curiosidade, você não é aquele cara que sacaneou com varios aqui no forum pegando dinheiro para um congresso... Adalberto

Obrigado a todos pela força, irei testar as soluções aqui apresentada... Adalberto

Companheiros alguém saberia me dizer se existe algum soft, aonde eu posso comparar o conteudo(registros) de dois DBFs e ver a diferenças entre eles... Adalberto

Companheiros alguém saberia me dizer se existe algum soft, aonde eu posso comparar o conteudo(registros) de dois DBFs e ver a diferenças entre eles... Adalberto

Companheiros veja esta situação, tenho uma dialog com código do produto e valor unitário, ao digitar o código já me trás o valor unitário para o campo seguinte, gostaria de saber se ao dar o enter se o usuário alterou este valor, pensei em criar duas variáveis e fazer a comparação mais parece que existe um comando próprio para saber se houve alteração. Obrigado a todos Adalberto fwh612

Companheiros veja esta situação, tenho uma dialog com código do produto e valor unitário, ao digitar o código já me trás o valor unitário para o campo seguinte, gostaria de saber se ao dar o enter se o usuário alterou este valor, pensei em criar duas variáveis e fazer a comparação mais parece que existe um comando próprio para saber se houve alteração. Obrigado a todos Adalberto fwh612

ALE_SB obrigado pelas informações, já tinha anotado alguns exemplo aqui no fórum com == mais não sabia sua funcionalidade, fazendo desta forma deu certo. Adalberto FWH612

Companheiros, veja se alguém pode me ajudar if alltrim(forma->tipo)='CHEQUE' ? '1' elseif alltrim(forma->tipo)='CHEQUE-PRE' ? '2' id=code>id=code>abrindo o banco de dados o campo TIPO do registro tal esta como CHEQUE-PRE mais na comparação acima ele sempre para na primeira opção como se fosse CHEQUE... Obrigado a todos Adalberto FWH612

Companheiros, veja se alguém pode me ajudar if alltrim(forma->tipo)='CHEQUE' ? '1' elseif alltrim(forma->tipo)='CHEQUE-PRE' ? '2' id=code>id=code>abrindo o banco de dados o campo TIPO do registro tal esta como CHEQUE-PRE mais na comparação acima ele sempre para na primeira opção como se fosse CHEQUE... Obrigado a todos Adalberto FWH612

Gostaria de agradecer aos amigos pela ajuda, a rotina ficou assim. cFile := "C:\PRO.TXT" oFile := TTxtFile():New( cFile ) oFile:GoTop() while !oFile:lEof() cLine:=oFile:ReadLine() aTemp:=HB_aTokens(cLine," ") mprodu:=strzero(val(aTemp[1]),6) mdescri:=STRTRAN(aTemp[2],'"','') munidade:=strtran(aTemp[6],'"','') produto->(dbappend()) produto->codigo:=mprodu produto->descricao:=mdescri produto->tipo:=munidade oFile:skip() enddo oFile:end() id=code>id=code>Obs: pelo tamanho da cidade de Leme, tem muito programdor em fivewin, coisa rara, aqui em mogi não conheço ninguém... Adalberto fw612

Companheiros tenho que integrar um arquivo texto para meu banco de dados ,eu sempre usei para fazer isto um substr, mais neste caso não tem alinhamento esta seprado por " ", pior que são mais de 2 mil intens para alinhar manual, caso alguém tiver alguma dica... 1033 "CARTCUHO COMPATIVEL T-038 TB" "[584487]#" "" 0,10 "UN" 12,00 1019 "CARTUCHO CANON PG 30(PRETO)ORIGINAL" "[547530]#" "" 0,10 "UN" 1,00 1020 "CARTUCHO CANON PG 31 (TRICOLOR) ORIGINAL" "[395294]#" "" 0,10 "UN" 1,00 1022 "CARTUCHO CANON PG 40(PRETO) ORIGINAL" "[696151]#" "" 0,10 "UN" 1,00 1026 "CARTUCHO COMAPTIVEL 51629(29)MAGIC LASER" "[882292]#" "" 0,10 "UN" 1,00 1023 "CARTUCHO COMPATIVEL 22 MAGIC LASER" "[537429]#" "" 0,10 "UN" 3,00 571 "CARTUCHO COMPATIVEL 28 MAGIC LASER" "[560516]#" "" 49,00 "UN" 2,00 574 "CARTUCHO COMPATIVEL 49 51649 MAGIC LASER" "[593169]#" "" 35,00 "UN" 0,00 1029 "CARTUCHO COMPATIVEL 51629 WESTCORES" "[385559]#" "" 0,10 "UN" 1,00 1024 "CARTUCHO COMPATIVEL 51629(29) FABER-CASTELL" "[172333]#" "" 0,10 "UN" 2,00 1027 "CARTUCHO COMPATIVEL 51629(29) MASTERPRINT" "[412704]#" "" 0,10 "UN" 7,00 1028 "CARTUCHO COMPATIVEL 51629(29) MULTILASER" "[520751]#" "" 0,10 "UN" 21,00 573 "CARTUCHO COMPATIVEL 51645 WESTCORES" "[397293]#" "" 35,00 "UN" 0,00 id=code>id=code>Obrigado a Todos Adalberto

Companheiros tenho que integrar um arquivo texto para meu banco de dados ,eu sempre usei para fazer isto um substr, mais neste caso não tem alinhamento esta seprado por " ", pior que são mais de 2 mil intens para alinhar manual, caso alguém tiver alguma dica... 1033 "CARTCUHO COMPATIVEL T-038 TB" "[584487]#" "" 0,10 "UN" 12,00 1019 "CARTUCHO CANON PG 30(PRETO)ORIGINAL" "[547530]#" "" 0,10 "UN" 1,00 1020 "CARTUCHO CANON PG 31 (TRICOLOR) ORIGINAL" "[395294]#" "" 0,10 "UN" 1,00 1022 "CARTUCHO CANON PG 40(PRETO) ORIGINAL" "[696151]#" "" 0,10 "UN" 1,00 1026 "CARTUCHO COMAPTIVEL 51629(29)MAGIC LASER" "[882292]#" "" 0,10 "UN" 1,00 1023 "CARTUCHO COMPATIVEL 22 MAGIC LASER" "[537429]#" "" 0,10 "UN" 3,00 571 "CARTUCHO COMPATIVEL 28 MAGIC LASER" "[560516]#" "" 49,00 "UN" 2,00 574 "CARTUCHO COMPATIVEL 49 51649 MAGIC LASER" "[593169]#" "" 35,00 "UN" 0,00 1029 "CARTUCHO COMPATIVEL 51629 WESTCORES" "[385559]#" "" 0,10 "UN" 1,00 1024 "CARTUCHO COMPATIVEL 51629(29) FABER-CASTELL" "[172333]#" "" 0,10 "UN" 2,00 1027 "CARTUCHO COMPATIVEL 51629(29) MASTERPRINT" "[412704]#" "" 0,10 "UN" 7,00 1028 "CARTUCHO COMPATIVEL 51629(29) MULTILASER" "[520751]#" "" 0,10 "UN" 21,00 573 "CARTUCHO COMPATIVEL 51645 WESTCORES" "[397293]#" "" 35,00 "UN" 0,00 id=code>id=code>Obrigado a Todos Adalberto

Companheiros não consigo lembrar o comando do velho clipper para saber se um numero é inteiro Ex: 2 inteiro 2,34 fracionado caso alguém lembrar e poder me ajudar Obrigado Adalberto FHW 612

Companheiros não consigo lembrar o comando do velho clipper para saber se um numero é inteiro Ex: 2 inteiro 2,34 fracionado caso alguém lembrar e poder me ajudar Obrigado Adalberto FHW 612

Obrigado Luizão, com este comando cFileName(aRetorno) deu certo minha rotina. Fluna vlw pela rotina depois irei analisar ela. Obrigado a Todos Adalberto FWH612

Companheiros peguei um exemplo no forum assim: redefine get oGet1 var aRetorno pict"@" of oDlg id 106 ; action aRetorno:=cGetFile("Arquivo de Retorno (*.REM) |*.REM|" + ; "C:\",; "ARQUIVO RETORNO" ) BITMAP "PASTA" ; id=code>id=code>neste exemplo tenho o seguinte retorno c:\sis\boleto\retorno\010704.rem mais o retorno que preciso é o sequinte retorno\010704.rem preciso do retorno sem a unidade c:\, existe alguma maneira de fazer isto, ou preciso dar tratamento neste retorno com o SUBSTR para extrair somente o que preciso... Obrigado a Todos Adalberto FWH612

Companheiros peguei um exemplo no forum assim: redefine get oGet1 var aRetorno pict"@" of oDlg id 106 ; action aRetorno:=cGetFile("Arquivo de Retorno (*.REM) |*.REM|" + ; "C:\",; "ARQUIVO RETORNO" ) BITMAP "PASTA" ; id=code>id=code>neste exemplo tenho o seguinte retorno c:\sis\boleto\retorno\010704.rem mais o retorno que preciso é o sequinte retorno\010704.rem preciso do retorno sem a unidade c:\, existe alguma maneira de fazer isto, ou preciso dar tratamento neste retorno com o SUBSTR para extrair somente o que preciso... Obrigado a Todos Adalberto FWH612

As duas dica deu certo, vlw muito obrigado... Adalberto

Companheiros me deu um branco, precisava passar todos numero que fossem negativo para positivo, caso alguém poder me dar uma luz... Obrigado a Todos Adalberto FWH 6.12

Companheiros me deu um branco, precisava passar todos numero que fossem negativo para positivo, caso alguém poder me dar uma luz... Obrigado a Todos Adalberto FWH 6.12

citação:Falta retornar o focu para o objeto desejado na função carrega. oGet6:SetFocus() "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." id=quote>id=quote>Obrigado pela reposta, agora a rotina esta funcionando perfeito... Adalberto

Companheiros novamente vou recorrer a ajuda de voces... numa tela de pedido tenho duas opcoes de selecionar o produto, uma é atraves do get oGe1, e a outra é atraves de um listbox que fica aberto na mesma tela com todos produtos, nas duas situações o get oGe6 deve fica habilitado somente se dois campo satisfazer uma condição,usando a primeira opção funciona normal, mais usando a opcao de dois click no listbox o campo oGe6 não fica habilitado de forma alguma... redefine get oGe1 var cPro[1] pict"999999" id 101 of oPe:aDialogs[2] update ; valid pes_pro(@cPro,oPedi:aDialogs[2],@nEmba) redefine get oGe2 var cPro[2] pict"@!" id 102 of oPe:aDialogs[2] update redefine get oGe3 var cPro[3] pict"@!" id 103 of oPe:aDialogs[2] update redefine get oGe4 var cPro[4] pict"@E 99,999.99" id 105 of oPe:aDialogs[2] update redefine get oGe5 var cPro[5] pict"@E 99999" id 106 of oPe:aDialogs[2] update redefine get oGe6 var cPro[7] pict"@E 99999" id 104 of oPe:aDialogs[2] update ; when nEmba>0 .and. cPro>0 id=code>id=code> REDEFINE LISTBOX oBrw1 ; FIELDS produto->descricao,trans(produto->valor,"@E 9,999.99"),produto->codigo ; HEADERS "Descrição","Valor","Código" ; FIELDSIZES 170,30 ; ON CLICK carrega(cPro,oPe:aDialogs[2],@nEmba) ; ID 4004 of oPe:aDialogs[2] oBrw1:SetFont(oPe2) id=code>id=code> function carrega(cPro,oBjeto,nEmba) cPro[1]:=produto->codigo cPro[2]:=substr(produto->descricao,1,20)+CRLF+substr(produto->descricao,21,20) cPro[3]:=produto->tipo cPro[4]:=produto->valor cPro[5]:=1 cPro[6]:=produto->descricao nEmba:=produto->embalage cPro:=produto->valor2 msgalert(nEmba) oBjeto:aEvalWhen() oBjeto:refresh() oBjeto:update() return .t. id=code>id=code>Obs: buscando pelo forum achei este comando oBjeto:aEvalWhen() mais tb não adiantou nada... Obrigado a Todos Adalberto fwh612

Companheiros novamente vou recorrer a ajuda de voces... numa tela de pedido tenho duas opcoes de selecionar o produto, uma é atraves do get oGe1, e a outra é atraves de um listbox que fica aberto na mesma tela com todos produtos, nas duas situações o get oGe6 deve fica habilitado somente se dois campo satisfazer uma condição,usando a primeira opção funciona normal, mais usando a opcao de dois click no listbox o campo oGe6 não fica habilitado de forma alguma... redefine get oGe1 var cPro[1] pict"999999" id 101 of oPe:aDialogs[2] update ; valid pes_pro(@cPro,oPedi:aDialogs[2],@nEmba) redefine get oGe2 var cPro[2] pict"@!" id 102 of oPe:aDialogs[2] update redefine get oGe3 var cPro[3] pict"@!" id 103 of oPe:aDialogs[2] update redefine get oGe4 var cPro[4] pict"@E 99,999.99" id 105 of oPe:aDialogs[2] update redefine get oGe5 var cPro[5] pict"@E 99999" id 106 of oPe:aDialogs[2] update redefine get oGe6 var cPro[7] pict"@E 99999" id 104 of oPe:aDialogs[2] update ; when nEmba>0 .and. cPro>0 id=code>id=code> REDEFINE LISTBOX oBrw1 ; FIELDS produto->descricao,trans(produto->valor,"@E 9,999.99"),produto->codigo ; HEADERS "Descrição","Valor","Código" ; FIELDSIZES 170,30 ; ON CLICK carrega(cPro,oPe:aDialogs[2],@nEmba) ; ID 4004 of oPe:aDialogs[2] oBrw1:SetFont(oPe2) id=code>id=code> function carrega(cPro,oBjeto,nEmba) cPro[1]:=produto->codigo cPro[2]:=substr(produto->descricao,1,20)+CRLF+substr(produto->descricao,21,20) cPro[3]:=produto->tipo cPro[4]:=produto->valor cPro[5]:=1 cPro[6]:=produto->descricao nEmba:=produto->embalage cPro:=produto->valor2 msgalert(nEmba) oBjeto:aEvalWhen() oBjeto:refresh() oBjeto:update() return .t. id=code>id=code>Obs: buscando pelo forum achei este comando oBjeto:aEvalWhen() mais tb não adiantou nada... Obrigado a Todos Adalberto fwh612

Obrigado a todos pelas repostas, mais vou usar o set confirm ON, achei o mais correto e pratico... Obrigado Adalberto