netsys

Marsan

 

Teste  o DBASource:

 

www.viasolution.com.br/arquivos/dbasource.zip

 

Simples mas funciona.

 

Abs

Alberto Zamai

Via Solution Software-SP

 

Ok Mariano

Obrigado pela resposta, mesmo assim.

Mais alguém passou por isso?

Abs

Alberto - SP

Ola Alain

Não seria aquela mudança da porta 25 para 587 ?

Abs

Alberto - SP

Bom dia Marciano

Você conseguiu resolver este problema? Como?

Obrigado

Abs

Alberto - SP

citação:

sim seria, mas deveria diminui né?

where vencto < "+Any2Sql(Date()-10)

Ronaldo Minacapelli

(11) 2950 3069

---

id=quote>id=quote>

Certissimo Ronaldo!

Falha nossa!

Vencidos a mais de 10 dias.

Abs

Alberto

citação:

Colegas é possivel fazer algo do tipo abaixo...

cSql+=" where vencto+10 < "+Any2Sql(date())

o campo vencto é do tipo data

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.6717, MYSQL c\ SQLLIB FREE

---

id=quote>id=quote>

Luiz,

Não seria mais simples assim:

...where vencto < "+Any2Sql(Date()+10)

Abs

Alberto

Vagner

Certa vez eu fiz isso para uma Argox ou Zebra com a TPrint.

Net Use Lpt1: \\192.168.0.252\impressoracompartilhada

Não seria o caso?

Claro que depende da impressora, certo?

Abs

Alberto-SP

Boa noite.

Desculpe se a pergunta parece boba, mas, vamos lá:

Você usa == , então o campo e variável tem sempre o mesmo tamanho, certo?

Alberto - SP

Oi Luiz

Colega, por acaso no Uol Host não é servidor Linux?

Ai tem a caixa alta/baixa, certo?

Abs

Alberto

Fwh 2.6 + MySql

S.Paulo

Certíssimo Oziel

Tem todo esse "samba do crioulo doido" ai que você descreveu bem.

Por isso, não indico o SERASA para ninguém...

Os certificados da Certisign são muito mais simples, seja no A1 ou A3,

para instalar/exportar/utilizar.

Abraços

Alberto - SP

citação:

Meu Problema estava com W7/64.

Quanto ao SPED, seria para comparar. Só tenho empresas RA.

Dimob / SPED(pis/cofins)

..:: Este post é uma opnião pessoal, NAO DEVE SER ENCARADO COMO VERDADE ABSOLUTA ::..

---

id=quote>id=quote>

Ok Obrigado

Abs

Alberto - SP

Fwh + MySql

Sérgio:

Conseguiu terminar o SPED Pis-Cofins (ou Sped-Contribuições) ?

Parece que as empresas de lucro presumido, começam a apurar

agora em 01/07/2012, para entrega em 10/09, certo?

Também vi um post seu, outro dia, sobre a instalação do PVA

(validador). Tive o mesmo problema aqui no Win7/32. Ai

desinstalei o Java 7 e reinstalei o 6. Só assim para fazer

o "maledeto" PVA instalar...

Abs

Alberto - SP

Fwh + MySql

Lailton:

Precisava de alguma função que retorne, pelo menos o

nome e a data de nascimento do cidadão...

Essa faz?

Gto

Alberto - SP

citação:

Marcio,

Sim, a do CPF ja esta finalizado, estarei hoje concluindo a do CNPJ. assim que finalizado lhe notifico e posto informacoes aqui no forum.

Grato.

Lailton

Att.

Lailton Fernando Mariano

E-Mail: developer@lailton.com.br | Msn: lailton.developer@hotmail.com

xHarbour 1.2.1 | Fivewin 11.1 | Borland 5.8.2 | MySQL

---

id=quote>id=quote>

Opa Lailton, tudo bem?

Essa do CPF muito me interessa...você vai vender?

Alberto - SP

Favor inverter os 2 DbSetindex.

Alberto - SP

Ola Cristiano

Eu faria assim:

DBSELECTAREA('TEMP_BL0')

INDEX ON Temp_Bl0->Campo1+LEFT(TEMP_BL0->CAMPO06,2) TO TEMP_04

INDEX ON Temp_Bl0->Campo1+LEFT(TEMP_BL0->CAMPO02,2) TO TEMP_05

Temp_Bl0->(DbSeek("0190")

WHILE TEMP_BL0->(!EOF()) .and. Temp_bl0-Campo1="0190" // USANDO O INDICE TEMP_05

nReco:=Temp_Bl0->(Recno())

Temp_Bl0->(DbSetindex("Temp_05"))

lAchou:=TEMP_BL0->(!DBSEEK("0200"+LEFT(TEMP_BL0->CAMPO02,2))) // USANDO O INDICE TEMP_04

Temp_Bl0->(DbSetIndex("Temp_04"))

Temp_Bl0->(DbGoto(nReco))

If !lAchou

Temp_Bl0->(DbDelete())

End

Temp_Bl0->(DbSkip())

End

id=code>id=code>

Se eu entendi bem, você precisa remover de Temp_Bl0, todos

os registros cujo campo01='0190' que não tenham um registro

correspondente com campo01='0200' , certo?

Alberto -SP

Só para completar:

Você deve ter visto que ARGOX é só o nome

do arquivo TXT, mas funciona numa Zebra S4M (USB) EPL.

Abs

Alberto - SP

Ola Cleiton

Serve do jeito "luso" de 1.900 e qq coisa....?

ou seja, arquivo TXT copiado para PRN....

net use lpt1: \\maquina\zebra...

A rotina abaixo imprime uma etiqueta nas dimensões aprox.

que você disse, para um frigorífico. São passados:

cProd=Código do Produto

dFabr=Data de Fabricação

dVale=Data de Validade

nQtde=Quant.de etiquetas

cObse=Observações

Os campos do arquivo referenciado como LS->

são os valores impressos (gordura saturada, trans,

carbo, etc)...

Veja se ajuda:

*-----------------------------------------------

Function fImpreti(cProd,dFabr,dVale,nQtde,cObse)

*-----------------------------------------------

Local cLetra, nHand, cLote

Local aEstru:={}

Local cArqImp:="Argox.TXT"

cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2)

nHand:=fCreate(cArqImp)

// cLetra:="A" // Code 3 de 9

// cLetra:="E" // Code 128

cLetra:="F" // Ean 13

// cLetra:="G" // Upca

fWrite(nHand,Chr(94)+"XA")

// HHHxxxxyyyy

fWrite(nHand,Chr(94)+"FO311,001")

fWrite(nHand,Chr(94)+"FDV.ENERGETICO")

/*/

fWrite(nHand,Chr(94)+"FO311100001300365")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Valoren))

fWrite(nHand,Chr(94)+"FO311100001300318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Valorpe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001300300")

fWrite(nHand,Chr(94)+"FDCOLESTEROL")

fWrite(nHand,Chr(94)+"FO311100001300245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Coleste))

fWrite(nHand,Chr(94)+"FO311100001300208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Colespe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001380420")

fWrite(nHand,Chr(94)+"FDCARBOIDRATOS")

fWrite(nHand,Chr(94)+"FO311100001380345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Carboid))

fWrite(nHand,Chr(94)+"FO311100001380318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Carbope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001380300")

fWrite(nHand,Chr(94)+"FDFIBRAS")

fWrite(nHand,Chr(94)+"FO311100001380245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Fibrape,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001460420")

fWrite(nHand,Chr(94)+"FDPROTEINAS")

fWrite(nHand,Chr(94)+"FO311100001460345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Protein))

fWrite(nHand,Chr(94)+"FO311100001460318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Protepe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001460300")

fWrite(nHand,Chr(94)+"FDCALCIO")

fWrite(nHand,Chr(94)+"FO311100001460245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Calcios))

fWrite(nHand,Chr(94)+"FO311100001460208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Calcipe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001540420")

fWrite(nHand,Chr(94)+"FDGORD.TOTAIS")

fWrite(nHand,Chr(94)+"FO311100001540345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortota))

fWrite(nHand,Chr(94)+"FO311100001540318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001540300")

fWrite(nHand,Chr(94)+"FDFERRO")

fWrite(nHand,Chr(94)+"FO311100001540245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Ferroso))

fWrite(nHand,Chr(94)+"FO311100001540208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Ferrope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001620420")

fWrite(nHand,Chr(94)+"FDGORD.SATURAD")

fWrite(nHand,Chr(94)+"FO311100001620345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gorsatu))

fWrite(nHand,Chr(94)+"FO311100001620318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gorsape,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001620300")

fWrite(nHand,Chr(94)+"FDSODIO")

fWrite(nHand,Chr(94)+"FO311100001620245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Sodioso))

fWrite(nHand,Chr(94)+"FO311100001620208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Sodiope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001700420")

fWrite(nHand,Chr(94)+"FDGORD.TRANS")

fWrite(nHand,Chr(94)+"FO311100001700345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortran))

fWrite(nHand,Chr(94)+"FO311100001700318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortrap,2))+"%")

fWrite(nHand,Chr(94)+"FO321100002200400")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Descri)+" - "+Alltrim(Ls->Fantas))

fWrite(nHand,Chr(94)+"FO321100002500420")

fWrite(nHand,Chr(94)+"FD"+Dtoc(dFabr)+" "+Dtoc(dVale)+" "+cLote+" 5 gramas M")

fWrite(nHand,Chr(94)+"FO311100002500120")

fWrite(nHand,Chr(94)+"FD"+Subs(cObse,1,20))

fWrite(nHand,Chr(94)+"FO311100002580120")

fWrite(nHand,Chr(94)+"FD"+Subs(cObse,21))

/*/

fWrite(nHand,Chr(94)+"PQ"+StrZero(nQtde,4)) //

fwrite(nHand,Chr(94)+"XZ")

fClose(nHand)

Copy File(cArqImp) to Prn

Delete File(cArqImp)

Return Nil

Abraços

Alberto-SP

Bom dia

Alguém já conseguiu enviar alguma nota hoje?

Obrigado

Alberto

S.Paulo

xHB + MySQL

Bom dia

Alguém já conseguiu enviar alguma nota hoje?

Obrigado

Alberto

S.Paulo

xHB + MySQL

Kapiaba:

Se você olhar o programa SINAL600, baixado do site da

SUFRAMA, vai encontrar cidades do Amazonas, Roraima,

Acre e Rondonia. Acho que também Pará e Amapá.

Alberto - SP

KKKKKKKKKKKKKKKKKKKKKK

Boa

O PHD do Antenor também é otima!

Bom trabalho!

Alberto - SP

citação:

Christiano.

Atualmente estou fazendo palestras específicas para suas duvidas.

Sou formado pela UNCP, PHD em A.A

Dimob / SPED(pis/cofins)

..:: Este post é uma opnião pessoal, NAO DEVE SER ENCARADO COMO VERDADE ABSOLUTA ::..

---

id=quote>id=quote>

Sérgio

Desculpe a "ingnorância", mas, o que é UNCP e A.A ???

Alberto - SP

Desculpe Ale

Falamos a mesma coisa com 1 min de diferença...

rsrsrs

Abs

Alberto - SP

FW 2.6 + xHB + MySQL

Ola

Outra solução seria você ter as 2 unidades no cadastro

(compra e venda) com um fator de conversão.

Alberto - SP

FH 2.6 + xHb + MySQL