silvanof
-
Posts
36 -
Joined
-
Last visited
-
Days Won
2
silvanof's Achievements
-
btsinfo@com4.com.br reacted to a post in a topic:
xHarbour integrando com PHP p/relatórios, etc..
-
Verifica o caminho do .NET\Framework apontado no registradll_NFe_2g.bat em comparação com o que vc tem instalado, de repente vc vai ter que alterar o .bat @%windir%\Microsoft.NET\Framework\v2.0.50727\regasm "%cd%\NFe_Util_2G.dll" /tlb:"%cd%\NFe_Util_2G.tlb"
-
Pelo que entendi o que tem no código de barras seria um código de identificação do gerente e não uma senha, vc terá que alterar seu sistema par pedir além da identificação que é facilitada pelo código de barras, também uma senha. Não vejo outra solução.
-
aferra reacted to a post in a topic:
xHarbour integrando com PHP p/relatórios, etc..
-
Prezados, a quem possa interessar. Estou iniciando na programação web com PHP e minha primeira experiência foi juntar os dois mundos, fazendo uma chamada a uma pagina hospedada no servidor pra retornar um relatório html gerado com php. Utilizei o pacote Xampp que vem completo (Apache,PHP e MySql), mas usei o banco de dados Firebird do meu sistema. Vi que com isso dá para migrar facilmente relatório para internet/intranet. Fiz assim: Função com a classe TipClientHttp do xHb comercial: FUNCTION Main() LOCAL oHttp, cHtml, hQuery // ? cPath+"listapartes.html" // SHELLEXECUTE( 0, 0, "iexplore.exe", cPath+"lista_partes.html", 0, 1 ) //return nil oHttp:= TIpClientHttp():new( "http://192.168.254.104/contratos/lista_partes_xhb.php" ) // build the Google query hQUery := Hash() hSetCaseMatch( hQuery, .F. ) hQuery["tipfil"]:= "3" hQuery["conteudo"] := "INSTITUTO" // add query data to the TUrl object oHttp:oUrl:addGetForm( hQuery ) // Connect to the HTTP server IF oHttp:open() // downlowad the Google response cHtml := oHttp:readAll() Memowrit( "lista_partes.html", cHtml ) oHttp:close() ? cPath+"listapartes.html" SHELLEXECUTE( 0, 0, "iexplore.exe", cPath+"lista_partes.html", 0, 1 ) //? Len(cHtml), "bytes received " //?? "and written to file lista_partes.html" ELSE ? "Connection error:", oHttp:lastErrorMessage() ENDIF RETURN nil Programa em PHP que lê os parâmetros passados via GET e da um SELECT no banco: <!DOCTYPE html> <html> <head> <!-- Para não dar problemas na acentuação --> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <link rel="stylesheet" type="text/css" href="css/Estilo_Form.css" /> <title> </title> <?php require_once('include/funcoes_aws.php') ?> <header> <center> <br> <!-- Funcao para exibir logo na tela (funcoes_aws.php) --> <?php ExibeLogoTela() ?> <hr><br> </center> </header> <!-- 120% para gerar scrool horizontal --> </head> <body style="width:120%" bgcolor="#87CEFA"> <?php // Verificação de segurança via variavel global $filtracampo=""; $tipfil=$_REQUEST['tipfil']; $conteudo=$_REQUEST['conteudo']; switch($tipfil) { case "1": //todos $filtracampo=""; break; case "2": //cnpj/cpf $filtracampo="AND (CNPJ = '".$conteudo."' OR CPF = '".$conteudo."')"; break; case "3": //nome $filtracampo="AND NOME LIKE '%".$conteudo."%'"; break; } $hoje=Hoje(); // Conecta com o Firebird, banco CONTRATOS $db = ibase_connect("localhost:c:/contratos/contratos_compet.fdb", "sysdba", "masterkey"); // Monta o SELECT na tabela de PARTES $query ="SELECT CODEMP,NOME,TELEFONE1,CNPJ,CPF,TIPOPESSOA FROM CTR_PARTES WHERE SR_DELETED<>'T' ".$filtracampo." ORDER BY NOME"; $result = ibase_query($db,$query); if ($result) { echo '<table border="1">'; echo nl2br("<caption> <strong> $hoje \r\n LISTAGEM DE PARTES </strong> </caption>"); echo "<tr bgcolor='lightgray'>"; echo "<td><strong> CÓDIGO </strong></td>"; echo "<td ><strong> NOME </strong></td>"; echo "<td ><strong> TELEFONE </strong></td>"; echo "<td ><strong> CNPJ/CPF </strong></td>"; echo "</tr>"; $lin=0; while ($row = ibase_fetch_assoc ($result)) { $lin++; // para alternar as cores das linhas (%=modulo() ou seja divisão com resto zero) if($lin % 2 == 0) { //par $corfundo="bgcolor='lightyellow'"; } else { //impar $corfundo=''; } echo "<tr ".$corfundo.">"; echo "<td>" .$row['CODEMP'] ."</td>"; echo "<td >".substr($row['NOME'],0,50)."</td>"; echo "<td>" .$row['TELEFONE1'] ."</td>"; if ($row['TIPOPESSOA']=='J') echo "<td>" .$row['CNPJ'] ."</td>"; ELSE echo "<td>" .$row['CPF'] ."</td>"; echo "</tr>"; } echo '</table>'; } ibase_free_result($result); ibase_close($db); echo ibase_errmsg(); ?> </body> </html>
-
Narlem vc usa a SQLRDD, e como citou o outro colega é vantagem mesmo vc ir eliminando índices do sistema e trabalhar com comandos SQL é mais rápido, mais versátil e menos sujeito a problemas. Hoje só uso índices simples nos campos chave. Se precisar tenho vários exemplos.
-
Não conheço, uso esse e o arquivo que ele gera tb é PDF so que com extensão p7s pode ser aberto por qualquer leitor de PDF e não se confunde com o arquivo original por causa da extensão.
-
Olá Vitor, vc diz o cupom SAT? Tenho mas faz parte de um sistema maior. O que seu cliente precisa? Só Cupom?
-
Olá, amigo! Você fez algo referente a remessa e retorno? Amigo Angelo Reis, só agora vi sua pergunta... remessa e retorno faço dentro do meu sistema por um gerador voltado para minha aplicação.
-
Use o da fazenda que é oficial, simples e gratuíto: http://www10.fazenda.sp.gov.br/CartoriosPublico/AssinadorDigital/setupAssinador.htm
-
kapiaba reacted to a post in a topic:
Adicionar o Mrboleto ao meu sistema
-
kapiaba reacted to a post in a topic:
Mrboleto com xHabour comercial
-
frkiko reacted to a post in a topic:
Mrboleto com xHabour comercial
-
Obrigado Kapiaba!!! Para quem quiser saber como usar o Mrboleto dentro do sistema: No meu caso, que utilizo o xHb comercial, tive gerar as libs Hbpdf, Hbzebra e Png, todas estão na pasta Contrib do xharbour. Depois é só compilar as tres libs, juntamente com o Mrboleto.prg com o restante do seu sistema. A maneira de passar os parametros para a classe Boleto está no Boleto.prg que faz parte do pacote MRboleto. No mais é só alegria. Se alguem precisar das classes posso enviar por email. []'s
-
Prezados, Para quem quiser saber como usar o Mrboleto dentro do sistema: No meu caso, que utilizo o xHb comercial, tive gerar as libs Hbpdf, Hbzebra e Png, todas estão na pasta Contrib do xharbour. Depois é só compilar as tres libs, juntamente com o Mrboleto.prg com o restante do seu sistema. A maneira de passar os parametros para a classe Boleto está no Boleto.prg que faz parte do pacote MRboleto. No mais é só alegria. Se alguem precisar das classes posso enviar por email. []'s
-
Estou iniciando o uso dele no xHarbour comercial. Deu um trampo pra compilar certinho. Qual xHarbour vc usa?
-
Edu, Sua dúvida é na hora de montar o XML? Se for eu faço assim: //Verifica se é desconto ou acrescimo conforme o pedido de venda Result:=nAcreTot-nDescTot if Result <> 0 *--------------------------------------------- // Grupo W19 - Desconto ou Acrescimo sobre total *--------------------------------------------- oXmlDescAcr:=TxmlNode():new(,"DescAcrEntr") oXmlTotal:AddBelow(oXmlDescAcr) if Result < 0 oXmlDescSubTot:=TxmlNode():new(HBXML_TYPE_TAG,"vDescSubtot",,Ltrim(Str(Result,15,2))) oXmlDescAcr:AddBelow(oXmlDescSubTot) endif if Result > 0 oXmlAcresSubTot:=TxmlNode():new(HBXML_TYPE_TAG,"vAcresSubtot",,Ltrim(Str(Result,15,2))) oXmlDescAcr:AddBelow(oXmlAcresSubTot) endif endif
-
Prezados, Estou precisando ajuda, pois não acho a solução em lugar algum. Alguém utiliza o MRboleto com xHarbour comercial? Estou tentando de todas as formas, consegui compilar e executar mas não sai o código de barras de jeito nenhum. Obrigado!
-
Olá Narlem. Eu uso o sr_setfilter(), meu sistema é multi empresas, o usuário seleciona a empresa e eu filtro os dados das tabelas da empresa escolhida (nGCodemp) assim: DbSelectArea('PEDIDOVENDA') SR_SetFilter( "A.CODEMP ="+Trim(Str(nGCodemp,6,0)) ) DBGoTop() DBSelectArea("Itens_PedidoVenda") SR_SetFilter( "A.CODEMP ="+Trim(Str(nGCodemp,6,0)) ) DBGoTop() DbSelectArea('NOTAFISCAL') SR_SetFilter( "A.CODEMP ="+Trim(Str(nGCodemp,6,0)) ) DBGoTop() DBSelectArea("Itens_NotaFiscal") SR_SetFilter( "A.CODEMP ="+Trim(Str(nGCodemp,6,0)) ) DBGoTop()
-
Prezados, Alguém podia me dar umas dicas para compilar o Mrboleto no xHarbour comercial???? Valeu!!!
