PC Toledo

Código: Selecionar todos

//Programador: Anderson Vieira
//Liguagem...: Clipper 5x
//Objetivo...: Preencher variaveis somente se necessario

cls

teste1=space(20)
teste2=space(20)

var1=space(40)
var2=space(40)
var3=space(40)
var4=space(40)
*--siga este procedimento, que declara o array, troque pelo nome das suas
*--vars, atente-se no primeiro sem aspas e no segundo com aspas
arCampos:={{var1,"var1"},;
           {var2,"var2"},;
           {var3,"var3"},;
           {var4,"var4"};
          }
*--array para retornar os dados editados
arBuffer:={}

*--variavel de exemplo, para demonstrar o preechimento
*--quando a var1 esta entre variaveis
@09,27 say"   Teste1:" get teste1

@10,27 say"Historico:" get var1 valid edicao(10,39,arCampos,40)=.t. 
*--estas sao as demais variaveis que serao usadas
*--preencher o campo de 160 posicoes, se nao
*--quiser visualiza-las na tela, desative-as
@11,27 say"          " get var2 when passa()=.t. 
@12,27 say"          " get var3 when passa()=.t. 
@13,27 say"          " get var4 when passa()=.t. 

*--variavel de exemplo, para demonstrar o preechimento
*--quando a var1 esta entre variaveis
@14,27 say"   Teste2:" get teste2
@23,00 say padc("*** No campo HISTORICO tecle ENTER para preencher todo o historico ***",79)
read


? var1
? var2
? var3
? var4

Código: Selecionar todos

function edicao()
parameters l1,c1,arCampos,largura
local tela
priv sub:=0

*--obtem sempre o vlr atualizado da var atual
var=readvar() //arCampos[1,2] //readvar()
vlr=&var

if lastkey()#13
return .t.
endif

keyb chr(255)
inkey(0)

*--array para uso na funcao achoice
if len(arBuffer)=0
aadd(arBuffer,padr(vlr,40)) //arCampos[1,1])
else
arBuffer[1]=vlr
endif

for i = 2 to len(arCampos)
   if !empty(arCampos[i,1])
      var=arCampos[i,2]
      vlr=&var
      aadd(arBuffer,padr(vlr,40))
   endif
next

do while .t.
lfin=l1+len(arBuffer)

l4=lfin
tela:=savescreen(l1-1,c1-1,l4+2,c1+1+largura)

set colo to b/w,w/b
@l1-1,c1-1 to lfin,c1+largura
@lfin+1,c1-1 say padr("F10=Aceitar  Esc=Cancelar  Del=Exclui",largura+3)

sub=achoice(l1,c1,lfin,c1+largura-1,arBuffer,"","contro",sub)
restscreen(l1-1,c1-1,l4+2,c1+1+largura,tela)
if lastkey()=-9
   for i=1 to len(arCampos)
       if i<=len(arBuffer)
       cmp=arCampos[i,2]
       &cmp=arBuffer[i]
       else
       cmp=arCampos[i,2]
       &cmp=space(40)
       endif
   next 
exit
elseif lastkey()=27
exit
endif
enddo
return .t. 

Código: Selecionar todos

function contro
parameters modo, num_sel, posicao
local getlist:={}
do case
    case lastkey()>=48.and.lastkey()<=57.or.lastkey()>=65.and.lastkey()<=90.or.lastkey()>=97.and.lastkey()<=122.or.lastkey()=13
    setcursor(3)
    if lastkey()#13
    keyb chr(lastkey())
    else
       if len(alltrim(arBuffer[num_sel]))=0
       keyb chr(1)
       else
       keyb chr(6)
       endif
    endif
    @row(),col() get arBuffer[num_sel] colo "w/n,w+/b"
    read
    setcursor(0)

    *--se a linha for toda preenchida, add uma
    *--nova linha e posiciona o cursor

    if len(alltrim(arBuffer[num_sel]))=largura
       if num_sel=len(arBuffer)
          aadd(arBuffer,space(largura))
          lfin++
          sub=num_sel+1
          keyb chr(30)
          return 1
       endif
    elseif len(alltrim(arBuffer[num_sel]))=0
       *--se a linha for editada e seu conteudo final
       *--for vazio, elimina a linha do achoice

       if len(arBuffer)=1
          arBuffer[num_sel]=space(largura)
       else
          adel(arBuffer,num_sel)
          asize(arBuffer,len(arBuffer)-1)
       endif
       keyb chr(30)
       sub=num_sel-1
       return 1
    endif
    return 2


    case lastkey()=7
       if len(arBuffer)=1
       arBuffer[num_sel]=space(largura)
       else
       adel(arBuffer,num_sel)
       asize(arBuffer,len(arBuffer)-1)
       endif
       keyb chr(30)
       sub=num_sel-1
       return 1

    case lastkey()=-9
    return 0

    case lastkey()=13
    return 1

    case lastkey()=27
    return 0

    otherwise
    return 2

endcase

Código: Selecionar todos

function passa
*--funcao para pular as variaves que nao desejo preencher
*--atualizando o seu buffer
if lastkey()=5
keyb chr(5)
return .t.
endif
keyb chr(13)
return .t.

Código: Selecionar todos

#include "Box.ch"
#include "Inkey.ch"

PROCEDURE Main()

   LOCAL nTotDeb, nTotCre, nDifCre, nDifDeb, GetList := {}
   LOCAL cHistor := PadR( "Resposta a um post do forum Clipper on Line.", 160 )
  
   CLS
   DispBox( 15, 0, 22, 79, B_SINGLE + " " )
   DispBox( 16, 2, 21, 35, B_SINGLE + " " )
   DispBox( 16,36, 21, 78, B_SINGLE + " " )
   @ 16, 9 Say "[ SALDO DO LOTE ]"
   @ 16,46 Say "[ TEXTO/COMPLEMENTO ]"
   @ 21,46 Say "[ Ctrl+W salvar     ]"
   nTotDeb := 0
   nTotCre := 0
   nDifCre := 0
   nDifDeb := 0 

   @ 17, 3 Say "Tot.Deb:" Get nTotDeb Pict "@E 9,999.99"
   @ 18, 3 Say "Tot.Cre:" Get nTotCre Pict "@E 9,999.99"
   @ 19, 3 Say "Dif.Deb:" Get nDifCre Pict "@E 9,999.99"
   @ 20, 3 Say "Dif.Cre:" Get nDifDeb Pict "@E 9,999.99"
   @ MaxRow() + 1, MaxCol() + 1 Get cHistor ;  
         When { |oGet| oGet:VarPut( MemoEdit( oGet:VarGet, 17, 37, 20, 75, .T.,, 40 ) ), .F. }

   // apenas exibe o texto do historico antes do Read
   __KeyBoard( CHR( K_ESC ) )
   MemoEdit( cHistor, 17, 37, 20, 75, .F., , 40 )
   
   ReadModal( GetList ); GetList := {}

   // Remover "soft carriage return/line feeds"
   cHistor := StrTran( cHistor, Chr(141)+Chr(10), " " )

   Alert( cHistor,,"W+/B" )
   
   RETURN
//------------------------------------------------------------------------------