maudruidas

TENTEI DESTA FORMA MAS ELE CONTINUA COLOCANDO A SEGUNDA BARRA EM CIMA DA PRIMEIRA, MESMO TIRANDO O TOP. DEFINE SBUTTONBAR oBar OF OWND SIZE 60,45 //TOP DEFINE SBUTTONBAR oBar2 OF OWND SIZE 60,45 //TOP oBar:SetBrush( oBrush ) oBar:bRClicked:= { || NIL } //Mouse direito oBar:bLClicked:= { || NIL } //Mouse esquerdo DEFINE SBUTTON OBTN1 OF oBar ; RESOURCE "GRUPOS" ; ACTION CADGRU(); TOOLTIP "Cadastro de Grupo de Produtos"; PROMPT "Grupos" FONT OFNT; COLORS PRETO,CINZA; TEXT POSITION ON_BOTTOM ; MESSAGE "Manutenção de Grupo de Produtos" ; XP DEFINE SBUTTON OBTN2 OF oBar ; RESOURCE "SUBGRU" ; ACTION CADSUB(); TOOLTIP "Cadastro de Sub-Grupo de Produtos"; PROMPT "Sub-Grupos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Sub-Grupo de Produtos" ; XP DEFINE SBUTTON OBTN3 OF oBar ; RESOURCE "PRODUTOS" ; ACTION CADPRO(); TOOLTIP "Cadastro de Produtos"; PROMPT "Produtos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Produtos" ; XP DEFINE SBUTTON OBTN4 OF oBar ; RESOURCE "PRATELEI" ; ACTION CADPRA(); TOOLTIP "Cadastro de Prateleiras"; PROMPT "Prateleiras" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Prateleiras" ; XP DEFINE SBUTTON OBTN5 OF oBar ; RESOURCE "BARRAS" ; ACTION CODBAR(); TOOLTIP "Código de Barras"; PROMPT "Etiquetas" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Emite Código de Barras" ; XP DEFINE SBUTTON OBTN6 OF oBar ; RESOURCE "ESTOQUE" ; ACTION CADEST(); TOOLTIP "Controle de Estoque"; PROMPT "Estoque" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Estoque" ; XP DEFINE SBUTTON OBTN7 OF oBar ; RESOURCE "CIDADES" ; ACTION CADCID(); TOOLTIP "Cadastro de Cidades"; PROMPT "Cidades" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Cidades"; XP; GROUP DEFINE SBUTTON OBTN8 OF oBar ; RESOURCE "CLIENTES" ; ACTION CADCLI(); TOOLTIP "Cadastro de Clientes"; PROMPT "Clientes" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Clientes"; XP DEFINE SBUTTON OBTN9 OF oBar ; RESOURCE "FORNECEDOR" ; ACTION CADFOR(); TOOLTIP "Cadastro de Fornecedores"; PROMPT "Fornecedores" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Fornecedores"; XP DEFINE SBUTTON OBTN10 OF oBar ; RESOURCE "USUARIOS" ; ACTION CADUSU(); TOOLTIP "Cadastro de Usuários"; PROMPT "Usuários" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Manutenção de Usuários"; XP DEFINE SBUTTON OBTN11 OF oBar ; RESOURCE "PDV" ; ACTION IIF(SENUSU(0,SPACE(40),"S")=.T.,PDV("I",0),) ; TOOLTIP "Ponto de Venda"; PROMPT "P.D.V." FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Ponto de Venda"; XP; GROUP DEFINE SBUTTON OBTN12 OF oBar ; RESOURCE "VENDAS" ; ACTION VENDAS() ; TOOLTIP "Vendas Efetuadas e Contas à Receber"; PROMPT "Vendas" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Vendas Efetuadas e Contas à Receber" ; XP DEFINE SBUTTON OBTN13 OF oBar ; RESOURCE "NOTA" ; ACTION CADNOT() ; TOOLTIP "Emissão de Notas Fiscais"; PROMPT "Notas Fiscais" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Emissão de Notas Fiscais" ; XP DEFINE SBUTTON OBTN14 OF oBar ; RESOURCE "COMPRAS" ; ACTION COMPRAS() ; TOOLTIP "Controle de Compras"; PROMPT "Compras" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Controle de Compras" ; XP DEFINE SBUTTON OBTN15 OF oBar ; RESOURCE "PAGAR" ; ACTION CONPAG() ; TOOLTIP "Contas à Pagar"; PROMPT "Pagamentos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Controle de Contas à Pagar" ; XP DEFINE SBUTTON OBTN16 OF oBar ; RESOURCE "ORCAMEN" ; ACTION ORCA() ; TOOLTIP "Controle de Orçamentos"; PROMPT "Orçamentos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Controle de Orçamentos" ; XP DEFINE SBUTTON OBTN17 OF oBar ; RESOURCE "PEDIDOS" ; ACTION CADPED() ; TOOLTIP "Pedidos / Condicional"; PROMPT "Pedidos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Controle de Pedidos / Condicionais" ; XP DEFINE SBUTTON OBTN18 OF oBar ; RESOURCE "AVISTA" ; ACTION CADCHE() ; TOOLTIP "Controle de Cheques"; PROMPT "Cheques" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Controle de Cheques" ; XP DEFINE SBUTTON OBTN19 OF oBar2 ; RESOURCE "ARQUIVOS" ; ACTION REORG() ; TOOLTIP "Reorganiza Todos Arquivos"; PROMPT "Arquivos" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Reorganização de Todos Arquivos" ; XP; GROUP DEFINE SBUTTON OBTN20 OF oBar2 ; RESOURCE "CALCULADORA" ; ACTION WINEXEC("CALC.EXE") ; TOOLTIP "Chama a Calculadora"; PROMPT "Calculadora" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Chama a Calculadora" ; XP DEFINE SBUTTON OBTN21 OF oBar2 ; RESOURCE "FECHAR" ; ACTION OWND:END() ; TOOLTIP "Sair do Sistema"; PROMPT "Sair" FONT OFNT; TEXT POSITION ON_BOTTOM ; COLORS PRETO,CINZA; MESSAGE "Finaliza o Sistema" ; XP id=code>id=code>Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

E aí galera alguma dica ? Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Uso uma Sbuttonbar na minha Tela Principal. Mas preciso colocar outra embaixo desta. Como faço para definir a posição dela sem ser top, left etc. Obrigado. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Uso uma Sbuttonbar na minha Tela Principal. Mas preciso colocar outra embaixo desta. Como faço para definir a posição dela sem ser top, left etc. Obrigado. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Antenor eu já havia testado com estes parametros, mas acontece nada, o negrito não funciona. Jeja como estou fazendo SET ALTERNATE SET ALTERNATE TO C:\SISCOM\CONTRATO.TXT ? CHR(19)+"CONTRATO PARA COMPRA DE MERCADORIAS A CRÂDITOS" +CHR(19)+CHR(18) SET ALTERNATE OFF CLOSE ALTERNATE ! C:\SISCOM\NODOSIMP C:\SISCOM\CONTRATO.TXT 80 id=code>id=code>Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal baixei a versão 7.3b do NODOSIMP mas tenho nenhum manual. Alguém tem para me enviar. Na verdade estou precisando colocar negrito e mudar o tamanho da fonte em algumas partes do texto. Tem como ? Obrigado Maurício Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal baixei a versão 7.3b do NODOSIMP mas tenho nenhum manual. Alguém tem para me enviar. Na verdade estou precisando colocar negrito e mudar o tamanho da fonte em algumas partes do texto. Tem como ? Obrigado Maurício Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

VALEU ERA ISTO MESMO QUE EU PRECISAVA. MUITO OBRIGADO. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal bom dia, preciso que o usuário escolha o diretório no qual vou ler os arquivos XML para enviar e-mails. Qual comando ou função que uso para selecionar este diretório ? Vejam bem, apenas o diretório e não os arquivos que estão nele. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal bom dia, preciso que o usuário escolha o diretório no qual vou ler os arquivos XML para enviar e-mails. Qual comando ou função que uso para selecionar este diretório ? Vejam bem, apenas o diretório e não os arquivos que estão nele. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Me parece que o GROUP é usado em menus. Alguém saberia como usá-lo na minha SBUTTONBAR. Preciso apenas colocar divisões SEPARATOR como fazia com o TBBUTTON. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5 Editado por - maudruidas on 24/08/2011 05:12:46

Resolvi trocar pela SBUTTONBAR. Como faço para colocar o SEPARATOR na Barra ? Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessol resolvi colocar texto nos botões (Tbbutton) da minha toolbar. Porém ela automaticamente aumentou o tamanho dos botões paa caber o texto. Gostaria de saber se tem como divir o texto do botão em duas partes (em cima e embaixo) ou como faço para definir o fonte no Tbbutton. DEFINE IMAGELIST oImageList SIZE 30, 30 DEFINE IMGBITMAP OF oImageList NAME "Grupos" DEFINE IMGBITMAP OF oImageList NAME "Subgru" DEFINE IMGBITMAP OF oImageList NAME "Produtos" DEFINE IMGBITMAP OF oImageList NAME "Pratelei" DEFINE IMGBITMAP OF oImageList NAME "Barras" DEFINE IMGBITMAP OF oImageList NAME "Estoque" DEFINE IMGBITMAP OF oImageList NAME "Cidades" DEFINE IMGBITMAP OF oImageList NAME "Clientes" DEFINE IMGBITMAP OF oImageList NAME "Fornecedor" DEFINE IMGBITMAP OF oImageList NAME "Usuarios" DEFINE IMGBITMAP OF oImageList NAME "Pdv" DEFINE IMGBITMAP OF oImageList NAME "Vendas" DEFINE IMGBITMAP OF oImageList NAME "Nota" DEFINE IMGBITMAP OF oImageList NAME "Compras" DEFINE IMGBITMAP OF oImageList NAME "Pagar" DEFINE IMGBITMAP OF oImageList NAME "Orcamen" DEFINE IMGBITMAP OF oImageList NAME "Pedidos" DEFINE IMGBITMAP OF oImageList NAME "Avista" DEFINE IMGBITMAP OF oImageList NAME "Arquivos" DEFINE IMGBITMAP OF oImageList NAME "Calculadora" DEFINE IMGBITMAP OF oImageList NAME "Fechar" DEFINE TOOLBAR oToolBar OF oWnd SIZE 60,45 IMAGELIST oImageList BALLOON// tooltips balloon style oToolBar:SetTextRows( 2 ) DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Grupo de Produtos"; PROMPT "Grupos" ; MESSAGE "Manutenção de Grupo de Produtos" ; ACTION CADGRU() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Sub-Grupo de Produtos"; PROMPT "Sub-Grupos"; MESSAGE "Manutenção de Sub-Grupo de Produtos"; ACTION CADSUB() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Produtos"; PROMPT "Produtos"; MESSAGE "Manutenção de Produtos" ; ACTION CADPRO() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Prateleiras"; PROMPT "Prateleiras"; MESSAGE "Manutenção de Prateleiras" ; ACTION CADPRA() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Código de Barras"); PROMPT "Etiquetas"; MESSAGE "Emite Código de Barras" ; ACTION CODBAR() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Controle de Estoque"); PROMPT "Estoque"; MESSAGE "Manutenção de Estoque" ; ACTION CADEST() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Cidades"; PROMPT "Cidades"; MESSAGE "Manutenção de Cidades "; ACTION CADCID() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Clientes"; PROMPT "Clientes"; MESSAGE "Manutenção de Clientes"; ACTION CADCLI() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Fornecedores"; PROMPT "Fornecedores"; MESSAGE "Manutenção de Fornecedores" ; ACTION CADFOR() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Cadastro de Usuários"); PROMPT "Usuários"; MESSAGE "Manutenção de Usuários" ; ACTION CADUSU() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Ponto de Venda"; PROMPT "P.D.V."; MESSAGE "Ponto de Venda"; ACTION IIF(SENUSU(0,SPACE(40),"S")=.T.,PDV(),) DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Vendas Efetuadas e Contas à Receber"); PROMPT "Vendas"; MESSAGE "Vendas Efetuadas e Contas à Receber" ; ACTION VENDAS() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Notas Fiscais"; PROMPT "Notas Fiscais"; MESSAGE "Notas Fiscais" ; ACTION CADNOT() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Compras"; PROMPT "Compras"; MESSAGE "Compras" ; ACTION COMPRAS() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Contas à Pagar"); PROMPT "Contas à Pagar"; MESSAGE "Contas à Pagar" ; ACTION CONPAG() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Orçamentos"); PROMPT "Orçamentos"; MESSAGE "Orçamentos" ; ACTION ORCA() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Pedidos"; PROMPT "Pedidos"; MESSAGE "Pedidos" ; ACTION CADPED() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "CHEQUES"; PROMPT "Cheques"; MESSAGE "Controle de Cheques" ; ACTION CADCHE() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Reorganiza Todos Arquivos"; PROMPT "Arquivos"; MESSAGE "Reorganização de Todos Arquivos" ; ACTION REORG() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Calculadora"; PROMPT "Calculadora"; MESSAGE "Busca a Calculadora" ; ACTION WINEXEC("CALC.EXE") DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Sair do Sistema"; PROMPT "Sair"; MESSAGE "Finaliza o Sistema" ; ACTION OWND:END() Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessol resolvi colocar texto nos botões (Tbbutton) da minha toolbar. Porém ela automaticamente aumentou o tamanho dos botões paa caber o texto. Gostaria de saber se tem como divir o texto do botão em duas partes (em cima e embaixo) ou como faço para definir o fonte no Tbbutton. DEFINE IMAGELIST oImageList SIZE 30, 30 DEFINE IMGBITMAP OF oImageList NAME "Grupos" DEFINE IMGBITMAP OF oImageList NAME "Subgru" DEFINE IMGBITMAP OF oImageList NAME "Produtos" DEFINE IMGBITMAP OF oImageList NAME "Pratelei" DEFINE IMGBITMAP OF oImageList NAME "Barras" DEFINE IMGBITMAP OF oImageList NAME "Estoque" DEFINE IMGBITMAP OF oImageList NAME "Cidades" DEFINE IMGBITMAP OF oImageList NAME "Clientes" DEFINE IMGBITMAP OF oImageList NAME "Fornecedor" DEFINE IMGBITMAP OF oImageList NAME "Usuarios" DEFINE IMGBITMAP OF oImageList NAME "Pdv" DEFINE IMGBITMAP OF oImageList NAME "Vendas" DEFINE IMGBITMAP OF oImageList NAME "Nota" DEFINE IMGBITMAP OF oImageList NAME "Compras" DEFINE IMGBITMAP OF oImageList NAME "Pagar" DEFINE IMGBITMAP OF oImageList NAME "Orcamen" DEFINE IMGBITMAP OF oImageList NAME "Pedidos" DEFINE IMGBITMAP OF oImageList NAME "Avista" DEFINE IMGBITMAP OF oImageList NAME "Arquivos" DEFINE IMGBITMAP OF oImageList NAME "Calculadora" DEFINE IMGBITMAP OF oImageList NAME "Fechar" DEFINE TOOLBAR oToolBar OF oWnd SIZE 60,45 IMAGELIST oImageList BALLOON// tooltips balloon style oToolBar:SetTextRows( 2 ) DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Grupo de Produtos"; PROMPT "Grupos" ; MESSAGE "Manutenção de Grupo de Produtos" ; ACTION CADGRU() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Sub-Grupo de Produtos"; PROMPT "Sub-Grupos"; MESSAGE "Manutenção de Sub-Grupo de Produtos"; ACTION CADSUB() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Produtos"; PROMPT "Produtos"; MESSAGE "Manutenção de Produtos" ; ACTION CADPRO() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Prateleiras"; PROMPT "Prateleiras"; MESSAGE "Manutenção de Prateleiras" ; ACTION CADPRA() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Código de Barras"); PROMPT "Etiquetas"; MESSAGE "Emite Código de Barras" ; ACTION CODBAR() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Controle de Estoque"); PROMPT "Estoque"; MESSAGE "Manutenção de Estoque" ; ACTION CADEST() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Cidades"; PROMPT "Cidades"; MESSAGE "Manutenção de Cidades "; ACTION CADCID() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Clientes"; PROMPT "Clientes"; MESSAGE "Manutenção de Clientes"; ACTION CADCLI() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Cadastro de Fornecedores"; PROMPT "Fornecedores"; MESSAGE "Manutenção de Fornecedores" ; ACTION CADFOR() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Cadastro de Usuários"); PROMPT "Usuários"; MESSAGE "Manutenção de Usuários" ; ACTION CADUSU() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Ponto de Venda"; PROMPT "P.D.V."; MESSAGE "Ponto de Venda"; ACTION IIF(SENUSU(0,SPACE(40),"S")=.T.,PDV(),) DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Vendas Efetuadas e Contas à Receber"); PROMPT "Vendas"; MESSAGE "Vendas Efetuadas e Contas à Receber" ; ACTION VENDAS() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Notas Fiscais"; PROMPT "Notas Fiscais"; MESSAGE "Notas Fiscais" ; ACTION CADNOT() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Compras"; PROMPT "Compras"; MESSAGE "Compras" ; ACTION COMPRAS() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Contas à Pagar"); PROMPT "Contas à Pagar"; MESSAGE "Contas à Pagar" ; ACTION CONPAG() DEFINE TBBUTTON OF oToolBar ; TOOLTIP ANSITOOEM("Orçamentos"); PROMPT "Orçamentos"; MESSAGE "Orçamentos" ; ACTION ORCA() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Pedidos"; PROMPT "Pedidos"; MESSAGE "Pedidos" ; ACTION CADPED() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "CHEQUES"; PROMPT "Cheques"; MESSAGE "Controle de Cheques" ; ACTION CADCHE() DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Reorganiza Todos Arquivos"; PROMPT "Arquivos"; MESSAGE "Reorganização de Todos Arquivos" ; ACTION REORG() DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Calculadora"; PROMPT "Calculadora"; MESSAGE "Busca a Calculadora" ; ACTION WINEXEC("CALC.EXE") DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON OF oToolBar ; TOOLTIP "Sair do Sistema"; PROMPT "Sair"; MESSAGE "Finaliza o Sistema" ; ACTION OWND:END() Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal desculpe, não quis dizer que o programa do Ricardo tinha algum erro. E ele não tem, ele envia os e-mails perfeitamente. Eu só queria saber se existia uma forma de saber se quando enviar um e-mail incorreto ou seja que não existe, se retornaria como .F.. Mas pelo que entendi não tem jeito, o problema vai ser do usuário, e ele só vai saber quando o cliente dele ligar reclamando que não foi enviado a NFE. Obrigado e se alguém souber alguma forma poste aqui. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Veja bem João o próprio programa do Ricardo (original) também não verifica se o e-mail está correto e a lRet retorna como Verdadeiro. Fiz um teste no Yahoo e ele aceitou eu enviar um e-mail que não exite. Acho que o negócio é mais complicado !!! se alguem souber favor ajudar. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal peguei aqui no site um programa do Sr. Ricardo de Moura Marques (Valeu Ricardo), onde fiz no meu sistema uma forma de enviar as Nfes exportadas do Sistema do Governo, para os clientes, de forma simples e rápida. Porém percebi uma falha do programa. Se o e-mail ao qual estou enviando a nota estiver errado ele aceita e diz: ENVIADO COM SUCESSO !. EX: DSJHHFDJJF34@YAHOO.COM.BR Existe uma forma de verificar um retorno que este e-mail não existe ? Pois não dá para confiar no cadastro de clientes de uma empresa onde faturam mais de 500 notas por dia. Obrigado e aguardando. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal peguei aqui no site um programa do Sr. Ricardo de Moura Marques (Valeu Ricardo), onde fiz no meu sistema uma forma de enviar as Nfes exportadas do Sistema do Governo, para os clientes, de forma simples e rápida. Porém percebi uma falha do programa. Se o e-mail ao qual estou enviando a nota estiver errado ele aceita e diz: ENVIADO COM SUCESSO !. EX: DSJHHFDJJF34@YAHOO.COM.BR Existe uma forma de verificar um retorno que este e-mail não existe ? Pois não dá para confiar no cadastro de clientes de uma empresa onde faturam mais de 500 notas por dia. Obrigado e aguardando. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal preciso fazer um programa para um cliente que envie as Nfes (xml e pdf) para seus clientes após ter exportadas do sistema do governo NFE 2.0. Copiei um programa aqui postado pelo Caio Richetti, onde a fonte inicial era do Moura Marques, mas não consigo fazer o teste funcionar. Vejam onde estou errando, Por favor. a mesnsagem é sempre a mesma: Mensagem Não Enviada. Static cAttach := "" Static aAttach := {} Function Email() ************************************************************** *Dominio /Serv /Porta /SSL * ************************************************************** *{"@hotmail.com", "smtp.live.com", 25, .t. }* *{"@yahoo.com.br", "smtp.mail.yahoo.com.br", 25, .f. }* *{"@gmail.com", "smtp.gmail.com", 465, .t. }* *{"@uol.com.br", "smtp.uol.com.br", 25, .f. }* *{"@bol.com.br", "smtp.bol.com.br", 25, .f. }* *{"@terra.com.br", "smtp.terra.com.br", 587, .f. }* *{"@ig.com.br", "smtp.ig.com.br", 465, .t. }* *{"@ibest.com.br", "smtp.ibest.com.br", 465, .t. }* *{"@itelefonica.com.br","smtp.itelefonica.com.br", 25, .f. }* *{"@pop.com.br", "smpt.pop.com.br", 25, .f. }* ************************************************************** // cRemt := cUser := "user" // cPass := "********" // cDest := "user@email.com" cRemt := cUser := "mult.informatica@terra.com.br" cPass := "mult3233" cDest := "maudruidas@yahoo.com" cCC := "" cCCO := "" cTxt := "TESTE" cSubject := "teste" aAttach :={"anexo"} // cDomi :="dominio" // cServ :="smtp" // nPort :=porta // lSSL :=S/N cDomi := "@terra.com.br" cServ := "smtp.sao.terra.com.br" nPort := 587 lSSL := .f. Config_Mail(Lower(alltrim(cUser)),Alltrim(cPass),Lower(Alltrim(cRemt)),; Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cSubject,cDomi,cServ,nPort,lSSL ) return Function Config_Mail(cUser,cPass,cRemt,cDest, cCC, cCCO, cTxt, cSubject,cDomi,cServ,nPort,lSSL) local lRet := .f. local oCfg, oError local lAut := .t. // SMTP := "smtp.servidor.com.br" if Empty(cPass) .or. Empty(cRemt) .or. Empty(cDest) ? "Preencha todos Campos" return .f. else cUser := alltrim(cUser) + alltrim(cDomi) //aDomin[1]//[nServ] cRemt := alltrim(cRemt) + alltrim(cDomi) //aDomin[1]//[nServ] endif TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServ :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := lSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cUser :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPass :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensage: " + oError:Description, "Atenção" ) END //--> FIM DAS CONFIGURAÇOES. if lRet lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject) MemoWrit("dadosmail.dat", cUSER+CRLF+cREMT+CRLF+Str(1))//(nServ)) endif if lRet == .t. MsgInfo("Mensagem Enviada com Sucesso!","Atençao") endif Return lRet ******************************************************************************** Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject) local cToken local lRet := .f. cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM COPIA cBCC := Destinatarios( cBCC ) //--> COM COPIA OCULTA TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject :TextBody = cMsg For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) endif Next :Send() END WITH lRet := .t. CATCH MsgInfo("Não Foi Possível enviar a mensagem") lRet := .f. END Return lRet //---------------------------------------------------------------- Function ADDItem() Local cArq := cGetFile32("*.*", "ADD Anexo", , ,.f.) if file(cArq) oList:ADD(Alltrim(cArq)) oList:Hide() oList:Refresh() oList:Show() endif Return NIL //---------------------------------------------------------------- Function DELItem() Local nIT := oList:GetSel() oList:DEL( nIT ) oList:Hide() oList:Refresh() oList:Show() Return NIL //------------------------------------------------------------ Function Destinatarios( cVar ) local i local aCars := {",", "/", "\"} for i := 1 to len( aCars ) cVar := StrTran( cVar, aCars, ";" ) next Return cVar *********************************************************** id=code>id=code>Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5 Editado por - MAUDRUIDAS on 12/07/2011 15:14:23

Pessoal preciso fazer um programa para um cliente que envie as Nfes (xml e pdf) para seus clientes após ter exportadas do sistema do governo NFE 2.0. Copiei um programa aqui postado pelo Caio Richetti, onde a fonte inicial era do Moura Marques, mas não consigo fazer o teste funcionar. Vejam onde estou errando, Por favor. a mesnsagem é sempre a mesma: Mensagem Não Enviada. Static cAttach := "" Static aAttach := {} Function Email() ************************************************************** *Dominio /Serv /Porta /SSL * ************************************************************** *{"@hotmail.com", "smtp.live.com", 25, .t. }* *{"@yahoo.com.br", "smtp.mail.yahoo.com.br", 25, .f. }* *{"@gmail.com", "smtp.gmail.com", 465, .t. }* *{"@uol.com.br", "smtp.uol.com.br", 25, .f. }* *{"@bol.com.br", "smtp.bol.com.br", 25, .f. }* *{"@terra.com.br", "smtp.terra.com.br", 587, .f. }* *{"@ig.com.br", "smtp.ig.com.br", 465, .t. }* *{"@ibest.com.br", "smtp.ibest.com.br", 465, .t. }* *{"@itelefonica.com.br","smtp.itelefonica.com.br", 25, .f. }* *{"@pop.com.br", "smpt.pop.com.br", 25, .f. }* ************************************************************** // cRemt := cUser := "user" // cPass := "********" // cDest := "user@email.com" cRemt := cUser := "mult.informatica@terra.com.br" cPass := "mult3233" cDest := "maudruidas@yahoo.com" cCC := "" cCCO := "" cTxt := "TESTE" cSubject := "teste" aAttach :={"anexo"} // cDomi :="dominio" // cServ :="smtp" // nPort :=porta // lSSL :=S/N cDomi := "@terra.com.br" cServ := "smtp.sao.terra.com.br" nPort := 587 lSSL := .f. Config_Mail(Lower(alltrim(cUser)),Alltrim(cPass),Lower(Alltrim(cRemt)),; Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cSubject,cDomi,cServ,nPort,lSSL ) return Function Config_Mail(cUser,cPass,cRemt,cDest, cCC, cCCO, cTxt, cSubject,cDomi,cServ,nPort,lSSL) local lRet := .f. local oCfg, oError local lAut := .t. // SMTP := "smtp.servidor.com.br" if Empty(cPass) .or. Empty(cRemt) .or. Empty(cDest) ? "Preencha todos Campos" return .f. else cUser := alltrim(cUser) + alltrim(cDomi) //aDomin[1]//[nServ] cRemt := alltrim(cRemt) + alltrim(cDomi) //aDomin[1]//[nServ] endif TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServ :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := lSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cUser :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPass :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensage: " + oError:Description, "Atenção" ) END //--> FIM DAS CONFIGURAÇOES. if lRet lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject) MemoWrit("dadosmail.dat", cUSER+CRLF+cREMT+CRLF+Str(1))//(nServ)) endif if lRet == .t. MsgInfo("Mensagem Enviada com Sucesso!","Atençao") endif Return lRet ******************************************************************************** Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject) local cToken local lRet := .f. cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM COPIA cBCC := Destinatarios( cBCC ) //--> COM COPIA OCULTA TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject :TextBody = cMsg For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) endif Next :Send() END WITH lRet := .t. CATCH MsgInfo("Não Foi Possível enviar a mensagem") lRet := .f. END Return lRet //---------------------------------------------------------------- Function ADDItem() Local cArq := cGetFile32("*.*", "ADD Anexo", , ,.f.) if file(cArq) oList:ADD(Alltrim(cArq)) oList:Hide() oList:Refresh() oList:Show() endif Return NIL //---------------------------------------------------------------- Function DELItem() Local nIT := oList:GetSel() oList:DEL( nIT ) oList:Hide() oList:Refresh() oList:Show() Return NIL //------------------------------------------------------------ Function Destinatarios( cVar ) local i local aCars := {",", "/", "\"} for i := 1 to len( aCars ) cVar := StrTran( cVar, aCars, ";" ) next Return cVar *********************************************************** id=code>id=code>Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5 Editado por - MAUDRUIDAS on 12/07/2011 15:14:23

Desculpe, mas acho que voces não souberam interpretar o texto: Vou explicar a interpretação. no § 2º ele está afirmando como a lei é, porém no § 6º ele diz: "§ 6º - A vedação prevista no § 2º não se aplica a equipamento não integrado ao ECF que for utilizado: ou seja : a obrigação prevista no § 2º não se aplica a equipamento não juntos ao ECF desde que: 1 - exclusivamente para fins de emissão de Nota Fiscal eletrônica - NF-e ou de Documento Auxiliar da Nota Fiscal Eletrônica - DANFE; ou seja, equipamentos que emitem NFES. 2 - para fins de registro e processamento de pagamento efetuado com cartão de crédito ou de débito, desde que conste no respectivo comprovante de pagamento o número de inscrição no CNPJ do estabelecimento." (NR). OU SEJA, P.O.S. desde que saia o CNPJ do emitente. Entedenram ? Que me enviou isto é uma empresa séria que inclusive vende Tef (acessários) e me disse que em SP eu não tinha mais que fazer e homologar. VEJAM O SITE DELES WWW.RB.COM.BR FORUM CLICK NO LINK LOGO NO INÃCIO DA P[AGINA. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal conversando com um amigo meu que tem uma empresa de informática e que vende Pinpad e outros acessários para Tef me enviou o testo abaixo dizendo para eu por enquando não fazer e homologar o Tef que agora não é obrigatório. Não sou muito bom em interpretar leis, gostaria que vocês dessem uma opinião a respeito. Grato Maurício. Não obrigatoriedade do TEF - Decreto nº 56.692, de 27 de janeiro de 2011 de São Paulo Não obrigatoriedade do TEF Introduz alterações no Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS GERALDO ALCKMIN, GOVERNADOR DO ESTADO DE SÃO PAULO, no uso de suas atribuições legais e tendo em vista o disposto no § 1º do artigo 67 da Lei 6.374, de 1º de março de 1989, Decreta: Artigo 1º - Passa a vigorar, com a redação que se segue, o § 2º do artigo 251 do Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS, aprovado pelo Decreto 45.490, de 30 de novembro de 2000: "§ 2º - É vedada a utilização, em recinto de atendimento ao público, de equipamento não integrado ao ECF que possibilite o registro ou o processamento de dados relativo a operação ou a prestação de serviços, sendo obrigatória a utilização do ECF para emissão do documento fiscal da respectiva operação ou prestação e impressão do correspondente comprovante de pagamento, independentemente do meio de pagamento utilizado, de tal forma que ambos os documentos fiquem vinculados um ao outro (Convênio ECF-1/98, cláusula quarta)." (NR). Artigo 2º - Fica acrescentado, com a redação que se segue, o § 6º ao artigo 251 do Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS, aprovado pelo Decreto 45.490, de 30 de novembro de 2000: "§ 6º - A vedação prevista no § 2º não se aplica a equipamento não integrado ao ECF que for utilizado: 1 - exclusivamente para fins de emissão de Nota Fiscal eletrônica - NF-e ou de Documento Auxiliar da Nota Fiscal Eletrônica - DANFE; 2 - para fins de registro e processamento de pagamento efetuado com cartão de crédito ou de débito, desde que conste no respectivo comprovante de pagamento o número de inscrição no CNPJ do estabelecimento." (NR). Artigo 3º - Este decreto entra em vigor na data de sua publicação. Palácio dos Bandeirantes, 27 de janeiro de 2011 GERALDO ALCKMIN OFÃCIO GS Nº 12-2011 Senhor Governador, Tenho a honra de encaminhar a Vossa Excelência a inclusa minuta de decreto que introduz alterações no Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação, aprovado pelo Decreto 45.490, de 30 de novembro de 2000. Inicialmente, cabe ressaltar que, como regra geral, é vedado utilizar, em recinto de atendimento ao público, equipamento não integrado ao ECF - Equipamento Emissor de Cupom Fiscal - que possibilite o registro ou o processamento de dados relativo a operações ou prestações de serviços. A minuta de decreto em anexo estabelece que essa vedação não se aplica a equipamento não integrado ao ECF que for utilizado: a) exclusivamente para fins de emissão de Nota Fiscal eletrônica - NF-e ou de Documento Auxiliar da Nota Fiscal Eletrônica - DANFE; para fins de registro e processamento de pagamento efetuado com cartão de crédito ou de débito, desde que conste no respectivo comprovante de pagamento o número de inscrição no CNPJ do estabelecimento. Com essas justificativas e propondo a edição de decreto conforme a minuta, aproveito o ensejo para reiterar-lhe meus protestos de estima e alta consideração. Andrea Sandro Calabi Secretário da Fazenda Publicado em: 28/01/2011 Atualizado em: 28/01/2011 09:22 Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Pessoal conversando com um amigo meu que tem uma empresa de informática e que vende Pinpad e outros acessários para Tef me enviou o testo abaixo dizendo para eu por enquando não fazer e homologar o Tef que agora não é obrigatório. Não sou muito bom em interpretar leis, gostaria que vocês dessem uma opinião a respeito. Grato Maurício. Não obrigatoriedade do TEF - Decreto nº 56.692, de 27 de janeiro de 2011 de São Paulo Não obrigatoriedade do TEF Introduz alterações no Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS GERALDO ALCKMIN, GOVERNADOR DO ESTADO DE SÃO PAULO, no uso de suas atribuições legais e tendo em vista o disposto no § 1º do artigo 67 da Lei 6.374, de 1º de março de 1989, Decreta: Artigo 1º - Passa a vigorar, com a redação que se segue, o § 2º do artigo 251 do Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS, aprovado pelo Decreto 45.490, de 30 de novembro de 2000: "§ 2º - É vedada a utilização, em recinto de atendimento ao público, de equipamento não integrado ao ECF que possibilite o registro ou o processamento de dados relativo a operação ou a prestação de serviços, sendo obrigatória a utilização do ECF para emissão do documento fiscal da respectiva operação ou prestação e impressão do correspondente comprovante de pagamento, independentemente do meio de pagamento utilizado, de tal forma que ambos os documentos fiquem vinculados um ao outro (Convênio ECF-1/98, cláusula quarta)." (NR). Artigo 2º - Fica acrescentado, com a redação que se segue, o § 6º ao artigo 251 do Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - RICMS, aprovado pelo Decreto 45.490, de 30 de novembro de 2000: "§ 6º - A vedação prevista no § 2º não se aplica a equipamento não integrado ao ECF que for utilizado: 1 - exclusivamente para fins de emissão de Nota Fiscal eletrônica - NF-e ou de Documento Auxiliar da Nota Fiscal Eletrônica - DANFE; 2 - para fins de registro e processamento de pagamento efetuado com cartão de crédito ou de débito, desde que conste no respectivo comprovante de pagamento o número de inscrição no CNPJ do estabelecimento." (NR). Artigo 3º - Este decreto entra em vigor na data de sua publicação. Palácio dos Bandeirantes, 27 de janeiro de 2011 GERALDO ALCKMIN OFÃCIO GS Nº 12-2011 Senhor Governador, Tenho a honra de encaminhar a Vossa Excelência a inclusa minuta de decreto que introduz alterações no Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação, aprovado pelo Decreto 45.490, de 30 de novembro de 2000. Inicialmente, cabe ressaltar que, como regra geral, é vedado utilizar, em recinto de atendimento ao público, equipamento não integrado ao ECF - Equipamento Emissor de Cupom Fiscal - que possibilite o registro ou o processamento de dados relativo a operações ou prestações de serviços. A minuta de decreto em anexo estabelece que essa vedação não se aplica a equipamento não integrado ao ECF que for utilizado: a) exclusivamente para fins de emissão de Nota Fiscal eletrônica - NF-e ou de Documento Auxiliar da Nota Fiscal Eletrônica - DANFE; para fins de registro e processamento de pagamento efetuado com cartão de crédito ou de débito, desde que conste no respectivo comprovante de pagamento o número de inscrição no CNPJ do estabelecimento. Com essas justificativas e propondo a edição de decreto conforme a minuta, aproveito o ensejo para reiterar-lhe meus protestos de estima e alta consideração. Andrea Sandro Calabi Secretário da Fazenda Publicado em: 28/01/2011 Atualizado em: 28/01/2011 09:22 Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

ARISTON, DEU CERTO, MUITO OBRIGADO. Maurício. Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

Como faço para em determinada função desabilite meu VGET, ou seja, que osuário não tenha mais acesso? tentei desta forma mas não deu certo. OGETB:LVALID(.F.) e OGETB:DISABLE() Maurício de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5