sistem

retorno em HTML? oOle := CreateObject( "Microsoft.XMLHTTP" ) oOle:Open( "GET", "http://www.emottasistemas.com.br/", .f. ) oOle:Send() cHtml := oOle:ResponseBody oOle := nil ? cHtml

http://zbar.sourceforge.net/download.html

foi para seu email Editor, Arquivo .mak, .RC

nao uso o xdev, se precisar de exemplo para compilar via prompt de comando(que é a maneira que uso) posso passar exemplo com varios .prg e com .rc .lib []s

exemplo: @ 0,0 XBROWSE oLbxAgen FIELDS Agen->Cod_Agen,; Agen->Nom_Agen,; Agen->Usu_Agen,; Agen->Tim_Agen; HEADERS "Cód.",; "Agente Cobrador",; "Usuário",; "Data/Hora"; JUSTIFY .f., .f., .f., .f.; FONT oFont ALIAS "AGEN" OF oWndAgen AUTOSORT LINES CELL oLbxAgen:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbxAgen:nColDividerStyle := LINESTYLE_BLACK oLbxAgen:nRowDividerStyle := LINESTYLE_BLACK oLbxAgen:lColDividerComplete := .t. oLbxAgen:lFooter := .t. oLbxAgen:nFreeze := 0 oLbxAgen:bLDblClick := { || EditAgen(oLbxAgen, .f.) } oLbxAgen:bClrSelFocus := {|| { CLR_BLACK, CLR_FOCO } } oLbxAgen:bClrStd := {|| { CLR_WHITE, If((Agen->(ORDKEYNO()))%2==0, CLR_BRW1, CLR_BRW2) } } oLbxAgen:bKeyDown := {|nKey| BrwKeyAgen(nkey, oLbxAgen, oPesqComboAgen) } oLbxAgen:bRClicked := { | nRow, nCol | BrwPopAgen(nRow, nCol, oWndAgen, oLbxAgen ) } oLbxAgen:SetGroupHeader( "CADASTRO AGENTE COBRADOR", 1, 2, oFont4 ) oCol := oLbxAgen:aCols[ 1 ] oCol:cSortOrder := 'AGEN1' ocol:cToolTip:="Clique para ordenar por código" oCol := oLbxAgen:aCols[ 2 ] oCol:cSortOrder := 'AGEN2' ocol:cToolTip:="Clique para ordenar por descrição" oLbxAgen:SetRDD() oLbxAgen:CreateFromCode() oWndAgen:oClient := oLbxAgen ACTIVATE WINDOW oWndAgen MAXIMIZED ON INIT (oLbxAgen:SetFocus(), oLbxAgen:Refresh()) VALID(oLbxAgen:End(), .t.) Return Nil

Laiton é em PRG ou DLL?

opa, desculpa, uso assim: @ 0,0 XBROWSE oLbxAgen FIELDS Agen->Cod_Agen,; Agen->Nom_Agen,; Agen->Usu_Agen,; Agen->Tim_Agen; HEADERS "Cód.",; "Agente Cobrador",; "Usuário",; "Data/Hora"; JUSTIFY .f., .f., .f., .f.; FONT oFont ALIAS "AGEN" OF oWndAgen AUTOSORT LINES CELL oLbxAgen:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbxAgen:nColDividerStyle := LINESTYLE_BLACK oLbxAgen:nRowDividerStyle := LINESTYLE_BLACK oLbxAgen:lColDividerComplete := .t. oLbxAgen:lFooter := .t. oLbxAgen:nFreeze := 0 oLbxAgen:bLDblClick := { || EditAgen(oLbxAgen, .f.) } oLbxAgen:bClrSelFocus := {|| { CLR_BLACK, CLR_FOCO } } oLbxAgen:bClrStd := {|| { CLR_WHITE, If((Agen->(ORDKEYNO()))%2==0, CLR_BRW1, CLR_BRW2) } } oLbxAgen:bKeyDown := {|nKey| BrwKeyAgen(nkey, oLbxAgen, oPesqComboAgen) } oLbxAgen:bRClicked := { | nRow, nCol | BrwPopAgen(nRow, nCol, oWndAgen, oLbxAgen ) }

Jufer uso da mesma maneira sua aqui trabalha normal.. pode ser por causa da versao do FW ...minha versao eh 1512 talvez seja melhor atualizar a versao com o Gilmer

a

acontece comigo tb...caso instalo os componentes da caixa economica fica lento a copilicao.... mesmo desisntalando nao volta ao normal... dai formatei e NAO instalei mais os componentes do banco caixa economica (uso em outro computador para isto) demorei para perceber que era esse componetes(acesso a internet banking) que fazia ficar lento.

Dica usar o MariaDB, acredito que "todos" estão ou já migraram para MariaDB, as distribuicoes Debian, Slackware tem o MariaDB (banco de dados padrao dessas distru) Wikipedia tb migrou para MariaDB e mais... * uso Debian com MariaDB para servidor. eh muito rapido, * MariaDB eh um fork do mysql, os comandos mysql funciona no MariaDB dica* usem o MariaDB

ola, uma ideia criar um arquivo de texto na pasta, ex: teste.txt... o conteudo desse aquivo fica o nome de uma impressora que esta instalda no windows... dai quando for imprimir algun arquivo verificar o caminho completo do arquivo(para desscobrir a pasta) em que este arquivo se encontra... dai ler o conteudo do teste.txt... colocar a impressora como default (o nome da impressora fica no teste.txt) dai eh imprimir o arquivo que deseja acho quee deve ter algo melhor

www8.receita.federal.gov.br/simplesnacional/contribuintes Esta página da web não está disponível ERR_NAME_NOT_RESOLVED dai nao deu para ajudar

Ola com CDO.Microsoft eh possivel usando formatacao HTML: veja o link: http://wiki.locaweb.com/pt-br/CDOSys_-_Envio_autenticado_por_Email_Locaweb com o prg Ricardo de Moura veja o exemplo: :HtmlBody Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject, aAttach) local cToken local lRet := .f., x cTo := Destinatarios( cTo ) cCC := Destinatarios( cCC ) cBCC := Destinatarios( cBCC ) TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject // :TextBody = cMsg :HtmlBody = '<html> <head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body><span style="font-weight: bold; font-style: italic; text-decoration: underline;">teste</span><big style="color: rgb(0, 0, 153);"><big><big>html</big></big></big><big><big><big><big><span style="color: rgb(255, 0, 0);">CDOsys</span></big></big></big></big><span style="font-weight: bold; font-style: italic; text-decoration: underline;"><br>teste <span style="color: rgb(204, 102, 0);">apresentação</span>café</span></body></html>' For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) endif Next :Send() END WITH lRet := .t. CATCH MsgInfo("Não Foi Possível enviar a mensagem", "Aviso!") lRet := .f. END Return lRet resultado:

Amigo a tabela eh por estado (origem e destino) acho dificil montar uma tabela fixa http://www.substituicaotributaria.com/SST/substituicao-tributaria/consultaAliquotaMva/?gclid=CNKIta-zksoCFVQIkQodBPwOVQ

http://www.projetoacbr.com.br/forum/topic/26564-rejei%C3%A7%C3%A3o-informado-indevidamente-o-grupo-de-icms-para-a-uf-de-destino/

na sefaz/CE o valor da vICMSUFDest tem que acompanhar o somatorio para o VALOR TOTAL vICMSUFDest, caso diferente acontece o erro abaixo a NT_2015_003_v160 diz: obs: ITEM NAO considerando o FCP e TOTAL considerando o FCP não valida []s

veja no forum internacional class WebCam talvez lhe seja útil []s

e tem alguma diferenca para o regime normal? //--------- Grupo de Tributacao do ICMS para UF de destino If Esta->Sig_Esta # Empr->Est_Empr .and. Pedm->Idf_Pedm="1" .and. cIndIEDest="9" npICMSInterPart := If(Right(Dtoc(dData),4)="2016", 40.00,; If(Right(Dtoc(dData),4)="2017", 60.00,; If(Right(Dtoc(dData),4)="2018", 80.00, 100.00))) :vBCUFDest := nValor // Valor da base de calculo do icms na UF de destino :pFCPUFDest := Esta->Fcp_Esta // Percentual de ICMS relativo ao fundo de combate a pobreza :pICMSUFDest := Esta->Ali_Esta // Aliquota interna da UF de Destino :pICMSInter := Prod->Ais_Prod // Aliquota intestadual das UF envolvidas 4% 7% 12% :pICMSInterPart := npICMSInterPart // Percentual provisorio da partilha do ICMS interestadual (40%-2016 60%-80 80%-2018 100%-2019) :vFCPUFDest := Round(nValor*Esta->Fcp_Esta/100,2) // Valor do ICMS relativo ao fundo de combate a pobreza (FCP) da UF de destino :vICMSUFDest := Round(((((nValor*Esta->Ali_Esta/100)-(nValor*Prod->Ais_Prod/100)) * npICMSInterPart / 100)) + (nValor*Esta->Fcp_Esta/100),2) // Valor do ICMS Interestadual para UF de destino, ja considerando o valor do ICMS relativo ao fundo de combate a pobreza naquela UF :vICMSUFRemet := Round((((nValor*Esta->Ali_Esta/100)-(nValor*Prod->Ais_Prod/100))*(100-npICMSInterPart)/100),2) // Valod do ICMS Interestadual para UF do remetente. Apartir de 2019 este valor sera 0 // Totais nvFCPUFDest = nvFCPUFDest + Round((nValor*Esta->Fcp_Esta/100),2) nvICMSUFDest = nvICMSUFDest + Round(((((nValor*Esta->Ali_Esta/100)-(nValor*Prod->Ais_Prod/100)) * npICMSInterPart / 100)) + (nValor*Esta->Fcp_Esta/100),2) nvICMSUFRemet = nvICMSUFRemet + Round((((nValor*Esta->Ali_Esta/100)-(nValor*Prod->Ais_Prod/100))*(100-npICMSInterPart)/100),2) Endif // Totais da NF oNFe:SetValue("total" , "vFCPUFDest" , nvFCPUFDest ) oNFe:SetValue("total" , "vICMSUFDest" , nvICMSUFDest ) oNFe:SetValue("total" , "vICMSUFRemet" , nvICMSUFRemet )

windows 8.1 e windows 10 trabalha normal aqui

http://forums.fivetechsupport.com/viewtopic.php?f=33&t=31421

Mirrager minha versao eh SQLRDD August-2013-Build826 preciso atualizar o SQLRDD?

em teste utilizando o FWH1509 xharbour_1.2.3_32bits_bcc7_20150603 e SQLRDD estou tendo o seguinte problema: segurando a seta para baixo em um xbrowse continuamente o programa mostra a msg "programa.exe parou de funcionar" alguém tem a solução? obs: espero não ter que atualizar o SQLRDD pois eh caro e o suporte eh afobado que dah ate medo

obrigado kapiaba irei ver os links []s

Alguem teria exemplo ? uso a classe do Gilmer