Ei voce ai!! Voce mesmo!! Ja pensou em ser ator/atriz porno??Acho que pelo menos a maioria do publico masculino ja pensou nisso.Alem do cara precisar ter bastante "talento" e como diz Mc Creu: "Tem que ter disposicao.... tem que ter habilidade.... Creu, Creu, Creu", ele deve ser criativo com seu proprio nome.Entao, novamente por acaso do destino, encontrei em um blog [ http://bobagento.com/ ], em um post antigo sobre um site que gera nome de ator ou atriz porno.Aos interessados http://www.sinner.se/pornalizer/O legal que o nome sempre da o mesmo :DMas se voce e conhecido, famoso, ex-BBB, nao tem necessidade de usar outro nome, afinal sua reputacao lhe precede...Alguns exemplos de atores famosos que dispensam "nome artistico"Private PeckerkkkkkkkRaven Roxxxhummm ate que nao ficou ruimImagine voce, se nosso amigo Kid fosse conhecido com Clovis Basilio dos SantosAcho que ele nao seria tao conhecido assim ne? Claudineidsom Suarez 45 anos ex-ator pornoE preciso ter "talento" e nao beleza...Po nao e que Seu Madruga ia ser um nome bom para ator porno?Mas teria que usar o "chapeuzinho"Pois e amiguinho!!! Nem tudo sao flores... Um colega que mora comigo me mostrou esse video, mas nao sei de onde ele achou... O maldito espirito brasileiro...tsc tsc... Mais um epico do tradutor do Google...Copie os quadradinhos aqui de baixo, coloquem pra traduzir do japones e escutem o que rola... . . .. . . . . Outro exemplo de exclusao de registro duplicado, buscando o maior registro. BEGIN TRAN DECLARE @ID VARCHAR(500)DECLARE @CONT intDECLARE CUR_DELETE CURSOR FORSELECT A1_FILIAL+A1_CGC FROM SA1200WHERE D_E_L_E_T_ = ' 'GROUP BY A1_FILIAL+A1_CGCHAVING COUNT(*) > 1OPEN CUR_DELETEFETCH NEXT FROM CUR_DELETE INTO @IDWHILE @@FETCH_STATUS = 0BEGINUPDATE SA1200 SET D_E_L_E_T_ = '*'WHERE R_E_C_N_O_ = (Select max(R_E_C_N_O_) From SA1200 t2 Where A1_FILIAL+A1_CGC = @ID )FETCH NEXT FROM CUR_DELETE INTO @IDEND Quando desenvolvemos uma nova rotina, que tem uma nova tabela ao entrar na rotina pela primeira vez o protheus se encarrega de pegar os dados da estrutura nos SX 2, 3 etc, e cria a tabela na base de dados.Porem se nao temos uma rotina como fazer?Uma forma rapida de criar a tabela e executar o comando CHKFILE("tabela") em alguma rotina que possua formula.Como por exemplo o SIGACFG acesse a rotina Formula e execute o comando chkfile('SZ1') para criar a tabela SZ1.Lembre-se a estrutura do SZ1 deve estar nos SX's antes de executar o comando.FONTE: http://efacildemais.blogspot.com.br Esses dias estava precisando montar algo para apresentar o tempo que uma determinada rotina, uma parte eu pesquisei e consegui um funcao pronta, outra parte foi montada. Compartilhando abaixo a ideia. /*/{Protheus.doc} TempRestExemplo de chamada da funcao.** Fonte nao compilado, pode haver erros de sintaxe. /*/User Function APrefHR() Local nTimeIni := Seconds() Local nI := 1 Local nFim = 50000 For Ni := 1 To nFIm conout(U_TempRest(nI, nFim,nTimeIni)[4]) NextReturn Nil /*/{Protheus.doc} TempRestFaz o calculo de tempo restante para um processo@author TSC679 - CHARLES REITZ@since 12/07/2016@param nTotaisP, numeric, descricao@param nIncrement, numeric, descricao@param nTimeIni, numeric, descricao@return return, return_description/*/User Function TempRest(nTotaisP,nIncrement,nTimeIni) Local cTempoRest := "" Local nHoraRest := 0 LOcal nSecAtual := seconds() Local aRetFun := {nil,nil,nil,nil} Local nSecAux := 0 If KillApp() MsgInfo("Sistema sera finalizado.","Atencao