roberio

Boa Tarde. Amigo Voce ja encontrou a soluçao ?

vc pode enviar o demo pra mim ? mmsi.sistemas@gmail.com

Amigos com a dica do Alexandre baixei o harbourboleto e compilei com xhabour ta gerando os boletos. muito simnples de implementar. agora irei ver como gerar o arquivo remessa. fica a dica http://sourceforge.net/projects/harbourboleto/?source=directory FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Amigos com a dica do Alexandre baixei o harbourboleto e compilei com xhabour ta gerando os boletos. muito simnples de implementar. agora irei ver como gerar o arquivo remessa. fica a dica http://sourceforge.net/projects/harbourboleto/?source=directory FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Amigos com a dica do Alexandre baixei o harbourboleto e compilei com xhabour ta gerando os boletos. muito simnples de implementar. agora irei ver como gerar o arquivo remessa. fica a dica http://sourceforge.net/projects/harbourboleto/?source=directory FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Ola alguem conseguiu compilar com xHarbour? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

obrigado a todos resolvido com o link http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25079&p=136455#p136455 FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

kapiaba não sei o termo usado se é assinar ou autenticar ou outro nome, vi algo no fórum internacional há algum tempo atrás, só não encontro o topic. ale_bass Depende de certificado? que certificado? acho que seja outra coisa o que você esta falando. bom irei procurar de novo no fórum internacional. obrigado a todos. FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

sambomb nao uso pelles C mesmo assim obrigado. FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

FUN->(DbSetOrder("FUN3")) // ex de onde vem o FUN3: INDEX ON fun->seucampo TAG FUN3 TO FUN Set( 9, "On" ) FUN->(DbSeek(tlotaini)) Set( 9, "Off" ) If FUN->(Eof()) FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

amigos do forum Alguem sabe como "assinar" um executavel para que mostre em propriedades os dados do desenvolvedor? vi algo no forum internacional mais faz um tempo.. procurei e nao encontrei obrigado FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Editado por - roberio on 25/10/2012 16:20:41 Editado por - roberio on 29/10/2012 03:02:19

amigos do forum Alguem sabe como "assinar" um executavel para que mostre em propriedades os dados do desenvolvedor? vi algo no forum internacional mais faz um tempo.. procurei e nao encontrei obrigado FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Editado por - roberio on 25/10/2012 16:20:41 Editado por - roberio on 29/10/2012 03:02:19

esse link explica http://blogdosped.blogspot.com.br/2012/04/sped-nf-e-faq-manifestacao-do.html a flexdocs tem chave para versao da manifestação do destinatário e chaves para versoes anteriores. pq isso? depois tem que alterar todas as chaves antigas. :/ hbnfe boa ideia para classe do gilmer FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Editado por - roberio on 25/10/2012 05:13:11

dica aconselho sempre estar atualizado com fwh & (x)habour, recebo semestralmente pagando um pouco por mês, nao tenho trabalho para atualiza pois sempre estou com uma versao proxima da versao final... outra coisa que faço eh sempre usar classes nativas do fwh. estranho que esse seu erro nao tenha acontecido antes neh?... acho q seja alguma logica de programacao... pode tb criar um dbf novo e dah um append do velho para o novo FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Editado por - roberio on 16/10/2012 11:28:34

ar-siste encontrei em: harbour 3.0 http://sourceforge.net/projects/harbour-project/files/latest/download deu erro ao compilar E:\FWH1205\MULTI2G\MRBOLETO.PRG(170) Error E0030 Syntax error: "syntax error at '...'" E:\FWH1205\MULTI2G\MRBOLETO.PRG(1585) Error E0030 Syntax error: "syntax error at '...'" 2 erro Editado por - roberio on 15/10/2012 20:05:18

ola O Arquivo de retorno acho que deve fica por conta de cada desenvolvedor(dar baixa automatica em seus sistemas etc.), o importante mesmo seria o arquivo de remessa. IMATECH soh nao encontro o arquivo hbzebra.ch para testar com xharbour, mesmo com os links que o amigo pastou no clipper online nao encontro FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

se alguem tem o arquivo hbzebra.ch por favor disponibilizar para download obrigado FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

bom gente tentei colocar o valid... ate executa o valid mais nao eh na hora de passar pelo campo, ta abrindo o a funcao do get ao chamar a funcao TESTE123(), nao sei pq segue o codigo: FUNCTION TESTE123() ***************** LOCAL aCampos := {} Aadd(aCampos, {"Código do Produto ", space(5) , "@!" , "cCodi" , '!Empty(cCodi)'}) // Adicione os campos a serem solicitados dessa forma: Aadd(aCampos, {"Descrição Produto ", space(20) , "@!" , "cDesc" , '!Empty(cDesc)'}) // Adicione os campos a serem solicitados dessa forma: Aadd(aCampos, {"Preço do Produto ", 0 , "@E 9,999,999.99" , "nPre1" , '!Empty(nPre1)'}) // Adicione os campos a serem solicitados dessa forma: Aadd(aCampos, {"Preço do Produto2 ", 0 , "@E 9,999,999.99" , "nPre2" , 'FuncDialog123(nPre1, nPre2)'}) // Adicione os campos a serem solicitados dessa forma: if !oaDialog(@aCampos) // Se Cancelar a digitação, o sistema retornará (.F.) Return(.F.) // O parâmetro cTitu é o título da janela (opcional) endif xbrowse(acampos) RETURN NIL ******************************************************************************************** Function oaDialog(aCampos,cTitu) // Cria Janela para Preenchimento de Variáveis // ******************************************************************************************** // Parâm. : Matriz de Campos, Título da Janela, Cor da Janela // Exemplo: Private DtFabri, DtValid // No programa que chama essa função, crie as variáveis como Privadas para ter o conteúdo delas retornado // Private aCampos := {} // Também, crie a matriz como Privada // Aadd(aCampos,{"Data da Fabricação", "DtFabri", mmDate , "@D"}) // Adicione os campos a serem solicitados dessa forma: // Aadd(aCampos,{"Data de Validade", "DtValid", CTOD(""), }) // - "Título do Campo", "Nome do Campo", "Conteúdo do Campo", "Picture" // if !oaDialog(aCampos) // Se Cancelar a digitação, o sistema retornará (.F.) // Return(.F.) // O parâmetro cTitu é o título da janela (opcional) // endif LOCAL NCOLS := LEN(ACAMPOS) LOCAL LOK :=.F. LOCAL COR_TELA := NIL //RGB(245,244,220) LOCAL ODLG LOCAL BOK[2] LOCAL NROW LOCAL NWIDHT LOCAL NHEIGHT LOCAL CPICTURE LOCAL I LOCAL OFONTSAY,OFONTGET,OFONTBIG LOCAL lRight LOCAL OGET[NCOLS] LOCAL OSAY[NCOLS] DEFAULT cTitu := "Informe os Dados" // DEFAULT cCor := nil //RGB(245,244,220) // Beje DEFINE FONT OFONTSAY NAME "TIMES NEW ROMAN" SIZE 0,-14 DEFINE FONT OFONTBIG NAME "TIMES NEW ROMAN" SIZE 0,-20 BOLD DEFINE FONT OFONTGET NAME "TIMES NEW ROMAN" SIZE 0,-14 BOLD //RGB(245,244,220) DEFINE DIALOG oDlg FROM 0,0 TO nCols*29+140,500 TITLE "Preencha os campos" FONT oFontSay OF ODLG PIXEL TRANSPARENT //COLOR CLR_BLACK,COR_TELA @ 005,005 SAY cTitu SIZE 200,13 FONT oFontBig COLOR CLR_BLUE,COR_TELA OF oDlg Pixel FOR i := 1 TO nCols nRow := (i*14)+20 nWidht := Len(iif(ValType(aCampos[i,2])="C",aCampos[i,2],Space(8))) * 3.8 + 10 // 5 nHeight := 13 cPicture := aCampos[i,3] lRight := .F. &(aCampos[i,4]) := aCampos[i,2] if cPicture==nil if ValType(aCampos[i,2])="C" cPicture := '@!' elseif ValType(aCampos[i,2])="N" cPicture := '@E 9,999,999.99' lRight := .T. elseif ValType(aCampos[i,2])="D" cPicture := '@D' else cPicture := '' endif endif // nRow ,nCol, bText , oWnd, cPicture, oFont ,lCentered, lRight, lBorder , lPixels , nClrText , nClrBack,nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised,lAdjust, lTransparent, cVarName ) OSAY := TSay():New(nRow+2, 010, ASetGet(aCampos,i,1), oDlg, , oFontSay, , , , .T. , CLR_BLACK, COR_TELA, 60 , 10 , , , , , , , .T. , ) // nRow , nCol, bSetGet , oWnd, nWidth , nHeight, cPict , bValid, nClrFore , nClrBack , oFont , lDesign , oCursor, lPixel , cMsg, lUpdate, bWhen, lCenter, lRight, bChanged, lReadOnly,lPassword, lNoBorder, nHelpId, lSpinner,bUp, bDown, bMin, bMax, bAction, cBmpName, cVarName, cCueText ) OGET := TGet():New(nRow , 074 , ASetGet(aCampos,i,2) , oDlg, nWidht , nHeight, cPicture, { &(aCampos[i,5])} , CLR_BLACK, CLR_WHITE, oFontGet , , , .T. , , , , , lRight, , , , , , , , , , , , , aCampos[i,4] , ) NEXT @ (i*14)+30,070 Buttonbmp bOk[1] PROMPT "&Continua" BITMAP "ENTRA" OF ODLG SIZE 49,17 ACTION (lOk:=.T., oDlg:End()) Pixel TEXTRIGHT @ (i*14)+30,131 Buttonbmp bOk[2] PROMPT "Cance&la" BITMAP "CANCE" OF ODLG SIZE 49,17 ACTION oDlg:End() Pixel TEXTRIGHT bOk[1]:CTOOLTIP := "Confirma os dados informados." bOk[2]:CTOOLTIP := "Cancela a digitação." @ 19,005 GROUP TO (i*14)+24,245 TRANSPARENT OF oDlg Pixel @ (i*14)+24,005 GROUP TO (i*14)+50,245 TRANSPARENT OF oDlg Pixel oDlg:lHelpIcon := .f. ACTIVATE DIALOG oDlg CENTERED RESIZE16 //ON PAINT GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { 0.50, COR_TELA, cCor } } ) Return( lOk ) *********************************** Static Function ASetGet(aArray,i,n) *********************************** Return bSETGET(aArray[n]) *--------------- Function FuncDialog123(nPar1, nPar2) If nPar1>nPar1 MsgAlert("nPar1 maior nPar2", "teste") elseIf nPar1=nPar1 MsgAlert("nPar1 igual nPar2", "teste") Else MsgAlert("nPar1 manor nPar2", "teste") Endif Return nil id=code>id=code>FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Editado por - roberio on 11/10/2012 19:16:09

funciona com xHarbour? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Legal para ficar mais porreta seria bom passar nos parametros as funcoes q valida os campos. ex: Aadd(aCampos,{"Data da Fabricação", "DtFabri", mmDate , "@D", "MinhaFuncao()"}) .... //TGet():New(nRow,,nCol, bSETGET(aVariaveis), oDlg, nWidht, nHeight, cPicture, {MinhaFuncao}, nClrFore , nClrBack, oFontGet, lDesignl, oCursor, lPixel, cMsg, lUpdate, {When}, lCenter, lRight) FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

obrigado por responder... o cliente ta querendo uma solucao com senha no bd para evitar que os registros sejam deletados via dbu... irei ver algo em TDolphin com mysql obrigado FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

sambomb a criptografia nao evita de deletar o arquivo com o dbu, neh? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Pessoal alguem sabe se eh possivel por senha em dbf com advantage database server? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

Pessoal alguem sabe se eh possivel por senha em dbf com advantage database server? FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

tb gostaria vlw FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX