FGSIST Posted April 16, 2009 Report Share Posted April 16, 2009 Caros colegas do forum estou com um pequeno problema e gostaria da ajuda dos amigos. 1-tenho um arquivo de parametros onde fica gravado os numeros de notas fiscais, etc... 2-como os forumulários são contÃnuos a matriz fica com as notas fiscais de 0000001 a 4000000 e manda pra uma filial do 4000001 a 6000000 e outra filial com 6000001 a 8000000. 3-tanto na matriz quanto nas filiais tenho mais de 2 operadores digitando as notas fiscais. no meu controle de parametros eu gravo na hora que o operador vai digitar a nota o numero sequencial (numero anterior+1) até aà tudo bem.o problema é que quando o operador começa uma nota e para no meio do caminho e sai da tela de digitação sem gravar eu tenho que ir no controle de parametros e excluir o numero só que o outro operador já está com um outro numero aberto e se eu voltar um numero por causa do primeiro operador o controle de paramentro perde a sequencia e salva o numero da nota errado. Alguém pode me ajudar a resolver isso? 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 / Quote Link to comment Share on other sites More sharing options...
FGSIST Posted April 16, 2009 Author Report Share Posted April 16, 2009 Caros colegas do forum estou com um pequeno problema e gostaria da ajuda dos amigos. 1-tenho um arquivo de parametros onde fica gravado os numeros de notas fiscais, etc... 2-como os forumulários são contÃnuos a matriz fica com as notas fiscais de 0000001 a 4000000 e manda pra uma filial do 4000001 a 6000000 e outra filial com 6000001 a 8000000. 3-tanto na matriz quanto nas filiais tenho mais de 2 operadores digitando as notas fiscais. no meu controle de parametros eu gravo na hora que o operador vai digitar a nota o numero sequencial (numero anterior+1) até aà tudo bem.o problema é que quando o operador começa uma nota e para no meio do caminho e sai da tela de digitação sem gravar eu tenho que ir no controle de parametros e excluir o numero só que o outro operador já está com um outro numero aberto e se eu voltar um numero por causa do primeiro operador o controle de paramentro perde a sequencia e salva o numero da nota errado. Alguém pode me ajudar a resolver isso? 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 / Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 16, 2009 Report Share Posted April 16, 2009 Se vc. Abrir pegar e gravar o numero da NF somente após concluir a operação não resolveria ??? Luiz Arruda - Corumba(MS) FiveWin 9.01 / 9.02 /9.03 [x]Harbour xDev WS Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
personal Posted April 16, 2009 Report Share Posted April 16, 2009 Nao seria mais facil e logigo assim: Ao abrir a digitação da nota voce pega o numero+1 Quando finalizar voce pega de novo o numero+1 e grava este, se for diferente do primeiro, voce faz uma alerta para o digitador. Quote Link to comment Share on other sites More sharing options...
FGSIST Posted April 16, 2009 Author Report Share Posted April 16, 2009 Obrigado pela resposta Luiz Arruda e Sergio(personal) minha dificuldade é a lógica de programação tem como voce postarem uma idéia na prática? ou seja um exemplo de codigo fonte. 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 / Quote Link to comment Share on other sites More sharing options...
gibaf Posted April 16, 2009 Report Share Posted April 16, 2009 e da forma q te expliquei pelo msn, nao conseguiu avancar ? att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
FGSIST Posted April 16, 2009 Author Report Share Posted April 16, 2009 Olá Giba realmente a forma que o Voce o Luiz e o personal me passaram é isso mesmo que estou precisando a questão é que na hora de montar a rotina não estou conseguindo fazer do jeito que funcione. Mas to na luta qualquer coisa chamo voces. obrigado 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 / Quote Link to comment Share on other sites More sharing options...
sambomb Posted April 17, 2009 Report Share Posted April 17, 2009 Quando começar nCodX := nCodUlt+1 Quando finalizar nCodY := nCodUlt+1 If nCodX != nCodY Alert("Divergência") end id=code>id=code>MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
FGSIST Posted April 17, 2009 Author Report Share Posted April 17, 2009 Valeu pessoal pelas dicas consegui juntando as idéias de voces agora estou testando na prática e até agora tá indo bem. Qualquer erro dou um grito por socorro. rsrsrs 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 / Quote Link to comment Share on other sites More sharing options...
william Posted April 17, 2009 Report Share Posted April 17, 2009 Gilson bom dia, eu uso a seguinte funcao para codificar todos os meus cadastros, e nunca tive problemas , veja se te ajuda.O interessante dessa funcao é que ela guarda todos os contadores de codigos de todos os cadastros em um unico arquivo. William * Exemplo para chamar a funcao: CLIENTES->IDCLIENTE := Geracodigo( DBF() ) FUNCTION Geracodigo( database ) // Inicializa controle com um numero diferente do total de registros nControle := 1 //iif( recco()=0, 1, recco()+(recco()/2) ) // Guarda a área atual do .DBf a ser controlado OldArea := Select() if !SR_ExistTable("CONTROLE") // Cria a estrutura do controlador caso ainda não exista ESTRU_DBF := { ; { "DATABASE" , "C",12, 0 } , ; // Guarda o nome do DBF/ALIAS { "CONTADOR" , "N", 7, 0 } } // Armazena o contador DBCREATE( "CONTROLE", ESTRU_DBF, "SQLRDD" ) EndIf USE controle shared NEW via "SQLRDD" // Verifica a existencia da chave( que pode ser também uma palavra ) LOCATE FOR UPPER(controle->database) = UPPER(database) if found() // Encontrando incrementa o contador if reglock(10) // Usado no caso de rede nControle := controle->contador + 1 controle->contador := nControle UNLOCK COMMIT endif else // Caso a chave ainda não exista será criada if adireg(10) controle->database := database controle->contador := nControle UNLOCK COMMIT endif endif dbclosearea() SELECT (OldArea) RETURN nControle Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Quote Link to comment Share on other sites More sharing options...
FGSIST Posted April 17, 2009 Author Report Share Posted April 17, 2009 Olá Willian, valeu amigo pela dica, era o que estava faltando pra implementar minha função. Com a ajuda de todos consegui terminar minha função e ficou muito boa,valeuuuuuuuuuuuuuuuuuuuuuuuuu 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 / Quote Link to comment Share on other sites More sharing options...
william Posted April 18, 2009 Report Share Posted April 18, 2009 disponha, estamos aà para ajudar abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.