twbrowse Hernan 32 bits

[AVInfo Sistemas]

Willian muito obrigado pela ajuda. Funcionou perfeitamente a os arquivos que vc me mandou, porém o erro persiste. Deve ser algum problema no código em si e não com a wbrowse. De qualquer forma muito obrigado mesmo pela ajuda. Sem querer abusar da sua boa vontade, vc tem alguma idéia do q pode ser o meu problema ?? Só falta isso pra terminar a conversão da minha aplicação.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

Willian to tendo um problema que eu não tinha detectado antes. Na tabela da TWBrowse, quando tento navegar entre as linhas usando a tecla "seta pra baixo" no teclado ou simplesmente clicar na seta da barra de rolagem para deslocar as linhas para baixo, simplesmente as linhas e o cabeçalho ficam negros, ficando aparente somente duas linhas, a linha selecionada e uma acima dela, o q pode ser isso ??w

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[william]

ola , vc poderia colocar a parte do codigo em que vc cria o wbrowse , e tb mostrar a funcao chamada quando clica duas vezes sobre a linha do browse, aí fica mais facil para te ajudar...

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0

[Luiz Arruda (ICO)]

citação:

Willian muito obrigado pela ajuda. Funcionou perfeitamente a os arquivos que vc me mandou, porém o erro persiste. Deve ser algum problema no código em si e não com a wbrowse. De qualquer forma muito obrigado mesmo pela ajuda. Sem querer abusar da sua boa vontade, vc tem alguma idéia do q pode ser o meu problema ?? Só falta isso pra terminar a conversão da minha aplicação.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

---

id=quote>id=quote>

Vou dar uma intrometida..

Quanto ao erro descrito acima

id=code>

id=code>

Verifique se os IDs que foram criados no arquivo de recurso correspondem ao informados no PRG.

Id Não Definido o numero do ID não encontrado é -2

Se vc. usa o WS vc. pode colocar ID -1 nos controles que não serão usados no PRG, mas no PellesC não..

Veja se agora vai...

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 17/11/2010 11:53:15

[AVInfo Sistemas]

função que cria a wbrowse no cadastro de clientes:

segue

FUNCTION Maclien()

local oMeter, oFnt, oDlg, oIcon, oCur, oSayFnt, oSayyFnt, oObsFnt

local oBt1, oBt2, oBt3, oBt4, oBt5, oBt6, oBt7, oGet, clNom, clAti, oObs

local oSay, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6, oSay7, oSay8, oSay9, oSay0

local fNormal,fBold,Arial12

local oText, lEnd, oCliDl, oLbx, cDesc, cCodi, cFant

public nlIndi, llObs := .F., oInd, clInd, nlInd

REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS

RDDSETDEFAULT("DBFCDX")

IF ! UsrFree(CliCons)

RETURN NIL

ENDIF

CursorWait()

SELECT 11

Clien01i->(DBCLEARFIL(NIL))

Clien01i->(DBSETORDER(2));Clien01i->(DBGOTOP())

clInd := "Nome"; nlInd := nlIndi := 2

DEFINE FONT fNormal NAME "MS Sans Serif"

DEFINE FONT fBold NAME "MS Sans Serif" BOLD

DEFINE FONT Arial12 NAME "ARIAL" SIZE 0,-12 BOLD

DEFINE FONT oFnt NAME "Arial" SIZE 0, -12

DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -16 BOLD

DEFINE FONT oSayyFnt NAME "Arial" SIZE 0, -10 BOLD

DEFINE FONT oObsFnt NAME "Arial" SIZE 0, -9

DEFINE CURSOR oCur RESOURCE "Finger"

DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg RESOURCE "CADCLI" ICON oIcon

oDlg:lHelpIcon := .F.

//TRANS(Clien01i->TelClie1,"@R (99)9999-9999"),;

// TRANS(Clien01i->FaxClie1,"@R (99)9999-9999"),;

// TRANS(Clien01i->CelClie1,"@R (99)9999-9999"),;

REDEFINE LISTBOX oLbx ;

FIELDS Clien01i->CodClie1,;

UPPER(Clien01i->NomClie1),;

UPPER(Clien01i->FanClie1),;

Clien01i->TelClie1,;

Clien01i->FaxClie1,;

Clien01i->CelClie1,;

Clien01i->AttClie1,;

Clien01i->EndClie1,;

Clien01i->BaiClie1,;

Clien01i->CidClie1,;

Clien01i->EstClie1,;

Clien01i->CepClie1,;

TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)),;

Clien01i->IesClie1,;

TRANS(Clien01i->LimClie1,"@R 99,999.99"),;

Clien01i->EleClie1,;

ProcVend(Clien01i->VenClie1) ;

ID 103 OF oDlg ;

ALIAS "Clien01i" ;

HEADERS OemToAnsi("C¢digo"),;

"Nome",;

"Fantasia",;

"Telefone",;

"Fax",;

"Celular",;

"Contato",;

OemToAnsi("Endere‡o"),;

"Bairro",;

"Cidade",;

"UF",;

"Cep",;

"CNPJ/CPF",;

"Insc.Est.",;

"Limite",;

"E_Mail",;

"Vendedor" ;

FIELDSIZES 45,280,175,90,90,90,100,280,190,190,30,60,125,125,65,300,175 ;

FONT oFnt ;

ON CHANGE ( TemObs(@llObs),oSay:Refresh(),oSay1:Refresh(),oSay2:Refresh(),oSay3:Refresh(),oSay4:Refresh(),oSay5:Refresh(),oSay6:Refresh(),oSay7:Refresh(),oSay8:Refresh(),oSay9:Refresh(),oSay0:Refresh(),oObs:Refresh() ) ;

ON RIGHT CLICK ShowPop( oLbx, nRow, nCol, oDlg, oLbx ) ;

ON DBLCLICK ( AlteCli(oDlg,oLbx) )

oLbx:nClrText := { || SetaCor(Clien01i->CodClie1) }

oLbx:lAdjLastCol := .F.

oLbx:lAdjBrowse := .F.

oLbx:nHeaderStyle := 3 // 6

oLbx:nHeaderHeight := 25

oLbx:aActions:={ {||MudaInd2("1",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("2",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("3",oLbx,@nlInd,@clInd,oInd)},,,,,{||MudaInd2("8",oLbx,@nlInd,@clInd,oInd)},,{||MudaInd2("10",oLbx,@nlInd,@clInd,oInd)},,,{||MudaInd2("13",oLbx,@nlInd,@clInd,oInd)} }

oLbx:bBkColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_CREME , ), ) }

oLbx:bTextColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_BLACK, ), ) }

oLbx:bFont :={|nRow,nCol,nStyleLine| pFonteBrowse( oDlg, oLbx, nRow, nCol, nStyleLine,fNormal,Arial12,fBold,IIF(oLbx:lFocused,fBold,fNormal) ) }

oLbx:nLineStyle := 6 // 11

oLbx:nLineHeight := 18

oLbx:bSeek := {|| oLbx:DbfSeek(.T.),oSay:Refresh(),oSay1:Refresh(),oSay2:Refresh(),oSay3:Refresh(),oSay4:Refresh(),oSay5:Refresh(),oSay6:Refresh(),oSay7:Refresh(),oSay8:Refresh(),oSay9:Refresh(),oSay0:Refresh(),oObs:Refresh(),oLbx:Refresh() }

oLbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbx:nClrPane := {|| IIF((oLbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbx:aJustify := {0,0,0,0,0,0,0,0,0,0,2,0,0,0,1,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbx:lMChange := .F. // Desabilta Mousemove

oLbx:bKeyChar = { | nKey, nFlags | ;

IF( nKey # 13, ;

( oLbx:Refresh(), ;

oLbx:SetFocus(),;

oLbx:DrawSelect() ),;

AlteCli(oDlg,oLbx) ) }

REDEFINE COMBOBOX oInd VAR clInd ITEMS {OemToAnsi("C¢digo"),"Nome","Fantasia","Cnpj/Cpf","Cidade",OemToAnsi("Endere‡o")} ID 63 ;

ON CHANGE ( MudaInd(clInd,oLbx,@nlInd),oLbx:SetFocus() ) OF oDlg

REDEFINE SBUTTON oBt1 ID 106 FILE ".\bitmaps\nouveau.Bmp" OF oDlg;

ACTION ( NovoCli(oDlg,oLbx,.T.), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Inclui" TOOLTIP "Novo Cliente - Alt+I";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt2 ID 107 FILE ".\bitmaps\abrir.Bmp" OF oDlg;

ACTION ( AlteCli(oDlg,oLbx,.T.), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Altera" TOOLTIP "Altera Cliente - Alt+A";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt3 ID 44 FILE ".\bitmaps\filt2.Bmp" OF oDlg;

ACTION ( FiltCli(oDlg,oLbx), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Filtrar" TOOLTIP "Filtrar - Alt+F";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt4 ID 45 FILE ".\bitmaps\trash2.Bmp" OF oDlg;

ACTION ( ApagaCli(oDlg,oLbx), ;

oLbx:Refresh(), ;

oLbx:SetFocus(), ;

oLbx:DrawSelect() ) ;

PROMPT "&Exclui" TOOLTIP "Exclui - Alt+E";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBt6 ID 47 FILE ".\bitmaps\entrar.Bmp" OF oDlg;

ACTION ( oDlg:End() ) ;

PROMPT "&Sair" TOOLTIP "Sair - Alt+S";

FONT oObsFnt ;

TEXT ON_RIGHT

REDEFINE SAY oSay ID 50 PROMPT Clien01i->CodClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay1 ID 51 PROMPT Clien01i->NomClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay2 ID 52 PROMPT Clien01i->EndClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay3 ID 53 PROMPT Clien01i->BaiClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay4 ID 54 PROMPT Clien01i->CidClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay5 ID 55 PROMPT Clien01i->EstClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay6 ID 56 PROMPT LEFT(Clien01i->CepClie1,5)+"-"+RIGHT(Clien01i->CepClie1,3) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay9 ID 59 PROMPT TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay0 ID 61 PROMPT Clien01i->IesClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay7 ID 57 PROMPT VerAtivo(@clAti) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay8 ID 58 PROMPT RIGHT(Clien01i->DcdClie1,2)+"/"+SUBS(Clien01i->DcdClie1,5,2)+"/"+LEFT(Clien01i->DcdClie1,4) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE CHECKBOX oObs VAR llObs ID 49 OF oDlg UPDATE

REDEFINE SENSITIVE SAY PROMPT OemToAnsi(">> observa‡Æo <<") ID 60 OF oDlg;

COLOR CLR_RED COLOROVER CLR_HRED ;

ACTION (VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh()) ;

ON MOUSEOVER SndPlaySound("Click.Wav") ;

RIGHT TRANSPARENT

oDlg:bKeyDown := {|nKey| Sairrr(nKey,oDlg,oLbx,nlInd)}

ACTIVATE DIALOG oDlg NOMODAL CENTERED ON INIT MenuCli(oDlg,oLbx)

RETURN NIL

id=code>id=code>

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

Essa função é a função de alteração do cliente, identifiquei as linhas com erro, achu q são as linhas que criam as tabs. O q vcs sugerem para q funcione adequadamente ?

As linhas encontradas estao com ### na frente para identificar ...

STATIC FUNCTION AlteCli( oDlg, oLbx )

LOCAL oDlg1, oIcon, oSayFnt, oCur, oFol, oBut1, oBut2, lSave := .F., oPes, oAti, oEst, oEs2

LOCAL clCod, clPes, clNom, clFan, clCgc, clIes, clEnd, clBai, clCid, clEst, clCep, clTel, clFax, clObs

LOCAL clCel, clAtt, clEml, clDtn, oCiv, clCiv, nlLim, clCad, clRf1, clRf2, clRf3, clRf4, clAti, clCven, clNven

LOCAL clPro, clPai, clMae, clCoj, clTra, llSai := .F., clOut, oCla, clCla

LOCAL oFolFnt1, oFolFnt2, nlPag := 1, clDtina, clCrot, clNrot

LOCAL oSpc, oSer, oPtt, oCcf, llSpc, llSer, llPtt, llCcf, clDt1, clDt2, clDt3, clDt4, clOb1, clOb2, clOb3, clOb4

LOCAL oGt1,oGt2,oGt3,oGt4,oGt5,oGt6,oGt7,oGt8,oGt9,oGt10,oGt11,oGt12,oGt13

LOCAL oGt14,oGt15,oGt16,oGt17,oGt18,oGt19,oGt20,oGt21,oGt22,oGt23,oGt24,oGt25

LOCAL oGt26,oGt27,oGt28,oGt29,oGt30,oFntBut, oFoto, clFoto, nlMensa, oGt57

LOCAL oGt31,oGt32,oGt33,oGt34,oGt35,oGt36,oGt37,oGt38,oBut3,oBut4,oGt39,oGt40

LOCAL clArea := SELECT(), oSay, clInfo, oSay1, oSay2, clInfo1, clInfo2, clEn2, clBa2, clCi2, clEs2, clCe2, nlRen, nlFilh

LOCAL aEst := {"AC","AL","AM","AP","BA","CE","DF","ES","FN","GO",;

"MA","MG","MS","MT","PA","PB","PE","PI","PR","RJ","RN","RO",;

"RR","RS","SC","SE","SP","TO"}

LOCAL oBut7, clResp, clCrf, clAnvi, clVanvi, clSus, clVsus,clDbf,oDbf,clArq,clArq1,clCset,clNset, clNume, clMuni, oMuni, alMuni:={}

CursorWait()

/*

IF FILE( clArq1 ); FERASE( clArq1 ); ENDIF

CriaDbf(@clArq1,@clArq)

USE &(clArq) NEW

FLOCK()

IF !NETERR()

ZAP

ENDIF

UNLOCK

oDbf := SELECT()

clArea := (oDbf)->(ALIAS())

*/

clCod := Clien01i->CodClie1

clNom := Clien01i->NomClie1; clFan := Clien01i->FanClie1; clCgc := Clien01i->CgcClie1

clIes := Clien01i->IesClie1; clEnd := Clien01i->EndClie1; clBai := Clien01i->BaiClie1

clCid := Clien01i->CidClie1; clEst := Clien01i->EstClie1; clCep := Clien01i->CepClie1

clTel := Clien01i->TelClie1; clFax := Clien01i->FaxClie1; clPes := Clien01i->PesClie1

clCel := Clien01i->CelClie1; clAtt := Clien01i->AttClie1; clEml := Clien01i->EleClie1

clCiv := Clien01i->CivClie1; nlLim := Clien01i->LimClie1; clRf1 := Clien01i->Co1Clie1

clRf2 := Clien01i->Co2Clie1; clRf3 := Clien01i->Bo1Clie1; clRf4 := Clien01i->Bo2Clie1

clDtn := Clien01i->DtnClie1; clCad := Clien01i->DcdClie1; clAti := Clien01i->AtiClie1

clTra := Clien01i->TraClie1; clPai := Clien01i->PaiClie1; clMae := Clien01i->MaeClie1

clCoj := Clien01i->CojClie1; clPro := Clien01i->ProClie1; clCven := Clien01i->VenClie1

llSer := Clien01i->SerClie1; llSpc := Clien01i->SpcClie1; llPtt := Clien01i->PttClie1

llCcf := Clien01i->CcfClie1; clDt1 := Clien01i->Dt1Clie1; clDt2 := Clien01i->Dt2Clie1

clDt3 := Clien01i->Dt3Clie1; clDt4 := Clien01i->Dt4Clie1; clOb1 := Clien01i->Ob1Clie1

clOb2 := Clien01i->Ob2Clie1; clOb3 := Clien01i->Ob3Clie1; clOb4 := Clien01i->Ob4Clie1

clObs := Clien01i->ObsClie1; clOut := Clien01i->DocClie1; clCset := Clien01i->SetClie1

clDtina := Clien01i->InaClie1; clFoto := Clien01i->FotClie1; clCla := Clien01i->ClaClie1

nlFilh := Clien01i->NfiClie1; clEn2 := Clien01i->En2Clie1; clBa2 := Clien01i->Ba2Clie1

clCi2 := Clien01i->Ci2Clie1; clEs2 := Clien01i->Es2Clie1; clCe2 := Clien01i->Ce2Clie1

nlRen := Clien01i->RenClie1; clCrot := Clien01i->RotClie1; nlMensa := Clien01i->Mensal01

clResp := Clien01i->ResTec01; clCrf := Clien01i->NumCrf01; clAnvi := Clien01i->NumAnv01

clVanvi := Clien01i->ValAnv01; clSus := Clien01i->NumSus01; clVsus := Clien01i->ValSus01

clNume := Clien01i->NumEnd01; clMuni := Clien01i->CodMun01

clVanvi := RIGHT(clVanvi,2)+"/"+SUBS(clVanvi,5,2)+"/"+LEFT(clVanvi,4)

clVanvi := CTOD(clVanvi)

clVsus := RIGHT(clVsus,2)+"/"+SUBS(clVsus,5,2)+"/"+LEFT(clVsus,4)

clVsus := CTOD(clVsus)

IF clFoto == SPACE(80)

clFoto := ".\BITMAPS\ERROFOTO.BMP"

ENDIF

IF clAti == "1"

clAti := "(A) Ativo"

ELSEIF clAti == "2"

clAti := "(I) Inativo"

ELSE

clAti := "( Bloqueado"

ENDIF

IF clPes == "1"

clPes := OemToAnsi("F¡sica")

clInfo := "Apelido"

clInfo1 := "CPF"

clInfo2 := "RG"

ELSE

clPes := OemToAnsi("Jur¡dica")

clInfo := "Fantasia"

clInfo1 := "CNPJ"

clInfo2 := "Insc. Est."

ENDIF

IF clCiv == "C"

clCiv := "Casado(a)"

ELSEIF clCiv == "S"

clCiv := "Solteiro(a)"

ELSEIF clCiv == "D"

clCiv := "Separado(a)"

ELSEIF clCiv == "V"

clCiv := OemToAnsi("Vi£vo(a)")

ELSE

clCiv := "Outro"

ENDIF

IF clCla == " "

clCla := " "

ELSEIF clCla == "G"

clCla := "Grande"

ELSEIF clCla == "P"

clCla := "Pequeno"

ELSE

clCla := OemToAnsi("M‚dio")

ENDIF

clDtn := RIGHT(clDtn,2)+"/"+SUBS(clDtn,5,2)+"/"+LEFT(clDtn,4)

clDtn := CTOD(clDtn)

clDt1 := RIGHT(clDt1,2)+"/"+SUBS(clDt1,5,2)+"/"+LEFT(clDt1,4)

clDt1 := CTOD(clDt1)

clDt2 := RIGHT(clDt2,2)+"/"+SUBS(clDt2,5,2)+"/"+LEFT(clDt2,4)

clDt2 := CTOD(clDt2)

clDt3 := RIGHT(clDt3,2)+"/"+SUBS(clDt3,5,2)+"/"+LEFT(clDt3,4)

clDt3 := CTOD(clDt3)

clDt4 := RIGHT(clDt4,2)+"/"+SUBS(clDt4,5,2)+"/"+LEFT(clDt4,4)

clDt4 := CTOD(clDt4)

clCad := RIGHT(clCad,2)+"/"+SUBS(clCad,5,2)+"/"+LEFT(clCad,4)

clCad := CTOD(clCad)

clDtina := RIGHT(clDtina,2)+"/"+SUBS(clDtina,5,2)+"/"+LEFT(clDtina,4)

clDtina := CTOD(clDtina)

SELECT 12

Vende18i->(DBSETORDER(1));Vende18i->(DBGOTOP())

Vende18i->(DbSeek(clCven))

IF FOUND()

clCven := Vende18i->CodVen18

clNven := Vende18i->NomVen18

ELSE

clCven := " "; clNven := SPACE(40)

ENDIF

SELECT 60

Setor60i->(DBSETORDER(1));Setor60i->(DBGOTOP())

Setor60i->(DbSeek(clCset))

IF FOUND()

clCset := Setor60i->CodSet60

clNset := Setor60i->DesSet60

ELSE

clCset := " "; clNset := SPACE(40)

ENDIF

SELECT 56

Rotas01i->(DBSETORDER(1));Rotas01i->(DBGOTOP())

Rotas01i->(DbSeek(clCrot))

IF FOUND()

clCrot := Rotas01i->CodRot01

clNrot := Rotas01i->NomRot01

ELSE

clCrot := " "; clNrot := SPACE(30)

ENDIF

/*

SELECT 74

TabMu01i->(DBSETORDER(2)); TabMu01i->(DBGOTOP())

i := 1

DO WHILE !EOF()

IF TabMu01i->UF == "31" .OR. TabMu01i->UF == "35" .OR. TabMu01i->UF == "33"

AADD( alMuni, { SPACE(80) } )

alMuni := TabMu01i->Codigo+" - "+OemToAnsi(TabMu01i->Cidade)

IF TabMu01i->Codigo == clMuni

clMuni := alMuni

ENDIF

i++

ENDIF

TabMu01i->(Dbskip())

ENDDO

*/

SELECT 11

DEFINE FONT oFolFnt1 NAME "Arial" SIZE 0,-10

DEFINE FONT oFolFnt2 NAME "Arial" SIZE 0,-12 BOLD

DEFINE FONT oFntBut NAME "Arial" SIZE 0, -9

DEFINE CURSOR oCur RESOURCE "Finger"

DEFINE FONT oSayFnt NAME "Arial" SIZE 0, -10 BOLD ITALIC

DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg1 RESOURCE "CADCLI1" ICON oIcon TITLE "Altera Cliente"

oDlg1:lHelpIcon := .F.

REDEFINE SBUTTON oBut1 ID 106 FILE ".\bitmaps\forwa.Bmp" OF oDlg1;

ACTION ( llSai := .T., lSave := .T., oDlg1:End() ) ;

PROMPT "&Gravar" TOOLTIP OemToAnsi("Grava as altera‡äes");

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE SBUTTON oBut2 ID 102 FILE ".\bitmaps\parar.Bmp" OF oDlg1;

ACTION ( llSai := .T., oDlg1:End() ) ;

PROMPT "&Cancelar" TOOLTIP OemToAnsi("Cancela as altera‡äes");

FONT oFntBut ;

TEXT ON_RIGHT

REDEFINE FOLDER oFol ID 101 OF oDlg1 ;

PROMPTS OemToAnsi("Dados &B sicos"), "Dados &Pessoais", OemToAnsi("&An lise de Cr‚dito"), "&Outros" ;

DIALOGS "CLIINC1", "CLIINC2","CLIINC3", "CLIINC4"

### REDEFINE SAY oSay ID -2 PROMPT clInfo OF oFol:aDialogs[1] UPDATE

### REDEFINE SAY oSay1 ID -3 PROMPT clInfo1 OF oFol:aDialogs[1] UPDATE

### REDEFINE SAY oSay2 ID -4 PROMPT clInfo2 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt1 VAR clCod ID 33 OF oFol:aDialogs[1] UPDATE

REDEFINE COMBOBOX oPes VAR clPes ITEMS {OemToAnsi("F¡sica"),OemtoAnsi("Jur¡dica")} ID 63 OF oFol:aDialogs[1] VALID VerificaAltera(clPes,oGt5,@clCgc,oSay,@clInfo,oSay1,@clInfo1,oSay2,@clInfo2)

REDEFINE COMBOBOX oCla VAR clCla ITEMS {" ","Grande",OemToAnsi("M‚dio"),"Pequeno"} ID 45 OF oFol:aDialogs[1]

REDEFINE GET oGt3 VAR clNom ID 34 OF oFol:aDialogs[1] VALID ( ChecaNome(clNom,oFol) ) UPDATE

REDEFINE GET oGt4 VAR clFan ID 35 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt5 VAR clCgc PICTURE CpfCgcPic(Clien01i->PesClie1) ID 36 OF oFol:aDialogs[1] VALID ChecaCnpj(@clCgc,clPes,clCod) UPDATE

REDEFINE GET oGt6 VAR clIes ID 37 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt39 VAR clOut ID 44 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt7 VAR clEnd ID 38 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt77 VAR clNume PICTURE "99999" ID 47 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt8 VAR clBai ID 39 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt9 VAR clCid ID 57 OF oFol:aDialogs[1] VALID( PesqCid(oFol,@clCid,@clEst,@clCep,1) ) UPDATE

REDEFINE BTNBMP oBut7 ID 60 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCid,@clEst,@clCep,2),oEst:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEst VAR clEst ITEMS aEst ID 41 OF oFol:aDialogs[1] UPDATE

REDEFINE GET oGt11 VAR clCep PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[1] UPDATE

// REDEFINE COMBOBOX oMuni VAR clMuni ITEMS alMuni ID 48 OF oFol:aDialogs[1]

REDEFINE GET oGt76 VAR clMuni ID 48 OF oFol:aDialogs[1] UPDATE

REDEFINE BTNBMP oBut6 ID 49 OF oFol:aDialogs[1] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqMuni(oFol,@clMuni) ) TOOLTIP "Seleciona o Municipio"

REDEFINE IMAGE oFoto ID 43 OF oFol:aDialogs[1] FILENAME clFoto ADJUST

REDEFINE BTNBMP oBut5 ID 46 OF oFol:aDialogs[1] FILE ".\BITMAPS\lanterna.BMP" TOOLTIP "Seleciona a foto do cliente" ACTION ( BuscaFoto(oFol:aDialogs[2],@clFoto,oFoto))

REDEFINE GET oGt12 VAR clTel ID 51 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt13 VAR clFax ID 52 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt14 VAR clCel ID 53 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt17 VAR clDtn PICTURE "@K,@D 99/99/9999" ID 56 OF oFol:aDialogs[2] UPDATE

REDEFINE COMBOBOX oCiv VAR clCiv ITEMS {"Casado(a)","Solteiro(a)","Separado(a)",OemToAnsi("Vi£vo(a)"),"Outro"} ID 57 OF oFol:aDialogs[2]

REDEFINE GET oGt50 VAR nlFilh PICTURE "@Z 99" ID 39 OF oFol:aDialogs[2] ;

SPINNER MIN 0 MAX 30 ;

UPDATE

REDEFINE GET oGt15 VAR clAtt ID 54 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt10 VAR clCset ID 58 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt24 VAR clNset ID 59 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 89 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqSet(oFol,@clCset,@clNset) ) TOOLTIP "Seleciona o setor"

REDEFINE VGet oGt16 VAR clEml ID 55 Color nRgb(0,0,0),nRgb(255,255,255) OF oFol:aDialogs[2] FILEACTION "BMP_EMAIL" ACTION EnviaMail(clEml)

REDEFINE GET oGt25 VAR clObs MEMO ID 110 OF oFol:aDialogs[2] VALID MudaPag(2,oFol) UPDATE

REDEFINE GET oGt78 VAR clCven ID 40 OF oFol:aDialogs[2] UPDATE

REDEFINE GET oGt79 VAR clNven ID 41 OF oFol:aDialogs[2] UPDATE

REDEFINE BTNBMP oBut3 ID 42 OF oFol:aDialogs[2] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqVend(oFol,@clCven,@clNven) ) TOOLTIP "Seleciona o vendedor"

/*

REDEFINE BUTTON oBut10 ID 102 OF oFol:aDialogs[2] ACTION IncVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE BUTTON oBut11 ID 61 OF oFol:aDialogs[2] ACTION ExcVen(oFol:aDialogs[2],oLbbx,clArea,oDbf)

REDEFINE LISTBOX oLbbx ;

FIELDS TRANS(&(clArea)->CodVen90,"999"),;

&(clArea)->NomVen90,; // Nome do vendedor

&(clArea)->DesGru90 ;

ID 112 OF oFol:aDialogs[2] ;

ALIAS clArea ;

HEADERS OemToAnsi("C¢digo") ,;

"Nome",;

"Linha" ;

FIELDSIZES 60,200,200

oLbbx:lAdjLastCol := .F.

oLbbx:lAdjBrowse := .F.

oLbbx:nHeaderStyle := 3 // 6

oLbbx:nHeaderHeight := 16

oLbbx:nLineStyle := 6 // 11

oLbbx:nLineHeight := 16

oLbbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbbx:nClrPane := {|| IIF((oLbbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbbx:aJustify := {0,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbbx:lMChange := .F. // Desabilta Mousemove

*/

REDEFINE GET oGt18 VAR nlLim PICTURE "@R 99,999.99" ID 61 OF oFol:aDialogs[3] UPDATE

REDEFINE COMBOBOX oAti VAR clAti ITEMS {"(A) Ativo","(I) Inativo","( Bloqueado"} ID 67 OF oFol:aDialogs[3]

REDEFINE GET oGt19 VAR clCad PICTURE "99/99/9999" ID 62 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt51 VAR nlRen PICTURE "@R 99,999.99" ID 39 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt40 VAR clDtina PICTURE "99/99/9999" ID 37 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt20 VAR clRf1 ID 63 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt21 VAR clRf2 ID 64 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt22 VAR clRf3 ID 65 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt23 VAR clRf4 ID 66 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt31 VAR clResp ID 58 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt32 VAR clCrf ID 36 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt33 VAR clAnvi ID 43 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt34 VAR clVanvi PICTURE "99/99/9999" ID 44 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt35 VAR clSus ID 40 OF oFol:aDialogs[3] UPDATE

REDEFINE GET oGt36 VAR clVsus PICTURE "99/99/9999" ID 41 OF oFol:aDialogs[3] VALID MudaPag(3,oFol) UPDATE

REDEFINE GET oGt52 VAR clEn2 ID 38 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt53 VAR clBa2 ID 39 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt54 VAR clCi2 ID 57 OF oFol:aDialogs[4] VALID( PesqCid(oFol,@clCi2,@clEs2,@clCe2,1) ) UPDATE

REDEFINE BTNBMP oBut8 ID 60 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqCid(oFol,@clCi2,@clEs2,@clCe2,2),oEs2:SetFocus() ) TOOLTIP "Seleciona a cidade"

REDEFINE COMBOBOX oEs2 VAR clEs2 ITEMS aEst ID 41 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt55 VAR clCe2 PICTURE "@R 99999-999" ID 42 OF oFol:aDialogs[4] UPDATE

REDEFINE GET oGt56 VAR clNrot ID 40 OF oFol:aDialogs[4] UPDATE

REDEFINE BTNBMP oBut9 ID 43 OF oFol:aDialogs[4] FILE ".\BITMAPS\luppa.BMP" ACTION ( PesqRot(oFol:aDialogs[4],@clCrot,@clNrot) ) TOOLTIP "Seleciona a rota"

oBut1:lCancel := .T.

oBut2:lCancel := .T.

oPes:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oCla:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt3:SetFocus(),)}

oEst:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt11:SetFocus(),)}

oEs2:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt55:SetFocus(),)}

oCiv:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt50:SetFocus(),)}

oAti:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oGt20:SetFocus(),)}

oGt9:bKeyDown := {|nKey| IIF(nKey=VK_RETURN,oEst:SetFocus(),)}

oFol:lWin95Look := .f.

oFol:oFont := oFolFnt1

oFol:oFont2 := oFolFnt2

oGt1:Disable(); oGt19:Disable(); oGt10:Disable(); oGt24:Disable(); oGt40:Disable(); oGt56:Disable()

oGt3:bGotFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt3:bLostFocus := {|| ( oGt3:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt4:bGotFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt4:bLostFocus := {|| ( oGt4:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt5:bGotFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt5:bLostFocus := {|| ( oGt5:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt6:bGotFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt6:bLostFocus := {|| ( oGt6:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt7:bGotFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt7:bLostFocus := {|| ( oGt7:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt8:bGotFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt8:bLostFocus := {|| ( oGt8:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt9:bGotFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt9:bLostFocus := {|| ( oGt9:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt11:bGotFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt11:bLostFocus := {|| ( oGt11:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt12:bGotFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt12:bLostFocus := {|| ( oGt12:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt13:bGotFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt13:bLostFocus := {|| ( oGt13:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt14:bGotFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt14:bLostFocus := {|| ( oGt14:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt15:bGotFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt15:bLostFocus := {|| ( oGt15:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt16:bGotFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt16:bLostFocus := {|| ( oGt16:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt17:bGotFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt17:bLostFocus := {|| ( oGt17:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt18:bGotFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt18:bLostFocus := {|| ( oGt18:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt19:bGotFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt19:bLostFocus := {|| ( oGt19:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt20:bGotFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt20:bLostFocus := {|| ( oGt20:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt21:bGotFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt21:bLostFocus := {|| ( oGt21:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt22:bGotFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt22:bLostFocus := {|| ( oGt22:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt23:bGotFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt23:bLostFocus := {|| ( oGt23:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt31:bGotFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt31:bLostFocus := {|| ( oGt31:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt32:bGotFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt32:bLostFocus := {|| ( oGt32:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt33:bGotFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt33:bLostFocus := {|| ( oGt33:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt34:bGotFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt34:bLostFocus := {|| ( oGt34:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt35:bGotFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt35:bLostFocus := {|| ( oGt35:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt36:bGotFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt36:bLostFocus := {|| ( oGt36:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt39:bGotFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt39:bLostFocus := {|| ( oGt39:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt50:bGotFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt50:bLostFocus := {|| ( oGt50:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt51:bGotFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt51:bLostFocus := {|| ( oGt51:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt52:bGotFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt52:bLostFocus := {|| ( oGt52:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt53:bGotFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt53:bLostFocus := {|| ( oGt53:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt54:bGotFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt54:bLostFocus := {|| ( oGt54:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt55:bGotFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt55:bLostFocus := {|| ( oGt55:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt77:bGotFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt77:bLostFocus := {|| ( oGt77:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt78:bGotFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt78:bLostFocus := {|| ( oGt78:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oGt79:bGotFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(150,200,255)) ) }

oGt79:bLostFocus := {|| ( oGt79:setcolor(rgb(0,0,0),rgb(255,255,255)) ) }

oDlg1:bKeyDown := {|nKey| Sairr(nKey,@llSai,oDlg1,@lSave)}

ACTIVATE DIALOG oDlg1 CENTERED VALID llSai

IF lSave

WHILE ! Rlock() ; End

IF clAti == "(A) Ativo"

clAti := "1"

ELSEIF clAti == "(I) Inativo"

clAti := "2"

ELSEIF clAti == "( Bloqueado"

clAti := "3"

ENDIF

IF clCiv == "Casado(a)"

clCiv := "C"

ELSEIF clCiv == "Solteiro(a)"

clCiv := "S"

ELSEIF clCiv == "Separado(a)"

clCiv := "D"

ELSEIF clCiv == "Outro"

clCiv := "O"

ELSE

clCiv := "V"

ENDIF

IF LEFT(clPes,1) == "F"

clPes := "1"

ELSE

clPes := "2"

ENDIF

clCla := LEFT(clCla,1)

clDtn := DTOC(clDtn)

clDtn := RIGHT(clDtn,4)+SUBS(clDtn,4,2)+LEFT(clDtn,2)

clDt1 := DTOC(clDt1)

clDt1 := RIGHT(clDt1,4)+SUBS(clDt1,4,2)+LEFT(clDt1,2)

clDt2 := DTOC(clDt2)

clDt2 := RIGHT(clDt2,4)+SUBS(clDt2,4,2)+LEFT(clDt2,2)

clDt3 := DTOC(clDt3)

clDt3 := RIGHT(clDt3,4)+SUBS(clDt3,4,2)+LEFT(clDt3,2)

clDt4 := DTOC(clDt4)

clDt4 := RIGHT(clDt4,4)+SUBS(clDt4,4,2)+LEFT(clDt4,2)

clVanvi := DTOC(clVanvi)

clVanvi := RIGHT(clVanvi,4)+SUBS(clVanvi,4,2)+LEFT(clVanvi,2)

clVsus := DTOC(clVsus)

clVsus := RIGHT(clVsus,4)+SUBS(clVsus,4,2)+LEFT(clVsus,2)

Clien01i->(RLOCK())

REPLACE Clien01i->BaiClie1 WITH clBai,;

Clien01i->NomClie1 WITH clNom, Clien01i->EndClie1 WITH clEnd,;

Clien01i->CidClie1 WITH clCid, Clien01i->EstClie1 WITH clEst,;

Clien01i->CepClie1 WITH clCep, Clien01i->TelClie1 WITH clTel,;

Clien01i->AttClie1 WITH clAtt, Clien01i->FaxClie1 WITH clFax,;

Clien01i->CelClie1 WITH clCel, Clien01i->FanClie1 WITH clFan,;

Clien01i->CgcClie1 WITH clCgc, Clien01i->IesClie1 WITH clIes,;

Clien01i->PesClie1 WITH clPes, Clien01i->Co1Clie1 WITH clRf1,;

Clien01i->Co2Clie1 WITH clRf2, Clien01i->Bo1Clie1 WITH clRf3,;

Clien01i->Bo2Clie1 WITH clRf4, Clien01i->DtnClie1 WITH clDtn,;

Clien01i->LimClie1 WITH nlLim, Clien01i->EleClie1 WITH clEml,;

Clien01i->CivClie1 WITH clCiv, Clien01i->AtiClie1 WITH clAti,;

Clien01i->VenClie1 WITH clCven, Clien01i->ObsClie1 WITH clObs,;

Clien01i->ProClie1 WITH clPro, Clien01i->TraClie1 WITH clTra,;

Clien01i->PaiClie1 WITH clPai, Clien01i->MaeClie1 WITH clMae,;

Clien01i->CojClie1 WITH clCoj, Clien01i->DocClie1 WITH clOut,;

Clien01i->SpcClie1 WITH llSpc, Clien01i->SerClie1 WITH llSer,;

Clien01i->PttClie1 WITH llPtt, Clien01i->CcfClie1 WITH llCcf,;

Clien01i->Dt1Clie1 WITH clDt1, Clien01i->Dt2Clie1 WITH clDt2,;

Clien01i->Dt3Clie1 WITH clDt3, Clien01i->Dt4Clie1 WITH clDt4,;

Clien01i->Ob1Clie1 WITH clOb1, Clien01i->Ob2Clie1 WITH clOb2,;

Clien01i->Ob3Clie1 WITH clOb3, Clien01i->Ob4Clie1 WITH clOb4,;

Clien01i->FotClie1 WITH clFoto, Clien01i->ClaClie1 WITH clCla,;

Clien01i->En2Clie1 WITH clEn2, Clien01i->Ba2Clie1 WITH clBa2,;

Clien01i->Ci2Clie1 WITH clCi2, Clien01i->Es2Clie1 WITH clEs2,;

Clien01i->Ce2Clie1 WITH clCe2, Clien01i->RenClie1 WITH nlRen,;

Clien01i->NfiClie1 WITH nlFilh, Clien01i->RotClie1 WITH clCrot,;

Clien01i->Mensal01 WITH nlMensa, Clien01i->SetClie1 WITH clCset,;

Clien01i->ResTec01 WITH clResp, Clien01i->NumCrf01 WITH clCrf,;

Clien01i->NumAnv01 WITH clAnvi, Clien01i->ValAnv01 WITH clVanvi,;

Clien01i->NumSus01 WITH clSus, Clien01i->ValSus01 WITH clVsus,;

Clien01i->NumEnd01 WITH clNume, Clien01i->CodMun01 WITH clMuni

IF clAti == "2"

clDtina := DTOC(DATE())

REPLACE Clien01i->InaClie1 WITH RIGHT(clDtina,4)+SUBS(clDtina,4,2)+LEFT(clDtina,2)

ELSEIF clAti == "1"

REPLACE Clien01i->InaClie1 WITH SPACE(8)

ENDIF

DbUnlock()

ENDIF

oDlg1:End()

// CLOSE &(clArea)

Clien01i->(DBSETORDER(nlIndi));oLbx:Refresh()

oDlg:Update()

RETURN NIL

id=code>id=code>

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[william]

boa tarde, com relacao a clicar duas vezes no browse e dar o erro de id -2 nao encontrada, o erro está , como nosso amigo Luis disse, no arquivo .RC do seu sistema

a solucao pode ser a seguinte:

- verifique no seu arquivo .RC no dialog "CLIINC1" que pertence ao folder da funcao altecli(). Pelo erro que deu nao deve existir um controle SAY com id -2. Se existir , mude o numero do ID para 20 por exemplo. Deve resolver.

Agora o outro problema do wbrowse baguncado, deve ser falta de oLbx:Refresh() em algum lugar.

- No ON CHANGE e no DBLCLICK do wbrowse , no final coloque um oLbx:refresh() que ta faltando.

FIELDSIZES 45,280,175,90,90,90,100 ;

FONT oFnt ;

ON CHANGE ( TemObs(@llObs),oSay:Refresh(), ... ,oLBx:refresh()) ;

ON DBLCLICK ( AlteCli(oDlg,oLbx),oLbx:refresh() )

Tambem veja a parte que muda os indices, toda vez que mudar um indice vc tem que dar um olbx:refresh()

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0

[Luiz Arruda (ICO)]

Veja seu código

### REDEFINE SAY oSay ID -2 PROMPT clInfo OF oFol:aDialogs[1] UPDATE

### REDEFINE SAY oSay1 ID -3 PROMPT clInfo1 OF oFol:aDialogs[1] UPDATE

### REDEFINE SAY oSay2 ID -4 PROMPT clInfo2 OF oFol:aDialogs[1] UPDATE

id=code>id=code>

É como eu te disse acima e o William reforçou..

Voce não pode usar ID com numeros negativos

-1

-2

-3 etc

id=code>id=code>

Substitua esses numero por outros tipo 50,51,52 etc... e altere a linha ai no seu PRG que vai funcionar.

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 17/11/2010 18:17:50

[AVInfo Sistemas]

então meus amigos o problema anterior foi resolvido .... a unica coisa agora pendente é o fato de q a wbrowse do Hernan dá um problema quando navego pela twbrowse com as teclas do teclado (para baixo e para cima) ou desloco a barra de rolagem da mesma, o restante das linhas ficam todas negras, inclusive o cabeçalho, ficando visível somente a linha selecionada e sempre uma acima, voltando a normal quando se clicka em uma coluna do cabeçalho. Alguém sabe me dizer o que pode ser isso ?? Segue Imagem:

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Bom Dia..

Só pra descarrego e ter uma idéia.. comente essas linhas

/*

oLbbx:lAdjLastCol := .F.

oLbbx:lAdjBrowse := .F.

oLbbx:nHeaderStyle := 3 // 6

oLbbx:nHeaderHeight := 16

oLbbx:nLineStyle := 6 // 11

oLbbx:nLineHeight := 16

oLbbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho

oLbbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos

oLbbx:nClrPane := {|| IIF((oLbbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}

oLbbx:aJustify := {0,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbbx:lMChange := .F. // Desabilta Mousemove

*/

id=code>id=code>

Depois compile, mesmo que fique bagunçado, mas veja se o problema especifico persiste..

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 18/11/2010 08:57:27

[AVInfo Sistemas]

comentei e mesmo assim o problema persiste ...

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Certo.. Vc. testou a dica do William em dar um Refresh no Olbx ???

tô meio coçando o sa## agora..

Se vc. puder me mandar o RC, o DBF e o PRG eu poderia tentar ver o que tá acontecendo e te dizer..

Se mandar indique de onde baixou a TwB. pra eu baixar uma igual a sua..Pois a minha é nativa do FWH..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[AVInfo Sistemas]

Opa ... eu não tinha visto a dica do Willian, bom ela funcionou, mas eu achu q ainda não ficou legal, ele dá o refresh na tabela após as ações de teclado e navegando pela barra de rolagem só q ela dá uma piscada a cada evento, que fica muito evidente. Tem como diminuir o tempo dessas piscadas para que não fiquem tão aparentes, ou vou ter q me contentar com isso ???

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Essa piscada é só no Browse ou na dialog inteira ???

Verifique se vc. não tá dando um Refresh na Dialog também... isso causa uma na tela..

Vc. fez o Refresh em uma func carregada por on Change ??

... On Change Refresca(@olbx)

Proc Refresca(Olbx)

oLbx:Refresh()

Return(.t.)

id=code>id=code>

Porque não vi on change no seu código...

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[AVInfo Sistemas]

tem ON CHANGE, Segue a linha como alterei com o oLbx:refresh() ao final da linha, e a piscada é só no Browse:

id=code>

id=code>

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

Editado por - sdinfo on 18/11/2010 10:33:36

[william]

Ok Sdinfo, entao retire o olbx:refresh() do ON CHANGE para nao ficar piscando.

Ao entrar na tela onde aparece o wbrowse ja deveria aparecer corretamente , experimente colocar o olbx:refresh() no ON INIT :

ACTIVATE DIALOG oDlg NOMODAL CENTERED ON INIT ( MenuCli(oDlg,oLbx),olbx:refresh() )

- verifique tambem se o controle que vc esta usando no RC é realmente um controle do tipo tWbrowse. Clique sobre o controle no workshop, deve aparecer "TWbrowse"

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0

[AVInfo Sistemas]

bom Willian, fiz o q me pediu, mas sem efeito, ao tirar o refresh do on change voltou como estava antes, com a wbrowse ficando negra. E verifiquei no meu resource e está como TWBrowse msm. Então persiste o problema.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Então vamos mudar...

Tire do On change, mas passe como Referencia para seu Function TemObs

De o Refresh lá na Function e veja se resolve...

ON CHANGE (TemObs(@llObs),oSay:Refresh(),oSay1:Refresh() ,;

oSay2:Refresh(),oSay3:Refresh(),oSay4:Refresh(),oSay5:Refresh() ,;

oSay6:Refresh(),oSay7:Refresh(),oSay8:Refresh(),oSay9:Refresh() ,;

oSay0:Refresh(),oObs:Refresh(),oLbxid=red> )

id=code>id=code>

veja se resolve...

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 18/11/2010 11:24:25

[AVInfo Sistemas]

o efeito foi o mesmo de quando coloquei o refresh no on change

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

Desculpe.. olhei seu código até de cabeça pra baixo e não consegui ver nada..

Sugiro me mandar o RC o PRG e o DBF. assim a gente vai fazendo e analisando diretamente na Execução..

Não precisa mandar o PRG do sistema inteiro, Dá um jeito de separar em uma pasta somente a Dialog, o DBF, e esse PRG.

Por enquanto ainda tô coçando.. mas amanha a batalha vai ser duuuuura... Se tiver jeito a gente descobre. é que nunca usei a twb do HC, por isso só na prática mesmo.

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[AVInfo Sistemas]

Opa Luiz. Mandei os arquivos no seu e-mail pra q dê uma olhada. Agradeço desde já a ajuda e desculpe não ter mandado antes, mas é q fiquei um tanto atarefado esse fds. Obrigado mais uma vez Luiz.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

[Luiz Arruda (ICO)]

citação:

Opa Luiz. Mandei os arquivos no seu e-mail pra q dê uma olhada. Agradeço desde já a ajuda e desculpe não ter mandado antes, mas é q fiquei um tanto atarefado esse fds. Obrigado mais uma vez Luiz.

Xharbour 1.2.1 - Fw 10.2 - WS e Pelles

tominem@hotmail.com

---

id=quote>id=quote>

Ops.. Aguarde só mais um pouquinho..

Já gerei o EXE e to 1/2 100 tempo..

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com