adzdoni

Na sua rotina de adicionar registro falta a funcao FINALI() que deve ser um dbcommit() e dbunlock(), veja se é isto o problema. SELECT pCotacaoI IF AddRec(10) pCotacaoI->id_cotacao := aGetPedCompra.cot_id_cotacao pCotacaoI->item := nItem pCotacaoI->id_produto := Solicita->id_produto pCotacaoI->codbarra := Solicita->codbarra pCotacaoI->referencia := Solicita->referencia pCotacaoI->descricao := Solicita->descricao pCotacaoI->unidade := Solicita->unidade pCotacaoI->quantidade := Solicita->quantidade pCotacaoI->id_cr := Solicita->id_cr pCotacaoI->id_solic := Solicita->id_solic pCotacaoI->id_status := "1" ENDIF Select Solicita IF BloqReg(10) Solicita->seleciona := 0 Solicita->id_status := 4 Solicita->nm_status := "Cotacao" FINALI() ENDIF

Vagner veja os arquivos BCC32.CFG // DENTRO DA PASTA BCC55\BIN -IC:\bcc55\include;C:\xharbour\include -LC:\bcc55\lib;C:\xharbour\lib TLINK32.CFG /LC:\BCC55\lib ILINK32.CFG -LC:\BCC55\LIB;C:\xHARBOUR\LIB Donizete

Ola Vagner Seu email retornou. Segue exemplo usando hbmake para voce compilar digite = hbmake teste.bc (enter) se quiser acrescentar mais algum prg digite hbmake teste.bc /ex = (enter) ou se quiser criar um novo .bc =A0digite hbmake nome.bc /ex (enter) e responda conforme a tela do hbmake pede. Donizete // aqui teste.prg function main() cls alert("Ola, isto ‚ xHarbour puro.") return(.t.) // fim teste.prg // aqui seu arquivo teste.bc #BCC VERSION=BCB.01 !ifndef CC_DIR CC_DIR = $(MAKE_DIR) !endif !ifndef HB_DIR HB_DIR = $(HARBOUR_DIR) !endif RECURSE= NO SHELL = COMPRESS = YES EXTERNALLIB = NO XFWH = NO FILESTOADD = 5 WARNINGLEVEL = 0 USERDEFINE = USERINCLUDE = USERLIBS = EDITOR = edit GUI = NO MT = NO SRC02 = obj PROJECT = teste.exe $(PR) OBJFILES = $(SRC02)\TESTE.obj $(OB) PRGFILES = TESTE.PRG $(PS) OBJCFILES = $(OBC) CFILES = $(CF) RESFILES = RESDEPEN = TOPMODULE = TESTE.PRG LIBFILES = lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib EXTLIBFILES = DEFFILE = HARBOURFLAGS = -m -w0 CFLAG1 = -OS $(SHELL) $(CFLAGS) -d -c -L$(HB_DIR)\lib CFLAG2 = -I$(HB_DIR)\include;$(CC_DIR)\include RFLAGS = LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -ap IFLAGS = LINKER = ilink32 ALLOBJ = c0x32.obj $(OBJFILES) $(OBJCFILES) ALLRES = $(RESDEPEN) ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib .autodepend #DEPENDS #COMMANDS .cpp.obj: $(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $** .c.obj: $(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $** .prg.obj: $(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -o$* $** .rc.res: $(CC_DIR)\BIN\brcc32 $(RFLAGS) $< #BUILD $(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE) $(CC_DIR)\BIN\$(LINKER) @&&! $(LFLAGS) + $(ALLOBJ), + $(PROJECT),, + $(ALLLIB), + $(DEFFILE), + $(ALLRES) ! // fim do arquivo teste.bc

Vagner, fiz um exemplo com hbmake e enviei no seu email vwirts@ig.com.br Donizete

Fiz consulta a 2 anos atras na receita estadual do Parana, e a orientacao do atendente é que esta nota deve permanecer na situacao DENEGADA. Nao devo exclui-la, pois ela ja ficou registrada na receita. Voce deve deixar no seu sistema desta forma.

Só para lembrar, aqui no Parana voce deve informar o arquivo valida-pr ou sintegra das notas emitidas pelo sistema, lembro que o sistema SEFAZ/SP nao faz, mas seu sistema podera gerar o arquivo texto para o software do valida-pr, validar e transmitir. Para mais informacoes do valida-pr entre no google e pesquise validapr. Com relacao ao emissor gratuito ele é aceito normalmente porem veja com seu contador a senha do contribuinte no receita-pr, pois sem ela voce nao consegue fazer o pedido de uso de sistema eletronico. Donizete

No xharbour console uso assim, retirei do site bematech espanhol @ (++mLinha),01 say chr(29)+chr(86)+chr(48)

A numeracao será crescente, se na versao 1.4.5 voce estava na nota 100, na versao 2.0.7 a proxima sera 101, ou seja nao comeca do numero um.

Apos voce importar o seu .txt, na tela de gerenciar notas, clique em detalhar, editar, salvar, validar , assinar, transmitir. Isso podera acontecer outras vezes , mas não é frequente. O motivo de dar esta rejeição ainda não descobri.

Se voce tiver os .xml que o fiscal esta pedindo, faça o seguinte: Importe os arquivos .xml como voce faz com seu .txt, apos isto, va no menu notas fiscais , gerenciar notas, pesquisar, marque a nota que voce quer, clicar no botao imprimir danfe. Se os .xml foram gerados anteriormente pelo sistema da receita, dara certo. Donizete

Aos colegas que procuram informações sobre NFE, no forum da miniguibrasil encontrei algo do interesse de todos. Espero estar ajudando de alguma forma aos colegas deste forum. Grande abraço Donizete Leiam o texto abaixo: Prezados amigos Venho em primeira mão dizer que colocamos no ar um site sobre nota fiscal eletrônica, onde vocês encontraram o aplicativo desenvolvido para utilização gratuíta, com manual dizendo como se integra, com um artigo falando sobre a nfe, dificuldades, dicas, etc... www.unimake. com.br/nfe O Código fonte estaremos liberando dentro de alguns dias para quem quiser pegar e colaborar com o projeto ou fazer seu próprio aplicativo. Por enquanto ele já está adaptado para os estados do RS, MT e MG, até o final da semana vou inserir mais os estados de SC, SP e PR. Bom. Está ai nossa colaboração. Espero que todos façam um bom proveito deste projeto. Edson Mundin Ferreira P.S. Mudanças em manuais, e aplicativos serão sempre disponibilizados no site citado

Aos colegas que procuram informações sobre NFE, no forum da miniguibrasil encontrei algo do interesse de todos. Espero estar ajudando de alguma forma aos colegas deste forum. Grande abraço Donizete Leiam o texto abaixo: Prezados amigos Venho em primeira mão dizer que colocamos no ar um site sobre nota fiscal eletrônica, onde vocês encontraram o aplicativo desenvolvido para utilização gratuíta, com manual dizendo como se integra, com um artigo falando sobre a nfe, dificuldades, dicas, etc... www.unimake. com.br/nfe O Código fonte estaremos liberando dentro de alguns dias para quem quiser pegar e colaborar com o projeto ou fazer seu próprio aplicativo. Por enquanto ele já está adaptado para os estados do RS, MT e MG, até o final da semana vou inserir mais os estados de SC, SP e PR. Bom. Está ai nossa colaboração. Espero que todos façam um bom proveito deste projeto. Edson Mundin Ferreira P.S. Mudanças em manuais, e aplicativos serão sempre disponibilizados no site citado

Alguem tem rotina de impressao de etiquetas neste modelo de impressora ? Preciso imprimir etiquetas com descricao do produto, preco e codigo de barras. Por favor, caso tenha, coloque em dicas, desde já agradeço a todos os colaboradores. Doni

Marcos Se vc ainda não conseguiu a visual lib, eu tenho, caso queira te mando por e-mail. Doni adzdoni@ubbi.com.br

Gilmer Uma sugestão de preço ! Outro dia assistindo ao shoptime, havia um produto chamado Visual Kit 5 que promete fazer sistemas em windows.Bem o preço era bem baixo, acredito que não se compara ao FW, só que era muito facil adquiri-lo. Ex. o produto custava em torno de R$ 300,00 divido em 8(oito vezes). Onde quero chegar ? Se o FW custasse R$ 500,00 (promocao de natal) dividido em cinco vezes, com certeza muitos programadores clipper que estão estudando a versão demo, fariam a aquisição e com certeza a divulgação do FW seria nacional, ou seja grandes vendas e grande numero de novos usuários. Bem,dei minha sugestão. Veja o que vc consegue com o Sr. Gilberto. Abraços Doni