Jump to content
Fivewin Brasil

Search the Community

Showing results for tags 'get'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • FiveWin
    • WorkShop
    • Advantage Server
    • FiveScript
    • FiveWin Avaliação
    • TopConnect
    • Classes
    • Programação
    • FiveWin - Conversão de 16 bits para 32 bits
    • Seminário
    • Artigos / Tutoriais
    • Off - Topic
  • Suporte Estendido
    • Duvidas Gerais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 5 results

  1. Boa tarde Tenho um GET num programa para emissao de MDFE, o get e para digitar o codigo do Barras do CT-e ou passar o leitor quando Digito o sistema não dá erro ou se copio e colo a chave no get function movsai_mdf_imp_um() local oDlg, oBrush, oFont local mxChave := SPACE(44) mxPesq := space(44) mxAverb := space(44) mchave := "" lMaisdeUm := .f. lCartaCorrecao := .f. Set Confirm on SET SOFTSEEK ON DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 DEFINE DIALOG oDlg SIZE 700,220 ; PIXEL TITLE "INFORMA A CHAVE DA CTE A PESQUISAR" @ 10,10 SAY "Informe a Chave do CT-e " SIZE 80,12 PIXEL OF oDlg @ 25,10 GET oGet VAR mxPesq Picture "@!" SIZE 170, 12 PIXEL OF oDlg UPDATE @ 3,1 CHECKBOX lmAISDEuM PROMPT "&Tem mais de um CT-e o MDF-e." OF oDlg @ 4,1 CHECKBOX lCartaCorrecao PROMPT "Tem Carta de Correção este CT-e." OF oDlg @ 70,10 SAY "Informe o No. da Averbação " SIZE 120,12 PIXEL OF oDlg @ 85,10 GET oGet2 VAR mxAverb Picture "@!" SIZE 170, 12 PIXEL OF oDlg @ 10,250 BTNBMP PIXEL OF oDlg PROMPT "Executa" TOOLTIP "Executar a Pesquisa" FILE mrede_path+"\imagem\CONFIR.bmp" 2007 ACTION {( MOVSAI_MDF_IMP(alltrim(mxPesq),mxAverb),oDlg:end())} SIZE 32, 32 ACTIVATE DIALOG oDlg CENTERED RELEASE FONT oFont SET SOFTSEEK OFF Set Confirm off dbselectarea("movfin") dbseek(mchavefil+MCHAVE) ORDSCOPE(TOPSCOPE,mchaveFil) ORDSCOPE(BOTTOMSCOPE,mchaveFil) movfin->( dbgotop() ) movfin->( dbgobottom() ) * movsai_mdf_R() return nil Mas quando leio pelo leito ele me apresenta o seguinte erro Application =========== Path and name: D:\Aplicx\CONES\cones.EXE (32 bits) Size: ********* bytes Compiler version: xHarbour build 1.0.0 Intl. (SimpLex) FiveWin Version: FWHX 9.04 Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 17 secs Error occurred at: 01/06/2018, 13:07:15 Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: TGET.prg => TGET:KEYCHAR( 1155 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) que pode ser feito ? tenho um outro programa identico mas em FWH 18.01 e BCC 7.00 que tem a mesma funcao ele nção dá esse erro, outra coisa no win 7 não dá mas se executo no Win 10 dá, que dá para fazer neste caso.
  2. #include "FiveWin.ch" //----------------------------------------------------------------------------// Function Main() local oDlg, oRich Define font ofnt name "Lucida Console" size 0,-12 vTab:={" "} vGet:={} ctxt:=MemoRead( "Teste.txt" ) For x=1 to mLcount(cTxt,95) cFrase:=MemoLine(cTxt,95,x) aadd(vtab,cFrase) Next DEFINE DIALOG oDlg from 1,1 to 40,100 lin:=1 For i=1 to Len( vtab ) nLin:=lin*9.0 @ nlin,10 say vtab of odlg font oFnt pixel cTxt:=vtab For x=1 to len( cTxt ) If substr(ctxt,x,1)="[" wtxt:=substr(ctxt,x) nPos:=at("]",wtxt) nTam:=iif(nPos>0,nPos-2,0) cVar:=iif(nTam>0,substr(ctxt,x+1,nTam)," ") If nTam > 0 aadd(vGet,{ nlin-2 , (x*3.5)+8.4 , cVar } ) Endif Endif Next lin+=.9 Next aadd(vGet,{ NIL , NIL , NIL} ) For i=1 to Len( vGet )-1 @ vGet[i,1],vGet[i,2] get oGet Var vGet[i,3] of odlg pixel noborder // size len(vGet[i,3])*4,8 Next ACTIVATE DIALOG oDlg CENTERED Return NIL Exemplo do texto: Este é um texto onde as posições do get dentro dele são flutuantes, dependendo de onde estiver um colchete [ ] estilo o bom e velho cliper. Teste1 [ ] Teste2 [ ] e [ ] ou [ ] teste3 [ ] teste4 [ ],[ ],[ ],[ ],[ ],[ ],[ ]
  3. Bom Dia Pessoal!!! Estou precisando do seguinte: Tenho uma variavel (cDescricao) em um GET, ele já entra com um conteudo especifico; eu preciso forçar que o usuário modifique este conteudo, acrescentado mais alguma informação... como faço isto?
  4. Gostaria de saber como mudar a cor "branca" do GET quando ele for desabilitado pelo método :Disable(). Valeu !!!
  5. Pessoal, to roendo unhas já faz tempo, já fiz testes, mudei refiz, alterei.. só não deletei tudo! rsrsrsr O que acontece é o seguinte: Tenho um cadastro de disciplinas, neste cadastro eu gravo até 5 descrições, que são as tópicos ensinados aos alunos. Então em cada turma aberta, eu linko as disciplinas e consequentemente os tópicos. Fiz uma opção de avaliação, para que o professor assinale se o aluno aprendeu o tópico ou não. Como são várias disciplinas, e cada disciplina pode ter 5 tópicos, eu fiz com que o operador escolha a turma, o aluno e depois disso eu monto o rFolder com as disciplinas daquela turma e em cada aba eu coloco os tópicos referentes a disciplina, e dou os get´s.. até aqui ta tudo certo.. o que ta acontecendo é que minhas variáveis sempre são somente as ultimas.. tipo, fiz um for/next para inicializar as variáveis. for n_td := 1 to len( a_Disci) __c_ := strzero( n_td, 2, 0 ) if empty( qtde_abas ) qtde_abas := str(n_Td ) else qtde_abas := qtde_Abas + "," + alltrim( str(n_Td ) ) endif n_GetAval1_&__c_. := 0 n_GetAval2_&__c_. := 0 n_GetAval3_&__c_. := 0 n_GetAval4_&__c_. := 0 n_GetAval5_&__c_. := 0 * c_GetAval1_&__c_. := space(10) c_GetAval2_&__c_. := space(10) c_GetAval3_&__c_. := space(10) c_GetAval4_&__c_. := space(10) c_GetAval5_&__c_. := space(10) next e depois de inicializada as variáveis eu coloquei elas na Aba desta maneira.: if len( a_DCodi ) > 0 for n_Cd2 := 1 to len( a_DCodi) * c_nGet := strzero( n_Cd2, 2, 0 ) * select Topicos set order to 03 go top * if dbseek( alltrim( a_DCodi[n_Cd2] + TurmaEscolhida + strzero( nRad1, 2, 0 ) + strzero( val( nCbx2 ), 4, 0 ) ) ) * CodTurmaVet := a_DCodi[n_Cd2] aadd( a_AvlTp, { CodTurmaVet, ITEM_FORM } ) * * @ 40,20 Say ITEM_LN01 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 75,20 Say ITEM_LN02 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 110,20 Say ITEM_LN03 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 145,20 Say ITEM_LN04 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 @ 180,20 Say ITEM_LN05 Size 480,20 of oFld4:aDialogs[n_Cd2] Pixel Color CLR_BLACK, nRGB( 164, 190, 219 ) Font oFont3 * * @ 40,610 get oGet1&c_nGet. VAR c_GetAval1_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 75,610 get oGet2&c_nGet. VAR c_GetAval2_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 110,610 get oGet3&c_nGet. VAR c_GetAval3_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 145,610 get oGet4&c_nGet. VAR c_GetAval4_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" @ 180,610 get oGet5&c_nGet. VAR c_GetAval5_&c_nGet. SIZE 78, 20 COLOR 0, 16777215; PICTURE "@" PIXEL OF oFld4:aDialogs[n_Cd2] FONT oFont2 message "Lançamento de avaliações - Use conceitos de: [Não Atende/Parcialmente/Atende]" valid GrAvalFolder( a_AvlTp, a_DCodi, a_Disci, TurmaEscolhida, strzero( nRad1, 2, 0 ), strzero( val( nCbx2 ), 4, 0 ), c_GetAval1_&c_nGet., c_GetAval2_&c_nGet., c_GetAval3_&c_nGet., c_GetAval4_&c_nGet., c_GetAval5_&c_nGet., c_nGet ) * endif next endif Então não importa qtas abas eu tenha, as variáveis sempre serão da ultima.. No caso se tenho 4 abas eu teria que ter na Aba 01 a variável c_GetAval1_01, e na Aba 02 a variável c_GetAval1_02... mas sempre fico só com a ultima... a c_GetAval0_05. Como posso fazer para que cada aba tenha sua variável distinta? Ps.: Desculpem o post longo e por ter me enrolado muito... Att.
×
×
  • Create New...