marcioe

Exato, eu só não passei Tudo para ACBR, por conta da comodidade de já está funcinando... deixa quieto

Pessoal, eu já usei a flexdocs, mas eu não gostei muito dela, porque ficava caro. Alem de ter vários problemas. Cada uma sabe o que é melhor pra si. Quem é mais antigo aqui já usou (foi refem da cobrebemx) Depois disso, sempre optei por ferramentas Gratis, e quem tem muita gente usando acbr, é muito bom tambem.

Eu uso Unimake, que é Gratis. faz uns 8 anos

Bom dia a todos, tem como colocar o campo Transparente Como Podem Ver eu já tentei de várias Formas, mas não dá certo REDEFINE SAY oT_PRECO_TIRA_TEIMA VAR T_PRECO_TIRA_TEIMA ID 4003 OF oDlg_TIRA_TEIMA PICTURE "@ZE 999,999.99" FONT o_F_TIRA_TEIMA_NOME COLOR CLR_VERMELHO, CORBK transparent REDEFINE GET oT_COD_BARRA_TIRA_TEIMA VAR T_COD_BARRA_TIRA_TEIMA ID 4007 OF oDlg_TIRA_TEIMA PICTURE "@K!" FONT o_F_TIRA_TEIMA_BARRAS ACTION( PESQUISA_PRODUTO_TIRA_TEIMA(T_COD_BARRA_TIRA_TEIMA) ) BITMAP "#8630" VALID( PESQUISA_PRODUTO_TIRA_TEIMA(T_COD_BARRA_TIRA_TEIMA) ) COLOR CLR_PRETO,CLR_LWHITE REDEFINE SAY oT_PRECO_TIRA_TEIMA VAR T_PRECO_TIRA_TEIMA ID 4003 OF oDlg_TIRA_TEIMA PICTURE "@ZE 999,999.99" FONT o_F_TIRA_TEIMA_NOME COLOR CLR_VERMELHO, CORBK transparent REDEFINE SAY oT_UND_TIRA_TEIMA VAR T_UND_TIRA_TEIMA ID 4004 OF oDlg_TIRA_TEIMA PICTURE "@!" FONT O_F_GET2_TIRA_TEIMA_NOME REDEFINE IMAGE oT_FOTO_TIRA_TEIMA VAR T_FOTO_TIRA_TEIMA ID 4018 OF oDlg_TIRA_TEIMA FILE T_FOTO_TIRA_TEIMA adjust UPDATE

Eu uso a uninfe Gratis, tem monitor.EXE, e tem DLL https://www.unimake.com.br/downloads Uso faz uns 8 anos. Nada a Reclamar. suporte Bom. Whats (32)98892-5094

Eu uso a unimake, não me arrependo em nada

Será que tem como ?

Trabalhos iniciado Mini Pc Chines.... kkk Depois posto como ficou o resultado final Vamos vendo como fica

Ok, obrigado tinha pensado nisso, mas achei que tinha algo como um "get invisivel" na dialog. mas é um caminho a sua ideia

Pessoal, tudo bem Preciso fazer um tira Teima para um cliente, onde ele irá colocar um monitor Junto a esse monitor um MINI-PC + Um leitor de Código de barras Para quando o cliente passar o Código seja exibido a Foto, nome, preço, etc... A ideia seria uma tela tipo essa sem GET aparente, ( ou seja a tela seria allcliente) tamanho do monitor. Aparentemente sem nada de campo para passar o código de barras(pode ser invisivel), dai ao receber o Código de barras ele pesquisa na base do cliente e exibe caso encontre, caso contrario um texto que não localizou.. etc ou com esse mini PC Chines Alguem tem alguma ideia de como fazer algo parecido

Alguem já está Gerando Registro 1601 SPED A contabilidade ligou solicitando esse Registro (O que informar no registro 1601 SPED Fiscal) ? O Registro 1601 destina-se a identificar o valor total das operações realizadas pelo declarante por meio de instrumentos de pagamentos eletrônicos.

Seguindo a ideia do (marcelo) ele manja do que está falando. Alem disso fica mais rapido. pois não precisa trafegar mais o dados na rede, tendo em vista que ele está em array

Ok, mas como voce ver amigo, essas imagens são os "usuarios" quem colocam, ou seja vai variar de empresa para empresa, tem empresa que nem coloca as imagens tem outras que colocam, então não poderia importar elas no PELLEsc

Obrigado a Todos por responder Eu já coloca na Célula oDB_PAINEL_PRODUTOS:aCols[01]:lBmpStretch := (.F.) oDB_PAINEL_PRODUTOS:aCols[01]:lBmpTransparent := (.T.) Já com isso ou sem isso não fez Diferença ( oXbrw:lGDIP := .T. ) *-------------5-------------------------------------------------------------- * Produtos do Grupo Selecionado *---------------------------------------------------------------------------- oDB_PAINEL_PRODUTOS := TXBrowse():New( oDlg_LANCA_MESAS ) oDB_PAINEL_PRODUTOS : CreateFromResource(4005) oDB_PAINEL_PRODUTOS:nHeaderLines := 0.1 //-----> Linhas do cabeçalho oDB_PAINEL_PRODUTOS:nDataLines := (T_TAMANHO_LINHA_PRODUTOS) oDB_PAINEL_PRODUTOS:bKeyDown := {|nKey| POSICIONAR_ITEN_SELECIONADO() } oDB_PAINEL_PRODUTOS:bChange := {|| POSICIONAR_ITEN_SELECIONADO() } oDB_PAINEL_PRODUTOS:bKeyDown := {|nKey| if(nkey=13,( POSICIONAR_ITEN_SELECIONADO(), (oBtAdd_Produto:Click()) ),) } oDB_PAINEL_PRODUTOS:bLDblClick := {|| POSICIONAR_ITEN_SELECIONADO(), (oBtAdd_Produto:Click()) } oDB_PAINEL_PRODUTOS:lRecordSelector := .F. //-----> Mostrar ou Não o Seletor > oDB_PAINEL_PRODUTOS:lAllowColSwapping := .F. //-----> Trocar Colunas oDB_PAINEL_PRODUTOS:lAllowRowSizing := .T. //-----> Nao move as Linhas oDB_PAINEL_PRODUTOS:lAllowColSwapping := .T. //-----> Faz a Linha Lateral do Grid Escura ou Não oDB_PAINEL_PRODUTOS:lColDividerComplete := .F. //-----> .T. Poe as colunas ate o final do browse. oDB_PAINEL_PRODUTOS:lHScroll := .T. //-----> Barra Rolagem Horiz. oDB_PAINEL_PRODUTOS:lFooter := .F. //-----> Mostrar ou nao o rodape oDB_PAINEL_PRODUTOS:lHeader := .F. //-----> Mostrar ou Não o Cabecalho oDB_PAINEL_PRODUTOS:lDrawBorder := .T. oDB_PAINEL_PRODUTOS:lFlatStyle := .F. oDB_PAINEL_PRODUTOS:nColDividerStyle := 4 oDB_PAINEL_PRODUTOS:nRowDividerStyle := 4 oDB_PAINEL_PRODUTOS:nMarqueeStyle := 3 oDB_PAINEL_PRODUTOS:l2007 := M->ESTILO_l2007 oDB_PAINEL_PRODUTOS :SetArray( A_Array_Produtos_Grupos, .F., 1, { 1,2,3,4,5 } ) oDB_PAINEL_PRODUTOS:lDisplayZeros := (.T.) oDB_PAINEL_PRODUTOS:lColChangeNotify := (.T.) oDB_PAINEL_PRODUTOS:oDataFonts := O_F_GET oDB_PAINEL_PRODUTOS:bClrSelFocus :={ || { CLR_AZUL, { { 9.91,96777215,92961221 } }} } oDB_PAINEL_PRODUTOS:bClrSel :={ || { CLR_AZUL, { { 9.91,96777215,92961221 } }} } oDB_PAINEL_PRODUTOS:bClrRowFocus :={ || { CLR_AZUL, { { 9.90,96777167,92961210 } }} } oDB_PAINEL_PRODUTOS:lTransparent := (.F.) &&&& faz o browse Transparente oDB_PAINEL_PRODUTOS:lColChangeNotify := (.T.) &&&&& gerar evento por coluna *--------------------------------------------------------------------------- oDB_PAINEL_PRODUTOS:aCols[01]:nEditType := TYPE_IMAGE oDB_PAINEL_PRODUTOS:aCols[01]:lBmpStretch := (.F.) oDB_PAINEL_PRODUTOS:aCols[01]:lBmpTransparent := (.T.) oDB_PAINEL_PRODUTOS:aCols[01]:nDataBmpAlign := AL_RIGHT oDB_PAINEL_PRODUTOS:aCols[01]:bStrImage := { || iif(len(A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt][1])>0, DRIVE_TR+"\"+CURDIR()+"\BITMAPS\ICONES\pr_"+STRZERO(VAL(SUBSTR(T_CAMINHO_FOTO_PRODUTO,01,06)),06,0)+'.JPG' ,nil) } // nao conheco a extgrutura do seu array oXBrw10:aArrayData[oXBrw10:nArrayAt][3] oDB_PAINEL_PRODUTOS:aCols[01]:bstrData := {|| iif(len(A_Array_Produtos_Grupos)>0,ALLTRIM(A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt,01]),nil) } oDB_PAINEL_PRODUTOS:aCols[01]:nWidth := (T_LARGURA_PRODUTOS_GRUPOS) oDB_PAINEL_PRODUTOS:aCols[01]:nDataBmpAlign := IF(T_ICONES_GRANDES='N',1,2) oDB_PAINEL_PRODUTOS:aCols[01]:oDataFont := IF(T_ICONES_GRANDES='N',O_F_GET,oFont2) oDB_PAINEL_PRODUTOS:aCols[01]:aClrText := { nil, CLR_HRED, nil, CLR_GREEN } oDB_PAINEL_PRODUTOS:aCols[01]:bStrData := { || Mostra_Dados_Produto((A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt][1])) } WITH OBJECT oDB_PAINEL_PRODUTOS WITH OBJECT :aCols[ 1 ] oDB_PAINEL_PRODUTOS:aCols[1]:aDataFont := { O_F_DLG,O_F_GET } oDB_PAINEL_PRODUTOS:aCols[1] :aClrText := { CLR_AZUL, CLR_PRETO } END END *-------------2---------------------------------------------------------------

Ola giovanyvecchi Joia, respondendo Estas imagens estão no xBrowse de fivewin ? Sim na verdade elas ficam no banco de dados MariaDb, dai quando o Usuário abre a tela de vendas o sistema Lê o banco de dados e "cria as imagens no Disco local" Dai o xBrowse apenas exibe pelo Código a imagem. Fica leve ao extremo. Pode ter várias fotos. Mas as imagens eu gravo no disco c:\minha pasta\imagens\pr_00001.jpg por exemplo ou Gr_001.jpg se for grupo Essa tela é projetada para uso em Touch. Funciona blz, só mesmo esse aspecto de bordas que não gosto muito. Mas funciona a tela de mesas fica assim

Olá a todos Tenho as imagens Tem como tratar para não ficar com esse "borrão no Fundo (essas imagens são colocadas pelo Operador) Claro que no Código five, pois as vezes a pessoa coloca PNG, JPG, Então pode ter de tudo.... Se tiverem uma Luz Ficaria grato.

DANFE SIMPLIFICADO EM FR3, ALGUME TEM ? Tentei baixar aqui, mas não está funcionando Liberado rotina exemplo para impressão do DANFE Simplificado - Etiqueta. http://www.toyanet.com.br/pontoxml.php#pontoxml017

Link quebrado

Resolveu modificando a classe Xbrowse,(marcelo quem ajudou "na verdade ele fez" ) porem se alguem souber como sem modificar a classe nativa ficaria grato Dai depois melhorei um pouco e coloquei como Notificação no Windows

Fiz como o marcelo indicou, coloquei duas imagens no PELLES C, conforme status mudo

Ola, obrigado a todos, mas é no pelles c teria como fazer

Pesquisa incremental, quando nao tem mais ocorrencia Imagina que tenha digitado ABRACADEIRAS dai queria uma forma de alertar ao usuario que não tem mais nada(nao está encontrando) oDB_CLIENTES := TXBrowse():New( oPES_CLIENTES ) oDB_CLIENTES:SetArray( a_Array_Pesq_Clientes,.T.,2, { 01,02,03,04,05,06,07,08,09,10,11,12,13,14 } ) oDB_CLIENTES:bKeyDown :={|nKey| SeekBrowseEmArray( oDB_CLIENTES ), if(nkey=13, COMPLEMENTO_PESQ_CLIENTES(VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,01]) , oPES_CLIENTES:End() ),0) } oDB_CLIENTES:bChange :={|| COMPLEMENTO_PESQ_CLIENTES(IF(len(a_Array_Pesq_Clientes)>0,VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,01]),0)) } oDB_CLIENTES:bLDblClick :={|| COMPLEMENTO_PESQ_CLIENTES(IF(len(a_Array_Pesq_Clientes)>0,VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,01]),0)) , oPES_CLIENTES:End() } oDB_CLIENTES:nHeaderLines := 2 //-----> Linhas do cabeçalho oDB_CLIENTES:nDataLines := 2 oDB_CLIENTES:lRecordSelector := .T. oDB_CLIENTES:lAllowColSwapping := .T. //-----> Trocar Colunas oDB_CLIENTES:lAllowRowSizing := .F. //-----> Nao move as Linhas oDB_CLIENTES:lColDividerComplete := .F. //-----> .T. Poe as colunas ate o final do browse. oDB_CLIENTES:lHScroll := .T. //-----> Barra Rolagem Horiz. oDB_CLIENTES:lFooter := .T. oDB_CLIENTES:bClrStd := { || IIF( oDB_CLIENTES:nArrayAt() %2 == 0 ,{ M->COR_LETRAS_GRID, COR_1_bClrStd },{ M->COR_LETRAS_GRID, COR_2_bClrStd }) } oDB_CLIENTES:bClrSelFocus := {|| { M->COR_1_bClrSelFocus, M->COR_2_bClrSelFocus } } oDB_CLIENTES:bClrRowFocus := {|| { M->COR_1_bClrRowFocus, M->COR_2_bClrRowFocus } } oDB_CLIENTES:nColDividerStyle := 4 oDB_CLIENTES:nRowDividerStyle := 4 oDB_CLIENTES:nMarqueeStyle := 4 oDB_CLIENTES:nFooterLines := 1 oDB_CLIENTES:lAllowColSwapping := .T. // Click no header (.f.)Trava oDB_CLIENTES:lAllowRowSizing := .T. // Nao move as Linhas (nao sei) oDB_CLIENTES:l2007 := M->ESTILO_l2007 oDB_CLIENTES:lAllowRowSizing := .T. oDB_CLIENTES:lAutoSort := .T. oDB_CLIENTES:lColChangeNotify := .T. &&&&& gerar evento por coluna oDB_CLIENTES:nStretchCol := STRETCHCOL_WIDEST // Ajusta as colunas do xBrowse. oDB_CLIENTES:nColSel := (p_ColAtu) // Jogar o Foco na Segunda coluna *---------------------------------------------------------------------------- WITH OBJECT oDB_CLIENTES :lIncrFilter := .T. :lSeekWild := .T. :aCols[02]:bFooter := { || "Qtde.: " + ALLTRIM(Str( oDB_CLIENTES:nLen )) +' Reg.' } END *------------------------------------------------------------------------- oDB_CLIENTES:nFreeze:=1 // congelar a coluna oDB_CLIENTES:nFreeze:=2 *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 01 ]:cHeader := "Cód" oDB_CLIENTES:aCols[ 01 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 01 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 01 ]:cToolTip := {"Código do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 02 ]:cHeader := "Nome / Razão Social" oDB_CLIENTES:aCols[ 02 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 02 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 02 ]:bClrStd := {|| { IF(len(a_Array_Pesq_Clientes)>0, IF( VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,04]) > 1 ,CLR_VERMELHO,CLR_VERDE) ,nil) , IIF((oDB_CLIENTES:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } oDB_CLIENTES:aCols[ 02 ]:oHeaderFont := O_F_GET oDB_CLIENTES:aCols[ 02 ]:oDataFont := O_F_DLG2 oDB_CLIENTES:aCols[ 02 ]:cToolTip := {"Nome ou Razao Social","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 03 ]:cHeader := "Apelido/Fantasia" oDB_CLIENTES:aCols[ 03 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 03 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 03 ]:cToolTip := {"Apelido/Nome Fantasia","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 04 ]:bBmpData := { || if(len(a_Array_Pesq_Clientes)>0,VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,04]),nil) } oDB_CLIENTES:aCols[ 04 ]:AddResource("#8663") &&&& Verde 1 Liberado oDB_CLIENTES:aCols[ 04 ]:AddResource("#8664") &&&& Vermelho 2 Bloqueado oDB_CLIENTES:aCols[ 04 ]:bstrData := {|| '' } oDB_CLIENTES:aCols[ 04 ]:cHeader := "*" oDB_CLIENTES:aCols[ 04 ]:nWidth := 25 oDB_CLIENTES:aCols[ 04 ]:bLClickHeader := {|r,c,f,o| ( LEGENDA_CADASTRO_CLIENTE() )} oDB_CLIENTES:aCols[ 04 ]:cToolTip := {"Situação do Quanto ao Crédiário","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 05 ]:bBmpData := { || if(len(a_Array_Pesq_Clientes)>0,VAL(a_Array_Pesq_Clientes[oDB_CLIENTES:nArrayAt,05]),nil) } oDB_CLIENTES:aCols[ 05 ]:AddResource("#8457") &&&& Ativo Azul oDB_CLIENTES:aCols[ 05 ]:AddResource("#8456") &&&& Inativo Amarelo oDB_CLIENTES:aCols[ 05 ]:bstrData := {|| '' } oDB_CLIENTES:aCols[ 05 ]:cHeader := "*" oDB_CLIENTES:aCols[ 05 ]:nWidth := 25 oDB_CLIENTES:aCols[ 05 ]:bLClickHeader := {|r,c,f,o| ( LEGENDA_CADASTRO_CLIENTE() )} oDB_CLIENTES:aCols[ 05 ]:cToolTip := {"Situação do Quanto ao Cadastro","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 06 ]:cHeader := "Endereco" oDB_CLIENTES:aCols[ 06 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 06 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 06 ]:cToolTip := {"Endereço do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 07 ]:cHeader := "Bairro" oDB_CLIENTES:aCols[ 07 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 07 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 07 ]:cToolTip := {"Bairro do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 08 ]:cHeader := "Cpf/Cnpj" oDB_CLIENTES:aCols[ 08 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 08 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 08 ]:cToolTip := {"Cpf ou Cnpj do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 09 ]:cHeader := "Telefone" oDB_CLIENTES:aCols[ 09 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 09 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 09 ]:cToolTip := {"Telefone do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 10 ]:cHeader := "Whatsapp" oDB_CLIENTES:aCols[ 10 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 10 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 10 ]:cToolTip := {"Whatsapp do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 11 ]:cHeader := "Rg/Insc.Estadual" oDB_CLIENTES:aCols[ 11 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 11 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 11 ]:cToolTip := {"Rg ou Insc.Estadual do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 12 ]:cHeader := "Cep" oDB_CLIENTES:aCols[ 12 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 12 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 12 ]:cToolTip := {"Cep do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 13 ]:cHeader := "Cidade" oDB_CLIENTES:aCols[ 13 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 13 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 13 ]:cToolTip := {"Cidade do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:aCols[ 14 ]:cHeader := "UF" oDB_CLIENTES:aCols[ 14 ]:nDataStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 14 ]:nHeadStrAlign := AL_LEFT oDB_CLIENTES:aCols[ 14 ]:cToolTip := {"Estado / UF do Cliente","Ajuda","", } *---------------------------------------------------------------------------- oDB_CLIENTES:CreateFromResource(4015) *---------------------------------------------------------------------------- mas a pesquisa de produtos segue a mesma logica. Etc. Queria que quando nao localizar indicar uma forma de avisar ao usuario que não localizou, pois tem cada imbecil que pegamos (o ultimo disse que o teclado estava com defeito)

Olá a todos é Possivel fazer Botoes/opção/Travas/ (seja lá como for o nome) Opcoes de SIM / NAO

Obrigado a todos

Olá a todos, tem como saber o status de um Objeto Exemplo IF EMPTY(ALLTRIM(T_TXT_MSG_INFORMACAO)) o_bt_salva_pdv : Enable() ELSE o_bt_salva_pdv : Disable() ENDIF Teria como saber se o objeto ( o_bt_salva_pdv ) Está Enable() ou Disable() obrigado