aferra

Essa funciona para tudo é global SetGetColorFocus( nRGB( 255, 240, 100) )

Utilize a classe TSmtp() o exemplo seria \fwh\samples\testsmtp.prg

A mensagem indica que não existe itens no objeto veja o que possui no retorno de cRetorno , dependendo da sua versão fivewin pode usar assim xBrowse(cRetorno )

tente "@K9"

Tente assim oBrw0:aCols[4]:bOnPostEdit := {|o,x| tab_item_1[oBrw0:nArrayAT ,4 ] := x }

Bom dia. O que já li é que tem como usar com ODBC.

Bom dia. vc dever ter algo desse tipo, procure e tire oFld:aDialogs[1]:oClient := oBrw

ahhhh que foi foi. kkkkkkkkkkkkkkkkkkkkkkkkkkkk

Boa prática para troca de versão. olhe sempre o buildx.bat (xHarbour) e buildh.bat (Harbour) da pasta \samples e nunca terás problemas, claro que se houver algo de terceiros poderá acontecer alguma incompatibilidade, caso contrario serás felilz ou não. rsrsrsrsrsrsrs

Estou precisando. alguém tem funcionando e queira vender ?

Boa tarde. eu escolheria ficar nativo. nessa sua versão tem isso. dê uma olhada em todos os fontes maria*.prg, em mariainv.prg lhe dará todo o suporte necessário pra o CRUD.

Procure por phyton

Bom até tem mas não sei se funciona como o seek, veja Ascan( <aArray> , ; <xbSearch>, ; [<nStart>], ; [<nCount>], ; [<lExact>], ; [<lASCII>] ) Arguments <aArray> This is the array to iterate. <xbSearch> <xbSearch> is either the value to search in <aArray> or a code block containing the search condition. The code block receives a single parameter which is the value stored in the current array element. The code block must return a logical value. When the return value is .T. (true), the function stops searching and returns the position of the corresponding array element. <nStart> This is a numeric expression indicating the first element in the array to begin the search with. It defaults to 1, the first element of <aArray>. <nCount> A numeric expression specifying the number of elements to search. It defaults to 1+Len(<aArray>)-<nStart>. <lExact> This parameter influences the comparison for searching character strings in <aArray>. If .T. (true) is passed, an exact string comparison is performed. When omitted or if .F. (false) is passed, string comparison follows the SET EXACT rules. <lASCII> This parameter is only relevant for arrays that contain single characters in their elements. A single character is treated like a numeric ASCII value when <lASCII> is .T. (true). The default is.F. (false). Return AScan() returns the numeric ordinal position of the array element that contains the searched value. When no match is found, the return value is 0.

pensado rápido nPos := 0 while nPos == 0 nPos := ASCAN( iClientesAte, {|x|x[23] == cData } ) cData += 1 Enddo

Bom blz e vc? bem, de forma automatica eu não sei, mas ai vc sabendo qual a coluna faça assim aEval( oBrw:aCols, <|oCol,nCol| If <sua condição> oCol:nEditType := EDIT_NONE Else If nCol == 2 oCol:nEditType := EDIT_GET_BUTTON Else oCol:nEditType := EDIT_GET // ou outro controle qualquer Endif Endif > )

Tente dessa maneira oBrw:bChange := <|| If <sua condição> oBrw:aCols[<sua coluna>]l:nEditType := EDIT_NONE Else oBrw:aCols[<sua coluna>]l:nEditType := EDIT_GET // ou outro controle qualquer Enidf > dessa forma pode ser feita par todas as colunas oBrw:bChange := <|| SysRefresh() aEval( oBrw:aCols, <|oCol,nCol| If <sua condição> oCol:nEditType := EDIT_NONE Else oCol:nEditType := EDIT_GET // ou outro controle qualquer Endif > ) >

Meus sentimentos.

hummmmm entendi. ai então fica a parte de descobrir como colocar a tela no outro monitor.

Bom. com certeza são as duas coisas. programação e hardware. mas ... cada coisa que inventam. rsrs façam como no supermercado. 1 monitor para o usuário e o cliente.

Acho que seria isso SELECT codigo,datacadastro,Count(*) FROM <nome_tabela>GROUP BY codigo,datacadastroHAVING Count(*) > 1

http://www.pctoledo.com.br/forum/filebase.php?d=1&id=143&c_old=0&what=c&page=1

Aproveitando. essa seria a melhor escolha? (eu escolhi a nuvem) Digamos um cliente não quer na nuvem. ele tem um server 20?? como seria o compartilhamento disso? teria que instalar tb nas estações o sql ? um grande abraço

inverta a ordem do bmp e do group, veja se funciona.

Bom dia. usando o WHEN .F. pode fazer o eval() do objeto. If Eval( oBtn:bWhen ) ? "nao está travado" Else ? "está travado" Endif

if vrad=1 oBrw:aCols[1]:bStrdata := {|| estoque} Else oBrw:aCols[1]:bStrdata := {|| produto} Endif