Prepare-se para o movimento das Empresas Digitais...
Vem aí a Edição 2018 do Innovation Forum , um dos maiores eventos Network1 e que este ano traz também as Soluções de Automação (POS and Barcode) para discutir o Movimento das Empresas Digitais.
Uma oportunidade de conhecer as soluções mais inovadoras para tornar-se um provedor completo de soluções para a empresa digital. Participe e confira um rico painel de conteúdo conduzido pelos mais importantes executivos do mercado de tecnologia do país.
Confira a agenda do Innovation Forum 2018
08h30
Credenciamento e Welcome Coffee
09h00
Perspectivas da Empresa Digital
Rafael Paloni - Presidente Network1 e Alexandre Conde -
Presidente ScanSource POS and Barcode
10h45
Painel com Presidentes
13h00
Almoço e Expo
14h00
Sorteio de Prêmios
14h15
Palestras dos Fabricantes
Soluções para Empresa Digital
- SOLUÇÕES PARA FORÇA DE TRABALHO DIGITAL - SOLUÇÕES PARA CLOUD COMPUTING & MULTI-CLOUD - SOLUÇÕES PARA CYBER-SECURITY - SOLUÇÕES PARA AUTOMAÇÃO & PRODUTIVIDADE DE NEGÓCIOS - SOLUÇÕES PARA INFRAESTRUTURA INTELIGENTE & IOT
16h30
Expo
18h00
Sorteio de Prêmios e Encerramento
Evento Grauito. Vagas Limitadas.
Acesse o link e inscreva-se
Exato, chamar essa rotina ao encerrar a rotina, mas pelo q vi vc fez isso e não deu certo, então não saberia informar o q poderia ajudar, talvez algum colega saiba.
Bom dia Amigos,
Antonio Linares abriu um tópico http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34307 pedindo sugestões de lugares para a realização da próxima conferência internacional. Acho que seria legal uma boa oportunidade para retomamos os encontros nacionais. Vamos passar por lá e sugerir o Brasil !!
Alguem conseguiu utilizar esses SAT USANDO A DLL GERSAT.DLL ????
esta travando no ConsultaStatusOperacional.
*******************************************************************************
function Ativa_DllSat()
*******************************************************************************
if hb_isnil(oLib)
oLib := LoadLib32( "GERSAT.DLL" )
endif
return (oLib > 0)
DLL32 FUNCTION GER_ConsultarStatusOperacional(numeroSessao AS _INT,codigoDeAtivacao AS STRING) ;
AS _INT PASCAL FROM "ConsultarStatusOperacional" LIB oLib
Ola, boa tarde
Alessandro meu amigo, estou utilizando os 2 Lazarus para o PDV e DELPHI para o retaguarda e MOBILE e os projetos estão 100%.
Como falei a vantagem do Lazarus e Delphi é o projeto ACBR que para automação comercial esta bem maduro, e o suporte e apoio do pessoal é 1000% também.
Alguém saberia me informar alguma DLL que gera o SPED.
Obrigado
redefine get oGt[6] var cGt[6] pict"999" id 106 of oCartao update ;
valid fpesquisa_cartao(@cGt[6],@cGt[7],oCartao,.F.,.f.) .and. (oGt[10]:aEvalWhen(),oGt[10]:refresh(),.t.) ;
action fpesquisa_cartao(@cGt[6],@cGt[7],oCartao,.F.,.F.) BITMAP"FIND1" ;
color COR_GET1
redefine get oGt[10] var cGt[10] pict"@!" id 110 of oCartao update ;
when !empty(cGt[6]) ;
color COR_GET1
Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado.
========================================================================================================================
*------------------------ETIQUETA DE PRODUTOS PEQUENAS--------------------
@ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû"
@ 06,15 SAY "º Etiqueta pequena de produtos º"
@ 07,15 SAY "º----------------------------------------------------º"
@ 08,15 SAY "º Codigo.....: º"
@ 09,15 SAY "º Produto....: º"
@ 10,15 SAY "º----------------------------------------------------º"
@ 11,15 SAY "º Quantidade.: COLUNAS.: º"
@ 12,15 SAY "º Cod.Barra..: º"
@ 13,15 SAY "º Impressora.: H-HP E-EPSON º"
@ 14,15 SAY "º º"
@ 15,15 SAY "º º"
@ 16,15 SAY "º º"
@ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü"
*SAVE SCREEN TO TELA4
*** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque
CODIGO=SPACE(15)
DESCRICAO=SPACE(30)
CDBARRA="S"
IMPRE=SPACE(1)
DO WHILE .T.
*--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE----------
* RESTORE SCREEN FROM TELA4
* SET COLOR TO &COR_ALERTA
* @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. '
* SET COLOR TO &COR_NORMAL
* IF .NOT. PEGA_PRO1(08,30,09,30)
* EXIT
* ENDIF
*-----------------------------------------------------------------------
OK =0
X =0
CLN =0
@ 08,30 GET CODIGO PICTURE "@!"
@ 09,30 GET DESCRICAO PICTURE "@!"
@ 11,30 GET OK PICTURE "###"
@ 11,45 GET CLN PICTURE "###"
@ 12,30 GET CDBARRA PICTURE "@!"
@ 13,30 GET IMPRE PICTURE "@!"
READ
****************** SEGUE AS VARIAVEIS DO PROGRAMA **********************
IF OK = 0
CLN= 0
RETURN
ENDIF
DO WHILE X < OK
IF CDBARRA="S"
PUBLIC ESC,NULL,PRINTER,HEIGHT
ESC = CHR(27)
NULL = ""
* DEFAULT TO TWO LINE LASERjET BARCODE
PRINTER = IMPRE
******** DEZENHO DA IMPRESAO ******
HEIGHT = 2
IF PRINTER = "H"
DO SETUP_HP
ELSEIF PRINTER = "E"
DO SETUP_EPSON
ENDIF
**************** FIN VARIAVEL *************
***** Define CODE 3of9 Characer Set *****
DO DEF_CODE39
***** Get text to print and print barcode *****
STAY = .T.
* DO WHILE STAY
***** Create empty variable. The length is arbitrary as there is
*****
***** no defined maximum length of a 3o9 barcode. *****
MESSAGE = SPACE(25)
MESSAGE = CODIGO
BARCODE = SPACE(25)
BARCODE = CODIGO
***MUDOU 01/06/06
MESSAGE1= LEFT (DESCRICAO,20)
IF EMPTY(M->MESSAGE)
***** exit on no message text
STAY = .F.
LOOP
ENDIF
***** Prepend and append required asterik's to trimmed message *****
M->MESSAGE = TRIM (M->MESSAGE)
M->MESSAGE1 = TRIM (M->MESSAGE1)
M->BARCODE = TRIM (M->BARCODE)
SET DEVICE TO PRINT
@ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE)
@ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE)
@ 1,30 SAY + M->MESSAGE
@ 1,45 SAY + M->MESSAGE
@ 1,60 SAY + M->MESSAGE
@ PROW()+1,00 SAY +M->MESSAGE1
@ PROW()+2,00 say" "
SET DEVICE TO SCREEN
***** Check for page eject *****
***** (necessary to see what you've done on a laserjet) *****
EJECT = .F.
* ENDDO
* RETURN
X=X+1
LOOP
ENDIF
IF CDBARRA="N"
SET DEVICE TO PRINT
@ PROW()+1,00 SAY " "
@ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO)
@ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO)
@ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO)
@ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO)
*@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO)
@ PROW()+1,00 SAY LEFT(DESCRICAO,15)
@ PROW() ,20 SAY LEFT(DESCRICAO,15)
@ PROW() ,41 SAY LEFT(DESCRICAO,15)
@ PROW() ,62 SAY LEFT(DESCRICAO,15)
*@ PROW() ,83 SAY LEFT(DESCRICAO,15)
@ PROW()+1,00 SAY ' '
X=X+1
ENDIF
ENDDO
SET DEVICE TO SCREEN
ENDDO
RETURN
*****************
FUNCTION BARCODE
PARAMETERS MESSAGE
CODE = ""
DO CASE
CASE PRINTER = "H"
* read message character at a time and build barcode
FOR L = 1 TO LEN(M->MESSAGE)
LETTER = SUBSTR(M->MESSAGE,I,1)
CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS
NEXT
*********************** tenho que muda aqui *******************
* CODE = START + CODE + END
CASE PRINTER = "E"
******** CONTROLA LARGURA E ALTURA ******
FOR H = 1 TO HEIGHT
FOR I = 1 TO LEN(M->MESSAGE)
LETTER = SUBSTR(M->MESSAGE,I)
* build barcoded string
CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS
* print barcode character at a time on Epson
PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE)
NEXT
* perform 23/216 line feed
PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13))
NEXT
* perform 5/216 line feed
PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13))
* reset printer to turn off graphics and reset to 10cpi
PRINTCODE(ESC+"@")
ENDCASE
RETURN CODE
***** End of Function(BARCODE) *****
PROCEDURE SETUP_HP
PUBLIC NB,WB,NS,WS,START,END
*** define bars and spaces for HP LaserJet II
SMALL_BAR = 3 && NUMBER OF POINTS PER BAR
WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR
DPL = 50
&& DOTS PER LINE 300DPI/6LPI =
ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X"
ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X"
NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x"
WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x"
*** adjust cusor position to start at top of line and return to bottom of line
START = ESC+"*P-50Y"
END = ESC+"*P+50Y"
RETURN
***** End of Procedure(SETUP_HP) *****
PROCEDURE SETUP_EPSON
PUBLIC NB,WB,NS,WS,N1,N2
***** DEFINE EPSON BARS AND SPACES
NS = CHR(0) + CHR(0)
WS = CHR(0) + CHR(0) + CHR(0) + CHR(0)
NB = CHR(255)
WB = CHR(255) + CHR(255) + CHR(255)
***** set printer to 2/216 lines per inch
PRINTCODE(ESC+CHR(51)+CHR(2))
***** calculate N1 and N2 values for dot graphics command
COLS = 21
N1 = COLS % 256 && MODULUS
N2 = INT(COLS/256)
RETURN
***** End of Procedure(SETUP_EPSON) *****
PROCEDURE DEF_CODE39
PUBLIC CHAR[44], CHARS
CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%"
CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1"
CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2"
CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3"
CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4"
CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5"
CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6"
CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7"
CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8"
CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9"
CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0"
CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A"
CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B"
CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C"
CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D"
CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E"
CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F"
CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G"
CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H"
CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I"
CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J"
CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K"
CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L"
CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M"
CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N"
CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O"
CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P"
CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q"
CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R"
CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S"
CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T"
CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U"
CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V"
CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W"
CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X"
CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y"
CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z"
CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-"
CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "."
CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " "
CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*"
CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$"
CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/"
CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+"
CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%"
RETURN
*****************
FUNCTION PRINTCODE
PARAMETERS CODE
SET CONSOLE OFF
SET PRINT ON
?? CODE
SET PRINT OFF
SET CONSOLE ON
***RETURN NULL
***** End of Function(PRINTCODE) *****
Editado por - morpheus on 22/07/2006 21:30:26
Ontem a noite estive pesquisando sobre fivewin inclusive aqui no fórum, e vi que tem membros muito prestativos e que gostam de ajudar, posso citar o kapiaba que me ajudou muito hoje pela manhã a configurar o ambiente para programação em modo avaliação, justamente com a versão DEMO, mas não consegui êxito, o erro anexo aparece mesmo após configurar todos os caminhos dentro do arquivo Buildx.bat: set hdir=c:\XHB0612, set bcdir=c:\BCC0612. A versão do xharbour é esta: xHarbour Compiler build 0.99.71 (SimpLex) Copyright 1999-2006, http://www.xharbour.orghttp://www.harbour-project.org/. A versão da fivewin é a que foi baixada no site que tem como referencia DEMO.
Já baixei 3 vezes o xharbour mas o mesmo erro acontece, se alguém puder me ajudar neste inicio agradeço muito.
Atenciosamente,
Marcos.
Pessoal
Boa noite
Mais uma vez, peço a autorização e a atenção da galera para o evento acima, quem tiver interessado, inscreva-se.
Link: http://joseelielson.wix.com/eventowindevrecife
[]s,