william

fala Brother Esses parâmetros eram as resoluções que tinham disponíveis na época que desenvolvi a função. Mas vc pode acrescentar qualquer resolução que queira na lista. O que importa é a resolução inicial que vc desenhou os controles no workshop. Essa resolução vc pode pegar nas propriedades de vídeo - resolução de tela do computador. Qualquer resolução pode ser acrescentada na função Display. A Display pega a resolução do computador em uso e aumenta ou diminui o tamanho das dialogs com base na resolução que foi desenhado originalmente. William

Rochinha excelente !!! Vou testar , mas desde já muito grato pela contribuição ! Abraço William Adami

boa tarde, já tentei fazer isso com a SQLRDD , e vou relatar minha experiência. - o sistema conecta normalmente na web, basta informar o ip, ususario, senha e BD a ser conectado. - Em todos os hosts que testei (vários, inclusive UOLHOST) , sempre teve perda de conexão devido ao TIMEOUT de conexão do host. Ou seja , o sistema conecta e passado um tempo ele perde a conexão dando erros. - Não tive tempo para resolver mas creio que deve ser incorporado uma rotina que sempre testa a conexão antes de trabalhar com o BD. Se alguém já passou por isso , por favor passe sua experiência ou solução... Att. William Adami

http://www.4shared.com/zip/1TvWPvrw/TEST_UTI.html olá já viu a classe timprime e utilprn ? att. William Adami

Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT' referenced from E:\FORUMFW2\FORUM\LER_NFE_WEB\NFE.OBJ Error: Unresolved external '_HB_FUN_WIN_OLEERRORTEXT' referenced from E:\FORUMFW2\FORUM\LER_NFE_WEB\NFE.OBJ boa noite mestre Tentei compilar com xharbour e dá este erro . Qual lib está faltando? Ou a rotina é somente para Harbour ? Att. William Adami

Olá , eu uso o NAVICAT 8 , ele tem um assistente de migração que importa para MYSQL vários tipos de arquivos , inclusive MDB , .DB , DBF, ETC... Creio que com ele vc consiga migrar com sucesso Att. William Adami

olá Evandro, desde que montei a classe a muitos anos atrás , a utilizo nos meus sistemas sem problemas, e o sistema não fica pesado. A velocidade fica normal. Nunca tive problemas de erros ou GPFs. Att. William Adami Obs. Grato ao Kapiaba por postar aqui

http://www.4shared.com/rar/N0fL0Vq-/dosprinter.html olá , em xharbour puro não sei como fazer , mas eu resolvi esse problema usando a DOSPRINT, que após instalado fica em Tray aguardando a impressão. No sistema vc so precisa mudar a impressão para um arquivo prn, exemplo oprin= tdosprn():new("c:\print\print.prn") A Dosprint captura esse arquivo, imprime na impressora usb e deleta o arquivo , e fica esperando o próximo. Funciona 100% bem, talvez te ajude. Acima o link para baixar o dosprint. Att. William Adami

#include "FiveWin.ch" #include "common.ch" #include "xbrowse.ch" ********************************************************************* * NOME......: DISPLAY(oWnd,nResolution) * * VERSAO....: 3.0 - Julho de 2010 * * AUTOR.....: William de Brito Adami e FiveWidi, que iniciou este projeto * no Forum Espanhol de Fivewin . * * DESCRICAO.: Funcao para exibir a tela sempre igual em qualquer * resolucao, independente da fonte ou controle utilizado. * * PARAMETROS: oWnd: Window ou Dialog a ser redimensionado * nResolution: Numero correspondente a resolucao * que se desenhou inicialmente a tela. * ********************************************************************* function display( oWnd, nResolution, lFullres ) local lAutoresize:=.t. , nWhatSize:=0, lRepaint:=.t. * atencao: nResolution identifica em que resolucao foram inicialmente * desenhadas as telas, e DEVE ter um dos seguintes valores: * * 1 = 640 X 480 * 2 = 800 X 600 * 3 = 1024 X 768 * 4 = 1152 X 864 * 5 = 1280 X 800 * 6 = 1280 X 1024 * 7 = 1600 X 1200 * 8 = 768 X 1024 * 9 = 1440 X 900 * 10 = 1280 X 768 * 11 = 1280 X 720 * 12 = 1366 X 768 AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint, lFullres ) return nil /* (20/08/2009) Inicio do REdesenvolvimento da funcao. Parametros recebidos : lAutoresize: ativa / desativa redimensionamento automatico nWhatSize: permite for‡ar o redimensionamento a valores concretos; permitindo desta maneira que a aplica‡ao possa ter um valor ao qual redimensionar as telas. oWnd: Objeto/janela/dialogo/controle a ser redimensionado. nResolution: Numero que identifica que resolucao tinha a tela na qual se desenhou o objeto. lRepaint: Indicador se deve repintar o objeto uma vez redimensionado. lFullres: Indica se os textos devem ser redimensionados no tamanho maximo do resource desenhado. Esta funcao deve ser utilizada no evento ON INIT do ACTIVATE das WINDOWs e DIALOGs . Exemplo: ACTIVATE DIALOG oDlg ON INIT display(oDlg,2,.t.) //desenhada em 800 X 600 -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* */ FUNCTION AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint,lFullres ) // Resolucao da tela no momento de definir os controles. Local nOriWidth, nOriHeight // o normal seria que fosse a resolucao atual da tela (nWhatSize=0). // Se permite forcar esta resolucao mediante o valor de nWhatSize=1,2,3,4,5,6,7,.... Local nWidth, nHeight // Sao as relacoes entre a resolucao de tela e a resolucao de desenho. Local nFactorWitdh, nFactorHeight Local nContador,ofonttmp DEFAULT lRepaint := .T. nOriWidth := 0 nOriHeight := 0 nWidth := 0 nHeight := 0 nContador := 0 If ABS(nResolution) = 1 nOriWidth := 640 nOriHeight := 480 ElseIf ABS(nResolution) = 2 nOriWidth := 800 nOriHeight := 600 ElseIf ABS(nResolution) = 3 nOriWidth := 1024 nOriHeight := 768 ElseIf ABS(nResolution) = 4 nOriWidth := 1152 nOriHeight := 864 ElseIf ABS(nResolution) = 5 nOriWidth := 1280 nOriHeight := 800 ElseIf ABS(nResolution) = 6 nOriWidth := 1280 nOriHeight := 1024 ElseIf ABS(nResolution) = 7 nOriWidth := 1600 nOriHeight := 1200 ElseIf ABS(nResolution) = 8 nOriWidth := 768 nOriHeight := 1024 ElseIf ABS(nResolution) = 9 nOriWidth := 1440 nOriHeight := 900 ElseIf ABS(nResolution) = 10 nOriWidth := 1280 nOriHeight := 768 ElseIf ABS(nResolution) = 11 nOriWidth := 1280 nOriHeight := 720 ElseIf ABS(nResolution) = 12 nOriWidth := 1366 nOriHeight := 768 Else ScrResolution( @nOriWidth, @nOriHeight ) Endif If nWhatSize = 1 nWidth := 640 nHeight := 480 ElseIf nWhatSize = 2 nWidth := 800 nHeight := 600 ElseIf nWhatSize = 3 nWidth := 1024 nHeight := 768 ElseIf nWhatSize = 4 nWidth := 1152 nHeight := 864 ElseIf nWhatSize = 5 nWidth := 1280 nHeight := 800 ElseIf nWhatSize = 6 nWidth := 1280 nHeight := 1024 ElseIf nWhatSize = 7 nWidth := 1600 nHeight := 1200 ElseIf nWhatSize = 8 nWidth := 768 nHeight := 1024 ElseIf nWhatSize = 9 nWidth := 1440 nHeight := 900 ElseIf nWhatSize = 10 nWidth := 1280 nHeight := 768 ElseIf nWhatSize = 11 nWidth := 1280 nHeight := 720 ElseIf nWhatSize = 12 nWidth := 1366 nHeight := 768 Else ScrResolution( @nWidth, @nHeight ) Endif If lAutoresize .and. nOriHeight != nHeight /* Este sera o caso habitual, ao qual se pretende redimensionar os controles na resolucao da tela na qual estao viendo. */ If nResolution > 0 nFactorWitdh := nWidth / nOriWidth nFactorHeight := nHeight / nOriHeight ElseIf nResolution < 0 nFactorWitdh := nOriWidth / nWidth nFactorHeight := nOriHeight / nHeight EndIf If lRepaint oWnd:Hide() EndIf * se aumentou a altura If nFactorHeight > 1 ***************************** * se tiver barbutton * NOVO * ***************************** if ownd:obar <> NIL ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight for i= 1 to len(ownd:obar:acontrols) ownd:obar:acontrols:Move( ownd:obar:acontrols:nTop * nFactorHeight , ; ownd:obar:acontrols:nLeft * nFactorWitdh, ; ownd:obar:acontrols:nWidth * nFactorWitdh, ; ownd:obar:acontrols:nHeight * nFactorHeight , ; .F. ) * redimensiona o BMP da BARBUTTON o:=ownd:obar:acontrols:hbitmap1 if o<>0 hbmp:=ownd:obar:acontrols:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) ownd:obar:acontrols:hbitmap1:=o endif next ownd:obar:refresh() endif If oWnd:ClassName()$"/TIMAGE/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) Else oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) EndIf EndIf if oWnd:ClassName()$"/TFOLDER/TPAGES/" If ValType( oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lFullres ) EndFor EndIf Elseif oWnd:ClassName()$"/TBTNBMP/" ********************************* * redimensiona o BMP do BTNBMP o:=oWnd:hbitmap1 if o<>0 hbmp:=ownd:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) oWnd:hbitmap1:=o endif ********************************* elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/" Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lFullres ) * ajuste de fontess * controle TSAY if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) endif EndFor EndIf EndIf * se diminuiu a altura If nFactorHeight < 1 ***************************** * se tiver barbutton * NOVO * ***************************** if ownd:obar <> NIL ownd:obar:nwidth:=ownd:obar:nwidth* nfactorwitdh ownd:obar:nHeight:=ownd:obar:nHeight*nfactorheight ownd:obar:nbtnwidth:=ownd:obar:nbtnwidth*nfactorwitdh ownd:obar:nbtnHeight:=ownd:obar:nbtnHeight*nfactorheight for i= 1 to len(ownd:obar:acontrols) ownd:obar:acontrols:Move( ownd:obar:acontrols:nTop * nFactorHeight , ; ownd:obar:acontrols:nLeft * nFactorWitdh, ; ownd:obar:acontrols:nWidth * nFactorWitdh, ; ownd:obar:acontrols:nHeight * nFactorHeight , ; .F. ) * redimensiona o BMP da BARBUTTON o:=ownd:obar:acontrols:hbitmap1 if o<>0 hbmp:=ownd:obar:acontrols:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) ownd:obar:acontrols:hbitmap1:=o endif next ownd:obar:refresh() endif *************************************** if oWnd:ClassName()$"/TIMAGE/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) Elseif oWnd:ClassName()$"/TBTNBMP/" oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) ********************************* * redimensiona o BMP do BTNBMP o:=oWnd:hbitmap1 if o<>0 hbmp:=ownd:hbitmap1 nbmpwidth := nbmpwidth(hbmp) nbmpheight:= nbmpheight(hbmp) larg:=nbmpwidth*nfactorwitdh alt:=nbmpheight*nfactorheight o:=resizebmp(o,larg ,alt ) oWnd:hbitmap1:=o endif ********************************* Else oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; oWnd:nWidth * nFactorWitdh, ; oWnd:nHeight * nFactorHeight , ; .F. ) endif If ValType( oWnd:aControls ) <> "A" * ajuste de fontess * controle TSAY if ownd:classname$"/TSAY/TSAYREF/" aja_FLD(ownd,nFactorHeight) ajl_FLD(ownd,nFactorWitdh) ELSEif ownd:classname$"/TGET/TSSAY/TDSAY/" aja_FLD(ownd,nFactorHeight) ajl_FLD(ownd,nFactorWitdh) ELSEif ownd:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd,nFactorHeight) ajl_FLD(ownd,nFactorWitdh) endif EndIf EndIf If lRepaint if oWnd:lCentered // *** AAA ***// oWnd:Center() // *** AAA ***// endif // *** AAA ***// oWnd:Show() EndIf *************************************** * se for resolucao igual a que desenhou *************************************** elseif lAutoresize .and. nOriHeight = nHeight if lfullres If nResolution > 0 nFactorWitdh := nWidth / nOriWidth nFactorHeight := nHeight / nOriHeight ElseIf nResolution < 0 nFactorWitdh := nOriWidth / nWidth nFactorHeight := nOriHeight / nHeight EndIf If oWnd:ClassName()$"/TFOLDER/TPAGES/" If ValType( oWnd:aDialogs ) = "A" For nContador := 1 To Len( oWnd:aDialogs ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F.,lfullres ) EndFor EndIf elseif oWnd:ClassName()$"/TIMAGE/" //TBITMAP/TLISTBOX/TWBROWSE/TSSAY/TDSAY/TSAYREF/" ad:=getcoors(ownd:hWnd) oWnd:Move( oWnd:nTop * nFactorHeight , ; oWnd:nLeft * nFactorWitdh, ; ((ad[4]-ad[2])) * nFactorWitdh, ; ((ad[3]-ad[1])) * nFactorHeight , ; .F. ) elseif oWnd:ClassName()$"/TCOMBOBOX/TDBCOMBO/" Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F.,lfullres ) /* * ajuste de fontes * controle TSAY if ownd:acontrols[nContador]:classname$"/TSAY/TSAYREF/" * ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) * ajustalarg(ownd:acontrols[nContador],ownd,nfactorwitdh,lFullres) ELSEif ownd:acontrols[nContador]:classname$"/TGET/TSSAY/TDSAY/" * ajustaalt(ownd:acontrols[nContador],nfactorheight,lFullres) * ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) ELSEif ownd:acontrols[nContador]:classname$"/TFOLDER/TPAGES/TCOMBOBOX/TGROUP/TTREE/TCHECKBOX/TBTNBMP/TTOOLBAR/TRADIO/TDBCOMBO/TTABS/TXBROWSE/TSBROWSE/TWBROWSE/" aja_FLD(ownd:acontrols[nContador],nFactorHeight) ajl_FLD(ownd:acontrols[nContador],nFactorWitdh) endif */ EndFor EndIf EndIf endif EndIf Return Nil FUNCTION ajl_FLD(oq,nf) * se nao tiver fonte , nao faz LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F., nAlturaDaFonte, nLarguraDaFonte := 0,; nLarguraDoControle ,nTime:= SECONDS()+3, oFontTmp,ofont if cfontname="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nLarguraDoControle := oq:nWidth nAlturaDaFonte := oq:oFont:nHeight nLarguraDaFonte = nLarguraDaFonte*nf DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp If oq:ClassName()$"/TXBROWSE/" for i=1 to len(oq:acols) * pega tamanho anterior X factor ov:=oq:aCols:nWidth * nf * atualiza o novo tamanho da coluna oq:aCols:nWidth := ov next elseif oq:classname$"/TDSAY/" oq:Refresh() elseif oq:ClassName()$"/TWBROWSE/" * atualiza a largura das colunas for i=1 to len(oq:acolsizes) oq:acolsizes:=oq:acolsizes*nf next endif * oq:Refresh() RETURN NIL FUNCTION aja_FLD(oq,nf) LOCAL cFontName := iif ( oq:oFont=NIL , "NAOFAZ" ,oq:oFont:cFaceName ) LOCAL lFlagReleaseFont := .F., nAlturaDaFonte := 0,; nLarguraDaFonte, oFontTmp,ofont if cfontname="NAOFAZ" return nil endif if oq:oFont:nWidth = NIL // *** AAA ***// oq:oFont:nWidth := 0 // *** AAA ***// endif // *** AAA ***// nLarguraDaFonte := oq:oFont:nWidth nAlturadaFonte:=nalturadafonte*nf DEFINE FONT oFontTmp; NAME cFontName; SIZE abs(nLarguraDaFonte),ABS(nAlturaDaFonte) oq:SetFont(oFontTmp) oFont := oq:ofont //osay:GetFont() RELEASE FONT oFontTmp If oq:ClassName()$"/TXBROWSE/" oq:nRowHeight := oq:nRowHeight* nf oq:nStretchcol:=STRETCHCOL_LAST elseif oq:ClassName()$"/TSBROWSE/" oq:nHeightCell:=oq:nHeightCell * nf * oq:nheightHead:=oq:nheightHead*nf * oq:nheightFoot:=oq:nheightFoot*nf endif * oq:Refresh() RETURN NIL

olá João, no post abaixo segue uma nova versão da display que não meche nos Says e Gets originais. Também deve ficar mais rápida para abrir a tela. Faça os testes e me avise. Quanto a retirar a barra do dialog , deve ser possível sim, talvez mexendo na classe tdialog, procure nos forums sobre isso. Att. William

Olá João, pelo que eu vi o que não está redimensionando é o GROUP , correto ? Você deve declarar todos os objetos da dialog para que sejam redimensionados. Está faltando o REDEFINE GROUP , veja o exemplo que vem com a display. William

http://www.4shared.com/rar/NIwJho3C/DISPLAY3.html Olá João , sem problemas em compartilhar . se quiser baixar com os exemplos segue o link acima. Abraço William Adami

Ok, eu já imaginava isso... Obrigado William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

Rochinha, com relação ao Sintegra, Speed, e outras exigencias do fisco, o sistema que rodar SAT-CFe tambem continua obrigado a gerar estes arquivos ? Vc tem alguma informação com relação a isto ? Obrigado William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

Meus parabéns, isso vai ser de grande ajuda !! Abraço William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

olá , eu tb uso o xbuildw.exe para compilar meus sistemas xharbour com ou sem fivewin. Pra mim é o melhor. Pode baixar no seguinte link: http://www.4shared.com/file/RHumnEk3/xBuildW.html Abraço William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

citação:alguém jah fez algo... sabe como fazer ? Messager luizantoniooliveira@hotmail.com Skype luizantoniooliveira id=quote>id=quote>Creio que a primeira estapa é baixar o emulador e manuais já disponíveis em http://www.fazenda.sp.gov.br/sat/downloads/vigentes.asp e já ir queimando neurônios... Abraço William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

muito interessante , principalmente os prazos: a) a partir de 01.01.2014, para os contribuintes que auferirem receita bruta maior ou igual a R$ 100.000,00 no ano de 2013; a partir de 01.01.2015, para os contribuintes que auferirem receita bruta maior ou igual a R$ 80.000,00 no ano de 2014; c) a partir de 01.01.2016, para os contribuintes que auferirem receita bruta maior ou igual a R$ 60.000,00 no ano de 2015; E está decretado a data da morte do ecf: 1 – a partir de 01.07.2013: a) não serão concedidas novas autorizações de uso de equipamento ECF, exceto quanto se tratar de ECF recebido em transferência de outro estabelecimento paulista pertencente ao mesmo contribuinte; será vedado o uso de equipamento ECF que conte 5 (cinco) anos ou mais da data da primeira lacração indicada no Atestado de Intervenção, devendo o contribuinte, nesse caso, providenciar a cessação de uso do ECF, conforme previsto na legislação; 2 – até que todos os equipamentos ECF venham a ser substituídos pelo SAT em decorrência do disposto na alínea “b†do item 1, poderão ser utilizados, no mesmo estabelecimento, os dois tipos de equipamento. "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

boa noite , se utilizar o listbox via wbrowse do Hernan, pode fazer assim: obrw:nlineheight:=20 pode tambem mudar o estilo das linhas separadoras: obrw:nlinestyle:=2 * estilo de linhas: 0= sem linhas * 1=linhas black * 2= linhas cinza * 3= linhas 3D * 4= linhas pontilhadas William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

Olá , veja se isto te ajuda : #define PRINTER_STATUS_OK 0 #define PRINTER_STATUS_PAUSED 1 #define PRINTER_STATUS_ERROR 2 #define PRINTER_STATUS_PENDING_DELETION 4 #define PRINTER_STATUS_PAPER_JAM 8 #define PRINTER_STATUS_PAPER_OUT 16 #define PRINTER_STATUS_MANUAL_FEED 32 #define PRINTER_STATUS_PAPER_PROBLEM 64 #define PRINTER_STATUS_OFFLINE 128 #define PRINTER_STATUS_IO_ACTIVE 256 #define PRINTER_STATUS_BUSY 512 #define PRINTER_STATUS_PRINTING 1024 #define PRINTER_STATUS_OUTPUT_BIN_FULL 2048 #define PRINTER_STATUS_NOT_AVAILABLE 4096 #define PRINTER_STATUS_WAITING 8192 #define PRINTER_STATUS_PROCESSING 16384 #define PRINTER_STATUS_INITIALIZING 32768 #define PRINTER_STATUS_WARMING_UP 65536 #define PRINTER_STATUS_TONER_LOW 131072 #define PRINTER_STATUS_NO_TONER 262144 #define PRINTER_STATUS_PAGE_PUNT 524288 #define PRINTER_STATUS_USER_INTERVENTION 1048576 #define PRINTER_STATUS_OUT_OF_MEMORY 2097152 #define PRINTER_STATUS_DOOR_OPEN 4194304 #define PRINTER_STATUS_SERVER_UNKNOWN 8388608 #define PRINTER_STATUS_POWER_SAVE 16777216 id=code>id=code>Para Chamar a função: MsgRun( isprint( "LPT1" ), "Status da Impressora", {|| SysWait(3) } ) ou if InPrint( "LPT1" ) = "Impressora Sem Papel" ? "Va colocar papel na impressora!" endif * a funcao: function IsPrint( QuePrinter ) LOCAL nStatus DEFAULT QuePrinter := "LPT1:" nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Impressora OK" elseif nStatus = 1 ; return "Impressora Pausada" elseif nStatus = 2 ; return "Impressora com Erro" elseif nStatus = 4 ; return "Impressora Deletando" elseif nStatus = 8 ; return "Impressora em Modo Bandeja" elseif nStatus = 16 ; return "Impressora Sem Papel" elseif nStatus = 32 ; return "Impressora em Modo Manual" elseif nStatus = 64 ; return "Impressora com Problema no Papel" elseif nStatus = 128 ; return "Impressora OffLine" elseif nStatus = 256 ; return "Impressora com IO Ativo" elseif nStatus = 512 ; return "Impressora Ocupada" elseif nStatus = 1024 ; return "Impressora Imprimindo" elseif nStatus = 2048 ; return "Impressora Memoria Lotada" elseif nStatus = 4096 ; return "Impressora Nao Instalada" elseif nStatus = 8192 ; return "Impressora Aguardando" elseif nStatus = 16384 ; return "Impressora Processando" elseif nStatus = 32768 ; return "Impressora Inicializando" elseif nStatus = 65536 ; return "Impressora em Atencao" elseif nStatus = 131072 ; return "Impressora Toner Baixo" elseif nStatus = 262144 ; return "Impressora Sem Toner" elseif nStatus = 524288 ; return "Impressora PAGE_PUNT" elseif nStatus = 1048576 ; return "Impressora Intervencao do Usuario" elseif nStatus = 2097152 ; return "Impressora Sem Memoria" elseif nStatus = 4194304 ; return "Impressora Tampa Aberta" elseif nStatus = 8388608 ; return "Impressora Servidor Desconhecido" elseif nStatus = 16777217 ; return "Impressora POWER_SAVE" endif id=code>id=code> id=code>id=code> id=code>id=code>"Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

Olá , aqui eu mudo as cores dos gets com o comando: setGetColorFocus(nRgb(220,244,255)) e funciona corretamente. William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

o Cliente é quem solicita ao suporte tecnico, via telefone. O numero nao tenho aqui. Veja com seu cliente, pois vai precisar da senha e do numero da conta dele para a solicitacao via telefone. Att. William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

Ola, enviar os boletos para validacao, seria o mesmo que enviar para o ambiente de testes ? Estou trabalhando com o Itaú e tem sim um ambiente de testes. Caso nao esteja disponivel para a sua conta/carteira, deve ser solicitado ao banco a disponibilizacao do ambiente de testes. Aqui pra mim foi liberado o ambiente de testes no dia seguinte ao meu pedido. William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

boa tarde, depois de muito quebrar a cabeca com o webservice da farmacia popular , adotei o autorizador da bitshop. Funciona trocando arquivos txt e fica em tray. tem versao para testes no ambiente de homologacao. http://www.bitshop.com.br/index.php?option=com_content&task=view&id=16&Itemid=35 Caso vc nao consiga fazer o webservice, esta solucao resolve. William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

olá , uso a seguinte rotina em 1 sistema de estacionamento rotativo, veja se te ajuda: William *dData1 := CtoD("01/11/2007") *dData2 := CtoD("02/11/2007") *cHora1 := "21:00:00" *cHora2 := "00:30:00" //-------------------------------------------------------------- Function Intervalo( dData1, dData2, cHora1, cHora2 ) local nDias := dData2-dData1 local nHoras, nSec1, nSec2, nSobra, cH, cM, cS nSec1 := Segundos( cHora1 ) nSec2 := Segundos( cHora2 ) if nSec1 > nSec2 nDias-- nSobra := Segundos("24:00:00")-nSec1 + nSec2 else nSobra := nSec2 - nSec1 endif cH := Alltrim(str( nDias*24+int(nSobra/3600) ) ) cM := StrZero( int( nSobra%3600/60 ), 2 ) cS := StrZero( int( nSobra%3600%60 ), 2 ) Return cH+":"+cM+":"+cS //-------------------------------------------------------------- Function Segundos( cHora ) Return ( Val(Left(cHora, 2))*3600 + Val(SubStr(cHora, 4,2))*60 + Val(Right(cHora,2)) ) ********************************************************** id=code>id=code>"Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."