toya

Novidades na toyaNET BitGaragem - opcao 15 - BitNotaFiscalEletronica - Download dos arquivos ref. a Lei de Transparencia dos Impostos - fornecidos pelo IBPT http://www.toyanet.com.br

Segundo o MOC - 5.00: A identificação de que o SCAN foi ativado pela SEFAZ será através do serviço Consulta ao Status do SCAN que poderá retornar os seguintes códigos de situação: 107 - Serviço em Operação; 113 - SCAN será desabilitado para a UF às hh:mm; 114 - SCAN desabilitado pela SEFAZ Origem; Basta quando efetuares a Consulta ao Status do SCAN identificares os códigos acima e tratá-los remetendo uma msg ao usuário... toya Ahora en la version 6.2 toyasis@yahoo.com.br http://www.toyanet.com.br iNFexHB - http://www.toyanet.com.br/infexhb/index.php FWH 11.08+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper...

No Pelles (.Res) em Style selecionar Dropdown List

Sobre "denegada" http://www.toyanet.com.br/infexhb/perguntas.php toya Ahora en la version 6.2 toyasis@yahoo.com.br http://www.toyanet.com.br iNFexHB - http://www.toyanet.com.br/infexhb/index.php FWH 11.08+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper...

Lusitanicamente estou utilizando assim: //////////////////////////////////////////////////////////////////////////////// // inserido/alterado por: #toya:27/03/2012:07:35 //////////////////////////////////////////////////////////////////////////////// function LerNFePortal(_cChave, _nPortal) local oWndAux private oOle, oOleDoc:=Array(2) DEFAULT _cChave := "" DEFAULT _nPortal:=1 DEFINE WINDOW oWndAux TITLE "iNFexHB - Consultar NFe Completa" ACTIVATE WINDOW oWndAux MAXIMIZED ON INIT LerNFePortalGet(oWndAux, _cChave, _nPortal) return .t. #define SW_RESTORE 9 //////////////////////////////////////////////////////////////////////////////// // inserido/alterado por: #toya:27/03/2012:10:19 //////////////////////////////////////////////////////////////////////////////// static function LerNFePortalGet(oWndAux, _cChave, _nPortal) local cUrl:="" local oDados, oOleDoc := Array(2) local hWnd oOle:= CreateObject("InternetExplorer.Application") oOle:Visible:=.T. // Apresenta o Browser oOle:ToolBar:=.F. // Desativa a barra de ferramentas oOle:StatusBar:=.f. // Desativa a barra de status oOle:MenuBar:=.f. // desativa a barra de menu oOle:top:=GetSysMetrics(06)+GetSysMetrics(04) oOle:left:=GetSysMetrics(5) oOle:Width(oWndAux:nWidth - GetSysMetrics(5)*2) oOle:Height(oWndAux:nHeight - (oOle:top + GetSysMetrics(6)+10)) hWnd:=oOle:HWND BringWindowToTop(hWnd) ShowWindow(hWnd, SW_RESTORE) If _nPortal == 1 cUrl:="http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" Else cUrl:="http://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx" // SAO PAULO EndIf oOle:Navigate2(cUrl) WHILE oOle:Busy syswait(.5) END oDados := oOle:Document() if _nPortal == 1 oDados:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := _cChave oDados:All:Item("ctl00$ContentPlaceHolder1$txtCaptcha",0):Focus() else oDados:All:Item("ctl00$ContentMain$tbxIdNFe"):Value := _cChave oDados:All:Item("ctl00$ContentMain$tbxCaptcha",0):Focus() endif oDados:=Nil SysRefresh() return nil id=code>id=code>toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

Apenas a titulo de algo mais, podemos alterar: #define SW_RESTORE 9 local hWnd hWnd:=oOle:HWND BringWindowToTop(hWnd) // aqui traz para cima ShowWindow(hWnd, SW_RESTORE) id=code>id=code>toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

Para baixar XML da NFe via Portal NFe, consegui da seguinte maneira: 1. Usando o Internet Explorer - Firefox nao funcionou 2. Em Consultar NFe Completa botao "Download do documento" 3. Tem de ter instalado o Certificado Digital vinculado ao CNPJ do Emitente da NFe ou do Destinatario toya Ahora en la version 6.2 toyasis@yahoo.com.br (e-mail e MSN) http://www.toyanet.com.br FWH 11.08+PellesC+xHarbour.org 1.2.1 iNFexHB, ACBrMonitor, ACBrNFeMonitor, CobreBemX, FastReport, iPdv, iECF... Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 09/03/2012 17:15:32 Editado por - toya on 09/03/2012 17:16:10

//////////////////////////////////////////////////////////////////////////////// // inserido/alterado por: #toya:04/10/2011:14:38 //////////////////////////////////////////////////////////////////////////////// #pragma BEGINDUMP #include "hbapi.h" #include "windows.h" HB_FUNC ( TIRA_X ) // DESABILITA O X da janela { HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE); EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED); //DeleteMenu(MenuH,SC_CLOSE,MF_BYCOMMAND); } #pragma ENDDUMP toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

Projeto SAT-Fiscal http://www.fazenda.sp.gov.br/sat/ toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

NFe - Nota Fiscal Eletronica, Modelo 55 que substitui as Modelo 1 e 1A NFPaulista - trata-se de um Programa de Estimulo a Cidadania Fiscal... http://www.nfp.fazenda.sp.gov.br/legislacao.shtm - Proprio do Estado de SP NFCarioca: (NFS-e da Prefeitura do Rio de Janeiro) substitui a Nota Fiscal de Servicos impressas... https://notacarioca.rio.gov.br/capa.aspx Theotokos: a NF-e nao substitui o Cupom Fiscal... toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

Podes garimpar por aqui: http://evandro.net/tiss/ http://forum.datasus.gov.br/viewforum.php?f=89 toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

Para quem for homologar apos 01/agosto/2010 vide o link com as alteracoes.:. http://www.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2010/ac021_10.htm Sobre cancelamento de NF-e vejam: http://www.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2010/ac013_10.htm toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:. Editado por - toya on 23/06/2010 07:35:23 Editado por - toya on 23/06/2010 07:36:10

Para quem for homologar apos 01/agosto/2010 vide o link com as alteracoes.:. http://www.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2010/ac021_10.htm Sobre cancelamento de NF-e vejam: http://www.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2010/ac013_10.htm toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:. Editado por - toya on 23/06/2010 07:35:23 Editado por - toya on 23/06/2010 07:36:10

Bom dia.:. Espero que ajude: //////////////////////////////////////////////////////////////////////////////// // versao NF-e 2.0 por: #toya:28/05/2010 - 09:51 // inserido/alterado por: #toya:28/05/2010 - 09:51 //////////////////////////////////////////////////////////////////////////////// function DBF_header() local aDbfHeader[32] local cAux:="", cFile:="", cTipo:="" local filehandle:=0 local nfilesize:=0 local bytecount:=0 cFile:=cGetFile("*.dbf", "Selecione o arquivo .DBF") if !empty(cFile) filehandle:=FOPEN(cFile) if !filehandle < 0 nfilesize:=fseek(filehandle, 0 ,2) fseek(filehandle, 0,0) bytecount:=1 do while bytecount < 33 cAux:=space(1) fread(filehandle,@cAux,1) aDbfHeader[bytecount]:=asc(cAux) bytecount+=1 enddo do case case aDbfHeader[1]=2 ; cTipo:="Foxbase" case aDbfHeader[1]=3 ; cTipo:="Foxbase/Foxpro/dBaseIII/IV no memo" case aDbfHeader[1]=48 ; cTipo:="Visual Foxpro" case aDbfHeader[1]=49 ; cTipo:="Visual Foxpro 8+ AutoIncr" case aDbfHeader[1]=50 ; cTipo:="Visual Foxpro 9+,Varchar,Varbinary or Blob-enabled" case aDbfHeader[1]=67 ; cTipo:="dBase IV SQL table no memo" case aDbfHeader[1]=99 ; cTipo:="dBase IV SQL system file no memo" case aDbfHeader[1]=131; cTipo:="Foxbase/dBaseIII Plus with memo" case aDbfHeader[1]=139; cTipo:="dBaseIV with memo" case aDbfHeader[1]=203; cTipo:="dBaseIV SQL table with memo" case aDbfHeader[1]=245; cTipo:="Foxpro 2.x with memo" case aDbfHeader[1]=251; cTipo:="Foxbase" otherwise ; cTipo:="Desconhecido ou Tipo invalido" endcase ? "Tipo: "+cTipo endif endif return nil id=code>id=code>toya Ahora en la version 6.0 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.05+PellesC+xHarbour.org 1.1.0 Clippeiro por opção, Fivewiner por amor ao Clipper... AcbrMonitor, ACBrNfeMonitor.:.

òtimos tempos o da Micro-Sistemas, mas retornando um pouco mais, nunca me esqueco de sempre estar aceitando o desafio na Micro-Mundo, o de elaborar rotinas em 2 linhas na linguagem Basic, o falado Two-Liner.:. O aprendizado, mesmo que parco, sobre Assembler utilizando o Debug.:. toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 11/05/2010 07:25:11

Podes se basear neste: //////////////////////////////////////////////////////////////////////////////// // #toya:25/06/2008 //////////////////////////////////////////////////////////////////////////////// static function ImpSpool( cFileTxt, cPorta, lErase ) DEFAULT cPorta:=alltrim( PrnGetPort() ), lErase:= .t. if !File( cFileTxt ) return .f. endif if len( cPorta ) <= 5 .and. left( upper( cPorta ), 4 )=='LPT1' cPorta:='PRN' WAITRUN( 'COMMAND.COM /C COPY /B '+cFileTxt+' '+cPorta, 0 ) else WAITRUN( 'COMMAND.COM /C COPY /B '+cFileTxt+' '+cPorta, 0 ) endif if lErase ferase( cFileTxt ) endif return .t. toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Horizontal ou Vertical ? Se for Horizontal... Já tentastes: ... oLbx:lHScroll:=.f. ... oDlg:bpainted := { || iif( !oLbx:lHScroll, oLbx:oHScroll:SetRange( 0, 0 ), NIL ) } toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Por exemplo: oDlg:nLastKey retorna a ultima tecla pressionada na DIALOG oDlg.. toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 19/07/2008 21:32:38

Veja aqui: http://www.fivewin.com.br/exibedicas.asp?id=676 toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Luiz... O EAN13 aceita apenas digitos de 0 a 9.. Neste caso terias de tratar o valor, transformando-o, por exemplo: 999,99 em 000000099999 gerar o digito-verificador daí então, imprimir o resultado. Na leitura teria de tratar o valor lido, por exemplo, colhendo os primeiros 12 caracteres, transforma-lo em numerico e dividir o valor apurado por 100. toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 08/07/2008 12:52:40

* xMultSel - MultiSeleção para usar com a xBrowse... toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

* xMultSel - MultiSeleção para usar com a xBrowse... toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Baixe um exemplo da toyaNET http://www.toyanet.com.br/rotinas.php arquivo 0140 toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Tente o PAGES toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 27/05/2008 14:54:06

Versão 2.00 do SaoTome (Terminal de Consulta de Preços com Voz) http://www.toyanet.com.br toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...