Classe para NFe alguem tem interesse?

[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

[sygecom]

Olá Fernando,
Eu tenho intersere, porem uso xHarbour, será que da manter compatível para ambos os projetos ?

[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

[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...

[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.

[fladimir]

Se eu puder ajudar em algo, contem comigo.

Sucesso!!!

[camiloto]

Tb posso tentar ajudar - Uso Harbour com Minigui.

[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.

[vailton]

Se eu puder ajudar em algo, também tenho interesse.

[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

[wjparron]

Ola

Tambem tenho interesse em ajudar nesta classe, assim posso substituir os programas de outras linguagens.

[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

[athayde]

Alguem tem uma rotina de criar xml da nfe, que esteja filé, para fazer uma classe aqui

[]s
Fernando

[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

[alaminojunior]

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.