lecojales

01-roberio------- 42 02-luisao-------- 21 03-ico----------- 44 04-emotta-------- 32 05-dorneles------ 39 06-vagner-------- 48 07-giovanyvecchi- 39 08-kleyber------- 46 09-CleitonSH----- 32 10-Theotokos----- 39 11-EMPRESOFT----- 39 12-betovsp------- 39 13-S.A.Oliveira-- 53 14-reneumg------- 43 15-CIACPD-------- 39 16-netsys-------- 48 17-sambomb------- 23 18-LUIS---------- 43 19-Evandro------- 55 20-henning------- 32 21-Aloizio------- 39 22-Decker-------- 51 23-Leco Jales---- 35 24-elitenet------ 33 25-joaosolution-- 33 -----------------987/25 = 39.48 Five PPC Harbour 1.0.1 - 1999-2008

01-roberio------- 42 02-luisao-------- 21 03-ico----------- 44 04-emotta-------- 32 05-dorneles------ 39 06-vagner-------- 48 07-giovanyvecchi- 39 08-kleyber------- 46 09-CleitonSH----- 32 10-Theotokos----- 39 11-EMPRESOFT----- 39 12-betovsp------- 39 13-S.A.Oliveira-- 53 14-reneumg------- 43 15-CIACPD-------- 39 16-netsys-------- 48 17-sambomb------- 23 18-LUIS---------- 43 19-Evandro------- 55 20-henning------- 32 21-Leco Jales---- 35 -----------------831/21 = 39,5 Leco Jales Clipper desde 89/90 Delphi em 97 Xharbour+wvw_tools Five PPC - por enquanto estou apanhando desta danada afff.. Five PPC Harbour 1.0.1 - 1999-2008

Gostaria de fazer em meu sistema isso também. Se você puder disponibilizar um arquivos já gerado, e validado, já facilita bastante. No caso de vocês estarem me ajudando a implementar isso em meu sistema. Qual seria o valor? Obrigado. Leco. citação:Prezado, A responsabilidade e total da Empresa, seja o arquivo gerado pelo Contador ou pela Empresa, porém, se a Empresa possui software onde controla entrada(Compras) e saídas(vendas) de mercadoria, porque não gerar o arquivo SPED automaticamente, evitando re-trabalho. Já temos em nossos sistemas a geração do SPED, caso pudermos ajudar, nos colocamos a sua disposição. id=quote>id=quote>Five PPC Harbour 1.0.1 - 1999-2008

O Token fica simplesmente a assinatura digital, é igual ao A1 " Arquivo " e o A3 Cartão. Toda a responsabilidade de armazenamento é do software que emitiu. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Pessoal resolvi a questão do foco: eu chamava assim: ACTIVATE DIALOG oDlgPesq On Init oDlgPesq:Move(0,0) passei a chamar assim: ACTIVATE DIALOG oDlgPesq On Init oDlgPesq:Move(0,0) On Paint oPesq:SetFocus() Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

*------------------------------------------------------------------------------- Static Function _Pesq(cModulo,nKey,oPesq,cPesq,nOrdem,oBrwPesq) Local lRet:=.T. if nKey == 8 cPesq = SubStr( cPesq, 1, Len( cPesq ) - 1 ) else cPesq += Upper( Chr( nKey ) ) endif oPesq:VarPut(cPesq) oPesq:Refresh() If nOrdem==1 If cModulo=="CL" If !Clientes->(Dbseek(StrZero(Val(cPesq),6))) MsgInfo("Cliente não encontrado no cadastro, verifique o código...","Clientes") lRet:=.F. End Else If !Produtos->(Dbseek(StrZero(Val(cPesq),10))) MsgInfo("Produto não encontrado no cadastro, verifique o código...","Produtos") lRet:=.F. End if substr(Produtos->nome,1,2) == "ZZ" MsgInfo("Produto INATIVO!!!","Produtos") lRet:=.F. End End Else If cModulo=="CL" Clientes->(Dbseek(AllTrim(cPesq),.t.)) Else Produtos->(Dbseek(AllTrim(cPesq),.t.)) End End oBrwPesq:Refresh() ///oBrwPesq:SetFocus() oPesq:SetFocus() Return lRet id=code>id=code>Five PPC Harbour 1.0.1 - 1999-2008

Kabiaba, não dá, pois conforme vai digitando já vai pesquizando, por isso não posso usar a clausula valid. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Acho que não, pois uso a mesma rotina para pesquizar o produto e o cliente. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Ainda não deu certo. Está assim, com xfocus, e private no opesq: *------------------------------------------------------------------------------- Static Function MostraClie(lModo,oWndFol) Local oDlgPesq,oBrwPesq,lSel:=.F. Local nOrdCli:=Clientes->(IndexOrd()),nRegCli:=Clientes->(RecNo()) Local cPesq:=Space(40),oOrdem,nOrdem:=2,nKey Private oPesq DbSelectArea("Clientes") Clientes->(DbSetOrder(2)) Clientes->(DbGoTop()) DEFINE DIALOG oDlgPesq RESOURCE "PESQUISAS" OF oWndFol Redefine ListBox oBrwPesq Fields Clientes->CODIGO, Clientes->RAZAO_SOC,substr(Clientes->RAZAO_SOC,21,20),Clientes->Cidade ; Headers "Codigo" ,"Nome" ,"SobreNome" ,"Cidade" ID 49 Of oDlgPesq On DblCLick (lSel:=.T.,oDlgPesq:End()) oBrwPesq:bKeyChar:={|nKey| _Pesq("CL",nKey, oPesq,@cPesq,nOrdem,oBrwPesq)} Redefine Radio oOrdem Var nOrdem ID 48,50 of oDlgPesq On Change _MudaOrdem("CL",oBrwPesq,nOrdem,oPesq) Redefine Get oPesq VAR cPesq ID 47 Pict "@!" of oDlgPesq On Change _Pesq("CL",@nKey,oPesq,@cPesq,nOrdem,oBrwPesq) REDEFINE BUTTON oBtn1 ID 206 OF oDlgPesq ACTION (lSel:=.T.,oDlgPesq:End()) REDEFINE BUTTON ID 51 OF oDlgPesq ACTION DetCLientes() REDEFINE BUTTON ID 207 OF oDlgPesq ACTION oDlgPesq:End() If lModo obtn1:SetText("&Sair") End xFocus(oPesq) ACTIVATE DIALOG oDlgPesq On Init oDlgPesq:Move(0,0) If lSel .And. !lModo oCodCli:VarPut(Clientes->CODIGO) oNomCli:VarPut(Clientes->RAZAO_SOC) oNomCli:Refresh() oCodCli:Refresh() oNumNf:SetFocus() End Return .T. id=code>id=code>Five PPC Harbour 1.0.1 - 1999-2008

Achei e estou usando assim: xFocus(oPesq) Mas não funcionou não. no forum está assim as rotinas *------------------------------------------------------------------------------- FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE Timer _oTempo Interval 10 of _oWnd ; Action ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE Timer _oTempo RETURN( .T. ) *------------------------------------------------------------------------------- FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) id=code>id=code>Five PPC Harbour 1.0.1 - 1999-2008

Gostaria que o foco ficasse em oPesq:SetFocus() , mas ao mostrar a janela não fica. *----------------------------------------------------------- static Function MostraClie(lModo,oWndFol) Local oDlgPesq,oBrwPesq,lSel:=.F. Local nOrdCli:=Clientes->(IndexOrd()),nRegCli:=Clientes->(RecNo()) Local oPesq,cPesq:=Space(40),oOrdem,nOrdem:=2,nKey DbSelectArea("Clientes") Clientes->(DbSetOrder(2)) Clientes->(DbGoTop()) DEFINE DIALOG oDlgPesq RESOURCE "PESQUISAS" OF oWndFol Redefine ListBox oBrwPesq Fields Clientes->CODIGO, Clientes->RAZAO_SOC,substr(Clientes->RAZAO_SOC,21,20),Clientes->Cidade ; Headers "Codigo" ,"Nome" ,"SobreNome" ,"Cidade" ID 49 Of oDlgPesq On DblCLick (lSel:=.T.,oDlgPesq:End()) oBrwPesq:bKeyChar:={|nKey| _Pesq("CL",nKey, oPesq,@cPesq,nOrdem,oBrwPesq)} Redefine Radio oOrdem Var nOrdem ID 48,50 of oDlgPesq On Change _MudaOrdem("CL",oBrwPesq,nOrdem,oPesq) Redefine Get oPesq VAR cPesq ID 47 Pict "@!" of oDlgPesq On Change _Pesq("CL",@nKey,oPesq,@cPesq,nOrdem,oBrwPesq) REDEFINE BUTTON oBtn1 ID 206 OF oDlgPesq ACTION (lSel:=.T.,oDlgPesq:End()) REDEFINE BUTTON ID 51 OF oDlgPesq ACTION DetCLientes() REDEFINE BUTTON ID 207 OF oDlgPesq ACTION oDlgPesq:End() If lModo obtn1:SetText("&Sair") End oPesq:SetFocus() ACTIVATE DIALOG oDlgPesq On Init oDlgPesq:Move(0,0) If lSel .And. !lModo oCodCli:VarPut(Clientes->CODIGO) oNomCli:VarPut(Clientes->RAZAO_SOC) oNomCli:Refresh() oCodCli:Refresh() oNumNf:SetFocus() End Return .T. id=code>id=code> Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 10/06/2011 15:56:03

Gostaria que o foco ficasse em oPesq:SetFocus() , mas ao mostrar a janela não fica. *----------------------------------------------------------- static Function MostraClie(lModo,oWndFol) Local oDlgPesq,oBrwPesq,lSel:=.F. Local nOrdCli:=Clientes->(IndexOrd()),nRegCli:=Clientes->(RecNo()) Local oPesq,cPesq:=Space(40),oOrdem,nOrdem:=2,nKey DbSelectArea("Clientes") Clientes->(DbSetOrder(2)) Clientes->(DbGoTop()) DEFINE DIALOG oDlgPesq RESOURCE "PESQUISAS" OF oWndFol Redefine ListBox oBrwPesq Fields Clientes->CODIGO, Clientes->RAZAO_SOC,substr(Clientes->RAZAO_SOC,21,20),Clientes->Cidade ; Headers "Codigo" ,"Nome" ,"SobreNome" ,"Cidade" ID 49 Of oDlgPesq On DblCLick (lSel:=.T.,oDlgPesq:End()) oBrwPesq:bKeyChar:={|nKey| _Pesq("CL",nKey, oPesq,@cPesq,nOrdem,oBrwPesq)} Redefine Radio oOrdem Var nOrdem ID 48,50 of oDlgPesq On Change _MudaOrdem("CL",oBrwPesq,nOrdem,oPesq) Redefine Get oPesq VAR cPesq ID 47 Pict "@!" of oDlgPesq On Change _Pesq("CL",@nKey,oPesq,@cPesq,nOrdem,oBrwPesq) REDEFINE BUTTON oBtn1 ID 206 OF oDlgPesq ACTION (lSel:=.T.,oDlgPesq:End()) REDEFINE BUTTON ID 51 OF oDlgPesq ACTION DetCLientes() REDEFINE BUTTON ID 207 OF oDlgPesq ACTION oDlgPesq:End() If lModo obtn1:SetText("&Sair") End oPesq:SetFocus() ACTIVATE DIALOG oDlgPesq On Init oDlgPesq:Move(0,0) If lSel .And. !lModo oCodCli:VarPut(Clientes->CODIGO) oNomCli:VarPut(Clientes->RAZAO_SOC) oNomCli:Refresh() oCodCli:Refresh() oNumNf:SetFocus() End Return .T. id=code>id=code> Leco Jales Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 10/06/2011 15:56:03

Bom dia. A empresa em questão é simples nacional ou regime normal? A NF é Eletrônica ou comum? Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

É Luisão, só você me ajudou, e eu ainda teimei. O Pior, é que você tinha razão. Só precisei adicionar a seguinte linha oBrwPed:SetArray(aPed) depois dar refresh, e BINGOOOOOOOOOOOOO. Muito obrigado, e desculpe a teimosia. Leco Jales Fivewin PPC Five PPC Harbour 1.0.1 - 1999-2008

Luisão, valeu pela dica mas não é não. Se alguém mais puder me ajudar. Leco Jales Fivewin PPC Five PPC Harbour 1.0.1 - 1999-2008

O erro abaixo é que troquei o conteúdo de uma variável, mas não consigo encontrar em qual lugar do sistema ocorre, alguém tem alguma dica? Bound error array access Args: [ 1] = A { ... } [ 2] = N 2 stack calls: (b)ABREPEDIDOS(151) (b)TWBROWSE(0) TWBROWSE:DRAWLINE(0) TWBROWSE:PAINT(0) TWBROWSE:DISPLAY(0) TWBROWSE:HANDLEEVENT(0) _FWPPC(0) WINRUN(0) TWINDOW:ACTIVATE(0) MAIN(81) Leco Jales FiveWin PPC Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 09/06/2011 17:44:56

O erro abaixo é que troquei o conteúdo de uma variável, mas não consigo encontrar em qual lugar do sistema ocorre, alguém tem alguma dica? Bound error array access Args: [ 1] = A { ... } [ 2] = N 2 stack calls: (b)ABREPEDIDOS(151) (b)TWBROWSE(0) TWBROWSE:DRAWLINE(0) TWBROWSE:PAINT(0) TWBROWSE:DISPLAY(0) TWBROWSE:HANDLEEVENT(0) _FWPPC(0) WINRUN(0) TWINDOW:ACTIVATE(0) MAIN(81) Leco Jales FiveWin PPC Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 09/06/2011 17:44:56

Boa tarde, pessoal uso FIVE PPC, Pocket. Precisaria debugar o programa, ou sei lá como descobrir este erro, pois ele só acontece se eu altero um pedido. Se eu ficar incluindo ele não ocorre, o mais estranho é que são varias rotinas compartilhadas, o erro deve estar na cara mas não vejo. Toda ajuda é bem vinda, pois estou a 2 dias brigando com isso. Bound error array access Args: [ 1] = A {...} [ 2] = N 2 stack calls: (b)ABREPEDIDOS(151) (b)TWBROWSE(0) ...... Leco Jales Five PPC Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Five PPC Harbour 1.0.1 - 1999-2008

Boa tarde, pessoal uso FIVE PPC, Pocket. Precisaria debugar o programa, ou sei lá como descobrir este erro, pois ele só acontece se eu altero um pedido. Se eu ficar incluindo ele não ocorre, o mais estranho é que são varias rotinas compartilhadas, o erro deve estar na cara mas não vejo. Toda ajuda é bem vinda, pois estou a 2 dias brigando com isso. Bound error array access Args: [ 1] = A {...} [ 2] = N 2 stack calls: (b)ABREPEDIDOS(151) (b)TWBROWSE(0) ...... Leco Jales Five PPC Harbour 1.0.1dev Intl. (Rev. 9361) Copyright © 1999-2008, http://www.harbour-project.org/ Five PPC Harbour 1.0.1 - 1999-2008

Valeu Luisão. Como não estou em rede, nem me passou isso pela cabeça afff.. Obrigado. Leco Jales Five PPC Five PPC Harbour 1.0.1 - 1999-2008

FivePPC 3 x Leco 0 Pessoal, estou tomando um coro da FIVEPPC, não sei porque, não quer deletar, e passa pelas mensagem. msginfo("1") if Item_sai->(DbSeek(vwserie+vwnumero)) msginfo("2") While Item_sai->SERIE == vwserie .And. Item_sai->NOTA_FISCA == vwnumero .And. Item_sai->(!Eof()) msginfo("Alias"+str(recno())) Item_sai->(delete()) Item_sai->(DbSkip(1)) End endif msginfo("3") if Sai_Est->(DbSeek(vwserie+vwnumero)) msginfo("4") Sai_Est->(delete()) endif Leco Jales Five PPC Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 01/06/2011 15:55:57

FivePPC 3 x Leco 0 Pessoal, estou tomando um coro da FIVEPPC, não sei porque, não quer deletar, e passa pelas mensagem. msginfo("1") if Item_sai->(DbSeek(vwserie+vwnumero)) msginfo("2") While Item_sai->SERIE == vwserie .And. Item_sai->NOTA_FISCA == vwnumero .And. Item_sai->(!Eof()) msginfo("Alias"+str(recno())) Item_sai->(delete()) Item_sai->(DbSkip(1)) End endif msginfo("3") if Sai_Est->(DbSeek(vwserie+vwnumero)) msginfo("4") Sai_Est->(delete()) endif Leco Jales Five PPC Five PPC Harbour 1.0.1 - 1999-2008 Editado por - lecojales on 01/06/2011 15:55:57

Eu uso com o DBFNTX e funciona, quanto tentei usar com o CDX tive muita dor de cabeça. Você está carregando o drive CDX certinho? Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Nunca usei estes. A muito tempo atrás eu usei um da symantec, mas só roda em win98. Uma outra maneira que encontrei de recuperar é abrir o dbf em modo texto, e fazer a importação no braço. Leco Jales Five PPC Harbour 1.0.1 - 1999-2008

Blz, muito obrigado a todos. Já que não tem jeito, vai ficar picotado mesmo. Leco Jales