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