jfaguiar

Obrigado Kapiaba. Vou de MariaDb

olá meus amigos. Alguém me sugere uma classe paga ou de gratis para impressão de CF-e, tipo a Nfe_Util do glorioso dr. Gilmer para NF-e? Eu utilizava a classe do próprio fabricante de impressora, no caso a Darumafrawork, fornecida pela fabricante Daruma que já jaz no cemitério dos hardwares. Essa marca fornecia uma dll com exemplos para xharbour que funcionava bem, mas me obrigava a recomendar somente as impressora deles! Eu não tenho muita pressa pra isso não, mas tem aguns clientes que estão querendo me matar e eu ainda tenhos uns filhos novinhos pra criar, entendem. Obrigado

Verifica se o computador não está desligando a HD nas configurações de economia de energia. Se tiver, desliga essa bagaça.

Boa tarde meu caro. Eu utilizo a gloriosa classe NFe_Util do dr. Gilmer e por lá existe um parâmetro que eu creio que vale pra todos (Vide Manual da NF-e) que quando trata-se de combustíveis, geralmente a cfop 5662 ou 5656, você tem que preencher a tag :cProdANP com um código específico. IF "5662" $ cCFop .OR. "5656" $ cCFop :cProdANP := 620101008 ENDIF Abraço, espero tê-lo ajudado.

Caríssimo, o Gilmer tem essa solução. Uma vez precisei de uma rotina para enviar e buscar dados no Web service da Semasa aqui em Snto André e ele me deu todo a assessoria por um valor bem interessante. Segue aí um pedaço da rotina só a título de informação... cHost:="servicos.semasa.sp.gov.br" oServerWS := CreateObject( _MSXML2_ServerXMLHTTP ) oServerWS:open('GET', cURL, .f.) oServerWS:setRequestHeader('host',cHost) Try oServerWS:send() CATCH e MsgStop("Problemas ao realizar solicitação com o Web Service.") RETURN .F. END

Eu prefiro salvar no padrãozão do FW mesmo, assim... cNOMARQ :="Espelho da NFS-e "+ STR(TBFATURA->NUMNFE,6) PRINT oPrn NAME "Imprime Espelho da NFS-e " PREVIEW // MODAL FROM USER PAGE oPrn:CmSay(nPROW,01,"blá blá blá,oFont) oPrn:CmSay(nPROW,20.10,TRANSF(nVALOR,"@E 99,999,999.99"),oFont,,,,PAD_RIGHT ) ENDPAGE oPrn:lMeta = .F. ENDPRINT FWSavePreviewToPDF( oPrn,"H:\SUAPASTA\"+cNOMARQ,.T. ) // .T. exibe o pdf, .F. não exibe ... Quanto ao harupdf eu utilizo para imprimir boletos bancários a partir do meu sistema com a gloriosa MRBoletos adaptada. Abço

Você precisa analisar o array gerado por ftpdirectory e verificar se a linha é de fato o arquivo que você que baixar, porque nesse array armazena coisas que fazem parte da estrutura das pastas que não os arquivos que deseja baixar.

Eu preferi fazer o meu próprio gerador de relatórios que o denominei como MsFlexReport. Com Flexreport eu consigo várias proezas como imprimir em modo retrato ou paisagem, totalização por grupos, imprimir o logo no cabeçalho, personalizar o título do relatório conforme as necessidades, etc, tudo gerado a partir de uma ferramenta visual onde posso gerar uma tabela temporária indexada da forma que eu bem quoser para armazenar os dados ou ler uma tabela específica que poderá ser relacionada com várias outras, tudo sem escrever uma linha sequer de código fonte. Todavia, em casos de relatórios mais complexos, eu posso criar uma rotina escrita que irá acumular os dados nessa tabela temporária. Outra coisa importante é a praticidade dessa minha ferramenta visual que me permite testar e visualizar o relatório no momento da sua contrução, facilitando assim o trabalho. Dentre outras coisas, eu consigo gerar uma quantidade de relatórios infinita de uma mesma tabela, uma vez que essas informações ficam armazenadas num dicionário de relatórios os quais são distinguido por seu codinome Como eu executo os relatórios criados à partir dessa minha ferramenta a partir dos menus? Simples, basta informar através do seu gerador de menus ou através do seu código fonte da seguinte forma: No meu gerador de menus chamo assim: &Contas a Receber ;InicioSubMenu() ;Inicio do submenudo financeiro Manutenção de Contas a Receber ;CADGER("ARQCREC") ;Manutenção e baixa de contas a receber &Borderô de Desconto ;Finr002() ;Borderô de Desconto Manutenção de Cobrança ;CADGER("TBCOBR") ;Manutenção de Cobrança Baixa de Cobrança P/Arq. Retorno ;BAIXRETCB() ;Baixa e atualização da cobrança pelo arquivo de retorno do banco &Relatórios de Diversos da Cobrança ;FINR110() ;Relatórios de títulos emitidos/a receber/recebidos no período &Extrato do Cliente ;Finr130() ;Extrato financeiro do cliente Tipos de Cobrança ;CADGER("ARQTCOB") ;Tipos de Cobrança Formas de Pagamento ;CADGER("ARQFPAG") ;Formas de Pagamento Fim do submenu de contas a receber ;FimSubMenu() ;Fim do submenu de contas a receber Contas a &Pagar ;InicioSubMenu() ;Inicio do submenu de contas a pagar Manutenção de Contas à Pagar ;CADGER("ARQCPAG","VerificaSaldos()") ;Manutenção de contas a pagar Contas a Pagar Múltiplas Parcelas ;CADGER("TBENTCPM") ;Contas a Pagar Múltiplas Parcelas &Relatórios de Títulos Pagos ;FlexReport("ARQCPAG","CTAPAG") ;Relatórios de títulos pagos &Relatórios de Títulos Emitidos ;FlexReport("ARQCPAG","CTAPEMIT") ;Relatórios de títulos emitidos &Relatórios de Títulos a Pagar ;FlexReport("ARQCPAG","CTAAPAG") ;Relatórios de títulos a pagar... A partir do código fonte chamo assim: ... MENUITEM "&Relatório de Contas a Pagar"; ACTION FlexReport("ARQCPAG","CTAAPAG"); MESSAGE "Relatórios de títulos a pagar"... Aproveitando pra vender o peixe, eu também tenho um gerador de tabelas, indices das tabelas, pesquisas, um gerador de cadastros e subcadastro, gerador de pesquisas, gerador de menus, dentre outras coisinhas que me poupam muitas linhas de códigos fontes. Quando quiserem uma demonstração será um prazer mostrar pra galera. Abraços, Feliz ano novo.

Olá meus amigos. Qual a melhor opção para acessar MySql via Fivewin? Há alguns tempos tentei algumas RDD's mas não obtive sucesso. Aceito cursos online se que alguém indicar. Muito obrigado e Feliz ano novo a todos. Ah sim, eu ainda estou vivo!!

Boa tarde pessoal. É possível exibir as opções de um RADIO na horizontal ao invés da forma padrão que é vertical? Muito obrigado.

Bom dia amigos. Pessoal, alguém já emitiu NF-e com a CFOP 3.102, utilizando a NFE_Util do senhor Gilmer?. Estou com um material no porto e preciso emitir essa nota e não tenho idéia de como fazer. Obrigado

Olá Gilmer. Então o problema está se dando aqui no método StruProduto() nessa linha. Tive que criar uma variável na minha aplicação e alterar a classe. O problema é que nesse caso terei que criar essa variável em todos os meu aplicativos: Estava assim: aadd( axArray, {"vUnCom" , TVoNFeItem():New("C", 01, 16,,4,,oItem:vUnCom ) } ) Mudei para assim: aadd( axArray, {"vUnCom" , TVoNFeItem():New("C", 01, 16,,nQTDDECPU,,oItem:vUnCom ) } ) Obrigado

Boa tarde pessoal. Como faço para enviar via parâmetros uma variável para uma classe como a TVoNFe2g():New() do senhor Gilmer? Por exemplo: eu quero que essa classe entenda quantas casas decimais deverão ser utilizadas no preço unitário. Lá na classe, no METHOD StruProduto( oItem ) eu tenho como determinar quantas casas decimais deverei utilizar para o preço unitário, mas como mando esse valor para lá sem ter do meu projeto, pois na maioria das situações são 2 casas decimais, porém noutras são 3 ou 4 e até mais casas decimais. Obrigado

Bom dia amigos. Após a edição de uma célula em xBrowse, estou fazendo uma validação e quando o retorno for .F., gostaria que o cursor se mantivesse na célula que está sendo editada. Como faço isso? Muito obrigado

Olá amigos. Criei uma aplicação que interage com uma tabela de preços / comissão em Excel e gostaria de saber se na TExcelScript() tem método para excluir uma linha. Verifiquei que existe método para inserir linha: InsertRow(), duplicar: Duplicate(), porém o de exclusão, eu não encontrei. Obrigado.