Luiz Arruda (ICO)

Ola. no meu exemplo acima. antes de return(.T.) coloquei isso if variaval="00/00" alert("Digitação inválida") return .f. endif return .t. funcionou, ele faz duas pesquisas na mesma function abraços ICO CORUMBA/MS ICO

Ola a todos. gostaria que se possivel, alguem desse uma olhada neste codigo, ( eu compilava no clipper e funcionava) GOSTARIA QUE FOSSE TRANSFORMADO PARA FW. SAL :=TRANSPORTE // MES ANTERIOR USE DIARIO INDEX DATASX PG :=0 // NUMERO DA PAGINA CABECA := "S" DO WHILE .NOT. EOF() IF CABECA := "S" PG=PG+1 @PROW()+1,02 SAY NOMEDAEMPRESA @PROW()+1,02 SAY ENDERECO @PROW(),50 SAY "FOLHA "+TRANSFORM(PG,"999") @PROW()+2,02 SAY "|DATA| HISTORICO |PAGAMENTO | RECEBIMENT | SALDO EM CONTA|" ENDIF CABECA :="N" @PROW()+1,02 SAY DATA @PROW(),12 SAY HISTORICO IF PR="P" // SE LANCAMENTO FOI (P)-PAGAMENTO COL:=50 // VALOR SERA IMPRESSO NA COLUNA 50 J=-1 ELSE COL:=75 // SE LANCAMENTO FOR ®-RECEBIMENTO VALOR IMPRESSO NA 75 J=1 ENDIF @PROW(),COL SAY VALOR PICT "99,999.99" // SE PR FOR=P - VALOR SAI NA COLUNA 50 SE FOR R NA COLUNA 75 SAL:=SAL+VALOR*J // CALCULA O SALDO ATUAL @PROW(),85 SAY SAL PICT "99,999.99" // NA COLUNA 85 SAY O SALDO ATUALIZADO IF PROW()>55 // SE IMPRIMIR MAIS DE 54 LINHAS EJECT // EJETA A FOLHA CABECA:="S" // VOLTA NO CABEÇALHO ENDIF SKIP ENDDO // VOLTA NA PROXIMA LINHA SET DEVI TO SCREE EJECT OBRIGADO ICO

OLA Eu fiz assim para o campo (entre com a data); @1,6 get ndata of odlgClien valid campovazio (ndata ) * STATIC FUNCTION Campovazio( ccampo ) IF EMPTY( cCampo ) ALERT( "Este campo nao pode ser vazio" ) RETURN( .F. ) ENDIF RETURN( .T. ) ICO CORUMBA/MS Editado por - ico on 18/05/2005 18:41:05 Editado por - ico on 18/05/2005 18:42:21

Ola. uma dica bem simples Eu criei um arquivo c.bat para compilar um livro.prg dentro eu coloquei assim: set lib=c:\FIVE\lib set include=\FIVE\INCLUDE clipper livrO /n /m blinker @BLI.lnk livrO MUDE \FIVE\LIB e \NCLUDE\LIB - para a pasta onde seu FW esta instalado. ICO

UFA, Segui o codigo do Vagner, retirei os "local" e PIMBA!!, na bucha, esta funcionando perfeitamente. obrigadão a todos... me aguardem ainda vou perguntar muitas coisas he!he! he!

Obrigado a todos pelo esforço em tentar me ajudar, FLUNA colei o seu codigo sem fazer alterações deu o seguinte erro: error description: error BASE/1003 Variable does not exist: STATUS MARCELO fiz o mesmo com o seu codigo continou dando o o mesmo erro error description: error BASE/1003 Variable does not exist: WDATA nao sei mais o que fazer, teria alguma coisa a ver com a versao do FW ? Editado por - ico on 16/05/2005 08:58:55

MARCELO. Sua dica foi a que mais se aproximou. se excluir a linha do REPLACE, funciona uma beleza. é só inclui-la que aparece o erro; ERROR BASE/1003 VARIABLE DOES NOT EXIST WNOME, ja mudei para oNome ja eliminei e deixao apenas wdata e wvalor mais continua dando pau. obs: no REDEFINE SERIA: REDEFINE GET oNome Var... ou é realmente como vc. postou ?. obrigado ico

Como estou começando, gostaria de criar apenas uma tela bem simples para lancamentos de documentos. FUNCTION LANCAR() Local oDlg Local oget1 :=ctod("\\") Local oGet2 :=space(50) Local oGet3 :=0 Use Diario DEFINE DIALOG ODLG RESOURCE "LANCAMENTO" TITLE " 1.1 Lancamentos Genericos !" REDEFINE BUTTON ID 170 OF ODLG ACTION REGISTRAR() REDEFINE BUTTON ID 180 OF ODLG ACTION CONTINUAR() REDEFINE BUTTON ID 240 OF ODLG ACTION(ODLG:END()) REDEFINE GET OGET1 ID 15 OF ODLG REDEFINE GET OGET2 ID 16 OF ODLG REDEFINE GET OGET3 ID 14 OF ODLG PICTURE "99,999.99" ACTIVATE DIALOG ODLG CENTERED RETURN ( NIL ) GOSTARIA DE OBTER INFORMACOES SOBRE O SEGUINTE: 1)-Quanto abrir a DIALOG o registro sempre for em branco 2)-Depois de digitado só registrar no arquivo quando press. ID 170 3)-Quando press. ID 180 voltar no campo data COMO NO CLIPPER "ENDDO" CRIEI FUNCTION REGISTAR() COM "APPEND BLANK", FUNCTION REGISTRAR() APPEND BLANK DIARIO->DATA :=OGET1 DIARIO->HISTORICO :=OGET2 DIARIO->VALOR :=OGET3 DA PAU, NAO RECONHECE OGET1,OGET2 NEM OGET3 COMO POSSO RESOLVER ISSO SEM CRIAR DIALOG COM @SAY, USANDO APENAS A TELA CRIADA NO WS ?? OBRIGADO.

Obrigado a todos pelas respostas rápidas, só que nem uma delas resolveu o meu problema, a do fluna foi a quase deu certo, só um porem a tela fica só editando registros e nao incluindo novos, na minha dialog tem 04 buttons, incluir, alterar, excluir e sair, gostaria que só efetuasse o registro apos o clik em incluir. obrigado mais uma vez. Editado por - ico on 12/05/2005 10:30:08

Bom dia a todos, é a primeira vez que participo do forum apesar de ja ter usado muitas dicas dele, estou mudando meus programas para FiveWin, criei no Ws uma dialog com os campos data, historico, valor, gostaria de saber como faço para usar estes campos para digitação e registra-los no arquivo de nome diario.dbf que comtem os mesmos campos. Obrigado.