Search the Community
Showing results for tags 'api'.
-
ola pessoal preciso de mandar estas informacao para um api tenho esse exemplo abaixo mais as informacao nao chega la na pagina alguem pode ajudar aonde estou errando neste script o api e post obrigado pela ajuda #Include "Fivewin.ch" //-------------------------------- function main() local pCpf := "99999999999" local pCnpj := "08124858000100" local pNome := "joao carlos" local pArquivo := ".\func0001.JPG" local cRetorno := "" cRetorno := fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo ) SysRefresh() MsgInfo( cRetorno ) MemoWrit(".\carlos.txt", cRetorno ) return .t. *------------------------------------------------------------------------------* *------------------------------------------------------------------------------* * Analista : maniel * * Objetivo : Enviar Arquivo *------------------------------------------------------------------------------* Function fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo ) Local oHttp , cTexto :="" Try oHttp := CreateObject( 'MSXML2.XMLHTTP' ) Catch oHttp := CreateObject( 'Microsoft.XMLHTTP' ) End oHttp:Open( 'POST', "https://api-fpm.syspel.com.br/api/recibos/", .F. ) cTexto := '{ ' cTexto += '"id_client": ' +pCpf cTexto += '"id_company": ' +pCnpj cTexto += '"Id_employee": '+pNome cTexto += '"File": ' +pArquivo cTexto += ' }' try oHttp:Send( cTexto ) catch MsgInfo( "Erro no processo post:" + oHttp:lastErrorMessage()) end Return oHttp:ResponseBody *------------------------------------------------------------------------------* carlos Syspel bcc 730 fwh2111 dbfs cloud
-
Bom dia pessoal, Solicite um orçamento se você também deseja integração* com sites ou desenvolvimentos em geral. No link Contratações/Orçamentos, veja o item orçamento/tarefa e dados para contato (e-mail/chat). * para utilizar em qualquer sistema Harbour/xHarbour, Windows/Linux (sem depender de utilitários). [], contatos profissionais Facebook | idlagam.com
-
Amiguinhos, Eis um exemplo de código para obter informações sobre GTINs de produtos para sanear seus bancos de dados de produtos, que foi disponibilizado pela BlueSoft O código foi testado em Harbour Simplex 0.45. Use a função de OLE preferida no lugar de TOleAuto():New(...): cNCMCosmos := "https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json" AUTH_TOKEN := "8e0g9T_n22f7_koK5lSeAA" strMsg := "" oNCMCosmos := TOleAuto():New( "Microsoft.XMLHTTP" ) oNCMCosmos:Open( "GET", cNCMCosmos, .F. ) oNCMCosmos:setRequestHeader( "Content-Type", "application/json;charset=UTF-8" ) oNCMCosmos:setRequestHeader( "X-Cosmos-Token", AUTH_TOKEN ) oNCMCosmos:Send( strMsg ) MemoEdit( oNCMCosmos:responseText ) O exemplo acima só funcionará após feito o seu cadastro no site e obtendo o AUTH_TOKEN para uso. Veja como funciona e API e Faça o cadastro Resultado em JSON. { "description":"AÇÚCAR REFINADO UNIÃO 1KG", "gtin":7891910000197, "thumbnail":"https://cdn-cosmos.bluesoft.com.br/products/7891910000197", "price":"R$ 3,49", "avg_price":3.49, "max_price":3.49, "min_price":3.49, "width":0.0, "height":0.0, "length":0.0, "net_weight":null, "gross_weight":null, "created_at":"2014-04-24T11:07:34.000-03:00", "updated_at":"2018-09-11T10:35:53.000-03:00", "barcode_image":"http://api.cosmos.bluesoft.com.br/products/barcode/C5A6D9FADB6D01B6E5B321FAB9053F92.png", "brand":{"name":"UNIAO", "picture":""}, "gpc":{"code":"10000043", "description":"Açúcar / Substitutos do Açúcar (Não perecível)"}, "ncm":{"code":"17019900", "description":"Outros", "full_description":"Açúcares e produtos de confeitaria - Açúcares de cana ou de beterraba e sacarose quimicamente pura, no estado sólido - Outros: - Outros"}, "cest":{"id":2154, "code":"1710300", "description":"Outros tipos de açúcar, em embalagens de conteúdo inferior ou igual a 2 kg, exceto as embalagens contendo envelopes individualizados (sachês) de conteúdo inferior ou igual a 10 g", "parent_id":1671}, "gtins":[{"gtin":7891910000197,"commercial_unit":{"type_packaging":"Unidade","quantity_packaging":1,"ballast":null,"layer":null}}, {"gtin":7891910000203,"commercial_unit":{"type_packaging":"Fardo","quantity_packaging":10,"ballast":null,"layer":null}}]} Os testes se limitam a uma quantidade de 25 retornos por dia na opção grátis ma tem uma Tabela de Preços Façam suas implementações e bom trabalho. Observação: Não trabalho na empresa e não ganhei nada para divulgar.
-
Amiguinhos, Mais uma pérola da API do Windows: Local EWX_REBOOT := 2 ... ExitWindowsEx( EWX_REBOOT, 0 ) ... Return nil DLL FUNCTION ExitWindowsEx( uFlags AS _INT, dwReserved AS _INT ) AS _INT PASCAL LIB "user32.dll"