alcmore

Tambem estou com problemas de emissao de NFe sefaz SP

ValidaXML(string XML, int tipoXML, tem que colocar no tipoXML = 68 para NFe 4.00

Tambem reiniciei o speedy e tambem funcionou aqui. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br

Eu ainda não to conseguindo, fiz a transmissão como teste e funcionou, em produção não vai, não sei se tem que atualizar alguma URL. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br

Aqui não to conseguindo enviar, alguem mais com problema ? Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br

citação: Alert(StrCharCount("Samir Sardinha Soares de Abreu","S")) //Apresenta 3 id=quote>id=quote> Um dúvida, esta função só conta a ocorrência "S" no inicio da palavra?. Porque neste exemplo tem 4 'S' . Ou é case sensitive ? Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br Editado por - alcmore on 01/06/2010 09:40:16

Daniel vc poderia me enviar tambem uma cópia da sua função de backup com mysql. Por favor se puder, envie neste email devair.lino@gmail.com Obrigado Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br

Marcos, vc é novo aqui no forum, e pelo visto ja deparou com um dos problemas dos exemplos postados aqui, concordo com vc, é raro o exemplo postado em dicas, que não falta alguma função, biblioteca, esta em 16 bits, quem posta esses exemplos sempre acha que todo mundo é expert em five, a gente que ta no inicio apanha pra burro. Mas sempre da pra tirar algum proveito deles. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.70 workshop devair.lino@bol.com.br

Luis, sou novato em fivewin, mais como tive um problema parecido com o seu, no qual em uma dialog abria outra e ao voltar para primeira dialog, ao clicar em qualquer parte dela e sistema fechava, depois de quebrar a cabeça durante mto tempo e não descobrir nada pesquisando nos foruns, sabe qual era o problema, eu estava definindo o mesmo brush nas duas dialogs, recomendo tirar os brushs, e acho que vc resolverá seu problema. Tenta ai, e depois diga se deu certo. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

Mais histórias de suporte técnico CASOS REAIS: CLIENTE: ' Não consigo fazer conexão com a Internet. ' SUPORTE: ' Tem certeza que utilizou a senha certa ? ' CLIENTE: ' Sim, tenho certeza. Vi um colega fazendo. ' SUPORTE: ' Pode me dizer qual foi a senha ? ' CLIENTE: ' Cinco estrelinhas. ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx x CLIENTE: ' Não consigo imprimir. Cada vez que tento, o computador diz: 'Não é possível encontrar a impressora ' . Já levantei a impressora e coloquei-a em frente ao monitor, mas o computador continua dizendo que não consegue encontrá-la. ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx SUPORTE: ' Serviço ao cliente da HP. Sérgio falando. Em que posso ser útil? ' CLIENTE: ' Tenho uma impressora HP que precisa ser reparada. ' SUPORTE: ' Que modelo é ? ' CLIENTE: ' É uma Hewlett-Packard. ' SUPORTE: ' Isto eu já sei. É colorida ou preto e branco? ' CLIENTE: ' É bege. ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx SUPORTE: ' Bom dia. Posso ajudar em alguma coisa ? ' CLIENTE: ' Eeh... Olá. Não consigo imprimir. ' SUPORTE: ' Pode clicar no ' Iniciar ' e... ? ' CLIENTE: ' Calma aí! Não responda assim muito tecnicamente. Não sou o Bill Gates! ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxx CLIENTE: De repente aparece uma mensagem na minha tela, que diz Clique ' Reiniciar ' ... O que eu devo fazer ? ' SUPORTE: O senhor aperte o botão solicitado, desligue e ligue novamente. Sem pestanejar, o cliente desliga o telefone na cara do atendente e liga para o suporte novamente. CLIENTE: E agora o que eu faço ? xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxx CLIENTE: ' Tenho um grande problema. Um amigo meu colocou um protetor de tela no meu computador, mas a cada vez que mexo o mouse, ele desaparece! ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxx SUPORTE: ' Em que posso ajudar ? ' CLIENTE: ' Estou escrevendo o meu primeiro e-mail. ' SUPORTE: ' OK, qual é o problema ? ' CLIENTE: ' Já fiz a letra ' a ' . Como é que se faz o círculozinho emvolta dela ? ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxx CLIENTE: ' A Internet também abre aos domingos ? ' xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxx Depois de um tempo falando com o atendente do suporte. SUPORTE: ' o que tem do lado direito da tela ? ' CLIENTE: ' uma samambaia ! ' SUPORTE: ...silêncio... Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

Fácil, entre em ferramentas, configurações gerais. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

Marcelo, primeiro obrigado por responder. O erro continua, fiz assim: - compilei junto com o meu programa o teu xbrowse.prg - #Define xbrowse.ch (dúvida é: define ou include), coloquei define sem aspas no xbrowse.ch. - coloquei o xbrowse.ch dentro da pasta do meu prg. - copiei o seu recurso e colei em minha dialog Se puder me diga onde estou errando. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

To tentanto compilar o exemplo abaixo e da o seguinte erro. Syntax erro> syntax erro at "xbrowse" local oChild, oBrw, oCol local aStruc vProdutos := {} aadd(vProdutos,{"Açucar mascavo ","00001","Feira de Santana"}) aadd(vProdutos,{"Açucar refinado","00002","Criciuma "}) aadd(vProdutos,{"Sal grosso ","00003","Feira de Santana"}) aadd(vProdutos,{"Leite de vaca ","00004","Salvador "}) aadd(vProdutos,{"Leite com Soda ","00005","Florianopolis "}) aadd(vProdutos,{"Leite sem soda ","00006","Criciuma "}) DEFINE DIALOG oChild RESOURCE "TEST" TITLE "Vetor Basico" REDEFINE xBrowse oBrw ; FIELDS vProdutos[oBrw],; vProdutos[oBrw],; vProdutos[oBrw]; HEADERS "Nome","Codigo","Endereço"; FONT oFont; ID 101 OF oChild; ARRAY vProdutos ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus() RETURN NIL id=code>id=code>no Workshop qual browse eu defino (listboxa,tcbrowse..) Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

Daniel, pega sua imagem e hospede num site, abaixo tem o endereço de um site onde vc pode hospedar, qdo vc hospedar la, ele ja cria um link da imagem pra vc, copie a url e cole na sua mensagem entre os comandos http://img367.imageshack.us Exemplo : Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br Editado por - alcmore on 21/04/2008 00:09:42 Editado por - alcmore on 21/04/2008 00:10:39

Toya, eu ja havia descoberto como vc tinha dado esse efeito em sua dialog, editando o seu res Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop devair.lino@bol.com.br

Obrigado Luiz, recebi o email, e entendi. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Luiz arruda, por favor, então me de uma ajuda, e me diz como faço isso no WS, Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

vamos se agora aparece a imagem, Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Essa imagem , é que achei legal essa saliencia, na parte de cima e na parte de baixo, e to querendo fazer, mais não uso o pellesC. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Alguem poderia dizer,em qual editor de recursos,foi feita a tela 'cadastro1', do exemplo do toya, é que tem um destaque no topo e no rodapé da dialog, eu usa o WS, e não sei como se faz isso. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Valeu Alessandro, obrigado. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Alessandro, funcionou, obrigado. Como pode ser feito, pra que ao ser pressionado (enter,clique mouse),a pesquisa retorne par ao get o cliente pesquisado e me mostre o nome no say. Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

To tentando fazer funcionar uma pesquisa que peguei em dicas, que dando dando esse erro: Error description: Error BASE/2017 Erro nos parametros: AEVAL Uso TBTNGET, qdo to com o browse da pesquisa aberto, e uso qualquer tecla (enter, clique com mouse da o erro) Peço ajuda, alguem analisar o código abaixo e ver onde possa estar o erro, obrigado. chamo a pesquisa assim: RedeFine TBTNGET oCodCliente VAR cCodCliente ID 102 Of oDlg1 PICTURE "9999" RESOURCE "lupa" action ddpesquisa("file003",2,"codcli","nome","Pesquisa clientes") e aqui ta a função #include "FiveWin.ch" #include "TCBrowse.ch" //== inicio da funcao pesquisa ========== FUNCTION ddPESQUISA(cARQUIVO,nINDICE,cCodigo,cCampo,titulo) LOCAL oBrw, oFont1, AREASELE:=SELECT(), IndiceAnt:=INDEXORD() PRIVATE cPesq:="" SELE &cARQUIVO dbSetOrder(nIndice) //SET ORDER TO nINDICE dbGotop() PRIVATE oDlg, OldRecno:=RECNO() DEFINE FONT oFont1 NAME "Courier New" SIZE 0,16 BOLD DEFINE DIALOG oDlg FROM 5,5 TO 350, 620 OF oWnd ; TITLE titulo PIXEL ODLG:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. cPesq="" ; cPos="|" DEFINE FONT oFntTimes NAME "Times New Roman" SIZE 0,-12 @ 165,40 SAY "Para localizar, digite as letras iniciais. - [backSpace] para corrigir." PIXEL FONT oFntTimes; COLOR RGB(000,000,255) // AZUL @ 21 , 32.5 SAY oSay3 PROMPT cPOS SIZE 180,07 COLOR "r+/W" UPDATE PIXEL @ 18 , 33.9 SAY oSay1 PROMPT cPesq SIZE 180,08 COLOR "N+/W*" UPDATE PIXEL @ 28 , 01 COLUMN BROWSE oBrw OF oDlg ; SIZE 300, 135 ; ON DBLCLICK oDlg:End(); MESSAGE "Para localizar, digite as letras iniciais. - [backSpace] para corrigir." ; COLOR "N/W" PIXEL obrw:bKeyDown :={|nKey,nFlags| Incremen(nKey,cCampo,oBrw,oSay1,oSay3,oDlg,cCampo)} oBrw:cOrderType:= "C" oBrw:aJustify := {.T., .T.} // Justifica os Cabe‡alhos Esq. .T. =Centro oBrw:nFreeze := 1 ADD COLUMN TO BROWSE oBrw DATA {||&cCodigo} SIZE 60 NOBAR CENTER ; HEADER "Código" ADD COLUMN TO BROWSE oBrw DATA {||&cCampo} SIZE 100 ; HEADER "Nome " @ 03, 33 BUTTON oBtn1 PROMPT "&OK = [ENTER]" OF oDlg SIZE 150,11 ACTION oDlg:End() ; MESSAGE "C o n f i r m a a p e s q u i s a" PIXEL oBtn1:ctooltip:=OemToAnsi("Confirma a pesquisa") @ 03,210 BUTTON oBtn2 PROMPT "&Cancela = [ESC]" OF oDlg SIZE 58,09 ACTION {||DBGOTO(OldRecno), oDlg:End()} ; MESSAGE "C a n c e l a a p e s q u i s a" PIXEL oBtn2:ctooltip:=OemToAnsi("Cancela a pesquisa") @ 03,275 BUTTON oBtn3 PROMPT "&Help" OF oDlg SIZE 22,09 ; MESSAGE "A j u d a p a r a a p e s q u i s a" PIXEL ; ACTION {||MSGINFO(; OemToAnsi('- OPÇÕES para localizar:')+CRLF+CRLF+; OemToAnsi(' 1¦) PESQUISA INCREMENTAL:')+CRLF+; OemToAnsi(' A cada letra digitada, o cursor, em azul, ir se aproximando do nome procurado.')+CRLF+; OemToAnsi(' Em geral, bastam 3 ou 4 letras, e o nome estar vis¡vel na janela.')+CRLF+; OemToAnsi(' Enquanto se digita, o texto vai sendo visualizado na etiqueta branca. Um pequeno')+CRLF+; OemToAnsi(' tra‡o vermelho sob a mesma indica a posição do cursor na digitação.')+CRLF+; OemToAnsi(' Quando nÆo encontrado o nome, o cursor estar posicionado sobre o nome mais')+CRLF+; OemToAnsi(' proximo seguinte.')+CRLF+; OemToAnsi(' Use BackSpace para corrigir erros ao digitar.')+CRLF+CRLF+; OemToAnsi(' 2¦) SETAS ACIMA e ABAIXO, PgUp e PgDw.')+CRLF+CRLF+; OemToAnsi(' 3¦) Usando o mouse sobre a BARRA DE ROLAGEM VERTICAL … direita.')+CRLF+CRLF+; OemToAnsi('- Ap¢s logalizado o nome, pressione o botÆo "OK" ou a tecla "ENTER" ou "Alt+O",')+CRLF+; OemToAnsi(' ou dˆ um DUPLO-CLIQUE sobre o nome selecionado.')+CRLF+CRLF+; OemToAnsi('- Se desistir da pesquisa, pressione o botão "CANCELA" ou a tecla "ESC" ou "Alt+C".')+CRLF+CRLF; ,OemToAnsi('Como pesquisar:')),; oBrw:SetFocus } oBtn3:ctooltip:=OemToAnsi("Ajuda a pesquisa") SET FONT OF oBrw TO oFont1 SET FONT OF oDlg TO oFont1 ACTIVATE DIALOG oDlg CENTERED oWnd:UPDATE() SELE &AREASELE SET ORDER TO IndiceAnt RETURN NIL FUNCTION INCREMEN(nKey, Alias, oBrw, oSay1, oSay3, oDlg,cCampo) DO CASE CASE nKey = VK_ESCAPE GO OldRecno ; oWnd:UPDATE() ; oDlg:End() ; RETURN .T. CASE nKey = 13 oWnd:UPDATE() ; oDlg:End() ; RETURN .T. CASE nKey=8 // backspace If Len(cPesq) > 0 cPesq:=Left(cPesq,Len(cPesq)-1) Endif CASE (nKey>=48 .and. nKey<=122) .OR. nKey=32 cPesq+=(CHR(nKey)) OTHERWISE ; RETURN .T. ENDCASE cPesq=LEFT(cPesq,LEN(&cCampo)) cPOS=SPACE(LEN(cPesq))+"|" SEEK cPesq SOFTSEEK oBrw:REFRESH() odlg:UPDATE() oSay3:cTitle(cPos) oSay1:cTitle(cPesq) RETURN .T. //============= fim da funcao pesquisa ================= Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

To tentando fazer funcionar uma pesquisa que peguei em dicas, que dando dando esse erro: Error description: Error BASE/2017 Erro nos parametros: AEVAL Uso TBTNGET, qdo to com o browse da pesquisa aberto, e uso qualquer tecla (enter, clique com mouse da o erro) Peço ajuda, alguem analisar o código abaixo e ver onde possa estar o erro, obrigado. chamo a pesquisa assim: RedeFine TBTNGET oCodCliente VAR cCodCliente ID 102 Of oDlg1 PICTURE "9999" RESOURCE "lupa" action ddpesquisa("file003",2,"codcli","nome","Pesquisa clientes") e aqui ta a função #include "FiveWin.ch" #include "TCBrowse.ch" //== inicio da funcao pesquisa ========== FUNCTION ddPESQUISA(cARQUIVO,nINDICE,cCodigo,cCampo,titulo) LOCAL oBrw, oFont1, AREASELE:=SELECT(), IndiceAnt:=INDEXORD() PRIVATE cPesq:="" SELE &cARQUIVO dbSetOrder(nIndice) //SET ORDER TO nINDICE dbGotop() PRIVATE oDlg, OldRecno:=RECNO() DEFINE FONT oFont1 NAME "Courier New" SIZE 0,16 BOLD DEFINE DIALOG oDlg FROM 5,5 TO 350, 620 OF oWnd ; TITLE titulo PIXEL ODLG:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. cPesq="" ; cPos="|" DEFINE FONT oFntTimes NAME "Times New Roman" SIZE 0,-12 @ 165,40 SAY "Para localizar, digite as letras iniciais. - [backSpace] para corrigir." PIXEL FONT oFntTimes; COLOR RGB(000,000,255) // AZUL @ 21 , 32.5 SAY oSay3 PROMPT cPOS SIZE 180,07 COLOR "r+/W" UPDATE PIXEL @ 18 , 33.9 SAY oSay1 PROMPT cPesq SIZE 180,08 COLOR "N+/W*" UPDATE PIXEL @ 28 , 01 COLUMN BROWSE oBrw OF oDlg ; SIZE 300, 135 ; ON DBLCLICK oDlg:End(); MESSAGE "Para localizar, digite as letras iniciais. - [backSpace] para corrigir." ; COLOR "N/W" PIXEL obrw:bKeyDown :={|nKey,nFlags| Incremen(nKey,cCampo,oBrw,oSay1,oSay3,oDlg,cCampo)} oBrw:cOrderType:= "C" oBrw:aJustify := {.T., .T.} // Justifica os Cabe‡alhos Esq. .T. =Centro oBrw:nFreeze := 1 ADD COLUMN TO BROWSE oBrw DATA {||&cCodigo} SIZE 60 NOBAR CENTER ; HEADER "Código" ADD COLUMN TO BROWSE oBrw DATA {||&cCampo} SIZE 100 ; HEADER "Nome " @ 03, 33 BUTTON oBtn1 PROMPT "&OK = [ENTER]" OF oDlg SIZE 150,11 ACTION oDlg:End() ; MESSAGE "C o n f i r m a a p e s q u i s a" PIXEL oBtn1:ctooltip:=OemToAnsi("Confirma a pesquisa") @ 03,210 BUTTON oBtn2 PROMPT "&Cancela = [ESC]" OF oDlg SIZE 58,09 ACTION {||DBGOTO(OldRecno), oDlg:End()} ; MESSAGE "C a n c e l a a p e s q u i s a" PIXEL oBtn2:ctooltip:=OemToAnsi("Cancela a pesquisa") @ 03,275 BUTTON oBtn3 PROMPT "&Help" OF oDlg SIZE 22,09 ; MESSAGE "A j u d a p a r a a p e s q u i s a" PIXEL ; ACTION {||MSGINFO(; OemToAnsi('- OPÇÕES para localizar:')+CRLF+CRLF+; OemToAnsi(' 1¦) PESQUISA INCREMENTAL:')+CRLF+; OemToAnsi(' A cada letra digitada, o cursor, em azul, ir se aproximando do nome procurado.')+CRLF+; OemToAnsi(' Em geral, bastam 3 ou 4 letras, e o nome estar vis¡vel na janela.')+CRLF+; OemToAnsi(' Enquanto se digita, o texto vai sendo visualizado na etiqueta branca. Um pequeno')+CRLF+; OemToAnsi(' tra‡o vermelho sob a mesma indica a posição do cursor na digitação.')+CRLF+; OemToAnsi(' Quando nÆo encontrado o nome, o cursor estar posicionado sobre o nome mais')+CRLF+; OemToAnsi(' proximo seguinte.')+CRLF+; OemToAnsi(' Use BackSpace para corrigir erros ao digitar.')+CRLF+CRLF+; OemToAnsi(' 2¦) SETAS ACIMA e ABAIXO, PgUp e PgDw.')+CRLF+CRLF+; OemToAnsi(' 3¦) Usando o mouse sobre a BARRA DE ROLAGEM VERTICAL … direita.')+CRLF+CRLF+; OemToAnsi('- Ap¢s logalizado o nome, pressione o botÆo "OK" ou a tecla "ENTER" ou "Alt+O",')+CRLF+; OemToAnsi(' ou dˆ um DUPLO-CLIQUE sobre o nome selecionado.')+CRLF+CRLF+; OemToAnsi('- Se desistir da pesquisa, pressione o botão "CANCELA" ou a tecla "ESC" ou "Alt+C".')+CRLF+CRLF; ,OemToAnsi('Como pesquisar:')),; oBrw:SetFocus } oBtn3:ctooltip:=OemToAnsi("Ajuda a pesquisa") SET FONT OF oBrw TO oFont1 SET FONT OF oDlg TO oFont1 ACTIVATE DIALOG oDlg CENTERED oWnd:UPDATE() SELE &AREASELE SET ORDER TO IndiceAnt RETURN NIL FUNCTION INCREMEN(nKey, Alias, oBrw, oSay1, oSay3, oDlg,cCampo) DO CASE CASE nKey = VK_ESCAPE GO OldRecno ; oWnd:UPDATE() ; oDlg:End() ; RETURN .T. CASE nKey = 13 oWnd:UPDATE() ; oDlg:End() ; RETURN .T. CASE nKey=8 // backspace If Len(cPesq) > 0 cPesq:=Left(cPesq,Len(cPesq)-1) Endif CASE (nKey>=48 .and. nKey<=122) .OR. nKey=32 cPesq+=(CHR(nKey)) OTHERWISE ; RETURN .T. ENDCASE cPesq=LEFT(cPesq,LEN(&cCampo)) cPOS=SPACE(LEN(cPesq))+"|" SEEK cPesq SOFTSEEK oBrw:REFRESH() odlg:UPDATE() oSay3:cTitle(cPos) oSay1:cTitle(cPesq) RETURN .T. //============= fim da funcao pesquisa ================= Devair FWxH 2.7,xHarbour 0.99.70, xDev V0.65 workshop

Uso a tsbrowse com array para inclusão de pedidos, tenho um get para o código do cliente, depois vai para o browse para ser incluido os itens dos produtos, só que logo no primeiro item do codigo do produto, o foco volta para o get do cód. cliente, sem o get do cliente, a inclusão dos itens dos produtos de mantem no browse, peço ajuda de quem soube como resolver isso, obrigado. Devair FWxH 2.7, workshop,clipper 5.3