aferra

qual a versão de tdosprn que vc está usando Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

do que vc está precisando, de repente pode ser resolvido de outra forma Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

olá! bem pelo que eu entendi, se vc tem a interface, faça a chamada como fazia no Delphi, fica meio estranho o uma ou outra, qual a razão disso tudo? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

vc tentou ler o arquivo erro.log, talves te de uma pista do que está acontecendo, as vezes comigo qdo não aparece nada na tela ele cria o arquivo mesmo assim. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Olá Gabries! Bem isso é um grande problema qdo se usa para impressora matricial ou jato de tinta o mesmo relatório, embora a tprinter ou treport funcionem bem com textos e da problema qdo se usa imagens, talves vc esteja dando algum comando errado, poste como está fazendo o report e assim podemos te ajudar! Qto a melhor seria a vprinter do Vagner, mas se não me engano só funciona com xharbour, tem outras como a easyreport, RPV, mas nunca cheguei a usar Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

HAHAHAHAHAHAH, É VERDADE, HEHEHEHEHEHAAHAHAHAHAHA, tá querendo ganhar este tb!!!!! hahahahahahahahahaha Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU FUI E NÃO PERCO MAIS.

olá, tente isso BLINKER EXECUTABLE CLIPPER //F:200 BLINKER EXTMEM BLOCK 512 BLINKER INCREMENTAL OFF BLINKER EXECUTABLE EXTENDED BLINKER PROCEDURE DEPTH 80 # CALL STACK SIZE BLINKER OVERLAY THRESHOLD 100 # Make small modules stay in the root! BLINKER CACHE EMS 50%, 1024 BLINKER CACHE XMS 50%, 1024 BLINKER EXECUTABLE NODELETE BLINKER LOWMEM RESERVE 32 BLINKER EXECUTABLE COMPRESS 1 BLINKER OVERLAY PAGEFRAME ON BLINKER CLIPPER SYMBOL OFF NOBELL OUTPUT BEGIN AREA FI ENDAREA DEFBEGIN name description "sua empresa" exetype Windows 3.1 code preload moveable discardable data preload moveable stacksize 27500 heapsize 4096 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND LIB LIB Five,FiveC,Objects,WinApi,Fget LIB Clipper,Extend,Terminal,_DbfCdx,DbfCdx Veja se resolve Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU FUI E NÃO PERCO MAIS.

Olá Vailton, parabens, um show de aplicação e forças para vc continuar sua implementação. Pessoal não deixem de testar, a ferramenta muito boa, mais uma razão para mantermos o FW vivo Vida Longa ao FW ABraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU FUI E NÃO PERCO MAIS.

FiveWiners, simplismente The Best Realmente muito bom, havia perdido os outros encontros, mas depois deste nunca mais perderei, e como o Valdir disse, temos condições de mantermos esta ferramenta viva, o Paulo tem razão nossa confraternização foi uma prova de que distancia não impede ninguem de se fazer grandes amizades Abraços e vida longa a grande família Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

tente aumentar o stacksize no .lnk eu utilizo 27500 Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

na versão 6.0 é IF ! ::lPainted Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

se for o que eu entendi, faça o seguinte REPORT oRpt TITLE "Relatório do Faturamento","Período de "+DTOC(vdati)+" á "+DTOC (vdatf),cTit[1]; HEADER "Data: "+DTOC(DATE()),"Página: "+STRZERO(oRpt:nPage,3) RIGHT; FOOTER "","",""; FONT oFont1,oFont2,oFont3 CAPTION "Relatório do Faturamento" TO FILE "C:\SIG\FatMun.TXT" Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

alguém tem uma dica de como sair do terminal tiete e ir para o evento, estou tentando por aqui em ribeirão preto/sp mais as informações estão cruzadas, uns falam que tem uma van que vai até o centro de garulhos outro dizem que não, help!!!! senão eu não chegou rsrsrsrs Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

segue abaixo a que uso STATIC FUNCTION EnviaEmail() PRIVATE oDlgSmtp PRIVATE cHost:=vemp[13] PRIVATE cSender:=Cli->ema PRIVATE cSubject:="Orçamento da Obra "+Or1->ncli+SPACE(100) PRIVATE cMsg:="Segue em anexo o orçamento para sua apreciação"+SPACE(255),lReceipt:=.F. DEFINE DIALOG oDlgSmtp FROM 1,15 TO 330,420 PIXEL STYLE nOr(DS_MODALFRAME,WS_POPUP,WS_VISIBLE,WS_DLGFRAME) FONT oFnt1 COLOR nRgb(0,0,0),nRgb(238,221,187) @ 00.5,01.0 GROUP oGroup1 TO 09.4,28.0 OF oDlgSmtp @ 01.0,02.0 SAY "SMTP - Para enviar" SIZE 80,8 OF oDlgSmtp @ 01.8,02.0 GET cHost PICTURE "@" SIZE 170,8 OF oDlgSmtp @ 02.4,02.0 SAY "Email do Cliente" SIZE 60,8 OF oDlgSmtp @ 03.2,02.0 GET cSender PICTURE "@" SIZE 170,8 OF oDlgSmtp @ 03.8,02.0 SAY "Assunto do Email" SIZE 60,8 OF oDlgSmtp @ 04.6,02.0 GET cSubject PICTURE "@" SIZE 170,8 OF oDlgSmtp @ 05.2,02.0 SAY "Mensagem" SIZE 60,8 OF oDlgSmtp @ 06.0,02.0 GET cMsg SIZE 170,24 MEMO OF oDlgSmtp @ 06.4,02.5 CHECKBOX lReceipt PROMPT "Incluir Resposta Automática do Cliente ?" SIZE 140,8 OF oDlgSmtp @ 135,085 SBUTTON oBtnSmtp1 RESOURCE "Email1","Email2","Email1","Email2"; OF oDlgSmtp PROMPT "&Enviar" FONT oFnt1 ACTION SendMail(ALLTRIM(cHost),ALLTRIM(cSender),ALLTRIM(cSubject),ALLTRIM(cMsg),lReceipt); SIZE 50,15 PIXEL TOOLTIP "Enviar o Orçamento Via Email"; COLOR CLR_WHITE,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_BLUE},{CLR_BLUE,CLR_WHITE})}; TEXT POSITION ON_RIGHT @ 135,145 SBUTTON oBtnSmtp2 RESOURCE "SAIDA1","SAIDA2","SAIDA1","SAIDA2"; OF oDlgSmtp PROMPT "&Retornar" FONT oFnt1 ACTION oDlgSmtp:End(); SIZE 50,15 PIXEL TOOLTIP "Retornar a Tela Anterior"; COLOR CLR_WHITE,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_BLUE},{CLR_BLUE,CLR_WHITE})}; TEXT POSITION ON_RIGHT CANCEL ACTIVATE DIALOG oDlgSmtp CENTER ON PAINT (oMsg:=TMsgBar():New(oDlgSmtp,"Envio de Orçamento Por Email")) RETURN(.T.) STATIC FUNCTION SendMail(cHost,cSender,cSubject,cMsg,lReceipt) LOCAL oMail, oInit oInit := TSmtp():New( cHost ) oMail := TSmtp():New( cHost ) oMail:nGMT := -8 /* oMail:cReplyTo := cReplyTo // enviar para outra conta oMail:lTxtAsAttach := .F. // uncomment to force txt, log and htm files as inline as opposed to attachement oMail:oSocket:lDebug := .T. // uncomment to create log file */ oMail:oSocket:cLogFile := "smtp.log" //oMail:bConnecting := {|| oDlgSmtp:SetText("Connecting to " + cHost + " (" + oMail:cIPServer + ") and waiting for response..." ),oDlgSmtp:Refresh() } //oMail:bConnected := {|| oDlgSmtp:SetText("Connected and sending mail and attachments..." ),oDlgSmtp:Refresh()} oMail:SendMail(cSender,{ cSender },; "Saudações" + CRLF + CRLF +"Segue Anexo o Orçamento de sua obra." + CRLF + CRLF + CRLF +"Certos de sua resposta favorável." + CRLF + "Colocamo-nos a sua inteira disposição para maiores esclarecimentos e negociações.",; // Body/Mensaje cSubject,; // Subject/Asunto { ".\Envia\"+LEFT(Or1->orpd,1)+Or1->nupd+".htm" }, ; // Array of filenames to attach/Arreglo de nombres de archivos a agregar { }, ; // aCC { }, ; // aBCC lReceipt, ; // Return Receipt/acuse de recibo cMsg ) // msg in HTML format/mensaje en HTML oInit:END() RETURN(.T.) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

olá Anderson! eu faço assim: dentro do diretório ..\TSbutton\lib, existe os .rmk onde vc irá compilar dentro do diretório ..\TSbutton\source estão os código fontes que serão compilados e criaram a lib, agora se quiser incorpora-los ao seu programa basta direcionar ou colocar no diretorio do seu programa ABraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

que blz, Marcelo! Estes relatórios sempre são dor de cabeça, já estou ancioso para ver o resultado! Sucessos Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bom dia! Gostaria de saber se existe a possibilidade de uma tsbrowse ficar sem os espaços dos titulos. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bom dia! Gostaria de saber se existe a possibilidade de uma tsbrowse ficar sem os espaços dos titulos. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bom dia! Gostaria de saber se existe a possibilidade de uma tsbrowse ficar sem os espaços dos titulos. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bom dia, blz, segue o meu ferracini_silva@hotmail.com Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Belo trabalho, pelo visto estará servindo de inspiração para muita gente, por isso que o fw terá vida longa. um abraço e sucessos Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bom eu faria desta forma: ::cUltimoItem :=0 METHOD VendeItem( ... ) CLASS TFisPrn If ::EcfType == ecf_bematech ::nLastResult := B_VENDEITE( ... ) elseif ::EcfType == ecf_yanco ::nLastResult := B_VENDEITE( ...) end ::cUltimoItem := StrZero(::cUltimoItem+1,4) Return ::nLastResult Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

olá Marcelo! coloquei e está dando que não existe a função, preciso de alguma lib ou função para isso? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

veja se no xp ou 2000, não está configurado para ele proteger o bd, eu tive um problema parecido e era uma configuração que o administrador da rede fez para proteger os arquivos Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

e para usar como demonstração, existe uma função do blinker que vc coloca no lnk assim BLINKER DEMONSTRATION DATE 2005/11/05 mas não quer funcionar, o programa continua assim mesmo, e se funcionar não precisaria ficar criando código de programação para fazer um programa ser demonstrativo ABraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.