pauloaraujo
-
Posts
3,110 -
Joined
-
Last visited
-
Days Won
1
Posts posted by pauloaraujo
-
-
citação:
id=quote>id=quote>Olá Pessoal.
Estou tentando imprimir nfe no I.explorer 7.0 e não estou conseguindo. Será que é por causa da versão?
Sei que tem um forma de configurar o IE como um versão anterior, mas não lembro como faz.
Alguém dá uma luz?
Grato
João
João, tudo bem??
É o Danfe que você está tentando imprimir??
-
E ainda assim fazem um monte de m....
-
citação:
id=quote>id=quote>Valeu Paulo.
Funcionou direitinho.
Gilmer isso já não deveria constar na classe para que inclusive outros amigos que a estão usando não tivessem essa alteração incorporada ?
Sei lá, mas acho que não tem mais volta com relação à NFe.
Acharia justissimo o Gilmer cobrar uma manutenção mensal para quem adquiriu a classe dele, comprometendo-se a atualizá-la de acordo com a legislação.
Eu me sentiria muito mais seguro e seria o 1º a aderir.
A versão 4.0 está aà .....
Abraços
-
citação:
id=quote>id=quote>Opa Paulo
Legal
Preciso ver como criar isso na classe do gilmer pois olhei a classe e ela não cria essas chaves.
Acredito que é exatamente isso que o contador quer.
Editado por - jcleoner on 26/03/2010 12:11:38
Editado por - jcleoner on 26/03/2010 12:14:58
Bom, o Gilmer vai pegar no meu pé, mas não resisto de dar um pitaco (hehe)
Modificar a classe:
METHOD StruIPI()
METHOD StruIPITrib()
METHOD StruIPINT() // criar aqui
// ------------
METHOD StruIPI() CLASS TVoNFe
local axArray
axArray := {}
aadd(axArray, {"cIEnq" , TVoNFeItem():New("C", 0, 05,,,,oItem:cIEnq) } )
aadd(axArray, {"CNPJProd", TVoNFeItem():New("N", 0, 14,,,,oItem:CNPJProd) } )
aadd(axArray, {"cSelo" , TVoNFeItem():New("C", 0, 1,,60,,oItem:cSelo) } )
aadd(axArray, {"qSelo" , TVoNFeItem():New("N", 0, 1,12,,oItem:qSelo) } )
aadd(axArray, {"cEnq" , TVoNFeItem():New("N", 1, 3,,,,oItem:cEnq) } )
if AT(oItem:cST_IPI,"00;49;50;99;")>0
aadd(axArray, {"IPITrib" , ::StruIpiTrib(oItem) } )
else
aadd(axArray, {"IPINT" , ::StruIpiNT(oItem) } )
endif
return( axArray )
METHOD StruIPINT() CLASS TVoNfe
Local axArray
axArray := {}
aadd(axArray, {"CST" , TVoNFeItem():New("C", 0, 02,,,, oItem:cST_IPI) } )
Return( axArray )
id=code>id=code>Editado por - pauloaraujo on 26/03/2010 13:37:00
-
citação:
id=quote>id=quote>Pessoal
Quando um item da NFe tem IPI, informo CST_IPI = 50, base, aliquota, valor e enquadramento.
Quando não tem, não informo nada, nenhuma chave referente ao IPI.
Ocorre que um contador afirma que precisa constar ( para um cliente ) no CST_IPI o código 55 ( SaÃda com suspensão ).
O problema está aÃ, se informar o código 55, a nfe não vai nem a pau, já tentei preencher outros campos colocando 0 na base, aliquota e valor, mas não adianta, ela é recusada.
Alguem sabe algo a respeito, ou o contador está enganado e não tem que por nada mesmo ?
Zé, beleza,
Como tenho uma câmera escondida aÃ, và que você está tentando passar esses dados através do IPITrib, quando deveria ser pelo IPINT
999
55
id=code>id=code>Fui
-
citação:
id=quote>id=quote>Olá Paulo
Obrigado pela resposta.
Mais algumas questões:
Meus clientes são incapazes de abrir um arquivo zip, então instalar certificados vai ser algo penoso.
Vc disse: "Frame Work" (2.0 ou superior).
Esse frame work é fornecido pela Receita ?
" programa da NFe deve ser instalado no drive "C" da máquina do faturamento. Ou seja, se o executável do teu sistema estiver no servidor, você terá que ter programas separados."
Quer dizer, se o faturamento usar mais de uma maquina tem que ter o exec da nfe em cada máquina?
[]´s
Rogerio
Rogério,
Só complementando o João, o Frame Work é da Microsoft.
Te aconselho não se meter na instalação do Certificado Digital. Isso cabe ao Contador de cada empresa. Tenha em mente que o Certificado é quase como se fosse um Cartão de Banco. Nós não temos nada a ver com isso.
Se houver mais de uma máquina de faturamento, tem que instalar em TODAS.
Outros procedimentos, como registro da DLL e instalação das fontes, o Gilmer vai te orientar. É muito fácil de se fazer por telefone com o cliente.
Um abraço
Editado por - pauloaraujo on 25/02/2010 16:39:15
-
Rogério, tudo bem??
1º) "A primeira questão é sobre certificado que o cliente tem que adquirir. Tem o A1 e A3. Qual o mais recomendado, que dá menos problema de implantção?"
R: O certificado A3 vai exigir que o usuário digite a senha (PIN) a cada entrada. O custo dele é um pouco maior, mas tem validade por 3 anos, enquanto que a do A1 é de apenas um ano. A escolha por um ou outro vai depender do perfil do teu cliente. Se ele emite muitas notas, é altamente recomendável o A1. Caso contrário, tanto faz.
2º) "Implantação no cliente: vocês conseguiram fazer tudo remotamente ou exigiu visitas no local ?"
R: A instalação do Certificado cabe ao teu cliente. Portanto, a instalação do teu programa pode ser feita remotamente. Só implantei pessoalmente o 1º cliente.
3º) "Além do certificado e do nosso aplicativo o cliente tem que providenciar alguma outra burocracia, tipo registro, cadastro em algum serviço da receita? O contador é quem faz isso?"
R: Bom, ele tem que instalar o "Frame Work" (2.0 ou superior). O contador dele tem que habilitar o teu cliente na área de teste da Sefaz, ou direto na área de produção.
4º) Existe alguma outra dica que vc acha importante?
R: Lembrar que o programa da NFe deve ser instalado no drive "C" da máquina do faturamento. Ou seja, se o executável do teu sistema estiver no servidor, você terá que ter programas separados. Outra coisa, você terá que comprar a licença da FlexDocs para cada cliente que implantar.
Um abraço e boa sorte
Editado por - pauloaraujo on 25/02/2010 12:54:27
-
Anderson, tudo bem??
Basicamente, após a geração do XML, a rotina fica assim:
oNFEUtil:=tVoNFeUtil():New(CADPARAM->UF,val(cTpAmb),cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.)
//-. Consulta Status do SITE DA SEFAZ
NX := oNFEUtil:ConsultaStatus()
If NX = 0
//-> nada a fazer
ELSE
TONE( 900, 2 )
DO CASE
CASE NX = 105
cMensa := ( "em processamento na secretaria da fazenda" )
CASE NX = 107
cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " )
CASE NX = 108
cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " )
CASE NX = 109
cMensa := ( "Serviço Paralisado sem Previsão de Retorno " )
CASE NX = 281
cMensa := ( "Rejeição: Certificado Transmissor Data Validade" )
OTHERWISE
cMensa := OemToAnsi( "Problemas na TransmissÆo/ConexÆo. " + ;
"Internet Pode Estar com Problemas." )
ENDCASE
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
//-> Abre Notas Fiscais
SELECT CADNFE
XFOCUS( oBmp6 )
//-> permanecer somente transmissao habilitado
lGerar := .T.
lTransmite := .F.
lConsulta := .F.
lCancela := .F.
lConsStatus := .F.
RETURN NIL
ENDIF
SELECT CADNFE
cChaveAcesso:=alltrim(CADNFE->CHAVEACES)
cMensa:="";cRetorno:="";xRecibo:="";cDetalhes:=""
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml"
cXmlAssinado:=""
cRecibo:=""
IF oNFeUtil:ValidaXml(cArq, 1) != 0
oNfeUtil:End()
lProblema_na_transmissao:= .T.
SELECT CADNFE
RLOCK()
REPL STATUS WITH " " // voltar para pendente de geracao - 30/08/2009
COMMIT
UNLOCK
// habilitar somente gerar
// desabilitar botao transmitir / consulta
//-> permanecer somente transmissao habilitado
lGerar := .F.
lTransmite := .T.
lConsulta := .F.
lCancela := .F.
lConsStatus := .F.
RETURN( .F. )
ENDIF
SELECT CADNFE
RLOCK()
REPL RETNFE WITH "IT"
COMMIT
//-> Aqui, o RETORNO tem que ser 103 - LOTE RECEBIDO COM SUCESSO - MANUAL
//-> NX ‚ numerico
nX:=oNFEUtil:EnviaNFe(cArq,@cxmlassinado,@crecibo)
IF oNfeUtil:lAutorizada
oNfe := TVoNFe():New()
oNfe:PegaChaveAcesso(cXmlAssinado)
oNFe:SaveXml(,cXmlAssinado, 2 )
CURSORWAIT()
RETURN( .T. )
id=code>id=code> -
MaurÃcio, tudo bem??
Cadê o nome do Ãndice ??
INDE ON STR(CODIGO,5) TAG CLICOD TO ???????
id=code>id=code>Um abraço
-
Narlen, tudo bem??
Você está errando no registro 54 aquÃ:
Base Calculo Sub.Tributária.....: 100,00
Não é a base de substituição tributária que está sendo pedido, e sim a base do ICMS.
Ou seja, o valor é 0 (zero), cuja soma tem que bater com o valor da Base de Cálculo do Icms do Registro 50
Um abraço
-
citação:
id=quote>id=quote>Bom dia, alguem já desenvolveu NFe com solução do Gilmer?
Como desenvolver utilizando TXTs ?
Fw 2.6 | Clipper 5.3b | DBFCDX
--
FwxH 8.02 | xHb 1.1.0 | DBFCDX
--
FwxH 9.06 | xHb 1.2.1 | SqlLib
id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.
Anderson, tudo bem??
O que o Luiz falou é verdade, existe um layout de TXT que pode ser importado pelo programa da Sefaz.
Estamos exatamente neste momento criando um módulo utilizando esse TXT, para fazer a mesma coisa que o da Sefaz:
- criar o XML
- transmitir
- consultar o lote
- imprimir o Danfe
Se for a mesma coisa que você quer, basta obter esse layout no site da Sefaz. Ele vem na mesma ordem do manual de integração e é muito fácil de se utilizar, desde que você domine manipulação de TXT.
Na solução Gilmer, basta, em vez de pegar os dados dos bancos de dados, pegar diretamente do TXT.
Resolvemos fazer isso, porque fomos consultados por um grupo de 4 empresas que não querem trocar o sistema deles. Porém, o programador não teve capacidade de criar o XML (hehe).
Um abraço
-
Evaldo, tudo bem??
Em xHarbour você não precisa criar Ãndices em ordem crescente ou decrescente.
OrdDescend( ,, .T. ) // indice em ordem crescente
OrdDescend( ,, .F. ) // indice em ordem decrescente
Agora o comando que você quer é DESCENDING
Um abraço
-
citação:
id=quote>id=quote>Pessoal ve se alguém pode me ajudar, preciso fazer uma nota de entrada o CFOP de entrada é 1.102 , coloco a opcao 0 no tpNF , envio e pego o retorno sem erro, na impressão do DANFE sai certo o CFOP e o 1 de entrada no inicio, mais a descrição da natureza vem "VENDA MERCA ADQ/REC DE TERC EM OPER" o certo seria "COMPRA PARA COMERCIALIZAÇÃO", se alguém tiver alguma diga.
Obs: Usando solução Gilmer
Obrigado
Luiz Fernando
msn: empresoft@globo.com
skype:empresoft
empresoft@globo.com
FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1
FWH 9.09,XHARHOUR 1.2
Luiz, tudo bem??
Não usamos a solução Gilmer para geração do XML, mas somente a partir da transmissão.
Agora, tenho certeza que isso é um parâmetro a ser passado por você NA HORA DA GERAÇÃO DO XML, pois na classe nao tem a descrição de cada CFOP.
Acredito que você tenha um banco de dados contendo todos os códigos fiscais e as respectivas descrições. Ou seja, você precisa dar um SEEK no 1102 e passar a descrição.
Um abraço
-
citação:
id=quote>id=quote>Boa tarde a todos, o Pacote Fornecido pelo GILMER apresenta o seguinte erro:
Erro: XML mal formado - Erro durante a análise de EntityName. Linha 41, posição 16.
Em uma empresa que o Certificado foi fornecido por CertiSign não apresenta esse problema, mas com o fornecido pelos Correios / Serpro apresenta.
Agradeço a todos por qualquer colaboração.
André Meneghetti SP-SP
Informax
FWH 2.8 + xHarbour 1.20.01 + BCC 5.5
email: andre.informax@terra.com.br
André,
Não acho que seja problema de Certificado
Abra o arquivo XML com algum editor e retorne o que contém na Linha 41, posição 16.
Verifique se você não está ultrapassando o tamanho de algum campo definido no manual de integração.
Erros mais comuns:
- descrição do produto com mais de 120 caracteres
- unidade comercial e tributável com mais de 6 dÃgitos
- ST "00" sem base de cálculo e icms
-
Amigos,
Só para desabafar e deixar a solução do tópico.
A maioria dos nossos clientes são empresas de cestas básicas e de natal. Nesta época do ano, cada uma delas chega a emitir cerca de 500 notas POR DIA. Umas mais e outras menos. A chance de dar algum problema é imensa, pois não depende só de nós.
Estruturamos o nosso sistema marcando num BD cada fase do processo da NFe.
Quando gerado, alteramos o status para "GER" e habilitamos o botão TRANSMITIR.
Após transmitido, alteramos o status para "ENV" e habilitamos o botão CONSULTA LOTE.
É aà que a coisa pegou. Em 2 clientes nossos a "mardita" da Sefaz retornou o número do RECIBO, com data e hora. Portanto, ela atestou que RECEBEU as Notas.
Só que comprovadamente elas SUMIRAM na base de dados deles.
Quando se consulta o lote num caso desses, fornecendo o número do recibo, dá o erro apontado pelo João.
Só que nós não podemos simplesmente voltar o status para a fase anterior.
A solução foi acrescentar a rotina abaixo num botão "Consulta Status". Ela, ANTES de "voltar" para o status inicial, pesquisa se a nota realmente está ou não na base do Sefaz.
IF CADNFE->STATUS = "ENV" // nfe já transmitida
oNFEUtil:=tVoNFeUtil():New(CADPARAM->UF,val(cTpAmb),cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.)
NX := oNFEUtil:ConsultaStatus()
If NX = 0
//-> nada a fazer
ELSE
TONE( 900, 2 )
DO CASE
CASE NX = 105
cMensa := ( "em processamento na secretaria da fazenda" )
CASE NX = 107
cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " )
CASE NX = 108
cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " )
CASE NX = 109
cMensa := ( "Serviço Paralisado sem Previsão de Retorno " )
CASE NX = 281
cMensa := ( "Rejeição: Certificado Transmissor Data Validade" )
OTHERWISE
cMensa := OemToAnsi( "Problemas na TransmissÆo/ConexÆo. " + ;
"Internet Pode Estar com Problemas." )
ENDCASE
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
//-> Abre Notas Fiscais
SELECT CADNFE
//-> permanecer somente consulta lote/status habilitado
lGerar := .F.
lTransmite := .F.
lConsulta := .T.
lCancela := .F.
lConsStatus := .T.
RETURN NIL
ENDIF
SELECT CADNFE
cChaveAcesso:=alltrim(CADNFE->CHAVEACES)
cMensa:="";cRetorno:="";xRecibo:="";cDetalhes:=""
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml"
cXmlAssinado:=""
cRecibo:=""
nRet:=oNfeUtil:ConsultaNf(cChaveAcesso,cXmlAssinado)
IF oNfeUtil:lAutorizada // nota está na SEFAZ
wtexto:=oNfeUtil:aUltStatus[3]
wpos:=AT("",wTexto)+7
nProtocolo := SUBSTR( wTexto, wPos, 15 )
wposData := AT( "", wTexto ) + 10
cDataNfe := SUBSTR( wtexto, wposData, 10 )
wposHora := AT( "", wTexto ) + 21
cHoraNfe := SUBSTR( wtexto, wposHora, 8 )
cXmlRemessaSemestarassinado:=oNfeUtil:ReadXml(cArq)
cXmlAssinado:=Space(Len(cXmlRemessaSemestarassinado))
oNfeUtil:Assinar(cXmlRemessaSemestarassinado ,"infNFe", @cXmlAssinado)
nRet:=oNfeUtil:ConsultaNf(cChaveAcesso,cXmlAssinado)
oNfe := TVoNFe():New()
oNfe:PegaChaveAcesso(cXmlAssinado)
oNFe:SaveXml(,cXmlAssinado, 2 ) //-> Enviadas - Funcionou OK
oNFe:SaveXml(,oNfeUtil:cXmlProtocolo, 3 ) //-> Protocolos
SELECT CADNFE
RLOCK()
REPL PROTOCOLO WITH nProtocolo
REPL PROTODATA WITH CTOD(SUBS(cDataNfe,9,2)+"/"+SUBS(cDataNfe,6,2)+"/"+SUBS(cDataNfe,1,4))
REPL PROTOHORA WITH cHoraNfe
REPL STATUS WITH "APR"
REPL RETNFE WITH "TR"
COMMIT
UNLOCK
TONE( 900, 2 )
cMensa := OemToAnsi( "CLIENTE: " ) + NOME_CLIENTE_VIEW() + " - " + ;
+ VERIFICA_STATUS_CLIENTE()
cRetorno := "PROT: " + ALLTRIM( CADNFE->PROTOCOLO )
xRecibo := "REC.: " + ALLTRIM( CADNFE->RECIBO )
cChave := ALLTRIM(CADNFE->CHAVEACES)
cGerado := OemToAnsi( "Arquivo XML da Nota Fiscal Eletr“nica " + ;
"Gerada, Est no Diret¢rio: " ) +CRLF+CRLF
cBackup := OemToAnsi( "Recomenda‡Æo: " +CRLF+CRLF+ ;
"Altamente recomend vel, que se fa‡a, " + ;
"C¢pia de Seguran‡a(BACKUP) Di ria, " + ;
"em um PENDRIVE. " +CRLF+ ;
"Vocˆ pode usar o BRAZIP.EXE ou o " + ;
"WINZIP.EXE ou o PKZIP.EXE " + ;
"Estes compactadores de Arquivos, sÆo " + ;
"gratuitos e podem ser(em) baixados " + ;
"em: http://www.baixaki.com.br " +CRLF+CRLF+ ;
"Contato Sistemas e Processamentos @" + ;
ALLTRIM( STR( D_ANO ) ) + " - " + ;
"http://www.pleno.com.br " +CRLF+ ;
"Todos os direitos reservados." )
//
cXml := cPathNFe := CURDRIVE() + ":\" + GETCURDIR() + ;
"\REMESSA\ENVIADAS\" + ;
ALLTRIM( cChave ) + ;
"nfe.xml" + CRLF + CRLF + ;
"DATA: " + ;
DTOC(CADNFE->DATA ) + ;
+ " - " + ;
"HORA: " + ;
CADNFE->HORA + ;
+ " - " + ;
"PROTOCOLO: " + ;
CADNFE->PROTOCOLO + ;
+ CRLF + ;
"DATA PROT: " + ;
DTOC( CADNFE->PROTODATA ) + ;
+ " - " + ;
"HORA PROT: " + ;
CADNFE->PROTOHORA +CRLF + ;
"RECIBO: " + ;
CADNFE->RECIBO +CRLF+CRLF
cDetalhes := cGerado + cXml + cbackup
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
// desligar: gerar / transmitir / consulta lote
// habilitar imprimir danfe
lDanfe := .T.
lGerar := .F.
lTransmite := .F.
lConsulta := .F.
lCancela := .F.
lConsStatus := .F.
oBmp4:Disable()
oBmp4:Refresh()
ELSE
IF nRet = 105 .OR. nRet = 108 .OR. nRet = 109
DO CASE
CASE nRet = 105
cMensa := ( "Em Processamento na Sefaz. Tente Novamente " )
CASE nRet = 108
cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " )
CASE nRet = 109
cMensa := ( "Serviço Paralisado sem Previsão de Retorno " )
ENDCASE
// nada a fazer, permanecer na consulta de lote
lGerar := .F.
lTransmite := .F.
lConsulta := .T.
lCancela := .F.
lConsStatus := .F.
oBmp4:Enable()
oBmp4:Refresh()
oMensa:Refresh()
oRetorno:Refresh()
oRecibo:Refresh()
oDetalhes:Refresh()
//-> Abre Notas Fiscais
SELECT CADNFE
RETURN ( .F. )
ELSE
// retornar
SELECT CADNFE
RLOCK()
REPL STATUS WITH " "
REPL RETNFE WITH "NT"
COMMIT
UNLOCK
// desligar: transmitir / consulta lote
// habilitar: gerar
lGerar := .T.
lTransmite := .F.
lConsulta := .F.
lCancela := .F.
lConsStatus := .F.
oBmp4:Disable()
oBmp4:Refresh()
ENDIF
ENDIF
ENDIF
id=code>id=code>Editado por - pauloaraujo on 03/12/2009 10:56:40
-
citação:
id=quote>id=quote>Ola Luis, qual a qtd de registro deste arquivos que estao lendo a consulta, e qual o tempo que esta demorando...dai faço um teste direto com meus banco de dados aqui...
Abraços
Luiz Fernando
msn: empresoft@globo.com
skype:empresoft
empresoft@globo.com
FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1
Luiz Fernando, APOSTO AS BRAHMAS em você... O outro Luis, VAI PERDER!! KKKKKKKKKK
Abraços.
João Santos - São Paulo.
(11)3106-2832
Editado por - pauloaraujo on 01/10/2009 12:23:39
-
Más infelizmente não faço mais parte da empresa que ajudei a criar. Não sei se é uma despedida, pois não sei ainda qual rumo tomar. Foi muito bom participar com vocês e aprender com vocês.
Fala friend, NÃO SE PREOCUPE, NÃO SERà UMA DESPEDIDA, pois o conhecimento que tens, NÃO MORRE com a empresa que ajudastes a criar e agora você se DESPEDE DELA.
É somente dela que você se despede. DO FIVEWIN, JAMÃS!
Acredite, amanhã, é outro dia e você estará por aqui, perguntando e respondendo.
Quem é FANTASTICO como você, NÃO SE DESPEDE NUNCA!
Força e conte conosco.
Abraços e sorte, alias, tens MUITA SORTE, ÉS FIVEWINNER! Quem pode te VENCER?
João Santos - São Paulo
(11) 3106-2832
Editado por - pauloaraujo on 01/10/2009 12:20:17
-
Putz, Gilmer
Como você notou, não resistà até amanhã (hehe)
Com a sua dica o número do protocolo não é mais problema e funcionará redondo.
Mas não sei se já estou no "pó da rabiola", mas acredito que a rotina quebre antes de executar esses comandos na TRANSMISSÃO:
oNfe := TVoNFe():New()
oNfe:PegaChaveAcesso(cXmlAssinado)
oNFe:SaveXml(,cXmlAssinado, 2 )
Portanto, não tenho o XML assinado.
Estou errado ou bebà pouco ?? (hehe)
Como montar o XML assinado completo nessa situação??
Um abraço
-
Gilmer,
Obrigado mesmo. Vamos testar amanhã e retornamos aquà mesmo.
Um abraço
-
citação:
id=quote>id=quote>João / Paulo
Usando a rotina do Gilmer
Quando voce enviou a NFe houve foi através de uma chave.
Ok. Utiliza-se essa chave para pegar o retorno do recibo.
Se cair a energia ou ctrl+del ou qualquer outra coisa, basta executar novamente a validação com a mesma chave.
A validação pode ser executada mais de uma vez. Já fiz isso e retorna sempre com mesmo nro de protocolo.
Zé,
Você falow() "retorna sempre com mesmo nro de protocolo"
Estamos precisando é do RECIBO. Se você transmite mais de uma vez COM A MESMA CHAVE retorna números de RECIBO diferentes. Já tÃnhamos feito este teste.
Outra coisa, nem consultando o PORTAL esse "mardito" aparece lá.
Um abraço
-
Pessoal,
Se não tiver um jeito de se obter o número do recibo no caso de algum problema, posso afirmar que isso é um "furo" no Projeto da NFe.
No caso de empresas que emitem trocentas notas, a chance de ocorrer algum problema alheio ao sistema é grande, pois depende de provedor de internet, eletricidade, equipamento, usuário, virus, etc.
Paulo/CONTATO SISTEMAS
-
Marcos,
Você usa o xDev ?? Se sim faça uma pesquisa geral (Find in Files) de cada banco:
BRADESCO
BANCO DO BRASIL
UNIBANCO
ITAU
etc
Ou seja, faça uma pesquisa se não escapou alguma coisa em um PRG qualquer. Basta um nome para ele derrubar o sistema. No meu caso, se não fosse essa opção do xDev, tava aferrado (hehe).
Outra coisa, você usa o UPX??
Um abraço
-
citação:
id=quote>id=quote>Falou pouco e falou tudo, esse é o kRA.
Por falar nisso a qto tempo não dá as kRas por aqui.....até imagino pq !!!! rsrsrsr um grande abraço para ti Paulo.
Alessandroid=blue>
FW20d+CL53b+Blk7+@Say+CDX
FW9.02+xHb110+@Say+CDX
Seja Felizid=red>
Alessandro,
Cara, estou trabalhando para o governo, mas infelizmente não tenho férias, nem recebo 15 salários por ano.
Tô aferrado (hehe) de trabalho e acredito que a coisa não vá mudar nos próximos 6 meses.
Um abraço para você também
-
Pessoal,
Não podia deixar passar em branco.
Ontem foi emitida a minha 1ª Nota Fiscal eletrônica, com SUCESSO TOTAL.
Soube que seria obrigatório dia 1º de Abril somente no dia 15 de Março, ou seja, desespero total, pois não tinha nem o Manual.
Somente com a solução do Gilmer e o seu SUPORTE cheguei nesse resultado.
Teve também a ajuda de um amigo do Fórum, que não posso citar o nome, se não a vida dele vai virar um inferno (hehe), a quem tenho que agradecer muito também.
Abraços
Versão do DBF
in Programação
Posted
Luiz, tudo bem???
Faça um teste.
- criar um BD usando o Dbase III
- criar um prg usando o xHarbour e no inÃcio colocar:
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
Nesse prg, dê um APPEND BLANK e também algum REPLACE
Depois disso tente abrir novamente o mesmo DBF pelo Dbase III.
Nem a pau, Juvenal. O RDD DBFCDX é do Fox e com ele você abre o DBF.
Um abraço