JUDSON

alessandro obrigado pela diga , mas resolvi assim: defa->(dbclosearea()) use (w_dbfPath)+"defa.dbf" alias DEFA shared new fecho e abro o banco, ai ele pega o campo atualizado .

Amigos estou com o seguinte problema , tenho um cadastro de nota + itens ( siinota.dbf ) e um 2o banco ( defa.dbf ) onde guardo o sequencial dessas notas , so que qd abro dois cadastros ao mesmo tempo o segundo nunca pega o sequencial da nota atualizada, a rotina e esta: // Atualiza o numero de controle das notas fiscais wcdnf=strzero(val(defa->cdnf)+1,6) ? val(wcdnf) , val(defa->cdnf) If val( wCdnf ) <> (val(DEFA->cdnf)+1) wCdnf := strzero(val(DEFA->cdnf)+1,6) oGetCdnf:refresh() MsgWait("Definido outro número da nota "+wCdnf,"Atenção", 3 ) Endif dbselectarea("DEFA") ; dbgotop() if Trava(2) replace DEFA->cdnf with wcdnf dbunlock() endif dbcommit() ? val(wcdnf) , val(defa->cdnf) ou seja eu atualizo o defa + 1 so quando for incluir o 1o item , entao se os operadores entrarem ao mesmo tempo irão trabalhar com o mesmo numero de nota ate incluirem o 1o itenm ai esta rotina faria a atualizacao da variavel wcdnf , mas parece que o campo defa->cdnf nao e atualizado , alguem ja passou por isso ? Obs: durante a abertura dos dois cadastro quando gravo o 1o item fui no dbu e vi que o defa->cdnf esta atualizado mais no sistema ele mostra . Como se nao tivesse atualizado.

bem pessoal resolvi o problema criei uma ou dialog e fui copiando objeto por objeto da dialog anterior e num determinado via que o um dos static style no id tava 1 em vez de -1 como esta os outros , ai fui so mudar , vai entender , ja que o problema estava no combobox e nao no static style , como eu nao defino ele no meu sistema coloco -1 . espero que ajude os outros colegas que estao com este problema. t+

querido , com tab vai blz , nao tem valid e nem when , relamente e muito estranho , quando dou enter no combo ele sair do ACTIVATE DIALOG: DEFINE ICON oIco02 RESOURCE "AGFARMA" DEFINE DIALOG oDlg02 TITLE vtitu[iif(l_par2="I",1,if(l_par2="A",2,3))] ; RESOURCE "CAD_ASSOCIADO" ; ICON oIco02 oDlg02:lHelpIcon := .F. REDEFINE BITMAP RESOURCE "BARVERT" ID 160 OF oDlg02 // Get's REDEFINE GET oGet01 VAR wcdco ID 101 OF oDlg02 PICTURE "@K9" VALID f_cadassociado( 5, wcdco, l_par2 ) REDEFINE GET oGet02 VAR wcdas ID 102 OF oDlg02 PICTURE "@K9" VALID f_cadassociado( 2, wcdas, l_par2 ) REDEFINE GET oGet03 VAR wncar ID 103 OF oDlg02 PICTURE "@r 999.999.999" REDEFINE GET oGet04 VAR wnome ID 104 OF oDlg02 PICTURE "@!" VALID !empty(wnome) REDEFINE GET oGet05 VAR wapel ID 105 OF oDlg02 PICTURE "@!" REDEFINE GET oGet06 VAR wende ID 106 OF oDlg02 REDEFINE GET oGet07 VAR wbair ID 107 OF oDlg02 REDEFINE GET oGet08 VAR wcida ID 108 OF oDlg02 REDEFINE SAY oSayconvenio PROMPT wconvenio ID 301 OF odlg02 COLOR CLR_RED, CLR_LGREEN FONT vfonts[17] REDEFINE COMBOBOX oGet20 VAR westa ID 123 OF oDlg02 PICTURE "@!" ITEMS w_fede //------->COM ERRO REDEFINE GET oGet09 VAR wcep_ ID 110 OF oDlg02 picture "@r 99.999-99" REDEFINE GET oGet10 VAR wci__ ID 111 OF oDlg02 REDEFINE GET oGet11 VAR wcpf_ ID 112 OF oDlg02 picture "@r 999.999.999-99" REDEFINE GET oGet12 VAR wloca ID 113 OF oDlg02 REDEFINE GET oGet13 VAR wvlrd ID 114 OF oDlg02 picture "@e 999,999.99" REDEFINE GET oGet14 VAR wocup ID 115 OF oDlg02 REDEFINE GET oGet15 VAR wfone ID 116 OF oDlg02 picture "@r (99)9999-9999" REDEFINE GET oGet16 VAR wemai ID 117 OF oDlg02 REDEFINE GET oGet17 VAR wdias ID 118 OF oDlg02 picture "999" REDEFINE GET oGet18 VAR wpdes ID 119 OF oDlg02 picture "999.99" REDEFINE GET oGet19 VAR wlimi ID 120 OF oDlg02 picture "@e 99,999.99" REDEFINE COMBOBOX oComboBloq VAR wbloq ID 121 OF oDlg02 UPDATE ITEMS { "Sim", "Não" } //------->COM ERRO REDEFINE COMBOBOX oComboSitu VAR wativ ID 122 OF oDlg02 UPDATE ITEMS { "Ativo", "Inativo" } //------->COM ERRO // Botoes REDEFINE BTNBMP oBtn01 RESOURCE "BMP_ATIVADO" LEFT ID 201 OF oDlg02 2007 ; PROMPT "&Confirma" FONT oFontBotao ; TOOLTIP "Gravar dados" ACTION ( f_cadassociado( 3, l_Par2 ) ) REDEFINE BTNBMP oBtn02 RESOURCE "BMP_DEL" LEFT ID 202 OF oDlg02 2007 ; PROMPT "&Sair" FONT oFontBotao ; TOOLTIP "Cancelar" ACTION ( wsair:=.t. , oDlg02:end(), dbgotop() , oBro01:refresh(),; oBro01:SetFocus() ) REDEFINE BTNBMP oBtn03 RESOURCE "LUPA" CENTER ID 203 OF oDlg02 2007; TOOLTIP "Pesquisa de Convênios" ; ACTION (h_help(7102," ",""),oget01:refresh(),oget01:setfocus()) oBtn03:CTITLE:="" REDEFINE BTNBMP oBtn04 RESOURCE "LUPA" CENTER ID 204 OF oDlg02 2007; TOOLTIP "Pesquisa de Associados" ; ACTION (h_help(7101," ",""),oGet02:refresh(),oGet02:setfocus()) oBtn04:CTITLE:="" ACTIVATE DIALOG oDlg02 CENTER ON INIT (xsetfocus(oget01)) // valid ( wsair ) dbselectarea("asso") ; dbgotop() xsetfocus(oDlg01)

pessoal ja verifiquei aqui no forum varios post sobre esse meu problema mas nao vi nenhuma solucao , se alguem resolveu da uma alo ai. obrigado

ola pessoal ja verifiquei os senhores pediram COMBOBOX 109, 117, 119, 108, 129, CBS_DROPDOWNLIST | WS_TABSTOP na tela que esta o erro e nas que estao certo a escrita esta a mesma.

Galera defino todos os meus combobox dessa forma: REDEFINE COMBOBOX oComboUF VAR wfede ID 109 OF oDlg02 ITEMS w_fede quando dou enter para passar para outro campo a tela ta fechando sem ir para o proximo campo , mais isso so nas novas telas que estou montando nas anterior esta funcionando blz. o que pode ser ? *obs: to usando o workshop para gerar as telas.

ola kapiaba coloquei o índice nesse dbf como você sugeriu , mas acho que isso não vai adiantar porque antes de gerar esse temporário eu já trabalhava no dbf principal com índice , mas vou testar novamente com índice, amanha posto aqui : dbselectarea("temp") ; dbgotop() Index on nota Tag TMP01 TO ( cArqCdx ) dbsetindex( cArqCdx ) dbgotop()

aparentemente um relatório simples , pensei que podia ser índice desse dbf , então fiz o seguinte passei a gerar um dbf temporário ( temp-> ) toda vez que quero imprimir uma nota gera o dbf temporário , então vi que nesse temporário consta todos os itens da nota e mesmo assim só imprime um item e em outra nota imprime tudo , então não é índice. não consigo visualizar este erro.

Pessoal uso essa rotina a muito tempo com o report nunca tive nenhum problema , mas de um tempo para ca num certo cliente que usa windows 7 passou a dar o seguinte problema: o relatório e de impressão de uma nota avulsa de venda de produto , não é toda vez , mas de vez em quando o mesmo não imprime todos os produtos , imprime um e não imprime os outros , e como se ele não obedece-se o while do relatório , não da para entender porque isso não acontece toda vez segue rotina: dbselectarea("temp") ; dbgotop() wnota:=temp->nota REPORT oReport ; HEADER alltrim(cripto(defa->empr))+" "+alltrim(cripto(defa->fone))," ","NOTA DE ENTREGA - No. "+wnota, if(wtran="T","( TRANSFERENCIA )",""),upper(alltrim(temp->adic)) CENTER ; TITLE "FANTASIA......: " + wcdcl + "-" + clie->FANT,; "RAZÃO SOCIAL..: " + clie->noma ,; "ENDERECO......: " + alltrim(clie->enda)+" NUMERO: "+clie->nume + " BAIRRO: " + clie->baia ,; "CIDADE........: " + cida->desc + " ESTADO: " + clie->esta + " CEP: "+transform(clie->cepa,"@r 99.999-999"),; wcnpjcpf,; "PESSOA/CONTATO: " +clie->cota ,; "TELEFONE......: " +transform(clie->fona,"@r (99)9999-9999/9999-9999")+" FAX: "+transform(clie->tfax,"@r (99)9999-9999"),; " " LEFT ; CAPTION "EMISSÃO DA NOTA DE ENTREGA - No.: "+ wnota ; FONT oFon1, oFon2, oFon3 COLUMN TITLE "Item" DATA temp->nreg FONT 3 COLUMN TITLE "UN" DATA temp->Unid FONT 3 COLUMN TITLE "CODIGO" DATA temp->cdpr FONT 3 COLUMN TITLE "DESCRIÇÃO" DATA temp->des1 FONT 3 COLUMN TITLE "QUANTID" DATA temp->quan FONT 3 PICTURE "99999.99" RIGHT COLUMN TITLE "UNITARIO" DATA temp->vuni FONT 3 PICTURE wmasc2 COLUMN TITLE "%DESCTO" DATA temp->perc FONT 3 PICTURE "999.99" COLUMN TITLE "TOTAL" DATA temp->vpro FONT 3 PICTURE "@E 999,999.99" TOTAL GROUP ON temp->nota END REPORT oReport:bSkip := {|| TEMP->(DbSkip()) } // este eu coloquei ontem mais continua o mesmo erro oReport:Stabilize() ACTIVATE REPORT oReport WHILE wnota = temp->nota .and. !eof(); ON STARTPAGE oReport:SayBitmap(.1,.1,w_dbfPath + "bmp\"+alltrim(defa->logo),0.70,0.70); ON STARTGROUP oReport:NewLine()

obrigado a todos mais resolvi do jeito que o joao falou , fez o teste antes . valeu pessoal.

bom dia joao valeu pela tentativa , realmente parou o relatório , mas eu quero e cancelar o relatório , tipo no meio do relatorio faço um teste e se nao atender CANCELO o relatorio .

Galera tem como cancelar um relatorio feito com o report antes da impressao ? tipo um oreport:cancel ou algo assim ?

vou dar uma olha amigo obrigado

bom dia pessoal , como faço para colocar cor e fonte no texto do CHECKBOX ? to fazendo assim: REDEFINE CHECKBOX oSiinuan VAR lSiinuan ID 107 OF oDlg1 UPDATE WHEN !lTodos COLOR CLR_YELLOW, CLR_GREEN mas o marvado não muda , alguem da uma sugestão ?

Como lhe falei esta com esse msm problema e resolvi da forma que lhe mandei : // Botoes REDEFINE BTNBMP oBtn01 RESOURCE "BMP_ATIVADO" LEFT ID 299 OF oDlg02 2007 ; PROMPT "&Confirma" FONT oFontBotao ; TOOLTIP "Gravar dados" ACTION (f_cadremed(3,l_par2,l_par3)) a diferenca e que coloquei o 2007 , atualize o seu prefil para sabermos a versao que vc sta usando .

RESOURCE "VENDA1" LEFT

Tenho 3 filhos dou minha vida por eles , imagino o que vc ta passando , pois mande para mim tambem. abraços

show de bola garoto , muito o brigado.

Pessoal ja testei de tudo mas nao consigo colocar estas cores do say no folder: REDEFINE SAY oSayNuan PROMPT wnuancia ID 201 OF oFld:aDialogs[ 1 ]; COLOR CLR_RED, CLR_LGREEN a letra fica VERMELHA , mais o fundo fica BRANCO , alguem da uma dica .

ok vou testar qq coisa posto aqui . valeu

obrigado a todos vou tentar modificar a rotina com as informações passada, qualquer coisa posto aqui.

valeu Gbsilva , vou testar , mas se tem alguem com mais informacoes e eexmplos eu aceito.

Grande evandro , como falei so novo no mysql , o amigo teria como dar um exemplo ao principiante aqui ? agradeço desde ja.

E ai mestre do mysql alguem se habilita