Página 1 de 8
Classe para NFe alguem tem interesse?
Enviado: 29 Ago 2011 22:21
por athayde
Gostaria de saber se alguem tem interesse em ajudar no desenvolvimento de uma classe para NFes
tenho a maioria das funcoes prontas, Assinaturra, Validação, Status Serviço, Consulta Cadastro, Inutilização, Cancelamento, Envio, Recebimento Lote (80%), DPEC (0%), FS-DS (0%) e Danfe (100%) (Retrato/Paisagem) em PDF
Rotinas feitas com harbour nativo e win_ole
Se houver varios interessados vou abrir uma conta no SF
[]s
Fernando
Classe para NFe alguem tem interesse?
Enviado: 29 Ago 2011 22:29
por sygecom
Olá Fernando,
Eu tenho intersere, porem uso xHarbour, será que da manter compatível para ambos os projetos ?
Classe para NFe alguem tem interesse?
Enviado: 29 Ago 2011 23:04
por athayde
quanto ao ole, sem problemas, temos que ver o que o xharbour não tem ou que seje compativel
uso a hbzebra (para fazer o codigo de barras), o png, hbhpdf (baseada no haru) e hbwin (mais para ole)
o bom que estou fazendo em modo texto o exemplo entao ajuda bastante para usar compiladores diferentes, e para o pessoal testar tb, pois nao depende de gui nenhuma
olhe uma parte exemplo
Código: Selecionar todos
ELSEIF cTipo == "consulta_lote"
aRetorno := oNfe:retornoRecepcao('41CCD63AFA9EE2C13052D0CAC539965D','35','2.00','2','351000053055270')
IF aRetorno['OK'] == .F.
? aRetorno['MsgErro']
ELSE
? aRetorno['tpAmb']
? aRetorno['verAplic']
? aRetorno['nRec']
? aRetorno['cStat']
? aRetorno['xMotivo']
? aRetorno['cUF']
? aRetorno['cMsg']
? aRetorno['xMsg']
FOR nI = 1 TO aRetorno['nNFs']
? aRetorno['NF'+STRZERO(nI,2)+'_tpAmb']
? aRetorno['NF'+STRZERO(nI,2)+'_verAplic']
? aRetorno['NF'+STRZERO(nI,2)+'_chNFe']
? aRetorno['NF'+STRZERO(nI,2)+'_dhRecbto']
? aRetorno['NF'+STRZERO(nI,2)+'_nProt']
? aRetorno['NF'+STRZERO(nI,2)+'_digVal']
? aRetorno['NF'+STRZERO(nI,2)+'_cStat']
? aRetorno['NF'+STRZERO(nI,2)+'_xMotivo']
NEXT
ENDIF
ELSEIF cTipo == "danfe"
oDanfe := hbDanfe()
oDanfe:new( '35110813514106000155550010000000371000000374-nfe.xml', .T., "Times" )
SW_SHOWNORMAL := 1
IF FJ_CURDRIVE() = Nil .OR. FJ_CURDRIVE() == ""
WAPI_SHELLEXECUTE("\"+CURDIR()+"\"+oDanfe:cFile,, "\"+CURDIR()+"\"+oDanfe:cFile ,,, SW_SHOWNORMAL)
ELSE
WAPI_SHELLEXECUTE(FJ_CURDRIVE()+":\"+CURDIR()+"\"+oDanfe:cFile,, FJ_CURDRIVE()+":\"+CURDIR()+"\"+oDanfe:cFile ,,, SW_SHOWNORMAL)
ENDIF
[]s
Fernando
Classe para NFe alguem tem interesse?
Enviado: 29 Ago 2011 23:13
por sygecom
Na boa até no Harbour mesmo eu encarro, por que só temos a ganhar, se tiver possibilidade no xharbour legal se não houver legal também, estou dentro e apoiando...
Classe para NFe alguem tem interesse?
Enviado: 29 Ago 2011 23:37
por alaminojunior
Também tenho interesse em entrar neste time. Faz tempo que penso em poder ajudar de alguma forma, mesmo não sabendo muito bem em quê, hehehehe.
Também trabalho com xHarbour + HwGUI, e posso ajudar no desenvolvimento de algumas rotinas e muito mais ainda com os testes.
Podem contar comigo.
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 00:16
por fladimir
Se eu puder ajudar em algo, contem comigo.
Sucesso!!!
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 00:51
por camiloto
Tb posso tentar ajudar - Uso Harbour com Minigui.
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 03:14
por JoséQuintas
Não entendi o que falta, porque ao que parece tem tudo pronto.
Criei uma classe em VB, mas só depois de fazer a DLL Delphi funcionar no Harbour é que vou me preocupar em converter.
Até importação de dados através de XMLs já tenho em uso, e esta parte em Clipper/Harbour.
Interessaria muito deixar tudo em Harbour, aliás esse é meu objetivo.
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 08:41
por vailton
Se eu puder ajudar em algo, também tenho interesse.
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 09:46
por athayde
criei o projeto no sf svn como hbNFe
uma coisa que estou a fim de fazer antes de utilizar firme é passar alguns metodos para classes
assim os parametros ficam mais claros
o que esta pronto esta funcional do jeito que esta, da para testarem
outra questão fiz por enquanto apenas capicom / msxml, openssl devo fazer a partir de quando terminar o projeto em capicom, acho que não vai dar tanto trabalho pois tem bastante gente que usa o openssl
bom façam o svn update e façam um feed back
vou trabalhar com a mudança de classes
[]s
Fernando
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 09:54
por wjparron
Ola
Tambem tenho interesse em ajudar nesta classe, assim posso substituir os programas de outras linguagens.
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 10:10
por athayde
fica melhor assim não?
Código: Selecionar todos
oStatus := status()
oStatus:ohbNFe := oNfe // Objeto hbNFe
oStatus:cSerialCert := '41CCD63AFA9EE2C13052D0CAC539965D' // Numero de Serie Certificado
oStatus:cUFWS := '35' // UF WebService
oStatus:versaoDados := '2.00'
oStatus:tpAmb := '2' // Homologação
oStatus:tpEmis := '1' // Normal
oStatus:cUF := '35' // UF
aRetorno := oStatus:execute()
IF aRetorno['OK'] == .F.
? aRetorno['MsgErro']
ELSE
? aRetorno['tpAmb']
? aRetorno['verAplic']
? aRetorno['cStat']
? aRetorno['xMotivo']
? aRetorno['cUF']
? aRetorno['dhRecbto']
? aRetorno['tMed']
ENDIF
resultado:
2
SP_NFE_PL_006h
107
Serviço em Operação
35
2011-08-30T10:09:17
1
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 10:12
por athayde
Alguem tem uma rotina de criar xml da nfe, que esteja filé, para fazer uma classe aqui
[]s
Fernando
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 10:16
por LMI
Bom dia pode contar comigo, não gostaria de ficar com algum software como monitor, hoje uso o NFe da Fazenda para Validar e todos os outros processos.
Luciano
Classe para NFe alguem tem interesse?
Enviado: 30 Ago 2011 10:51
por alaminojunior
athayde escreveu:Alguem tem uma rotina de criar xml da nfe, que esteja filé, para fazer uma classe aqui
[]s
Fernando
Caramba ... o meu tá no formato ini, do Acbr. Mas com certeza outro colega deve ter isso ae.