microfly

Valeu meu irmão mais nao funfou, to quase deixando de lado isso pois ja estou a 1 semana nisso e nada

Fiz o que sugeriu mais nao funfou, mais obrigado pela ajuda

* Fim ação de botões *1 Browse Peditem1->(Ordsetfocus("Iitppedic1")) Peditem1->(ORDSCOPE(0, Pedidosc->Ftnpedi+Peditem1->Ftprod )) Peditem1->(ORDSCOPE(1, Pedidosc->Ftnpedi+Peditem1->Ftprod )) Peditem1->(Dbgotop()) REDEFINE BROWSE oLbxpc ID 113 OF oDlg ALIAS "Peditem1" UPDATE ON CHANGE oDlg:Update() ADD COLUMN TO oLbxpc DATA Peditem1->Ftnpedi Picture "999999" Align DT_CENTER Size 050 Header "Nº"+CRLF+"Cotação" ADD COLUMN TO oLbxpc DATA Peditem1->Ftprod Picture "99999" Align DT_CENTER Size 050 Header "Codigo" ADD COLUMN TO oLbxpc DATA Peditem1->Ftdesc Picture "@!" Align DT_LEFT Size 221 Header "Descrição Produto" oLbxpc:Look3d( .T., , , .T. ) oLbxpc:lNOHScroll := .T. oLbxpc:lNOVScroll := .F. oLbxpc:nHeightHead+= 6 oLbxpc:nHeightCell+= 2 oLbxpc:SetColor( {1, 2, 3, 4, 5, 6, 14 },; {CLR_BLACK,CLR_BLUEXP,CLR_WHITE,; {CLR_HGREEN,CLR_BLACK },CLR_WHITE,; {CLR_HBLUE,CLR_BLACK},; {CLR_WHITE,CLR_GREEN } } ) Peditem1->(Dbgobottom()) Peditem1->(Dbgotop()) oLbxpc:bChange:={|| Pegaitem(oLbxft,oDlg)} // Peguei no Grupo do Fivewin em dicas Aferra (Alessandro) oLbxpc:UpStable() oLbxpc:Refresh() oLbxpc:SetFocus() * 2 browse() Select Peditemc Ordsetfocus("Iitprodped") Peditemc->(ORDSCOPE(0, nPedido+Peditem1->Ftprod)) Peditemc->(ORDSCOPE(1, nPedido+Peditem1->Ftprod)) Peditemc->(Dbgotop()) REDEFINE BROWSE oLbxft ID 114 OF oDlg ALIAS "Peditemc" UPDATE ; ON CLICK Inc_ItemCota("Atualizacota", Pedidosc->Ftnpedi,oLbxft, oDlg) ON CHANGE oDlg:UPDATE() ADD COLUMN TO oLbxft DATA Peditemc->Ftfornec Picture "99999" Align DT_RIGHT Size 045 Header "Cod.For" ADD COLUMN TO oLbxft DATA Peditemc->Ftnomefor Picture "@!" Align DT_LEFT Size 229 Header "Nome Fornecedor" ADD COLUMN TO oLbxft DATA Peditemc->Ftqtde Picture "@E 999,999.999" Align DT_RIGHT Size 050 Header "Qtde" ADD COLUMN TO oLbxft DATA Peditemc->Ftvuni Picture "@E 999,999.99" Align DT_RIGHT Size 060 Header "Vlr Unit." ADD COLUMN TO oLbxft DATA Peditemc->Ipi Picture "@E 999.99" Align DT_RIGHT Size 040 Header "Ipi %" ADD COLUMN TO oLbxft DATA Peditemc->Totitem Picture "@E 999,999.99" Align DT_RIGHT Size 060 Header "Total Item" ADD COLUMN TO oLbxft DATA Iif(Peditemc->Menorpreco,"SIM"," ") Align DT_CENTER Size 037 Header "Menor"+CRLF+"Preço" oLbxft:Look3d( .T., , , .T. ) oLbxft:lNOHScroll := .T. oLbxft:lNOVScroll := .F. oLbxft:nHeightHead+= 6 oLbxft:nHeightCell+= 3 oLbxft:nWheelLines:=1 oLbxft:SetColor( {1, 2, 3, 4, 5, 6, 14}, ; {{|| Cor_pedtxtocu()},CLR_BLUEXP, CLR_WHITE, {CLR_HGREEN,CLR_BLACK}, CLR_WHITE,; {|| Cor_pedfunocu()}, {CLR_WHITE, CLR_GREEN}}) oLbxft:Upstable() oLbxft:Refresh() * REDEFINE SAY oItens Prompt nItens Picture "99" ID 60 OF oDlg UPDATE FONT oFont[5] COLOR CLR_HGREEN,CLR_BLACK CENTERED * REDEFINE SAY oTotped Prompt nTotpedGeral Picture "@E 999,999.99" ID 62 OF oDlg UPDATE FONT oFont[5] COLOR CLR_HGREEN,CLR_BLACK REDEFINE BUTTONBMP oBtsair ID 1401 OF oDlg BITMAP "Tsair" CANCEL; ACTION (oDlg:End()) UPDATE RIGHT oBtsair:cTooltip:="Sair e ir para a Tela Principal" oDlg:bpainted := { || Carimbocotap( oDlg:hDC, '© Microfly Informática - Digitação Cotação de Precos', oDlg ) } ACTIVATE DIALOG oDlg CENTERED ON INIT (Ver_menor(oLbxft,oDlg),oDlg:lHelpIcon:=.F.,; Inc_ItemCota("Atualizacota", Pedidosc->Ftnpedi,oLbxft, oDlg)) aEval( oFont, {|o| o:End()}) *--Atualiza o total dos itens If lAdciona .and. nTotpedGeral==0 Pedidosc->(Dbdelete()) Endif Pedidosc->(DBUNLOCK()) Peditemc->(ORDSCOPE(0, NIL)) Peditemc->(ORDSCOPE(1, NIL)) Peditemc->(DBGOTOP()) Select Pedidosc OrdSetFocus("Icotanu") Dbgoto(nRecopedc) Return *------------------------------------------------------------------------------------------* *------------------------------------------------------------------------------------------* Static Function Pegaitem(oLbxft,oDlg) Peditemc->(ordScope(0,nil)) Peditemc->(ordScope(1,nil)) Peditemc->(Ordsetfocus("Iitprodped")) Peditemc->(ordScope(0,Peditem1->Ftnpedi+Peditem1->Ftprod)) Peditemc->(ordScope(1,Peditem1->Ftnpedi+Peditem1->Ftprod)) Peditemc->(dbGotop()) oLbxft:GoTop() oLbxft:Reset() oLbxft:Refresh() oDlg:UPDATE() oDlg:Refresh() Return(oLbxft:Refresh) *--------------------------------------------------------------------------------------------------*

Bom dia a todos Estou com um problema coma Tsbrowse do mercado é o seguinte: Tenho uma dialog com 2 browses o da esquerda ira mostrar o produto e o da direita os fornecedores só que qdo gravo uma cotação de um produto ele atualiza o browse da esquerda e nao atualiza o browse da direita mais qdo eu clico no browse da esquerda ele atualiza o browse da direita e ai segue normal, alguem poderia me ajudar a solucinar esse problema Nota: pedi para o Sr. Manuel Mercado e nem ele me deu a solução. Luiz Carlos Nogueira (Batata) www.microfly.com.br skype suporte.microfly

desculpe-me depois que postei é que vi que tinha os classificados

Agenda de Compromissos - Eletronica agendamento para : Pessoal / Clientes / Fornecedor dispara uma mensagem na tela qdo o usuario logado tem alguma agenda para o dia, esta para disparar a cada 1 minuto, mais esta parametrizada e você determina o tempo para disparo de aviso, o disparo da tela de mensagem é automático por padrão deixei 1 minuto mais você poderá mudar no botão parametrização da agenda. Peça uma DEMO nos endereços abaixo, tentei colocar aqui mais não é permitido baixa o demo neste linkhttp://www.4shared.com/file/AbTtHJRNce/SETUPAGENDA2.html versao com correções dos bugs www.microfly.com.br suporte@microfly.com.br WhatsApp (11) 96969-3667 Skype suporte.microfly

valeu parceiro

Deve nada a mim não meu amigo a COMPETÊNCIA foi sua, eu só mostrei o caminho, e o que precisar de mim conte sempre com seu amigo aqui. tamo junto e misturado. Preciso saber o dia certo pois tem o batizado do meu neto Caua...

Joao so irei se tiver PIZZA PORTUGUESA E BACALHAU, PIZZA 4 QUEIJOS TB OK? DANNNNNNNNNNNNNNNNN CHUPA CORINTHIANS KKKKKKKKKKKKKKKKKKKKKKKKKKKKK www.microfly.com.br Luiz Carlos (BATATA)

Fala mano Joao , eu uso assim Function VerIp() local cIp If WSaStartup() == 0 cIp := ServerIp() WSaCleanUp() Endif Return (cIp) Microfly Informatica skype suporte.microfly Luiz Carlos (Batata)

Function Trunca( nnum, ndec) /*************************************************************************** Corta as casas decimais excedentes de um n£mero (nnum) deixando somente a quantidade determinada por "ndec". - nnum: N£mero a ser "truncado". - ndec: Quantidade de casas decimais desejadas. ****************************************************************************/ Local cnum:='', nret:=0, cpict:='999999999999999.' cpict += Replicate( '9', (ndec+1)) // Ajusta a Picture a ser usada cnum := Transform( nnum, cpict) // Transforma o n£mero em "texto". cnum := Alltrim( cnum) // Elimina "brancos". cnum := Left( cnum, Len(cnum)-1) // Pega o texto, sem a última casa. nret := Val( cnum) // Transforma o texto em n§ novamente Return(nret) /**************************************************************************/ use assim Nota1->Valoricm:= Trunca((Nota1->Valortot*nIcmcli)/100,2) Nota1->Vltcomis:= Trunca((Nota1->Valortot*nComis)/100,2)

GSR.EXE , me mande o seu email que eu te mando ele wwww.microfly.com.br skype - suporte.microfly suporte@microfly.com.br

citação:PessoAll, Estou precisando incluir uma agenda no meu sistema, similar a agenda de clínica. Alguem teria alguma? Obrigado Alexandre (Polirep) Belo Horizonte / MG alexandrepolirep@hotmail.com id=quote>id=quote>se quiser me meu é skype suporte.microfly Luiz Carlos (Batata) Editado por - microfly on 20/12/2012 08:42:24

citação:PessoAll, Estou precisando incluir uma agenda no meu sistema, similar a agenda de clínica. Alguem teria alguma? Obrigado Alexandre (Polirep) Belo Horizonte / MG alexandrepolirep@hotmail.com id=quote>id=quote>Veja no seu email mandei uma img da agenda, ela é alimentada automaticamente a cada finalizacao de O. servico, e tem um timer que dispara de 15 em 15 minutos (pode alterar o tempo) e avisa ao usuario que tem agendamento para o dia, e cada usuário só tem acesso a agenda gerada por ele, o Master tem acesso a todas as agendas Luiz Carlos (Batata) www.microfly.com.br São Paulo - SP Editado por - microfly on 20/12/2012 08:46:23

citação:Concordo com o Alessandro. Aqui tem um exemplo usnado tsbrowse... Veja se entende. http://www.fivewin.com.br/exibedicas.asp?id=674 abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote> citação:id=quote>id=quote>Obrigado ao Ale e ao Joao, o Ronaldo da Bazevani vive me pegando no pé por eu usar classes de terceiros, mais me rendo a vcs irei passar para a Xbrowse, nesse novo projeto que estou desencolvendo, um sistema de consorcios inclusive irei usar a Tal de Ribonbar tem um visual elegante, vlw rapaziada []s e obrigado pela força wwww.microfly.com.br (11) 2645-8412 (11) 969-693-667 Luiz Carlos (Batata)

citação:// Foi bastante complicado compilar a TSBROWSE 9, mas veja abaixo o que precisa para compilar... // Veja onde está escrito: USADO - NÃO USADO... REM -> PROGRAMAS DA TSBROWSE 9.0 REM Pasta de C:\tsbrowse\SOURCE\CLASSES REM 02/04/2010 10:07 379.992 TSBROWSE.PRG - USADO REM 19/11/2009 00:49 17.493 TSBTNGET.PRG - USADO REM 26/12/2009 08:14 31.024 TSCOLUMN.PRG - USADO REM 27/11/2009 01:38 4.258 TSCOMBO.PRG - USADO REM 27/11/2009 01:31 3.321 TSFGET.PRG - USADO REM 27/11/2009 01:39 12.678 TSGET.PRG - USADO REM 27/11/2009 01:37 2.611 TSMULTI.PRG - USADO REM 27/11/2009 01:36 6.080 TSPOINT.PRG - USADO REM Pasta de C:\tsbrowse\SOURCE\FUNCTION REM 14/10/2009 11:05 11.383 DEBUG.PRG - NAO USADO REM 14/10/2009 17:12 24.518 FWCALEN.PRG - USADO REM 20/11/2009 13:07 25.383 TSBFUNCS.C - USADO REM -> Como NÆo Quero Usar a LIB da BtnGet, Vou Incorporar os Arquivos.C REM -> Vou Copiar Arquivos.C Para Usar no Programa - BtnGet.Prg, Precisa. Copy C:\PIZZAS\Tsb\GetBtn.C /Y REM // <<- estes ‚ .c Para TsBrowse ->> REM Copy C:\PIZZAS\Tsb\TSBFuncs.C /Y Copy C:\TSBROWSE\SOURCE\FUNCTION\TSBFuncs.C /Y REM // <<- estes ‚ .c Para TsBrowse ->> REM Copy C:\PIZZAS\Tsb\Scroll.C /Y // NAO + USADO NA TSBROWSE 9.0 Os .C, você tem que tranformar em .OBJ e compilar com o seu sistema. Maiores dúvidas, vá perguntando... Abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote> citação:id=quote>id=quote>Valeu amigo João, mais eu já procurei respostas no forum mais nao funfou nenhuma, mais vlw []s Luiz Carlos (Batata)

citação:Eu as testei, mas tem bug demais. O principal é a barra de rolagem. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 11/11/2012 11:39:22 id=quote>id=quote>exatamente... vc tem alguma que rode com o fw1108 pode ser a tsbrowse 7.1, eu consegui usar a Xbrowse, mais vai um trabalhao mudar tudo rsLuiz Carlos (Batata)

Desculpe meu skype é suporte.microfly Luiz Carlos (Batata) www.microfly.com.br (11) 2645-8412 (11) 969-693-667 Luiz Carlos

retificando meu SKYPE é suporte.microfly Luiz Carlos

retificando meu SKYPE é suporte.microfly Luiz Carlos

Bom Dia, estou tentando compilar via verce5.1 a Tsbrowse8 ou 9, e não estou conseguindo, alguém compilou com exito? se sim poderia enviar no meu email suporte@microfly.com.br ou me adcionar no SKYPE suporte@microfly.com.br Agradeço desde já a colaboração Luiz Carlos (Batata) www.microfly.com.br (11) 2645-8412 (11) 969-693-667 Luiz Carlos

Bom Dia, estou tentando compilar via verce5.1 a Tsbrowse8 ou 9, e não estou conseguindo, alguém compilou com exito? se sim poderia enviar no meu email suporte@microfly.com.br ou me adcionar no SKYPE suporte@microfly.com.br Agradeço desde já a colaboração Luiz Carlos (Batata) www.microfly.com.br (11) 2645-8412 (11) 969-693-667 Luiz Carlos

eu utilizo dessa forma e não tenho problemas e já se vao quase 2 anos Function Emitcuploja(oDlg,oLbxft,nTotpedGeral,nDescto,nOpcnem) Local nLin:=0,m_emnota:=0,m_pg:=0,nArea,oPrn,nVltotal:=0 Local nNomecl,nFnum:=0,nFcom:="",nFende:="",nComis:=0,nAbre:=" " Local nFcli:=" ",nFend:=" ",nFbai:=" ",nFcid:=" ",nConta:=0 Local nFcep:=" ",nCount:=0,nTotqtd:=0,nFvenci:=Ctod(" ") Local nDataVc:=Ctod(" "),nDif:=0,nParc:=0,nVlr:=0,lImprime:=.F.,nPagto:="" Local nPeganf:=Pedidosv->Ftnpedi,nListou:=.F.,nNummais:=0,nDesct:=0 Local nOrdem:=Pedidosv->(OrdName()),nRecop24:=Pedidosv->(Recno()) *-----------------------------------------------------------------------------* If select("Peditem") == 0 If !Abrearq("Peditem","Peditem",.F.,0,"DE Peditem") Dbcloseall() Return Endif Ordlistadd("Peditem") Endif *-----------------------------------------------------------------------------* If select("Pedidos") == 0 If !Abrearq("Pedidos","Pedidos",.F.,0,"DE Pedidos") Dbcloseall() Return Endif Ordlistadd("Pedidos") Endif *-----------------------------------------------------------------------------* Select Pedidosv Pedidosv->(Bloqreg(0)) Pedidosv->Vlrvenda:=Memvar->nTotpedGeral Pedidosv->Vlr_desc:=Memvar->nDescto Pedidosv->Totalped:=Memvar->nTotpedGeral-Memvar->nDescto If Pedidosv->Tipopag=0 Pedidosv->Tipopag:=1 Pedidosv->Qtdparc:=1 Endif Do Case Case Pedidosv->Tipopag=1 Pedidosv->Nomecartao:="Dinheiro" Case Pedidosv->Tipopag=2 Pedidosv->Nomecartao:="Cheque" Case Pedidosv->Tipopag=3 Pedidosv->Nomecartao:="Boleto" Case Pedidosv->Tipopag=4 Pedidosv->Nomecartao:="Cartao" Case Pedidosv->Tipopag=5 Pedidosv->Nomecartao:="Cartao Debito" Case Pedidosv->Tipopag=6 Pedidosv->Nomecartao:="Transferencia" Endcase nArea:=Select() Copy to (PATHTEMP+"\Tmpnf1pc") For Pedidosv->Ftnpedi=nPeganf ABREARQ(Pathtemp+"Tmpnf1pc","Tmpnf1pc",.T.,0,"Temporario") Select Tmpnf1pc Index on Ftnpedi Tag Itmpnf1 OrdSetFocus("Itmpnf1") Dbgotop() Select Pedidos If Adireg(0,"Pedidos") For nli:=1 To Fcount() nlj := Tmpnf1pc->( FieldPos( Pedidosv->( FieldName(nli)))) If (nlj > 0) FieldPut( nli, Tmpnf1pc->( FieldGet(nlj))) Endif Next DbUnlock() Endif Pedidos->(Dbclosearea()) Select Peditemv Copy to (PATHTEMP+"\Tmpnf2pc") For Peditemv->Ftnpedi=nPeganf ABREARQ(Pathtemp+"Tmpnf2pc","Tmpnf2pc",.T.,0,"Temporario") Select Tmpnf2pc Index on Ftnpedi Tag Itmpnf2 OrdSetFocus("Itmpnf2") Dbgotop() Do While Tmpnf2pc->(!Eof()) nLin++ nCount++ nArea:=Select() Select Peditem If Adireg(0,"Peditem") For nli:=1 To Fcount() nlj := Tmpnf2pc->( FieldPos( Peditem->( FieldName(nli)))) If (nlj > 0) FieldPut( nli, Tmpnf2pc->( FieldGet(nlj))) Endif Next DbUnlock() Endif Select(nArea) Tmpnf2pc->(Dbskip()) Enddo Tmpnf2pc->(Ordscope(0,Nil)) Tmpnf2pc->(Ordscope(1,Nil)) Peditem->(Dbclosearea()) If nOpcnem=1 oPrn := TDosPrn():New("COM1") - IMPRESSORA CONECTADA EM USB oPrn:Startpage() oPrn:lZeraBuffer := .T. // Inibe o Pulo da Pagina oPrn:SetCoors( 0,0 ) oPrn:Say( 0,0, Chr(27) + "C" + Chr(40)) oPrn:Say(0,0,Chr(27)+Chr(15)) Select Tmpnf1pc Dbgotop() nCopia:=1 Do While nCopia<3 .and. !Eof() lImprime:=.T. Duplicat->(OrdSetFocus("Iduplic")) nFvenci :=Iif(Duplicat->(Dbseek(Tmpnf1pc->Ftclien)),Duplicat->Datavenc,Ctod(" ")) nFemi:=Dtoc(Tmpnf1pc->Ftdtven) Clientes->(OrdSetFocus("Iclcod")) nfTele :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Ccltele," ") nAbre :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Abrev_tipo," ") nFend :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclende," ") nFNum :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclnum,0) nfCom :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclcomp," ") nfBai :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->CclBair," ") Do Case Case Tmpnf1pc->Tipopag=1 nPagto:="Dinheiro" nFvenci:=Tmpnf1pc->Ftdtven Case Tmpnf1pc->Tipopag=2 nPagto:="Cheque" Case Tmpnf1pc->Tipopag=3 nPagto:="Boleto" Case Tmpnf1pc->Tipopag=4 nPagto:="Cartao" Case Tmpnf1pc->Tipopag=5 nPagto:="Cartao Debito" Case Tmpnf1pc->Tipopag=6 nPagto:="Transferencia" Endcase nPagto +=" / "+Str(Tmpnf1pc->Qtdparc,2)+"X" nDesct :=Tmpnf1pc->Vlr_desc oPrn:Say(00,00+( 75 - LEN( RTRIM(cEnome ) ) ) / 2, RTRIM( cEnome ) ) nlin++ oPrn:Say( 01,00+( 68 - LEN( RTRIM(cEendereco+" - "+cEbairro+" - "+cEcep ) ) ) / 2, RTRIM(cEendereco+" - "+cEbairro+" - "+cEcep ) ) nlin++ oPrn:Say(02,00+( 68 - LEN( RTRIM("Fone/Fax: "+cEtelefone+" / "+cEfax ) ) ) / 2, RTRIM("Fone/Fax: "+cEtelefone+" / "+cEfax) ) oPrn:Say(03,01,"Cnpj : "+cEcnpj) oPrn:Say(03,40,"I.Estadual : "+cEie) oPrn:Say(04,01,"----------------------------------------------------------------") oPrn:Say(05,01,"Pedido........ "+Strzero(Tmpnf1pc->Ftnpedi,6)) oPrn:Say(05,48,"Data : "+Dtoc(Tmpnf1pc->Ftdtven)) oPrn:Say(06,01,"Tipo Venda ... Balcao") oPrn:Say(06,48,"Hora : "+Tmpnf1pc->Horap) oPrn:Say(07,01,"Vendedor...... "+Alltrim(Tmpnf1pc->Nomeven)) oPrn:Say(07,48,"Venc : "+Dtoc(nFvenci)) oPrn:Say(08,01,"Nome..: "+Alltrim(Tmpnf1pc->Nomecli)) oPrn:Say(09,01,"Pag...: "+nPagto) oPrn:Say(10,01,"================================================================") oPrn:Say(11,01,"Descricao Qtde Unit. Total") oPrn:Say(12,01,"================================================================") nLin:=13 Tmpnf2pc->(Ordscope(0,Tmpnf1pc->Ftnpedi)) Tmpnf2pc->(Ordscope(1,Tmpnf1pc->Ftnpedi)) Tmpnf2pc->(Dbgotop()) nCount:=0 Do While Tmpnf2pc->(!Eof()) Estoque->(Ordsetfocus("Istoqcod")) oPrn:Say( nLin,001,Iif(Estoque->(Dbseek(Tmpnf2pc->Ftprod)),Substr(Estoque->Nome,1,36)," ")) oPrn:Say( nLin,037,Transform(Tmpnf2pc->Ftqtde,"@E 9,999.999")) oPrn:Say( nLin,046,Transform(Tmpnf2pc->Ftvunde,"@E 99,999.99")) oPrn:Say( nLin,055,Transform(Tmpnf2pc->Totitem,"@E 999,999.99")) nLin++ nCount++ nTotqtd+=Tmpnf2pc->Ftqtde nVltotal+=Tmpnf2pc->Totitem Tmpnf2pc->(Dbskip()) Enddo Tmpnf2pc->(Ordscope(0,Nil)) Tmpnf2pc->(Ordscope(1,Nil)) oPrn:Say( nLin,01,"----------------------------------------------------------------") nlin++ If nDesct=0 oPrn:Say( nLin,039,"Total Geral: ") oPrn:Say( nLin,056,Transform(nVltotal,"@E 99,999.99")) nlin++ Else oPrn:Say( nLin,039,"Total Venda: ") oPrn:Say( nLin,056,Transform(nVltotal,"@E 99,999.99")) nlin++ oPrn:Say( nLin,039,"Desconto : ") oPrn:Say( nLin,056,Transform(nDesct,"@E 99,999.99")) nlin++ oPrn:Say( nLin,039,"Total Final: ") oPrn:Say( nLin,056,Transform(nVltotal-nDesct,"@E 99,999.99")) nlin++ Endif oPrn:Say( nLin,01,"----------------------------------------------------------------") nlin++ oPrn:Say( nLin,01,Dtoc(Date())+" as "+Time()) oPrn:Say( nLin,26,"- Terminal : "+vUsuarios) nlin++ nlin++ oPrn:Say( nLin,00+( 65 - LEN( RTRIM("Obrigado. Volte Sempre!!!" ) ) ) / 2, RTRIM("Obrigado. Volte Sempre!!!") ) oPrn:Say( 0,0, Chr(27) + "C" + Chr(10)) If nCopia=1 oPrn:Say( 0,0, Chr(27) + "m" ) // Corte Parcial Else oPrn:Say( 0,0, Chr(27) + "w" ) // Corte Total Endif nCopia++ If nCopia=2 nTotqtd :=0 nVltotal:=0 Loop Endif If Tmpnf2pc->(Eof()) Exit Endif nTotqtd :=0 nVltotal:=0 nListou:=.T. Enddo oPrn:EndPage() oPrn:End() CursorArrow() Endif *----------------------------------------------------------* Tmpnf1pc->(Dbclosearea()) Ferase(Pathtemp+"Tmpnf1pc.DBF") Ferase(Pathtemp+"Tmpnf1pc.CDX") Tmpnf2pc->(Dbclosearea()) Ferase(Pathtemp+"Tmpnf2pc.DBF") Ferase(Pathtemp+"Tmpnf2pc.CDX") *----------------------------------------------------------* Select Pedidosv Memvar->nPedido:=0 Memvar->nTotpedGeral:=0 Memvar->nDescto:=0 Gravaitemf(oDbfmerv,oDbfipev,lAdciona,oBtngrava,oDlg,nPedido,nTpsrp) Memvar->nPedido :=Pedidosv->Ftnpedi Pedidosv->Ftclien:=1 Pedidosv->Nomecli:="CONSUMIDOR" Memvar->nIt_Prod := Space(6) Memvar->nIt_Desc := Space(45) Memvar->nIt_forn := 0 Memvar->nIt_Qtde := 0 Memvar->nIt_VlUnit := 0 Memvar->nIt_vlesto := 0 Memvar->nIt_TpDesc := 1 Memvar->nQtdestoq := 0 Memvar->nIt_VlDesc := 0 Memvar->nIt_VlVend := 0 Memvar->nIt_Total := 0 Memvar->nIt_Custo := 0 Memvar->nIt_Totcusto:= 0 Memvar->nIt_Totvol := 0 Memvar->nIt_Comiss := 0 Memvar->nMotivod :=Space(20) Memvar->nIt_Descit:=0 Memvar->nIt_Totdit:=0 Memvar->nIt_Rspdes:=Space(10) xFocus(oNomcli) Memvar->nDtvenda:=Date() Memvar->nTipotec:=1 Peditemv->(ORDSCOPE(0, Pedidosv->Ftnpedi)) Peditemv->(ORDSCOPE(1, Pedidosv->Ftnpedi)) Peditemv->(Dbgotop()) oDlg:UPDATE() Memvar->oLbxft:Gobottom() Memvar->oLbxft:Upstable() Memvar->oLbxft:Gotop() Memvar->oLbxft:Refresh() Select(nArea) Pedidosv->(OrdSetFocus(nOrdem)) Pedidosv->Tipodoc:=1 Pedidosv->Ftclien:=1 Pedidosv->Nomecli:="CONSUMIDOR" xFocus(oNomcli) Memvar->nDtvenda:=Date() Memvar->nTipotec:=1 Formpgto->(Dbunlock()) oRadtec:Refresh() oDlg:UPDATE() oDlg:Refresh() Return *---------------------------------------------------------------------------------* Luiz Carlos (Batata) www.microfly.com.br skype : suporte.microfly Luiz Carlos

citação:Beleza batata, manda o dialogo também por favor, uso workshop.exe Parece bem facinho de usar. Mande zipado por favor. Abraços. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>João esta la no seu email acerta.arj , coloquei a acerta.rc e os bmps ok. []s desculpe a demora Luiz Carlos (Batata) www.microfly.com.br (11) 6969-3667 - oi (11) 2645-8412 - fixo Luiz Carlos

citação:Beleza batata, manda o dialogo também por favor, uso workshop.exe Parece bem facinho de usar. Mande zipado por favor. Abraços. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>João Desculpe-me em só lhe responder agora , ontem tive fora o tempo todo, mais ja to providenciando e te mando ainda hoje no seu email Luiz Carlos