netsys

1222 anos até agora, certo? 40,73 de média? (e falta muita gente ainda....)

Karaka Tá faltando muita gente ainda, (cadê o Kapiaba, o Vailton, o Lailton?)....mas já temos numeros interessantes: 25 x 40 = 1000 anos de experiência.... Dá pra fazer o melhor software ERP/PDV/ECF/PAF do MUNDO.... Qua tal "quebrar" a TOTVS e a SAP ???? Poderia ser um FiveOPEN... Quem se atreve? Abs Alberto Zamai - SP FWH + xHB + MySQL

citação:Ta, então deixa eu ajudar a entortar a conta... -Cobol desde 1978 (mainframe) -Varias linguagens para eqpto de entrada de dados Ecodata - Cobra 400 - Cobra 305 - Cobra 530 Disketeiras IBM - Perfuração de Cartão (alguem lembra) -Clipper desde 1998 -Fivewin desde que cheguei aqui....... Só 3 anos.....(acho) kkkk Mas sempre bem recebido. Idade: 51,6 No basquete... 33 anos Decker celeyendecker@hotmail.com São Paulo - S.P. FWH 6.12 Free - xHarbour - BCC55 - Pelles C - xDev [http] id=quote>id=quote>Puxa vida Decker! Pensei que nunca mais ouviria essas "coisas", rsrsrs Cobra 530/540....., lembra do joguinho HAMURABI? Disquetes de 8", certo? AGORA Tà VIRANDO O JURASSIK FORUM! KKKKKKKKKKK ABS Alberto Zamai São Paulo - SP FHW + XHB + MYSQL

48 (Sem retífica e sem queimar óleo...por enquanto...) Comecei em 1979 em um IBM/370 e UNISYS (Cobol) depois,,,,posso copiar e colar a história do Wagner? cp/m, dbaseII, dbase III, Clipper Summer, Outumn, Winter, 5.0, 5.2... Não lembro mais se foi nessa ordem, Fivewin em 2001 e NÃO MUDO MAIS! Para quem gosta de história: Li outro dia que o computador de bordo da Apollo XI (1969) tinha 1KB de memória! Se foram à Lua com isso, hoje (se dependesse só de informática), deveríamos estar em outra galáxia atualmente..... Ufa que alívio! Tem bastante "velhinhos de programa" aqui... rs Abraços Alberto Zamai - SP

Puxa vida! Tinha pensado em um monte de coisas, menos nessa questão da resolução da tela x SP3.....Mas valeu, aprendemos mais uma Abraços Alberto Zamai - SP

Bom dia Luiz Realmente, parece que a "coisa" está complicada.... Tenho um servidor W2003 aqui também, que é acessado de qualquer máquina (XP,Vista,Win7) e isso nunca aconteceu... Não acho que seja nada do lado da estação, mas no servidor.. Também não acho que seja o seu Sistema ou o ADS, senão, não entraria em nenhuma máquina... Como você disse que o servidor foi formatado e reinstalado, não deve ser problema de vírus... Tem ainda umas questões : o Win2003 tem um domínio com restrições de acesso por usuário? O Licenciamento que o Ladinilson falou também poderia ter espirado, ou configurado para certos usuários.... Já tentou trocar o roteador lá? Desculpe o excesso de perguntas, mas pode ter muitas causas mesmo...Parece que o "suspeito" é o servidor ou a rede lá... Abs Alberto Zamai Vip Netsystem - SP

Oi Luiz Mais uma coisa: Seu sistema (o executável) está instalado em cada máquina, acessando o servidor remotamente, ou cada usuário abre uma sessão do WTS no próprio servidor? Todos usam a mesma senha de acesso? Você já tentou criar um acesso remoto usando o NETDRIVE ? Ele cria uma letra de unidade para um servidor remoto (via IP).... Talvez seja uma idéia.... Alberto Zamai Via Solution - SP xHB + MySQL

Oi Luiz Seu sistema usa o ADS? Já tentou compilar novamente? Alberto - SP Via Solution xHb + MySQL

Bom dia Luiz Mais umas perguntas: Por acaso, no local onde o servidor está instalado, tem algum roteador? Você utiliza filtros por IP? Tentou colocar o IP do servidor como DMZ? O que o sistema faz logo após a pergunta inicial? Já tentou apagar os CDX e copiar novamente a BWCC32.DLL ? Alberto Via Solution xHb + Mysql.

Oi Luiz, tudo bom? Olha, pelo que sei, o WTS quando é instalado vem com o padrão de 15 usuários para acesso simultâneo. Supondo que o técnico deixou assim, sobram 2 suspeitos: a velocidade da internet no servidor e a capacidade de memória do próprio servidor. Se entendi direito, os 9 usuários conectam, mas só 4 conseguem carregar seu sistema, está certo? Se for isso, parece que o servidor não tem memória suficiente para abrir mais sessões. Confere? Att Alberto Zamai Via Solution - SP Fwh 6.12 + MySQL

OI Vitor , tudo bem? Olha, não sou tributarista, mas veja o link abaixo (tópico 3.4): http://www.regedor.net/fiquepordentro_detalhes.php?id=24 Pelo que entendo, depois que o "monstro" da Substituição Tributária foi generalizado para muitos produtos, acabou esse negócio de ressarcimento, salvo em situações muito especiais. A legislação da ST é a coisa mais IRRACIONAL DO MUNDO!. Como já foi colocado aqui pelos colegas, às vezes, um mesmo produto pode ter 6 ou 7 situações diferentes, dependendo do estado de origem / destino, tipo de cliente (consumidor, revenda, não contribuinte) e ainda dos "maledetos" convênios especiais entre estados, etc.... Acho que é resposabilidade do contador apurar eventuais ressarcimentos de imposto pago a maior. Seu sistema deve suportar todas as operações possíveis, agora, parece que estão querendo empurrar essa "bucha" para você controlar. Espero ter ajudado Abraços Alberto Zamai Vip Netsystem - SP Fwh 2.6 + xHarbour

Ok S.A.Oliveira, obrigado pela resposta. Espero que você tenha razão, amigo. Também estou acreditando nisso. Mas é estranho eles publicarem uma CAT em 05/03, revogando retroativamente a 01/01 uma coisa que passará a valer em 01/04, não acha? Pra que simplificar se eles podem complicar o que já estava entendido, né? Abraços Alberto-SP

Alguem teve alguma informação sobre esta revogação? Obrigado Alberto - SP

Boa pergunta Daniel. Alguem conseguiu alguma info? Alberto-SP

Pois é S.A.Oliveira E ai? Alberto - SP

Caros Colegas. Isso é para quem usa QUALQUER SOLUÇÃO NFE 2.0; Sabadão de Carnaval e o nosso governo publica a CAT30/2011 revogando a obrigatoriedade de informação do CRT e CSOSN na Nfe 2.0. Alguem viu? Sabe algo a respeito? Obrigado Alberto-SP

Caros Colegas. Isso é para quem usa QUALQUER SOLUÇÃO NFE 2.0; Sabadão de Carnaval e o nosso governo publica a CAT30/2011 revogando a obrigatoriedade de informação do CRT e CSOSN na Nfe 2.0. Alguem viu? Sabe algo a respeito? Obrigado Alberto-SP

Só para completar..... Para quem não quer reescrever a roda, tem a solução do sr. Gilmer, que é de baixo custo e pelo que li aqui no forum, faz tudo o que o emissor gratuito faz e funciona muito bem. Abraços Alberto - S.Paulo

Ola Graziela Muito obrigado pela dica. Vou testar aqui. Agora não liga, tem programador que se acha a ultima bolacha do pacote, porque deve ter tempo para reescrever a roda, certo? Se existe uma solução pronta e, como você falou, mais de 90% das empresas usam, porque não usar? Pessoalmente, não vejo problema nenhum em usar o emissor gratuito da SEFAZ. No final das contas, uso meu tempo para fazer coisas mais produtivas. Eu trabalho para as empresas, NÃO PARA O GOVERNO! Quando sair a NFe 3.0, é só baixar a nova versão do emissor, ou usar um ACBR-NFe que parece muito bom, E ESTà PRONTO! Parabén pela iniciativa e Obrigado! Alberto - S.Paulo

Ola Graziela Obrigado pela resposta, mas como fazer, se não tenho mais a chave original da nfe? Alberto - SP

Oi Graziela Sobre o Emissor da Sefaz tem algumas situações que as pessoas insistem em errar, por ex: - Após a Nfe transmitida e autorizada, o cidadão vai lá e importa o TXT novamente (volta a ficar EM DIGITAÇÂO), transmite novamente ou simplesmente exclui a nota do emissor ANTES DE IMPRIMIR O DANFE e gerar o XML..... Já viu né? BREGUNTA: Tem como recuperar a BENEDETA chave original? ou CANCELAR A NOTA DIRETO NO SEFAZ? Desde já Obrigado Alberto - SP

Perfeito Quicussi Entendi perfeitamente. Eu mesmo, que trabalho por conta a anos, já caí várias vezes no erro de vender "programas baratinhos" para ajudar um amigo de alguém e depois o cara te apurrinhar o resto da vida querendo mais e mais.....É melhor cobrar mais e perder o cliente. Realmente, naquela época éramos vistos como "seres especiais", hoje a concorrência é tanta (vide Totvs e Microsoft querendo entrar nas pequenas e médias empresas), que temos que dançar conforme a valsa.... Mas é isso amigo. Não desanime...De Idealista e Louco todo programador tem um pouco,,,,rsrsrsr Abraços Alberto - SP

Caro Quicussi A 30 anos atras, também programava em Cobol, e sinceramente, não tenho saudade nenhuma daqueles Identification, Data, Environment e Procedure Division... tinha vontade de me enforcar toda vez que tinha que escrever isso. Também passei pelo VB, VO, Delphi, ASP, PHP e ainda acho que o Clipper foi a linguagem mais inteligente e próxima da HUMANA que ja se fez. Fivewin é como o Clipper foi em 1985 a 1995,,,uma biblioteca que virou linguagem própria. No fundo é C. Como o Windows, o Linux e 100% de todos os SOs do mundo. Abraços velhinho De outro velhimho Alberto - SP

Oi Cristiane Encontrei! Veja se ajuda: A rotina abaixo imprime a mesma etiqueta de um produto (carne) com sua composição (gordura trans, colesterol, etc). Os parâmetros passados são: Código do Produto, Data de Fabricação, Validade, Quantidade Etiquetas e Observações O arquivo LS contém os valores que serão impressos. Esta 1a. funciona na ARGOX: *------------------------------------------------- Function fImprArgox(cProd,dFabr,dVale,nQtde,cObse) *------------------------------------------------- Local nHand Local cArqImp:="Argox.TXT" Local cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2) Ls->(DbSeek(cProd)) nHand:=fCreate(cArqImp) fWrite(nHand,Chr(2)+"L"+Chr(13)+Chr(10)) fWrite(nHand,"D11"+Chr(13)+Chr(10)) fWrite(nHand,"311100001300420V.ENERGETICO"+Chr(13)+Chr(10)) fWrite(nHand,"311100001300365"+Alltrim(Ls->Valoren)+Chr(13)+Chr(10)) fWrite(nHand,"311100001300318"+Alltrim(Str(Ls->Valorpe,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001300300COLESTEROL"+Chr(13)+Chr(10)) fWrite(nHand,"311100001300245"+Alltrim(Ls->Coleste)+Chr(13)+Chr(10)) fWrite(nHand,"311100001300208"+Alltrim(Str(Ls->Colespe,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001380420CARBOIDRATOS"+Chr(13)+Chr(10)) fWrite(nHand,"311100001380345"+Alltrim(Ls->Carboid)+Chr(13)+Chr(10)) fWrite(nHand,"311100001380318"+Alltrim(Str(Ls->Carbope,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001380300FIBRAS"+Chr(13)+Chr(10)) fWrite(nHand,"311100001380245"+Alltrim(Ls->Fibrasa)+Chr(13)+Chr(10)) fWrite(nHand,"311100001380208"+Alltrim(Str(Ls->Fibrape,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001460420PROTEINAS"+Chr(13)+Chr(10)) fWrite(nHand,"311100001460345"+Alltrim(Ls->Protein)+Chr(13)+Chr(10)) fWrite(nHand,"311100001460318"+Alltrim(Str(Ls->Protepe,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001460300CALCIO"+Chr(13)+Chr(10)) fWrite(nHand,"311100001460245"+Alltrim(Ls->Calcios)+Chr(13)+Chr(10)) fWrite(nHand,"311100001460208"+Alltrim(Str(Ls->Calcipe,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001540420GORD.TOTAIS"+Chr(13)+Chr(10)) fWrite(nHand,"311100001540345"+Alltrim(Ls->Gortota)+Chr(13)+Chr(10)) fWrite(nHand,"311100001540318"+Alltrim(Str(Ls->Gortope,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001540300FERRO"+Chr(13)+Chr(10)) fWrite(nHand,"311100001540245"+Alltrim(Ls->Ferroso)+Chr(13)+Chr(10)) fWrite(nHand,"311100001540208"+Alltrim(Str(Ls->Ferrope,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001620420GORD.SATURAD"+Chr(13)+Chr(10)) fWrite(nHand,"311100001620345"+Alltrim(Ls->Gorsatu)+Chr(13)+Chr(10)) fWrite(nHand,"311100001620318"+Alltrim(Str(Ls->Gorsape,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001620300SODIO"+Chr(13)+Chr(10)) fWrite(nHand,"311100001620245"+Alltrim(Ls->Sodioso)+Chr(13)+Chr(10)) fWrite(nHand,"311100001620208"+Alltrim(Str(Ls->Sodiope,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"311100001700420GORD.TRANS"+Chr(13)+Chr(10)) fWrite(nHand,"311100001700345"+Alltrim(Ls->Gortran)+Chr(13)+Chr(10)) fWrite(nHand,"311100001700318"+Alltrim(Str(Ls->Gortrap,2))+"%"+Chr(13)+Chr(10)) fWrite(nHand,"321100002200400"+Alltrim(Ls->Descri)+" - "+Alltrim(Ls->Fantas)+Chr(13)+Chr(10)) fWrite(nHand,"321100002500420"+Dtoc(dFabr)+" "+Dtoc(dVale)+" "+cLote+" 5 gramas M"+Chr(13)+Chr(10)) fWrite(nHand,"311100002500120"+Subs(cObse,1,20)+Chr(13)+Chr(10)) fWrite(nHand,"311100002580120"+Subs(cObse,21)+Chr(13)+Chr(10)) fWrite(nHand,"Q"+StrZero(nQtde,4)+Chr(13)+Chr(10)) // fwrite(nHand,"E"+Chr(13)+Chr(10)) fClose(nHand) Copy File(cArqImp) to Prn Delete File(cArqImp) Return Nil // Já esta rotina faz a mesma etiqueta na Zebra S4M: *------------------------------------------------- Function fImprZebra(cProd,dFabr,dVale,nQtde,cObse) *------------------------------------------------- Local nHand Local cArqImp:="Zebra.TXT" Local cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2) Ls->(DbSeek(cProd)) nHand:=fCreate(cArqImp) fWrite(nHand,Chr(94)+"XA") 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 Boa Sorte Alberto Zamai - SP

Ola Cristiane e Ana Passei pelo mesmo problema no começo do ano.... Realmente, o método de impressão é parecido, mas as coordenadas mudam bastante. Uma sugestão é você utilizar o próprio software que vem com a impressora, desenhar sua etiqueta nele e depois imprimir em texto para ver os comandos,,, Vou ver se encontro minha rotina no escritório, ok? Alberto Zamai S.Paulo