PC Toledo

Código: Selecionar todos

#include <hmg.ch>

Function ImportaSped()
     
   
     
     
    Define Window Imp_Sped at 0,0 WIDTH 1230 HEIGHT 660 TITLE "IMPORTA ARQUIVO SPED" modal
        @ 530,11 Label   LblPesquisa Value "Pesquisar" width 60
        @ 530,85 TextBox TxtPesquisa Width 600 On Change AcharReg()
        @ 568,10 BUTTON BtAbre_txt CAPTION "Abrir" WIDTH 100 ACTION(ABRE_TXT_SPED())
     
        Define Grid GridSped
            Parent Imp_Sped ; Row 10 ; Col 10
            Width 1195
            Height 500
            Headers {"Linhas do Sped"}
            Widths {1700}
            FontName "arial" && "Courier New"  
            FontSize 11 && 10
            FontBold .t.
            ToolTip "Arquivo texto do Sped - Efd - Sped Fiscal"
            On DblClick ChamaClick()       
        End Grid

      Define StatusBar 
         date
      End StatusBar
   End Window
    
    Imp_Sped.Center
    Activate Window Imp_Sped
    

FUNCTION ABRE_TXT_SPED()
LOCAL X 

    x:=GetFile({{"Arquivo *.TXT","*.txt"},{"Arquivo *.*","*.*"}},"Escolhendo o Arquivo","C:\prg\teste",.f.,.t.)
    
    select 1
    use arq.dbf
    zap
    Append from &x sdf
    dbgotop()
    
    
    do while .not. eof()
       add item {arq->linha} to GridSped of Imp_Sped
       dbskip()
    Enddo 
    
    Imp_sped.GridSped.setfocus
    /*
    if .not. empty(x)
        MsgInfo(x)
    endif*/
RETURN    


Function AcharReg()
   
   locate for At(Imp_Sped.txtPesquisa.Value, arq->linha) > 0
   
   IF FOUND()
          // add item {arq->linha} to Gindice of Imp_Sped
          // Imp_Sped.Gindice.refresh
          
          
   ENDIF
   

Return

Código: Selecionar todos

Function AcharReg()
   DbGoTop()

   LOCATE FOR AT(RTRIM(Imp_Sped.txtPesquisa.Value), arq->linha) > 0

   DELETE ITEM ALL FROM GridSped OF Imp_Sped

   DO WHILE Found()
     ADD ITEM {arq->linha} TO GridSped OF Imp_Sped
     CONTINUE
   ENDDO

   Imp_Sped.GridSped.Refresh

Return Nil