Alguém tem manual dessa ferramenta ?
é boa ???
pq a utilizei aqui e está dando mto erro, não salva o q foi feito.... etc

Moderador: Moderadores
clebervn escreveu:Alguém tem manual dessa ferramenta ?
é boa ???
pq a utilizei aqui e está dando mto erro, não salva o q foi feito.... etc
#include "windows.ch"
#include "guilib.ch"
STATIC Thisform
FUNCTION rhdadSin
RETURN _rhdadSin()
FUNCTION _rhdadSin
PRIVATE nCodigo := 0 , cTipo := "", cNome := "", cCodent := "", cLograd := "", cNumero := "" ;
,cComple := "", cCnpj := "", cBairro:= "", cCep := "", cCidade := "", cUf := "" ;
,cDDD := "", cTel := "", cRamal := "", nAliqp := 0.0000
PRIVATE vCodigo := 0 , vTipo := "", vNome := "", vCodent := "", vLograd := "", vNumero := "" ;
,vComple := "", vCnpj := "", vBairro:= "", vCep := "", vCidade := "", vUf := "" ;
,vDDD := "", vTel := "", vRamal := "", vAliqp := 0.0000
PRIVATE oLabel1, oOwnerbutton1, oLabel2, oLabel3, oLabel4, oLabel5, oLabel6, oLabel7 ;
,oLabel8, oLabel9, oLabel10, oLabel11, oLabel12, oButton1, oButton2
INIT DIALOG oDlg TITLE "Dados cadastrais de sindicatos" ;
ICON HIcon():AddFile('IMAGES\Soft.ico') ;
AT 40,167 SIZE 674,477 NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+DS_CENTER +WS_SYSMENU
Thisform := oDlg
Abre_tabela()
// SAY
@ 71,20 SAY oLabel1 CAPTION "Código" SIZE 80,19 ;
STYLE SS_RIGHT
@ 71,52 SAY oLabel2 CAPTION "Nome" SIZE 80,21 ;
STYLE SS_RIGHT
@ 71,92 SAY oLabel3 CAPTION "CNPJ" SIZE 80,19 ;
STYLE SS_RIGHT
@ 42,120 SAY oLabel4 CAPTION "Código entidade" SIZE 109,20 ;
STYLE SS_RIGHT
@ 71,159 SAY oLabel5 CAPTION "Logradouro" SIZE 80,20 ;
STYLE SS_RIGHT
@ 71,191 SAY oLabel6 CAPTION "Número" SIZE 80,20 ;
STYLE SS_RIGHT
@ 58,225 SAY oLabel7 CAPTION "Complemento" SIZE 93,20 ;
STYLE SS_RIGHT
@ 71,255 SAY oLabel8 CAPTION "Cep" SIZE 80,20 ;
STYLE SS_RIGHT
@ 71,289 SAY oLabel9 CAPTION "Bairro" SIZE 80,20 ;
STYLE SS_RIGHT
@ 71,322 SAY oLabel10 CAPTION "Cidade" SIZE 80,20 ;
STYLE SS_RIGHT
@ 71,356 SAY oLabel11 CAPTION "UF" SIZE 80,20 ;
STYLE SS_RIGHT
@ 51,387 SAY oLabel12 CAPTION "Ddd/Tel/Ramal" SIZE 100,20 ;
STYLE SS_RIGHT
// GET
@ 155,20 GET vCodigo VAR nCodigo SIZE 40,24 PICTURE '999' MAXLENGTH 3 ;
TOOLTIP "Digite Código do Sindicato" ;
VALID{||fValidSin(nCodigo,1)}
@ 155,52 GET vNome VAR cNome SIZE 311,24 MAXLENGTH 80 ;
TOOLTIP ""
@ 155,90 GET vCnpj VAR cCnpj SIZE 136,24 PICTURE '@R 99.999.999/9999-99' ;
TOOLTIP ""
@ 155,119 GET vCodent VAR cCodent SIZE 80,24 ;
TOOLTIP ""
@ 155,159 GET vLograd VAR cLograd SIZE 307,24 MAXLENGTH 80 ;
TOOLTIP ""
@ 155,191 GET vNumero VAR cNumero SIZE 80,24 ;
TOOLTIP ""
@ 155,224 GET vComple VAR cComple SIZE 305,24 ;
TOOLTIP ""
@ 155,255 GET vCep VAR cCep SIZE 80,24 PICTURE '@R 99999-999' ;
TOOLTIP ""
@ 155,289 GET vBairro VAR cBairro SIZE 302,24 ;
TOOLTIP ""
@ 155,322 GET vCidade VAR cCidade SIZE 302,24 ;
TOOLTIP ""
@ 155,355 GET vUf VAR cUf SIZE 27,24 ;
TOOLTIP ""
@ 155,386 GET vTel VAR cTel SIZE 165,24 ;
TOOLTIP ""
// BUTTONS
@ 199,20 OWNERBUTTON oOwnerbutton1 SIZE 68,23 ON CLICK {|| f_msg() } ;
TEXT 'Buscar' ;
COORDINATES 0, 0, 0, 0
@ 438,431 BUTTON oButton1 CAPTION "&Confirmar" SIZE 90,30 ;
STYLE WS_TABSTOP
@ 538,433 BUTTON oButton2 CAPTION "Cancela&r" SIZE 90,30 ;
STYLE WS_TABSTOP
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult
function f_msg()
msginfo("teste")
return nil
function abre_tabela()
use rhsind alias sind shared new
if !file("sind1.ntx")
index on codigo to sind1
endif
set index to sind1
go top
return nil
FUNCTION fValidSin(vVar,vTipOpe)
Local oDlg:=GetModalHandle()
DO CASE
CASE vTipOpe == 1
seek vVar
IF eof()
cTipo := ""
cNome := ""
cCodent := ""
cLograd := ""
cNumero := ""
cComple := ""
cCnpj := ""
cBairro := ""
cCep := ""
cCidade := ""
cUf := ""
cDDD := ""
cTel := ""
cRamal := ""
nAliqp := 0.0000
ELSE
cTipo := sind->tipo
cNome := sind->nome
cCodent := sind->codent
cLograd := sind->lograd
cNumero := sind->numero
cComple := sind->comple
cCnpj := sind->cnpj
cBairro := sind->bairro
cCep := sind->cep
cCidade := sind->cidade
cUf := sind->uf
cDDD := sind->ddd
cTel := sind->tel
cRamal := sind->ramal
nAliqp := sind->aliqp
ENDIF
vNome:Refresh()
vCodent:Refresh()
vLograd:Refresh()
vNumero:Refresh()
vComple:Refresh()
vCnpj :Refresh()
vBairro:Refresh()
vCep :Refresh()
vCidade:Refresh()
vUf :Refresh()
vDDD :Refresh()
vTel :Refresh()
vRamal :Refresh()
ENDCASE
RETURN .t.
Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes