-
Posts
340 -
Joined
-
Last visited
-
Days Won
6
Everything posted by EDUTEK
-
Bom Dia! Estou fazendo um levantamento para montar um sistema de rotas e praças de pedágios, gostaria de traças Rotas ( Paulinia x Uberlandia) e o sistema integrar o Google Maps para traçar a rotas, mas gostaria de saber se dá usando o Google para caadastrar as praças de pedágio, para calular o pedágio desta rota. Existe algo já desenvolvido ? algue, já usa isso, ou sabe de algum serviço que possi fazer esta integração ?
-
qual erro?
-
oItem := TVoNFeProd3() WITH OBJECT oItem :cProd := iif(substr(codigo,1,4)="CFOP",rtrim(codigo),codred) // Código do Produto :cEAN := material->codigo_ean // Código de Barra EAN13 (13 caracteres) :xProd := rtrim(mNomemat) // Descrição do Produto :NCM := cCFiscal if mFilAtivaCest = "N" // Código da NCM if mFilIdAmbiente="2" :CEST := iif(empty(material->cod_cest),"0100100",tiratraco(material->cod_cest)) // Código da cest endif else :CEST := iif(empty(material->cod_cest),"0100100",tiratraco(material->cod_cest)) // Código da cest endif :EXTIPI := "" // Código da EX da TIPI nas classe fiz este ajuste METHOD StruProduto( oItem ) CLASS TVoNFe4G local axArray := {} aadd( axArray, {"cProd" , TVoNFeItem4():New("C", 01, 1, 60,,,oItem:cProd ) } ) aadd( axArray, {"cEAN" , TVoNFeItem4():New("C", 01, 0, 14,,,oItem:cEan ) } ) aadd( axArray, {"xProd" , TVoNFeItem4():New("C", 01, 1, 120,,,oItem:xProd ) } ) aadd( axArray, {"NCM" , TVoNFeItem4():New("C", 00, 2, 08,,,oItem:NCM ) } ) aadd( axArray, {"EXTIPI" , TVoNFeItem4():New("C", 00, 2, 03,,,oItem:EXTIPI ) } ) if mFilAtivaCest = "S" aadd( axArray, {"CEST" , TVoNFeItem4():New("C", 00, 0, 07,,,oItem:CEST ) } ) else if mFilIdAmbiente="2" aadd( axArray, {"CEST" , TVoNFeItem4():New("C", 00, 0, 07,,,oItem:CEST ) } ) endif endif //aadd( axArray, {"genero" , TVoNFeItem4():New("N", 00, 2, ,,,oItem:genero ) } ) aadd( axArray, {"CFOP" , TVoNFeItem4():New("C", 01, 4, ,,,oItem:CFOP ) } ) aadd( axArray, {"uCom" , TVoNFeItem4():New("C", 01, 1, 06,,,oItem:uCom ) } ) aadd( axArray, {"qCom" , TVoNFeItem4():New("N", 01, 12,,4,,oItem:qCom ) } ) aadd( axArray, {"vUnCom" , TVoNFeItem4():New("C", 01, 16,,4,,oItem:vUnCom ) } ) aadd( axArray, {"vProd" , TVoNFeItem4():New("C", 01, 15,,2,,oItem:vProd ) } ) aadd( axArray, {"cEANTrib", TVoNFeItem4():New("C", 01, 13,,,,oItem:cEanTrib ) } ) aadd( axArray, {"uTrib" , TVoNFeItem4():New("C", 1, 1,6,,,oItem:uTrib ) } ) aadd( axArray, {"qTrib" , TVoNFeItem4():New("N", 0, 12,,4,,oItem:qTrib ) } ) aadd( axArray, {"vUnTrib" , TVoNFeItem4():New("C", 0, 16,,4,,oItem:vUnTrib ) } ) aadd( axArray, {"vFrete" , TVoNFeItem4():New("N", 0, 15,,2,,oItem:vFrete ) } ) aadd( axArray, {"vSeg" , TVoNFeItem4():New("N", 0, 15,,2,,oItem:vSeg ) } ) aadd( axArray, {"vDesc" , TVoNFeItem4():New("N", 0, 15,,2,,oItem:vDesc ) } ) aadd( axArray, {"vOutro" , TVoNFeItem4():New("N", 0, 15,,2,,oItem:vOutro ) } ) aadd( axArray, {"indTot" ,TVoNFeItem4():New("N", 1, 1,,0,,oItem:indTot ) } ) * aadd( axArray, {"DI" , ::StruDI(oItem), 0 } ) aadd(axArray, {"xPed" , TVoNFeItem4():New("C", 0, 15,,,,oItem:xPed ) } ) aadd(axArray, {"nItemPed", TVoNFeItem4():New("C", 0, 06,,,,oItem:nItemPed ) } ) aadd( axArray, {"veicProd", ::StruVeicNovo(oItem),0}) aadd( axArray, {"med" , ::StruMedicamento(oItem), 0 } ) aadd( axArray, {"comb" , ::StruComb(oitem), 0} ) return( axArray )
-
Putz, CP-500 que saudades kkkkk
-
meu metropnl.ch tá assim #ifndef DT_TOP #define DT_TOP 0 #define DT_LEFT 0 #define DT_CENTER 1 #define DT_RIGHT 2 #define DT_VCENTER 4 #define DT_BOTTOM 8 #define DT_WORDBREAK 16 #define DT_SINGLELINE 32 #define DT_CALCRECT 1024 #endif #xcommand DEFINE METROPANEL <oMetro> OF <oWnd> ; [ TITLE <cTitle> ] ; [ COLOR <nClrText>, <nClrPane> ] ; [ TILESIZE <nSize> ] ; [ ON CLICK <uAction> ] ; [ SCROLLBARCOLOR <nClrThumb>, <nClrScroll> ] ; => ; <oMetro> := TMetroPanel():New( <oWnd>, <cTitle>, <nClrText>, <nClrPane>, [{| Self |<uAction>}], <nSize>, ; <nClrThumb>, <nClrScroll> ) #xcommand DEFINE METROBUTTON [<oBtn>] OF <oMetro> ; [ <prmt:PROMPT,CAPTION> <cPrompt> ] ; [ COLOR <nClrText>, <nClrPane> ] ; [ ALIGN <nAlign> ] ; [ FONT <oFont> ] ; [ GROUP <nGroup> ] ; [ MENU <oSub> ] ; [ <bmp:BITMAP,IMAGE> <cImgName> [ BMPALIGN <nBmpAlign> ] [ SIZE <nBmpWidth>,<nBmpHeight> ] ] ; [ BACKGROUND <cImage> ] ; [ <large: LARGE> ] ; [ <txt:BODY,BODYTEXT,TEXT> <cText> [ TEXTALIGN <nTextAlign> ] [ TEXTFONT <oTextFont> ] ] ; [ ACTION <uAction,...> ] ; => ; [ <oBtn> := ] <oMetro>:AddButton( <.large.>, <nGroup>, <cPrompt>, [{| Self |<uAction>}], <nClrText>, <nClrPane>, ; <cImgName>, <oFont>, <nAlign>, <nBmpAlign>, <nBmpWidth>, <nBmpHeight>, ; <cText>, <nTextAlign>, <oTextFont>, <oSub>, <cImage>, <"uAction">, <"oSub"> ) #xcommand ADD [<oBtn>] TO METRO <oMetro> [<clauses,...>] => ; DEFINE METROBUTTON [<oBtn>] OF <oMetro> [<clauses>] a
-
******************************************************************************** * Empresa : TTGLog Logistica * * Desenvolvedor : Eduardo Mendes * * eMail..................: eduardo@ttglog.com.br * * Localização............: Limeira / SP / Brasil * ******************************************************************************** * Projeto.........: SysLog * * * * NOme do Projeto.: Sistema de Logistica (Window). * * * * Modulo Principal : syslog.Prg * * Modulo Atual : syslog_os_servico.Prg * * * * Banco de Dados Testado: DBFCDX / Oracle e SQLServer * * Ferramentas Testados: Fwh 1705, xHb 1.2.3, BCC 7.0, xDev 0.72 Black * * SqlRDD v2014 (MSSQL <= 2012 oracle <=10) * * Pellesc Editor de Recursos * ******************************************************************************** * Uso : Funcao de Metro BMP para controlar OS abertas com os Usuarios da * * Oficina * ******************************************************************************** * - Funçoes deste Modulo ==> * * * * - sysLog_os_servico( cParan) * * - Syslog_os_servico_Panel( oWnd ) * ******************************************************************************** #include "syslog.ch" *static oMetro, oTools *static nClrBack := CLR_GREEN *static oWnd, oFontLarge, oFontMed, oFontUL, oFontSmall,Omenu //----------------------------------------------------------------------------// function syslog_os_servicos( cParam ) local oWnd, oBar, oMetro, oBrush, oTimer local cTitle := "Ordem de Servicos - OS" mdata := date() **************************************************** abrindo Tabelas openfile("pessoal","pessoal","N","S","xcartao") openfile("motoris","motoris","N","S","xcodigo") openfile("frota","frota","N","S","xcodfro") openfile("oservico_s","oservico_s","N","S","xaberta") openfile("oservico","oservico","N","S","xchave") dbsetrelation("frota", {||oservico->frota} ,"oservico->frota") DEFINE TIMER oTimer INTERVAL 60000 ACTION {syslog_os_servicos_panel( oWnd ),msginfo("ativou em "+time())} OF oWnd DEFINE WINDOW oWnd TITLE cTitle STYLE nOr( WS_POPUP, WS_MAXIMIZE ); COLOR CLR_WHITE, CLR_GREEN oMetro := syslog_os_servicos_Panel( oWnd ) DEFINE BRUSH oBrush RESOURCE 'TTG_VEICULO' RESIZE oMetro:SetBrush( oBrush ) oBrush:End() oMetro:bRClicked := { |r,c,f,o| msginfo( 'HWND' + NUMTOHEX( oWnd:hWnd, 8 ) ) } ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ( oMetro:Show(), oMetro:SetFocus(), oTimer:activate()) VALID(oMetro:End(), oTimer:Deactivate(), .t.) dbcloseall() Release All return nil //----------------------------------------------------------------------------// function syslog_os_servicos_panel( oWnd ) DEFINE METROPANEL oMetro OF oWnd TITLE "OS - Ordem de Serviço" ; COLOR CLR_WHITE, CLR_CYAN ; ON CLICK oWnd:End() oMetro:lDesignMode := .t. oMetro:nMetroTop := 150 oMetro:nMetroMargin := 050 oMetro:nBtnSize := 110 oMetro:nSliderTop := 100 @ 100, 50 SAY "Serviços Gerais" COLOR "W+/B" SIZE 150, 40 TRANSPARENT FONT oFontSmall PIXEL OF oMetro @ 100, 50 + 300 SAY "Manutenções Corretivas/Preventivas" COLOR "W+/B" SIZE 450, 40 TRANSPARENT FONT oFontSmall PIXEL OF oMetro ****************** primeiro grupo DEFINE METROBUTTON oBtn1 OF oMetro ; COLOR CLR_WHITE,RGB( 86, 177, 14 ) ; CAPTION "Sair" ; ALIGN "TOPCENTER" ; GROUP 1 ; BITMAP "imagem\metro\end.bmp" ; BMPALIGN "BOTTOMLEFT" ; SIZE 40, 40 ; BODYTEXT "Sair do; Painel" ; TEXTALIGN "MIDDLERIGHT" ; ACTION If( MsgYesNo( "Sair do Painel ?",".:: Atenção ::." ), oWnd:End(),) ******************************* segundo grupo mdata := date() mOrder := 1 syslog_os_importa_fw(mdata) dbselectarea("oServico") dbgotop() while !eof() mBodyText := oServico->frota+";"+iif(oServico->tp_manu="C","Corretiva","Preventiva") mBitMap := iif(frota->tipovei="C","imagem\cavalo_azul.bmp","imagem\carreta_azul.bmp") DEFINE METROBUTTON oBtn OF oMetro ; COLOR iif(oServico->execucao="S",CLR_HBLUE,CLR_HBLUE),CLR_WHITE ; CAPTION "OS "+alltrim(str(val(oServico->numero))) ; ALIGN "TOPCENTER" ; GROUP 2 ; BITMAP "&mBitmap" ; BMPALIGN "BOTTOMLEFT" ; SIZE 40, 20 ; BODYTEXT "&mBodyText" ; TEXTALIGN "MIDDLERIGHT" ; BACKGROUND "" ; ACTION syslog_os_servico_lanca(::Cargo) oBTn:Cargo := oServico->(recno()) oBtn:nClrCaption := CLR_HRED oServico->( dbskip()) loop enddo DEFINE METROBUTTON oBtn OF oMetro ; COLOR CLR_WHITE,RGB( 86, 177, 14 ) ; CAPTION "Sair" ; ALIGN "TOPCENTER" ; GROUP 3 ; BITMAP "imagem\casa.bmp" ; BMPALIGN "BOTTOMLEFT" ; SIZE 60, 40 ; BODYTEXT "Sair do; casa" ; TEXTALIGN "MIDDLERIGHT" ; ACTION tecla_virtual() oBtn:bOnMove := { |o,b| logfile( cFileSetExt( ExeName(), "log" ), { b:nTop, b:nLeft } ) } @ 10,10 BTNBMP oBtn RESOURCE "METRO_SAIR" ; SIZE 50,50 PIXEL OF oMetro CENTER NOBORDER TRANSPARENT ; ACTION oWnd:End() return oMetro //----------------------------------------------------------------------------// function SYSLOG_OS_SERVICO_LANCA(mRegistroOS) local oDlg, oBrush, oCbx, OsAY[1] , oGrup, oSay1, oSay2,; oBt1, oCbx1, oCbx2, oCbx3, oGet[1], oBtn1, obtn2 vTitulo := "Atualiza dados da Ordem de Serviço" xNome := "ok" mIDorder := 1 ********************************************************* Variaveis dos Dados mCartao := space(08) mTexto := "Favor passar o cartão Funcional pela LEITORA"+CRLF+; "ou DIGITE o seu codigo logo Abaixo." **************************************** DEFINE BITMAP oBmp RESOURCE "CARTOES" DEFINE ICON oIcon RESOURCE "FENIX" DEFINE BRUSH oBrush resource "CARTOES" RESIZE //"penguins.jpg" RESIZE *****--- INICIO DA DIALOG ---*************************************************** DEFINE DIALOG oDlg SIZE 600,310 PIXEL TRUEPIXEL ; TITLE ".:: Atualiza dados da Ordem de Serviço ::." ICON oIcon oDlg:oFont := oFont4 oDlg:lTransparent := .T. oDlg:lHelpIcon := .F. oDlg:nStyle := nOR( DS_MODALFRAME, DS_SYSMODAL, WS_POPUP, WS_CAPTION, WS_SYSMENU ) oDlg:SetColor( , nRGB( 238, 238, 238 ) ) @ 020, 260 SAY oSay[1] PROMPT mTexto OF oDlg font oFont6 RIGHT SIZE 325, 140 COLOR CLR_RED PIXEL @ 150, 260 GET oGet[1] VAR mCartao PICTURE "@!" SIZE 325, 30 PIXEL OF oDlg font oFont5 ; valid achaCartao("pessoal","xcartao",@mCartao,0,"",0,"") ; action {achacartao("pessoal","xcartao",@mCartao,0,{||buscacartao()},0," CADASTRO DE PESSOAL"),oDlg:refresh(),oBtn1:setfocus()} Update @ 195, 260 BTNBMP oBtn1 PROMPT "Executar" TOOLTIP "Grava alteração dos dados" RESOURCE "POSITIVO" 2007 OF oDlg ; SIZE 160,100 PIXEL ; ACTION { grava_servico_os(mRegistroOS, mCartao),oDlg:End() } oBtn1:bGotFocus := { || oBtn1:Click() } @ 195, 425 BTNBMP oBtn2 PROMPT "Desiste" TOOLTIP "Desiste a gravação alteração dos dados" RESOURCE "NEGATIVO" 2007 OF oDlg ; SIZE 160,100 PIXEL ; ACTION { oDlg:End() } ACTIVATE DIALOG oDlg CENTERED ; ON PAINT ( ABPaint( hDC, 01, 01, oBmp:hBitmap, 250 ) , ; RRECT():New(oDlg, 255, 010, 590, 140, .T.), ; RRECT():New(oDlg, 255, 145, 590, 185, .T.), ; RRECT():New(oDlg, 255, 190, 590, 300, .T.) ) oBmp:End() return nil ************************************************GRAVAÇÃO DOS DADOS function grava_servico_os(mRegistroOS,mcartao) dbselectarea("oServico") dbgoto(mRegistroOS) mFrota := oServico->frota mOS := oServico->numero mChaveOs := mcartao+mOs dbselectarea("oServico_s") dbsetorder("xaberta") dbseek(mchaveOS) if found() if oServico->numero <> mOs mRegistro := oservico_s->( recno()) grava_dados("A","oServico_s",{"datafim","horafim","status"},{date(), time(), "F"}, alias()) grava_dados("I","oServico_s",{"chave","numero","frota","cartao","dataini","horaini","status"},{ mchaveos, mOs,mFrota,mCartao,date(), time(), "A"}, alias()) else mRegistro := oservico_s->( recno()) grava_dados("A","oServico_s",{"datafim","horafim","status"},{date(), time(), "F"}, alias()) endif else grava_dados("I","oServico_s",{"chave","numero","frota","cartao","dataini","horaini","status"},{ mchaveos, mOs,mFrota,mCartao,date(), time(), "A"}, alias()) endif return .t. Function syslog_os_servicos_refresh() if mNumero_de_passagens = 6 mNumero_de_passagens = 0 mAltera_tudo ="S" mdata := date() dbselectarea("oServico") syslog_os_importa_fw(mData) dbselectarea("Oservico") mOrder := mIDorder endif mNumero_de_passagens++ dbselectarea("oServico") return .t. Segue o codigo
-
beleza João, muito abrigado! outra coisa eu abrio as tabela no inicio do programa, quando clifor num botao que chamen euma atualizacao de dados, ele não traz o dbselectarea("oServico") ele diz que alias não existe, tem alguma particularidade a classe para nãop trazer a tabela aberta ?
-
Bom Dia Vai se para abrir e fechar servicos na OS, vou usar a classe metro para montar um quando com as OS aberta no momento, cada OS vai ser um botão Metro, que o mecânico vai tocar na tela touch e passar o cartão funcional num leitos RF-ID, por enquando não vai especificar qual o servico ele esta executando, somente vai startar o inicio e o final do serviço. já consegui fazer com a sua dica.
-
Valeu, vou testar
-
Boa Noite! tenho um Get e um Botao @ 150, 260 GET oGet[1] VAR mCartao PICTURE "@!" SIZE 325, 30 PIXEL OF oDlg font oFont5 ; valid acha("pessoal","xcartao",@mCartao,0,"",0,"") ; action {acha("pessoal","xcartao",@mCartao,0,{||busca()},0," CADASTRO DE PESSOAL"),oDlg:refresh(),oBt1:setfocus()} Update @ 195, 260 BTNBMP oBt1 PROMPT "Executar" TOOLTIP "Grava alteração dos dados" RESOURCE "POSITIVO" 2007 OF oDlg ; SIZE 160,100 PIXEL ; ACTION { oDlg:End() } como faço para o botão disparar a ação, sem eu precisar clicar o Botão executar, quando ele receber o foco automaticamente, ele executa a ação.
-
Só isso que tem que altera? Vou precisar fazer isso com Ordem de serviço, num terminal Touch, para abertuira e fechamento de OS.
-
Bom Dia Pessoal Alguém tem um modelo de CT-e em FastReport que usa só Meia pagina ?
-
Bom Dia! Obrigado pela força, consegui adaptar e deu certo.
-
Como faço isso via Fivewin ? alguém sabe como fazer ? Acessando a Página/URL de consulta Página de consulta (stand alone) - Gera URL GET: http://www.averbeporto.com.br/websys/atwe/protocolo.html Exemplo de acesso via GET: http://www.averbeporto.com.br/websys/atwe/php/Protocolo.php?out=json&download=0&chave[]=12345678901234567890123456789012345678901234 Parâmetros opcionais: out = "json", "xml" ou "csv" // Formato do retorno. Padrão é Json (Na forma padrão da API) download = 0 ou 1 // Cabeçalho do retorno como display ou download para arquivo. Padrão é 0 (display) delim = , // Parâmetro para out=csv. Indica o delimitador de campo do CSV. Padrão é virgula (,) Exemplo de retorno CSV: Chave,Protocolo 12345678901234567890123456789012345678901234,1234567890123456789012345678901234567890 Exemplo de retorno XML: <data> <item0> <chave>12345678901234567890123456789012345678901234</chave> <protocolo>1234567890123456789012345678901234567890</protocolo> </item0> </data>
-
Data-Hora de Emissão posterior ao horário de recebimento
EDUTEK replied to Valdir's topic in Programação
vc ajustou o timezone ( no horario de verão tem que ser -02:00) -
BOA TARDE Precio buscar a averbação do Seguro para emisaão do MDFE via WEBService da Porto Seguro. Alguém ja desenvoiveu isso ? ou teria como com motar um exemplo para eu converter as fucnçoes PHP do exemplo para xharbour segue exemplo "... Exemplo em PHP (cURL) <?php /** * Open an url on https using curl and return content * @author hatem <info@phptunisie.net> * @param string url The url to open * @param string refer Referer (optional) * @param mixed usecookie If true, cookie.txt will be used as default, or the usecookie value. * @return string */ function open_https_url($url,$refer = "", $usecookie = false) { if ($usecookie) { if (file_exists($usecookie)) { if (!is_writable($usecookie)) { return "Can't write to $usecookie cookie file, change file permission to 777 or remove read only for windows."; } } else { $usecookie = ($usecookie === true)? "cookie.txt" : $usecookie; if (!touch($usecookie)) { return "Can't write to $usecookie cookie file, change file permission to 777 or remove read only for windows."; } } } $ch = curl_init(); curl_setopt($ch, CURLOPT_URL, $url); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE); curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 2); curl_setopt($ch, CURLOPT_HEADER, 0); curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"); if ($usecookie) { curl_setopt($ch, CURLOPT_COOKIEJAR, $usecookie); curl_setopt($ch, CURLOPT_COOKIEFILE, $usecookie); } if ($refer != "") { curl_setopt($ch, CURLOPT_REFERER, $refer ); } curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); return $ch; } /** * Limpeza ao terminar de executar * Requer $ws */ function ws_shutdown(){ global $ws; if (file_exists($ws['cookie'])) { unlink($ws['cookie']); } } register_shutdown_function('ws_shutdown'); /** * Ajax Request * Requer $ws Global Config (comp/path/cookie) * aPost (array) json params * sModule (string) mod (i.e. login/Upload/Retrieve) * $sConn (string) URI to connect */ function websysRequest($aPost, $sModule = 'login', $sConn = 'http://www.averbeporto.com.br/websys/php/conn.php') { global $ws; if (!isset($aPost['comp'])) { $aPost['comp'] = $ws['comp']; } if (!isset($aPost['path'])) { $aPost['path'] = $ws['path']; } elseif ($aPost['path'] == '') { unset($aPost['path']); } $aPost['mod'] = $sModule; $ch = open_https_url($sConn, '', $ws['cookie']); curl_setopt($ch, CURLOPT_POST, 1); curl_setopt($ch, CURLOPT_POSTFIELDS, $aPost); $res = curl_exec($ch); curl_close($ch); return $res; } ?> Exemplo de Uso: <?php require_once('func.php'); // Exemplo Config $ws $ws = array( 'comp' => 5, 'path' => 'eguarda/php/', 'conn' => 'http://www.averbeporto.com.br/websys/php/conn.php', 'cookie' => tempnam(sys_get_temp_dir(), 'ws_'), 'logged' => '' ); /** * Envia arquivo * * @param {String} Conteudo do arquivo * @param {Array} Usuario e senha. Ex.: array('user'=>'USUARIO', 'pass'=>'SENHA', 'path'=>'') * @param {String} (optional) Remetente (em caso de email) * @return {Array} Retorna resposta do webservice */ function sendFile($sFileContent, $aUser, $sRecipient = ''){ global $ws; $file = tmpfile(); fwrite($file, $sFileContent); rewind($file); $meta = stream_get_meta_data($file); $mime = mime_content_type($meta['uri']); $post = array( 'file' => (version_compare(PHP_VERSION, '5.5') >= 0)? new CURLFile($meta['uri'], $mime) : '@'.$meta['uri'].';type='.$mime ); if ($sRecipient) { $post['recipient'] = $sRecipient; } // Login if ($ws['logged'] != $aUser['user']) { $res = json_decode(websysRequest($aUser), true); if (isset($res['logout']) && $res['logout']) { //ws_log('MAIL2EG: ['.$aUser['user'].']: '.posix_getpid().': Falha do login. '); } } else { $res['success'] = $res['C'] = true; } // Upload if ($res['success'] && isset($res['C'])) { $ws['logged'] = $aUser['user']; $res = json_decode(websysRequest($post, 'Upload'), true); } fclose($file); return $res; } $aUser = array( 'user' => 'USUARIO', 'pass' => 'SENHA', 'path' => '' ); $sFileContent = file_get_contents('ARQUIVO.xml'); $res = sendFile($sFileContent, $aUser); print_r($res); ?> ."" alguém teria um modelo mais ou menos parecido de como eu faria isso no xharbour Hoje eu fiz desta forma, o usuario envia o XML do CTE via email para a Porto Seguro, ele receber lá, depois o usuario entra no Site e copia o numero da averbação e depois digita no MDFE e envio, mas isso é muito trabalho pro usuario. Grato
-
No caso do Xbrowse to excel, tem uma forma de executar sem mostrar o xbrowse, já chamar e ir direto pro excel ? Meu Caso é o seguinte : eu uso o FastReport para meus relatorios, ele exporta pro excel normal, mas vai tudo formatado, o que gostaria era antes de mandar pro FR, gerar uma planilha do excel com a tabela principal do relatorio, pois na maioria dos casos eu gero uma tabela temporária para imprimir, esta tabela que eu gostaria de mandar pro excel, sem precisar abrir o FastReport.
-
Bom dia! Valeu vou estudar os dois casos.
-
Boa tarde Como faço para exportar uma tabela para o excel, Hoje eu abro o xBrowse e Exporto, como eu faço para não mostrar os dados no browse mas mandar direto para o Excel. tem como fazer isso no xbrowse ?
-
Boa tarde Existe algum webservice ou servico que poderia consultar a situacao de uma CNH inclusive se esta suspensa e quantos pontos tem ? Gostaria que pudesse ser feito via sistema. alguém sabe de alguma coisa ?
-
Valeu !!! Era isso mesmo. Obrigado.
-
Bom Dia! Tenho um xBrowse (que vai funcionar como se fosse um painel de Aeroporto - que fica mostrando o Embarque e desembarque), Gostaria de Fazer uma atualização nele a cada 10 minutos, cmo se faz isso usando o xbrowse, ja tenho a funcao de execução toda pronta, pois hoje o usuario clica no botão do refresh para atualizar, mas se os usuario não atualizarem o xbrowse fica parado. Como eu faria isso ?
-
Boa Dia! Vou precisar fazer controle de contratos de empresas de terceiros, é um contrato padrão para todos. na questão do Modelo do contrato qual a melhor forma de usar ? Usar ele no Word e fazer as trocas das macros na impressão ou fazer ele direto na FastReport, igual a um relatório. Preciso garantir que este contrato não será alterado de forma nenhuma, pois quando houver mudanças, vai ser uma nova versão do contrato., então preciso controlar o versionamento do contrato. Qual a melhor forne de fazer isso ?