ZECA

Alternativa simples e rápida com ou sem integração GUI: download aqui

Caso queira que eu faça: efetue contato aqui

Caso queira aprender: Treinamento Hwgui, Fivewin, Minigui ou VxH (requer cadastro no fórum)

Para quem deseja algo a mais, saindo dos limites: Treinamento RAD+IDE+SQL+Linguagem+Report (ferramenta profissional completa, OpenSource, Multiplataforma)

Caramba Eric!!

Mais claro que isto é impossivel. Só uma pergunta: Eles servem cafézinho? (brincadeirinha).

Gostei de sua objetividade, sem rodeios.

Tudo de bom

Boa Noite!!!

Este erro tem a ver com a versao do xharbour que voce provavelmente mudou ou deixou de mudar.

Compile com a versão do xharbour que voce usa atualmente

Dica, se você instalar uma versão em inglês e quiser passar a português, localize na net na página do irfanview de preferência, a DLL:

Portugues-Brasil.dll

Coloque-a na pasta:

Pasta de c:\IrfanView\Languages

http://www.irfanview.com/languages.htm

Y listo.

abs,

Boa Tarde KAPIABA!!!

Faltou voce dizer que ele serve para digitalizar imagens. Inclusive eu uso no lugar do programa que vem com a xeróx

e nunca tive problemas.

Boa trde GILMER

Aproveitando a sua aparição., gostaria de saber se voce tem algo para emissao de conhecimento eletronico. ou poderia

indicar alguém

Grato

Boa Tarde @Le!!!

Bingo

Era isto mesmo que eu estava precisando.

Gato

Ola Zeca,

Veja se Isso Ajuda.....Esta Funçao vai fazer a conversão Automática.....

....a Funçao eh simples, se quiser melhorar fique a vontade:

 
local cData := Space(10)
.
.
     REDEFINE GET oGet[02] VAR cData ID 22 OF oDlg PICTURE "9999999999"
                  oGet[02]:bValid := {|lRet| lRet := Data_Auto(@cData), ;
                                                 if( lRet, nil, ;
                                                              (cData := Space(10)) ), oGet[02]:Refresh(),  ;
                                                          lRet }
.
.
.
Return
 

function Data_Auto(_cData)
  
  local cDia_Mes, cAno
  
  if Len(AllTrim(_cData)) == 1 .or. Len(AllTrim(_cData)) == 2
     _cData := StrZero(Val(_cData),2) + "/" + StrZero(Month(Date()),2) + "/" + StrZero(Year(Date()),4)
  elseif Len(AllTrim(_cData)) == 4    
      _cData := Stuff(AllTrim(_cData),3,2,"") + "/" + Stuff(Alltrim(_cData), 1, 2, "" ) + "/" + StrZero(Year(Date()),4)
  elseif Len(AllTrim(_cData)) == 6
        cDia_Mes := Stuff(AllTrim(_cData),5,2,"")
        cDia_Mes := stuff(cDia_Mes,3,0,"/")
      _cData := DtoC(ctod(cDia_Mes + "/" + Str(Val(Stuff(Alltrim(_cData), 1, 4, "" )),4)))
  elseif Len(AllTrim(_cData)) == 8
      cDia_Mes := Stuff(AllTrim(_cData),5,4,"")
        cDia_Mes := Stuff(cDia_Mes,3,0,"/")
        cAno := Stuff(AllTrim(_cData),1,4,"/")
      _cData := cDia_Mes + cAno
  else
     MsgInfo("Erro no Campo Data, Verifique a Data Digitada!","...Atenção..")
     return .f.
  endif
  
return .t.

@braços Ale

Um colega meu tem um sistema adquirido de terceiro que tem uma particularidade muito interessante

quanto a manipulação de DATAS. No campo data, voce pode digitar 101112 e ele retorna

10/11/2012; digitando 10/11 ele retorna 10/11/2012; digitando somente 10 ele retorna 10/11/2012.

Como é possivel fazer isto? É uma função criada pelo desenvolvedor? ou alguns sistemas pelas proprias LIBs retorna a data conforme solicitado?. É possivel fazer isto em CLIPPER ou FIVEWIN?

Grato

Já,

Inclusive colocamos no projeto HBNFE:

https://code.google.com/p/hbnfe/

Boa tarde sygecom!!!

Te enviei um email pedindo informações sobre cte e até o presente momento voce nao retornou.

Veja se recebeu no seu e-mail

grato

Pessoal, me desculpem , mas os tópicos repetidos, são decorrentes de erros no envio, fazendo com que eu repetisse o processo sem me informar que esta já estava gravado.

Sr. moderadores, favor excluir os repetidos.

[]s,

Ainda Bem. Pensei que voce estava com soluços kkkkkkkkkkkkkkkkkkk

Zeca, não sei se vai te ajudar, mas não é o certificado que determina o ambiente, na verdade é de responsabilidade de quem envia, então vc decide se em homologação ou produção.

Além do produto citado pelo marcioe, existe o ACBRNFEMONITOR, informe-se sobre ele.

[]s,

Bom Dia!!!

Vou esclarecer de uma forma mais clara. Eu sou funcionario desta empresa que comprou emergencialmente um programa de terceiro para emissão do conhecimento. Agora o certificado está "preso" ao programa comprado e já está em produção. Como posso testar programas de outros se meu certificado já está em "produção" em outro programa?. Tem como fazer todos os procedimentos de teste com este mesmo certificado só que em fase de "homologação" em outro programa?. Se eu retirar o certificado, fico sem emissão do conhecimento, mesmo meia boca e não posso fazer isso . Alguém já passou por esta situação?

Quero agradecer antecipamente as respostas que estão sendo muito uteis e saber quais os bancos de dados usados(FIREBIRD,DBF,MYSQL ou outro), dlls ou programas para emissão de CTe. Toda informação será benvinda e volto agradecer.

Sem certificado digital nao sei se dá certo.

Mas voce pode pegar o certificado do seu proprio cliente e fazer em ambiente de homologação.

Bom dia Marcio!!!

A pergunta que faço é a seguinte: como usar o certificado do cliente em ambiente de homogalação e já está em ambiente de PRODUÇÃO? Tem algum problema?

Grato

Boa Noite Marcio!!

Voce já começou a me orientar na emissão do cte através do CLIPPER. Muito bom. Gostaria de saber pormenor sobre esta integração e mais como posso testar a emissão sem ter o certificado digital. Corro contra o tempo

grato

josé carlos

citação:

Foi pra conta, veja seu email...

abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 23/11/2012 16:10:52

---

Boa Noite Kapiaba!!!

duas perguntas

A primeira: Voce estava com soluço quando postou em dicas? Porque saiu duas vezes(brincadeirinha)

A segunda: Quais versões voce usou do xharbour e do BCC para compilar o exemplo?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Pessoal gostaria de alterar alguns fontes para compilar condicionalmente dependendo da rdd usando um .ch, mas não deu certo.

Criei um config.ch e usando #define para a constante da rdd, mas no prg não reconhece.

Veja abaixo defini como rdd_sqllib, mas ao tentar o #ifdef ele não acha e compila após o #else.

Aonde estou errando?

Grato,

No prg esta assim:

#include "config.ch"

#ifdef rdd_sqllib

#Include "sqllib.Ch"

#Include "sqlerror.ch"

#Include "sqlevents.ch"

#else

#include "tdolphin.ch"

#endif

Function Main()

... comandos

... comandos

return

Grato,

Conteúdo do config.ch

//-> Usando TDolphin

//#define rdd_TDolphin

//-> Usando Sqllib

#define rdd_Sqllib

Geraldo B. Silva

Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql.

lucgera@terra.com.br

São Paulo - SP

---

Boa tarde!!

Voce tem que dizer o que quer no momento em vai compilar o programa. Por exemplo, eu tenho um programa em clipper que cria o Programa de transporte e o programa de minutas usando os mesmos PRGs. Como faço:

Tenho o makemenu.bat e makeminu.bat

Tenho o Menu.rmk que é comum a ambos

Tenho o normenu.lnk e norminu.lnk

O makemenu é feito da seguinte forma

@Echo off

h:\clipp52e\bin\RMAKE MENU.RMK /dTRC >> make.txt

@Echo off

Note que uso a clausula /dTRC, isto é ;introduzo a variavel TRC que mais tarde será lido pelo sistema.

O makeminu é feito da seguinte forma

@Echo Off

h:\clipp52e\bin\RMAKE MENU.RMK >> make.txt

@Echo off

No makeminu não uso a clausula d/TRC

A linkedição é feita normalmente inclusive voce pode escolhe o arquivo lnk que quiser

Dentro do programa, no inicio é feito a leitura da variavel TRC

#IFDEF TRC

programa:="TRANSPORTES"

autonumerador:=.T.

CorTrc:="GR+/RB"

CorTrc1:="GB+/RB"

#ELSE

programa:="MINUTA"

autonumerador:=.T.

corTrc:="B/GB*"

corTrc1:="R/GB*"

#ENDIF

Espero ter sido tem bem didatico.

Caso voce use outro compilador, basta procurar a clausula que corresponde ao /d do clipper

Boa sorte

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Galera ajuda ahi,

Como eu faço para checar se um email tem o @ nele?

Preciso barrar se o uçuário digitou o email errado.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

---

Perdão KAPIABA!!!!

Não seria URSOario???

{]s

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Colegas já venho algum tempo pesquisando como usar os comandos abaixo com array

oFrPrn:SetMasterDetail("relven5a", "relven5c", {||relven5a->pedido})

oFrPrn:SetResyncPair( "relven5a", "relven5c" )

alguém conseguiu usar dados de detalhe ou alguma solução alternativa com array...

neste tópico parece que tem alguma coisa neste sentido, mais não consegui colocar em pratica...

http://wap.clipper.borda.ru/?1-4-0-00000525-000-0-0

Obrigado

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 9.12,XHARBOUR 1.2,ADS 9.0

FWH1104,XHARBOUR 1.2 Rev.6406, MYSQL c\ SQLLIB FREE

---

Bom dia LUIZ!!!

Poderia te ajudar porém a minha tecla SAP está com defeito.

Fala sério. O negócio está escrito em RUSSO.

kkkkkkkkkkkkk

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Veja esse aqui também.

http://www.xharbour.com/xhc/index.asp?page=xhc_download_detail.asp&type=dl&id=88&show_i=7&show_sub=1

Leonardo Machado

Alvorada-RS

Hwgui + x[H]arbour

leonardodemachado@hotmail.com

---

Bom dia Leonardo!!

Antes de mais nada vou me sintonizar neste contexto: Uso o PAGESCRIPT a bastante tempo, juntamente com o CLIPPER 5.2. Estou pensando seriamente em compilar meus programas em HARBOUR. Para isto preciso que as LIBs sejam em 32 bits. No CLIPPER uso RDD NSX, VISUAL LIB E PAGESCRIPT. De todas estas libs falta somente o PAGESCRIPT em 32 bits. Tentei comprar diretamente no site do ABEE, sem sucesso. Será que tem algum representante no BRASIL ou alguém que possa me ceder a tal lib em 32 bits? Vi o link(que por sinal é muito antigo) que voce postou. Ele na realidade fala sobre o mesma PAGESCRIPT inclusive cita o fornecedor (ABEE LABS). A pergunta que fica; será que consigo achar uma outra lib com as mesmas funções do pscript que seja 32 bits?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Vc poderia citar algumas referencias, estas outras lib's quais seriam... vlw! Obgdo!

citação:

citação:

Olá, esta lib permite vários recursos de impressão, alguns exemplos:

- Impressão de Codigo de Barras 3of9 e 128

- Impressão de Gráfico

- Impressão em Negrito Italico tamanhos de fontes

- Impressão de textos em angulos.

e muitos outros que facilitam pra caramba as rotinas...

uma coisa por exemplo é que um colega ai nosso do forum esta com problema para imprimir num impressora zebra tlp 2844 em clipper eu imprimo nesta impressora utilizando esta lib sem problema nenhum, só configura o tamanho da etiqueta como tamanho de página e mando a impressão como se fosse o relatório.... assim:

aPrinter := SelectPrinter()

*

PSWaterMark({|| .T. }, .f.)

PsSetPageSize( 250 ,500)

*

PsBeginDoc(aPrinter[1],"Imprimindo Etiqueta",0,aPrinter[2])

PsSetUnit(APS_TEXT)

PSSetFont(APS_COURIER, APS_PLAIN, 8, APS_BLACK )

*

For n1 := 1 To Len(aEtiqueta)

@ 01, 01 TEXTOUT "Nº " + StrZero(nProtocolo,10) + "Idade " + Str(nIdade,3)

@ 02, 01 TEXTOUT cPaciente

@ 03, 01 TO 04, 18 TEXTBOX aEtiqueta[n1,2] THICKNESS 0.5

*

PsBarCode( 05, 01, StrZero(nPedido,10), 17, .9, .F., APS_BC39)

Next n1

PsEndDoc()

id=code>id=code>

citação:

citação:

o xharbour comercial tem esse produto nas lib's deles

xharbour 1.1.0 + gtwvw + fw 8.04+vsx e começando + xbrowse

migrando p/ o 10.2 e nfe (classe do gilmer) e futuramente paf-ecf

msn..: zazibr@hotmail.com

skype: zazibr

Daniel lopes Filho

Campo Grande/MS

---

id=quote>id=quote>

Olá Nobre colega!!!

Quais são os recursos que esta lib oferece???

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

---

id=quote>id=quote>

---

id=quote>id=quote>

Olá Rone!!!

Eu ainda uso o PSCRIPT. Realmente é fantastico; porém está perdendo espaço para outras libs que trata por exemplo do famigerado arquivo XML , de PDF.

grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

---

id=quote>id=quote>

---

Boa Noite!!!

Uma das libs que está em evidencia atualmente é o FASTREPORT que lê/cria inclusive arquivo XML. Não sei como funciona porque ainda não testei o demo desta lib. O que está me deixando curioso é a lib citada pelo companheiro que está inclusa no XHB COMERCIAL, inclusive com o mesmo nome do PAGESCRIPT. Onde posso achar um demo destaa lib? Como usar?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Olá, esta lib permite vários recursos de impressão, alguns exemplos:

- Impressão de Codigo de Barras 3of9 e 128

- Impressão de Gráfico

- Impressão em Negrito Italico tamanhos de fontes

- Impressão de textos em angulos.

e muitos outros que facilitam pra caramba as rotinas...

uma coisa por exemplo é que um colega ai nosso do forum esta com problema para imprimir num impressora zebra tlp 2844 em clipper eu imprimo nesta impressora utilizando esta lib sem problema nenhum, só configura o tamanho da etiqueta como tamanho de página e mando a impressão como se fosse o relatório.... assim:

aPrinter := SelectPrinter()

*

PSWaterMark({|| .T. }, .f.)

PsSetPageSize( 250 ,500)

*

PsBeginDoc(aPrinter[1],"Imprimindo Etiqueta",0,aPrinter[2])

PsSetUnit(APS_TEXT)

PSSetFont(APS_COURIER, APS_PLAIN, 8, APS_BLACK )

*

For n1 := 1 To Len(aEtiqueta)

@ 01, 01 TEXTOUT "Nº " + StrZero(nProtocolo,10) + "Idade " + Str(nIdade,3)

@ 02, 01 TEXTOUT cPaciente

@ 03, 01 TO 04, 18 TEXTBOX aEtiqueta[n1,2] THICKNESS 0.5

*

PsBarCode( 05, 01, StrZero(nPedido,10), 17, .9, .F., APS_BC39)

Next n1

PsEndDoc()

id=code>id=code>

citação:

citação:

o xharbour comercial tem esse produto nas lib's deles

xharbour 1.1.0 + gtwvw + fw 8.04+vsx e começando + xbrowse

migrando p/ o 10.2 e nfe (classe do gilmer) e futuramente paf-ecf

msn..: zazibr@hotmail.com

skype: zazibr

Daniel lopes Filho

Campo Grande/MS

---

id=quote>id=quote>

Olá Nobre colega!!!

Quais são os recursos que esta lib oferece???

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

---

id=quote>id=quote>

---

Olá Rone!!!

Eu ainda uso o PSCRIPT. Realmente é fantastico; porém está perdendo espaço para outras libs que trata por exemplo do famigerado arquivo XML , de PDF.

grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

o xharbour comercial tem esse produto nas lib's deles

xharbour 1.1.0 + gtwvw + fw 8.04+vsx e começando + xbrowse

migrando p/ o 10.2 e nfe (classe do gilmer) e futuramente paf-ecf

msn..: zazibr@hotmail.com

skype: zazibr

Daniel lopes Filho

Campo Grande/MS

---

Olá Nobre colega!!!

Quais são os recursos que esta lib oferece???

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Vlw!!!

---

Olá!!!

O PAGESCRIPT que conheço roda no clipper em 16 bits. O PAGESCRIPT para 32 bits chama-se PS32 e é vendido pela ABEE. Não tive acesso ainda a esta lib em 32 bits. A lib 16 bits uso durante anos e é muito bom, mas está defasado com referencia a libs semelhantes. Quanto a informação do nobre colega(gostou do nobre colega??) desconheço, mas vou verificar porque4 achei interessante.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Colegas ja aconteceu mais de uma vez de dar pau do meu arquivo RES, e eu sem backup atualizado, usava o pelles para abrir o EXE do sistema e depois mandar salvar em RES sempre deu certo, mais desta vez da a seguinte mensagem:

Error reading from file 'EMPRE-GESTOR.EXE'

Não foi possivel encontrar o nome do recurso especificado no arquivo de imagem.

id=code>id=code>

este erro da logo qdo mando abrir o EXE no Pelles, tentei com EXE de outras datas e da o mesmo erro, alguém teria alguma solução...

Obrigado

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

Editado por - empresoft on 09/04/2012 19:35:10

---

Boa Noite!!!

Tente restaurar pelo RESOURCE HACKER

http://busca.superdownloads.com.br/busca.cfm?q=reshacker&a=Softwares&s=Windows

Retorne se deu certo.

Boa Sorte

PS procure também neste site PORTABLE RESTORATOR que é muito bom.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Editado por - zeca on 09/04/2012 20:33:33

Bom dia!!!

Gostaria também de dar uma espiadela nessa telas.

zeca_roque@hotmail.com

grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

citação:

citação:

Bom Dia!!!

Eu também estou nesta encruzilhada com relação ao bom e fiel DBF. Tem outros cabras nesta mesma situação.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

---

id=quote>id=quote>

Não há problema algum em rodar .Dbf no 64, alias, vc não roda o DBF, só usa o mesmo

Vagner Wirts

"Ele não sabendo que era impossível, foi lá e fez"

---

id=quote>id=quote>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

---

Boa tarde Vagner!!!

O que estava me referindo é ao fato de que o Kapiaba vai ter que abandonar o WS. Rapaz, já falaram tantas maravilhas do MYSQL mas ainda estou relutante em abandonar o bom e velho DBF. Pela sua defesa parece que voce concorda comigo, ou será que estou errado?

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP