NFC-e

[querentino]

Bom dia a todos,

Tenho um sistema próprio feito em clipper e não estou querendo substituir no momento,
mais tenho que colocar a NFC-e em funcionamento e não estou conseguindo fazer essa tarefa.
quero saber se algum dos amigos tem alguma sugestão de implementar somente essa rotina no meu sistema
tipo eu crio um arquivo txt com os dados necessários e recebesse uma resposta.
podemos combinar sobre valores / mensalidades.

[Itamar M. Lins Jr.]

Olá!
Muitos aqui fazem dessa forma.
Mas precisa adicionar os campos no seu sistema.
Os campos do XML que são as informações da NFe. Ou NFCe são bem parecidos.
Neste caso entrar em contado, com alguém aqui do forum para fazer as modificações(adequações) do seu sistema.
Eu faço isso também dentre muitos aqui do forum.

Saudações,
Itamar M. Lins Jr.

[carlaoonline]

Bom dia!

Aqui na empresa nunca fizeram questão de implementar a NF pelo sistema próprio, na realidade nem querem, pois a demanda é bem baixa e eles usam direto no portal sem precisar ter que ficar mudando o sistema próprio toda vez que muda algo.

Num cenário hipotético da nota fiscal ter APENAS 2 CAMPOS:

"Nome" e "Valor"

Teria como alguém postar um exemplo de como se conecta no portal e envia esses dados?

Como nunca precisei usar, não tenho nem ideia como se faz.

Grato.

[querentino]

Entendi Itamar,

seria somente a NFC-e aqui de SP, se você consegue fazer essa rotina
qual seria o valor e se tem uma forma de por em pratica no meu sistema em clipper.

[Fernando queiroz]

usem a SEFAZCLASS, eu a uso para emissão de NF-e e NFC-e, se precisarem de ajuda me proponho a faze-la e tem o Quintas que é o pai da criança que também pode ajudar

[Fernando queiroz]

segue código de conecção para emissão de NF-e e NFC-e, bem simples a utilização

Código: Selecionar todos

	IF ::ModeloNotaFiscal = 55
		::oSefaz           		:= SefazClass():New()
		::oSefaz:cUF       		:= ::UFEmitente
		::oSefaz:cAmbiente 		:= ::cAmbiente	
		::oSefaz:cCertificado 	:= ::cCertificado
		cXml := ::IDENTIFICACAO(  ) 
		cXml += ::EMITENTE( ) 
		cXml += ::DESTINATARIO(  )
		do case
			case ::TIPO_OPERACAO = 30
				cXml += ::TIPO_OPERACAO_30( )
			case ::TIPO_OPERACAO = 40
				cXml += ::TIPO_OPERACAO_40( )
			case ::TIPO_OPERACAO = 90
				cXml += ::TIPO_OPERACAO_90( )
			case ::TIPO_OPERACAO = 91
				cXml += ::TIPO_OPERACAO_90( )
			OTHERWISE
				cXml += ::TIPO_OPERACAO_GERAL( )
		endcase
	ELSE
		::oSefaz           		:= SefazClass():New()
		::oSefaz:cUF       		:= ::UFEmitente
		::oSefaz:cAmbiente 		:= ::cAmbiente	
		::oSefaz:cCertificado 	:= ::cCertificado	
		::oSefaz:cIdToken		:= ::cIdTokenCupom
		::oSefaz:cCSC			:= ::CSCCupomFiscal
		::oSefaz:cNFCE          := "S"
		::oSefaz:cIndSinc       := "1"

		cXml := ::IDENTIFICACAO(  ) 
		cXml += ::EMITENTE( ) 
		cXml += ::DESTINATARIO_CPF(  )
		cXml += ::TIPO_OPERACAO_GERAL( )
	ENDIF
	cXml+= ::TRANSPORTE(  )
	cXml+= ::COBRANCA(  )
	cXml+= ::PAGAMENTO( )
	cXml+= ::INFORMACOES_ADICIONAIS(  )

	::oSefaz:cXmlDocumento := cXml 
	oBar:Step()
	oBar:SetLabel("Nota Fiscal enviada e aguardando retorno...")

   ::oSefaz:NFEloteenvia( cXml )

	IF ! ::oSefaz:cStatus $ "100,101,150,301,302"
		oBar:Step()
		oBar:SetLabel("Nota Fiscal Rejeitada...")
		hwg_MsgStop("Motivo: " + ::oSefaz:cStatus + HB_EOL()+ ::oSefaz:cMotivo,"ATENÇÃO!!!")
		return nil
	ELSE
		cQuery1:="UPDATE danfe SET "
		cQuery1+="danfe.B_DHEMI   = '" + XmlNode(::oSefaz:cXmlAutorizado, "dhEmi") +  "', "
		cQuery1+="danfe.FL_SITUAC = '" + XmlNode(::oSefaz:cXmlAutorizado, "cStat") +  "', "
		cQuery1+="danfe.FL_MOTIVO = '" + XmlNode(::oSefaz:cXmlAutorizado, "xMotivo") +  "' "
		cQuery1+="WHERE danfe.PEDIDOS_ID = '" + STRZERO(::nPedido_Id,11,0) + "'"
		CONECCOESCLASS():ExecuteSQL(::oServer, cQuery1)

		cQuery1:="SELECT arquivoxml.ARQUIVOXML_ID FROM arquivoxml WHERE arquivoxml.NOME = '" +  ::a_Id + ".xml'"
		oQuery2:= CONECCOESCLASS():ExecuteSQL(::oServer, cQuery1)		
		cQuery1:="UPDATE arquivoxml SET "
		cQuery1+="arquivoxml.FICHEIRO = '" + ::oSefaz:cXmlAutorizado +  "' "
		cQuery1+="WHERE arquivoxml.ARQUIVOXML_ID = '" + STRZERO(oQuery2:Fields( "ARQUIVOXML_ID" ):Value,11,0) +  "' "
		CONECCOESCLASS():ExecuteSQL(::oServer, cQuery1)		

		oBar:Step()
		oBar:SetLabel("Nota Fiscal autorizada...")
		oSpedDa := hbNfeDaGeral():New()
		oSpedDa:ToPdf( ::oSefaz:cXmlAutorizado, "C:\TEMP\" + ::a_Id + ".PDF" )			
		IF ! EMPTY(oQuery1:Fields( "e_eMAIL" ):Value)
			oBar:Step()
			oBar:SetLabel("Enviando Email da Nota Fiscal ao Cliente...")
			::EMAIL_ENVIA(  )
		ENDIF
		WAPI_ShellExecute( NIL, "OPEN", "C:\TEMP\" + ::a_Id + ".PDF" ,"",NIL,5 )
	ENDIF

RETURN NIL

[Itamar M. Lins Jr.]

Olá!

Como nunca precisei usar, não tenho nem ideia como se faz.

Bem, conforme vc explicou, entendi que ai na sua empresa ela PAGA um software de terceiros para isso.
Pq não existe portal nenhum para tirar NFCe ou NFe, a não ser os que são pagos.
Ou se for nota fiscal de serviço(NFSE), tira no site da prefeitura.

Saudações,
Itamar M. Lins Jr.

[carlaoonline]

Grato a todos!

Ou se for nota fiscal de serviço(NFSE), tira no site da prefeitura.

..sim, é de serviço.

Não domino o assunto, achei que todo tipo de NF poderia também ser tirada pelo site...

As empresas que usam o sistema que desenvolvi são todas prestadoras de serviços, e realmente acessam o site da prefeitura para tirar NF, por isso nunca me solicitaram tal código....bom por um lado e ruim por outro... não adquiri experiência no assunto, mas vou fazer um estudo aprofundado para me inteirar.

[JoséQuintas]

quero saber se algum dos amigos tem alguma sugestão de implementar somente essa rotina no meu sistema
tipo eu crio um arquivo txt com os dados necessários e recebesse uma resposta.
podemos combinar sobre valores / mensalidades.

Ao invés de gerar em TXT, gera em XML.
Sefazclass faz o resto.

Mas... se já fez NFE, é a mesma coisa, só altera o tipo do documento.