PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

hbNFe commits

https://pctoledo.org/viewtopic.php?t=12301

Página 2 de 4

hbNFe commits

Enviado: 04 Set 2011 00:30
por athayde
Commit 04/09 00:30
- hbDanfe, suporte a LogoTipo Imagem JPEG, esquerda, direita ou expandido, verifiquem o testes.prg, tem no teste.ini tb
- separadas cada classe em seu prg

[]s
Fernando

hbNFe commits

Enviado: 04 Set 2011 13:28
por athayde
Commit 04/09 13:25
- compatibilizado a maioria das funcoes para xharbour, inclusive o teste

Código: Selecionar todos

Descrição                        Harbour xHarbour A Fazer
-------------------------------- ------- -------- -------------------------------
Classe hbNFe
  Metodos
    escolheCertificado              100%     100%
    UAC                             100%        ? Testar
    pegaObjetoCertificado           100%     100%
    pegaCNCertificado               100%     100%
    pegaPropriedadesCertificado     100%     100%
    pegaTag                         100%     100%
Classe hbNFeStatus                  100%     100%
Classe hbNFeValida                  100%     100%
Classe hbNFeConsulta                100%     100%
Classe hbNFeConsultaCadastro        100%     100%
Classe hbNFeAssina                  100%       0% problema ao assinar TOleAuto
Classe hbNFeCancela                  99%      99% Não sei se precisa fazer algo no XML da NFe
Classe hbNFeInutiliza               100%     100%
Classe hbNFeRecepcaoLote            100%        ?
Classe hbNFeRetornoRecepcao         100%     100%
Classe hbNFeIniToXML                100%     100%
Classe hbDanfe                      100%      90% Compatibilizar com xHarbour (hbzebra)

Incluir a opção para Openssl
xHarbour de testes xharbour-1.20.01.bin.w32.bcc32.5.51
[]s
Fernando

hbNFe commits

Enviado: 04 Set 2011 21:58
por athayde
Commit 04/09 21:55
- W32Ole.prg - funções e classes baseadas na win32ole de 2005, onde por incrivel que parece funciona perfeitamente com a assinatura, meritos e aplausos ao Wilson-CPS, pela descoberta então mudamos um pouco para o pessoal do xharbour

Código: Selecionar todos

hbNFe Rotinas e a fazeres
-------------------------

Descrição                        Harbour xHarbour A Fazer
-------------------------------- ------- -------- -------------------------------
Classe hbNFe
  Metodos
    escolheCertificado              100%     100%
    UAC                             100%        ? Testar
    pegaObjetoCertificado           100%     100%
    pegaCNCertificado               100%     100%
    pegaPropriedadesCertificado     100%     100%
    pegaTag                         100%     100%
Classe hbNFeStatus                  100%     100%
Classe hbNFeValida                  100%     100%
Classe hbNFeConsulta                100%     100%
Classe hbNFeConsultaCadastro        100%     100%
Classe hbNFeAssina                  100%     100%
Classe hbNFeCancela                  99%      99% Não sei se precisa fazer algo no XML da NFe
Classe hbNFeInutiliza               100%     100%
Classe hbNFeRecepcaoLote            100%     100%
Classe hbNFeRetornoRecepcao         100%     100%
Classe hbNFeIniToXML                100%     100%
Classe hbDanfe                      100%      90% Compatibilizar com xHarbour (hbzebra)

Incluir a opção para Openssl
xHarbour de testes xharbour-1.20.01.bin.w32.bcc32.5.51
problema da assinatura no xharbour sanada pelo Wilson da Castelo Porto Software, 
que descobriu que com uma versao antiga da win32ole funcionava, ele fez um fork
da win32ole e mudamos os nomes das functions e classes para não dar problema de
conflito.
[]s
Fernando

hbNFe commits

Enviado: 04 Set 2011 22:58
por athayde
Commit 04/09 22:55
- Fontes AFM PFB Code128 para fazer o codigo de barras para os usuarios xharbour
Acredito que amanha teremos a resposta para nfe cancelada se precisa ou nao anexar o retcanc, ai fechamos a primeira versao do hbnfe

[]s
Fernando

hbNFe commits

Enviado: 05 Set 2011 10:04
por geert
Olá a todos.

Eu já desenvolvi código de barras para boleto bancário SEM USO DE FONTE, e quando olhei no manual do contribuinte da nf-e me senti bem confortável para desenvolver aquele código também. Se for do interesse do grupo, posso contribuir com essa parte, escrevendo uma rotina que desenha retângulos pretos formando o código de barras. Fiz em win32prn, mas creio que uma olhada na rotina de pdf já basta pra aprender a fazer retângulos!

hbNFe commits

Enviado: 05 Set 2011 10:26
por athayde
seria de grande valia, coloquei uma fonte, mas não sei se a mesma esta certa

[]s
Fernando

hbNFe commits

Enviado: 05 Set 2011 13:15
por athayde
Commit 05/09 13:00
- limpeza nos códigos
- cancelamento pronto
- devo liberar a versao para 1.0 a noite, após receber feedback de testes

[]s
Fernando

hbNFe commits

Enviado: 05 Set 2011 22:52
por athayde
Commit 05/09 22:50
- repassado e corrigido pequenos bugs

estou no aguardo de mais alguns feeds back, implantei as rotinas em meu erp e testei todas as funcoes em homologação e tudo certo por enquanto

[]s
Fernando

hbNFe commits

Enviado: 06 Set 2011 09:56
por athayde
Commit 06/09 09:55
- Danfe
oDanfe:lValorDesc := .T. // imprime valor do desconto
oDanfe:nCasasQtd := 2 // casas decimais quantidade
oDanfe:nCasasVUn := 2 //casas decimais valor unitario

[]s
Fernando

hbNFe commits

Enviado: 06 Set 2011 10:55
por andersoncamilo
Fernando

Bom dia

Segue o código com os Webservices de todos os estados,
Ficou somente uma dúvida, os estados do Amazonas e Mato Grosso do Sul, tem Webservices próprios e constam no SRVS, coloquei os dois, ai fica a seu criteiro.

Código: Selecionar todos

METHOD getURLWS(nTipoServico) CLASS hbNFe
LOCAL cUrlWS, aUrlWS := {}

  IF ::tpEmis == '3' // SCAN
    // NACIONAL
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx' , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeStatusServico2/NfeStatusServico2.asmx') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx'           , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeConsulta2/NfeConsulta2.asmx') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx'           , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeRecepcao2/NfeRecepcao2.asmx') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NfeRetRecepcao2/NfeRetRecepcao2.asmx'     , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeRetRecepcao2/NfeRetRecepcao2.asmx') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NfeCancelamento2/NfeCancelamento2.asmx'   , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeCancelamento2/NfeCancelamento2.asmx') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://www.scan.fazenda.gov.br/NfeInutilizacao2/NfeInutilizacao2.asmx'   , 'https://hom.nfe.fazenda.gov.br/SCAN/NfeInutilizacao2/NfeInutilizacao2.asmx') } )
  ELSEIF ::cUFWS $ "13" // AM
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeStatusServico2'    , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeStatusServico2' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeConsulta2'         , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeConsulta2' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeRecepcao2'         , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeRecepcao2' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeRetRecepcao2'      , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeRetRecepcao2' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeCancelamento2'     , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeCancelamento2' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/NfeInutilizacao2'     , 'https://homnfe.sefaz.am.gov.br/services2/services/NfeInutilizacao2' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/cadconsultacadastro2' , 'https://homnfe.sefaz.am.gov.br/services2/services/cadconsultacadastro2' ) } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefaz.am.gov.br/services2/services/RecepcaoEvento'       , 'https://homnfe.sefaz.am.gov.br/services2/services/RecepcaoEvento' ) } )
  ELSEIF ::cUFWS $ "29" // BA
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeStatusServico2.asmx'    , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeStatusServico2.asmx' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeConsulta2.asmx'         , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeConsulta2.asmx' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeRecepcao2.asmx'         , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeRecepcao2.asmx' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeRetRecepcao2.asmx'      , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeRetRecepcao2.asmx' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeCancelamento2.asmx'     , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeCancelamento2.asmx' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeInutilizacao2.asmx'     , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeInutilizacao2.asmx' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/nfenw/CadConsultaCadastro2.asmx' , 'https://hnfe.sefaz.ba.gov.br/webservices/nfenw/CadConsultaCadastro2.asmx' ) } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ba.gov.br/webservices/sre/nferecepcaoevento.asmx'      , 'https://hnfe.sefaz.ba.gov.br/webservices/sre/nferecepcaoevento.asmx' ) } )
  ELSEIF ::cUFWS $ "23" // CE
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeStatusServico2'    , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeStatusServico2' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeConsulta2'         , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeConsulta2' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeRecepcao2'         , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeRecepcao2' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeRetRecepcao2'      , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeRetRecepcao2' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeCancelamento2'     , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeCancelamento2' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/NfeInutilizacao2'     , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/NfeInutilizacao2' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.ce.gov.br/nfe2/services/CadConsultaCadastro2' , 'https://nfeh.sefaz.ce.gov.br/nfe2/services/CadConsultaCadastro2' ) } )
  ELSEIF ::cUFWS $ "50" // MS
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeStatusServico2'    , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeStatusServico2' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeConsulta2'         , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeConsulta2' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeRecepcao2'         , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeRecepcao2' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeRetRecepcao2'      , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeRetRecepcao2' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeCancelamento2'     , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeCancelamento2' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeInutilizacao2'     , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeInutilizacao2' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/CadConsultaCadastro2' , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/CadConsultaCadastro2' ) } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.fazenda.ms.gov.br/producao/services2/NfeRecepcaoEvento'    , 'https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeRecepcaoEvento' ) } )
  ELSEIF ::cUFWS $ "51" // MT
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeStatusServico2?wsdl' , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeStatusServico2?wsdl' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeConsulta2?wsdl'      , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeConsulta2?wsdl' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeRecepcao2?wsdl'      , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeRecepcao2?wsdl' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeRetRecepcao2?wsdl'   , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeRetRecepcao2?wsdl' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeCancelamento2?wsdl'  , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeCancelamento2?wsdl' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/NfeInutilizacao2?wsdl'  , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/NfeInutilizacao2?wsdl' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/CadConsultaCadastro'                , 'https://nfe.sefaz.mt.gov.br/nfews/CadConsultaCadastro' ) } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefaz.mt.gov.br/nfews/v2/services/RecepcaoEvento?wsdl'    , 'https://homologacao.sefaz.mt.gov.br/nfews/v2/services/RecepcaoEvento?wsdl' ) } )
  ELSEIF ::cUFWS $ "52" // GO
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl'    , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2?wsdl'         , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2?wsdl' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2?wsdl'         , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2?wsdl' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2?wsdl'      , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2?wsdl' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2?wsdl'     , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2?wsdl' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2?wsdl'     , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2?wsdl' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2?wsdl' , 'https://homolog.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2?wsdl' ) } )
  ELSEIF ::cUFWS $ "26" // PE
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2'    , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeStatusServico2' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2'         , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeConsulta2' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeRecepcao2'         , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeRecepcao2' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeRetRecepcao2'      , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeRetRecepcao2' ) } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeCancelamento2'     , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeCancelamento2' ) } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2'     , 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/NfeInutilizacao2' ) } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2' ) } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefaz.pe.gov.br/nfe-service/services/RecepcaoEvento'       ' 'https://nfehomolog.sefaz.pe.gov.br/nfe-service/services/RecepcaoEvento' ) } )
  ELSEIF ::cUFWS == "35" // SP
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx'    , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeStatusServico2.asmx') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeconsulta2.asmx'         , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeConsulta2.asmx') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nferecepcao2.asmx'         , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRecepcao2.asmx') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nferetrecepcao2.asmx'      , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRetRecepcao2.asmx') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nfecancelamento2.asmx'     , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeCancelamento2.asmx') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeinutilizacao2.asmx'     , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeInutilizacao2.asmx') } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/nfeweb/services/cadconsultacadastro2.asmx' , 'https://homologacao.nfe.fazenda.sp.gov.br/nfeWEB/services/cadconsultacadastro2.asmx') } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.fazenda.sp.gov.br/eventosWEB/services/RecepcaoEvento.asmx'   , 'https://homologacao.nfe.fazenda.sp.gov.br/eventosWEB/services/RecepcaoEvento.asmx') } )
  ELSEIF ::cUFWS $ "43" // RS
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefaz.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'       , 'https://homologacao.nfe.sefaz.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'          , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx'          , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeRetRecepcao/NfeRetRecepcao2.asmx'    , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeRetRecepcao/NfeRetRecepcao2.asmx') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeCancelamento/NfeCancelamento2.asmx'  , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeCancelamento/NfeCancelamento2.asmx') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'  , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx') } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://sef.sefaz.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx' , 'https://sef.sefaz.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx') } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefaz.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'            , 'https://homologacao.nfe.sefaz.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx') } )
  ELSEIF ::cUFWS == "41" // PR
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeStatusServico2' , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeStatusServico2') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeConsulta2'      , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeConsulta2') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeRecepcao2'      , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeRecepcao2') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeRetRecepcao2'   , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeRetRecepcao2') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeCancelamento2'  , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeCancelamento2') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe2.fazenda.pr.gov.br/nfe/NFeInutilizacao2'  , 'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeInutilizacao2') } )
  ELSEIF ::cUFWS == "31" // MG
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeStatus2'           , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeStatus2' ) } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeConsulta2'         , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeConsulta2' ) } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeRecepcao2'         , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeRecepcao2' ) } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeRetRecepcao2'      , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeRetRecepcao2') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeCancelamento2'     , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeCancelamento2') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeInutilizacao2'     , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeInutilizacao2') } )
    aAdd( aUrlWS, { _CONSULTACADASTRO , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/cadconsultacadastro2' , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/cadconsultacadastro2') } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.fazenda.mg.gov.br/nfe2/services/NfeRecepcaoEvento'     , 'https://hnfe.fazenda.mg.gov.br/nfe2/services/NfeRecepcaoEvento') } )
  ELSEIF ::cUFWS $ "32,21,15,22,24" // ES, MA, PA, PI, RN
    // SVAN
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeStatusServico2/NfeStatusServico2.asmx'  , 'https://hom.sefazvirtual.fazenda.gov.br/NfeStatusServico2/NfeStatusServico2.asmx') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx'            , 'https://hom.sefazvirtual.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx'            , 'https://hom.sefazvirtual.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeRetRecepcao2/NfeRetRecepcao2.asmx'      , 'https://hom.sefazvirtual.fazenda.gov.br/NfeRetRecepcao2/NfeRetRecepcao2.asmx') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeCancelamento2/NfeCancelamento2.asmx'    , 'https://hom.sefazvirtual.fazenda.gov.br/NfeCancelamento2/NfeCancelamento2.asmx') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/NfeInutilizacao2/NfeInutilizacao2.asmx'    , 'https://hom.sefazvirtual.fazenda.gov.br/NfeInutilizacao2/NfeInutilizacao2.asmx') } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://www.sefazvirtual.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx'        , 'https://hom.sefazvirtual.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx') } )
  ELSEIF ::cUFWS $ "12,27,13,16,53,50,25,33,11,14,42,28,17" // AC, AL, AM, AP, DF, MS, PB, RJ, RO, RR, SC, SE, TO
    // SRVS
    aAdd( aUrlWS, { _STATUSSERVICO    , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx', 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx') } )
    aAdd( aUrlWS, { _CONSULTAPROTOCOLO, IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'          , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx') } )
    aAdd( aUrlWS, { _RECEPCAO         , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx'          , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx') } )
    aAdd( aUrlWS, { _RETRECEPCAO      , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeRetRecepcao/NfeRetRecepcao2.asmx'    , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeRetRecepcao/NfeRetRecepcao2.asmx') } )
    aAdd( aUrlWS, { _CANCELAMENTO     , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/NfeCancelamento/NfeCancelamento2.asmx'  , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeCancelamento/NfeCancelamento2.asmx') } )
    aAdd( aUrlWS, { _INUTILIZACAO     , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'  , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx') } )
    aAdd( aUrlWS, { _CCE              , IIF( ::tpAmb='1' , 'https://nfe.sefazvirtual.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'     , 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx') } )
  ENDIF
  cUrlWS := aUrlWS[ ASCAN( aUrlWS, {|a| a[1]==nTipoServico} ), 2 ]
RETURN(cUrlWS)

	
	METHOD cUFToxUF(cUF) CLASS hbNFe
LOCAL xUF
   IF      cUF = '11'; xUF :='RO'
    ELSEIF cUF = '12'; xUF :='AC'	
    ELSEIF cUF = '13'; xUF :='AM'	
    ELSEIF cUF = '14'; xUF :='RR'	
    ELSEIF cUF = '15'; xUF :='PA'	
    ELSEIF cUF = '16'; xUF :='AP'	
    ELSEIF cUF = '17'; xUF :='TO'	
    ELSEIF cUF = '21'; xUF :='MA'
    ELSEIF cUF = '22'; xUF :='PI'	
    ELSEIF cUF = '23'; xUF :='CE'	
    ELSEIF cUF = '24'; xUF :='RN'	
    ELSEIF cUF = '25'; xUF :='PB'	
    ELSEIF cUF = '26'; xUF :='PE'	
    ELSEIF cUF = '27'; xUF :='AL'	
    ELSEIF cUF = '28'; xUF :='SE'	
    ELSEIF cUF = '29'; xUF :='BA'	
    ELSEIF cUF = '31'; xUF :='MG'	
    ELSEIF cUF = '32'; xUF :='ES'	
    ELSEIF cUF = '33'; xUF :='RJ'	
    ELSEIF cUF = '35'; xUF :='SP'	
    ELSEIF cUF = '41'; xUF :='PR'	
    ELSEIF cUF = '42'; xUF :='SC'	
    ELSEIF cUF = '43'; xUF :='RS'	
    ELSEIF cUF = '50'; xUF :='MS'	
    ELSEIF cUF = '51'; xUF :='MT'	
    ELSEIF cUF = '52'; xUF :='GO'	
    ELSEIF cUF = '53'; xUF :='DF'	
   ENDIF
RETURN(xUF)

METHOD xUFTocUF(xUF) CLASS hbNFe
LOCAL cUF
   IF      xUF ='RO'; cUF := '11'
    ELSEIF xUF ='AC'; cUF := '12'	
    ELSEIF xUF ='AM'; cUF := '13'	
    ELSEIF xUF ='RR'; cUF := '14'	
    ELSEIF xUF ='PA'; cUF := '15'	
    ELSEIF xUF ='AP'; cUF := '16'	
    ELSEIF xUF ='TO'; cUF := '17'	
    ELSEIF xUF ='MA'; cUF := '21'
    ELSEIF xUF ='PI'; cUF := '22'	
    ELSEIF xUF ='CE'; cUF := '23'	
    ELSEIF xUF ='RN'; cUF := '24'	
    ELSEIF xUF ='PB'; cUF := '25'	
    ELSEIF xUF ='PE'; cUF := '26'	
    ELSEIF xUF ='AL'; cUF := '27'	
    ELSEIF xUF ='SE'; cUF := '28'	
    ELSEIF xUF ='BA'; cUF := '29'	
    ELSEIF xUF ='MG'; cUF := '31'	
    ELSEIF xUF ='ES'; cUF := '32'	
    ELSEIF xUF ='RJ'; cUF := '33'	
    ELSEIF xUF ='SP'; cUF := '35'	
    ELSEIF xUF ='PR'; cUF := '41'	
    ELSEIF xUF ='SC'; cUF := '42'	
    ELSEIF xUF ='RS'; cUF := '43'	
    ELSEIF xUF ='MS'; cUF := '50'	
    ELSEIF xUF ='MT'; cUF := '51'	
    ELSEIF xUF ='GO'; cUF := '52'	
    ELSEIF xUF ='DF'; cUF := '53'	
   ENDIF
RETURN(cUF)
Um abraço

Anderson Camilo

hbNFe commits

Enviado: 06 Set 2011 12:38
por athayde
commitado
alguem se souber curl poderia montar um ws baseado no phpnfe, para ir adiantando esse outro lado do projeto

[]s
Fernando

hbNFe commits

Enviado: 06 Set 2011 23:32
por athayde
Commit 06/09 23:30
- hbNFeCCe, carta de correção eletronica

[]s
Fernando

hbNFe commits

Enviado: 08 Set 2011 16:59
por allan_de_sa
Olá Fernando,

Eu fui fazer um teste em uma maquina limpa, no metodo execute() da classe hbNFeStatus retornou o erro No exported method: SETOPTION na linha oServerWS:setOption( 3, "CURRENT_USER\MY\"+cCN ) , por que eu não tinha o MSXML 5.0 instalado na maquina. Fiz um tratamento antes disso:

#ifdef __XHARBOUR__
oServerWS := CreateObject( "MSXML2.ServerXMLHTTP.5.0" )
#else
oServerWS := win_oleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
#endif

if oServerWS = Nil
aRetorno['OK'] := .F.
aRetorno['MsgErro'] := 'Não foi encontrado MSXML 5.0'
RETURN(aRetorno)
endif

oServerWS:setOption( 3, "CURRENT_USER\MY\"+cCN )

Att,
Allan

hbNFe commits

Enviado: 08 Set 2011 21:19
por athayde
vlw, mais tarde eu commito estou no meio da assinatura ssl, e esta muito chato, rs

[]s
Fernando

hbNFe commits

Enviado: 08 Set 2011 23:51
por athayde
Commit 08/09 23:45
- Suporte a CURL para consumo de WS com certificados PFX PEM
- hbNFeStatus compatibilizado CURL
- hbNFeConsultaCadastro compatibilizado CURL
- Suporte a XMLSEC para assinatura de documentos para certificados PFX PEM
- hbNFeAssina compatibilizado XMLSEC
- DANFE para fastreport (agradecimentos ao Wilson-cps, que vem colaborando bastante com o projeto, com testes sugestões e correções)

existe uma subpasta xmlsec com tudo o que precisa dentro
existe uma pasta hbDANFE onde se encontra o codigo do fastreports

para quem não tem a CURL só tem para harbour no momento
para quem tem harbour/xharbour e não pretende utiliza-la compilar junto com o hbNFeSemCurl

rotinas já existentes podem dar algum problema, reportem

[]s
Fernando
Todos os horários são UTC-03:00
Página 2 de 4

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB