oziel
-
Posts
185 -
Joined
-
Last visited
-
Days Won
5
Posts posted by oziel
-
-
Ok..
Obrigado.
Deu certo...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Caros Colegas.
Estou com um problema – estou fazendo o programa de estoque FiveWin – reescrevendo o DOS.
1)Digitar o preço de Custo
2)Digitar a margem
3)Calcular o Preço de Venda a Vista
4) Calcular o Preço de Venda a Prazo.
Bem, o que acontece é que eu digito o preço de Custo depois a Margem o sistema vai para a função de Calculo de preços (PcVenda) – quando dou enter só atualiza o Preço de Venda a Prazo, o preço de Venda a vista fica igual e zero – Se eu utilizar a seta para cima e retornar para o preço de custo ir dando enter ai o preço de venda é atualizado. Abaixo está o fonte.
DEFINE DIALOG oDlg RESOURCE "TELA_CAD1" // inclusao de produtos
................
nCstp := 0 // Custo do Produto
nVedp := 0 // Preço de Venda
nVedp_ap := 0 // Preço de Venda a prazo
REDEFINE GET oG35 VAR nCstp PICTURE '99,999.99' ID 160 OF oDlg
REDEFINE GET oG36 VAR nMargem PICTURE '99,999.99' ID 170 OF oDlg Valid PcVenda() UpDate
REDEFINE GET oG39 VAR nVedp PICTURE '99,999.99' ID 200 OF oDlg UpDate
REDEFINE GET oG40 VAR nVedp_ap PICTURE '99,999.99' ID 210 OF oDlg UpDate
//-------------------------------------------------------------------
Function PcVenda() // - Calculo do preço de Venda a Vista e a Prazo.
Local nTx_juro:=10
nVedp = ((nMargem/100)*nCstp)+(nCstp)
nVedp_ap = ((nTx_juro /100)*nVedp)+(nVedp)
Return .t.
//----------------------------------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 30/07/2012 17:58:36
-
Caros Colegas.
Estou com um problema – estou fazendo o programa de estoque FiveWin – reescrevendo o DOS.
1)Digitar o preço de Custo
2)Digitar a margem
3)Calcular o Preço de Venda a Vista
4) Calcular o Preço de Venda a Prazo.
Bem, o que acontece é que eu digito o preço de Custo depois a Margem o sistema vai para a função de Calculo de preços (PcVenda) – quando dou enter só atualiza o Preço de Venda a Prazo, o preço de Venda a vista fica igual e zero – Se eu utilizar a seta para cima e retornar para o preço de custo ir dando enter ai o preço de venda é atualizado. Abaixo está o fonte.
DEFINE DIALOG oDlg RESOURCE "TELA_CAD1" // inclusao de produtos
................
nCstp := 0 // Custo do Produto
nVedp := 0 // Preço de Venda
nVedp_ap := 0 // Preço de Venda a prazo
REDEFINE GET oG35 VAR nCstp PICTURE '99,999.99' ID 160 OF oDlg
REDEFINE GET oG36 VAR nMargem PICTURE '99,999.99' ID 170 OF oDlg Valid PcVenda() UpDate
REDEFINE GET oG39 VAR nVedp PICTURE '99,999.99' ID 200 OF oDlg UpDate
REDEFINE GET oG40 VAR nVedp_ap PICTURE '99,999.99' ID 210 OF oDlg UpDate
//-------------------------------------------------------------------
Function PcVenda() // - Calculo do preço de Venda a Vista e a Prazo.
Local nTx_juro:=10
nVedp = ((nMargem/100)*nCstp)+(nCstp)
nVedp_ap = ((nTx_juro /100)*nVedp)+(nVedp)
Return .t.
//----------------------------------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 30/07/2012 17:58:36
-
Ver se vc consegue acessar esse link abaixo
Reg 50 - Notas fiscais E/S (o que determina o tipo de operação - entrada, saÃda, transf etc. é o CFOP)
Reg 54 - Itens das Notas Fiscais E/S
https://skydrive.live.com/?cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125
Caso não consiga lhe mando por email.
Att.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Em nosso caso são seis empresas, e os Cert. Digitais
mod A3 são da CertSign - felizmente, para renovar é
bem mais rápido pois fazemos diretamente em nossa cidade na Associação Comercial - Vou fazer o possÃvel para que as próximas renovações sejam feitas pelo CertSign.
Já a Serasa no próximo ano se for para renovar terá que ser feita em Salvador, pois a renovação online só é uma vez.
Abraços...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Certificado Digital – A1 – Nfe – Serasa
Renovação do certificado Digital – só poderá ser feita através do W7 – não há mais permissão para renovar pelo XP – por questão de segurança – V2 de 4096 bits.
Instalar na máquina – Capicon (Microsoft) - .Net 4.0 (Microsoft)
Baixar os manuais: Teste de Assinatura Digital – Instrução para configuração dos Plugins Active X para o IE 8 e IE 9.
Fazer as alterações propostas na configuração dos Plugins do Active X – e após fazer o Teste de Assinatura Digital do(s) Certificado(s) já Instalado(s). - Fazer a renovação diretamente do site.
Para a exportação: usar a opção de chave privada – caso contrário - quando for instalação ele não será instalado na aba (Pessoal) – Não tente exportar do XP pois a opção de chave privada vem oculta – nesse caso ele instala na aba Outras Pessoas. – (Vc vai ter problemas)
Quanto for instalar no IE8 ou IE9 ir em: Ferramentas -> Opções da Internet ->Guia de Segurança – desmarque a opção – Verificar revogação de certificado do servidor. (no IE7 já vem desmarcado) – instalação poderá ser feita no XP – W7 todos que fiz testes). Caso não desmarque essa opção o certificado não será reconhecido.
Algumas dessas informações colhi na internet e foram de grande valia – outras foi levando porrada....
Espero ter ajudado alguém...
Abraços...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Certificado Digital – A1 – Nfe – Serasa
Renovação do certificado Digital – só poderá ser feita através do W7 – não há mais permissão para renovar pelo XP – por questão de segurança – V2 de 4096 bits.
Instalar na máquina – Capicon (Microsoft) - .Net 4.0 (Microsoft)
Baixar os manuais: Teste de Assinatura Digital – Instrução para configuração dos Plugins Active X para o IE 8 e IE 9.
Fazer as alterações propostas na configuração dos Plugins do Active X – e após fazer o Teste de Assinatura Digital do(s) Certificado(s) já Instalado(s). - Fazer a renovação diretamente do site.
Para a exportação: usar a opção de chave privada – caso contrário - quando for instalação ele não será instalado na aba (Pessoal) – Não tente exportar do XP pois a opção de chave privada vem oculta – nesse caso ele instala na aba Outras Pessoas. – (Vc vai ter problemas)
Quanto for instalar no IE8 ou IE9 ir em: Ferramentas -> Opções da Internet ->Guia de Segurança – desmarque a opção – Verificar revogação de certificado do servidor. (no IE7 já vem desmarcado) – instalação poderá ser feita no XP – W7 todos que fiz testes). Caso não desmarque essa opção o certificado não será reconhecido.
Algumas dessas informações colhi na internet e foram de grande valia – outras foi levando porrada....
Espero ter ajudado alguém...
Abraços...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Avelino.
Não podemos atribuir a internet os erros que cometemos ao escrever. Uma dica que utilizo é escrever o texto no Word
e depois copia-lo. Assim, cometo menos erros.
Queria lhe informar que em seu site você refere-se ao
programa de Odontologia e que podemos baixar um programa de
demonstrção o qual você chama de "demo" quando tentamos baixar o referido não aparece o link ou coisa parecida.
Não gosto de chamar meus programas de "demo" é que demo em português é abreviatura "do coisa ruim".
Abraços.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 22/06/2012 17:34:01
Editado por - oziel on 22/06/2012 17:36:49
-
Cara..
Eu uso o Logmein versão Free e Pro, já faz mais de cinco anos
e com uma conexão boa, não tenho problemas.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Cara vc instalou o Capicon e DotNet (Microsoft),pois eu tenho um token Serasa e funcionou perfeito -
DEPOIS DOS PROGS ACIMA FOI INSTALADO O AICCERTISIGN PROG DA CERTSIGN. E VC ESCOLHE O MODELO DO TOKEN LEITOR DE CARTÃO.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ideia é interessante, no meu caso tive que deixar meu prog.
de estoque por causa da homologação do ECF, e depois vinheram os outros problemas, estou na área de Psicologia Ocupacional e Medicina do Trabalho, e tb em Custo de Transporte.
Vamos seguir em frente, pois fico triste quando leio que os pessoas estão abandonando seus programas.
Vamos ver em relação a um capital inicial, ou quota mensal, pois se for do meu alcance tb contribuirei.
ATT
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Na condição abaixo o OrdScope() seleciona o intervalo das Idades A e B - mais não consegui resultados com os outros
filros exemplo: Sexo = M - Grau = 2 - Area = Vendas.
//------------------------------------
Cadastro->(DbSetOrder(4))
Cadastro->(DbGoTop())
Cadastro->(OrdScope(0,str(oIdadeA,2)))
Cadastro->(OrdScope(1,str(oIdadeB,2)))
//------------------------------------
Tentei.
//-----------------------------------------------
Cadastro->(OrdScope(0,str(cSexo,1)+str(cGrau,1)+(str(oIdadeA,2))))
Cadastro->(OrdScope(1,str(cSexo,1)+str(cGrau,1)+(str(oIdadeB,2))))
//-----------------------------------------------
Mais o Browse vem em branco.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Colegas.
Faço essa pesquisa com várias variaveis e só consegui com o SET FILTER, mais na rede fica bem lenta, demora de 08 seg em diante, na maq. local é instantânea. Outras pesquisas que fiz no prog. com datas fiz com OrdScope() e ficou perfeita.
Filtro com 05 variaveis:
Intervalo entre IdadeA e IdadeB - Sexo - Grau - Area
Alguem tem alguma dica.
Vejam:
// Criando arquivo temporario
Hora = Time()
Hora_Rand = Space(6)
Hora_Rand = Subst(Hora,1,2)+Subst(Hora,4,2)+Subst(Hora,7,2)
CL = "CL"+LTRIM(Subst(Hora_Rand,1,6)) // arq. temporario.
//----------------------------------------------------------
Sele Cadastro
Index on Nome+Idade TAG CADIDADE to ".\temp\&CL" While Idade <= oIdade2 // oIdade = Caracteres
Sele Cadastro
Set Index to ".\temp\&CL" // arq. temp.
DbGotop()
oIdadeA = 0
oIdadeB = 0
oIdadeA = Val(oIdade1)-1 //
oIdadeB = Val(oIdade2)+1
Set Filter to Idade > str(oIdadeA,2) .and. Idade < str(oIdadeB,2) .and. Sexo = cSexo .and. Grau = cGrau .and. Area = cArea
//----------------------------------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 31/01/2012 18:23:20
-
Colegas.
Faço essa pesquisa com várias variaveis e só consegui com o SET FILTER, mais na rede fica bem lenta, demora de 08 seg em diante, na maq. local é instantânea. Outras pesquisas que fiz no prog. com datas fiz com OrdScope() e ficou perfeita.
Filtro com 05 variaveis:
Intervalo entre IdadeA e IdadeB - Sexo - Grau - Area
Alguem tem alguma dica.
Vejam:
// Criando arquivo temporario
Hora = Time()
Hora_Rand = Space(6)
Hora_Rand = Subst(Hora,1,2)+Subst(Hora,4,2)+Subst(Hora,7,2)
CL = "CL"+LTRIM(Subst(Hora_Rand,1,6)) // arq. temporario.
//----------------------------------------------------------
Sele Cadastro
Index on Nome+Idade TAG CADIDADE to ".\temp\&CL" While Idade <= oIdade2 // oIdade = Caracteres
Sele Cadastro
Set Index to ".\temp\&CL" // arq. temp.
DbGotop()
oIdadeA = 0
oIdadeB = 0
oIdadeA = Val(oIdade1)-1 //
oIdadeB = Val(oIdade2)+1
Set Filter to Idade > str(oIdadeA,2) .and. Idade < str(oIdadeB,2) .and. Sexo = cSexo .and. Grau = cGrau .and. Area = cArea
//----------------------------------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 31/01/2012 18:23:20
-
Cara.
*No Setor Privado - Trablho na área de Gestão de Contas e Resultados,
*Sou prof. da Rede Publica Estadual (Ciencias Humanas e Fisica).
*Desenvolvi para a empresa que trabalho vários programas em DOS e principal é o de Gestão de Transporte. No ambiente Windows, desenvolvi outro programa para Cadastro de Curriculos e Psicologia Ocupacional - com esse programa também fazemos o controle de Medicina do Trabalho - com Consultas Médicas - e controle ASO (Atestado de Saude Ocupacional) - Anamnese - das Consultas e Resultados dos Exames - Consultas Periodicas anuais. - Controle de Atestados Médicos - Controle de Admitidos e Demitidos.
Produzido em FWh 6.12 - BCC - 5.5 e PellesC
Qualquer dúvida pode entrar em contato comigo tb pelo e-mail
oziellsilva@hotmail.com
ATT.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Antes de mais nada.... eu sei que é um glichê, mais ao
longo da vida vamos descobrindo que manda a mensagem de
coração ou simplesmente pro forma.
Então...
Feliz 2012 para todos...
Que continuemos com saúde, paz e tb que continuemos sendo "gentis com os gentis e duros com os duros" (Abrahan Lincoln) e que essa comunidade continue fraterna.
Estendo os votos ao vossos familiares que considero o suporte de nossas vidas.
Em relação aos Spans tb estou recebendo... "não tá com nada..."
Att
Oziel Lopes e Familia.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Olha ai...
Funcionou perfeito, mais tive que fazer uma alteraçãozinha.
Está mostrando com ordem de data e em ord. alfabética.
Veja como ficou...
Atende->(OrdScope(0,(Dtos(dData1))))
Atende->(OrdScope(1,(Dtos(dData2))))
Grato.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Obrigado...
Vou testar...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Utilizo o OrdScope(), como está abaixo e
tenho o retorno de datas: Inicial e Final.
Agora estou precisando tb que seja organizado
Data+Nome, já fiz várias tentativas e não obtive sucesso,
na reorganização dos Indices tentei Dtos(Consulta)+Nome ...
o filtro não funcionou, o browse veio todos os dados do banco.
//---- Vejam Criando Indices -----
INDEX ON CONSULTA TAG AT_CONS2 TO ATENDE;
...
//---- Data para Filtrar ---------------------------------
dData1 = DATE()
dDAta2 = DATE()
DEFINE DIALOG oDlg RESOURCE "DATA"
...
REDEFINE GET oG130 VAR dDATA1 PICTURE '99/99/9999' ID 126 OF oDlg
REDEFINE GET oG131 VAR dDATA2 PICTURE '99/99/9999' ID 127 OF oDlg Valid dData2 >= dData1
//---- no final do Browse ---------------------------------
.....
Atende->(OrdScope(0,dData1))
Atende->(OrdScope(1,dData2))
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 27/12/2011 16:51:02
-
Utilizo o OrdScope(), como está abaixo e
tenho o retorno de datas: Inicial e Final.
Agora estou precisando tb que seja organizado
Data+Nome, já fiz várias tentativas e não obtive sucesso,
na reorganização dos Indices tentei Dtos(Consulta)+Nome ...
o filtro não funcionou, o browse veio todos os dados do banco.
//---- Vejam Criando Indices -----
INDEX ON CONSULTA TAG AT_CONS2 TO ATENDE;
...
//---- Data para Filtrar ---------------------------------
dData1 = DATE()
dDAta2 = DATE()
DEFINE DIALOG oDlg RESOURCE "DATA"
...
REDEFINE GET oG130 VAR dDATA1 PICTURE '99/99/9999' ID 126 OF oDlg
REDEFINE GET oG131 VAR dDATA2 PICTURE '99/99/9999' ID 127 OF oDlg Valid dData2 >= dData1
//---- no final do Browse ---------------------------------
.....
Atende->(OrdScope(0,dData1))
Atende->(OrdScope(1,dData2))
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 27/12/2011 16:51:02
-
Segundo um informe que tenho aqui na empresa, o envio será no mês de março/2012 com os arquivos de Jan/fev/2012. Não haverá necessidade de enviar mais o ano de 2011.
Vou prov. a normativa.
ATT
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
De uma olhada no site da Nextg - da Intel -
Next Generation Center pois lá tem curso de Governança em TI
é gratuito e tem certificado, vc se cadastra etc..
tem que completar o curso em dois meses.
http://www.nextg.com.br/home.aspx
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ao que me parece existe uma dll(PCSCALE.DLL)
Aqui para o sistema capturar utilizava um prog chamado PRLERBAL da filizola que fazemos teste para verificação se o sist esta capturando o peso ok.
A modelo que utilizamos na empresa é MF.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Cara
Vamos ver se te ajudo.
Uso o xHarbour 0.99.71 - Borland 5.551 - xDev 0.70
No xDev em Propriedades - Configurção de Compiladores os seguintes parâmetros são Sim (/M /N SQL LIB antes das Libs do FW - Rdd DBFCDX)
Abri uma subpasta no proj. chamada DLL32 com os arquivos: bwcc32.dll - dll32emu.dll - Freeimag.dll - Prev32.dll
Alterações no programa Principal.
#Include "FiveWin.ch"
#Include ...
#Define CLR_LGRAY RGB(192,192,192)
ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto
REQUEST DBFCDX, DBFFPT
....................................
FUNCTION Main()
LOCAL oBar, oBtn
LOCAL oBmp
LOCAL oIcon
Request DBFCDX
RddSetDefault("DBFCDX")
DBSETDRIVER("DBFCDX")
SetHandleCount( 200 )
Set ...
....
hBorland := LoadLib32(".\Dll32\BWCC32.DLL") // Colocado FHW
BWCCRegister(GetResources()) // Colocado FHW
.........
ACTIVATE WINDOW oWndMain MAXIMIZED
RETURN NIL
DLL32 FUNCTION BWCCRegister(hInst AS LONG) AS WORD PASCAL LIB ".\DLL32\BWCC32.DLL" // Colocado FHW
//---- Fim da Funçao Main()
Essas DLL não lembro que me enviou, mais qq dúvida me avise que eu lhe mando, lembre-se que as versões são diferentes.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
SET DATE
in Programação
Posted
Padroes de Data aceitos.
ANSI - American National Standards Institute
Vejam a tabela:
AMERICAN mm/dd/yy (Americano)
ANSI yy.mm.dd (Inst. Nacional de Padrão Americano)
BRITISH dd/mm/yy (Britânico)
FRENCH dd/mm/yy (Francês)
GERMAN dd.mm.yy (Alemão)
ITALIAN dd-mm-yy (Italiano)
JAPAN yy/mm/dd (Japonês)
USA mm-dd-yy (Estados Unidos da América)
Vejam que o padrão ANSI - coloca pontos no lugar das barras, e não é britânico é americano. Portando são três padrões americanos (ANSI-American-USA)
Abraços.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.