Alain da Silva

Eu comecei a usar o sbutton transparente sem bordas. Acontece que quando clico no botão ele aparece o tracejado, depois do comando feito o tracejado continua até que eu clique nele novamente. Ja tentei refrescar o btn, mas não adiantou. Alguem teria a solução para isso? REDEFINE SBUTTON OBTN[1] ID 4 FILE "IMAGE\NOVO.BMP"; ACTION (MsgRun("Manutenção de Funcionário","Aguarde... Carregando Telas de Cadastro",{||MANUTFUN("I")}),VERIFICAARQUIVO(@VAZIO),LIMPAGETFUN(),XSETFOCUS(ONOM),ARQFUN->(DBSETORDER(2)),ARQFUN->(DBGOTOP()),OBRW:REFRESH(),OBRW:GOTOP()); TOOLTIP "Inclui Funcionários" ; NOBOX RECT OF TLOFUN id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

João, na TGET.PRG no FHW tem o comando, eu estava incorporando a TGET.PRG da dica, essa não tinha e dava o erro. Mas enfim, eu incorporei ao projeto o BTNDOWN.PRG,BTNGET.PRG e o GETBTN.C. Olhei a propriedade do TESTGETR.RES e vi que estava diferente algumas opções e deixei igual.Mudei no Attribues [x]group [x] multiple line e passou a mostrar certo com o alinhamento a direita. Agora funcionou. Obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Nessa dica que você colocou, eu não tenho que incorporar a tget.prg no programa? Nessa tget.prg da dica não tem o comando bpostkey(). Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Bom dia João, pois é justamente como coloquei acima, se incorporo a tget ao programa, da o erro na função: OBJCLI2:bPostKey :={|| PESQUI(OBJCLI2,2) } Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, peguei aqui no forum uma modificação da tget para numeros a direita com o btnget, mas começou a dar erro no comando bpostkey que não tinha na Tget. REDEFINE GET OBJCLI2 VAR CNOM ID 2 PICTURE "@!" OF ODLGCLI OBJCLI2:bPostKey :={|| PESQUI(OBJCLI2,2) } Fui na tget original e peguei as partes da função postkey e incorporei mas ficou meio bagunçado. Alguem teria a tget atualizada com a função postkey para btnget numero a direita. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, peguei aqui no forum uma modificação da tget para numeros a direita com o btnget, mas começou a dar erro no comando bpostkey que não tinha na Tget. REDEFINE GET OBJCLI2 VAR CNOM ID 2 PICTURE "@!" OF ODLGCLI OBJCLI2:bPostKey :={|| PESQUI(OBJCLI2,2) } Fui na tget original e peguei as partes da função postkey e incorporei mas ficou meio bagunçado. Alguem teria a tget atualizada com a função postkey para btnget numero a direita. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado Lailton, funfou. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, tenho um campo memo que não quebra a linha no enter. Engraçado que no mesmo programa tenho outros módulos em que o enter funciona como quebra de linha. VARPRO:={CODIGO,DESCRICAO,GRUPO,DESGRUPO,PRECO1,PRECO2,PRECO3,PRECO4,PRECO5,PRECO6,PRECO7,HISTORICO} REDEFINE GET OBJPRO[12] VAR VARPRO[12] MEMO ID 19 OF TELAPRO dbf HISTORICO M 10 DIALOG MANUTPRO DIALOG 12, 19, 668, 270 STYLE DS_ABSALIGN | WS_POPUP | WS_VISIBLE | WS_CAPTION CAPTION "Fenix Sistem@s - Cadastro de Produto" FONT 8, "MS Sans Serif" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL { RTEXT "", 2, 17, 34, 49, 15, SS_RIGHT | WS_BORDER | WS_GROUP EDITTEXT 111, 69, 34, 435, 15, WS_BORDER | WS_TABSTOP EDITTEXT 24, 17, 62, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP COMBOBOX 26, 69, 62, 435, 85, CBS_DROPDOWNLIST | WS_TABSTOP EDITTEXT 16, 17, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 21, 70, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 25, 123, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 29, 176, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 32, 256, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 34, 313, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 37, 392, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP AUTO3STATE "&Editar", 27, 9, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Salvar", 17, 64, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Cancelar", 38, 117, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "E&xcluir", 39, 175, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Retornar", 18, 229, 246, 55, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP LTEXT "Descrição *", 1101, 69, 25, 54, 8 LTEXT "Categoria", 1102, 17, 52, 41, 8 LTEXT "Código", 1100, 17, 25, 35, 8 GROUPBOX " DADOS DO PRODUTO ", -40, 9, 9, 499, 71, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP CONTROL "Timage", 110, "Timage", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 514, 12, 144, 131 LTEXT "Descrição da Categoria", 1103, 69, 53, 112, 8 GROUPBOX " Valores Categoria Preço Pizza ", 14, 9, 85, 227, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Pequena", 1104, 17, 103, 49, 8 GROUPBOX " Composição do Produto ", 13, 9, 147, 650, 96, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Média", 1105, 70, 103, 41, 8 LTEXT "R$/Grande", 1106, 123, 103, 46, 8 LTEXT "R$/Família", 1107, 176, 104, 44, 8 GROUPBOX "Valores Categoria Porção", 30, 252, 85, 120, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Inteira", 1108, 256, 103, 41, 8 LTEXT "R$/Meia", 1109, 313, 103, 41, 8 GROUPBOX "Valores Categoria Individual", 35, 388, 85, 120, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Individual", 1110, 392, 103, 66, 8 EDITTEXT 19, 17, 159, 632, 76, ES_MULTILINE | ES_AUTOVSCROLL | ES_UPPERCASE | WS_BORDER | WS_VSCROLL | WS_TABSTOP historico id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, tenho um campo memo que não quebra a linha no enter. Engraçado que no mesmo programa tenho outros módulos em que o enter funciona como quebra de linha. VARPRO:={CODIGO,DESCRICAO,GRUPO,DESGRUPO,PRECO1,PRECO2,PRECO3,PRECO4,PRECO5,PRECO6,PRECO7,HISTORICO} REDEFINE GET OBJPRO[12] VAR VARPRO[12] MEMO ID 19 OF TELAPRO dbf HISTORICO M 10 DIALOG MANUTPRO DIALOG 12, 19, 668, 270 STYLE DS_ABSALIGN | WS_POPUP | WS_VISIBLE | WS_CAPTION CAPTION "Fenix Sistem@s - Cadastro de Produto" FONT 8, "MS Sans Serif" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL { RTEXT "", 2, 17, 34, 49, 15, SS_RIGHT | WS_BORDER | WS_GROUP EDITTEXT 111, 69, 34, 435, 15, WS_BORDER | WS_TABSTOP EDITTEXT 24, 17, 62, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP COMBOBOX 26, 69, 62, 435, 85, CBS_DROPDOWNLIST | WS_TABSTOP EDITTEXT 16, 17, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 21, 70, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 25, 123, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 29, 176, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 32, 256, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 34, 313, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 37, 392, 112, 49, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP AUTO3STATE "&Editar", 27, 9, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Salvar", 17, 64, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Cancelar", 38, 117, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "E&xcluir", 39, 175, 246, 50, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP AUTO3STATE "&Retornar", 18, 229, 246, 55, 14, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP LTEXT "Descrição *", 1101, 69, 25, 54, 8 LTEXT "Categoria", 1102, 17, 52, 41, 8 LTEXT "Código", 1100, 17, 25, 35, 8 GROUPBOX " DADOS DO PRODUTO ", -40, 9, 9, 499, 71, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP CONTROL "Timage", 110, "Timage", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 514, 12, 144, 131 LTEXT "Descrição da Categoria", 1103, 69, 53, 112, 8 GROUPBOX " Valores Categoria Preço Pizza ", 14, 9, 85, 227, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Pequena", 1104, 17, 103, 49, 8 GROUPBOX " Composição do Produto ", 13, 9, 147, 650, 96, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Média", 1105, 70, 103, 41, 8 LTEXT "R$/Grande", 1106, 123, 103, 46, 8 LTEXT "R$/Família", 1107, 176, 104, 44, 8 GROUPBOX "Valores Categoria Porção", 30, 252, 85, 120, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Inteira", 1108, 256, 103, 41, 8 LTEXT "R$/Meia", 1109, 313, 103, 41, 8 GROUPBOX "Valores Categoria Individual", 35, 388, 85, 120, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "R$/Individual", 1110, 392, 103, 66, 8 EDITTEXT 19, 17, 159, 632, 76, ES_MULTILINE | ES_AUTOVSCROLL | ES_UPPERCASE | WS_BORDER | WS_VSCROLL | WS_TABSTOP historico id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

painel de controle central de facilidade de acesso facilitar o uso do teclado "marque" sublinhar atalhos de teclado e teclas de acesso. abs Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado Alessandro, vou testar. Sambomb, acho que dessa maneira seria fácil se fosse somente uma informação, mas como falei é um seriam vários em uma página, um arrayferias(),arrayacidente(),arrayaumento(), etc. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

cOrigem := curdrive()+":\"+GetCurDir()+cPOrigem cArqDoc := curdrive()+":\"+GetCurDir()+cPArqDoc COPY FILE (cOrigem) TO (cArqDoc) Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, estou fazendo a impressão do verso de uma ficha de funcionários e pra quem conhece são mostradas várias informações: férias/sindical/aumento de salário, etc. Só que seu espaço é limitado para mais ou menos 6 linhas de cada informação tendo que imprimir em outra ficha a continuação. Eu pensei em armazenar em um array cada informação e fazer assim: quando eu atingir o número de linhas que eu quero eu apago parte da array que imprimi e assim na próxima ficha eu verifico se o array não esta vazio e continuo a impressão. Como eu apago a informação do array()? É possível imprimir e ja apagar a linha que imprimi? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, estou fazendo a impressão do verso de uma ficha de funcionários e pra quem conhece são mostradas várias informações: férias/sindical/aumento de salário, etc. Só que seu espaço é limitado para mais ou menos 6 linhas de cada informação tendo que imprimir em outra ficha a continuação. Eu pensei em armazenar em um array cada informação e fazer assim: quando eu atingir o número de linhas que eu quero eu apago parte da array que imprimi e assim na próxima ficha eu verifico se o array não esta vazio e continuo a impressão. Como eu apago a informação do array()? É possível imprimir e ja apagar a linha que imprimi? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado Eduardo, estava dando erro na hora de compilar mas era a falta do ct.lib. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

bom dia pessoal, tenho que calcular o período de férias aquisitivo de funcionário. então é o sequinte: em dois gets: no primeiro coloco o periodo inicial que seria 10/04/2000 e queria calcular a segunda data que seria 09/04/2001. Se eu fizer o calcula da primeira data+365 - 1, resolveria, mas acho que teria problema quando for ano bisexto. Alguem teria alguma ideia. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

bom dia pessoal, tenho que calcular o período de férias aquisitivo de funcionário. então é o sequinte: em dois gets: no primeiro coloco o periodo inicial que seria 10/04/2000 e queria calcular a segunda data que seria 09/04/2001. Se eu fizer o calcula da primeira data+365 - 1, resolveria, mas acho que teria problema quando for ano bisexto. Alguem teria alguma ideia. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

fiz por contigência Prezado contribuinte, Informamos que no momento o sistema da NFE está indisponível devido à problemas técnicos, informamos que a previsão de normalização do ambiente é às 17 horas e 30 minutos.O contribuinte pode utilizar qualquer alternativa de contingência prevista na legislação, inclusive o SCAN que já está ativo junto ao Ambiente Nacional da Receita Federal. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal aqui estou com o seguinto erro: 109-serviço paralisado sem previsão o que é isto? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal aqui estou com o seguinto erro: 109-serviço paralisado sem previsão o que é isto? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

o negócio é meio complicado, ainda mais que não tenho um contador pra ajudar. Obrigado. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, uma explicação. Eu estava trabalhando no arquivo do EFD-PIS/COFINS. Agora me parece que mudou para EFD-Contribuições. Recebi um comunicado da secretaria da fazenda sobre a obrigação da escrituração fiscal digital. São duas coisas diferentes? ou essa escrituração fiscal ja englobaria tudo. Inclusive no laytout que eu estava fazenda a EFD-PIS/COFINS, no registro C100 diz assim: 1. Tendo em vista que as operações de vendas e de aquisições e/ou devoluções, documentadas por Nota Fiscal Eletrônica – NF-e (código 55), serem escrituradas de forma consolidada nos registros C180 (vendas) e C190 (compras e/ou devoluções) da EFD-PIS/Cofins, o registro C100 (e filhos) não é de preenchimento obrigatório na EFD-PIS/Cofins em relação às referidas operações com NF-e (código 55) ; 2. Todavia, a EFD-PIS/Cofins permite a escrituração alternativa, por opção da pessoa jurídica, das operações de vendas, compras e/ou devoluções por Nota Fiscal Eletrônica – NF-e, com base nos registros C100, C110, C120 e C170. Neste caso, a empresa optante por escriturar a EFD-PIS/Cofins, na visão de documento, deve utilizar o leiaute destes registros constante nas especificações técnicas de geração da Escrituração Fiscal Digital – EFD (ICMS e IPI); To meio perdido!!! Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, uma explicação. Eu estava trabalhando no arquivo do EFD-PIS/COFINS. Agora me parece que mudou para EFD-Contribuições. Recebi um comunicado da secretaria da fazenda sobre a obrigação da escrituração fiscal digital. São duas coisas diferentes? ou essa escrituração fiscal ja englobaria tudo. Inclusive no laytout que eu estava fazenda a EFD-PIS/COFINS, no registro C100 diz assim: 1. Tendo em vista que as operações de vendas e de aquisições e/ou devoluções, documentadas por Nota Fiscal Eletrônica – NF-e (código 55), serem escrituradas de forma consolidada nos registros C180 (vendas) e C190 (compras e/ou devoluções) da EFD-PIS/Cofins, o registro C100 (e filhos) não é de preenchimento obrigatório na EFD-PIS/Cofins em relação às referidas operações com NF-e (código 55) ; 2. Todavia, a EFD-PIS/Cofins permite a escrituração alternativa, por opção da pessoa jurídica, das operações de vendas, compras e/ou devoluções por Nota Fiscal Eletrônica – NF-e, com base nos registros C100, C110, C120 e C170. Neste caso, a empresa optante por escriturar a EFD-PIS/Cofins, na visão de documento, deve utilizar o leiaute destes registros constante nas especificações técnicas de geração da Escrituração Fiscal Digital – EFD (ICMS e IPI); To meio perdido!!! Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado pessoal, vou testar as opções. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, minha tela de vendas é meio demorada pra mostrar, então pra não ficar aquela coisa de ficar esperando sem nada, eu chamo ela assim: MsgRun("Manutenção de Vendas","Aguarde...",{||MANUTNFE("I")}). Só que eu estava pensando em algo com movimento, tipo meter, alguma idéia? obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5