gunafe
Membros-
Posts
599 -
Joined
-
Last visited
-
Days Won
1
Everything posted by gunafe
-
Bom dia a Todos, Agradeço pela ajuda dos amigos( TiaoFw, Leandroptu, Sambomb ), graças a eles, pude encerrar a questão. []´s Boa tarde, Se alguem puder revisar o código abaixo, agradeço: Declaração em Delphi: function Daruma_FIMFD_GerarAtoCotepePafData(DataIni: string; DataFim: string): Integer; StdCall; External 'Daruma32.dll'; function Daruma_FIMFD_GerarAtoCotepePafCOO(COOIni: string; COOFim: string): Integer; StdCall; External 'Daruma32.dll'; Declaração em xharbour: #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" typedef int (WINAPI * _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA)( char* DataIni, char* DataFim ); typedef int (WINAPI * _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA)( char* COOIni, char* COOFim ); HB_FUNC( DARUMA_FIMFD_GERARATOCOTEPEPAFDATA ) { if (handle) { _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA pFunc; char a[ 150 ] = { 0 }; char b[ 150 ] = { 0 }; pFunc = (_DARUMA_FIMFD_GERARATOCOTEPEPAFDATA) GetProcAddress(handle, "Daruma_FIMFD_GerarAtoCotepePafData"); strcpy( a , hb_parcx( 1 )); strcpy( b , hb_parcx( 2 )); hb_retni(pFunc( a, ); } } HB_FUNC( DARUMA_FIMFD_GERARATOCOTEPEPAFCOO ) { if (handle) { _DARUMA_FIMFD_GERARATOCOTEPEPAFCOO pFunc; char a[ 150 ] = { 0 }; char b[ 150 ] = { 0 }; pFunc = (_DARUMA_FIMFD_GERARATOCOTEPEPAFCOO) GetProcAddress(handle, "Daruma_FIMFD_GerarAtoCotepePafCOO"); strcpy( a , hb_parcx( 1 )); strcpy( b , hb_parcx( 2 )); hb_retni(pFunc( a, ); } } #pragma ENDDUMP //--------------------------------- Quando executo a função, retorna uma mensagem de erro do xharbour Harbour Exception Called from DARUMA_FIMFD_GERARATOCOTEPEPAFDATA(0) O que estranho é que sempre mostra ZERO no parametro, abaixo como faço a chamada da função: iRetorno := Daruma_FIMFD_GerarAtoCotepePafData( '01102009', '31102009' ) Se algume puder ajudar, agradeço, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou" Editado por - gunafe on 25/11/2009 10:16:30
-
Bom dia a Todos, Agradeço pela ajuda dos amigos( TiaoFw, Leandroptu, Sambomb ), graças a eles, pude encerrar a questão. []´s Boa tarde, Se alguem puder revisar o código abaixo, agradeço: Declaração em Delphi: function Daruma_FIMFD_GerarAtoCotepePafData(DataIni: string; DataFim: string): Integer; StdCall; External 'Daruma32.dll'; function Daruma_FIMFD_GerarAtoCotepePafCOO(COOIni: string; COOFim: string): Integer; StdCall; External 'Daruma32.dll'; Declaração em xharbour: #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" typedef int (WINAPI * _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA)( char* DataIni, char* DataFim ); typedef int (WINAPI * _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA)( char* COOIni, char* COOFim ); HB_FUNC( DARUMA_FIMFD_GERARATOCOTEPEPAFDATA ) { if (handle) { _DARUMA_FIMFD_GERARATOCOTEPEPAFDATA pFunc; char a[ 150 ] = { 0 }; char b[ 150 ] = { 0 }; pFunc = (_DARUMA_FIMFD_GERARATOCOTEPEPAFDATA) GetProcAddress(handle, "Daruma_FIMFD_GerarAtoCotepePafData"); strcpy( a , hb_parcx( 1 )); strcpy( b , hb_parcx( 2 )); hb_retni(pFunc( a, ); } } HB_FUNC( DARUMA_FIMFD_GERARATOCOTEPEPAFCOO ) { if (handle) { _DARUMA_FIMFD_GERARATOCOTEPEPAFCOO pFunc; char a[ 150 ] = { 0 }; char b[ 150 ] = { 0 }; pFunc = (_DARUMA_FIMFD_GERARATOCOTEPEPAFCOO) GetProcAddress(handle, "Daruma_FIMFD_GerarAtoCotepePafCOO"); strcpy( a , hb_parcx( 1 )); strcpy( b , hb_parcx( 2 )); hb_retni(pFunc( a, ); } } #pragma ENDDUMP //--------------------------------- Quando executo a função, retorna uma mensagem de erro do xharbour Harbour Exception Called from DARUMA_FIMFD_GERARATOCOTEPEPAFDATA(0) O que estranho é que sempre mostra ZERO no parametro, abaixo como faço a chamada da função: iRetorno := Daruma_FIMFD_GerarAtoCotepePafData( '01102009', '31102009' ) Se algume puder ajudar, agradeço, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou" Editado por - gunafe on 25/11/2009 10:16:30
-
Existe Blinker para 32 bits?
gunafe replied to coiote's topic in FiveWin - Conversão de 16 bits para 32 bits
Bom dia Coiote, Não é o ideal mas, pra evitar erros na hora de linkar, tipo determinada funtion esta faltando, eu uso assim: Function MinhaFunc_001() Return nil id=code>id=code>Desta forma, não da erro. Seria mais ou menos o seu caso, é claro que é um gambiarra, mas se funcionar, esta valendo né? Espero que ajude, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou" -
Boa Tarde Marcelo, tudo tranquilo? Eu fiz, inclusive estou agendado pra homologar a aplicação em janeiro/2010. Pode me ligar se quiser tirar duvidas sobre o assunto( 41 33830274 ). []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia a Todos, Um colega postou "errado" um link no grupo yahoo, como achei interessante, estou postando aqui, creio que é uma leitura bem interessante. http://harbour- project.svn. sourceforge. net/viewvc/ harbour-project/ trunk/harbour/ doc/xhb-diff. txt?revision= 12787&view=markup id=code>id=code>[]´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia a Todos, Um colega postou "errado" um link no grupo yahoo, como achei interessante, estou postando aqui, creio que é uma leitura bem interessante. http://harbour- project.svn. sourceforge. net/viewvc/ harbour-project/ trunk/harbour/ doc/xhb-diff. txt?revision= 12787&view=markup id=code>id=code>[]´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa tarde Dorneles, Já aconteceu comigo. Só que agora eu não lembro mais qual foi a sugestão do suporte. O que voce deveria fazer neste caso, seria refazer a instalação, se não der certo, liga para o suporte que eles devem ter a solução. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite a todos, Acho que desta vez não será possivel minha participação, mas acredito que poderei participar em um próximo encontro, estou muito atarefado com PAF-ECF e TEF este final de ano. Muito Sucesso neste encontro, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Somente pra agradecer a atenção dispensada e dizer que o problema esta R E S O L V I D O!!! []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
206 visualizaram o problema! Apenas 4 estão com ele???? Será?? Nenhuma alma caridosa se habilita a pelo menos dar um palpite? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
up! Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Algum colega já passou por isso????? Gostaria de compartilhar a solução???? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Geovani, Pra DARUMA FS600 minha rotina FUNCIONA! O problema é com a Bematech. Esta dando uma mensagem de erro de SQL da DLL dos caras, acontece, que tenho um exemplo desta mesma rotina em delphi, que executou tranquilo. Segundo o suporte da Bematech, as dll´s BemaMFD2.dll, BemaMFD.dll, Bemafi32.dll, MSJET35.dll, DAO350.DLL, DAO2535.TLB, AX6R32.DLL e Bemafi32.ini, devem estar na pasta SYSTEM32 do windows e as dll´s MSJET35.dll e DAO350.DLL devem ser registradas, só com esta configuração é que eles garantem que a rotina funciona, só que, ainda não consegui que funcionasse. Se alguem mais puder opinar sobre o assunto, seria legal. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite Foliene, Vejo que já tem bastante tempo que voce postou esta sua duvida, será que não tem nenhum colega no forum que esteja usando este comando e que não teve o mesmo problema que voce? Pergunto isto porque estou com o mesmo problema na execução do comando e gostaria de resolver o mais rapido possivel, segue abaixo a sintaxe do comando: cRetorno := Bematech_FI_RelatorioSintegraMFD( 63, "SINTEGRA.TXT", "09", "2007", "Razão Social TESTE",; "Endereco de teste", "123", "Complemente Teste", "Bairro Teste",; "Cidade de teste", "99999-999", "99 9999-9999", "9999-9999", "Fulano de Tal" ) //SINTAXE DA CHAMADA DA DLL DLL32 Function Bematech_FI_RelatorioSintegraMFD( TipoRel AS _INT,; cArquivo AS STRING,; cMes AS STRING,; cAno AS STRING,; cRazaoSocial AS STRING,; cEndereco AS STRING,; cNumero AS STRING,; cComplemento AS STRING,; cBairro AS STRING,; cCidade AS STRING,; cCEP AS STRING,; cTelefone AS STRING,; cFax AS STRING,; cContato AS STRING ) AS LONG PASCAL; FROM "Bematech_FI_RelatorioSintegraMFD" LIB "BEMAFI32.DLL" id=code>id=code>O que eu gostaria de saber é se voce ou outro colega do forum conseguiu executar esta rotina, e caso tenha conseguido, se poderia postar a solução. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite a Todos, Ae pessoal, problema assinatura digital não é mais problema, hehe. Agradeço a todos que me responderam esta mensagem! []´s Boa Noite a todos! Por acaso alguem do forum já esta fazendo o PAF-ECF e conseguiu gerar a assinatura digital? Se sim, seria possivel disponibilizar um exemplo ou um passo a passo de como fazer? Eu consegui alguns exemplos sobre isso, mas não estou conseguindo progredir. Agradeço quem puder ajudar, []´s em todos Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou" Editado por - gunafe on 01/10/2009 02:01:59
-
Boa Noite a Todos, Ae pessoal, problema assinatura digital não é mais problema, hehe. Agradeço a todos que me responderam esta mensagem! []´s Boa Noite a todos! Por acaso alguem do forum já esta fazendo o PAF-ECF e conseguiu gerar a assinatura digital? Se sim, seria possivel disponibilizar um exemplo ou um passo a passo de como fazer? Eu consegui alguns exemplos sobre isso, mas não estou conseguindo progredir. Agradeço quem puder ajudar, []´s em todos Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou" Editado por - gunafe on 01/10/2009 02:01:59
-
Boa Noite Marsan, Quando se trata de impressora não fiscal, o melhor seria voce imprimir tudo ao término dos lançamentos, somente na impressora fiscal que há esta exigencia, de impressão conocomitante, ou seja, vendeu o item, mostra na tela e imprime. Eu montei uma rotina para impressora não fiscal que só mando a impressão ao término dos lançamentos, mas, vou mostrando na tela os itens, tendeu? Caso interesse, posso te passar a sintaxe da rotina. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia Anderson, Tenta assim: #define CRLF Chr(13) + Chr(10) #define True .t. #define False .f. //------------------------------------------------------------------------------// // Função : GNF_Manda_ATV // Autor : Luiz Augusto Martins // Objetivo : Verificar se o Gerenciador Padrão está ativo // Parâmetro: não há // Retorno : True para Gerenciador Padrão ATIVO // False para Gerenciador Padrão INATIVO //------------------------------------------------------------------------------// Function GNF_Manda_ATV() local cConteudo,; cArquivo,; iTentativas,; lResult := False Ferase( "C:\TEF_DIAL\REQ\INTPOS.STS" ) Ferase( "C:\TEF_DIAL\REQ\INTPOS.001" ) Ferase( "C:\TEF_DIAL\RESP\INTPOS.STS" ) Ferase( 'C:\TEF_DIAL\RESP\INTPOS.001' ) // Numero do TRANSAÇÃO TEF nTEF_Num := '123456' //------------------------------------------ _Mensagem( 23, ' A G U A R D E ' ) cArquivo := 'C:\TEF_DIAL\REQ\INTPOS.TMP' nHandle := FCreate( cArquivo, FC_NORMAL ) cConteudo := '000-000 = ATV' + CRLF +; '001-000 = ' + Alltrim( nTEF_Num ) + CRLF +; '999-999 = 0' Fwrite( nHandle, cConteudo ) Fclose( nhandle ) FRename( 'C:\TEF_DIAL\REQ\INTPOS.TMP', 'C:\TEF_DIAL\REQ\INTPOS.001' ) For iTentativas := 1 TO 7 IF File( 'C:\TEF_DIAL\RESP\INTPOS.STS' ) lResult := True Exit EndIF ThreadSleep( 1000 ) IF iTentativas == 7 lResult := False Exit EndIF Next IF lResult IF File( 'C:\TEF_DIAL\RESP\INTPOS.STS' ) Ferase( 'C:\TEF_DIAL\RESP\INTPOS.STS' ) EndIF EndIF _Mensagem( 23, '' ) Return lResult id=code>id=code>Obs.: É obrigatório primeiro criar o arquivo Intpos.tmp, somente após a criação Renomear para intpos.001 Espero que ajude, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia Marsan, Esqueci de dizer, no site da daruma, nos exemplos disponibilizados, tem para xharbour + fivewin que montei pra eles, e só baixar e usar, caso tenha alguma duvida, é só dar um alo, valeu? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite Marsan, Veja se ajuda desta forma: Int_Retorno := DARUMA_FI_AUMENTADESCRICAOITEM( descricao ) DARUMA_FI_VENDEITEM( codigo,; Descricao,; Aliquota,; "F",; Quantidade,; "2",; Valor,; "$",; Desconto ) id=code>id=code>No campo Descrição, já inclua o complemento que voce quer que imprima, só isso, mais nada a fazer. Espero que de certo ai, se não conseguir, da um alo no meu msn: gunafe@yahoo.com []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Luiz, Não necessáriamente voce precisa usar do jeito que montei, aquele WHILE dando impressão de movimento, pode e deve ficar logo após o dbSkip() da função chamadora, isso mostraria um movimento no titulo da dialog de espera, e, só então após a conclusão, voce fecharia a dialog de espera, use desta maneira que da certinho. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia, veja se ajuda o exemplo abaixo, veja tambem em dicas o exemplo que postei: //=>Como obter uma chave privada: //RUN ("openssl genrsa -out chave.pem 1024") //Onde: //Chave.pem = arquivo onde a chave privada será gravada. Somente executar uma vez. //=>Como obter o m¢dulo da chave privada (necess rio para montar o XML do eECFc) //Comando: openssl rsa -in chave.pem -modulus -out modulo.txt //Onde: //Chave.pem = arquivo com a chave privada gerada anteriormente. //modulo.txt = Arquivo onde ser gravado o m¢dulo. No arquivo conter o m¢dulo e a; //chave privada. Vocˆ pega o m¢dulo e cola dentro do arquivo XML no campo espec¡fico. //O expoente eu nÆo precisei alterar. FUNCTION GERA_EAD( cFile ) ************ ********* ********* ********* ** * Assina Digitalmente um Arquivo Texto * * Rotina usada para Assinar o PAF-ECF * * CA-Clipper 5.2 / Xharbour + GTWVW * * Programadores: Waderley Monteiro * * Jair Barreto * * Data 29/05/2009 * ************ ********* ********* ********* ** LOCAL cScreen LOCAL cFileTemp1:= "ARQ1.TMP" LOCAL cFileTemp2:= "ARQ2.TMP" LOCAL nHandle LOCAL aBuffer := {} LOCAL cReply := "" LOCAL cSignature := "" nHandle := FCREATE(cFileTemp1, 1) FWRITE( nHandle,; '-----BEGIN RSA PRIVATE KEY-----' + CHR(10) +; 'MIICXQIBAAKBgQDlCS 6WZHK7I80k7X1hdK 9YVRzX+EAVTUKpgY pM/QHEoqrcITNd' + CHR(10) +; 'iu6ao1LaaaJHx1mLit BIiSQQOEVwZXm+ 7eDB8Q5KOxr0AfUk cS0AKrHZ3MyjVZbe ' + CHR(10) +; 'T3YA5+DPBu6GDzOr4W USNi6TuG9Y98yB3d TUcUolG06+ SIqoBXYjXGOTSQID AQAB' + CHR(10) +; 'AoGBANxZEBwaeZL3p6 buYSEAjK2z/ PL+4FBeK1M+ 0JqvEyNlyHHN80f8 oP/fP5fn' + CHR(10) +; '5vudm9W3cBlI74w3Rv 8ScaWx3/eEa8PUab Qn+CfuQznvG6sZkq kmu7Fatu6c9PL8' + CHR(10) +; 'TqUGVFcVCSULwbAtA4 dDG8mfeY6muEacYq wH0pfH3srqVQvxAk EA+FLI2b/ kbUXX' + CHR(10) +; 's0PRypavH9fMPF6LN6 nRbNPS7bDH3FIBMq qaPUMe1yyn+ ILjx998jdLhy7Wch yJ+' + CHR(10) +; '1Nym98v6hQJBAOwdwd 0e6zX3j0VKJnXxin bvYWAVWoqyOSLjos f6SQ3HIruwCaL8' + CHR(10) +; 'kQjbWZUc7Y0RXL5Qts jXxmtOxR23nyK3Kv UCQCu8sQGhScNxVL +PR2kuRyQNpzxO' + CHR(10) +; 'zqh8MZXAbVtOErWcf/ eDku0NYGY3yFH+ A86Vb2Ova/ OsRiiLC9nED2h/ td0CQQCx' + CHR(10) +; 'Ts9L+3Hp/tNp1vr2ys GN+skG3EI3sQpS9t pAjeTaIdYlV1aFPG C1Y/LrlOOWcZlR' + CHR(10) +; 'mU8Jl297GZXQcRlhem cZAkBVo1BEpmwwb+ 5mlQiwejDL/ h60A51Z9ExQEjYR4 qUP' + CHR(10) +; 'iFTY4A9iuVpyD/ zIaZAinPSXmelrxL e4MKaVBTLAWp+ +' + CHR(10) +; '-----END RSA PRIVATE KEY-----' ) FCLOSE( nHandle ) // Gera assinatura rash 256 bytes RUN ("OPENSSL.EXE dgst -md5 -sign " + cFileTemp1 + " -out " + cFileTemp2 + " -hex " + cFile ) cReply := MEMOREAD( cFileTemp2 ) cSignature := "EAD" + ( SUBSTR( cReply,AT( "=",cReply ) + 2 )) + chr(10) nHandle := FOPEN( cFile, 2 ) // Abrir arquivo pra leitura e gravacao FSEEK (nHandle, 0, 2) // Final do arquivo FWRITE(nHandle, + cSignature ) // Gravar no final do arquivo FCLOSE(nHandle) // Fechar arquivo RETURN( .T. ) // End of GERA_EAD() id=code>id=code>Espero que ajude, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite Luiz, Eu uso da seguinte forma: Faça a seguinte chamada: EsperaMsg( cTexto, cTitulo, nTempo, cImagem ) //-------------------------------------------------------------------- Function EsperaMsg( cTexto, cTitulo, nTempo, cImagem ) /* Obs: cTitulo = Titulo da Mensagem cTexto = Texto da mensagem cImagem = Imagem que será retirada de uma DLL para estampar na DIALOG nTempo = Tempo que a DIALOG permanece na tela by lAugusto(gunafe) */ LOCAL oSDlg, oStopFont, lAcao := .t., secs := "|" LOCAL oText,oOk, oLogo // Parametros Usados na DIALOG IF cTitulo = nil; cTitulo := "Problemas !!!!"; Endif IF ctexto = nil; cTexto := "Verifique !!!!"; Endif IF cImagem = nil; cImagem := "GUNAFE"; Endif IF nTempo = nil; nTempo := 120; Endif DEFINE FONT oStopFont NAME 'Courier News' SIZE 0, -20 BOLD DEFINE DIALOG oSDlg RESOURCE "MSGWAIT" OSDlg:cCaption := cTitulo //REDEFINE BITMAP oLogo ID 101 OF oSDlg RESOURCE cImagem ADJUST REDEFINE SAY oText PROMPT cTexto ID 60 OF oSDlg FONT oStopFont COLOR nRGB( 255, 21, 21) // Eventos do teclado OSDlg:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( lAcao := .t., oSDlg:End() ), nil ) } ACTIVATE DIALOG oSDlg CENTER NOWAIT; ON INIT( oSDlg:lHelpIcon := .f. ); VALID( lAcao ) While nTempo > 0 SysRefresh() WaitSeconds( .1 ) nTempo -= 5 OSDlg:SetText( cTitulo + Space( 03 ) + secs ) // Mudei para aparecer no titulo da DIALOG Secs := IF( secs = "|", "-",; IF( secs = "-", "/",; IF( secs = "/", "\", "|" ))) Enddo // Fecha a janela de Mensagem lAcao := .t. OSDlg:End() // eliminacao de fontes usadas oStopFont:END() Return Nil //--------------- //------ tela montada no workshop MSGWAIT DIALOG 72, 43, 242, 78 STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION CAPTION "Scv - Sistema Controle de Vendas" FONT 9, "ARIAL" { CTEXT "Message Info. . .", 60, 14, 26, 219, 26, SS_CENTER | WS_GROUP | WS_TABSTOP } id=code>id=code>Espero que ajude, fique a vontade para modificar e usar do jeito que melhor lhe convier, espero ter ajudado. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Boa Noite, Leonardo, veja se ajuda a resolver o seu problema ai: cRetorno := Sweda_AbreComprovanteNaoFiscalVinculado( Forma, total, NumCupom ) cRetorno := Sweda_UsaComprovanteNaoFiscalVinculado( texto a imprimir ) cRetorno := Sweda_FechaComprovanteNaoFiscalVinculado() id=code>id=code>Espero que ajude, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"
-
Bom dia, Procure em dicas, existe um exemplo completo para emissão de boleto para a caixa. Se não achar, avise qu mando pra voce. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"