Jump to content
Fivewin Brasil

Search the Community

Showing results for tags 'api'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • FiveWin
    • WorkShop
    • Advantage Server
    • FiveScript
    • FiveWin Avaliação
    • TopConnect
    • Classes
    • Programação
    • FiveWin - Conversão de 16 bits para 32 bits
    • Seminário
    • Artigos / Tutoriais
    • Off - Topic
  • Suporte Estendido
    • Duvidas Gerais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 4 results

  1. syspel

    ref 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
  2. 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
  3. 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.
  4. 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"
×
×
  • Create New...