Theotokos

Seria interessante vc postar a parte do código que ocorre o problema... tenho certeza que o pessoal aqui resolve....

cFile := cFilePath( GetModuleFileName( GetInstance() ) ) + ; "d:\progs\esocial\EsocialSign.jar" // D:\ tem que existir mermo. WinExec( "javaws.exe " + cFile )

http://forums.fivetechsupport.com/viewtopic.php?p=55574

pessoal, obgdo a todos!!! outra duvida;;; kkkk Qto a digitação de texto? o telcado virtual é aberto automaticamente qdo esta no campo (GET)? ou tem que criar alguma rotina para isso....

Obgdo!!! Vc pode me indicar algum? ou um simples com windows já funciona....

Bom Dia pessoal!!! Alguém já experimentou ou sabe se funciona... sistema DeskTop Windows em um Tablet com Windows 8 ou 10? Estou pesando em fazer algo assim... uma tela simplificada para funcionar no tablet com opções apenas para venda, consulta algo assim para funcionar em uma loja de material de construção... se alguem já usa assim, poderia por favor compartilhar telas, idéias, experiencia? Obgdo a todos...

senão me engano... é leitor optico de cartão de resposta.. https://www.google.com.br/search?q=leitor+óptico+cartão+resposta&rlz=1C1AVFC_enBR742BR742&source=lnms&sa=X&ved=0ahUKEwilmY-63vXXAhXFHZAKHV-OAAkQ_AUICSgA&biw=1366&bih=637&dpr=1 ou então vc pode pensar em um scaner de imagem... ai depurar a imagem com as repostas... http://fivewin.com.br/index.php?/search/

oLbx:aCols[1]:bLClickHeader:= {|| MsgWait("CONFIRA O ENDEREÇO DE ENTREGA !!!","Endereço Entrega",.5), Aeval(aDados,{|a| a[17] := !a[17]}), oLbx:Refresh() }

cCampo := Space(30) nQtde := 0.00 cCodigo := Space(05) cCampo := "0.250*123" nQtde := Val( SubStr(cCampo,1,AT("*",cCampo)-1) ) cCodigo := AllTrim(Substr(cCampo,AT("*",cCampo+1))) ? nQtde // 0.250 ? cCodigo // "123"

oLbx:aCols[1]:AddResource("SEntrega" ) // Entregar SIM oLbx:aCols[1]:AddResource("NEntrega" ) // Entregar NAO oLbx:aCols[1]:nHeadBmpNo := If(M_STATUS, 1, 2)

tente assim: cDescricao := Space(100) aProEdit := { "vetor com os produtos a pesquisar" } @ 1, 1 Combobox oGet[3] var cDescricao ; items aProEdit of oDlg SIZE 200, 12; PICTURE "@!" STYLE CBS_DROPDOWN oGet[3]:oGet:bChange := ; {|nKey,nFlags,Self| ComboEdit( nKey,nFlags,Self,oGet[3],oDlg)}

Isso pode ser resolvido com o cadastro do produto com Codigo de Barras, pois o produto vai ter codigo diferente.... aí qdo for dar baixa, utilza-se o codigo de barras para baixar no estoque correto...

tente assim Do while &(Condicao)

Creio que seja: oBrw:nColSel := 3

Tente com Hb_aToken() aV1 := Hb_aToken("11|54|92|78|41|13|64|38|00|04|","|") aV2 := Hb_aToken("11|78|64|04|","|") Ai vc compara os dois Vetores aV1 , aV2 cResultado := "" For n1 := 1 To len(aV1) if ASCAN(aV2,{|a| a = aV1[n1]) = 0 cResultado += aV1[n1]+"|" Endif Next n1

Creio que o problema seja esse tmb... já que esta tentando acessar uma pasta do Windows\System32 como usuário comum... o windows 7 não dá acesso.... vc pode tentar alterar no sistema para que este arquivo fique em outra pasta... talvez na mesma pasta do sistema...

Assim: REDEFINE GET oGet VAR cProcura ID 106 OF oDlg ON CHANGE (BcDdProduto(oGet,oBrw), oDlg:Refresh()) ... function BcDdProduto(oGet, oBrw) Local cPro := oGet:cText() DBSETORDER( 2 ) ordScope( 0, RTrim(cPRO) ) ordScope( 1, RTRim(cPro) ) * dbGoTop() oBrw:Refresh() Return .t.

Neste caso eu utilizo nos cliente folha A5 para imprimir.... ou seja, os clientes cortam as folhas A4 no meio (mandam cortar na grafica o pacote todo) não sei como vc esta enviando os dados para FastReport... mas se vc já envia tudo de uma vez só que vai ser impresso... talvez se vc setar o campo objeto "PrintOnPreviousPage"

Folha A4 dividida = Folha A5....configure para imprimir em A5 2 registro por página... Como Assim? explique melhor!

tive um problema parecido (digo parecido pois não se qual o erro seu)... ai resolvi o problema chamando a Rotina/Função com MsgRun() Ex:. MsgRun( "Imprimindo Pedido", "Imprimir", {|| PrtPedido() })

j atentou colocar a tabela de contas pagar cliente em um SubdetailData1 após detailData1 ?

Vlw! @Kapiaba

Boa Tarde, criei um relatorio de contas, porem as colunas apesar de caberem em modo RETRATO na folha A4, esta saindo com o LANDSCAPE... alguem sabe como "Setar" como RETRATO e não deixar que faça automatico? o relatorio é este: Report oRelat ; CAPTION If(nArquivo=1,"Relatório de Contas à Pagar","Relatório de Contas Pagas") ; TITLE cNomeEmpresa,If(nArquivo=1,"Relatório de Contas à Pagar","Relatório de Contas Pagas"),; "Tipo : " + cTipo + " Categoria : " + cCategoria,; "Período : "+dtoc(d1Vencimento)+" à "+dtoc(d2Vencimento) FONT oFt1 PEN oGd1; FOOTER "Data: "+dtoc(Date())+" Pagina: "+Str(oRelat:nPage,3) CENTERED ; PREVIEW Column Title "Nº Docum." Data AP_NUMDOC SIZE 7 Column Title "Fornecedor" Data AP_DESCRIC SIZE 30 Column Title "Vencimento" Data AP_DATA SIZE 8 If nArquivo = 2 Column Title "Pagamento" Data AP_DATAPG SIZE 8 Column Title "Valor Pago" DATA AP_VALOR SIZE 9 TOTAL RIGHT Else Column Title "Valor Pagar" DATA AP_VALOR SIZE 9 TOTAL RIGHT EndIf Column Title "Categoria" Data AP_CATEGOR SIZE 15 Column Title "Tipo" Data AP_TIPO SIZE 15 *GROUP oG1 ON AP_DATA FOOTER "T O T A L" End Report * oRelat:Stabilize() oRelat:CellView() Activate Report oRelat ON STARTGROUP( oRelat:NewLine() )

É vdd que com ads dá para trabalhar com o banco de dados em Nuvens? Tipo SQL faz... colocar na NET