sistem

sim

uso o kaspersky free https://www.kaspersky.com.br/downloads/thank-you/free-antivirus-download

Function CriDbfTempRomi() Local aCampos aCampos := {} aAdd( aCampos , { "cod_romi" , "C" , 10 , 0 } ) aAdd( aCampos , { "dat_romi" , "D" , 08 , 0 } ) aAdd( aCampos , { "dmv_romi" , "D" , 10 , 0 } ) aAdd( aCampos , { "ven_romi" , "C" , 03 , 0 } ) aAdd( aCampos , { "rot_romi" , "C" , 03 , 0 } ) aAdd( aCampos , { "tra_romi" , "C" , 03 , 0 } ) aAdd( aCampos , { "sta_romi" , "C" , 01 , 0 } ) aAdd( aCampos , { "cli_romi" , "C" , 04 , 0 } ) aAdd( aCampos , { "fam_romi" , "C" , 02 , 0 } ) aAdd( aCampos , { "pro_romi" , "C" , 04 , 0 } ) aAdd( aCampos , { "ser_romi" , "C" , 02 , 0 } ) aAdd( aCampos , { "prm_romi" , "C" , 10 , 0 } ) aAdd( aCampos , { "qtd_romi" , "N" , 09 , 3 } ) aAdd( aCampos , { "prc_romi" , "N" , 11 , 2 } ) aAdd( aCampos , { "com_romi" , "N" , 09 , 3 } ) aAdd( aCampos , { "des_romi" , "N" , 09 , 3 } ) aAdd( aCampos , { "seg_romi" , "C" , 05 , 0 } ) aAdd( aCampos , { "obs_romi" , "C" , 99 , 0 } ) aAdd( aCampos , { "usu_romi" , "C" , 08 , 0 } ) aAdd( aCampos , { "tim_romi" , "C" , 16 , 0 } ) Hb_DbCreateTemp("tempromi", aCampos, "DBFCDX") INDE ON tempromi->cli_romi+tempromi->ven_romi+tempromi->rot_romi TAG "temprom1" TO ("tempromi") Memory Additive INDE ON tempromi->cod_romi+tempromi->seg_romi+tempromi->cli_romi TAG "temprom2" TO ("tempromi") Memory Additive INDE ON tempromi->seg_romi+tempromi->cli_romi+tempromi->fam_romi+tempromi->pro_romi TAG "temprom3" TO ("tempromi") Memory Additive Return nil faço assim, quer dizer fazia e dava tudo certo, obs: uso sqlrdd

bom o gilmer leu o manual eu nao

caso não preencha o cst do pis e cofins vem como padrão 04, é isso mesmo? o VONFE2G_V4.prg tem a seguinte linha: local cST := if(empty(oItem:CST_PIS), "04", oItem:CST_PIS),nPos e: Elseif cST IN "04;06;07;08;09" aadd( axArray, {"PISNT", {}, 1 } ) ; nPos := len(axArray) aadd( axArray[nPos][2] , {"CST" , TVoNFeItem():New("N", 1, 2, 2,,,cST ) } ) PISNT - Grupo de PIS não tributado a pergunta... o cst pis / cofins sem valor não valida? pq do padrão "04"? 04-Operação Tributável (tributação monofásica (alíquota zero)

a

eu nao uso GET para pesquisa no xbrowse e sim o SAY como no exemplo abaixo... é com o oLbxPeFo:Seek( "" ) que zero o filtro... no seu caso é diferente @ 3, 116 COMBOBOX oPesqComboForn VAR nPesqComboForn ITEMS {"R.SOCIAL", "FANTASIA", "CÓDIGO", "CNPJ"} OF oDlgPeFo PIXEL COLOR CLR_GET1,CLR_GET2 SIZE 50,40 FONT oFont ON CHANGE MudaOrdemFornPesq(nPesqComboForn, oLbxPeFo) @ 4, 170 SAY oLbxPeFo:oSeek PROMPT oLbxPeFo:cSeek PICTURE "@!" UPDATE OF oDlgPeFo PIXEL COLOR CLR_BLACK FONT oFont1 SIZE 120, 10 BORDER *-------------------------------------------------------------------------------------- Function MudaOrdemFornPesq(nPesqComboForn, oLbxPeFo) oLbxPeFo:Seek( "" ) If nPesqComboForn = 1 Forn->(DbSetOrder("Forn2")) oLbxPeFo:cFilterFld := "Nom_Forn" ElseIf nPesqComboForn = 2 Forn->(DbSetOrder("Forn4")) oLbxPeFo:cFilterFld := "Fan_Forn" ElseIf nPesqComboForn = 3 Forn->(DbSetOrder("Forn1")) oLbxPeFo:cFilterFld := "Cod_Forn" Else Forn->(DbSetOrder("Forn3")) oLbxPeFo:cFilterFld := "Cgc_Forn" Endif oLbxPeFo:SetFocus() oLbxPeFo:Refresh() Return nil

tente assim cSeek := "" e oBrw:ArrayIncrFilter(RTRIM(cSeek)) deve limpar o filtro

meio afobado vc né?

deve ficar assim: IndPag := "2" tpag := "99" e o "valor pago" entre aspa é pq deve ter um valor mesmo sendo uma remesa, testa ai, e quando perguntar explica melhor gastei um tempão no post anterior

acho que o sebrae vai disponibilizar http://www.sebrae.com.br/sites/PortalSebrae/ufs/sp/cursos_eventos/controle-do-emissor-de-nota-fiscal-passa-a-ser-do-sebrae-sp,11b098912281d510VgnVCM1000004c00210aRCRD

o FCP é para venda estadual como Interestadual eu sei, digo assim, veja o link https://www.projetoacbr.com.br/forum/topic/41729-rejeições-nfe-40/ daí diz o que tente falar caso seja operação interestadual preencher com pFCPUFDest vFCPUFDest se não use dentro dos itens produtos pFCP vFCP

acredito que não, já teve duas né... é bom que seja logo mesmo para acabar com o sofrimento.

a empresa de análise de dados redmonk divulgou uma atualização do seu tradicional ranking com as linguagens de programação mais populares do mundo. A lista é referente ao primeiro trimestre de 2018. http://redmonk.com/sogrady/2018/03/07/language-rankings-1-18/ 1 JavaScript 2 Java 3 Python 4 PHP 5 C# 6 C++ 7 CSS 8 Ruby 9 C 10 Swift 10 Objective-C 12 Shell 12 R 14 TypeScript 14 Scala 16 Go 17 PowerShell 18 Perl 19 Haskell 20 Lua a redmonk leva em consideração duas das principais comunidades de desenvolvedores na internet: o Stack Overflow, muito usado para tirar dúvidas sobre programação, e o GitHub, um repositório de projetos. As linguagens mais populares nas duas plataformas entram neste ranking.

pra entender melhor pq do 68 http://www.flexdocs.com.br/guiaNFe/funcao.XML.validar.html

Lembrando, hoje dia 02/05/2018 faltam 60 dias. VERSÃO PRELIMINAR DA DLL - 2Gv4.03f Versão da DLL atualizada para v4.03f em 24/04/2018 Download do ZIP da DLL NFe_Util - versão 2Gv4.03f [24-04-18] Download Instalador da DLL NFe_Util - versão 2Gv4.03f [24-04-18] Versão preliminar, imagino que teremos um versão final Encontrei no fórum o seguinte post de Gilmer "Opa! Mas a atualizações são minimas a nível de classe, as alterações na vonfe2g (estrutura de XML )é muito poucas e simples de serem feitas. A alteração pesada ficou para a flexdocs, onde precisa atualizar a DLL e até onde eu sei terá custo então acho importante já irem levantando custo de atualização com a flexdocs Caso alguém queira ir alterando a vonfe2g.prg para estrutura da versão 4.0, este link tem um resumo. http://www.nfedobrasil.com.br/2017/08/nf-e-4-0-o-que-mudou-e-por-que/ http://tsdn.tecnospeed.com.br/blog-da-tecnospeed/post/saiba-o-que-muda-com-a-versao-4-00-do-nf-e Pode ir disponibilizando para todos os usuários aqui mesmo no fórum as alterações " isso significa que não haverá mais atualizações da classe por parte do Gilmer? Nesse caso as alterações poderão ser postadas aqui no fórum? Gilmer poderia confirma isto.

nã eh nada oficial mais quem quiser participar https://t.me/fivewinbr com feed RSS(agregador de notícias) do forum fivewin brasil

por isso que uso windows 10 LTSB

sem pensar muito => Inno Setup http://www.jrsoftware.org/isinfo.php exemplo de uso: vc instala o programa que se encontra no link acima, e depois vai abra o arquivo de exemplo que esta logo abaixo: salve com o nome de sua preferencia com extensão ISS ex: teste.iss ; Script gerado pelo Inno Setup. (observe que esta linha eh um comentario pois começa com ponto e virgula) [Setup] AppName=SeuAplicativo Sistema Integrado AppVerName=SeuAplicativo v1.0 JAN/2018 AppPublisher=SUA EMPRESA Informática AppPublisherURL=http://www.SuaEmpresa.net.br/ AppSupportURL=http://www.SuaEmpresaSuporte.net.br/ AppUpdatesURL=http://www.SuaEmpresaAtualizacao.net.br/ DefaultDirName=c:\SeuAplicativo && Aqui sua pasta de instalacao (observe que && tambem serve para comentario) ;DefaultDirName={pf}\SuaPasta && PF=ARQUIVOS DE PROGRAMAS DefaultGroupName=SeuAplicativo && Nome do Grupo AllowNoIcons=yes && esse aqui eu nao lembro LicenseFile=e:\fwh1801\MultiSQL\leia-me.txt && quando iniciar o instalador vai mostrar o contrado de licença caso tenha no exemplo um txt DiskSpanning=no && tambem nao lembro ; uncomment the following line if you want your installation to run on NT 3.51 too. ; MinVersion=4,3.51 ; os icnoes [Tasks] Name: desktopicon; Description: Criar ícone no &Desktop; GroupDescription: Additional icons:; MinVersion: 4,4 Name: quicklaunchicon; Description: Criar ícone &Quick Launch; GroupDescription: Additional icons:; MinVersion: 4,4 ; aqui voce define o tipo de instalacao [Types] Name: estacao; Description: Instalar SeuAplicativo (ESTAÇÔES DE TRABALHO) Name: servidor; Description: Instalar SeuAplicativo (SERVIDOR MySQL) ;Name: servidorMDB; Description: Instalar SeuAplicativo (SERVIDOR MariaDB) ; aqui voce define o tipo de instalacao observe a baixo o Name definido = serverFiles caso seja escolhido essa opcoao alguns componentes serao instalador [Components] Name: clientFiles; Description: Instalar SeuAplicativo (ESTAÇÔES DE TRABALHO); Types: estacao Name: serverFiles; Description: Instalar SeuAplicativo (SERVIDOR MySQL); Types: servidor ;Name: serverFilesMDB; Description: Instalar SeuAplicativo (SERVIDOR MariaDB); Types: servidorMDB ; arquivo a serer instaldos [Files] ; adiciona SeuAplicativo a Pasta de destino DestDir: {app}; Source: e:\fwh1801\MultiSQL\SeuAplicativo.exe; DestDir: {app}; Flags: ignoreversion ; observer quer as 2 linha abaixo soh sera executada se vc escolheu o componente servidor (serverFiles) durante a instalacao Source: e:\fwh1801\MultiSQL\startmysql.exe; DestDir: {app}; Flags: ignoreversion; Components: serverFiles Source: e:\fwh1801\MultiSQL\endmysql.exe; DestDir: {app}; Flags: ignoreversion; Components: serverFiles ; assim vai..... Source: e:\fwh1801\MultiSQL\dosprint.exe; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\mysql\bin\mysqldump.exe; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\mysql\bin\mysql.exe; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\dllinsce32.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\prev32.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\freeimage.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\bemafi32.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\daruma32.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\darumaframework.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\elgin.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\bemafi32.ini; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\leia-me.txt; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\sist.bmp; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\sist.ico; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\desktop.ini; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\registraDLL.bat; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\desregistraDLL.bat; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\nfe_util_2G.tlb; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\nfe_util_2G.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\Reports.dll; DestDir: {app}; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\BaixarXMLNFe.dll; DestDir: {app}; Flags: ignoreversion ; alinha abaixo copia todos os arquivo da pasta MultiSQL\mysql para a uma sub pasta de pasta de instalacao {app}\mysql Source: e:\fwh1801\MultiSQL\mysql\*; DestDir: {app}\mysql; Flags: ignoreversion recursesubdirs createallsubdirs; Components: serverFiles && aqui so instala se o coponente escolhido eh serverFiles (se vc escolhe ser servidor) Source: e:\fwh1801\MultiSQL\cobrebemx\*; DestDir: {app}\cobrebemx; Flags: ignoreversion recursesubdirs createallsubdirs; Source: e:\fwh1801\MultiSQL\nfe_util\*; DestDir: {app}\nfe_util; Flags: ignoreversion recursesubdirs createallsubdirs ; aqui copia outros arquivo de outras pastas para a uma subpasta de sua instalacao ex: {app}\dir1; ok Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir1; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir2; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir3; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir4; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir5; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir6; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir7; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir8; Flags: ignoreversion Source: e:\fwh1801\MultiSQL\logo.bmp; DestDir: {app}\dir9; Flags: ignoreversion ; aqui vc alimenta o registro do windows [Registry] Root: HKLM; Subkey: Software\NomeSeuAplicativo; ValueType: string; ValueName: InstallPath; Valuedata: {app} Root: HKLM; Subkey: Software\NomeSeuAplicativo; ValueType: string; ValueName: Version; Valuedata: 1.0 ; aqui vc add alguns icnes no desktop e menus(grupos) do windows [Icons] Name: {group}\SIAV; Filename: {app}\SI.EXE; WorkingDir: {app} Name: {userdesktop}\SIAV; Filename: {app}\SeuAplicativo.EXE; WorkingDir: {app}; MinVersion: 4,4; Tasks: desktopicon Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Sistem Informática (SIAV); Filename: {app}\SeuAplicativo.EXE; WorkingDir: {app}; MinVersion: 4,4; Tasks: quicklaunchicon Name: {commondesktop}\TeamViewer; Filename: {app}\TeamViewer\TeamViewerQS.exe; WorkingDir: {app}; Comment: "TeamViewer" && aqui add icone no desktop Name: {commondesktop}\HeidiSQL; Filename: {app}\heidisql\heidisql.exe; WorkingDir: {app}; Comment: "HeidiSQL" && aqui add icone no desktop ; aqui vc executa alguns comando o programa durante e depois da instalacao [Run] Filename: {app}\SIAV.EXE; Description: Executar SIAV; Flags: nowait postinstall skipifsilent && aqui executa Seu programa procinpal assim que acabe a instalacao Filename: {app}\startmysql.exe; Flags: waituntilidle; Components: serverFiles && aqui executa um programa durante a instalacao ;as linhas abaixo cria um serviço libera a porta 3308 uma linha se vc esta instalando como servidor ou outra linha como se vc esta instando como estacao Filename: {sys}\netsh.exe; Parameters: "firewall add portopening protocol=TCP port=3308 name=""NomeDoServico"" mode=ENABLE scope=SUBNET"; Flags: nowait runhidden; MinVersion: 0,5.01.2600; Components: serverFiles Filename: {sys}\netsh.exe; Parameters: "firewall add allowedprogram {app}\SeuAplicativo.exe ""allowsiav"" ENABLE ALL"; Flags: nowait runhidden; MinVersion: 0,5.01.2600 ; aqui vc executa um programa quando vc desistalar o aplicativo esse programa eh pessoal meu vc poedrar entende no link: ; http://fivewin.com.br/index.php?/topic/21305-instalador-com-o-mysql/ [UninstallRun] Filename: {app}\endmysql.exe; Flags: waituntilidle; Components: serverFiles enjoy

para desestressar Revista Micro Sistemas (Coleção Completa Anos 80/90) https://minhateca.com.br/korabl.sputnik.4/Revista+Micro+Sistemas

fivewin ame-o ou deixe-o

obrigado pelo carinha rsrs ainda bem, salvou a humanidade

cada linguagem tem suas vantagens e desvantagens quando comparada as outras, também prefiro Fivewin, sendo minha linguagem preferida. veja o seguinte. não conheço nenhum programador com menos de 30 anos usando Fivewin, acho que essa excelente ferramenta está em perigo de extinção, infelizmente. e outra, ser programador multi linguagem é normal hoje em dia.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34591&p=205576&hilit=folderex#p205576

não há dificuldade ex: IF IsAppThemed() @ 27, 3 FOLDEREX ofld Items "Dados Cliente", "End.Cobrança/Entrega", "Pessoa Jurídica", "Pessoa Física", "Complemento" PIXEL OF oDlg SIZE 224, 268 Else @ 27, 3 FOLDER ofld Items "Dados Cliente", "End.Cobrança/Entrega", "Pessoa Jurídica", "Pessoa Física", "Complemento" PIXEL OF oDlg SIZE 224, 268 Endif veja acima... não muda nada é só acrescentar EX o MEDEDIT e tem a opção de substituir o tesxto de todo os .prg de um vez.... de " folder" para " folderex" por exemplo... obs: tem um espaço antes do " folder" e do " folderex" para não confundir com variaveis (se for fazer isto, faça em um diretório de teste antes e tire as aspas " " )