toya
-
Posts
293 -
Joined
-
Last visited
-
Days Won
15
Posts posted by toya
-
-
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
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
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
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
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)
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
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
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
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://forum.datasus.gov.br/viewforum.php?f=89
toya
Ahora en la version 6.0
toyasis@yahoo.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
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
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
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
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
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
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
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
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
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
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
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
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
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)
toya
Ahora en la version 5.8
toyasis@yahoo.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...
Imprimir o Imposto no cupom (Lei da transparecia)
in Programação
Posted
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