ram_bh

Todos bem? Quero saber se tenho como informar o número de linhas do formulário da impressora. Tenho um cliente que usa 3 tipos de formulário: um com as tradicionais 66 linhas (11 pol x 6 linhas por polegada), outro com 33 linhas e outro com 78 linhas (13 pol x 6 lpp). Tenho como alterar via parametro ao usar TXTPREV / TDOSPRN? Agradeço. Rodrigo Melo

Todos bem? Quero saber se tenho como informar o número de linhas do formulário da impressora. Tenho um cliente que usa 3 tipos de formulário: um com as tradicionais 66 linhas (11 pol x 6 linhas por polegada), outro com 33 linhas e outro com 78 linhas (13 pol x 6 lpp). Tenho como alterar via parametro ao usar TXTPREV / TDOSPRN? Agradeço. Rodrigo Melo

Kapiaba, consegui resolver desta forma: // comp.bat set include= set include=\clip53\include;\fw24\include; set obj= set obj=\clip53\obj;\fw24\obj; set lib= set lib=\clip53\lib;\fw24\lib; set path=%path%;\clip53\bin;\bli70\bin; del erro.txt del prog.obj del prog.exe clipper prog /n /w /m >erro.txt blinker fi prog @prog // fim comp.bat // prog.lnk BLINKER INCREMENTAL OFF BLINKER EXECUTABLE COMPRESS MAP A,S PACKCODE PACKDATA DEFBEGIN name FiveWin description 'Clipper for Windows library' exetype Windows 3.1 code moveable discardable data preload moveable stacksize 9500 heapsize 2048 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL SEARCH Five, FiveC, Objects LIB WinApi, Clipper, Extend, DbfCdx,_DbfCdx, Terminal // fim prog.lnk Obrigado e um abraço a todos! Rodrigo Melo

Kapiaba, obrigado! Farei um teste ainda pela manhã e darei retorno. Um abraço! Rodrigo Melo IP.informática.personalizada.

Segue o programa: // Programa // #INCLUDE "FIVEWIN.CH" Function Programa() Local oDbf Public oWnd, oMsg Set _3DLook On Request DBFNTX RDDSetDefault( "DBFNTX" ) MsgRun("Verificando arquivos, aguarde...","Aviso",{||Ver_DBF()}) Define Window oWnd Title "Sistema de Sistema" MDI Menu Menu() Set Message Of oWnd To "® Minha Empresa" Keyboard Date Time Define MSGITEM oMsg Of oWnd:oMsgBar ; PROMPT "V-1.0" SIZE 50 TOOLTIP ("Versão do aplicativo") ; ACTION MsgInfo( "V-0.99" + CRLF+CRLF + ; "Março / 2010","Versão do aplicativo") Define MSGITEM OF oWnd:oMsgBar ; TOOLTIP " Impressora padrão: "+CRLF+" "+PrnGetName()+" "; ACTION PrinterSetup() Define MSGITEM oMsg OF oWnd:oMsgBar; PROMPT " IP " SIZE 50 COLOR "n/W"; TOOLTIP "Desenvolvido por..." ACTION Sobre() Activate Window oWnd Maximized Valid MsgNoYes("Deseja sair?", "Informe:") Return(NIL) // Static Function Menu() Local oMenu MENU oMenu MENUITEM "&Converter" ACTION Converter() MESSAGE "Converter arquivos" MENUITEM "&Enviar" MESSAGE "Enviar arquivos" MENU MENUITEM "&Cliente" ACTION Enviar("C") MESSAGE "Enviar arquivo para cliente" MENUITEM "&Fornecedor" ACTION Enviar("F") MESSAGE "Enviar arquivo para fornecedor" ENDMENU MENUITEM "&Emitir" ACTION Emitir() MESSAGE "Emitir relatorios" MENUITEM "&Sair" ACTION oWnd:End() MESSAGE "Sair do aplicativo" ENDMENU Return(oMenu) // Function Converter() Return(NIL) Function Enviar() Return(NIL) Function Emitir() Return(NIL) Function Sobre() MsgInfo(" Empresa " + CRLF+CRLF + ; " Telefone " + CRLF+CRLF+CRLF + ; " E-mail ","Desenvolvido por:") Return(NIL) Function Ver_DBF() Return(NIL) // fim

Sim, estou usando RMAKE. Seguem os arquivos RMK e LNK: // RMK #ifdef BLINKER Linker=BLINKER #else #ifdef EXOSPACE Linker=EXOSPACE #else Linker=BLINKER #endif #endif .PRG.OBJ: Clipper $* /n /w /m /q >>erro.txt PROGRAMA.OBJ : PROGRAMA.PRG // FIM RMK -X-X- // LNK OUTPUT PROGRAMA.EXE BLINKER INCREMENTAL OFF BLINKER EXECUTABLE CLIPPER F250 BLINKER EXECUTABLE EXTENDED BLINKER EXECUTABLE COMPRESS 1 BLINKER EXECUTABLE NODELETE BLINKER PROCEDURE DEPTH 70 BLINKER CLIPPER SYMBOL OFF PACKCODE PACKDATA NOEXTDIC STACK 7148 NOBELL BEGINAREA FILE PROGRAMA.PRG ENDAREA DEFBEGIN name IP description "Programa" version 1.0 exetype Windows 3.1 code preload discardable preload data preload moveable stacksize 12500 heapsize 8192 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND #FiveWin SEARCH Five, FiveC, Objects, WinApi #Clipper LIB Clipper, Extend, DBFNTX, Terminal // FIM LNK -X-X-

Pois é, tradução do car....! (kkkk) Eu não sei o que fazer, sinceramente. Eu já usei outras cópias dos compiladores e dos linkeditores. Também já salvei o programa em diferentes editores e nada... Mas, obrigado!

Todos bem? Passei a receber esta mensagem de erro ao usar o blinker: BLINKER : 1128 : PROGRAMA.PRG() : unrecognised OBJ record type 2FH A mesma mensagem é apresentada ao serem utilizados Clipper 5.2 ou 5.3, como também o blinker 4.1, 6.0 e 7.0. O programa é muito simples. Alguém pode ajudar? Obrigado! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 26/03/2010 23:46:54

Todos bem? Passei a receber esta mensagem de erro ao usar o blinker: BLINKER : 1128 : PROGRAMA.PRG() : unrecognised OBJ record type 2FH A mesma mensagem é apresentada ao serem utilizados Clipper 5.2 ou 5.3, como também o blinker 4.1, 6.0 e 7.0. O programa é muito simples. Alguém pode ajudar? Obrigado! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 26/03/2010 23:46:54

Caros colegas, A Assespro realiza em Belo Horizonte, na manhã de terça-feira (22/9), o 69º Café da Manhã Empresarial, com o tema “como implementar a NFS-e da PBH como web serviceâ€. A Nota Fiscal Eletrônica de Serviços (NFS-e) será obrigatória a partir de 1º de novembro em Belo Horizonte. Aos interessados, fica aí um lembrete. Rodrigo Melo Editado por - ram_bh on 21/09/2009 16:42:59

Caros colegas, A Assespro realiza em Belo Horizonte, na manhã de terça-feira (22/9), o 69º Café da Manhã Empresarial, com o tema “como implementar a NFS-e da PBH como web serviceâ€. A Nota Fiscal Eletrônica de Serviços (NFS-e) será obrigatória a partir de 1º de novembro em Belo Horizonte. Aos interessados, fica aí um lembrete. Rodrigo Melo Editado por - ram_bh on 21/09/2009 16:42:59

Crisvam, boa tarde! Favor enviar para rodrigo.amelo@gmail.com. Obrigado! Rodrigo Melo

Boa tarde! Este ano vai ter encontro dos usuários FiveWin? Um abraço! Rodrigo Melo IP - Informática Personalizada Belo Horizonte - MG

Boa tarde! Este ano vai ter encontro dos usuários FiveWin? Um abraço! Rodrigo Melo IP - Informática Personalizada Belo Horizonte - MG

Francisco, boa tarde! Farei contato por e-mail. Um abraço! Rodrigo Melo IP - Informática Personalizada Belo Horizonte - MG

Gilmer, Acho que enviei um e-mail para você do meu endereço rodrigo.amelo@gmail.com solicitando informações sobre a sua solução para NFe. Você pode me ligar no número (31)9974-9269 ou enviar uma mensagem para o endereço de e-mail. Obrigado e um abraço! Rodrigo Melo

Certo, Não conheço a solução do Gilmer. Meu cliente aqui de BH ainda não fechou contrato com a NewSpirit. Onde posso obter informações da solução do Gilmer? Um abraço! Rodrigo Melo

Olás! O que é esse PAF? Obrigado! Rodrigo Melo

Marcelo, Conheço uma empresa do Rio de Janeiro (NewSpirit - Ricardo) que oferece um produto para importar a NFe em TXT ou XML, faz validações, assina e monitora a aprovação na SEF. Um abraço! Rodrigo Melo Belo Horizonte

Francisco, Em Belo Horizonte tenho um cliente que vai passar a usar NFe, mas não com a Prefeitura. Já está em fase de homologação com a SEF - Secretaria de Estado da Fazenda. Se precisar de ajuda, pode me procurar. Um abraço! Rodrigo Melo rodrigo.amelo@gmail.com rodrigomelo_bh@hotmail.com

Bom dia, Marcelo! Obrigado. Farei contato. Um abraço! Rodrigo Melo

Marcelo, tudo bem? Gostei muito do sistema que você publicou na Seção Dicas. Pretendo adaptar os programas para atender uma Oficina Mecânica. Compilei os programas mas estou com problemas. Enviei e-mail para o endereço de e-mail que está no cadastro dos membros do fórum mas voltou. Você pode me ajudar? Obrigado e um abraço! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 16/08/2009 15:30:59

Marcelo, tudo bem? Gostei muito do sistema que você publicou na Seção Dicas. Pretendo adaptar os programas para atender uma Oficina Mecânica. Compilei os programas mas estou com problemas. Enviei e-mail para o endereço de e-mail que está no cadastro dos membros do fórum mas voltou. Você pode me ajudar? Obrigado e um abraço! Rodrigo Melo Belo Horizonte Editado por - ram_bh on 16/08/2009 15:30:59

Luiz, Inicialmente instalei o programa da SEFAZ/SP para meu cliente testar. Ele não gostou do programa, achou muito complicado. Hoje estamos em fase de homologação com a SEF/MG. Geramos as notas em TXT e o programa faz as demais operações necessárias para validar a nota na SEF/MG. Se precisar de alguma ajuda, estou à disposição. Um abraço! Rodrigo Melo

Luiz, Indiquei a empresa NewSpirit do RJ para um cliente aqui de BH. Ela tem um programa que importa uma nota fiscal eletronica em TXT ou XML, faz validação, imprime o DANFE, assina e monitora a comunicação com a SEF. Gostei do produto. Se quiser o contato, por favor envie mensagem para meu e-mail. Um abraço! Rodrigo Melo rodrigo.amelo@gmail.com