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
Moderador: Moderadores
hbNFe commits
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
Commit 04/09 13:25
- compatibilizado a maioria das funcoes para xharbour, inclusive o teste
[]s
Fernando
- 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
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
[]s
Fernando
- 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.
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
- 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
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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!
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
seria de grande valia, coloquei uma fonte, mas não sei se a mesma esta certa
[]s
Fernando
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
- limpeza nos códigos
- cancelamento pronto
- devo liberar a versao para 1.0 a noite, após receber feedback de testes
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
- 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
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
- Danfe
oDanfe:lValorDesc := .T. // imprime valor do desconto
oDanfe:nCasasQtd := 2 // casas decimais quantidade
oDanfe:nCasasVUn := 2 //casas decimais valor unitario
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
-
andersoncamilo
- Usuário Nível 3
- Mensagens: 103
- Registrado em: 22 Ago 2004 11:54
hbNFe commits
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.
Um abraço
Anderson Camilo
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)
Anderson Camilo
- Anexos
-
WEBSERVICES.PRG- (24.46 KiB) Baixado 589 vezes
hbNFe commits
commitado
alguem se souber curl poderia montar um ws baseado no phpnfe, para ir adiantando esse outro lado do projeto
[]s
Fernando
alguem se souber curl poderia montar um ws baseado no phpnfe, para ir adiantando esse outro lado do projeto
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
Commit 06/09 23:30
- hbNFeCCe, carta de correção eletronica
[]s
Fernando
- hbNFeCCe, carta de correção eletronica
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
-
allan_de_sa
- Usuário Nível 1
- Mensagens: 13
- Registrado em: 24 Mai 2011 20:23
- Localização: SAO PAULO
hbNFe commits
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
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
vlw, mais tarde eu commito estou no meio da assinatura ssl, e esta muito chato, rs
[]s
Fernando
[]s
Fernando
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)
hbNFe commits
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
- 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
projeto hbNFe NFe para [x]Harbour venha fazer parte do time http://www.pctoledo.com.br/forum/viewforum.php?f=54
Harbour 3.2 + Hwgui (HBIDE)
Harbour 3.2 + Hwgui (HBIDE)