Jump to content
Fivewin Brasil

netsys

Membros
 View Profile  See their activity

  • Posts

    326

  • Joined

  • Last visited

  • Days Won

    5

 Content Type 

Posts posted by netsys

  2. media de idade

    in Programação

    Posted

    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

  3. media de idade

    in Programação

    Posted

    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

  4. media de idade

    in Programação

    Posted

    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

  6. Terminal Server2003

    in Programação

    Posted

    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

  7. Terminal Server2003

    in Programação

    Posted

    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

  9. Terminal Server2003

    in Programação

    Posted

    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.

  10. Terminal Server2003

    in Programação

    Posted

    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

  11. Portaria CAT 17/1999

    in Programação

    Posted

    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

  12. Fim da CRT/CSOSN

    in Programação

    Posted

    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

  16. Fim da CRT/CSOSN

    in Programação

    Posted

    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

  17. Fim da CRT/CSOSN

    in Programação

    Posted

    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

  18. Emissor gratuito NFE

    in Programação

    Posted

    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

  19. Emissor gratuito NFE

    in Programação

    Posted

    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

  21. Emissor gratuito NFE

    in Programação

    Posted

    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

  22. Emissor gratuito NFE

    in Programação

    Posted

    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

  23. Emissor gratuito NFE

    in Programação

    Posted

    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

  24. Impressora stripe s4m

    in Programação

    Posted

    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

  25. Impressora stripe s4m

    in Programação

    Posted

    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

×
×
  • Create New...