infosys2
-
Posts
78 -
Joined
-
Last visited
-
Days Won
2
Reputation Activity
-
infosys2 got a reaction from emotta in SQLRDD
O Marcos gambeta adicionou ao seu repositório do hb++, e dá pra ser compilado com o harbour 3.2 e 3.4, assim como também já removeu a dependência do bison pra compilar o mesmo, e disse que pretende remover a dependência de usar o xhb.hbp na compilação, o que seria ideal também.
Está caminhando, em breve acredito que vai estar no repositório do harbour na pasta contrib.
Baixe os fontes já corrigidos para harbour aqui neste link:
https://github.com/marcosgambeta/sqlrddpp/tree/main
-
infosys2 got a reaction from emotta in SQLRDD
Baxei aqui na minha maquia e compilei apenas o sqlrdd.
so ficou 6 arquivos que nao conseguir compilar por que nao conseguir encontrar alguns include existentes neste arquivos
sqlact.c
sqlex1ora.c
sqlex2ora.c
sqlex3ora.c
sqllex.c
sqlora.c
Depois de compilado conseguir fazer o seguinte teste com xharbour1.2.3 bcc7 :
RddSetDefault( "SQLRDD" ) SET DELETED ON IF SR_ExistTable( "clientes" ) USE clientes NEW alias temp VIA "SQLRDD" BROWSE() endif dbcloseall()
-
infosys2 got a reaction from rochinha in Envio de notas fiscais NFs-e
Valeu Rochinha pelas dicas. Com certeza vai ajudar sim!
-
-
-
infosys2 got a reaction from afonseca69 in Esocial Ambiente de testes
Já conseguir assinar, enviar e receber o retorno
-
infosys2 reacted to mkyx in E-Social e comandos para assinar xml
O e-social está me deixando maluco, tenho um sistema de folha de pagamento e tenho que implementar mais essa obrigação legal.
Uffa, ainda bem que alteraram o prazo para 2018 (01/01/2018 e 01/07/2018).
Mas, eu pediria para quem soubesse indicar, onde eu poderia encontrar comandos e manual para manipular ole, request, get, response, etc
Tudo sobre assinatura xml, como transmitir e consultar servidor web, etc., semelhante aos comandos abaixo:
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP")
IF ::cCertificado != NIL
oServer:setOption( 3, "CURRENT_USER\MY\" + ::cCertificado )
ENDIF
oServer:Open( "POST", ::cWebService, .F. )
oServer:SetRequestHeader( "SOAPAction", ::cSoapAction )
oServer:SetRequestHeader( "Content-Type", "application/soap+xml; charset=utf-8" )
oServer:Send( ::cXmlSoap )
oServer:WaitForResponse( 500 )
cRetorno := oServer:ResponseBody
Obrigado a todos.
Pompeo
Guaratinguetá - SP
Fwh, xharbour