FGSIST

citação:Olá Zeca, 1ªmente, sim, meu programa foi feito na unha 2ªmente, meu sistema vc cadastra pelo cnpj ou cpf 3ªmente, meu sistema inclui tanto externamente quanto na hora da digitação da nota. 4ªmente, eu utilizo o valid para verificar a digitação, tanto de clientes como de cidades, e notas fiscais 5ªmente, infelizmente não posso lhe passar essa minha rotina, segredo de estado 6ªmente, se quiser retirar dúvidas, eu posso tentar lhe esclarecer Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Olá Vagner quanto a ajudar o zeca nas dúvidas, eu ainda estou esperando voce desenvolver um sistema modelo na area de transportes pra poder vender pra gente ou disponibilizar algumas rotinas pra gente como voce tinha me dito antes para podermos entender melhor esta area. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal estou precisando de uma ajuda na area de desenvolvimento de uma rotina pra controlar funcionarios. Ou seja o cliente me pediu pra fazer o seuinte controle: 1ªmente - Em cada maquina trabalha 1 pessoa por turno das 07:00 as 13:00 numa escala de 5x1 ou seja trabalha cinco dias e folga 1. E o outro entra as 13:00 e sai as 19:00 também numa escala 5x1 2ªmente - Para cada maquina existe um folguista, ou seja uma pessoa que no dia da folga de um dos dois funcionarios da maquina ele seria escalado via sistema pra poder substituir o que estiver de folga naquele dia. 3ªmente - Preciso criar um sistema que controle isso, onde todos os funcionários que foram contratados para serem folguistas estivessem cadastrados para serem escalados, pois as maquinas não podem parar e se parar eu não recebo meu salário. hehehehe Por Favor se alguém tiver uma idéia será de grande ajuda. Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 16/04/2007 14:31:05 Editado por - fgsist on 16/04/2007 14:31:38

Olá pessoal estou precisando de uma ajuda na area de desenvolvimento de uma rotina pra controlar funcionarios. Ou seja o cliente me pediu pra fazer o seuinte controle: 1ªmente - Em cada maquina trabalha 1 pessoa por turno das 07:00 as 13:00 numa escala de 5x1 ou seja trabalha cinco dias e folga 1. E o outro entra as 13:00 e sai as 19:00 também numa escala 5x1 2ªmente - Para cada maquina existe um folguista, ou seja uma pessoa que no dia da folga de um dos dois funcionarios da maquina ele seria escalado via sistema pra poder substituir o que estiver de folga naquele dia. 3ªmente - Preciso criar um sistema que controle isso, onde todos os funcionários que foram contratados para serem folguistas estivessem cadastrados para serem escalados, pois as maquinas não podem parar e se parar eu não recebo meu salário. hehehehe Por Favor se alguém tiver uma idéia será de grande ajuda. Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 16/04/2007 14:31:05 Editado por - fgsist on 16/04/2007 14:31:38

Valeu Vagner e obrigado pela resposta vou seguir seu conselho. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Aguardando ajuda Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Vagner voce me passou o calculo abaixo pra chegar aqueles misteriosos 1.13636364 só que pelo que eu entendi este calculo é só pra CTRC ou posso usar em qualquer calculo de porcentagem? nAliq := 12 nAliq := (nAliq/(100-nAliq))+1 Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Vagner a dica que voce me passou é nota 1000 ficou redondinho, a questão é a seguinte, só devo usar o calculo que voce me passou pra CTRC ou posso usar também pra fatura e nota fiscal? Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Vagner a dica que voce me passou é nota 1000 ficou redondinho, a questão é a seguinte, só devo usar o calculo que voce me passou pra CTRC ou posso usar também pra fatura e nota fiscal? Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Jackson Douglas CTRC conhecimento de transporte de cargas, ou também pode ser documento fiscal de transporte de cargas. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

citação:Olá Gilson Esse calculo q vc usa é para calculo de Ctrc ? Se sim, vc pode usar dessa forma nAliq := (nAliq/(100-nAliq))+1 que vai lhe dar o valor correto da aliquota , é o q eu uso Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Grande Vagner descupa a demora pra responder mas é pra ctrc mesmo e até agora estava entrando em panico, pois o contador me passou o fator de multiplicação e nem me explicou por que. E eu estava sem solução até voces ouvirem o meu grito de desespero. Valeuuuuuu Vagner, Kleyber e Marllon. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 13/04/2007 18:42:56 Editado por - fgsist on 13/04/2007 18:43:36

Olá pessoal 1ªmente obrigado pela resposta, mas o negócio é tão estranho que quando faço os calculos tipo valor * 12/100 não bate dá diferença, mas quando eu pego o fator de multiplicação que é 13.636364 dá redondinho, não sei se é porque quando seleciono a alíquota de 12% traz em uma variável 12 aí eu pego o valor multiplico por 12 e guardo o resultado só que dá diferença de um a 3 reais de diferença. Vou verificar de novo meus calculos qualquer coisa busco ajuda de voces de novo. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Caros colegas antes eu fazia calculos de porcentagem da seguinte forma: Para calcular 12% de um valor eu pegava o valor*13.636364/100 que dava o resultado. O problema agora é que estou fazendo uma pré-folha de pagamento e preciso achar o fator de multiplicação de 11%,10%,9%,8.75%,8%,7.75%,6%,5.25% etc é não está dando certo. Alguém sabe como fazer e poderia me dar umas dicas? Fico no aguardo. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Caros colegas antes eu fazia calculos de porcentagem da seguinte forma: Para calcular 12% de um valor eu pegava o valor*13.636364/100 que dava o resultado. O problema agora é que estou fazendo uma pré-folha de pagamento e preciso achar o fator de multiplicação de 11%,10%,9%,8.75%,8%,7.75%,6%,5.25% etc é não está dando certo. Alguém sabe como fazer e poderia me dar umas dicas? Fico no aguardo. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal aproveitando a questão postada pelo Oscar como que eu faço pra que as dialogs fiquem do tamanho da tela do computador do cliente em qualquer versão do windows sem precisar mudar o tamanho do fonte na criacção da tela no workshop ou pelles? Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Alexandre desculpa a demora na resposta é que tive que ir ver um cliente. Não vou poder ir pra sampa pro evento do xharbour infelismente, mas vou estar por aqui assim que der me manda um exemplo do seu sistema de controle de combustivel pra eu dar uma olhada. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

citação:Salve Gilson, Bom, na verdade o que o seu cliente está querendo na verdade é controlar os motoristas ? O que eles estão querendo saber, quem tem o pé mais pesado (consumo de combustível) ou se estão roubando combustivel ? Caso seja o caso do roubo o controle não tem a necessidade de você ter um controle diário e também pode não estar acontecendo só no abastecimento. Quando implantei esse sistema no cliente eles começaram a ver que tinha veículo com peneus com menos de um mês de rodagem que furava dia sim dia não. Com um controle mais amplo você consegue controlar e com isso acaba colocando o seu usuário para trabalhar menos sendo mais eficiente. Abraço Alexandre Zilves id=quote>id=quote>Olá Alexandre é isso mesmo que meu cliente quer controlar a média dos veiculos por motorista ou seja ver qual está com o pé mais pesado entre os tres. Tem como me passar uma amostra do seu sistema? Se tiver fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

citação:Olá Gilson, Bom supondo que todo dia seja abastecido o veículo, marca-se a km inicial e final, junto com o nome do motorista, a qtde de litros usado por abastecimento, aí fica fácil , agora se o veículo não for abastecido diariamente, sem chance , pois um motorista pode andar de um jeito e outro de outro jeito, um economiza mais que o outro, não daria para ser feito calculos precisos Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Olá Vagner obrigado pela resposta e é realmente isso que o cliente está querendo controlar. Como a frota é mais ou menos 70 veiculos não dá pra parar todos no final do dia ou inicio do dia e abastecer. Por isso ainda não consegui fazer esse controle, como voce mesmo disse sem chance. Valeu pelas dicas. - Caso voce tenha alguma idéia que possa inverter essa situação me passe. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 03/04/2007 13:09:32

Olá Pessoal alguém tem uma idéia ou exemplos de como fazer um controle de abastecimento de veiculo e como controlar a media dos veiculos por motorista? Tendo em conta que o mesmo veiculo pode ser usado por até 3 motoristas, onde um usa ele hoje, amanhã outro e durante a semana entra um terceiro que cobre a folga dos dois primeiros. Já quebrei a cabeça e nada se alguém tiver uma ideia ou exemplo pra postar em dicas fico muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Pessoal alguém tem uma idéia ou exemplos de como fazer um controle de abastecimento de veiculo e como controlar a media dos veiculos por motorista? Tendo em conta que o mesmo veiculo pode ser usado por até 3 motoristas, onde um usa ele hoje, amanhã outro e durante a semana entra um terceiro que cobre a folga dos dois primeiros. Já quebrei a cabeça e nada se alguém tiver uma ideia ou exemplo pra postar em dicas fico muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Valeu personal obrigado pela dica, realmente é tanto codigo e tanta coisa pra raciocinar que tem hora que o negócio tá na cara da gente e a gente se perde. Valeuuuuuuuu Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal conforme o exemplo abaixo preciso atualizar um campo novo no arquivo pegando pela data de inclusão dos registros do mais antigo pro mais novo e gravar neste campo sequencialmente ou seja 000001 ... 999999. O problema é que alguma coisa está errada e só está gravando 000001 em todos os registros e não está ficando em ordem de data de inclusão. Alguém pode me ajudar? Fico no aguardo. USE PRODUTO index on dtos(dt_incl) to indmot go top cod:=0 DO WHILE !EOF() cCodigo :=strzero(val(Codigo)+1,6) repl codigo with cCodigo skip ENDDO Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal conforme o exemplo abaixo preciso atualizar um campo novo no arquivo pegando pela data de inclusão dos registros do mais antigo pro mais novo e gravar neste campo sequencialmente ou seja 000001 ... 999999. O problema é que alguma coisa está errada e só está gravando 000001 em todos os registros e não está ficando em ordem de data de inclusão. Alguém pode me ajudar? Fico no aguardo. USE PRODUTO index on dtos(dt_incl) to indmot go top cod:=0 DO WHILE !EOF() cCodigo :=strzero(val(Codigo)+1,6) repl codigo with cCodigo skip ENDDO Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

citação:Como esta seus Indices??? Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS id=quote>id=quote>Olá Marcelo meus indices estão definidos da seguinte forma: oNamef:SetText("Classificando Produtos...") IF Use_Arq(M->oDados+"PRODUTOS",.F.,.F.) PACK INDEX ON PRODUTOS->CODIGO TAG 1 TO PRODUTOS INDEX ON PRODUTOS->CODFAB TAG 2 TO PRODUTOS INDEX ON PRODUTOS->DESCRICAO TAG 3 TO PRODUTOS oMeter:Set(oIndex++) use ENDIF Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Alessandro obrigado pela resposta vou tentar da forma que voce sugeriu qualquer coisa chamo voce novamente. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Vagner obrigado pela resposta segue a parte do codigo onde quero fazer a validação. O problema é que está deixando gravar duplicidade e não está avisando que já existe um codigo digitado. REDEFINE GET oGets[01] var objeto:codigo ID 100 OF oFo:aDialogs[1] PICTURE "@R 9999999" VALID !LSai .and. !EMPTY(OBJETO:CODIGO) .and. VERICODI(oProdutos) FONT oFonte1 REDEFINE GET oGets[02] var objeto:codfabr ID 101 OF oFo:aDialogs[1] PICTURE "@R 9999999" VALID !LSai .and. !EMPTY(OBJETO:CODFAB) .and. VERICODF(oProdutos) FONT oFonte1 //---------------------------------------------------------------------------\\ FUNCTION VERICODI(objeto) // // -> Funcao que verifica duplicidade no arquivo "PRODUTOS" LOCAL AREA_ARQ, RE_GISTROS, REGISTRO := RECN(), ORDEMREG := INDEXORD() SELE PRODUTOS DBSETORDER(1) DBSEEK(objeto:codigo) IF FOUND() MsgBeep() MsgAlert( "Registro ja cadastrado",OemToAnsi("Aten‡Æo")) GOTO REGISTRO RETURN .F. ENDIF SET ORDER TO ORDEMREG GOTO REGISTRO RETURN .T. //---------------------------------------------------------------------------\\ FUNCTION VERICODF(objeto) // // -> Funcao que verifica duplicidade no arquivo "PRODUTOS" LOCAL AREA_ARQ, RE_GISTROS, REGISTRO := RECN(), ORDEMREG := INDEXORD() SELE PRODUTOS DBSETORDER(2) DBSEEK(objeto:codfab) IF FOUND() MsgBeep() MsgAlert( "Registro ja cadastrado",OemToAnsi("Aten‡Æo")) GOTO REGISTRO RETURN .F. ENDIF SET ORDER TO ORDEMREG GOTO REGISTRO RETURN .T. //--------------------------------------------------------------------------\\ Ficarei no aguardo. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /