microfly

E ai pessoal...tudo bem?
Estou precisando colocar modulo TEF no sistema...alguem tem uma dica? Estamos com o TEF para teste...vamos começar a programar...
agradeço...
Leandro JBI
 

Pessoal.. alguem usa ACBR na nota de serviço eletronica ?
 
pode me ajudar. ?
Whats: (11) 9-7414-4341
skype: wfinan
 
Vitor (sbc)

Blz, um amigo conectou aqui e resolvemos. era isso mesmo....

Boa tarde quero agradecer a todos que tentaram me ajudar em especial ao meu amigo Eduardo Motta que entrou aqui na minha maquina e perdeu algum tempo para me ajudar ,  que DEUS abencoe a todos. Muito Obrigado

pelo que entendi do problema do afill é que está errado a forma de passar os parâmetros. se mostrares como estás fazendo ficaria mais fácil de ajudar.
quanto ao uso de macro. "mas há muito" olha, põem muito tempo nisso, acredito que no clipper 5,2 era o problema com macros, além de outros(rsrsrs como tinha essa versão). no (x)harbour nunca tive algum problema sobre essa questão.

Foi o que eu disse doçura ahauhauhaua " embora depois da evolução das ferramentas, não sei se acharam uma solução.", como eu não costumo usar, então, não sei se funciona.
[]s,

tente assim
Do while &(Condicao)

Olá,
Evite o uso de macro SEMPRE. Tem outra forma de fazer isto. Pode ter certeza.

Amigo, mesmo sabendo que a solução já foi dada pelo Alessandro, mas há muito,  li que macro não deve ser usada num laço de WHILE, embora depois da evolução das ferramentas, não sei se acharam uma solução.
[]s,

eu faria desta maneia
condicao:="Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8) >= Str(M->vCodemp,4)+Str(Codigo1,8) .and. Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8)<=Str(M->vCodemp,4)+Str(Codigo2,8)"
 Do while  !folfun->(eof())
IF &(Condicao)
         Apagar()
ENDIF
skip
enddo

CX.LNK - Complemento do CX.BAT acima.


C:\bcc72\lib\c0w32.Obj                  + AGENDA.OBJ                              + AGENCOMP.OBJ                            + AGENDTEL.OBJ                            + AGENDDOC.OBJ                            + AGENDGRP.OBJ                            + CRIARDBF.OBJ                            + REINDEXA.OBJ                            + ANIMABMP.OBJ                            + DBMANT.OBJ                              + REDE.OBJ                                + UTIL.OBJ                                + FUNCOES.OBJ                             + CALEND.OBJ                              + TCALENDA.OBJ                            + CALCULAD.OBJ                            + RELOGIO.OBJ                             + TECLADO.OBJ                             + CONFIGAG.OBJ                            + FERIADO.OBJ                             + MSGMETER.Obj                            + DSAY.OBJ                                + TGET.OBJ                                + ERRSYSW.Obj                             + WINDOW.OBJ                              + MSGBAR.OBJ                              + RPREVIEW.OBJ                            + BMPVIEW.OBJ                             + DISPLAY.OBJ                             + XBLITE.OBJ                              + BOXGET.OBJ                              + SSAY.Obj                                + GETBTN.Obj                              + TSBROWSE.Obj                            + SBMSGPOR.Obj                            + TSCOLUMN.Obj                            + TSBTNGET.Obj                            + TSFGET.Obj                              + TSGET.Obj                               + TSPOINT.Obj                             + FWCALEN.Obj                             + TSCOMBO.Obj                             + TSMULTI.Obj                             + TMETAFIL.Obj                            + TSBFUNCS.Obj                            + FOLDER.Obj                              + RADIO.Obj                               + CONTROL.Obj                             + HELP.Obj                                + HELP32.Obj,                             + AGENDA.exe,                             + AGENDA.map,                             + C:\FWH1701\lib\FiveHX.lib               + C:\FWH1701\lib\FiveHC.lib               + C:\FWH1701\lib\FoldBmp32.lib            + C:\XHBBCC72\lib\hbzip.Lib           + C:\XHBBCC72\lib\zlib.Lib            + C:\XHBBCC72\lib\rtl.Lib             + C:\XHBBCC72\lib\vm.Lib              + C:\XHBBCC72\lib\gtgui.Lib           + C:\XHBBCC72\lib\lang.Lib            + C:\XHBBCC72\lib\macro.Lib           + C:\XHBBCC72\lib\rdd.Lib             + C:\XHBBCC72\lib\dbfntx.Lib          + C:\XHBBCC72\lib\dbfcdx.Lib          + C:\XHBBCC72\lib\debug.Lib           + C:\XHBBCC72\lib\common.Lib          + C:\XHBBCC72\lib\tip.Lib             + C:\XHBBCC72\lib\pp.Lib              + C:\XHBBCC72\lib\dbffpt.Lib          + C:\XHBBCC72\lib\codepage.Lib        + C:\XHBBCC72\lib\HbSix.Lib           + C:\XHBBCC72\lib\PcRepos.Lib         + C:\XHBBCC72\Lib\ct.Lib              + C:\XHBBCC72\Lib\png.Lib             + C:\Bcc72\lib\cw32.Lib               + C:\Bcc72\lib\psdk\msimg32.Lib       + C:\Bcc72\lib\psdk\odbc32.Lib        + C:\Bcc72\lib\psdk\rasapi32.Lib      + C:\Bcc72\lib\psdk\nddeapi.Lib       + C:\Bcc72\lib\psdk\psapi.Lib         + C:\Bcc72\lib\psdk\gdiplus.lib       + C:\Bcc72\lib\psdk\iphlpapi.Lib      + c:\Bcc72\lib\psdk\shell32.lib       + C:\Bcc72\lib\import32.Lib, AGENDA.RES                          + IMAGENS.RES                         + IMAGENS2.RES                        + XBLITE.Res

Comentário do <Kapiaba> caracas mano, esse João Santos, num é puxa saco não heim? Em todo lugar ele posta:
 

vendas@fivewin.com.br - suporte@fivewin.com.br - gilmer@fivewin.com.br

Agradeço a todos amigos que me ajudaram, Especialmente ao João Santos e ao Luiz Augusto Martins (Gunafe) que me deu a maior força dando referencias da minha pessoa.
Agradeço ao Leonardo da Sygecom pela força e pelos conselhos que me deu.
Agradeço especialmente ao Marcio (da empresa Informais ) que esta se dicando o seu tempo em me ensinar MYSQL uma pessoa de bom coração
e todos dia depois do expediente fica horas conectado comigo me ensinando o MYSQL até aos sabados. me aconselhando e me fazendo CRITICAS CONSTRUTIVAS 
que esta me ajudando E MUITO.
Agradeco ao Eduardo Mota que me ajudou muito .
Agradeço tb ao Wanderson pela confiança no meu trabalho  e na minha pessoa.
Enfim quero agradecer a todos que nao foram poucos nao, que DEUS de muita  PAZ E SAÚDE a TODOS desse grupo e aos seu familiares MUITO OBRIGADO POR TUDO.
 
Luiz Carlos Nogueira
(19) 3844-8556 - Paulínia - João Aranha
zap (11) 9 6969-3667
Obs: aqueles que precisarem de ajuda profissional pode contar comigo, ajudarei com o maior prazer , inclusive aos iniciantes. trabalho com Fivewin desde 1999.
 

Agradeço a todos amigos que me ajudaram, Especialmente ao João Santos e ao Luiz Augusto Martins (Gunafe) que me deu a maior força dando referencias da minha pessoa.
Agradeço ao Leonardo da Sygecom pela força e pelos conselhos que me deu.
Agradeço especialmente ao Marcio (da empresa Informais ) que esta se dicando o seu tempo em me ensinar MYSQL uma pessoa de bom coração
e todos dia depois do expediente fica horas conectado comigo me ensinando o MYSQL até aos sabados. me aconselhando e me fazendo CRITICAS CONSTRUTIVAS 
que esta me ajudando E MUITO.
Agradeco ao Eduardo Mota que me ajudou muito .
Agradeço tb ao Wanderson pela confiança no meu trabalho  e na minha pessoa.
Enfim quero agradecer a todos que nao foram poucos nao, que DEUS de muita  PAZ E SAÚDE a TODOS desse grupo e aos seu familiares MUITO OBRIGADO POR TUDO.
 
Luiz Carlos Nogueira
(19) 3844-8556 - Paulínia - João Aranha
zap (11) 9 6969-3667
Obs: aqueles que precisarem de ajuda profissional pode contar comigo, ajudarei com o maior prazer , inclusive aos iniciantes. trabalho com Fivewin desde 1999.
 

Novo MsgRun() com Gradient

/*     MsgWait y MsgRun no se muestran correctamente bajo 32 bits, el     cálculo de coordenadas no es correcto pues el texto de cuerpo     se recorta:     Moises,     En source\function\msgrun.prg hay que modificar estas líneas asi:     Código:     ACTIVATE DIALOG oDlg CENTER ;              ON PAINT oDlg:Say( 11, 0, xPadC( oDlg:cMsg, nWidth ),,,, .T. )     Antonio Linares     www.fivetechsoft.com */ #Include "FiveWin.Ch" //----------------------------------------------------------------------------// // http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34020 function MsgRun( cCaption, cTitle, bAction, oWndParent )  // MUDEI: 24/07/2017 - Joao    LOCAL oDlg, nWidth, uReturn, aGrad    /*    DEFAULT cCaption := "Please, wait...",;            bAction  := { || WaitSeconds( 1 ) }    */    DEFAULT cCaption := "Por Favor, Espere...", ;            bAction  := { || WaitSeconds( 1 ) }    // Modelos de gradient    // aGrad := { { 0.5, CLR_HRED,CLR_WHITE},{ 0.5,CLR_WHITE,CLR_HRED } }    // aGrad := { { 0.30, CLR_HRED, CLR_WHITE},{ 0.70, CLR_WHITE, CLR_HRED } }    // gostei assim, mas gosto e que nem friozo... cada um tem o seu... kkkkkkk    aGrad := { { 0.30, CLR_BLACK, CLR_YELLOW},{ 0.70, CLR_YELLOW, CLR_BLACK } }    /* // assim, todos os dialogos assumem o gradiente, nao gostei.       // Nao testei na window(janela) creio fique show().    SetDlgGradient( { {0.30,CLR_HRED,CLR_WHITE}, {0.70,CLR_WHITE,CLR_HRED} } )    */    DEFINE FONT oFnt    NAME "Ms Sans Serif" SIZE 0, -12 BOLD    DEFINE FONT oFont   NAME "Ms Sans Serif" SIZE 0, -14 BOLD    IF cTitle == NIL       // DEFINE DIALOG oDlg           ;       DEFINE DIALOG oDlg GRADIENT aGrad           ; // usando gradient              FROM 0,0 TO 3, Len( cCaption ) + 4   ;              STYLE nOr( DS_MODALFRAME, WS_POPUP )              /* ;              COLORS CLR_BLACK, CLR_YELLOW */    ELSE       // DEFINE DIALOG oDlg           ;       DEFINE DIALOG oDlg GRADIENT aGrad           ; // usando gradient              FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ;              TITLE cTitle ;              STYLE DS_MODALFRAME              /* ;              COLORS CLR_BLACK, CLR_YELLOW */    ENDIF    oDlg:bStart := { || uReturn := Eval( bAction, oDlg ), oDlg:End(), SysRefresh() }    oDlg:cMsg   := cCaption    nWidth := oDlg:nRight - oDlg:nLeft    SET FONT OF oDlg TO oFnt    ACTIVATE DIALOG oDlg ON PAINT oDlg:SayText( oDlg:cMsg ) ;             ON INIT oDlg:Center( oWndParent ) return uReturn /* // antigo Function MsgRun( cCaption, cTitle, bAction )     Local oDlg, nWidth, oFnt, oFont, oBrush     DEFAULT cCaption := "Por Favor, Espere...     ",;             bAction  := { || WaitSeconds( 1 ) }     DEFINE FONT oFnt    NAME "Ms Sans Serif" SIZE 0, -12 BOLD     DEFINE FONT oFont   NAME "Ms Sans Serif" SIZE 0, -14 BOLD     IF cTitle == Nil         DEFINE DIALOG oDlg                          ;                FROM 0,0 TO 3, Len( cCaption ) + 4   ;                STYLE nOr( DS_MODALFRAME, WS_POPUP ) ;                COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )         oDlg:lHelpIcon := .F. // ok      ELSE         DEFINE DIALOG oDlg                                              ;                FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ;                TITLE cTitle                                             ;                STYLE nOR( DS_MODALFRAME )                               ;                COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )         oDlg:lHelpIcon := .F. // ok     ENDIF     oDlg:bKeyDown = { | nKey | IF( nKey == VK_ESCAPE, ( oDlg:End() ), ) }     oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() }     oDlg:cMsg   := cCaption     nWidth := oDlg:nRight - oDlg:nLeft     SET FONT OF oDlg TO oFnt     //-> Modificado By Antonio Linares 26/10/2007 - Correcao de Bug     ACTIVATE DIALOG oDlg CENTERED ;              ON PAINT oDlg:Say( 11, 0, xPadC( oDlg:cMsg, nWidth ),,,, .T. )     oFnt:End()     oFont:End() RETURN NIL */ //---------------------------------------------------------------------------// Function WaitSeconds( nSecs )     Local nStart := GetTickCount()     DEFAULT nSecs := 1     While GetTickCount() - nStart < ( 1000 * nSecs )     Enddo Return Nil //---------------------------------------------------------------------------// Function MsgWait( cCaption, cTitle, nSeconds )     DEFAULT nSeconds := 4 Return MsgRun( cCaption, cTitle, { || WaitSeconds( nSeconds ) } ) //---------------------------------------------------------------------------// Function StopUntil( bBlock )     DO WHILE !Eval( bBlock )        WaitMessage()        SysRefresh()     ENDDO Return Nil //---------------------------------------------------------------------------//

quero agradecer a todos que me ajudaram sem exceção sanar meu problema graças a DEUS e a todos amigos aqui do forum consegui.
todos que contribuirão me pediram para eu não mencionar seus nomes eu vou respeitar
Mais um eu quero fazer questão de agradecer ao meu amigo irmão JOÃO SANTOS pelo empenho em me ajudar. 
MUITO OBRIGADO JOÃO SANTOS que DEUS.lhe de muita saúde e sorte a você e toda sua família
MUITO OBRIGADO A TODOS DO GRUPO SEM EXCEÇÃO QUE DEUS DE MUITA SAUDE E SORTE A VCS E  TODA A SUAS FAMILIAS.
 
e vou deixar aqui  a quem interessar o sistema o mesmo valor 100,00 reais eu mando o sistema de bar completo (com os fontes)
zap 11 96969-3667
(19) 3844-8556 - Paulinia
suporte@microfly.com.br
skype suporte.microfly
agradeço a todos 
 

quero agradecer a todos que me ajudaram sem exceção sanar meu problema graças a DEUS e a todos amigos aqui do forum consegui.
todos que contribuirão me pediram para eu não mencionar seus nomes eu vou respeitar
Mais um eu quero fazer questão de agradecer ao meu amigo irmão JOÃO SANTOS pelo empenho em me ajudar. 
MUITO OBRIGADO JOÃO SANTOS que DEUS.lhe de muita saúde e sorte a você e toda sua família
MUITO OBRIGADO A TODOS DO GRUPO SEM EXCEÇÃO QUE DEUS DE MUITA SAUDE E SORTE A VCS E  TODA A SUAS FAMILIAS.
 
e vou deixar aqui  a quem interessar o sistema o mesmo valor 100,00 reais eu mando o sistema de bar completo (com os fontes)
zap 11 96969-3667
(19) 3844-8556 - Paulinia
suporte@microfly.com.br
skype suporte.microfly
agradeço a todos 
 

Muto obrigado meu amigo que DEUS lhe de bastante saude e sucesso a vc e toda sua familia me adcione no skype que lhe passo os fontes
skype suporte.,microfly
zap 11 96969-3667

Boa tarde
Fiz o depósito agora na hora do almoço.
Abraço
Herberson Gontijo - Ponteware Informática.
 

Gilmer ja respondi no skype obrigado

Chamando pelo Skype
 

Muito obrigado meu amigo sua oração ja é uma bela contribuição fique com DEUS  vc e toda sua familia tenha bastante saude paz e harmonia

Cara, Estou em Oração mesmo por Você... Que Deus lhe dê muita força mesmo para superar... Não posso contribuir muito, mas fiz uma transferencia hoje... assim que puder ajudarei mais... fk com Deus!!!!
 

Muito obrigado que DEUS de bastante SAUDE E SUCESSO A TODOS , nao vou desistir de lutar pela minha vida

Muito obrigado Rubens que DEUS lhe de muita saude a vc e toda sua familia e muito sucesso