sistem
-
Posts
561 -
Joined
-
Last visited
-
Days Won
25
Posts posted by sistem
-
-
-
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)
-
-
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é?
-
vc nao entendeu nada.. quero saber quando nao tem pagamento.. por exemplo uma remessa
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
-
-
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
vFCPUFDestse 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 Luaa 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.
-
DEFAULT TipoXml := 68 // Mudou na versao 4.00 XmlDoc := ::ReadXml(XmlDoc) If TipoXml== 68 If ::Assinar(XmlDoc, "infNFe", @cXmlAssinado) XmlDoc := cXmlAssinado Else Return( .f. ) Endif Endif
pra entender melhor pq do 68
-
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
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
-
-
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.
-
REDEFINE FOLDEREX oFld ID 104 of oDlgP UPDATE; PROMPT "P&rincipal","&Detalhe","&Endereços","Gr&upos","Contatos"; DIALOGS "CAD_CLI_1","CAD_CLI_2","CAD_CLI_3","CAD_CLI_4","CAD_CLI_5"
Eu simplesmente mudei de Folder para FolderEx e ficou bonita a tela, mas o sistema não deixa mais mudar de folder; clico em Detalhe, Endereço, etc e ele continua fixo na folder Principal.
Obrigado pela orientação.
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 " " )
Hb_CreateTemp() com SQLRDD
in Programação
Posted
sim